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)
91 #include "character.h"
96 /* Returns a search buffer, with a fastmap allocated and ready to go. */
97 extern struct re_pattern_buffer
*compile_pattern ();
99 /* From filemode.c. Can't go in Lisp.h because of `stat'. */
100 extern void filemodestring
P_ ((struct stat
*, char *));
102 /* if system does not have symbolic links, it does not have lstat.
103 In that case, use ordinary stat instead. */
109 extern int completion_ignore_case
;
110 extern Lisp_Object Vcompletion_regexp_list
;
111 extern Lisp_Object Vfile_name_coding_system
, Vdefault_file_name_coding_system
;
113 Lisp_Object Vcompletion_ignored_extensions
;
114 Lisp_Object Qcompletion_ignore_case
;
115 Lisp_Object Qdirectory_files
;
116 Lisp_Object Qdirectory_files_and_attributes
;
117 Lisp_Object Qfile_name_completion
;
118 Lisp_Object Qfile_name_all_completions
;
119 Lisp_Object Qfile_attributes
;
120 Lisp_Object Qfile_attributes_lessp
;
122 static int scmp
P_ ((unsigned char *, unsigned char *, int));
126 directory_files_internal_unwind (dh
)
129 DIR *d
= (DIR *) ((XINT (XCAR (dh
)) << 16) + XINT (XCDR (dh
)));
134 /* Function shared by Fdirectory_files and Fdirectory_files_and_attributes.
135 When ATTRS is zero, return a list of directory filenames; when
136 non-zero, return a list of directory filenames and their attributes. */
139 directory_files_internal (directory
, full
, match
, nosort
, attrs
)
140 Lisp_Object directory
, full
, match
, nosort
;
144 int directory_nbytes
;
145 Lisp_Object list
, dirfilename
, encoded_directory
;
146 struct re_pattern_buffer
*bufp
= NULL
;
148 int count
= specpdl_ptr
- specpdl
;
149 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
153 /* Because of file name handlers, these functions might call
154 Ffuncall, and cause a GC. */
155 list
= encoded_directory
= dirfilename
= Qnil
;
156 GCPRO5 (match
, directory
, list
, dirfilename
, encoded_directory
);
157 directory
= Fexpand_file_name (directory
, Qnil
);
158 dirfilename
= Fdirectory_file_name (directory
);
162 CHECK_STRING (match
);
164 /* MATCH might be a flawed regular expression. Rather than
165 catching and signaling our own errors, we just call
166 compile_pattern to do the work for us. */
167 /* Pass 1 for the MULTIBYTE arg
168 because we do make multibyte strings if the contents warrant. */
170 bufp
= compile_pattern (match
, 0,
171 buffer_defaults
.downcase_table
, 0, 1);
173 bufp
= compile_pattern (match
, 0, Qnil
, 0, 1);
177 /* Note: ENCODE_FILE and DECODE_FILE can GC because they can run
178 run_pre_post_conversion_on_str which calls Lisp directly and
180 dirfilename
= ENCODE_FILE (dirfilename
);
181 encoded_directory
= ENCODE_FILE (directory
);
183 /* Now *bufp is the compiled form of MATCH; don't call anything
184 which might compile a new regexp until we're done with the loop! */
186 /* Do this opendir after anything which might signal an error; if
187 an error is signaled while the directory stream is open, we
188 have to make sure it gets closed, and setting up an
189 unwind_protect to do so would be a pain. */
192 d
= opendir (XSTRING (dirfilename
)->data
);
194 report_file_error ("Opening directory", Fcons (directory
, Qnil
));
196 /* Unfortunately, we can now invoke expand-file-name and
197 file-attributes on filenames, both of which can throw, so we must
198 do a proper unwind-protect. */
199 record_unwind_protect (directory_files_internal_unwind
,
200 Fcons (make_number (((unsigned long) d
) >> 16),
201 make_number (((unsigned long) d
) & 0xffff)));
203 directory_nbytes
= STRING_BYTES (XSTRING (directory
));
204 re_match_object
= Qt
;
206 /* Decide whether we need to add a directory separator. */
208 if (directory_nbytes
== 0
209 || !IS_ANY_SEP (XSTRING (directory
)->data
[directory_nbytes
- 1]))
213 /* Loop reading blocks until EOF or error. */
220 if (dp
== NULL
&& errno
== EAGAIN
)
227 if (DIRENTRY_NONEMPTY (dp
))
231 Lisp_Object name
, finalname
;
232 struct gcpro gcpro1
, gcpro2
;
235 name
= finalname
= make_unibyte_string (dp
->d_name
, len
);
236 GCPRO2 (finalname
, name
);
238 /* Note: ENCODE_FILE can GC; it should protect its argument,
240 name
= DECODE_FILE (name
);
241 len
= STRING_BYTES (XSTRING (name
));
243 /* Now that we have unwind_protect in place, we might as well
244 allow matching to be interrupted. */
249 || (0 <= re_search (bufp
, XSTRING (name
)->data
, len
, 0, len
, 0)))
258 Lisp_Object fullname
;
259 int nbytes
= len
+ directory_nbytes
+ needsep
;
262 fullname
= make_uninit_multibyte_string (nbytes
, nbytes
);
263 bcopy (XSTRING (directory
)->data
, XSTRING (fullname
)->data
,
267 XSTRING (fullname
)->data
[directory_nbytes
] = DIRECTORY_SEP
;
269 bcopy (XSTRING (name
)->data
,
270 XSTRING (fullname
)->data
+ directory_nbytes
+ needsep
,
273 nchars
= chars_in_text (XSTRING (fullname
)->data
, nbytes
);
275 /* Some bug somewhere. */
279 XSTRING (fullname
)->size
= nchars
;
280 if (nchars
== nbytes
)
281 SET_STRING_BYTES (XSTRING (fullname
), -1);
283 finalname
= fullname
;
290 /* Construct an expanded filename for the directory entry.
291 Use the decoded names for input to Ffile_attributes. */
292 Lisp_Object decoded_fullname
, fileattrs
;
293 struct gcpro gcpro1
, gcpro2
;
295 decoded_fullname
= fileattrs
= Qnil
;
296 GCPRO2 (decoded_fullname
, fileattrs
);
298 /* Both Fexpand_file_name and Ffile_attributes can GC. */
299 decoded_fullname
= Fexpand_file_name (name
, directory
);
300 fileattrs
= Ffile_attributes (decoded_fullname
);
302 list
= Fcons (Fcons (finalname
, fileattrs
), list
);
306 list
= Fcons (finalname
, list
);
315 retry_p
|= errno
== EINTR
;
320 /* Discard the unwind protect. */
321 specpdl_ptr
= specpdl
+ count
;
330 list
= Fsort (Fnreverse (list
),
331 attrs
? Qfile_attributes_lessp
: Qstring_lessp
);
333 RETURN_UNGCPRO (list
);
337 DEFUN ("directory-files", Fdirectory_files
, Sdirectory_files
, 1, 4, 0,
338 doc
: /* Return a list of names of files in DIRECTORY.
339 There are three optional arguments:
340 If FULL is non-nil, return absolute file names. Otherwise return names
341 that are relative to the specified directory.
342 If MATCH is non-nil, mention only file names that match the regexp MATCH.
343 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
344 NOSORT is useful if you plan to sort the result yourself. */)
345 (directory
, full
, match
, nosort
)
346 Lisp_Object directory
, full
, match
, nosort
;
350 /* If the file name has special constructs in it,
351 call the corresponding file handler. */
352 handler
= Ffind_file_name_handler (directory
, Qdirectory_files
);
358 args
[1] = Qdirectory_files
;
363 return Ffuncall (6, args
);
366 return directory_files_internal (directory
, full
, match
, nosort
, 0);
369 DEFUN ("directory-files-and-attributes", Fdirectory_files_and_attributes
,
370 Sdirectory_files_and_attributes
, 1, 4, 0,
371 doc
: /* Return a list of names of files and their attributes in DIRECTORY.
372 There are three optional arguments:
373 If FULL is non-nil, return absolute file names. Otherwise return names
374 that are relative to the specified directory.
375 If MATCH is non-nil, mention only file names that match the regexp MATCH.
376 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
377 NOSORT is useful if you plan to sort the result yourself. */)
378 (directory
, full
, match
, nosort
)
379 Lisp_Object directory
, full
, match
, nosort
;
383 /* If the file name has special constructs in it,
384 call the corresponding file handler. */
385 handler
= Ffind_file_name_handler (directory
, Qdirectory_files_and_attributes
);
391 args
[1] = Qdirectory_files_and_attributes
;
396 return Ffuncall (6, args
);
399 return directory_files_internal (directory
, full
, match
, nosort
, 1);
403 Lisp_Object
file_name_completion ();
405 DEFUN ("file-name-completion", Ffile_name_completion
, Sfile_name_completion
,
407 doc
: /* Complete file name FILE in directory DIRECTORY.
408 Returns the longest string
409 common to all file names in DIRECTORY that start with FILE.
410 If there is only one and FILE matches it exactly, returns t.
411 Returns nil if DIR contains no name starting with FILE.
413 This function ignores some of the possible completions as
414 determined by the variable `completion-ignored-extensions', which see. */)
416 Lisp_Object file
, directory
;
420 /* If the directory name has special constructs in it,
421 call the corresponding file handler. */
422 handler
= Ffind_file_name_handler (directory
, Qfile_name_completion
);
424 return call3 (handler
, Qfile_name_completion
, file
, directory
);
426 /* If the file name has special constructs in it,
427 call the corresponding file handler. */
428 handler
= Ffind_file_name_handler (file
, Qfile_name_completion
);
430 return call3 (handler
, Qfile_name_completion
, file
, directory
);
432 return file_name_completion (file
, directory
, 0, 0);
435 DEFUN ("file-name-all-completions", Ffile_name_all_completions
,
436 Sfile_name_all_completions
, 2, 2, 0,
437 doc
: /* Return a list of all completions of file name FILE in directory DIRECTORY.
438 These are all file names in directory DIRECTORY which begin with FILE. */)
440 Lisp_Object file
, directory
;
444 /* If the directory name has special constructs in it,
445 call the corresponding file handler. */
446 handler
= Ffind_file_name_handler (directory
, Qfile_name_all_completions
);
448 return call3 (handler
, Qfile_name_all_completions
, file
, directory
);
450 /* If the file name has special constructs in it,
451 call the corresponding file handler. */
452 handler
= Ffind_file_name_handler (file
, Qfile_name_all_completions
);
454 return call3 (handler
, Qfile_name_all_completions
, file
, directory
);
456 return file_name_completion (file
, directory
, 1, 0);
459 static int file_name_completion_stat ();
462 file_name_completion (file
, dirname
, all_flag
, ver_flag
)
463 Lisp_Object file
, dirname
;
464 int all_flag
, ver_flag
;
467 int bestmatchsize
= 0, skip
;
468 register int compare
, matchsize
;
469 unsigned char *p1
, *p2
;
471 Lisp_Object bestmatch
, tem
, elt
, name
;
472 Lisp_Object encoded_file
;
473 Lisp_Object encoded_dir
;
477 int count
= specpdl_ptr
- specpdl
;
478 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
483 extern DIRENTRY
* readdirver ();
485 DIRENTRY
*((* readfunc
) ());
487 /* Filename completion on VMS ignores case, since VMS filesys does. */
488 specbind (Qcompletion_ignore_case
, Qt
);
492 readfunc
= readdirver
;
493 file
= Fupcase (file
);
498 #ifdef FILE_SYSTEM_CASE
499 file
= FILE_SYSTEM_CASE (file
);
502 encoded_file
= encoded_dir
= Qnil
;
503 GCPRO5 (file
, dirname
, bestmatch
, encoded_file
, encoded_dir
);
504 dirname
= Fexpand_file_name (dirname
, Qnil
);
506 /* Do completion on the encoded file name
507 because the other names in the directory are (we presume)
508 encoded likewise. We decode the completed string at the end. */
509 encoded_file
= ENCODE_FILE (file
);
511 encoded_dir
= ENCODE_FILE (dirname
);
513 /* With passcount = 0, ignore files that end in an ignored extension.
514 If nothing found then try again with passcount = 1, don't ignore them.
515 If looking for all completions, start with passcount = 1,
516 so always take even the ignored ones.
518 ** It would not actually be helpful to the user to ignore any possible
519 completions when making a list of them.** */
521 for (passcount
= !!all_flag
; NILP (bestmatch
) && passcount
< 2; passcount
++)
523 d
= opendir (XSTRING (Fdirectory_file_name (encoded_dir
))->data
);
525 report_file_error ("Opening directory", Fcons (dirname
, Qnil
));
527 /* Loop reading blocks */
528 /* (att3b compiler bug requires do a null comparison this way) */
535 dp
= (*readfunc
) (d
);
543 if (!NILP (Vquit_flag
) && NILP (Vinhibit_quit
))
545 if (! DIRENTRY_NONEMPTY (dp
)
546 || len
< XSTRING (encoded_file
)->size
547 || 0 <= scmp (dp
->d_name
, XSTRING (encoded_file
)->data
,
548 XSTRING (encoded_file
)->size
))
551 if (file_name_completion_stat (encoded_dir
, dp
, &st
) < 0)
554 directoryp
= ((st
.st_mode
& S_IFMT
) == S_IFDIR
);
558 #ifndef TRIVIAL_DIRECTORY_ENTRY
559 #define TRIVIAL_DIRECTORY_ENTRY(n) (!strcmp (n, ".") || !strcmp (n, ".."))
561 /* "." and ".." are never interesting as completions, but are
562 actually in the way in a directory contains only one file. */
563 if (!passcount
&& TRIVIAL_DIRECTORY_ENTRY (dp
->d_name
))
565 if (!passcount
&& len
> XSTRING (encoded_file
)->size
)
566 /* Ignore directories if they match an element of
567 completion-ignored-extensions which ends in a slash. */
568 for (tem
= Vcompletion_ignored_extensions
;
569 CONSP (tem
); tem
= XCDR (tem
))
576 /* Need to encode ELT, since scmp compares unibyte
578 elt
= ENCODE_FILE (elt
);
579 elt_len
= XSTRING (elt
)->size
- 1; /* -1 for trailing / */
582 p1
= XSTRING (elt
)->data
;
583 if (p1
[elt_len
] != '/')
585 skip
= len
- elt_len
;
589 if (0 <= scmp (dp
->d_name
+ skip
, p1
, elt_len
))
596 /* Compare extensions-to-be-ignored against end of this file name */
597 /* if name is not an exact match against specified string */
598 if (!passcount
&& len
> XSTRING (encoded_file
)->size
)
599 /* and exit this for loop if a match is found */
600 for (tem
= Vcompletion_ignored_extensions
;
601 CONSP (tem
); tem
= XCDR (tem
))
604 if (!STRINGP (elt
)) continue;
605 /* Need to encode ELT, since scmp compares unibyte
607 elt
= ENCODE_FILE (elt
);
608 skip
= len
- XSTRING (elt
)->size
;
609 if (skip
< 0) continue;
611 if (0 <= scmp (dp
->d_name
+ skip
,
613 XSTRING (elt
)->size
))
619 /* If an ignored-extensions match was found,
620 don't process this name as a completion. */
621 if (!passcount
&& CONSP (tem
))
628 XSETFASTINT (zero
, 0);
630 /* Ignore this element if it fails to match all the regexps. */
631 for (regexps
= Vcompletion_regexp_list
; CONSP (regexps
);
632 regexps
= XCDR (regexps
))
634 tem
= Fstring_match (XCAR (regexps
),
635 make_string (dp
->d_name
, len
), zero
);
643 /* Update computation of how much all possible completions match */
647 if (all_flag
|| NILP (bestmatch
))
649 /* This is a possible completion */
652 /* This completion is a directory; make it end with '/' */
653 name
= Ffile_name_as_directory (make_string (dp
->d_name
, len
));
656 name
= make_string (dp
->d_name
, len
);
659 name
= DECODE_FILE (name
);
660 bestmatch
= Fcons (name
, bestmatch
);
665 bestmatchsize
= XSTRING (name
)->size
;
670 compare
= min (bestmatchsize
, len
);
671 p1
= XSTRING (bestmatch
)->data
;
672 p2
= (unsigned char *) dp
->d_name
;
673 matchsize
= scmp(p1
, p2
, compare
);
676 if (completion_ignore_case
)
678 /* If this is an exact match except for case,
679 use it as the best match rather than one that is not
680 an exact match. This way, we get the case pattern
681 of the actual match. */
682 /* This tests that the current file is an exact match
683 but BESTMATCH is not (it is too long). */
684 if ((matchsize
== len
685 && matchsize
+ !!directoryp
686 < XSTRING (bestmatch
)->size
)
688 /* If there is no exact match ignoring case,
689 prefer a match that does not change the case
691 /* If there is more than one exact match aside from
692 case, and one of them is exact including case,
694 /* This == checks that, of current file and BESTMATCH,
695 either both or neither are exact. */
698 (matchsize
+ !!directoryp
699 == XSTRING (bestmatch
)->size
))
700 && !bcmp (p2
, XSTRING (encoded_file
)->data
, XSTRING (encoded_file
)->size
)
701 && bcmp (p1
, XSTRING (encoded_file
)->data
, XSTRING (encoded_file
)->size
)))
703 bestmatch
= make_string (dp
->d_name
, len
);
705 bestmatch
= Ffile_name_as_directory (bestmatch
);
709 /* If this dirname all matches, see if implicit following
712 && compare
== matchsize
713 && bestmatchsize
> matchsize
714 && IS_ANY_SEP (p1
[matchsize
]))
716 bestmatchsize
= matchsize
;
723 bestmatch
= unbind_to (count
, bestmatch
);
725 if (all_flag
|| NILP (bestmatch
))
727 if (STRINGP (bestmatch
))
728 bestmatch
= DECODE_FILE (bestmatch
);
731 if (matchcount
== 1 && bestmatchsize
== XSTRING (file
)->size
)
733 bestmatch
= Fsubstring (bestmatch
, make_number (0),
734 make_number (bestmatchsize
));
735 /* Now that we got the right initial segment of BESTMATCH,
736 decode it from the coding system in use. */
737 bestmatch
= DECODE_FILE (bestmatch
);
743 return Fsignal (Qquit
, Qnil
);
746 /* Compare exactly LEN chars of strings at S1 and S2,
747 ignoring case if appropriate.
748 Return -1 if strings match,
749 else number of chars that match at the beginning. */
753 register unsigned char *s1
, *s2
;
756 register int l
= len
;
758 if (completion_ignore_case
)
760 while (l
&& DOWNCASE (*s1
++) == DOWNCASE (*s2
++))
765 while (l
&& *s1
++ == *s2
++)
775 file_name_completion_stat (dirname
, dp
, st_addr
)
778 struct stat
*st_addr
;
780 int len
= NAMLEN (dp
);
781 int pos
= XSTRING (dirname
)->size
;
783 char *fullname
= (char *) alloca (len
+ pos
+ 2);
787 /* Some fields of struct stat are *very* expensive to compute on MS-DOS,
788 but aren't required here. Avoid computing the following fields:
789 st_inode, st_size and st_nlink for directories, and the execute bits
790 in st_mode for non-directory files with non-standard extensions. */
792 unsigned short save_djstat_flags
= _djstat_flags
;
794 _djstat_flags
= _STAT_INODE
| _STAT_EXEC_MAGIC
| _STAT_DIRSIZE
;
795 #endif /* __DJGPP__ > 1 */
798 bcopy (XSTRING (dirname
)->data
, fullname
, pos
);
800 if (!IS_DIRECTORY_SEP (fullname
[pos
- 1]))
801 fullname
[pos
++] = DIRECTORY_SEP
;
804 bcopy (dp
->d_name
, fullname
+ pos
, len
);
805 fullname
[pos
+ len
] = 0;
808 /* We want to return success if a link points to a nonexistent file,
809 but we want to return the status for what the link points to,
810 in case it is a directory. */
811 value
= lstat (fullname
, st_addr
);
812 stat (fullname
, st_addr
);
815 value
= stat (fullname
, st_addr
);
818 _djstat_flags
= save_djstat_flags
;
819 #endif /* __DJGPP__ > 1 */
827 DEFUN ("file-name-all-versions", Ffile_name_all_versions
,
828 Sfile_name_all_versions
, 2, 2, 0,
829 doc
: /* Return a list of all versions of file name FILE in directory DIRECTORY. */)
831 Lisp_Object file
, directory
;
833 return file_name_completion (file
, directory
, 1, 1);
836 DEFUN ("file-version-limit", Ffile_version_limit
, Sfile_version_limit
, 1, 1, 0,
837 doc
: /* Return the maximum number of versions allowed for FILE.
838 Returns nil if the file cannot be opened or if there is no version limit. */)
840 Lisp_Object filename
;
845 struct XABFHC xabfhc
;
848 filename
= Fexpand_file_name (filename
, Qnil
);
850 xabfhc
= cc$rms_xabfhc
;
851 fab
.fab$l_fna
= XSTRING (filename
)->data
;
852 fab
.fab$b_fns
= strlen (fab
.fab$l_fna
);
853 fab
.fab$l_xab
= (char *) &xabfhc
;
854 status
= sys$
open (&fab
, 0, 0);
855 if (status
!= RMS$_NORMAL
) /* Probably non-existent file */
857 sys$
close (&fab
, 0, 0);
858 if (xabfhc
.xab$w_verlimit
== 32767)
859 return Qnil
; /* No version limit */
861 return make_number (xabfhc
.xab$w_verlimit
);
870 return Fcons (make_number (time
>> 16),
871 Fcons (make_number (time
& 0177777), Qnil
));
874 DEFUN ("file-attributes", Ffile_attributes
, Sfile_attributes
, 1, 1, 0,
875 doc
: /* Return a list of attributes of file FILENAME.
876 Value is nil if specified file cannot be opened.
877 Otherwise, list elements are:
878 0. t for directory, string (name linked to) for symbolic link, or nil.
879 1. Number of links to file.
882 4. Last access time, as a list of two integers.
883 First integer has high-order 16 bits of time, second has low 16 bits.
884 5. Last modification time, likewise.
885 6. Last status change time, likewise.
887 This is a floating point number if the size is too large for an integer.
888 8. File modes, as a string of ten letters or dashes as in ls -l.
889 9. t iff file's gid would change if file were deleted and recreated.
890 10. inode number. If inode number is larger than the Emacs integer,
891 this is a cons cell containing two integers: first the high part,
892 then the low 16 bits.
893 11. Device number. If it is larger than the Emacs integer, this is
894 a cons cell, similar to the inode number.
896 If file does not exist, returns nil. */)
898 Lisp_Object filename
;
900 Lisp_Object values
[12];
903 #if defined (BSD4_2) || defined (BSD4_3)
910 filename
= Fexpand_file_name (filename
, Qnil
);
912 /* If the file name has special constructs in it,
913 call the corresponding file handler. */
914 handler
= Ffind_file_name_handler (filename
, Qfile_attributes
);
916 return call2 (handler
, Qfile_attributes
, filename
);
918 encoded
= ENCODE_FILE (filename
);
920 if (lstat (XSTRING (encoded
)->data
, &s
) < 0)
923 switch (s
.st_mode
& S_IFMT
)
926 values
[0] = Qnil
; break;
928 values
[0] = Qt
; break;
931 values
[0] = Ffile_symlink_p (filename
); break;
934 values
[1] = make_number (s
.st_nlink
);
935 values
[2] = make_number (s
.st_uid
);
936 values
[3] = make_number (s
.st_gid
);
937 values
[4] = make_time (s
.st_atime
);
938 values
[5] = make_time (s
.st_mtime
);
939 values
[6] = make_time (s
.st_ctime
);
940 values
[7] = make_number (s
.st_size
);
941 /* If the size is out of range for an integer, return a float. */
942 if (XINT (values
[7]) != s
.st_size
)
943 values
[7] = make_float ((double)s
.st_size
);
944 filemodestring (&s
, modes
);
945 values
[8] = make_string (modes
, 10);
946 #if defined (BSD4_2) || defined (BSD4_3) /* file gid will be dir gid */
947 dirname
= Ffile_name_directory (filename
);
948 if (! NILP (dirname
))
949 encoded
= ENCODE_FILE (dirname
);
950 if (! NILP (dirname
) && stat (XSTRING (encoded
)->data
, &sdir
) == 0)
951 values
[9] = (sdir
.st_gid
!= s
.st_gid
) ? Qt
: Qnil
;
952 else /* if we can't tell, assume worst */
954 #else /* file gid will be egid */
955 values
[9] = (s
.st_gid
!= getegid ()) ? Qt
: Qnil
;
956 #endif /* BSD4_2 (or BSD4_3) */
957 /* Cast -1 to avoid warning if int is not as wide as VALBITS. */
958 if (FIXNUM_OVERFLOW_P (s
.st_ino
))
959 /* To allow inode numbers larger than VALBITS, separate the bottom
961 values
[10] = Fcons (make_number (s
.st_ino
>> 16),
962 make_number (s
.st_ino
& 0xffff));
964 /* But keep the most common cases as integers. */
965 values
[10] = make_number (s
.st_ino
);
967 /* Likewise for device. */
968 if (FIXNUM_OVERFLOW_P (s
.st_dev
))
969 values
[11] = Fcons (make_number (s
.st_dev
>> 16),
970 make_number (s
.st_dev
& 0xffff));
972 values
[11] = make_number (s
.st_dev
);
974 return Flist (sizeof(values
) / sizeof(values
[0]), values
);
977 DEFUN ("file-attributes-lessp", Ffile_attributes_lessp
, Sfile_attributes_lessp
, 2, 2, 0,
978 doc
: /* Return t if first arg file attributes list is less than second.
979 Comparison is in lexicographic order and case is significant. */)
983 return Fstring_lessp (Fcar (f1
), Fcar (f2
));
989 Qdirectory_files
= intern ("directory-files");
990 Qdirectory_files_and_attributes
= intern ("directory-files-and-attributes");
991 Qfile_name_completion
= intern ("file-name-completion");
992 Qfile_name_all_completions
= intern ("file-name-all-completions");
993 Qfile_attributes
= intern ("file-attributes");
994 Qfile_attributes_lessp
= intern ("file-attributes-lessp");
996 staticpro (&Qdirectory_files
);
997 staticpro (&Qdirectory_files_and_attributes
);
998 staticpro (&Qfile_name_completion
);
999 staticpro (&Qfile_name_all_completions
);
1000 staticpro (&Qfile_attributes
);
1001 staticpro (&Qfile_attributes_lessp
);
1003 defsubr (&Sdirectory_files
);
1004 defsubr (&Sdirectory_files_and_attributes
);
1005 defsubr (&Sfile_name_completion
);
1007 defsubr (&Sfile_name_all_versions
);
1008 defsubr (&Sfile_version_limit
);
1010 defsubr (&Sfile_name_all_completions
);
1011 defsubr (&Sfile_attributes
);
1012 defsubr (&Sfile_attributes_lessp
);
1015 Qcompletion_ignore_case
= intern ("completion-ignore-case");
1016 staticpro (&Qcompletion_ignore_case
);
1019 DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions
,
1020 doc
: /* *Completion ignores filenames ending in any string in this list.
1021 Directories are ignored if they match any string in this list which
1023 This variable does not affect lists of possible completions,
1024 but does affect the commands that actually do completions. */);
1025 Vcompletion_ignored_extensions
= Qnil
;