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. */
138 directory_files_internal (directory
, full
, match
, nosort
, attrs
)
139 Lisp_Object directory
, full
, match
, nosort
;
143 int directory_nbytes
;
144 Lisp_Object list
, dirfilename
, encoded_directory
;
145 struct re_pattern_buffer
*bufp
= NULL
;
147 int count
= specpdl_ptr
- specpdl
;
148 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
152 /* Because of file name handlers, these functions might call
153 Ffuncall, and cause a GC. */
154 list
= encoded_directory
= dirfilename
= Qnil
;
155 GCPRO5 (match
, directory
, list
, dirfilename
, encoded_directory
);
156 directory
= Fexpand_file_name (directory
, Qnil
);
157 dirfilename
= Fdirectory_file_name (directory
);
161 CHECK_STRING (match
, 3);
163 /* MATCH might be a flawed regular expression. Rather than
164 catching and signaling our own errors, we just call
165 compile_pattern to do the work for us. */
166 /* Pass 1 for the MULTIBYTE arg
167 because we do make multibyte strings if the contents warrant. */
169 bufp
= compile_pattern (match
, 0,
170 buffer_defaults
.downcase_table
, 0, 1);
172 bufp
= compile_pattern (match
, 0, Qnil
, 0, 1);
176 /* Note: ENCODE_FILE and DECODE_FILE can GC because they can run
177 run_pre_post_conversion_on_str which calls Lisp directly and
179 dirfilename
= ENCODE_FILE (dirfilename
);
180 encoded_directory
= ENCODE_FILE (directory
);
182 /* Now *bufp is the compiled form of MATCH; don't call anything
183 which might compile a new regexp until we're done with the loop! */
185 /* Do this opendir after anything which might signal an error; if
186 an error is signaled while the directory stream is open, we
187 have to make sure it gets closed, and setting up an
188 unwind_protect to do so would be a pain. */
191 d
= opendir (XSTRING (dirfilename
)->data
);
193 report_file_error ("Opening directory", Fcons (directory
, Qnil
));
195 /* Unfortunately, we can now invoke expand-file-name and
196 file-attributes on filenames, both of which can throw, so we must
197 do a proper unwind-protect. */
198 record_unwind_protect (directory_files_internal_unwind
,
199 Fcons (make_number (((unsigned long) d
) >> 16),
200 make_number (((unsigned long) d
) & 0xffff)));
202 directory_nbytes
= STRING_BYTES (XSTRING (directory
));
203 re_match_object
= Qt
;
205 /* Decide whether we need to add a directory separator. */
207 if (directory_nbytes
== 0
208 || !IS_ANY_SEP (XSTRING (directory
)->data
[directory_nbytes
- 1]))
212 /* Loop reading blocks until EOF or error. */
219 if (dp
== NULL
&& errno
== EAGAIN
)
226 if (DIRENTRY_NONEMPTY (dp
))
230 Lisp_Object name
, finalname
;
231 struct gcpro gcpro1
, gcpro2
;
234 name
= finalname
= make_unibyte_string (dp
->d_name
, len
);
235 GCPRO2 (finalname
, name
);
237 /* Note: ENCODE_FILE can GC; it should protect its argument,
239 name
= DECODE_FILE (name
);
240 len
= STRING_BYTES (XSTRING (name
));
242 /* Now that we have unwind_protect in place, we might as well
243 allow matching to be interrupted. */
248 || (0 <= re_search (bufp
, XSTRING (name
)->data
, len
, 0, len
, 0)))
257 Lisp_Object fullname
;
258 int nbytes
= len
+ directory_nbytes
+ needsep
;
261 fullname
= make_uninit_multibyte_string (nbytes
, nbytes
);
262 bcopy (XSTRING (directory
)->data
, XSTRING (fullname
)->data
,
266 XSTRING (fullname
)->data
[directory_nbytes
] = DIRECTORY_SEP
;
268 bcopy (XSTRING (name
)->data
,
269 XSTRING (fullname
)->data
+ directory_nbytes
+ needsep
,
272 nchars
= chars_in_text (XSTRING (fullname
)->data
, nbytes
);
274 /* Some bug somewhere. */
278 XSTRING (fullname
)->size
= nchars
;
279 if (nchars
== nbytes
)
280 SET_STRING_BYTES (XSTRING (fullname
), -1);
282 finalname
= fullname
;
289 /* Construct an expanded filename for the directory entry.
290 Use the decoded names for input to Ffile_attributes. */
291 Lisp_Object decoded_fullname
, fileattrs
;
292 struct gcpro gcpro1
, gcpro2
;
294 decoded_fullname
= fileattrs
= Qnil
;
295 GCPRO2 (decoded_fullname
, fileattrs
);
297 /* Both Fexpand_file_name and Ffile_attributes can GC. */
298 decoded_fullname
= Fexpand_file_name (name
, directory
);
299 fileattrs
= Ffile_attributes (decoded_fullname
);
301 list
= Fcons (Fcons (finalname
, fileattrs
), list
);
305 list
= Fcons (finalname
, list
);
314 retry_p
|= errno
== EINTR
;
319 /* Discard the unwind protect. */
320 specpdl_ptr
= specpdl
+ count
;
329 list
= Fsort (Fnreverse (list
),
330 attrs
? Qfile_attributes_lessp
: Qstring_lessp
);
332 RETURN_UNGCPRO (list
);
336 DEFUN ("directory-files", Fdirectory_files
, Sdirectory_files
, 1, 4, 0,
337 "Return a list of names of files in DIRECTORY.\n\
338 There are three optional arguments:\n\
339 If FULL is non-nil, return absolute file names. Otherwise return names\n\
340 that are relative to the specified directory.\n\
341 If MATCH is non-nil, mention only file names that match the regexp MATCH.\n\
342 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
343 NOSORT is useful if you plan to sort the result yourself.")
344 (directory
, full
, match
, nosort
)
345 Lisp_Object directory
, full
, match
, nosort
;
349 /* If the file name has special constructs in it,
350 call the corresponding file handler. */
351 handler
= Ffind_file_name_handler (directory
, Qdirectory_files
);
357 args
[1] = Qdirectory_files
;
362 return Ffuncall (6, args
);
365 return directory_files_internal (directory
, full
, match
, nosort
, 0);
368 DEFUN ("directory-files-and-attributes", Fdirectory_files_and_attributes
, Sdirectory_files_and_attributes
, 1, 4, 0,
369 "Return a list of names of files and their attributes in DIRECTORY.\n\
370 There are three optional arguments:\n\
371 If FULL is non-nil, return absolute file names. Otherwise return names\n\
372 that are relative to the specified directory.\n\
373 If MATCH is non-nil, mention only file names that match the regexp MATCH.\n\
374 If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
375 NOSORT is useful if you plan to sort the result yourself.")
376 (directory
, full
, match
, nosort
)
377 Lisp_Object directory
, full
, match
, nosort
;
381 /* If the file name has special constructs in it,
382 call the corresponding file handler. */
383 handler
= Ffind_file_name_handler (directory
, Qdirectory_files_and_attributes
);
389 args
[1] = Qdirectory_files_and_attributes
;
394 return Ffuncall (6, args
);
397 return directory_files_internal (directory
, full
, match
, nosort
, 1);
401 Lisp_Object
file_name_completion ();
403 DEFUN ("file-name-completion", Ffile_name_completion
, Sfile_name_completion
,
405 "Complete file name FILE in directory DIRECTORY.\n\
406 Returns the longest string\n\
407 common to all file names in DIRECTORY that start with FILE.\n\
408 If there is only one and FILE matches it exactly, returns t.\n\
409 Returns nil if DIR contains no name starting with FILE.")
411 Lisp_Object file
, directory
;
415 /* If the directory name has special constructs in it,
416 call the corresponding file handler. */
417 handler
= Ffind_file_name_handler (directory
, Qfile_name_completion
);
419 return call3 (handler
, Qfile_name_completion
, file
, directory
);
421 /* If the file name has special constructs in it,
422 call the corresponding file handler. */
423 handler
= Ffind_file_name_handler (file
, Qfile_name_completion
);
425 return call3 (handler
, Qfile_name_completion
, file
, directory
);
427 return file_name_completion (file
, directory
, 0, 0);
430 DEFUN ("file-name-all-completions", Ffile_name_all_completions
,
431 Sfile_name_all_completions
, 2, 2, 0,
432 "Return a list of all completions of file name FILE in directory DIRECTORY.\n\
433 These are all file names in directory DIRECTORY which begin with FILE.")
435 Lisp_Object file
, directory
;
439 /* If the directory name has special constructs in it,
440 call the corresponding file handler. */
441 handler
= Ffind_file_name_handler (directory
, Qfile_name_all_completions
);
443 return call3 (handler
, Qfile_name_all_completions
, file
, directory
);
445 /* If the file name has special constructs in it,
446 call the corresponding file handler. */
447 handler
= Ffind_file_name_handler (file
, Qfile_name_all_completions
);
449 return call3 (handler
, Qfile_name_all_completions
, file
, directory
);
451 return file_name_completion (file
, directory
, 1, 0);
454 static int file_name_completion_stat ();
457 file_name_completion (file
, dirname
, all_flag
, ver_flag
)
458 Lisp_Object file
, dirname
;
459 int all_flag
, ver_flag
;
462 int bestmatchsize
= 0, skip
;
463 register int compare
, matchsize
;
464 unsigned char *p1
, *p2
;
466 Lisp_Object bestmatch
, tem
, elt
, name
;
467 Lisp_Object encoded_file
;
468 Lisp_Object encoded_dir
;
472 int count
= specpdl_ptr
- specpdl
;
473 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
;
478 extern DIRENTRY
* readdirver ();
480 DIRENTRY
*((* readfunc
) ());
482 /* Filename completion on VMS ignores case, since VMS filesys does. */
483 specbind (Qcompletion_ignore_case
, Qt
);
487 readfunc
= readdirver
;
488 file
= Fupcase (file
);
490 CHECK_STRING (file
, 0);
493 #ifdef FILE_SYSTEM_CASE
494 file
= FILE_SYSTEM_CASE (file
);
497 encoded_file
= encoded_dir
= Qnil
;
498 GCPRO5 (file
, dirname
, bestmatch
, encoded_file
, encoded_dir
);
499 dirname
= Fexpand_file_name (dirname
, Qnil
);
501 /* Do completion on the encoded file name
502 because the other names in the directory are (we presume)
503 encoded likewise. We decode the completed string at the end. */
504 encoded_file
= ENCODE_FILE (file
);
506 encoded_dir
= ENCODE_FILE (dirname
);
508 /* With passcount = 0, ignore files that end in an ignored extension.
509 If nothing found then try again with passcount = 1, don't ignore them.
510 If looking for all completions, start with passcount = 1,
511 so always take even the ignored ones.
513 ** It would not actually be helpful to the user to ignore any possible
514 completions when making a list of them.** */
516 for (passcount
= !!all_flag
; NILP (bestmatch
) && passcount
< 2; passcount
++)
518 d
= opendir (XSTRING (Fdirectory_file_name (encoded_dir
))->data
);
520 report_file_error ("Opening directory", Fcons (dirname
, Qnil
));
522 /* Loop reading blocks */
523 /* (att3b compiler bug requires do a null comparison this way) */
530 dp
= (*readfunc
) (d
);
538 if (!NILP (Vquit_flag
) && NILP (Vinhibit_quit
))
540 if (! DIRENTRY_NONEMPTY (dp
)
541 || len
< XSTRING (encoded_file
)->size
542 || 0 <= scmp (dp
->d_name
, XSTRING (encoded_file
)->data
,
543 XSTRING (encoded_file
)->size
))
546 if (file_name_completion_stat (encoded_dir
, dp
, &st
) < 0)
549 directoryp
= ((st
.st_mode
& S_IFMT
) == S_IFDIR
);
553 #ifndef TRIVIAL_DIRECTORY_ENTRY
554 #define TRIVIAL_DIRECTORY_ENTRY(n) (!strcmp (n, ".") || !strcmp (n, ".."))
556 /* "." and ".." are never interesting as completions, but are
557 actually in the way in a directory contains only one file. */
558 if (!passcount
&& TRIVIAL_DIRECTORY_ENTRY (dp
->d_name
))
563 /* Compare extensions-to-be-ignored against end of this file name */
564 /* if name is not an exact match against specified string */
565 if (!passcount
&& len
> XSTRING (encoded_file
)->size
)
566 /* and exit this for loop if a match is found */
567 for (tem
= Vcompletion_ignored_extensions
;
568 CONSP (tem
); tem
= XCDR (tem
))
571 if (!STRINGP (elt
)) continue;
572 skip
= len
- XSTRING (elt
)->size
;
573 if (skip
< 0) continue;
575 if (0 <= scmp (dp
->d_name
+ skip
,
577 XSTRING (elt
)->size
))
583 /* If an ignored-extensions match was found,
584 don't process this name as a completion. */
585 if (!passcount
&& CONSP (tem
))
592 XSETFASTINT (zero
, 0);
594 /* Ignore this element if it fails to match all the regexps. */
595 for (regexps
= Vcompletion_regexp_list
; CONSP (regexps
);
596 regexps
= XCDR (regexps
))
598 tem
= Fstring_match (XCAR (regexps
),
599 make_string (dp
->d_name
, len
), zero
);
607 /* Update computation of how much all possible completions match */
611 if (all_flag
|| NILP (bestmatch
))
613 /* This is a possible completion */
616 /* This completion is a directory; make it end with '/' */
617 name
= Ffile_name_as_directory (make_string (dp
->d_name
, len
));
620 name
= make_string (dp
->d_name
, len
);
623 name
= DECODE_FILE (name
);
624 bestmatch
= Fcons (name
, bestmatch
);
629 bestmatchsize
= XSTRING (name
)->size
;
634 compare
= min (bestmatchsize
, len
);
635 p1
= XSTRING (bestmatch
)->data
;
636 p2
= (unsigned char *) dp
->d_name
;
637 matchsize
= scmp(p1
, p2
, compare
);
640 if (completion_ignore_case
)
642 /* If this is an exact match except for case,
643 use it as the best match rather than one that is not
644 an exact match. This way, we get the case pattern
645 of the actual match. */
646 /* This tests that the current file is an exact match
647 but BESTMATCH is not (it is too long). */
648 if ((matchsize
== len
649 && matchsize
+ !!directoryp
650 < XSTRING (bestmatch
)->size
)
652 /* If there is no exact match ignoring case,
653 prefer a match that does not change the case
655 /* If there is more than one exact match aside from
656 case, and one of them is exact including case,
658 /* This == checks that, of current file and BESTMATCH,
659 either both or neither are exact. */
662 (matchsize
+ !!directoryp
663 == XSTRING (bestmatch
)->size
))
664 && !bcmp (p2
, XSTRING (encoded_file
)->data
, XSTRING (encoded_file
)->size
)
665 && bcmp (p1
, XSTRING (encoded_file
)->data
, XSTRING (encoded_file
)->size
)))
667 bestmatch
= make_string (dp
->d_name
, len
);
669 bestmatch
= Ffile_name_as_directory (bestmatch
);
673 /* If this dirname all matches, see if implicit following
676 && compare
== matchsize
677 && bestmatchsize
> matchsize
678 && IS_ANY_SEP (p1
[matchsize
]))
680 bestmatchsize
= matchsize
;
687 bestmatch
= unbind_to (count
, bestmatch
);
689 if (all_flag
|| NILP (bestmatch
))
691 if (STRINGP (bestmatch
))
692 bestmatch
= DECODE_FILE (bestmatch
);
695 if (matchcount
== 1 && bestmatchsize
== XSTRING (file
)->size
)
697 bestmatch
= Fsubstring (bestmatch
, make_number (0),
698 make_number (bestmatchsize
));
699 /* Now that we got the right initial segment of BESTMATCH,
700 decode it from the coding system in use. */
701 bestmatch
= DECODE_FILE (bestmatch
);
707 return Fsignal (Qquit
, Qnil
);
711 file_name_completion_stat (dirname
, dp
, st_addr
)
714 struct stat
*st_addr
;
716 int len
= NAMLEN (dp
);
717 int pos
= XSTRING (dirname
)->size
;
719 char *fullname
= (char *) alloca (len
+ pos
+ 2);
723 /* Some fields of struct stat are *very* expensive to compute on MS-DOS,
724 but aren't required here. Avoid computing the following fields:
725 st_inode, st_size and st_nlink for directories, and the execute bits
726 in st_mode for non-directory files with non-standard extensions. */
728 unsigned short save_djstat_flags
= _djstat_flags
;
730 _djstat_flags
= _STAT_INODE
| _STAT_EXEC_MAGIC
| _STAT_DIRSIZE
;
731 #endif /* __DJGPP__ > 1 */
734 bcopy (XSTRING (dirname
)->data
, fullname
, pos
);
736 if (!IS_DIRECTORY_SEP (fullname
[pos
- 1]))
737 fullname
[pos
++] = DIRECTORY_SEP
;
740 bcopy (dp
->d_name
, fullname
+ pos
, len
);
741 fullname
[pos
+ len
] = 0;
744 /* We want to return success if a link points to a nonexistent file,
745 but we want to return the status for what the link points to,
746 in case it is a directory. */
747 value
= lstat (fullname
, st_addr
);
748 stat (fullname
, st_addr
);
751 value
= stat (fullname
, st_addr
);
754 _djstat_flags
= save_djstat_flags
;
755 #endif /* __DJGPP__ > 1 */
763 DEFUN ("file-name-all-versions", Ffile_name_all_versions
,
764 Sfile_name_all_versions
, 2, 2, 0,
765 "Return a list of all versions of file name FILE in directory DIRECTORY.")
767 Lisp_Object file
, directory
;
769 return file_name_completion (file
, directory
, 1, 1);
772 DEFUN ("file-version-limit", Ffile_version_limit
, Sfile_version_limit
, 1, 1, 0,
773 "Return the maximum number of versions allowed for FILE.\n\
774 Returns nil if the file cannot be opened or if there is no version limit.")
776 Lisp_Object filename
;
781 struct XABFHC xabfhc
;
784 filename
= Fexpand_file_name (filename
, Qnil
);
786 xabfhc
= cc$rms_xabfhc
;
787 fab
.fab$l_fna
= XSTRING (filename
)->data
;
788 fab
.fab$b_fns
= strlen (fab
.fab$l_fna
);
789 fab
.fab$l_xab
= (char *) &xabfhc
;
790 status
= sys$
open (&fab
, 0, 0);
791 if (status
!= RMS$_NORMAL
) /* Probably non-existent file */
793 sys$
close (&fab
, 0, 0);
794 if (xabfhc
.xab$w_verlimit
== 32767)
795 return Qnil
; /* No version limit */
797 return make_number (xabfhc
.xab$w_verlimit
);
806 return Fcons (make_number (time
>> 16),
807 Fcons (make_number (time
& 0177777), Qnil
));
810 DEFUN ("file-attributes", Ffile_attributes
, Sfile_attributes
, 1, 1, 0,
811 "Return a list of attributes of file FILENAME.\n\
812 Value is nil if specified file cannot be opened.\n\
813 Otherwise, list elements are:\n\
814 0. t for directory, string (name linked to) for symbolic link, or nil.\n\
815 1. Number of links to file.\n\
818 4. Last access time, as a list of two integers.\n\
819 First integer has high-order 16 bits of time, second has low 16 bits.\n\
820 5. Last modification time, likewise.\n\
821 6. Last status change time, likewise.\n\
823 This is a floating point number if the size is too large for an integer.\n\
824 8. File modes, as a string of ten letters or dashes as in ls -l.\n\
825 9. t iff file's gid would change if file were deleted and recreated.\n\
826 10. inode number. If inode number is larger than the Emacs integer,\n\
827 this is a cons cell containing two integers: first the high part,\n\
828 then the low 16 bits.\n\
829 11. Device number. If it is larger than the Emacs integer, this is\n\
830 a cons cell, similar to the inode number.\n\
832 If file does not exist, returns nil.")
834 Lisp_Object filename
;
836 Lisp_Object values
[12];
839 #if defined (BSD4_2) || defined (BSD4_3)
846 filename
= Fexpand_file_name (filename
, Qnil
);
848 /* If the file name has special constructs in it,
849 call the corresponding file handler. */
850 handler
= Ffind_file_name_handler (filename
, Qfile_attributes
);
852 return call2 (handler
, Qfile_attributes
, filename
);
854 encoded
= ENCODE_FILE (filename
);
856 if (lstat (XSTRING (encoded
)->data
, &s
) < 0)
859 switch (s
.st_mode
& S_IFMT
)
862 values
[0] = Qnil
; break;
864 values
[0] = Qt
; break;
867 values
[0] = Ffile_symlink_p (filename
); break;
870 values
[1] = make_number (s
.st_nlink
);
871 values
[2] = make_number (s
.st_uid
);
872 values
[3] = make_number (s
.st_gid
);
873 values
[4] = make_time (s
.st_atime
);
874 values
[5] = make_time (s
.st_mtime
);
875 values
[6] = make_time (s
.st_ctime
);
876 values
[7] = make_number (s
.st_size
);
877 /* If the size is out of range for an integer, return a float. */
878 if (XINT (values
[7]) != s
.st_size
)
879 values
[7] = make_float ((double)s
.st_size
);
880 filemodestring (&s
, modes
);
881 values
[8] = make_string (modes
, 10);
882 #if defined (BSD4_2) || defined (BSD4_3) /* file gid will be dir gid */
883 dirname
= Ffile_name_directory (filename
);
884 if (! NILP (dirname
))
885 encoded
= ENCODE_FILE (dirname
);
886 if (! NILP (dirname
) && stat (XSTRING (encoded
)->data
, &sdir
) == 0)
887 values
[9] = (sdir
.st_gid
!= s
.st_gid
) ? Qt
: Qnil
;
888 else /* if we can't tell, assume worst */
890 #else /* file gid will be egid */
891 values
[9] = (s
.st_gid
!= getegid ()) ? Qt
: Qnil
;
892 #endif /* BSD4_2 (or BSD4_3) */
893 /* Cast -1 to avoid warning if int is not as wide as VALBITS. */
894 if (s
.st_ino
& (((EMACS_INT
) (-1)) << VALBITS
))
895 /* To allow inode numbers larger than VALBITS, separate the bottom
897 values
[10] = Fcons (make_number (s
.st_ino
>> 16),
898 make_number (s
.st_ino
& 0xffff));
900 /* But keep the most common cases as integers. */
901 values
[10] = make_number (s
.st_ino
);
903 /* Likewise for device. */
904 if (s
.st_dev
& (((EMACS_INT
) (-1)) << VALBITS
))
905 values
[11] = Fcons (make_number (s
.st_dev
>> 16),
906 make_number (s
.st_dev
& 0xffff));
908 values
[11] = make_number (s
.st_dev
);
910 return Flist (sizeof(values
) / sizeof(values
[0]), values
);
913 DEFUN ("file-attributes-lessp", Ffile_attributes_lessp
, Sfile_attributes_lessp
, 2, 2, 0,
914 "Return t if first arg file attributes list is less than second.\n\
915 Comparison is in lexicographic order and case is significant.")
919 return Fstring_lessp (Fcar (f1
), Fcar (f2
));
925 Qdirectory_files
= intern ("directory-files");
926 Qdirectory_files_and_attributes
= intern ("directory-files-and-attributes");
927 Qfile_name_completion
= intern ("file-name-completion");
928 Qfile_name_all_completions
= intern ("file-name-all-completions");
929 Qfile_attributes
= intern ("file-attributes");
930 Qfile_attributes_lessp
= intern ("file-attributes-lessp");
932 staticpro (&Qdirectory_files
);
933 staticpro (&Qdirectory_files_and_attributes
);
934 staticpro (&Qfile_name_completion
);
935 staticpro (&Qfile_name_all_completions
);
936 staticpro (&Qfile_attributes
);
937 staticpro (&Qfile_attributes_lessp
);
939 defsubr (&Sdirectory_files
);
940 defsubr (&Sdirectory_files_and_attributes
);
941 defsubr (&Sfile_name_completion
);
943 defsubr (&Sfile_name_all_versions
);
944 defsubr (&Sfile_version_limit
);
946 defsubr (&Sfile_name_all_completions
);
947 defsubr (&Sfile_attributes
);
948 defsubr (&Sfile_attributes_lessp
);
951 Qcompletion_ignore_case
= intern ("completion-ignore-case");
952 staticpro (&Qcompletion_ignore_case
);
955 DEFVAR_LISP ("completion-ignored-extensions", &Vcompletion_ignored_extensions
,
956 "*Completion ignores filenames ending in any string in this list.\n\
957 This variable does not affect lists of possible completions,\n\
958 but does affect the commands that actually do completions.");
959 Vcompletion_ignored_extensions
= Qnil
;