;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Thu Jan 18 01:57:05 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/ls-lisp.el ;;; emacs version 19.30.70.7. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ls-lisp.el' was compiled for Emacs 19.29 or later")) #@224 *Non-nil means file patterns are treated as shell wildcards. nil means they are treated as Emacs regexps (for backward compatibility). This variable is checked by \[insert-directory] only when `ls-lisp.el' package is used. (defvar ls-lisp-support-shell-wildcards t (#$ . -474)) #@669 Insert directory listing for FILE, formatted according to SWITCHES. Leaves point after the inserted text. Optional third arg WILDCARD means treat FILE as shell wildcard. Optional fourth arg FULL-DIRECTORY-P means file is a directory and switches do not contain `d', so that a full listing is expected. This version of the function comes from `ls-lisp.el'. It doesn not run any external programs or shells. It supports ordinary shell wildcards if `ls-lisp-support-shell-wildcards' variable is non-nil; otherwise, it interprets wildcards as regular expressions to match file names. Not all `ls' switches are supported. The switches that work are: A a c i r S s t u (defalias 'insert-directory #[(file &optional switches wildcard full-directory-p) " \" \f %3 \"3 GSH=1 GSO\f\" QI !!L ! ! Z ! #\f>\"\f>\"\"䂪c\f\"@A@A8\\\f#c!˕b!U˂T\"c.\n ! !\f#c)" [find-file-name-handler file insert-directory handler switches wildcard full-directory-p ls-lisp-support-shell-wildcards string-match "[[?*]" 47 0 t append nil wildcard-to-regexp file-name-nondirectory file-name-directory file-name-as-directory dir default-directory sum elt short directory-files file-list file-alist fil attr 65 ls-lisp-delete-matching "^\\.\\.?$" 97 "^\\." mapcar #[(x) "!!B" [x file-attributes expand-file-name] 4] "total \n" "(No match)\ntotal \n" ls-lisp-handle-switches 7 ls-lisp-format search-backward "total " delete-char -1 format "%d" 1024 file-attributes] 7 (#$ . 759)]) (defalias 'ls-lisp-delete-matching #[(regexp list) "\n\f\n@\"\n@ B\nA )" [nil result list string-match regexp] 4]) (defalias 'ls-lisp-handle-switches #[(file-alist switches) " >Ƃ > !ɂ\") >)  " [nil index sort file-alist 83 switches #[(x y) " A8\nA8W" [7 y x] 3] 116 ls-lisp-time-index #[(x y) " \nA8 A8\"" [ls-lisp-time-lessp index y x] 4] #[(x y) "@ @" [x y] 2] 114] 4]) (defalias 'ls-lisp-time-lessp #[(time0 time1) "@ @A@ A@\fW \fU \nW," [time0 time1 lo1 lo0 hi1 hi0] 5]) (defalias 'ls-lisp-format #[(file-name file-attr &optional switches) "@ >8\" >8ʥT\"8A@ 8U4 98!=DӂI8!8% \" ;_ P`ڰ )" [file-attr file-type 105 switches format "%6d " 10 115 "%4d " 7 1024 8 " %3d %-8s %-8s %8d " user-uid 2 user-login-name int-to-string system-type ms-dos "root" 3 ls-lisp-format-time " " file-name " -> " "" "\n"] 10]) (defalias 'ls-lisp-time-index #[(switches) " >‡ >ćŇ" [99 switches 6 117 4 5] 2]) (defalias 'ls-lisp-format-time #[(file-attr switches) "" [error-data (byte-code "\n! 8!O\fO \fO\f O  / 1\fP-" [current-time-string ls-lisp-time-index switches file-attr time 4 11 date 16 clock 19 24 year same-year] 5) ((error "Jan 00 00:00"))] 3]) (provide (quote ls-lisp))