;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Thu Jun 15 18:26:43 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/ls-lisp.el ;;; emacs version 19.28.94.3. ;;; 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.28.90"))) (error "`ls-lisp.el' was compiled for Emacs 19.29 or later")) #@514 Insert directory listing for of 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 does not support ordinary shell wildcards; instead, it allows regular expressions to match file names. 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 %\f\" % ! ! . !\f \f #\f>`\"m\f>m\"\"c\f\"@A@A~8\\~\f#c~!Εb!T\"c.\n ! !\f#c)" [find-file-name-handler file insert-directory handler switches wildcard full-directory-p append nil file-name-nondirectory file-name-directory file-name-as-directory dir default-directory 0 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" ls-lisp-handle-switches 7 ls-lisp-format search-backward "total " delete-char -1 format "%d" 1024 file-attributes] 7 (#$ . 482)]) (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))