comparison src/dired-msw.c @ 2421:ab71ad6ff3dd

[xemacs-hg @ 2004-12-06 03:50:53 by ben] (none) README.packages: Document use of --package-prefix. Fix error in specifying standard package location. make-docfile.c: Use QXE_PATH_MAX. info.el: Correct doc string giving example package path. menubar-items.el: Move Prefix Rectangle command up one level. xemacs/packages.texi: Add long form of Lisp Reference Manual to links. Add links pointing to Lisp Reference Manual for more detailed package discussion. lispref/range-tables.texi: Document range-table changes. internals/internals.texi: Update history section. elhash.c, elhash.h, profile.c: Create inchash_eq() to allow direct incrementing of hash-table entry. Use in profile.c to try to reduce profiling overhead. Increase initial size of profile hash tables to reduce profiling overhead. buffer.c, device-msw.c, dialog-msw.c, dired-msw.c, editfns.c, event-msw.c, events.c, glyphs-msw.c, keymap.c, objects-msw.c, process-nt.c, syswindows.h, text.c, text.h, unexnt.c: Rename xetcs* -> qxetcs* for consistency with qxestr*. Rename ei*_c(_*) -> ei*_ascii(_*) since they work with ASCII-only strings not "C strings", whatever those are. This is the last place where "c" was incorrectly being used for "ascii". dialog-msw.c, dumper.c, event-msw.c, fileio.c, glyphs-gtk.c, glyphs-x.c, nt.c, process-nt.c, realpath.c, sysdep.c, sysfile.h, unexcw.c, unexnext.c, unexnt.c: Try to avoid differences in systems that do or do not include final null byte in PATH_MAX. Create PATH_MAX_INTERNAL and PATH_MAX_EXTERNAL and use them everywhere. Rewrite code in dumper.c to avoid use of PATH_MAX. When necessary in nt.c, use _MAX_PATH instead of MAX_PATH to be consistent with other places. text.c: Code to short-circuit when binary or Unicode was not working due to EOL wrapping. Fix this code to work when either no EOL autodetection or no CR's or LF's in the text. lisp.h, rangetab.c, rangetab.h, regex.c, search.c: Implement different types of ranges (open/closed start and end). Change default to be start-closed, end-open.
author ben
date Mon, 06 Dec 2004 03:52:23 +0000
parents ecf1ebac70d8
children 902d5bd9b75c
comparison
equal deleted inserted replaced
2420:ad56e5a6d09f 2421:ab71ad6ff3dd
210 eicpy_lstr (win32pattern, dirfile); 210 eicpy_lstr (win32pattern, dirfile);
211 if (!nowild) 211 if (!nowild)
212 { 212 {
213 Charcount len = eicharlen (win32pattern) - 1; 213 Charcount len = eicharlen (win32pattern) - 1;
214 if (!IS_DIRECTORY_SEP (eigetch_char (win32pattern, len))) 214 if (!IS_DIRECTORY_SEP (eigetch_char (win32pattern, len)))
215 eicat_c (win32pattern, "\\"); 215 eicat_ascii (win32pattern, "\\");
216 eicat_c (win32pattern, "*"); 216 eicat_ascii (win32pattern, "*");
217 } 217 }
218 eito_external (win32pattern, Qmswindows_tstr); 218 eito_external (win32pattern, Qmswindows_tstr);
219 219
220 /* 220 /*
221 * Here, we use FindFirstFile()/FindNextFile() instead of opendir(), 221 * Here, we use FindFirstFile()/FindNextFile() instead of opendir(),
310 CIbyte buf[666]; 310 CIbyte buf[666];
311 311
312 file_size = 312 file_size =
313 file->nFileSizeHigh * (double)UINT_MAX + file->nFileSizeLow; 313 file->nFileSizeHigh * (double)UINT_MAX + file->nFileSizeLow;
314 #if INDENT_LISTING 314 #if INDENT_LISTING
315 eicat_c (puta, " "); 315 eicat_ascii (puta, " ");
316 #endif 316 #endif
317 if (display_size) 317 if (display_size)
318 { 318 {
319 sprintf (buf, "%6d ", (int)((file_size + 1023.) / 1024.)); 319 sprintf (buf, "%6d ", (int)((file_size + 1023.) / 1024.));
320 eicat_c (puta, buf); 320 eicat_ascii (puta, buf);
321 } 321 }
322 if (file->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) 322 if (file->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
323 eicat_c (puta, "d"); 323 eicat_ascii (puta, "d");
324 else 324 else
325 eicat_c (puta, "-"); 325 eicat_ascii (puta, "-");
326 buf[0] = buf[3] = buf[6] = 'r'; 326 buf[0] = buf[3] = buf[6] = 'r';
327 if (file->dwFileAttributes & FILE_ATTRIBUTE_READONLY) 327 if (file->dwFileAttributes & FILE_ATTRIBUTE_READONLY)
328 buf[1] = buf[4] = buf[7] = '-'; 328 buf[1] = buf[4] = buf[7] = '-';
329 else 329 else
330 buf[1] = buf[4] = buf[7] = 'w'; 330 buf[1] = buf[4] = buf[7] = 'w';
353 buf[2] = buf[5] = buf[8] = 'x'; 353 buf[2] = buf[5] = buf[8] = 'x';
354 else 354 else
355 buf[2] = buf[5] = buf[8] = '-'; 355 buf[2] = buf[5] = buf[8] = '-';
356 } 356 }
357 buf[9] = '\0'; 357 buf[9] = '\0';
358 eicat_c (puta, buf); 358 eicat_ascii (puta, buf);
359 if (file->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) 359 if (file->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
360 eicat_c (puta, " 2 "); 360 eicat_ascii (puta, " 2 ");
361 else 361 else
362 eicat_c (puta, " 1 "); 362 eicat_ascii (puta, " 1 ");
363 luser = Fuser_login_name (Qnil); 363 luser = Fuser_login_name (Qnil);
364 if (!STRINGP (luser)) 364 if (!STRINGP (luser))
365 sprintf (buf, "%-9d", 0); 365 sprintf (buf, "%-9d", 0);
366 else 366 else
367 { 367 {
425 *cptr++ = '\0'; 425 *cptr++ = '\0';
426 } 426 }
427 } 427 }
428 } 428 }
429 429
430 eicat_c (puta, buf); 430 eicat_ascii (puta, buf);
431 eicat_raw (puta, file->cFileName, qxestrlen (file->cFileName)); 431 eicat_raw (puta, file->cFileName, qxestrlen (file->cFileName));
432 if (add_newline) 432 if (add_newline)
433 eicat_c (puta, "\n"); 433 eicat_ascii (puta, "\n");
434 434
435 return eimake_string (puta); 435 return eimake_string (puta);
436 } 436 }
437 437
438 438