%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303\304\305\306\307%\210\302\310\304\311\306\303%\210\302\312\304\313\306\303%\210\302\314\304\315\306\303%\210\302\316\304\317\306\303%\210\320\321\322\323\324\325\306\303&\210\320\326\327\330\324\331\306\303&\210\332\333\334\304#\210\335\304\211\203j @\333N\203c \334N\204c \336\334\333N#\210 A\211\204L *\337\333\334\340#\210\320\334\304\341\324\342\306\303&\210\320\343\304\344\345\346\324\347\306\303& \210\320\350\351\352\324\353\306\310&\210\320\354\355\356\324\357\306\310&\210\320\360\361\362\324\363\306\310&\210\320\364\365\366\324\367\306\312&\210\320\370\371\372\324\373\306\312&\210\320\374\375\376\324\377\306\312&\207" [prop --dolist-tail-- custom-declare-group archive nil "Simple editing of archives." :group data archive-arc "ARC-specific options to archive." archive-lzh "LZH-specific options to archive." archive-zip "ZIP-specific options to archive." archive-zoo "ZOO-specific options to archive." custom-declare-variable archive-tmpdir (make-temp-name (expand-file-name (if (eq system-type 'ms-dos) "ar" "archive.tmp") temporary-file-directory)) "Directory for temporary files made by `arc-mode.el'." :type directory archive-remote-regexp "^/[^/:]*[^/:.]:" "Regexp recognizing archive files names that are not local.\nA non-local file is one whose file name is not proper outside Emacs.\nA local copy of the archive will be used when updating." regexp defvaralias archive-extract-hooks archive-extract-hook (saved-value saved-variable-comment) put make-obsolete-variable "24.3" "Hook run when an archive member has been extracted." hook archive-visit-single-files "If non-nil, opening an archive with a single file visits that file.\nIf nil, visiting such an archive displays the archive summary." :version "25.1" (choice (const :tag "Visit the single file" t) (const :tag "Show the archive summary" nil)) archive-arc-extract '("arc" "x") "Program and its options to run in order to extract an arc file member.\nExtraction should happen to the current directory. Archive and member\nname will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-arc-expunge '("arc" "d") "Program and its options to run in order to delete arc file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-arc-write-file-member '("arc" "u") "Program and its options to run in order to update an arc file member.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-lzh-extract '("lha" "pq") "Program and its options to run in order to extract an lzh file member.\nExtraction should happen to standard output. Archive and member name will\nbe added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-lzh-expunge '("lha" "d") "Program and its options to run in order to delete lzh file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-lzh-write-file-member '("lha" "a") "Program and its options to run in order to update an lzh file member.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v")))] 11)
(defvar archive-7z-program (byte-code "\301\302!\206 \301\303!\211\205 \304!)\207" [7z executable-find "7z" "7za" file-name-nondirectory] 3))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\321\322\304\323\306\307&\210\300\324\325\326\304\327\330\331\306\307& \210\300\332\333\334\304\335\306\336&\210\300\337\340\341\304\342\306\336&\210\300\343\344\345\304\346\306\336&\210\300\347\350\351\330\352\304\353\306\354& \210\300\355\356\357\330\352\304\360\306\354& \210\300\361\362\363\330\352\304\364\306\354& \207" [custom-declare-variable archive-zip-extract (cond ((executable-find "unzip") '("unzip" "-qq" "-c")) (archive-7z-program `(,archive-7z-program "x" "-so")) ((executable-find "pkunzip") '("pkunzip" "-e" "-o-")) (t '("unzip" "-qq" "-c"))) "Program and its options to run in order to extract a zip file member.\nExtraction should happen to standard output. Archive and member name will\nbe added." :type (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group archive-zip archive-zip-expunge (cond ((executable-find "zip") '("zip" "-d" "-q")) (archive-7z-program `(,archive-7z-program "d")) ((executable-find "pkzip") '("pkzip" "-d")) (t '("zip" "-d" "-q"))) "Program and its options to run in order to delete zip file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-update (cond ((executable-find "zip") '("zip" "-q")) (archive-7z-program `(,archive-7z-program "u")) ((executable-find "pkzip") '("pkzip" "-u" "-P")) (t '("zip" "-q"))) "Program and its options to run in order to update a zip file member.\nOptions should ensure that specified directory will be put into the zip\nfile. Archive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-update-case (cond ((executable-find "zip") '("zip" "-q" "-k")) (archive-7z-program `(,archive-7z-program "u")) ((executable-find "pkzip") '("pkzip" "-u" "-P")) (t '("zip" "-q" "-k"))) "Program and its options to run in order to update a case fiddled zip member.\nOptions should ensure that specified directory will be put into the zip file.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zip-case-fiddle (and (eq system-type 'ms-dos) (not (msdos-long-file-names))) "If non-nil, then all-caps names of zip file members will be down-cased.\nThis case fiddling will only happen for members created by a system\nthat uses caseless file names.\nIn addition, this flag forces members added/updated in the zip archive\nto be truncated to DOS 8+3 file-name restrictions." boolean :version "27.1" archive-zoo-extract '("zoo" "xpq") "Program and its options to run in order to extract a zoo file member.\nExtraction should happen to standard output. Archive and member name will\nbe added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zoo archive-zoo-expunge '("zoo" "DqPP") "Program and its options to run in order to delete zoo file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-zoo-write-file-member '("zoo" "a") "Program and its options to run in order to update a zoo file member.\nArchive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z-extract `(,(or archive-7z-program "7z") "x" "-so") "Program and its options to run in order to extract a 7z file member.\nExtraction should happen to standard output. Archive and member name will\nbe added." "24.1" (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z archive-7z-expunge `(,(or archive-7z-program "7z") "d") "Program and its options to run in order to delete 7z file members.\nArchive and member names will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) archive-7z-update `(,(or archive-7z-program "7z") "u") "Program and its options to run in order to update a 7z file member.\nOptions should ensure that specified directory will be put into the 7z\nfile. Archive and member name will be added." (list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v")))] 10)
#@33 Symbol describing archive type.
(defvar archive-subtype nil (#$ . 8322))
#@34 Position of first contents line.
(defvar archive-file-list-start nil (#$ . 8401))
#@41 Position just after last contents line.
(defvar archive-file-list-end nil (#$ . 8489))
#@35 Position of real archive's start.
(defvar archive-proper-file-start nil (#$ . 8582))
#@46 Non-nil if the archive is read-only on disk.
(defvar archive-read-only nil (#$ . 8673))
#@39 Name of local copy of remote archive.
(defvar archive-local-name nil (#$ . 8767))
#@41 Local keymap for archive mode listings.
(defvar archive-mode-map (byte-code "\303 \304 \"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\313#\210\305\315\316#\210\305\317\316#\210\305\320\316#\210\305\321\322#\210\305\323\307#\210\305\324\307#\210\305\325\307#\210\305\326\327#\210\305\330\331#\210\305\332\331#\210\305\333\331#\210\305\334\331#\210\305\335\336#\210\305\337\340#\210\305\341\342#\210\305\343\344#\210\305\345\346#\210\305\347\350#\210\305\351\327#\210\305\352\353#\210\305\354\355#\210\305\356\357#\210\305\360\361#\210\362\363!\203\277 \305\364\365#\210\305\366\365#\210\202\315 \367\370\365\n$\210\367\371\365\n$\210\305\372\316#\210\305\373\374\375\374!B#\210\305\376\377#\210\305\201@ \201A #\210\305\201B \201C #\210\305\201D \201E #\210\305\201F \201G #\210\305\201H \201I \375\201I !B#\210\305\201J \201K #\210\305\201L \201M #\210\305\201N \201O #\210\305\201P \201Q #\210\305\201R \201S \375\201S !B#\210\305\201T \201U #\210\305\201V \201W #\210\305\201X \201Y #\210\305\201Z \201[ #\210\305\201\\ \201] #\210)\207" [map special-mode-map global-map make-keymap set-keymap-parent define-key " " archive-next-line "a" archive-alternate-display "d" archive-flag-deleted "" "e" archive-extract "f" "
" "m" archive-mark "n" "" [down] "o" archive-extract-other-window "p" archive-previous-line "" [33554464] [up] "r" archive-rename-entry "u" archive-unflag "\377" archive-unmark-all-files "v" archive-view "x" archive-expunge "" archive-unflag-backwards "E" "M" archive-chmod-entry "G" archive-chgrp-entry "O" archive-chown-entry [follow-link] mouse-face fboundp command-remapping [remap advertised-undo] archive-undo [remap undo] substitute-key-definition advertised-undo undo [mouse-2] [menu-bar immediate] "Immediate" make-sparse-keymap [menu-bar immediate alternate] (menu-item "Alternate Display" archive-alternate-display :enable (boundp (archive-name "alternate-display")) :help "Toggle alternate file info display") [menu-bar immediate view] (menu-item "View This File" archive-view :help "Display file at cursor in View Mode") [menu-bar immediate display] (menu-item "Display in Other Window" archive-display-other-window :help "Display file at cursor in another window") [menu-bar immediate find-file-other-window] (menu-item "Find in Other Window" archive-extract-other-window :help "Edit file at cursor in another window") [menu-bar immediate find-file] (menu-item "Find This File" archive-extract :help "Extract file at cursor and edit it") [menu-bar mark] "Mark" [menu-bar mark unmark-all] (menu-item "Unmark All" archive-unmark-all-files :help "Unmark all marked files") [menu-bar mark deletion] (menu-item "Flag" archive-flag-deleted :help "Flag file at cursor for deletion") [menu-bar mark unmark] (menu-item "Unflag" archive-unflag :help "Unmark file at cursor") [menu-bar mark mark] (menu-item "Mark" archive-mark :help "Mark file at cursor") [menu-bar operate] "Operate" [menu-bar operate chown] (menu-item "Change Owner..." archive-chown-entry :enable (fboundp (archive-name "chown-entry")) :help "Change owner of marked files") [menu-bar operate chgrp] (menu-item "Change Group..." archive-chgrp-entry :enable (fboundp (archive-name "chgrp-entry")) :help "Change group ownership of marked files") [menu-bar operate chmod] (menu-item "Change Mode..." archive-chmod-entry :enable (fboundp (archive-name "chmod-entry")) :help "Change mode (permissions) of marked files") [menu-bar operate rename] (menu-item "Rename to..." archive-rename-entry :enable (fboundp (archive-name "rename-entry")) :help "Rename marked files") [menu-bar operate expunge] (menu-item "Expunge Marked Files" archive-expunge :help "Delete all flagged files from archive")] 6) (#$ . 8855))
#@32 Column where file names start.
(defvar archive-file-name-indent nil (#$ . 12635))
#@48 Non-nil if the archive is outside file system.
(defvar archive-remote nil (#$ . 12723))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-remote put permanent-local t] 4)
#@34 Coding-system of archive member.
(defvar archive-member-coding-system nil (#$ . 12934))
(make-variable-buffer-local 'archive-member-coding-system)
#@46 Non-nil when alternate information is shown.
(defvar archive-alternate-display nil (#$ . 13087))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-alternate-display put permanent-local t] 4)
#@40 In archive members, points to archive.
(defvar archive-superior-buffer nil (#$ . 13318))
(put 'archive-superior-buffer 'permanent-local t)
#@36 Non-nil in archive member buffers.
(defvar archive-subfile-mode nil (#$ . 13463))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-subfile-mode put permanent-local t] 4)
(defvar archive-file-name-coding-system nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-file-name-coding-system put permanent-local t] 4)
#@122 Vector of file descriptors.
Each descriptor is a vector of the form
[EXT-FILE-NAME INT-FILE-NAME CASE-FIDDLED MODE ...]
(defvar archive-files nil (#$ . 13854))
(make-variable-buffer-local 'archive-files)
#@73 Like insert but don't make unibyte string and eight-bit char multibyte.
(defalias 'arc-insert-unibyte #[(&rest args) "\303\211\205. \n@\211\250\203# \304W\203 \202 \305\306 \"c\210\202& c\210\nA\211\204 \303*\207" [args elt --dolist-tail-- nil 128 decode-char eight-bit] 4 (#$ . 14065)])
(defalias 'archive-name #[(suffix) "\302\303\304!\305 R!\207" [archive-subtype suffix intern "archive-" symbol-name "-"] 5])
(put 'archive-name 'byte-optimizer 'byte-compile-inline-expand)
#@184 Convert little endian string/vector STR to integer.
Alternatively, STR may be a buffer position in the current buffer
in which case a second argument, length LEN, should be supplied.
(defalias 'archive-l-e #[(str &optional len) ";\203 G\202 \211 \\{\304!\203 \305\306\"\307\211\n W\2037 \nT\310 \311\" \nZH\\\202 *\207" [str len i result multibyte-string-p encode-coding-string utf-8-emacs-unix 0 ash 8] 4 (#$ . 14561)])
#@75 Turn an integer like 0700 (i.e., 448) into a mode string like -rwx------.
(defalias 'archive-int-to-mode #[(mode) "\301\302\303\"\304U\203 \302\305\"\304U\203 \306\202 \307\202 \310\302\311\"\304U\203) \306\202* \312\302\313\"\304U\2037 \306\2028 \314\302\315\"\304U\203R \302\316\"\304U\203N \306\202` \317\202` \302\316\"\304U\203_ \320\202` \321\302\322\"\304U\203m \306\202n \312\302\323\"\304U\203{ \306\202| \314\302\324\"\304U\203\226 \302\325\"\304U\203\222 \306\202\244 \317\202\244 \302\325\"\304U\203\243 \320\202\244 \321\302\326\"\304U\203\261 \306\202\262 \312\302\327\"\304U\203\277 \306\202\300 \314\302\330\"\304U\203\315 \306\202\316 \320&\n\207" [mode string logand 8192 0 16384 45 100 99 256 114 128 119 64 2048 83 120 115 32 16 8 1024 4 2 1] 13 (#$ . 15006)])
#@461 From the integer OLDMODE and the string NEWMODE calculate a new file mode.
NEWMODE may be an octal number including a leading zero in which case it
will become the new mode.
NEWMODE may also be a relative specification like "og-rwx" in which case
OLDMODE will be modified accordingly just like chmod(2) would have done.
If optional third argument ERROR is non-nil an error will be signaled if
the mode is invalid. If ERROR is nil then nil will be returned.
(defalias 'archive-calc-mode #[(oldmode newmode &optional error) "\306\307\"\203/ \310G\311 \nW\203& \312\313 \314\" H\315# T\211\202 \316\317\f\320\" \"+\207\306\321\"\203\310\f\322\224H\310\314\224 * + \314\225W\203\221 H ,\316
,\323U\203_ \324\202\210 ,\325U\203j \326\202\210 ,\327U\203u \330\202\210 ,\331U\203\200 \332\202\210 ,\333U\205\210 \334\" T)\202F +\311\225W\203 +H\211 -\335U\203\251 \336\202\307 -\337U\203\264 \340\202\307 -\341U\203\277 \342\202\307 -\343U\205\307 \344 .*\345U\203\330 \317 \346.!\"*\347U\203\355 \317 \346\317.
\"!\"\202\366 \316 \317.
\"\"*+T\211+\202\223 -\207(\205\f\350\351\"\207" [newmode i len result oldmode bits string-match "^0[0-7]*$" 0 1 + ash 3 -48 logior logand 65024 "^\\([agou]+\\)\\([---+=]\\)\\([rwxst]+\\)$" 2 114 292 119 146 120 73 115 3072 116 512 97 4095 117 1472 103 2104 111 7 61 lognot 45 error "Invalid mode specification: %s" op who rwx whoc whomask] 7 (#$ . 15813)])
#@35 Stringify dos packed DATE record.
(defalias 'archive-dosdate #[(date) "\304\305\306\307\"\310\"\\\305\306\311\"\312\"\305\313\"\n\314V\204# \n\315W\203' \316\2020 \317\320 \321\nSH $+\207" [date day month year 1980 logand ash -9 127 -5 15 31 12 1 "" format "%2d-%s-%d" ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"]] 5 (#$ . 17256)])
#@35 Stringify dos packed TIME record.
(defalias 'archive-dostime #[(time) "\304\305\306\"\307\"\304\305\310\"\311\"\312\304\307\"_\313\314 \n $+\207" [time second minute hour logand ash -11 31 -5 63 2 format "%02d:%02d:%02d"] 6 (#$ . 17629)])
#@33 Stringify Unix (LOW HIGH) date.
(defalias 'archive-unixdate #[(low high) " D\304\n!\305\306\307 \310\311#\307 \312\313#\314\315\n\"$*\207" [high low time str current-time-string format "%s-%s-%s" substring 8 10 4 7 format-time-string "%Y"] 7 (#$ . 17880)])
#@33 Stringify Unix (LOW HIGH) time.
(defalias 'archive-unixtime #[(low high) "\302\303 D\"\207" [high low format-time-string "%H:%M:%S"] 4 (#$ . 18146)])
(defalias 'archive-get-lineno #[nil "`Y\203\f \301\302 \"\207\303\207" [archive-file-list-start count-lines line-beginning-position 0] 3])
#@115 Return the descriptor vector for file at point.
Does not signal an error if optional argument NOERROR is non-nil.
(defalias 'archive-get-descr #[(&optional noerror) "\305 ` Y\203* \nGW\203* \nH\306 !\203 \202& \f?\205& \307\310!)\2022 \f?\2052 \307\311!)\207" [no archive-file-list-start archive-files item noerror archive-get-lineno vectorp error "Entry is not a regular member of the archive" "Line does not describe a member of the archive"] 2 (#$ . 18445)])
#@455 Major mode for viewing an archive file in a dired-like way.
You can move around using the usual cursor motion commands.
Letters no longer insert themselves.
Type `e' to pull a file out of the archive and into its own buffer;
or click mouse-2 on the file's line in the archive mode buffer.
If you edit a sub-file of this archive (as with the `e' command) and
save it, the contents of that buffer will be saved back into the
archive.
\{archive-mode-map}
(defalias 'archive-mode #[(&optional force) "\306 \307U\203 \310\311!\206 \312 \207?\205 ?\205\352 \313 \210\314 \315\316\n!!\317\304!\210\n\317\305!\210\320\321\307!\210\322\323\324\325\326$\210\317\327!\210\325\317\330!\210\325\317\331!\210\326\317\332!\210\333\334 !?\206k 4\205k \33554\307H\"\317\336!\2106\204\207 \3357\334 \"\206\205 \3355\334 \"6\337 \340P8\341\342 9\343\344\316\f!\3459R!)\346\"\210\347:!\210*\317\350!\210\317\351!\210\317\352!\210\317\353!\210;\206\303 <\206\303 =>\354\355!\210\356\325!\210\326?@\205\352 A\205\352 G\357U\205\352 \360\361\362 P!\210\363 \207" [force archive-files type typename archive-subtype revert-buffer-function buffer-size 0 default-value major-mode fundamental-mode kill-all-local-variables archive-find-type capitalize symbol-name make-local-variable archive-mode-revert auto-save-mode add-hook write-contents-functions archive-write-file nil t require-final-newline local-enable-local-variables file-precious-flag archive-read-only file-writable-p buffer-file-name string-match archive-local-name archive-mode "-Archive" run-mode-hooks "mode-hook" intern "archive-" "-" archive-mode-hook use-local-map archive-proper-file-start archive-file-list-start archive-file-list-end archive-file-name-indent set-buffer-multibyte to archive-summarize 1 rename-buffer " " buffer-name archive-extract archive-subfile-mode file-name-invalid-regexp archive-remote archive-remote-regexp mode-name suffix archive-mode-map file-name-coding-system default-file-name-coding-system locale-coding-system archive-file-name-coding-system buffer-read-only archive-visit-single-files auto-compression-mode] 6 (#$ . 18920)])
(byte-code "\302\303\304\305#\210\306\211 \235\204 B)\302\207" [item1 minor-mode-alist put archive-mode mode-class special (archive-subfile-mode " Archive")] 5)
(defalias 'archive-find-type #[nil "~\210eb\210\302\303\304!\203 \305\202z \303\306!\203 \307\202z \303\310!\203% \311\202z \303\312!\203; \313\314 \2063 \315 \"\203; \316\202z \303\317!\203E \320\202z \303\321!\203O \322\202z \303\323!\203Y \324\202z \303\325!\203m \326\321`\327\\\330#\203m \331\202z \303\332!\203w \333\202z \334\335!)\207" [case-fold-search buffer-file-name nil looking-at "\\(PK00\\)?[P]K" zip "..-l[hz][0-9ds]-" lzh "....................[\334]\247\304\375" zoo "" string-match "\\.[aA][rR][cC]\\'" buffer-name arc "MZ\\(.\\|\n\\)\\{34\\}LH[aA]'s SFX " lzh-exe "Rar!" rar "!<arch>\n" ar "MZ" re-search-forward 100000 t rar-exe "7z\274\257' " 7z error "Buffer format not recognized"] 4])
(defalias 'archive-desummarize #[nil "\303\304 ~\210e\n|\210\305!*\207" [modified inhibit-read-only archive-proper-file-start t buffer-modified-p restore-buffer-modified-p] 2])
#@297 Parse the contents of the archive file in the current buffer.
Place a dired-like listing on the front;
then narrow to it, so that only that listing
is visible (and the real data of the buffer is hidden).
Optional argument SHUT-UP, if non-nil, means don't print messages
when parsing the archive.
(defalias 'archive-summarize #[(&optional shut-up) "~\210\306\307\310e\307\"\311\303!\210\312\f\204 \313\314!\210\315p!\210\316 \317\320\321!\322
R!) \f\2045 \313\323!\210\324 e`}\210\325\306!\210\326 \210*b\210\327\330!\207" [inhibit-read-only create-lockfiles archive-proper-file-start change-major-mode-hook shut-up suffix nil t copy-marker make-local-variable archive-desummarize message "Parsing archive file..." buffer-disable-undo "summarize" intern "archive-" symbol-name "-" "Parsing archive file...done." point-marker set-buffer-modified-p buffer-enable-undo archive-next-line 0 archive-subtype archive-files archive-file-list-start] 5 (#$ . 22132)])
#@46 Recreate the contents listing of an archive.
(defalias 'archive-resummarize #[nil "\302 \303 \210\304\305!\210 b\210\306!)\207" [no archive-file-list-start archive-get-lineno archive-desummarize archive-summarize t archive-next-line] 2 (#$ . 23107)])
#@75 Insert a description of a list of files annotated with proper mouse face.
(defalias 'archive-summarize-files #[(files) "\304 \203 @\305H\202 \306\307\310\311\312 \"\"c\210\304 \211\207" [archive-file-list-start files archive-file-name-indent archive-file-list-end point-marker 1 0 apply concat mapcar #[(fil) "\302H\303P\304\305H\306H\307 $\210 )\207" [fil text 0 "\n" add-text-properties 1 2 (mouse-face highlight help-echo "mouse-2: extract this file into a buffer")] 5]] 5 (#$ . 23366)])
#@165 Toggle alternative display.
To avoid very long lines archive mode does not show all information.
This function changes the set of information shown for each files.
(defalias 'archive-alternate-display #[nil "?\301 \207" [archive-alternate-display archive-resummarize] 1 (#$ . 23875) nil])
#@340 Make sure a file FNAME can be created uniquely in directory DIR.
If FNAME can be uniquely created in DIR, it is returned unaltered.
If FNAME is something our underlying filesystem can't grok, or if another
file by that name already exists in DIR, a unique new name is generated
using `make-temp-file', and the generated name is returned.
(defalias 'archive-unique-fname #[(fname dir) "\306 \"\307\n\"\306\310\311!\203 \311 \204 \312\202 \313 \" \f\204( \314
!\2035 \315\316 !\317\"\210\320 !\202= \315\316
!\317\"\210
+\207" [fname dir file-name-invalid-regexp tmpfile alien fullname expand-file-name string-match fboundp msdos-long-file-names "am" "arc-mode." file-exists-p make-directory file-name-directory t make-temp-file] 5 (#$ . 24173)])
(defalias 'archive-maybe-copy #[(archive) "\306 \203. d\n\203 \n\307H\206 \310\f\"\214~\210\311
d\312\313%\210)*\2027 \314 \2036 \315 \210 )\207" [coding-system-for-write archive-remote archive-subfile-mode archive archive-name start no-conversion 0 archive-unique-fname write-region nil nomessage buffer-modified-p save-buffer archive-tmpdir archive-local-name] 6])
(defalias 'archive-maybe-update #[(unchanged) "\205H \306 \307\310 \311 \204- \312\313 \210\314!\210\315\311!\210b\210\316 !\210\317!\210\204> \320\321\322p!\"\210\323
\206F ?!-\207" [archive-remote archive-local-name inhibit-read-only lno coding-system-for-read modified buffer-modified-p no-conversion archive-get-lineno t nil erase-buffer insert-file-contents archive-mode archive-next-line archive-delete-local message "Buffer `%s' must be saved for changes to take effect" buffer-name set-buffer-modified-p name unchanged archive-files archive-file-list-start] 5])
#@72 Delete file NAME and its parents up to and including `archive-tmpdir'.
(defalias 'archive-delete-local #[(name) "\304\305\306!!\3071 \310 !0\202 \210\202 \210\n\205? \305\311 !!\3121- \313 !0\2021 \210\2022 \210 \230\203 \314\211\204 \314*\207" [archive-tmpdir top again name t directory-file-name file-name-as-directory (error) delete-file file-name-directory (error) delete-directory nil] 5 (#$ . 25904)])
(defalias 'archive-try-jka-compr #[nil "\205D \306 !\205D \307 !\310\311\n\"\203 \312\313\n\"\202 \n\314\315 !\316\317 \320\"# \321\216\322\323 \324ed\f\316\325%\210*\326 \210\327\323!\210\330\f!,\207" [auto-compression-mode buffer-file-name basename tmpname tmpfile jka-compr-inhibit jka-compr-get-compression-info file-name-nondirectory string-match ":\\([^:]+\\)\\'" match-string 1 make-temp-file file-name-sans-extension nil file-name-extension period #[nil "\301!\207" [tmpfile delete-file] 2] no-conversion t write-region quiet erase-buffer set-buffer-multibyte insert-file-contents coding-system-for-write] 6])
(defalias 'archive-file-name-handler #[(op &rest args) "\303=\206
\304\305\n\")\207" [op file-name-handler-alist args file-exists-p nil apply] 3])
#@57 Set the current buffer as if it were visiting FILENAME.
(defalias 'archive-set-buffer-as-visiting-file #[(filename) "\212eb\210\306\206# \203 \212 \ndeZ\")\206# \307\310\311\npB\306#@) \2043 \2043 \312\f\313\"\f\314>\204B \315ed\f#\210\f\316\317!\210\320\321!\210\322deZ!+\207" [coding-system-for-read set-auto-coding-function filename file-name-handler-alist coding buffer-undo-list t (("" . archive-file-name-handler)) find-operation-coding-system insert-file-contents coding-system-change-text-conversion raw-text (nil no-conversion) decode-coding-region set-buffer-modified-p nil kill-local-variable buffer-file-coding-system after-insert-file-set-coding enable-multibyte-characters last-coding-system-used] 5 (#$ . 27106)])
#@73 In archive mode, extract this entry of the archive into its own buffer.
(defalias 'archive-extract #[(&optional other-window-p event) "\203\n \306\307!!\210 \310=\311 \211\312H \313H p @A B\314 C\315C! D\315
!\316D\317R E\320 F\321\322\323G!\324FR!) HI\206S \n\206S \325J\f\" K\326D\327
Q! L\330E! M\331 NO PM\203z \314M!L\230\204T\332C!C\333E!E\334E!M\335NrMq\210L\f\336\f!QBA\337\340!\210@ \341\342\343\331\335$\210 RPOS\205\277 O\344\331 T U V\3451\347 \346H!\203\333 HC\f\"\202\343 \347C\fHJ#0\202\365 W\350\351\352\353W!\"!\210)\331+\204\nN\203\n\354\331!\210\355M!\210\202O\356 \210\357\f!\210eb\210\360E!\210KX\331Y\354\331!\210\361 Z\362 \210\363\364!\203B\335[K\203<\335I\365\366\367\335#\210\370\371!\210I\203O\351\372!\210)\373\335!\210\374M!?\206\217\n\203m\375MN\205i\376\"\202\217 \377=\203|\201\\ M!\202\217 \203\211\201] M!\202\217\201^ M!.\207" [event other-window-p view-p descr ename iname posn-set-point event-end view archive-get-descr 0 1 buffer-file-name file-name-nondirectory " (" ")" "extract" intern "archive-" symbol-name "-" string-match expand-file-name ":" get-buffer nil archive-maybe-copy generate-new-buffer-name get-buffer-create t abbreviate-file-name make-local-variable archive-superior-buffer add-hook write-file-functions archive-write-file-member no-conversion (error) fboundp archive-*-extract ding message "%s" error-message-string set-buffer-modified-p kill-buffer archive-try-jka-compr archive-set-buffer-as-visiting-file rename-buffer buffer-size normal-mode derived-mode-p archive-mode remove-hook write-contents-functions archive-write-file run-hooks archive-extract-hook "Note: altering this archive is not implemented." archive-maybe-update buffer-name view-buffer kill-buffer-if-not-modified display archive-buffer default-directory arcdir archive arcname bufname suffix archive-subtype extractor archive-read-only file-name-invalid-regexp read-only-p arcfilename buffer just-created archive-file-name-coding-system file-name-coding buffer-file-truename archive-subfile-mode enable-multibyte-characters create-lockfiles coding-system-for-read coding-system-for-write err buffer-read-only buffer-undo-list buffer-saved-size archive-remote display-buffer switch-to-buffer-other-window switch-to-buffer] 6 (#$ . 27852) (list nil last-input-event)])
(defalias 'archive-*-extract #[(archive name command) "\306!\307\310\n! \"\311\211 \312\313 !\314\"\210\315\316@\311\211\211\317A\nD\"&\211\247\203N \f\320U\203N \321 !\204E \322\323\324 \"!\210\202{ \325 !\210\314\202{ \f\247\203` \322\323\326@\f#!\210\202{ \f;\203r \322\323\327@\f#!\210\202{ \322\323\330@\"!\210\331 !\210
,\207" [archive-tmpdir default-directory name tmpfile exit-status success file-name-as-directory expand-file-name file-name-nondirectory nil make-directory directory-file-name t apply call-process append 0 file-exists-p ding message "`%s': no such file or directory" insert-file-contents "`%s' exited with status %d" "`%s' aborted: %s" "`%s' failed" archive-delete-local command archive] 11])
(defalias 'archive-extract-by-stdout #[(archive name command &optional stderr-test) "\306\307!\310\216\311\312 @\313\203 \314D\202 \314\313\315 A\n D\"&\316\317! r\fq\210\320\216\321!\210eb\210
;\203? \322
\313\314#?\202C \323 \324V\203L \325\326\327 \"\210-\207" [stderr-file command archive name #1=#:temp-buffer stderr-test make-temp-file "arc-stderr" #[nil "\301!\205 \302!\207" [stderr-file file-exists-p delete-file] 2] apply call-process nil t append generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents re-search-forward buffer-size 0 message "%s" buffer-string] 10])
(defalias 'archive-extract-by-file #[(archive name command &optional stdout-test) "\306\307\310\"\306\311!\312\216\313\314\n@\315\316D\315 \f\317\nA C\"BB&\320\321! r
q\210\322\216\323!\210eb\210 ;\203A \324 \315\325#?\202E \326 \327V\203N \330\331\332 \"\210+\333\334\f \"!\203_ \335\334\f \"!\210+\207" [stdout-file dest command archive name #1=#:temp-buffer make-temp-file "arc-dir" dir "arc-stdout" #[nil "\303!\203\n \304!\210\303\305 \n\"!\203 \304\305 \n\"!\210\306 !\2039 \307\306 !!\310\305 \n\"!\203 \311\305 \n\"!\210\202 \310\n!\205B \311\n!\207" [stdout-file name dest file-exists-p delete-file expand-file-name file-name-directory directory-file-name file-directory-p delete-directory] 4] apply call-process nil :file append generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents re-search-forward t buffer-size 0 message "%s" buffer-string file-exists-p expand-file-name insert-file-contents-literally stdout-test] 11])
#@54 In archive mode, find this member in another window.
(defalias 'archive-extract-other-window #[nil "\300\301!\207" [archive-extract t] 2 (#$ . 32629) nil])
#@57 In archive mode, display this member in another window.
(defalias 'archive-display-other-window #[nil "\300\301!\207" [archive-extract display] 2 (#$ . 32791) nil])
#@48 In archive mode, view the member on this line.
(defalias 'archive-view #[nil "\300\301!\207" [archive-extract view] 2 (#$ . 32962) nil])
#@61 Add current buffer to the archive in ARCBUF naming it NAME.
(defalias 'archive-add-new-member #[(arcbuf name) "rq\210\306\307!\204 \310\311!\210 \203 \310\312!\210)p=\203! \310\313!\210\n\314\230\203+ \310\315!\210rq\210\316\317\320\321\f!\322 R!*p \323!\203U rq\210
\n#)\202X \310\324!*\207" [arcbuf archive-read-only name suffix archive-subtype membuf derived-mode-p archive-mode error "Buffer is not an archive buffer" "Archive is read-only" "An archive buffer cannot be added to itself" "" "Archive members may not be given empty names" "add-new-member" intern "archive-" symbol-name "-" fboundp "Adding a new member is not supported for this archive type" func buffer-file-name] 5 (#$ . 33105) (list (get-buffer (read-buffer "Buffer containing archive: " (let ((bufs (buffer-list))) (while (and bufs (not (save-current-buffer (set-buffer (car bufs)) (derived-mode-p 'archive-mode)))) (setq bufs (cdr bufs))) (if bufs (car bufs) (error "There are no archive buffers"))) t)) (read-string "File name in archive: " (if buffer-file-name (file-name-nondirectory buffer-file-name) "")))])
(defalias 'archive-write-file-member #[nil "\212\214\306\307!\210~\210rq\210\310\311\312\313\n!\314 R!*rq\210\315\316 !) \317\f!\2031 \f
\"\210\2028 \320
\fJ#\210\321\322!\210\306\323!\210*q\210\204O \324 \210\202S \325\322!\210*\326\327!\203^ \330\207" [archive-superior-buffer suffix archive-subtype archive writer archive-subfile-mode message "Updating archive..." "write-file-member" intern "archive-" symbol-name "-" archive-maybe-copy buffer-file-name fboundp archive-*-write-file-member set-buffer-modified-p nil "Updating archive...done" revert-buffer archive-maybe-update local-variable-p archive-member-coding-system t archive-remote last-coding-system-used] 5])
(defalias 'archive-*-write-file-member #[(archive descr command) "\306H\307 \n\"\310\311\n!! \311\f! \312\216\313\314 !\315\"\210 \316=\203* \317 !\210\2022 \320\321\211 \321\322%\210 \323H\203F \324 \325\326\323H\"\"\210\327 !\"\330 \"\331\332#@\321\211\211\333#A$ D\"&\211 %\306U\206o \334\335%\".\207" [descr ename archive-tmpdir tmpfile top default-directory 0 expand-file-name directory-file-name file-name-as-directory #[nil "\301!\207" [tmpfile archive-delete-local] 2] make-directory file-name-directory t archive-mode archive-write-file write-region nil nomessage 3 set-file-modes logior 256 encode-coding-string no-conversion apply call-process append error "Updating was unsuccessful (%S)" major-mode last-coding-system-used archive-member-coding-system archive-file-name-coding-system coding-system-for-write command archive exitcode] 11])
(defalias 'archive-write-file #[(&optional file) "\212\304\305 d\n\206 \306\307%\210\310\306!\210*\307\207" [coding-system-for-write archive-proper-file-start file buffer-file-name no-conversion write-region nil t set-buffer-modified-p] 6])
#@113 In archive mode, mark this member to be deleted from the archive.
With a prefix argument, mark that many files.
(defalias 'archive-flag-deleted #[(p &optional type) "\204 \305\306 \210 \307Y\203 \310\202 \311\312 \313 \307U\2048 \314\313!\203- \315\310!\210c\210\fy\210 \fZ\211\202 \316 !\210+\317\307!\207" [type p inhibit-read-only modified sign 68 beginning-of-line 0 1 -1 buffer-modified-p t archive-get-descr delete-char restore-buffer-modified-p archive-next-line] 4 (#$ . 36014) "p"])
#@126 In archive mode, un-mark this member if it is marked to be deleted.
With a prefix argument, un-mark that many files forward.
(defalias 'archive-unflag #[(p) "\301\302\"\207" [p archive-flag-deleted 32] 3 (#$ . 36524) "p"])
#@129 In archive mode, un-mark this member if it is marked to be deleted.
With a prefix argument, un-mark that many members backward.
(defalias 'archive-unflag-backwards #[(p) "\301[\302\"\207" [p archive-flag-deleted 32] 3 (#$ . 36755) "p"])
#@19 Remove all marks.
(defalias 'archive-unmark-all-files #[nil "\304 \305\212\nb\210` W\203\" g\306U\204 \307\310!\210\306c\210\310y\210\202 )\311 !*\207" [inhibit-read-only modified archive-file-list-start archive-file-list-end buffer-modified-p t 32 delete-char 1 restore-buffer-modified-p] 2 (#$ . 36999) nil])
#@158 In archive mode, mark this member for group operations.
With a prefix argument, mark that many members.
Use \[archive-unmark-all-files] to remove all marks.
(defalias 'archive-mark #[(p) "\301\302\"\207" [p archive-flag-deleted 42] 3 (#$ . 37321) "p"])
(defalias 'archive-get-marked #[(mark &optional default) "\305\212 b\210`\nW\203 g U\203 \306 B\307y\210\202 )\237\206* \f\205* \306 C)\207" [files archive-file-list-start archive-file-list-end mark default nil archive-get-descr 1] 2])
(defalias 'archive-next-line #[(p) "y\210m\206 u\207" [p archive-file-name-indent] 1 nil "p"])
(defalias 'archive-previous-line #[(p) "\301[!\207" [p archive-next-line] 2 nil "p"])
#@191 Change the protection bits associated with all marked or this member.
The new protection bits can either be specified as an octal number or
as a relative change like "g+rw" as for chmod(2).
(defalias 'archive-chmod-entry #[(new-mode) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-mode error "Archive is read-only" "chmod-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting mode bits is not supported for this archive type"] 5 (#$ . 38010) "sNew mode (octal or relative): "])
#@48 Change the owner of all marked or this member.
(defalias 'archive-chown-entry #[(new-uid) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-uid error "Archive is read-only" "chown-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting owner is not supported for this archive type"] 5 (#$ . 38658) "nNew uid: "])
#@48 Change the group of all marked or this member.
(defalias 'archive-chgrp-entry #[(new-gid) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-gid error "Archive is read-only" "chgrp-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting group is not supported for this archive type"] 5 (#$ . 39136) "nNew gid: "])
#@27 Do the flagged deletions.
(defalias 'archive-expunge #[nil "\306\212 b\210`\nW\203 g\307U\203 \310 \311HB\312y\210\202 )\237\211\205\212 \2031 \313\314!\205\212 \315\316\317GA\204? \320\202@ \321#!\204K \313\322!\205\212 \323\324 !\325 \326\327\330
!\331\fR!) \332 !\203p \"\210\202y \333 J#\210\334\306!\210!\203\207 \335 \202\211 \336 *)\207" [files archive-file-list-start archive-file-list-end archive-read-only suffix archive-subtype nil 68 archive-get-descr 0 1 error "Archive is read-only" yes-or-no-p format "Really delete %d member%s? " "" "s" "Operation aborted" archive-maybe-copy buffer-file-name "expunge" intern "archive-" symbol-name "-" fboundp archive-*-expunge archive-maybe-update archive-resummarize revert-buffer expunger archive archive-remote] 7 (#$ . 39614) nil])
(defalias 'archive-*-expunge #[(archive files command) "\303\304@\305\211\211\306A \nB\"&\207" [command archive files apply call-process nil append] 10])
#@65 Change the name associated with this entry in the archive file.
(defalias 'archive-rename-entry #[(newname) "\203 \306\307!\210 \310\230\203 \306\311!\210\312\313\314\315 !\316\nR!)\317 \320
!\2036
\321 \"\f\"\210\322 \2029 \306\323!*\207" [archive-read-only newname suffix archive-subtype descr func error "Archive is read-only" "" "Archive members may not be given empty names" "rename-entry" intern "archive-" symbol-name "-" archive-get-descr fboundp encode-coding-string archive-resummarize "Renaming is not supported for this archive type" archive-file-name-coding-system] 5 (#$ . 40590) "sNew name: "])
(defalias 'archive-mode-revert #[(&optional _no-auto-save _no-confirm) "\305 \306\211\307\310\311\211\"\210*\312 \210\fb\210\313!)\207" [no archive-files coding-system-for-read revert-buffer-function archive-file-list-start archive-get-lineno nil no-conversion revert-buffer t archive-mode archive-next-line] 4])
#@106 Undo in an archive buffer.
This doesn't recover lost files, it just undoes changes in the buffer itself.
(defalias 'archive-undo #[nil "\301\302 )\207" [inhibit-read-only t undo] 1 (#$ . 41534) nil])
(defalias 'archive-arc-summarize #[nil "\306\307\310\311\211 \f\312\\dW\203\275 \313\f!\314U\203\275 \313\fT!\307V\203\275 \f\315\\\316\f\315\317#{ \320\321
\"\2065 \317 )\322\323
\307)#*\" +\324\f\325\\\326\" ,\324\f\327\\\315\" -\324\f\330\\\315\" .\324\f\331\\\326\" /+\211\226\230\211 0\203t +\227\202v + 1\332\333/\334-!\335.!1% 2\n)] /\\\3362\211G1GZ2G#B\336+10\311\fS% B\316\f\312,#.\n\202\n eb\210\337\340\n\341\"\342Q 3\3433\261\210\344\237!\2103\332\345 G G\306U\203\346 \346\202\347 \347$\342\261\210)\350\336 \237\"-\207" [visual files maxlen totalsize p namefld 1 0 8 nil 29 get-byte 26 2 + 13 string-match " " decode-coding-string substring archive-l-e 15 4 19 21 25 format " %8d %-11s %-8s %s" archive-dosdate archive-dostime vector "- -------- ----------- -------- " make-string 45 "\n" "M Length Date Time File\n" archive-summarize-files " %8d %d file%s" "" "s" apply fnlen archive-file-name-coding-system efnname csize moddate modtime ucsize fiddle ifnname text dash] 8])
(defalias 'archive-arc-rename-entry #[(newname descr) "\305\306\"\203 \307\310!\210G\311V\203 \307\312!\210\313\314G\"P\315\214\212~\210\316 \f\317H\320#b\210\321\322!\210\323\n!,\207" [newname inhibit-read-only name archive-proper-file-start descr string-match "[:\\/]" error "File names in arc files must not contain a directory component" 12 "File names in arc files are limited to 12 characters" substring " " t + 4 2 delete-char 13 arc-insert-unibyte] 4])
(defalias 'archive-lzh-summarize #[(&optional start) "\206 \306\307\310\311\211
b\210\312\313!\203=\314
! @\315
\316\\\317\" A\315
\320\\\317\" B\315
\321\\\322\" C\315
\323\\\322\" D\314
\324\\! E\311\211 F G\311\211 H I\311\211 J K\311\211 L M\311\211 N O\311\211 P Q\311\211 R S\311\211 T U\311\211 V W\311\211 X YE\325U\203\212 \326\327!\210E\307U\204\230 E\306U\203\274 \314
\330\\!G
\331\\\332
\331G#{ Z\333Z[\")H\332
\331G#ME\306U\203\314 M\325\\N\202\330 E\322U\203\330
\334\\NN\203\315N\322\" \\\314N\322\\! ]\\\307U\204\376]\306U\203\"N\325\\\211 ^N\\\\W\203 H\335\314^!!PH^T\211^\202)\202\345]\322U\203]N\325\\\211 ^N\\\\W\203YT\314^!\336U\203H\337\202M\335^f!PT^T\211^\2020)\202\345]\340U\203p\315N\325\\\322\"O\202\345]\341U\203\214\315N\325\\\322\"Q\315N\342\\\322\"R\202\345]\343U\203\272N\325\\\211 ^N\\\\W\203\266V\335^f!PV^T\211^\202\232)\202\345]\344U\203\345N\325\\\211 ^N\\\\W\203\344W\335^f!PW^T\211^\202\310)N\\\\N\315N\322\"\\\314N\322\\!]\202\354 N
ZF*E\307U\203@FE\307U\203\307\2028E\306U\203-\332
\331G\322$f\2028E\322U\2058
\345\\f\211I\346U\203D\347\202PI\307U\205PH\211\226\230\211J\203\\H\227\202^HKT\203mTKP\202oK\211U\203|\350U!\202}\307LO\203\213\351O!\202\214\352PE\322U\203\236\353CD\"\202\242\354D!YE\322U\203\264\355CD\"\202\270\356C!X_\203\325\357\360BQ\206\311\361R\206\317\361K%\202\343\357\362PBYXU&S L]\fB\\\363S\211GUGZSG# B\363UKJO
S%\nBE\306U\203!\332
@\322A$\2028E\322U\204/E\307U\2038\332
F\322A$.\202 eb\210_\203I\364\202J\365\366 \367\"\370Q_\203Y\371\202Z\372_\203c\373\202d\374 ` a bab\261\210\375 \237!\210b\357`\f\nG\nG\306U\203\211\376\202\212\377$\370\261\210+\201c \363\n\237\"-\207" [start visual files maxlen totalsize p 1 0 8 nil looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-" get-byte archive-l-e 7 4 11 15 2 17 20 3 error "can't handle lzh level 3 header type" 21 22 + decode-coding-string 24 char-to-string 255 "/" 80 81 5 82 83 23 77 t string-width archive-int-to-mode "??????????" archive-unixdate archive-dosdate archive-unixtime archive-dostime format " %8d %5S %5S %s" "?" " %10s %8d %-11s %-8s %s" vector "- -------- ----- ----- " "- ---------- -------- ----------- -------- " make-string 45 "\n" "M Length Uid Gid File\n" "M Filemode Length Date Time File\n" " %8.0f %d file%s" " %8.0f %d file%s" archive-summarize-files "" "s" hsize csize ucsize time1 time2 hdrlvl thsize fnlen efnname osid fiddle ifnname width p2 neh mode modestr uid gid text dir prname gname uname modtime moddate str archive-file-name-coding-system ehsize etype i archive-alternate-display sumline header dash apply] 8])
(defconst archive-lzh-alternate-display t)
(defalias 'archive-lzh-extract #[(archive name) "\303 \n#\207" [archive name archive-lzh-extract archive-extract-by-stdout] 4])
(defalias 'archive-lzh-resum #[(p count) "\303 \303V\203 S\304\n!\\\nT\202 \305\306\")\207" [sum count p 0 get-byte logand 255] 3])
(defalias 'archive-lzh-rename-entry #[(newname descr) "\214\212~\210 \306H\\\307\n!\307\n\310\\!
G \311 \f[# \312 \313V\203/ \314\315!\210\n\310\\b\210\316\fT!\210\317
\"\210\nb\210\316\320!\210\317\321\n\"\".\207" [archive-proper-file-start descr p oldhsize oldfnlen newname 4 get-byte 21 + t 255 error "The file name is too long" delete-char arc-insert-unibyte 2 archive-lzh-resum newfnlen newhsize inhibit-read-only] 5])
(defalias 'archive-lzh-ogm #[(newval files errtxt ofs) "\212\214~\210\306\211\205\230 \n@ \307H\\ \310\f! \310\f\311\\! \312\f\313 #
Z\314Y\203: \310 \315\\!\202; \316 \317 \320U\203\205 \247\204Z \321 !\\\315\"! !\\b\210\322\315!\210\323\324 \325\"\326 \327\"\"\210\fTb\210\322\330!\210\323\331\fT
\"!\210\202\216 \332\333 \330H\"#\210.\nA\211\204\f \306,\207" [files fil --dolist-tail-- archive-proper-file-start p hsize nil 4 get-byte 21 + 22 24 2 0 t 85 archive-l-e delete-char arc-insert-unibyte logand 255 ash -8 1 archive-lzh-resum message "Member %s does not have %s field" fnlen p2 creator inhibit-read-only newval ofs errtxt] 6])
(defalias 'archive-lzh-chown-entry #[(newuid files) "\302 \303\304$\207" [newuid files archive-lzh-ogm "an uid" 10] 5])
(defalias 'archive-lzh-chgrp-entry #[(newgid files) "\302 \303\304$\207" [newgid files archive-lzh-ogm "a gid" 12] 5])
(defalias 'archive-lzh-chmod-entry #[(newmode files) "\301\302\303\304$\207" [files archive-lzh-ogm #[(old) "\302 \303#\207" [old newmode archive-calc-mode t] 4] "a unix-style mode" 8] 5])
#@75 Summarize the contents of an LZH self-extracting exe, for `archive-mode'.
(defalias 'archive-lzh-exe-summarize #[nil "\300\301\302\"\210\303\304\224!\207" [re-search-forward "..-l[hz][0-9ds]-" nil archive-lzh-summarize 0] 3 (#$ . 48042)])
(defalias 'archive-lzh-exe-extract 'archive-lzh-extract "Extract a member from an LZH self-extracting exe, for `archive-mode'.")
(defalias 'archive-zip-summarize #[nil "d\306Zb\210\307\310!\210\311`\312\\\306\"\313\314\315\211\211 \211 \316U\204&
\317U\203K \320\321!\210e\311`\313\\\313\"\\\211b\210
\211\306\\{\322\230\204D \323\324!\210\311
\325\\\313\"
e\\
\211\306\\{\326\230\203\244\327
\330\\! @\311
\331\\\332\" A\311
\333\\\332\" B\311
\334\\\306\" C\311
\335\\\332\" D\311
\336\\\332\" E\311
\337\\\332\" F\311
\340\\\306\" G
\341\\\342
\341D#{ H\343HI\") JC\316U\204\273 C\317U\203\317 E\314V\203\317 \311\342
\341D\306$\313\"\202\321 C\211 C\314U\205\337 \344J!\345\230 K@\346\267\202\311
\347\\\332\"\202\350\351K\203\374 \352\202\375 \314\353\354\327
\355\\!\"\314U\203\356\202\314#\202\315\211 L\203!\357L!\202\"\360 MN\2058@\361>??\2058J\226J\230\211 O\203DJ\227\202FJ P\362P! Q\363\364MC\365B!\366A!P& R\fQ] C\\\367R\211GPGZRG# BK?\205\221\367JPOL
SGD%\nB\342
\341DEF%.\202O eb\210\370\371\f\372\"\373Q S\374S\261\210\375 \237!\210S\363\376 \nG\nG\354U\203\315\345\202\316\377$\373\261\210)\201T \367\n\237\".\207" [emacs-int-has-32bits visual files totalsize maxlen p 4 search-backward-regexp "[P]K" archive-l-e 16 8 0 nil 4294967295 -1 search-backward "PK" "PK" error "Unrecognized ZIP file format" 48 "PK" get-byte 5 12 2 14 24 28 30 32 42 46 + decode-coding-string file-name-nondirectory "" #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 232 3 232 0 241 5 241 6 241 7 241 10 241 11 241 15 241)) 40 logior 292 16457 logand 1 38 146 archive-int-to-mode "??????????" (0 2 4 5 9) string-width format " %10s %8d %-11s %-8s %s" archive-dosdate archive-dostime vector "- ---------- -------- ----------- -------- " make-string 45 "\n" "M Filemode Length Date Time File\n" archive-summarize-files " %8d %d file%s" "s" creator modtime moddate ucsize fnlen exlen fclen lheader str archive-file-name-coding-system efnname isdir mode modestr archive-zip-case-fiddle fiddle ifnname width text dash apply] 9])
(defalias 'archive-zip-extract #[(archive name) "\306@\307\"\203 \310 \n#\207@ \232\203 \304 \n\")\207\311
\312>\2030 \313\314!\203= \f\204= @\315\232\203= \316\n!\202> \n#\207" [archive-zip-extract archive name archive-7z-program archive-7z-extract system-type member-ignore-case ("pkunzip" "pkzip") archive-*-extract archive-extract-by-stdout (windows-nt ms-dos) boundp w32-quote-process-args "unzip" shell-quote-argument] 4])
(defalias 'archive-zip-write-file-member #[(archive descr) "\304 \211\305H\203
\n\202 #\207" [archive descr archive-zip-update-case archive-zip-update archive-*-write-file-member 2] 5])
(defalias 'archive-zip-chmod-entry #[(newmode files) "\214\212~\210\306\211\205{ \n@ \307H@\\ \310\f\311\\! \312H \313 \314# \314 !
\315\267\202n \f\316\\b\210\317\320!\210\321\322 \323\"\324 \325\"\"\210\202r \f\326\\b\210\321\327\322\310`!\330\"\322\331\332\324 \333\"\"\332\"\"!\210\317\332!\210\202r \334\335!\210-\nA\211\204\f \306,\207" [files fil --dolist-tail-- archive-proper-file-start p creator nil 4 get-byte 5 3 archive-calc-mode t #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 51 3 51 0 76 5 76 6 76 7 76 10 76 11 76 15 76)) 40 delete-char 2 arc-insert-unibyte logand 255 ash -8 38 logior 254 logxor 1 -7 message "Don't know how to change mode for this member" oldmode newmode newval inhibit-read-only] 10])
(defalias 'archive-zoo-summarize #[nil "\306\307\310\"T\311\312\313\211 \f\211\310\\{\314\230\203*\306\f\315\\\310\"\312V\203*\306\f\315\\\310\"T \306\f\316\\\317\" 0\306\f\320\\\317\" 1\306\f\321\\\310\" 2\f\322\\\323\f\322\324#{ 3\325\f\310\\!\211 4\317U\203c \325\f\326\\!\202d \312 54\317U\203u \325\f\327\\!\202v \312 6\330\3313\"\206\201 \324 76\312V\203\237 \323\f\3325#\323\f\33256\333%{\334P\202\240 \3355\312V\203\265 \f\332\\\323\f\3325\333${\202\274 \3363\3127#P 8\33789\") :5\312U\205\324 :\211\226\230\211 ;\203\340 :\227\202\342 : <\340<! =\341\3422\3430!\3441!<% > =]\n2\\\345>\211G<GZ>G#B\345:<;\313\fS% B
.\202 eb\210\346\347 \350\"\351Q ?\352?\261\210\353\237!\210?\341\354\n G G\355U\203S\335\202T\356$\351\261\210)\357\345 \237\"-\207" [visual files totalsize maxlen p next archive-l-e 25 4 8 0 nil "\334\247\304\375" 6 14 2 16 20 38 + 13 get-byte 56 57 string-match " " 58 -1 "/" "" substring decode-coding-string string-width format " %8d %-11s %-8s %s" archive-dosdate archive-dostime vector "- -------- ----------- -------- " make-string 45 "\n" "M Length Date Time File\n" archive-summarize-files " %8d %d file%s" 1 "s" apply moddate modtime ucsize namefld dirtype lfnlen ldirlen fnlen str archive-file-name-coding-system efnname fiddle ifnname width text dash] 8])
(defalias 'archive-zoo-extract #[(archive name) "\303 \n#\207" [archive name archive-zoo-extract archive-extract-by-stdout] 4])
(defalias 'archive-rar-summarize #[(&optional file) "\204 \306!\307\310 \311 \312\313! .r.q\210\314\216\315\316\311\317\311\320\206' \n&\210\n\2032 \321\n!\210eb\210\322\323!\210\324\325!\203~ \326\225b\210\327\330!\327\331! /\211 0G V\203X 0G/G\fV\203d /G\3320\211\311\211/\327\333!\327\334!\327\310!&
B*\2029 +
\237eb\210\335\336\f\" \335 \337\340\341\f\342\"\340\343&\211 1G 2\335 \344\345\346\347\350&\351\261\2101\341 \342\"\351\261\210\352\353\354
\"!\2101\341 \342\"\351\261\210\355\332
\".\207" [file buffer-file-name copy maxname maxsize files file-local-copy 10 5 nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] call-process "lsar" t "-l" delete-file re-search-forward "^\\( +=+ *\\)+\n" looking-at "^ +[0-9.]+ +D?-+ +\\([0-9-]+\\) +\\([-0-9.%]+\\) +\\([0-9a-zA-Z]+\\) +\\([0-9-]+\\) +\\([0-9:]+\\) +\\(.*\\)\n" 0 match-string 6 1 vector 2 4 format " %%s %%s %%%ds %%5s %%s" "----------" "-----" make-string 45 "" " Date " "Time " "Size" "Ratio" "Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H \307H \310H&\311\n \nG#)\207" [format desc text column 6 7 4 5 1 vector] 8] apply #1# size name sep column] 11])
(defalias 'archive-rar-extract #[(archive name) "\302!\203\n \303\304!\207\305 \306\307$\207" [name archive file-name-absolute-p error "Can't extract files with non-relative names" archive-extract-by-file ("unar" "-no-directory" "-o") "Successfully extracted"] 5])
(defalias 'archive-rar-exe-summarize #[nil "\301\302!\303\216eb\210\304\305!\210\306\307\224d#\210\310!*\207" [tmpfile make-temp-file "rarexe" #[nil "\301!\207" [tmpfile delete-file] 2] re-search-forward "Rar!" write-region 0 archive-rar-summarize] 4])
(defalias 'archive-rar-exe-extract #[(archive name) "\305\306!\307 !\211?\205 \310\311!\312\216r\n\206 q\210\212\214\n\203) db\210~\210\2020 \313 !\210eb\210\314\315!\210\316\317\224d#\210+\320\f\",\207" [tmpfile archive buf tmpbuf name make-temp-file "rarexe" find-buffer-visiting generate-new-buffer " *rar-exe*" #[nil "\203 \302!\210\303 !\207" [tmpbuf tmpfile kill-buffer delete-file] 2] insert-file-contents-literally re-search-forward "Rar!" write-region 0 archive-rar-extract] 5])
(defalias 'archive-7z-summarize #[nil "\306\307\310 \311\312! r
q\210\313\216\314'\310\315\310\316\317\n&\210eb\210\320\321!\210\320\322\310\315#\203| \323\225b\210\324\325!\212\320\326!\205> \324\325!)\212\320\327!\205I \324\325!) ( )\211 *G\fV\203[ *G)G V\203g )G\330*\211\310\211(\310\211)& B+\202% + \237eb\210\331\332 \" \331\333 \334\"\335\336$\211 +G ,\331\337\340\341$\342\261\210+\333\f\334\"\342\261\210\343\344\345 \"!\210+\333\f\334\"\342\261\210\346\330 \".\207" [buffer-file-name files file maxsize maxname #1=#:temp-buffer 10 5 nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process t "l" "-slt" re-search-forward "^-----+\n" "^Path = \\(.*\\)\n" 0 match-string 1 "^Size = \\(.*\\)\n" "^Modified = \\(.*\\)\n" vector format " %%%ds %%s %%s" make-string 45 "-------------------" "" "Size " "Date Time " " Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H$\307\n \nG#)\207" [format desc text column 7 4 1 vector] 6] apply archive-7z-program time size name sep column] 10])
(defalias 'archive-7z-extract #[(archive name) "\303 \n\304$\207" [archive name archive-7z-extract archive-extract-by-stdout "Everything is Ok"] 5])
(defalias 'archive-7z-write-file-member #[(archive descr) "\303 \n#\207" [archive descr archive-7z-update archive-*-write-file-member] 4])
(autoload 'tar-grind-file-mode "tar-mode")
(defconst archive-ar-file-header-re "\\(.\\{16\\}\\)\\([ 0-9]\\{12\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-7]\\{8\\}\\)\\([ 0-9]\\{10\\}\\)`\n")
(defalias 'archive-ar-summarize #[nil "\306\307\310\211\311 \310 \312 5eb\210\313\314!\210\3156!\203\316\317!\312\320\316\321!!\316\322!\316\323!\320\316\310!\311\"\320\316\324!! 7 8 9 : ; < =\325\225b\210\326\327;\";=\330\267\202g \331\332\333\334#\202v \331\335\333\334#\202v \336\337=\"\205v \340=\325\211\224#<\340:\325\336\341:\"#:\3409\325\336\3419\"#9\3428!87u\210\312f\306=\203\244 \317u\210\3437!7=GV\203\266 =G;G V\203\302 ;G:G\nV\203\316 :G9G V\203\332 9G8G\fV\203\346 8G7G
V\203\362 7G\344=<\3128;:97&5B5.\202 5\2375eb\210\345\346\f\n
& %\345%\347\f\350\"\347\n\350\"\347 \350\"\347
\350\"\347 \350\"\351&\211 >G ?\345%\352\353\354\355\356\357&\360\261\210>\347\350\"\360\261\210\361\362\3635\"!\210>\347\350\"\360\261\210\364\3445\".\n\207" [maxname maxtime maxuser maxgroup maxmode maxsize 10 16 5 8 nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 2 3 4 6 0 format-time-string "%Y-%m-%d %H:%M" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("// " 87 "/ " 95)) propertize ".<ExtNamesTable>." face italic ".<LookupTable>." string-match "/? *\\'" substring " +\\'" tar-grind-file-mode number-to-string vector format "%%%ds %%%ds/%%-%ds %%%ds %%%ds %%s" make-string 45 "" " Mode " "User" "Group" " Size " " Date " "Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H \307H \310H \311H&\312\n \nG#)\207" [format desc text column 3 5 6 7 4 1 vector] 9] apply files archive-ar-file-header-re size mode group user time extname name sep column] 10])
(defalias 'archive-ar-extract #[(archive name) "p\306!\307\211 r q\210\214\212~\210\310\311!\210\n\204M \312
!\203M \313\314! \315\313\316!!\317\225b\210\232\203< `\202I u\210\307f\320=\203I \314u\210)\202 \n\205g \321\307!\210r\fq\210\322 \n\211 \\#\210)\321\323!\210\324.\207" [archive size from archivebuf destbuf archive-ar-file-header-re find-file-noselect nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 6 0 10 set-buffer-multibyte insert-buffer-substring to t this name] 5])
(byte-code "\300\301!\210\300\302!\207" [provide archive-mode arc-mode] 2)
Zerion Mini Shell 1.0