1 /* Lisp functions for making directory listings.
2 Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
26 #include <sys/types.h>
42 /* The d_nameln member of a struct dirent includes the '\0' character
43 on some systems, but not on others. What's worse, you can't tell
44 at compile-time which one it will be, since it really depends on
45 the sort of system providing the filesystem you're reading from,
46 not the system you are running on. Paul Eggert
47 <eggert@bi.twinsun.com> says this occurs when Emacs is running on a
48 SunOS 4.1.2 host, reading a directory that is remote-mounted from a
49 Solaris 2.1 host and is in a native Solaris 2.1 filesystem.
51 Since applying strlen to the name always works, we'll just do that. */
52 #define NAMLEN(p) strlen (p->d_name)
54 #ifdef SYSV_SYSTEM_DIR
57 #define DIRENTRY struct dirent
59 #else /* not SYSV_SYSTEM_DIR */
61 #ifdef NONSYSTEM_DIR_LIBRARY
63 #else /* not NONSYSTEM_DIR_LIBRARY */
69 #endif /* not NONSYSTEM_DIR_LIBRARY */
74 #define DIRENTRY struct direct
76 extern DIR *opendir ();
77 extern struct direct
*readdir ();
79 #endif /* not MSDOS */
80 #endif /* not SYSV_SYSTEM_DIR */
83 #define DIRENTRY_NONEMPTY(p) ((p)->d_name[0] != 0)
85 #define DIRENTRY_NONEMPTY(p) ((p)->d_ino)
95 /* Returns a search buffer, with a fastmap allocated and ready to go. */
96 extern struct re_pattern_buffer
*compile_pattern ();
98 /* From filemode.c. Can't go in Lisp.h because of `stat'. */
99 extern void filemodestring
P_ ((struct stat
*, char *));
101 #define min(a, b) ((a) < (b) ? (a) : (b))
103 /* if system does not have symbolic links, it does not have lstat.
104 In that case, use ordinary stat instead. */
110 extern int completion_ignore_case
;
111 extern Lisp_Object Vcompletion_regexp_list
;
112 extern Lisp_Object Vfile_name_coding_system
, Vdefault_file_name_coding_system
;
114 Lisp_Object Vcompletion_ignored_extensions
;
115 Lisp_Object Qcompletion_ignore_case
;
116 Lisp_Object Qdirectory_files
;
117 Lisp_Object Qdirectory_files_and_attributes
;
118 Lisp_Object Qfile_name_completion
;
119 Lisp_Object Qfile_name_all_completions
;
120 Lisp_Object Qfile_attributes
;
121 Lisp_Object Qfile_attributes_lessp
;
125 directory_files_internal_unwind (dh
)
128 DIR *d
= (DIR *) ((XINT (XCAR (dh
)) << 16) + XINT (XCDR (dh
)));
133 /* Function shared by Fdirectory_files and Fdirectory_files_and_attributes.
134 When ATTRS is zero, return a list of directory filenames; when
135 non-zero, return a list of directory filenames and their attributes. */
137 directory_files_internal (directory
, full
, match
, nosort
, attrs
)
138 Lisp_Object directory
, full
, match
, nosort
;
142 int directory_nbytes
;
143 Lisp_Object list
, dirfilename
, encoded_directory
;
144 struct re_pattern_buffer
*bufp
= NULL
;
146 int count
= specpdl_ptr
- specpdl
;
147 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
151 /* Because of file name handlers, these functions might call
152 Ffuncall, and cause a GC. */
153 list
= encoded_directory
= dirfilename
= Qnil
;
154 GCPRO5 (match
, directory
, list
, dirfilename
, encoded_directory
);
155 directory
= Fexpand_file_name (directory
, Qnil
);
156 dirfilename
= Fdirectory_file_name (directory
);
160 CHECK_STRING (match
, 3);
162 /* MATCH might be a flawed regular expression. Rather than
163 catching and signaling our own errors, we just call
164 compile_pattern to do the work for us. */
165 /* Pass 1 for the MULTIBYTE arg
166 because we do make multibyte strings if the contents warrant. */
168 bufp
= compile_pattern (match
, 0,
169 buffer_defaults
.downcase_table
, 0, 1);
171 bufp
= compile_pattern (match
, 0, Qnil
, 0, 1);
175 /* Note: ENCODE_FILE and DECODE_FILE can GC because they can run
176 run_pre_post_conversion_on_str which calls Lisp directly and
178 dirfilename
= ENCODE_FILE (dirfilename
);
179 encoded_directory
= ENCODE_FILE (directory
);
181 /* Now *bufp is the compiled form of MATCH; don't call anything
182 which might compile a new regexp until we're done with the loop! */
184 /* Do this opendir after anything which might signal an error; if
185 an error is signaled while the directory stream is open, we
186 have to make sure it gets closed, and setting up an
187 unwind_protect to do so would be a pain. */
190 d
= opendir (XSTRING (dirfilename
)->data
);
192 report_file_error ("Opening directory", Fcons (directory
, Qnil
));
194 /* Unfortunately, we can now invoke expand-file-name and
195 file-attributes on filenames, both of which can throw, so we must
196 do a proper unwind-protect. */
197 record_unwind_protect (directory_files_internal_unwind
,
198 Fcons (make_number (((unsigned long) d
) >> 16),
199 make_number (((unsigned long) d
) & 0xffff)));
201 directory_nbytes
= STRING_BYTES (XSTRING (directory
));
202 re_match_object
= Qt
;
204 /* Decide whether we need to add a directory separator. */
206 if (directory_nbytes
== 0
207 || !IS_ANY_SEP (XSTRING (directory
)->data
[directory_nbytes
- 1]))
211 /* Loop reading blocks until EOF or error. */
213 while ((dp
= readdir (d
)) != NULL
)
215 if (DIRENTRY_NONEMPTY (dp
))
219 Lisp_Object name
, finalname
;
220 struct gcpro gcpro1
, gcpro2
;
223 name
= finalname
= make_unibyte_string (dp
->d_name
, len
);
224 GCPRO2 (finalname
, name
);
226 /* Note: ENCODE_FILE can GC; it should protect its argument,
228 name
= DECODE_FILE (name
);
229 len
= STRING_BYTES (XSTRING (name
));
231 /* Now that we have unwind_protect in place, we might as well
232 allow matching to be interrupted. */
237 || (0 <= re_search (bufp
, XSTRING (name
)->data
, len
, 0, len
, 0)))
246 Lisp_Object fullname
;
247 int nbytes
= len
+ directory_nbytes
+ needsep
;
250 fullname
= make_uninit_multibyte_string (nbytes
, nbytes
);
251 bcopy (XSTRING (directory
)->data
, XSTRING (fullname
)->data
,
255 XSTRING (fullname
)->data
[directory_nbytes
] = DIRECTORY_SEP
;
257 bcopy (XSTRING (name
)->data
,
258 XSTRING (fullname
)->data
+ directory_nbytes
+ needsep
,
261 nchars
= chars_in_text (XSTRING (fullname
)->data
, nbytes
);
263 /* Some bug somewhere. */
267 XSTRING (fullname
)->size
= nchars
;
268 if (nchars
== nbytes
)
269 SET_STRING_BYTES (XSTRING (fullname
), -1);
271 finalname
= fullname
;
278 /* Construct an expanded filename for the directory entry.
279 Use the decoded names for input to Ffile_attributes. */
280 Lisp_Object decoded_fullname
, fileattrs
;
281 struct gcpro gcpro1
, gcpro2
;
283 decoded_fullname
= fileattrs
= Qnil
;
284 GCPRO2 (decoded_fullname
, fileattrs
);
286 /* Both Fexpand_file_name and Ffile_attributes can GC. */
287 decoded_fullname
= Fexpand_file_name (name
, directory
);
288 fileattrs
= Ffile_attributes (decoded_fullname
);
290 list
= Fcons (Fcons (finalname
, fileattrs
), list
);
294 list
= Fcons (finalname
, list
);
303 retry_p
|= errno
== EAGAIN
;
306 retry_p
|= errno
== EINTR
;
311 /* Discard the unwind protect. */
312 specpdl_ptr
= specpdl
+ count
;
318 list
= Fsort (Fnreverse (list
),
319 attrs
? Qfile_attributes_lessp
: Qstring_lessp
);
321 RETURN_UNGCPRO (list
);
325 DEFUN ("directory-files", Fdirectory_files
, Sdirectory_files
, 1, 4, 0,
326 "Return a list of names of files in DIRECTORY.\n\
327 There are three optional arguments:\n\
328 If FULL is non-nil, return absolute file names. Otherwise return names\n\
329 that are relative to the specified directory.\n\
330 If MATCH is non-nil, mention only file names that match the regexp MATCH.\n\
331 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
332 NOSORT is useful if you plan to sort the result yourself.")
333 (directory
, full
, match
, nosort
)
334 Lisp_Object directory
, full
, match
, nosort
;
338 /* If the file name has special constructs in it,
339 call the corresponding file handler. */
340 handler
= Ffind_file_name_handler (directory
, Qdirectory_files
);
346 args
[1] = Qdirectory_files
;
351 return Ffuncall (6, args
);
354 return directory_files_internal (directory
, full
, match
, nosort
, 0);
357 DEFUN ("directory-files-and-attributes", Fdirectory_files_and_attributes
, Sdirectory_files_and_attributes
, 1, 4, 0,
358 "Return a list of names of files and their attributes in DIRECTORY.\n\
359 There are three optional arguments:\n\
360 If FULL is non-nil, return absolute file names. Otherwise return names\n\
361 that are relative to the specified directory.\n\
362 If MATCH is non-nil, mention only file names that match the regexp MATCH.\n\
363 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
364 NOSORT is useful if you plan to sort the result yourself.")
365 (directory
, full
, match
, nosort
)
366 Lisp_Object directory
, full
, match
, nosort
;
370 /* If the file name has special constructs in it,
371 call the corresponding file handler. */
372 handler
= Ffind_file_name_handler (directory
, Qdirectory_files_and_attributes
);
378 args
[1] = Qdirectory_files_and_attributes
;
383 return Ffuncall (6, args
);
386 return directory_files_internal (directory
, full
, match
, nosort
, 1);
390 Lisp_Object
file_name_completion ();
392 DEFUN ("file-name-completion", Ffile_name_completion
, Sfile_name_completion
,
394 "Complete file name FILE in directory DIRECTORY.\n\
395 Returns the longest string\n\
396 common to all file names in DIRECTORY that start with FILE.\n\
397 If there is only one and FILE matches it exactly, returns t.\n\
398 Returns nil if DIR contains no name starting with FILE.")
400 Lisp_Object file
, directory
;
404 /* If the directory name has special constructs in it,
405 call the corresponding file handler. */
406 handler
= Ffind_file_name_handler (directory
, Qfile_name_completion
);
408 return call3 (handler
, Qfile_name_completion
, file
, directory
);
410 /* If the file name has special constructs in it,
411 call the corresponding file handler. */
412 handler
= Ffind_file_name_handler (file
, Qfile_name_completion
);
414 return call3 (handler
, Qfile_name_completion
, file
, directory
);
416 return file_name_completion (file
, directory
, 0, 0);
419 DEFUN ("file-name-all-completions", Ffile_name_all_completions
,
420 Sfile_name_all_completions
, 2, 2, 0,
421 "Return a list of all completions of file name FILE in directory DIRECTORY.\n\
422 These are all file names in directory DIRECTORY which begin with FILE.")
424 Lisp_Object file
, directory
;
428 /* If the directory name has special constructs in it,
429 call the corresponding file handler. */
430 handler
= Ffind_file_name_handler (directory
, Qfile_name_all_completions
);
432 return call3 (handler
, Qfile_name_all_completions
, file
, directory
);
434 /* If the file name has special constructs in it,
435 call the corresponding file handler. */
436 handler
= Ffind_file_name_handler (file
, Qfile_name_all_completions
);
438 return call3 (handler
, Qfile_name_all_completions
, file
, directory
);
440 return file_name_completion (file
, directory
, 1, 0);
443 static int file_name_completion_stat ();
446 file_name_completion (file
, dirname
, all_flag
, ver_flag
)
447 Lisp_Object file
, dirname
;
448 int all_flag
, ver_flag
;
451 int bestmatchsize
= 0, skip
;
452 register int compare
, matchsize
;
453 unsigned char *p1
, *p2
;
455 Lisp_Object bestmatch
, tem
, elt
, name
;
456 Lisp_Object encoded_file
;
457 Lisp_Object encoded_dir
;
461 int count
= specpdl_ptr
- specpdl
;
462 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
467 extern DIRENTRY
* readdirver ();
469 DIRENTRY
*((* readfunc
) ());
471 /* Filename completion on VMS ignores case, since VMS filesys does. */
472 specbind (Qcompletion_ignore_case
, Qt
);
476 readfunc
= readdirver
;
477 file
= Fupcase (file
);
479 CHECK_STRING (file
, 0);
482 #ifdef FILE_SYSTEM_CASE
483 file
= FILE_SYSTEM_CASE (file
);
486 encoded_file
= encoded_dir
= Qnil
;
487 GCPRO5 (file
, dirname
, bestmatch
, encoded_file
, encoded_dir
);
488 dirname
= Fexpand_file_name (dirname
, Qnil
);
490 /* Do completion on the encoded file name
491 because the other names in the directory are (we presume)
492 encoded likewise. We decode the completed string at the end. */
493 encoded_file
= ENCODE_FILE (file
);
495 encoded_dir
= ENCODE_FILE (dirname
);
497 /* With passcount = 0, ignore files that end in an ignored extension.
498 If nothing found then try again with passcount = 1, don't ignore them.
499 If looking for all completions, start with passcount = 1,
500 so always take even the ignored ones.
502 ** It would not actually be helpful to the user to ignore any possible
503 completions when making a list of them.** */
505 for (passcount
= !!all_flag
; NILP (bestmatch
) && passcount
< 2; passcount
++)
507 d
= opendir (XSTRING (Fdirectory_file_name (encoded_dir
))->data
);
509 report_file_error ("Opening directory", Fcons (dirname
, Qnil
));
511 /* Loop reading blocks */
512 /* (att3b compiler bug requires do a null comparison this way) */
519 dp
= (*readfunc
) (d
);
527 if (!NILP (Vquit_flag
) && NILP (Vinhibit_quit
))
529 if (! DIRENTRY_NONEMPTY (dp
)
530 || len
< XSTRING (encoded_file
)->size
531 || 0 <= scmp (dp
->d_name
, XSTRING (encoded_file
)->data
,
532 XSTRING (encoded_file
)->size
))
535 if (file_name_completion_stat (encoded_dir
, dp
, &st
) < 0)
538 directoryp
= ((st
.st_mode
& S_IFMT
) == S_IFDIR
);
542 #ifndef TRIVIAL_DIRECTORY_ENTRY
543 #define TRIVIAL_DIRECTORY_ENTRY(n) (!strcmp (n, ".") || !strcmp (n, ".."))
545 /* "." and ".." are never interesting as completions, but are
546 actually in the way in a directory contains only one file. */
547 if (!passcount
&& TRIVIAL_DIRECTORY_ENTRY (dp
->d_name
))
552 /* Compare extensions-to-be-ignored against end of this file name */
553 /* if name is not an exact match against specified string */
554 if (!passcount
&& len
> XSTRING (encoded_file
)->size
)
555 /* and exit this for loop if a match is found */
556 for (tem
= Vcompletion_ignored_extensions
;
557 CONSP (tem
); tem
= XCDR (tem
))
560 if (!STRINGP (elt
)) continue;
561 skip
= len
- XSTRING (elt
)->size
;
562 if (skip
< 0) continue;
564 if (0 <= scmp (dp
->d_name
+ skip
,
566 XSTRING (elt
)->size
))
572 /* If an ignored-extensions match was found,
573 don't process this name as a completion. */
574 if (!passcount
&& CONSP (tem
))
581 XSETFASTINT (zero
, 0);
583 /* Ignore this element if it fails to match all the regexps. */
584 for (regexps
= Vcompletion_regexp_list
; CONSP (regexps
);
585 regexps
= XCDR (regexps
))
587 tem
= Fstring_match (XCAR (regexps
), elt
, zero
);
595 /* Update computation of how much all possible completions match */
599 if (all_flag
|| NILP (bestmatch
))
601 /* This is a possible completion */
604 /* This completion is a directory; make it end with '/' */
605 name
= Ffile_name_as_directory (make_string (dp
->d_name
, len
));
608 name
= make_string (dp
->d_name
, len
);
611 name
= DECODE_FILE (name
);
612 bestmatch
= Fcons (name
, bestmatch
);
617 bestmatchsize
= XSTRING (name
)->size
;
622 compare
= min (bestmatchsize
, len
);
623 p1
= XSTRING (bestmatch
)->data
;
624 p2
= (unsigned char *) dp
->d_name
;
625 matchsize
= scmp(p1
, p2
, compare
);
628 if (completion_ignore_case
)
630 /* If this is an exact match except for case,
631 use it as the best match rather than one that is not
632 an exact match. This way, we get the case pattern
633 of the actual match. */
634 /* This tests that the current file is an exact match
635 but BESTMATCH is not (it is too long). */
636 if ((matchsize
== len
637 && matchsize
+ !!directoryp
638 < XSTRING (bestmatch
)->size
)
640 /* If there is no exact match ignoring case,
641 prefer a match that does not change the case
643 /* If there is more than one exact match aside from
644 case, and one of them is exact including case,
646 /* This == checks that, of current file and BESTMATCH,
647 either both or neither are exact. */
650 (matchsize
+ !!directoryp
651 == XSTRING (bestmatch
)->size
))
652 && !bcmp (p2
, XSTRING (encoded_file
)->data
, XSTRING (encoded_file
)->size
)
653 && bcmp (p1
, XSTRING (encoded_file
)->data
, XSTRING (encoded_file
)->size
)))
655 bestmatch
= make_string (dp
->d_name
, len
);
657 bestmatch
= Ffile_name_as_directory (bestmatch
);
661 /* If this dirname all matches, see if implicit following
664 && compare
== matchsize
665 && bestmatchsize
> matchsize
666 && IS_ANY_SEP (p1
[matchsize
]))
668 bestmatchsize
= matchsize
;
675 bestmatch
= unbind_to (count
, bestmatch
);
677 if (all_flag
|| NILP (bestmatch
))
679 if (STRINGP (bestmatch
))
680 bestmatch
= DECODE_FILE (bestmatch
);
683 if (matchcount
== 1 && bestmatchsize
== XSTRING (file
)->size
)
685 bestmatch
= Fsubstring (bestmatch
, make_number (0),
686 make_number (bestmatchsize
));
687 /* Now that we got the right initial segment of BESTMATCH,
688 decode it from the coding system in use. */
689 bestmatch
= DECODE_FILE (bestmatch
);
695 return Fsignal (Qquit
, Qnil
);
699 file_name_completion_stat (dirname
, dp
, st_addr
)
702 struct stat
*st_addr
;
704 int len
= NAMLEN (dp
);
705 int pos
= XSTRING (dirname
)->size
;
707 char *fullname
= (char *) alloca (len
+ pos
+ 2);
711 /* Some fields of struct stat are *very* expensive to compute on MS-DOS,
712 but aren't required here. Avoid computing the following fields:
713 st_inode, st_size and st_nlink for directories, and the execute bits
714 in st_mode for non-directory files with non-standard extensions. */
716 unsigned short save_djstat_flags
= _djstat_flags
;
718 _djstat_flags
= _STAT_INODE
| _STAT_EXEC_MAGIC
| _STAT_DIRSIZE
;
719 #endif /* __DJGPP__ > 1 */
722 bcopy (XSTRING (dirname
)->data
, fullname
, pos
);
724 if (!IS_DIRECTORY_SEP (fullname
[pos
- 1]))
725 fullname
[pos
++] = DIRECTORY_SEP
;
728 bcopy (dp
->d_name
, fullname
+ pos
, len
);
729 fullname
[pos
+ len
] = 0;
732 /* We want to return success if a link points to a nonexistent file,
733 but we want to return the status for what the link points to,
734 in case it is a directory. */
735 value
= lstat (fullname
, st_addr
);
736 stat (fullname
, st_addr
);
739 value
= stat (fullname
, st_addr
);
742 _djstat_flags
= save_djstat_flags
;
743 #endif /* __DJGPP__ > 1 */
751 DEFUN ("file-name-all-versions", Ffile_name_all_versions
,
752 Sfile_name_all_versions
, 2, 2, 0,
753 "Return a list of all versions of file name FILE in directory DIRECTORY.")
755 Lisp_Object file
, directory
;
757 return file_name_completion (file
, directory
, 1, 1);
760 DEFUN ("file-version-limit", Ffile_version_limit
, Sfile_version_limit
, 1, 1, 0,
761 "Return the maximum number of versions allowed for FILE.\n\
762 Returns nil if the file cannot be opened or if there is no version limit.")
764 Lisp_Object filename
;
769 struct XABFHC xabfhc
;
772 filename
= Fexpand_file_name (filename
, Qnil
);
774 xabfhc
= cc$rms_xabfhc
;
775 fab
.fab$l_fna
= XSTRING (filename
)->data
;
776 fab
.fab$b_fns
= strlen (fab
.fab$l_fna
);
777 fab
.fab$l_xab
= (char *) &xabfhc
;
778 status
= sys$
open (&fab
, 0, 0);
779 if (status
!= RMS$_NORMAL
) /* Probably non-existent file */
781 sys$
close (&fab
, 0, 0);
782 if (xabfhc
.xab$w_verlimit
== 32767)
783 return Qnil
; /* No version limit */
785 return make_number (xabfhc
.xab$w_verlimit
);
794 return Fcons (make_number (time
>> 16),
795 Fcons (make_number (time
& 0177777), Qnil
));
798 DEFUN ("file-attributes", Ffile_attributes
, Sfile_attributes
, 1, 1, 0,
799 "Return a list of attributes of file FILENAME.\n\
800 Value is nil if specified file cannot be opened.\n\
801 Otherwise, list elements are:\n\
802 0. t for directory, string (name linked to) for symbolic link, or nil.\n\
803 1. Number of links to file.\n\
806 4. Last access time, as a list of two integers.\n\
807 First integer has high-order 16 bits of time, second has low 16 bits.\n\
808 5. Last modification time, likewise.\n\
809 6. Last status change time, likewise.\n\
811 This is a floating point number if the size is too large for an integer.\n\
812 8. File modes, as a string of ten letters or dashes as in ls -l.\n\
813 9. t iff file's gid would change if file were deleted and recreated.\n\
814 10. inode number. If inode number is larger than the Emacs integer,\n\
815 this is a cons cell containing two integers: first the high part,\n\
816 then the low 16 bits.\n\
817 11. Device number.\n\
819 If file does not exist, returns nil.")
821 Lisp_Object filename
;
823 Lisp_Object values
[12];
826 #if defined (BSD4_2) || defined (BSD4_3)
833 filename
= Fexpand_file_name (filename
, Qnil
);
835 /* If the file name has special constructs in it,
836 call the corresponding file handler. */
837 handler
= Ffind_file_name_handler (filename
, Qfile_attributes
);
839 return call2 (handler
, Qfile_attributes
, filename
);
841 encoded
= ENCODE_FILE (filename
);
843 if (lstat (XSTRING (encoded
)->data
, &s
) < 0)
846 switch (s
.st_mode
& S_IFMT
)
849 values
[0] = Qnil
; break;
851 values
[0] = Qt
; break;
854 values
[0] = Ffile_symlink_p (filename
); break;
857 values
[1] = make_number (s
.st_nlink
);
858 values
[2] = make_number (s
.st_uid
);
859 values
[3] = make_number (s
.st_gid
);
860 values
[4] = make_time (s
.st_atime
);
861 values
[5] = make_time (s
.st_mtime
);
862 values
[6] = make_time (s
.st_ctime
);
863 values
[7] = make_number (s
.st_size
);
864 /* If the size is out of range for an integer, return a float. */
865 if (XINT (values
[7]) != s
.st_size
)
866 values
[7] = make_float ((double)s
.st_size
);
867 filemodestring (&s
, modes
);
868 values
[8] = make_string (modes
, 10);
869 #if defined (BSD4_2) || defined (BSD4_3) /* file gid will be dir gid */
870 dirname
= Ffile_name_directory (filename
);
871 if (! NILP (dirname
))
872 encoded
= ENCODE_FILE (dirname
);
873 if (! NILP (dirname
) && stat (XSTRING (encoded
)->data
, &sdir
) == 0)
874 values
[9] = (sdir
.st_gid
!= s
.st_gid
) ? Qt
: Qnil
;
875 else /* if we can't tell, assume worst */
877 #else /* file gid will be egid */
878 values
[9] = (s
.st_gid
!= getegid ()) ? Qt
: Qnil
;
879 #endif /* BSD4_2 (or BSD4_3) */
880 /* Cast -1 to avoid warning if int is not as wide as VALBITS. */
881 if (s
.st_ino
& (((EMACS_INT
) (-1)) << VALBITS
))
882 /* To allow inode numbers larger than VALBITS, separate the bottom
884 values
[10] = Fcons (make_number (s
.st_ino
>> 16),
885 make_number (s
.st_ino
& 0xffff));
887 /* But keep the most common cases as integers. */
888 values
[10] = make_number (s
.st_ino
);
890 /* Likewise for device. */
891 if (s
.st_dev
& (((EMACS_INT
) (-1)) << VALBITS
))
892 values
[11] = Fcons (make_number (s
.st_dev
>> 16),
893 make_number (s
.st_dev
& 0xffff));
895 values
[11] = make_number (s
.st_dev
);
897 return Flist (sizeof(values
) / sizeof(values
[0]), values
);
900 DEFUN ("file-attributes-lessp", Ffile_attributes_lessp
, Sfile_attributes_lessp
, 2, 2, 0,
901 "Return t if first arg file attributes list is less than second.\n\
902 Comparison is in lexicographic order and case is significant.")
906 return Fstring_lessp (Fcar (f1
), Fcar (f2
));
912 Qdirectory_files
= intern ("directory-files");
913 Qdirectory_files_and_attributes
= intern ("directory-files-and-attributes");
914 Qfile_name_completion
= intern ("file-name-completion");
915 Qfile_name_all_completions
= intern ("file-name-all-completions");
916 Qfile_attributes
= intern ("file-attributes");
917 Qfile_attributes_lessp
= intern ("file-attributes-lessp");
919 staticpro (&Qdirectory_files
);
920 staticpro (&Qdirectory_files_and_attributes
);
921 staticpro (&Qfile_name_completion
);
922 staticpro (&Qfile_name_all_completions
);
923 staticpro (&Qfile_attributes
);
924 staticpro (&Qfile_attributes_lessp
);
926 defsubr (&Sdirectory_files
);
927 defsubr (&Sdirectory_files_and_attributes
);
928 defsubr (&Sfile_name_completion
);
930 defsubr (&Sfile_name_all_versions
);
931 defsubr (&Sfile_version_limit
);
933 defsubr (&Sfile_name_all_completions
);
934 defsubr (&Sfile_attributes
);
935 defsubr (&Sfile_attributes_lessp
);
938 Qcompletion_ignore_case
= intern ("completion-ignore-case");
939 staticpro (&Qcompletion_ignore_case
);
942 DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions
,
943 "*Completion ignores filenames ending in any string in this list.\n\
944 This variable does not affect lists of possible completions,\n\
945 but does affect the commands that actually do completions.");
946 Vcompletion_ignored_extensions
= Qnil
;