;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:16:20 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/url-file.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`url-file.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require url-vars mule-sysdp w3-sysdp url-parse] 2) (defalias 'url-insert-possibly-compressed-file #[(fname &rest args) "\306\211\211\211\211\307!\203K\310\311\"\205\241\312\313\314\"!\211\315>\2037\316\317BB\211\202G\320=\205G\316\321BB\211)\202\241\307\322P!\203f\322P\316\321BB\211\202\241\307\323P!\203\201\323P\316\317BB\211\202\241\307\324P!\203\234\324P\316\317BB\211\202\241\325\326\"\327\316\"A\330\331 #\210\332\306!.\207" [mule-no-coding-system coding-system-for-read file-coding-system-for-read jam-zcat-filename-list jka-compr-compression-info-list crypt-encoding-alist nil file-exists-p string-match "\\.\\(z\\|gz\\|Z\\)$" intern match-string 1 (z gz) "content-transfer-encoding" "gzip" Z "compress" ".Z" ".gz" ".z" error "File not found %s" assoc apply insert-file-contents set-buffer-modified-p compressed fname #1=#:G19900 url-current-mime-headers url-current-mime-encoding args] 7]) #@40 Keymap used when browsing directories. (defvar url-dired-minor-mode-map (byte-code "\302 \303\304\305#\210 \203\303\306\307#\210\202\303\310\307#\210)\207" [map url-running-xemacs make-sparse-keymap define-key " " url-dired-find-file [button2] url-dired-find-file-mouse [mouse-2]] 4) (#$ . 1693)) #@40 Whether we are in url-dired-minor-mode (defvar url-dired-minor-mode nil (#$ . 2005)) (make-variable-buffer-local 'url-dired-minor-mode) #@75 In dired, visit the file or directory named on this line, using Emacs-W3. (defalias 'url-dired-find-file #[nil "\301 \302\303\"\203\304\305\306\307\"\306\310\"Q!\202\311!)\207" [filename dired-get-filename string-match "/\\(.*@.*\\):\\(/.*\\)" w3-fetch "file://" match-string 1 2 w3-open-local] 6 (#$ . 2147) nil]) #@74 In dired, visit the file or directory name you click on, using Emacs-W3. (defalias 'url-dired-find-file-mouse #[(event) "\301!\205 \301!b\210\302 \207" [event event-point url-dired-find-file] 2 (#$ . 2477) "@e"]) #@50 Minor mode for directory browsing with Emacs-W3. (defalias 'url-dired-minor-mode #[(&optional arg) "\204 ?\211\207\302\232\203\303\211\207\304\211\207" [arg url-dired-minor-mode 0 nil t] 2 (#$ . 2699) "P"]) (add-minor-mode 'url-dired-minor-mode " URL" url-dired-minor-mode-map) (defalias 'url-format-directory #[(dir) "\301p!\210\302!\210\303\304!\207" [dir kill-buffer find-file url-dired-minor-mode t] 2]) #@49 Return t iff HOST references our local machine. (defalias 'url-host-is-local-p #[(host) "\302 ?\206C \303\230\206C \227\304 \227\232\206C\305\306 \"\203!\302\202C\305\307\310! \"?\205C \227\305\307\310!\304 \"\203@\304 \311\211\224O\202B\304 \232)\207" [case-fold-search host t "" system-name string-match "^localhost$" regexp-quote "." 0] 4 (#$ . 3123)]) (defalias 'url-file-build-continuation #[(name) "\303p \n\257\207" [name url-current-callback-func url-current-callback-data url-file-asynch-callback] 5]) (defalias 'url-file-asynch-callback #[(x y name buff func args &optional efs) "\305\304!\203\n \f \203,\306 !\203,\204 \307\310!q\210\311 !\210\312\313\314\217\210\n\2035\315\n \"\207\316p\312\"\207" [buff name func args efs featurep file-exists-p generate-new-buffer " *url-asynch-file*" url-insert-possibly-compressed-file nil (delete-file name) ((error)) apply url-sentinel] 3]) #@172 Clean up file URLs to remove questionable ftp stuff. Removes any leading slashes and 'localhost's from the file URL, and exchanges any | in the drive identifier with a :. (defalias 'url-cleanup-file #[(url) "\305\306\"\204 \207\307\224\307\225\310\224\310\225\311\fO \nO\312 \313OR,\207" [url bar-end bar-start slash-end slash-start string-match "file:\\(\\(/\\|localhost\\)+\\)+[a-zA-Z]\\([:|]\\)" 1 3 0 ":" nil] 6 (#$ . 4048)]) (defalias 'url-file #[(url) "\306\307!!\211\310H \311H \312H \313H\206% \314H\205%\315 \316H \"\243\211@\2051\317\320\f@#\321 \322H!A \323HB\n\204H\324\f!\204X\325\n\206N\326\327\f\330A\260\202qC\331>\203o\332\333A\"\203oA\310\334O\202qADE\205~\335ED\"F\334G\334H\336 \210\n\203\262 \203\262\337\340!\203\240\341\f\n #\210\202\262\337\342!\204\254\337\343!\203\262\344\f\n #\210I\203\326\345D!\203\326\332\317\346J\"D\"\204\326I\322\317\347DJ#I\210F\203\355\350F!\203\355\351F!\203\355FD\332\352D\"\203\376D\316\211\224O\202DG\353\354G!!K\355K!H\345D!\203@\332\356D\"\204%D\325PD\332\356A\"\2043A\325PA \322AI\210\357D!\202<L\203\350D!\204\350D\360P!\203^D\360PD\202\350D\361P!\203pD\361PD\202\350D\362P!\203D\362PD\354D!M\363MG\316V\205\222\364MP!N\324\f!\203\321\350D!\203\256\351D!\203\256\365D!\210\337\342!\203\303\366\334\211\211\211\211OP&\202\366\334\211\211\211OP&\202\337\340!\203\353\367D\335N!\370\334\370\371N!\370&\202\337\342!\204\367\337\343!\205\372\373\374\"\210\373D\375D!N\375N!\370\334\316\371N!\316\334&\n*\202<\334?Q\2043H9\203-H\376=\2033H;\205;\377\201R\201S\217).\f\207" [url urlobj user pass site url-default-ports url-generic-parse-url url-cleanup-file 1 2 3 4 8 assoc 0 format "%s#%s" url-unhex-string 5 6 url-host-is-local-p "/" "anonymous" "@" ":" (emx ms-dos windows-nt ms-windows) string-match "^/[a-zA-Z]:/" nil expand-file-name url-clear-tmp-buffer featurep ange-ftp ange-ftp-set-passwd efs efs-auto efs-set-passwd file-directory-p "%c$" "%s%c" file-exists-p file-readable-p "\\.\\(gz\\|Z\\|z\\)$" mm-extension-to-mime url-file-extension mm-mime-info "/$" url-format-directory ".Z" ".gz" ".z" mm-generate-unique-filename "%s." url-insert-possibly-compressed-file url-file-asynch-callback ange-ftp-copy-file-internal t url-file-build-continuation autoload efs-copy-file-internal "efs" efs-ftp-path w3-default-local-file errobj port file dest system-type filename url-directory-index-file pos-index uncompressed-filename viewer url-current-object directory-sep-char url-current-mime-type url-be-asynchronous extension new url-current-callback-func url-current-callback-data url-source (url-insert-possibly-compressed-file filename t) ((error (byte-code "\302!\210\303\304 P!\207" [errobj file url-save-error url-retrieve "www://error/nofile/"] 3)))] 12]) (byte-code "\300\301M\210\302\301!\207" [url-ftp url-file provide] 2)