ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/tar-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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 "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\302\317\314\320\306\301&\210\310\321\302\322\314\320\306\301&\207" [custom-declare-group tar nil "Simple editing of tar files." :prefix "tar-" :group data custom-declare-variable tar-anal-blocksize 20 "The blocksize of tar files written by Emacs, or nil, meaning don't care.\nThe blocksize of a tar file is not really the size of the blocks; rather, it is\nthe number of blocks written with one system call. When tarring to a tape,\nthis is the size of the *tape* blocks, but when writing to a file, it doesn't\nmatter much. The only noticeable difference is that if a tar file does not\nhave a blocksize of 20, tar will tell you that; all this really controls is\nhow many null padding bytes go on the end of the tar file." :type (choice integer (const nil)) tar-update-datestamp "Non-nil means Tar mode should play fast and loose with sub-file datestamps.\nIf this is true, then editing and saving a tar file entry back into its\ntar file will update its datestamp. If false, the datestamp is unchanged.\nYou may or may not want this - it is good in that you can tell when a file\nin a tar archive has been changed, but it is bad for the same reason that\nediting a file in the tar archive at all is bad - the changed version of\nthe file never exists on disk." boolean tar-mode-show-date "Non-nil means Tar mode should show the date/time of each subfile.\nThis information is useful, but it takes screen space away from file names."] 8)
(defvar tar-parse-info nil)
#@70 Buffer containing the tar archive from which a member was extracted.
(defvar tar-superior-buffer nil (#$ . 1980))
#@56 Tar descriptor for a member extracted from an archive.
(defvar tar-superior-descriptor nil (#$ . 2100))
(defvar tar-file-name-coding-system nil)
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put tar-superior-buffer permanent-local t tar-superior-descriptor] 4)
#@45 Buffer that holds the actual raw tar bytes.
(defvar tar-data-buffer nil (#$ . 2378))
(make-variable-buffer-local 'tar-data-buffer)
#@59 If non-nil, `tar-data-buffer' indeed holds raw tar bytes.
(defvar tar-data-swapped nil (#$ . 2515))
(make-variable-buffer-local 'tar-data-swapped)
#@57 Return non-nil if the tar-data is in `tar-data-buffer'.
(defalias 'tar-data-swapped-p #[nil "\302!\205 \303!\303 U\204 \303!\303 V=\204 \304\305!\210 \207" [tar-data-buffer tar-data-swapped buffer-live-p buffer-size cl--assertion-failed (or (= (buffer-size tar-data-buffer) (buffer-size)) (eq tar-data-swapped (> (buffer-size tar-data-buffer) (buffer-size))))] 3 (#$ . 2668)])
#@143 Swap buffer contents between current buffer and `tar-data-buffer'.
Preserve the modified states of the buffers and set `buffer-swapped-with'.
(defalias 'tar-swap-data #[nil "\304!\304 \305!\210 ?\306\n!\210rq\210\306 !+\207" [tar-data-buffer current-buffer-modified-p data-buffer-modified-p tar-data-swapped buffer-modified-p buffer-swap-text restore-buffer-modified-p] 2 (#$ . 3059)])
(defalias 'tar-header-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 17) (memq (aref cl-x 0) cl-struct-tar-header-tags) t)) nil] 7])
(put 'tar-header-p 'compiler-macro 'tar-header-p--cmacro)
(defalias 'tar-header-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-tar-header-tags vectorp 17 0 t] 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put tar-header-p side-effect-free error-free put tar-header cl-deftype-satisfies] 4)
(defalias 'tar-header-data-start--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-data-start (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 1)) nil] 7])
(put 'tar-header-data-start 'compiler-macro 'tar-header-data-start--cmacro)
(defalias 'tar-header-data-start #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 1] 4])
(function-put 'tar-header-data-start 'side-effect-free t)
(defalias 'tar-header-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 2)) nil] 7])
(put 'tar-header-name 'compiler-macro 'tar-header-name--cmacro)
(defalias 'tar-header-name #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 2] 4])
(function-put 'tar-header-name 'side-effect-free t)
(defalias 'tar-header-mode--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-mode (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 3)) nil] 7])
(put 'tar-header-mode 'compiler-macro 'tar-header-mode--cmacro)
(defalias 'tar-header-mode #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 3] 4])
(function-put 'tar-header-mode 'side-effect-free t)
(defalias 'tar-header-uid--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-uid (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 4)) nil] 7])
(put 'tar-header-uid 'compiler-macro 'tar-header-uid--cmacro)
(defalias 'tar-header-uid #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 4] 4])
(function-put 'tar-header-uid 'side-effect-free t)
(defalias 'tar-header-gid--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-gid (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 5)) nil] 7])
(put 'tar-header-gid 'compiler-macro 'tar-header-gid--cmacro)
(defalias 'tar-header-gid #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 5] 4])
(function-put 'tar-header-gid 'side-effect-free t)
(defalias 'tar-header-size--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-size (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 6)) nil] 7])
(put 'tar-header-size 'compiler-macro 'tar-header-size--cmacro)
(defalias 'tar-header-size #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 6] 4])
(function-put 'tar-header-size 'side-effect-free t)
(defalias 'tar-header-date--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-date (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 7)) nil] 7])
(put 'tar-header-date 'compiler-macro 'tar-header-date--cmacro)
(defalias 'tar-header-date #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 7] 4])
(function-put 'tar-header-date 'side-effect-free t)
(defalias 'tar-header-checksum--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-checksum (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 8)) nil] 7])
(put 'tar-header-checksum 'compiler-macro 'tar-header-checksum--cmacro)
(defalias 'tar-header-checksum #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 8] 4])
(function-put 'tar-header-checksum 'side-effect-free t)
(defalias 'tar-header-link-type--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-link-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 9)) nil] 7])
(put 'tar-header-link-type 'compiler-macro 'tar-header-link-type--cmacro)
(defalias 'tar-header-link-type #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 9] 4])
(function-put 'tar-header-link-type 'side-effect-free t)
(defalias 'tar-header-link-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-link-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 10)) nil] 7])
(put 'tar-header-link-name 'compiler-macro 'tar-header-link-name--cmacro)
(defalias 'tar-header-link-name #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 10] 4])
(function-put 'tar-header-link-name 'side-effect-free t)
(defalias 'tar-header-magic--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-magic (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 11)) nil] 7])
(put 'tar-header-magic 'compiler-macro 'tar-header-magic--cmacro)
(defalias 'tar-header-magic #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 11] 4])
(function-put 'tar-header-magic 'side-effect-free t)
(defalias 'tar-header-uname--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-uname (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 12)) nil] 7])
(put 'tar-header-uname 'compiler-macro 'tar-header-uname--cmacro)
(defalias 'tar-header-uname #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 12] 4])
(function-put 'tar-header-uname 'side-effect-free t)
(defalias 'tar-header-gname--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-gname (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 13)) nil] 7])
(put 'tar-header-gname 'compiler-macro 'tar-header-gname--cmacro)
(defalias 'tar-header-gname #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 13] 4])
(function-put 'tar-header-gname 'side-effect-free t)
(defalias 'tar-header-dmaj--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-dmaj (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 14)) nil] 7])
(put 'tar-header-dmaj 'compiler-macro 'tar-header-dmaj--cmacro)
(defalias 'tar-header-dmaj #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 14] 4])
(function-put 'tar-header-dmaj 'side-effect-free t)
(defalias 'tar-header-dmin--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-dmin (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 15)) nil] 7])
(put 'tar-header-dmin 'compiler-macro 'tar-header-dmin--cmacro)
(defalias 'tar-header-dmin #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 15] 4])
(function-put 'tar-header-dmin 'side-effect-free t)
(defalias 'tar-header-header-start--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-header-start (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 16)) nil] 7])
(put 'tar-header-header-start 'compiler-macro 'tar-header-header-start--cmacro)
(defalias 'tar-header-header-start #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-tar-header-tags 0 signal wrong-type-argument tar-header 16] 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put tar-header-header-start side-effect-free t defalias copy-tar-header copy-sequence] 4)
(defalias 'make-tar-header--cmacro #[(_cl-whole-arg data-start name mode uid gid size date checksum link-type link-name magic uname gname dmaj dmin) "\306\307\310\311\211\211 \n \f
\n \f
&\207" [data-start name mode uid gid size cl--defsubst-expand (data-start name mode uid gid size date checksum link-type link-name magic uname gname dmaj dmin) (cl-block make-tar-header "Constructor for objects of type `tar-header'." (declare (side-effect-free t)) (vector 'tar-header data-start name mode uid gid size date checksum link-type link-name magic uname gname dmaj dmin nil)) nil date checksum link-type link-name magic uname gname dmaj dmin] 21])
(put 'make-tar-header 'compiler-macro 'make-tar-header--cmacro)
#@47 Constructor for objects of type `tar-header'.
(defalias 'make-tar-header #[(data-start name mode uid gid size date checksum link-type link-name magic uname gname dmaj dmin) "\306\307 \n \f
\n \f
\310&\207" [data-start name mode uid gid size vector tar-header nil date checksum link-type link-name magic uname gname dmaj dmin] 18 (#$ . 14631)])
(byte-code "\300\301\302\303#\210\304\305\306\211\307\303\310\311\305\306& \207" [function-put make-tar-header side-effect-free t cl-struct-define tar-header nil vector ((cl-tag-slot) (data-start) (name) (mode) (uid) (gid) (size) (date) (checksum) (link-type) (link-name) (magic) (uname) (gname) (dmaj) (dmin) (header-start)) cl-struct-tar-header-tags] 10)
(defconst tar-name-offset 0)
(defconst tar-mode-offset (+ tar-name-offset 100))
(defconst tar-uid-offset (+ tar-mode-offset 8))
(defconst tar-gid-offset (+ tar-uid-offset 8))
(defconst tar-size-offset (+ tar-gid-offset 8))
(defconst tar-time-offset (+ tar-size-offset 12))
(defconst tar-chk-offset (+ tar-time-offset 12))
(defconst tar-linkp-offset (+ tar-chk-offset 8))
(defconst tar-link-offset (1+ tar-linkp-offset))
(defconst tar-magic-offset (+ tar-link-offset 100))
(defconst tar-uname-offset (+ tar-magic-offset 8))
(defconst tar-gname-offset (+ tar-uname-offset 32))
(defconst tar-dmaj-offset (+ tar-gname-offset 32))
(defconst tar-dmin-offset (+ tar-dmaj-offset 8))
(defconst tar-prefix-offset (+ tar-dmin-offset 8))
(defconst tar-end-offset (+ tar-prefix-offset 155))
#@41 Round S up to the next multiple of 512.
(defalias 'tar-roundup-512 #[(s) "\301\211\302\\\303\"\304\"\207" [s ash 511 -9 9] 4 (#$ . 16132)])
#@128 Return a `tar-header' structure.
This is a list of name, mode, uid, gid, size,
write-date, checksum, link-type, and link-name.
(defalias 'tar-header-block-tokenize #[(pos coding) "\306\\dV\203\f \307\310!\210\311eZ\306\"\312U\204 \313\314!\210 \203# \313\315!\210\211\306\\\211{\211\312H\312U\203< \n\316H\312U?\205p
S /0S 12S 3\n4H 5\n
6\317ZO\211 7\320\235@ 8\321\211 9 :\322 ;\323;\n<#\203z \f\312\225S^\323;\n=#\203\214 /\312\225S^/\323;\n6#\203\236 1\312\225S^1\323;\n0#\203\260 3\312\225S^3\n<\fO95\312U\206\302 5\324U?\205\312 5\324Z5\n=/O:8\325\232\203\373 \323;\n>#\203\373 \312\225>TV\203\373 \n>\312\225SO\3269Q9\327\301!\203\3309?\"9\330:?\":5\204!\323\3319\"\203!\33259\333\232\203\3137\334\235\203\313\335\n@A# B\330\336B\337#{?\" 9\340\341B!\\?\" C5\342=\203yC\312HD>\204k\343\344\345CD\"\210C\211 E\3179I\210)\202\2445\346=\203\240C\312HD>\204\222\343\344\345CD\"\210C\211 F\3479I\210)\202\244\350\351!\210C\312HD>\204\266\343\344\345CD\"\210C\211 G\352\353\306Z\354\"I\210)C+\202n\353\321\"9\335\n H#\335\nHI#\335\nI@#\335\n@A#\355\nAJ#\335\nJ4#5:8\211\205\330\n61O?\"8\205 \330\n03O?\"\335\n2K#\335\nK># L M N O P Q R S T B U V W 9 X\356\345X9WVUBTSRQPONML\321&..\n)\207" [pos enable-multibyte-characters string tar-mode-offset name-end tar-magic-offset 512 error "Malformed Tar header" mod 0 cl--assertion-failed (zerop (mod (- pos (point-min)) 512)) (not enable-multibyte-characters) 101 2 ("ustar " "ustar ") nil "[^ ]* " string-match 48 "ustar " "/" default-value decode-coding-string "/\\'" 5 "././@LongLink" ("ustar " "ustar ") tar-parse-octal-integer + -1 tar-header-block-tokenize tar-roundup-512 28 signal wrong-type-argument tar-header 27 10 message "Unrecognized GNU Tar @LongLink format" 16 copy-marker t tar-parse-octal-long-integer vector link-end tar-gname-offset uname-end tar-dmaj-offset gname-end tar-linkp-offset link-p tar-uname-offset magic-str uname-valid-p name linkname nulsexp tar-name-offset tar-link-offset tar-prefix-offset coding tar-size-offset tar-time-offset size descriptor cl-struct-tar-header-tags #1=#:v #2=#:v #3=#:v tar-uid-offset tar-gid-offset tar-chk-offset tar-dmin-offset dmin dmaj gname uname magic link-name link-type checksum date gid uid mode data-start] 19 (#$ . 16280)])
(defalias 'tar-header-data-end #[(descriptor) "\305H >\204 \306\307\310D\"\210\311H\305H >\204\" \306\307\310D\"\210\312H\305H >\2045 \306\307\310D\"\210\313H \n \314>\204L \f\305V\203L \315\f!\202M \305\\+\207" [descriptor cl-struct-tar-header-tags data-start link-type size 0 signal wrong-type-argument tar-header 1 9 6 (1 2 3 4 5 6) tar-roundup-512] 4])
(defalias 'tar-parse-octal-integer #[(string &optional start end) "\204 \304 \204
\nG\nH\304U\203 \304\207\304 W\203< \nH\305W\203+ \2024 \306_\nH\305Z\\T\211\202 )\207" [start end string n 0 48 8] 4])
(defalias 'tar-parse-octal-long-integer #[(string &optional start end) "\204 \305 \204
\nG\nH\305U\203 \305\211D\207\305\211 W\203J \nH\306Y\203C \f\307_\nH\306Z\\ \307_\310\f\311\"\\\312\f\313\"T\211\202 \f*D\207" [start end string hi lo 0 48 8 ash -16 logand 65535] 5])
(defalias 'tar-parse-octal-integer-safe #[(string) "G\301U\203 \302\303!\210\304\305\"\210\306!\207" [string 0 error "empty string" mapc #[(c) "\301W\204\f \302V\205 \303\304\"\207" [c 48 55 error "`%c' is not an octal digit"] 3] tar-parse-octal-integer] 3])
#@364 Return a Tar header for a regular file.
The header will lack a proper checksum; use `tar-header-block-checksum'
to compute one, or request `tar-header-serialize' to do that.
Other tar-mode facilities may also require the data-start header
field to be set to a valid value.
If SIZE is not given or nil, it defaults to 0.
If TIME is not given or nil, assume now.
(defalias 'tar-new-regular-file-header #[(filename &optional size time) "\303\304\305\306\307\211 \206\f \307\n\206 \310 \305\211\211\211\211\211\211\211\211&\207" [filename size time vector tar-header nil 420 0 current-time] 18 (#$ . 19815)])
(defalias 'tar--pad-to #[(pos) "\301\302`[e#\303\"\207" [pos make-string + 0] 5])
(defalias 'tar--put-at #[(pos val &optional fmt mask) "\205 \304 !\n\203 \305\n \203 \306 \"\202 \"\202 \261\207" [val pos fmt mask tar--pad-to format logand] 6])
#@247 Return the serialization of a Tar HEADER as a string.
This function calls `tar-header-block-check-checksum' to ensure the
checksum is correct.
If UPDATE-CHECKSUM is non-nil, update HEADER with the newly-computed
checksum before doing the check.
(defalias 'tar-header-serialize #[(header &optional update-checksum) "\306\307!rq\210\310\216\311\312!\210\313 \314H\n>\204 \315\316\317 D\"\210 \320H \"\211 G\321W\204/ \322\323!\210\fc\210)\324
\314H\n>\204D \315\316\317 D\"\210 \325H\326\327$\210\3241 \314H\n>\204] \315\316\317 D\"\210 \330H\326\327$\210\3242 \314H\n>\204v \315\316\317 D\"\210 \331H\326\327$\210\3243 \314H\n>\204\217 \315\316\317 D\"\210 \332H\333#\210\3344!\335 \314H\n>\204\251 \315\316\317 D\"\210 \336H!\337\261\210\3245 \314H\n>\204\303 \315\316\317 D\"\210 \340H\"\210\3246 \314H\n>\204\332 \315\316\317 D\"\210 \341H\"\210 \314H\n>\204\356 \315\316\317 D\"\210 \342H\203k\3247 \314H\n>\204\315\316\317 D\"\210 \342H\"\210\3248 \314H\n>\204 \315\316\317 D\"\210 \343H\"\210\3249 \314H\n>\2044\315\316\317 D\"\210 \344H\"\210\324: \314H\n>\204K\315\316\317 D\"\210 \345H\346\347$\210\324; \314H\n>\204d\315\316\317 D\"\210 \350H\346\347$\210\324\351\352\"\210\353\354 ! <e=\\b\210\355\356!\210\357\326<\"c\210>\203\245 \314H\n>\204\233\315\316\317 D\"\210 \211 ?\356<I\210)\360\354 \314H\n>\204\267\315\316\317 D\"\210 \356H \314H\n>\204\311\315\316\317 D\"\210 \320H#\210)\354 +\207" [#1=#:temp-buffer header cl-struct-tar-header-tags tar-file-name-coding-system encoded-name tar-mode-offset generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil encode-coding-string 0 signal wrong-type-argument tar-header 2 99 error "Long file name support is not implemented" tar--put-at 3 "%6o " 262143 4 5 6 "%11o " tar--pad-to tar-octal-time 7 " " 9 10 11 12 13 14 "%7o " 2097151 15 512 "" tar-header-block-checksum buffer-string delete-char 8 format tar-header-block-check-checksum tar-uid-offset tar-gid-offset tar-size-offset tar-time-offset tar-linkp-offset tar-link-offset tar-magic-offset tar-uname-offset tar-gname-offset tar-dmaj-offset tar-dmin-offset ck tar-chk-offset update-checksum #2=#:v] 8 (#$ . 20688)])
#@62 Compute and return a tar-acceptable checksum for this block.
(defalias 'tar-header-block-checksum #[(string) "\306!\203\n \307\310!\210 \211\311\\\312\211 \312\nW\203' \f
H\\
T\211\202 \211\313W\203< \f
H\\
T\211\202* \f\314\\,\207" [string tar-chk-offset chk-field-start chk-field-end sum i multibyte-string-p cl--assertion-failed (not (multibyte-string-p string)) 8 0 512 256] 4 (#$ . 22926)])
#@57 Beep and print a warning if the checksum doesn't match.
(defalias 'tar-header-block-check-checksum #[(hblock desired-checksum file-name) "\303 !U?\205 \304 \210\305\306\n\"\207" [desired-checksum hblock file-name tar-header-block-checksum beep message "Invalid checksum for file %s!"] 3 (#$ . 23341)])
(defalias 'tar-clip-time-string #[(time) "\302!\303 \304\305O\306\307\"Q)\207" [time str current-time-string " " 4 16 format-time-string " %Y"] 5])
#@105 Construct a `-rw--r--r--' string indicating MODE.
MODE should be an integer which is a file mode value.
(defalias 'tar-grind-file-mode #[(mode) "\301\302\303\"\304U\203 \305\202 \306\302\307\"\304U\203 \305\202 \310\302\311\"\304U\2037 \302\312\"\304U\2033 \305\202E \313\202E \302\312\"\304U\203D \314\202E \315\302\316\"\304U\203R \305\202S \306\302\317\"\304U\203` \305\202a \310\302\320\"\304U\203{ \302\321\"\304U\203w \305\202\211 \313\202\211 \302\321\"\304U\203\210 \314\202\211 \315\302\322\"\304U\203\226 \305\202\227 \306\302\323\"\304U\203\244 \305\202\245 \310\302\324\"\304U\203\277 \302\325\"\304U\203\273 \305\202\315 \313\202\315 \302\325\"\304U\203\314 \326\202\315 \327& \207" [mode string logand 256 0 45 114 128 119 2048 64 120 83 115 32 16 1024 8 4 2 512 1 84 116] 12 (#$ . 23803)])
#@52 Return a line similar to the output of `tar -vtf'.
(defalias 'tar-header-block-summarize #[(tar-hblock &optional mod-p) "\306H >\204 \307\310\311D\"\210\312H\306H >\204! \307\310\311D\"\210\313H\306H >\2043 \307\310\311D\"\210\314H\306H >\204E \307\310\311D\"\210\315H\306H >\204W \307\310\311D\"\210\316H\306H >\204i \307\310\311D\"\210\317H\306H >\204{ \307\310\311D\"\210\320H\306H >\204\215 \307\310\311D\"\210\321H\306H >\204\237 \307\310\311D\"\210\322H\306H >\204\261 \307\310\311D\"\210\323H 7 8 9 : ; <\324\325=\203\317 \326\202\320 \327 \330=\204\334 \306=\203\340 \331\202c \332=\203\352 \333\202c \312=\203\364 \334\202c \313=\203\376 \335\202c \314=\203\336\202c \315=\203\337\202c \320=\203 \340\202c \341=\203&\326\202c \342=\2030\343\202c \344=\203:\345\202c \346=\203D\347\202c \350=\203N\351\202c \352=\203X\353\202c \353=\203b\354\202c\327\355;!8G\306U\203t:\202v87G\306U\203\2039\202\2057
>\203\221\356\f!\202\222\357\360<\361\362\363\364% \332=\204\246 \312=\203\266 \332U\203\260\365\202\261\366\nP\202\267\357&\n.\n\207" [tar-hblock cl-struct-tar-header-tags link-name type time size 0 signal wrong-type-argument tar-header 2 3 4 5 12 13 6 7 9 10 format "%c%c%s %7s/%-7s %7s%s %s%s" 42 32 nil 45 1 104 108 99 98 100 112 20 28 76 29 77 35 83 38 86 55 72 88 tar-grind-file-mode tar-clip-time-string "" propertize mouse-face highlight help-echo "mouse-2: extract this file into a buffer" " ==> " " --> " gname uname gid uid mode name mod-p tar-mode-show-date] 15 (#$ . 24633)])
#@73 Extract all archive members in the tar-file into the current directory.
(defalias 'tar-untar-buffer #[nil "r\306 \203\f \n\202
pq\210\307\310!\210 \310\211 \205\321 \f@\211\311H
>\204- \312\313\314 D\"\210 \315H \311H
>\204A \312\313\314 D\"\210 \316H\317=\203N \202R \320 ! \311H
>\204c \312\313\314 D\"\210 \321H\211 \311H
>\204x \312\313\314 D\"\210 \322H\\ \323 !\204\310 \324\325 \"\210 \203\235 \326 !\204\235 \327 \330\"\210\323 !\204\261 \331 !\332 #\210)\333 \311H
>\204\303 \312\313\314 D\"\210 \334H\"\210,\fA\211\204 \310,\207" [tar-parse-info descriptors tar-data-buffer descriptor --dolist-tail-- cl-struct-tar-header-tags tar-data-swapped-p set-buffer-multibyte nil 0 signal wrong-type-argument tar-header 2 9 5 file-name-directory 1 6 file-directory-p message "Extracting %s" file-exists-p make-directory t no-conversion write-region set-file-modes 3 name dir start end coding-system-for-write] 7 (#$ . 26220) nil])
#@59 Parse the contents of the tar file in the current buffer.
(defalias 'tar-summarize-buffer #[nil "\306 \204 \307\310!\210\311 \312e r
q\210\313\314ed#) \"\312 #r
q\210\ndW\203\222 \315\n\f\"\211#\203\222 #\316H$>\204G \317\320\321#D\"\210#\322H\211 %\316W\203o \323\324#\316H$>\204g \317\320\321#D\"\210#\325H%#\210)# B\326#!\"\n\211\247\203\211 \211@Y\205\215 \327\"\266\202% )\330\331!\210 \237#\204\250 \332\"!\210\202\254 \333\334!\210eb\210\312\335\336\337\340# & ' (&\340\261\210eb\210\341!. \207" [modified result pos tar-file-name-coding-system coding tar-data-buffer tar-data-swapped-p cl--assertion-failed (tar-data-swapped-p) buffer-modified-p nil make-progress-reporter "Parsing tar file..." tar-header-block-tokenize 0 signal wrong-type-argument tar-header 6 error "%s has size %s - corrupted" 2 tar-header-data-end progress-reporter-do-update make-local-variable tar-parse-info progress-reporter-done message "Warning: premature EOF parsing tar file" t mapconcat tar-header-block-summarize "\n" restore-buffer-modified-p progress-reporter descriptor cl-struct-tar-header-tags size total-summaries inhibit-read-only buffer-file-truename] 7 (#$ . 27188)])
#@37 Local keymap for Tar mode listings.
(defvar tar-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\311#\210\303\313\314#\210\303\315\314#\210\303\316\314#\210\303\317\320#\210\303\321\322#\210\303\323\305#\210\303\324\305#\210\303\325\305#\210\303\326\327#\210\303\330\331#\210\303\332\331#\210\303\333\331#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\327#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366\367\366!B#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@ \201A #\210\303\201B \201C \367\201C !B#\210\303\201D \201E #\210\303\201F \201G #\210\303\201H \201I #\210\303\201J \201K \367\201K !B#\210\303\201L \201M #\210\303\201N \201O #\210\303\201P \201Q #\210\303\201R \201S #\210\303\201T \201U #\210\303\201V \201W #\210)\207" [map make-keymap suppress-keymap define-key " " tar-next-line "C" tar-copy "d" tar-flag-deleted "" "e" tar-extract "f" "
" [mouse-2] tar-mouse-extract "g" revert-buffer "n" "" [down] "o" tar-extract-other-window "p" tar-previous-line "" [up] "I" tar-new-entry "R" tar-rename-entry "u" tar-unflag "v" tar-view "w" woman-tar-extract-file "x" tar-expunge "" tar-unflag-backwards "E" "M" tar-chmod-entry "G" tar-chgrp-entry "O" tar-chown-entry [follow-link] mouse-face [menu-bar edit] undefined [menu-bar immediate] "Immediate" make-sparse-keymap [menu-bar immediate woman] ("Read Man Page (WoMan)" . woman-tar-extract-file) [menu-bar immediate view] ("View This File" . tar-view) [menu-bar immediate display] ("Display in Other Window" . tar-display-other-window) [menu-bar immediate find-file-other-window] ("Find in Other Window" . tar-extract-other-window) [menu-bar immediate find-file] ("Find This File" . tar-extract) [menu-bar mark] "Mark" [menu-bar mark unmark-all] ("Unmark All" . tar-clear-modification-flags) [menu-bar mark deletion] ("Flag" . tar-flag-deleted) [menu-bar mark unmark] ("Unflag" . tar-unflag) [menu-bar operate] "Operate" [menu-bar operate chown] ("Change Owner..." . tar-chown-entry) [menu-bar operate chgrp] ("Change Group..." . tar-chgrp-entry) [menu-bar operate chmod] ("Change Mode..." . tar-chmod-entry) [menu-bar operate rename] ("Rename to..." . tar-rename-entry) [menu-bar operate copy] ("Copy to..." . tar-copy) [menu-bar operate expunge] ("Expunge Marked Files" . tar-expunge)] 6) (#$ . 28394))
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put tar-mode mode-class special tar-subfile-mode] 4)
(defalias 'tar-change-major-mode-hook #[nil "\301 \203 \302 \210\303!\205 \304!\207" [tar-data-buffer tar-data-swapped-p tar-swap-data buffer-live-p kill-buffer] 2])
(defalias 'tar-mode-kill-buffer-hook #[nil "\301!\205 \302!\207" [tar-data-buffer buffer-live-p kill-buffer] 2])
#@160 Hook run after entering Tar mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar tar-mode-hook nil (#$ . 31334))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp tar-mode-map put definition-name tar-mode] 4)
(defvar tar-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [tar-mode-map variable-documentation put purecopy "Keymap for `tar-mode'." boundp tar-mode-syntax-table definition-name tar-mode] 5)
(defvar tar-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [tar-mode-syntax-table variable-documentation put purecopy "Syntax table for `tar-mode'." tar-mode-abbrev-table definition-name tar-mode] 5)
(defvar tar-mode-abbrev-table (progn (define-abbrev-table 'tar-mode-abbrev-table nil) tar-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [tar-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `tar-mode'." tar-mode derived-mode-parent special-mode] 5)
#@885 Major mode for viewing a tar file as a dired-like listing of its contents.
You can move around using the usual cursor motion commands.
Letters no longer insert themselves.
Type `e' to pull a file out of the tar file and into its own buffer;
or click mouse-2 on the file's line in the Tar mode buffer.
Type `c' to copy an entry from the tar file into another file on disk.
If you edit a sub-file of this archive (as with the `e' command) and
save it with \[save-buffer], the contents of that buffer will be
saved back into the tar-file buffer; in this way you can edit a file
inside of a tar archive without extracting it and re-archiving it.
See also: variables `tar-update-datestamp' and `tar-anal-blocksize'.
\{tar-mode-map}
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `tar-mode-hook', as the final step
during initialization.
(defalias 'tar-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324>\325\"\204V >?=\204V \326>\325?C#\210\327 !\210\330\f!\210>?@\203q \331@!\203q \332A\306\333!\210\306\334!\210\332 \306\335!\210\332 \306\336!\210\332 \306\337!\210B\206\232 C\206\232 D \306\340!\210\307 \341 \210~\210\342 \203\261 \343\344!\210\306\345!\210\346%\347\350\351\332\307$\210\347\352\353\332\307$\210\347\354\355\332\307$\210\356\332!\210\306\357!\210\360\361\362\363@\206\340 \364 !\"!/\3651\366 \366 \210\367 \210\370\371!0\202 E\372 \210\373E@EA\")\210)\374\375!\207" [delay-mode-hooks major-mode mode-name tar-mode-map tar-mode-syntax-table parent make-local-variable t special-mode tar-mode "Tar" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table file-writable-p nil tar-parse-info require-final-newline local-enable-local-variables next-line-add-newlines tar-file-name-coding-system file-precious-flag buffer-disable-undo tar-data-swapped-p cl--assertion-failed (not (tar-data-swapped-p)) revert-buffer-function tar-mode-revert add-hook write-region-annotate-functions tar-write-region-annotate kill-buffer-hook tar-mode-kill-buffer-hook change-major-mode-hook tar-change-major-mode-hook set-buffer-multibyte tar-data-buffer generate-new-buffer format " *tar-data %s*" file-name-nondirectory buffer-name (error) tar-swap-data tar-summarize-buffer tar-next-line 0 fundamental-mode signal run-mode-hooks tar-mode-hook tar-mode-abbrev-table local-abbrev-table buffer-file-name buffer-read-only file-name-coding-system default-file-name-coding-system locale-coding-system err] 6 (#$ . 32518) nil])
#@59 In tar mode, run the WoMan man-page browser on this file.
(autoload 'woman-tar-extract-file "woman" '(#$ . 35297) t)
#@101 Non-nil if Tar-Subfile mode is enabled.
Use the command `tar-subfile-mode' to change this variable.
(defvar tar-subfile-mode nil (#$ . 35421))
(make-variable-buffer-local 'tar-subfile-mode)
#@390 Minor mode for editing an element of a tar-file.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil. This mode arranges for "saving" this
buffer to write the data into the tar-file buffer that it came
from. The changes will actually appear on disk when you save the
tar-file's buffer.
(defalias 'tar-subfile-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\312\303!\203 \204\" \313\314!\210\n\2036 \315\316\317\320\321$\210\322\323!\210\320\202< \324\316\317\321#\210\325\326\n\203F \327\202G \330\"\210\331\332!\203l \306 \203[ \306 \232\203l \333 \334\335\n\203g \336\202h \337
#\210))\340 \210\n\207" [#1=#:last-message arg tar-subfile-mode tar-superior-buffer buffer-auto-save-file-name local current-message toggle prefix-numeric-value 0 boundp error "This buffer is not an element of a tar file" add-hook write-file-functions tar-subfile-save-buffer nil t auto-save-mode -1 remove-hook run-hooks tar-subfile-mode-hook tar-subfile-mode-on-hook tar-subfile-mode-off-hook called-interactively-p any " in current buffer" message "Tar-Subfile mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 35618) (list (or current-prefix-arg 'toggle))])
#@181 Hook run after entering or leaving `tar-subfile-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar tar-subfile-mode-hook nil (#$ . 36899))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [tar-subfile-mode-map add-minor-mode tar-subfile-mode nil boundp] 6)
(defalias 'tar-mode-revert #[(&optional no-auto-save no-confirm) "\304\216\305\306 \203\f \307 \210\310 \n\311#\210\312 !\203 \313 !\210\314 *\207" [revert-buffer-function no-auto-save no-confirm tar-data-buffer #[nil "\300 ?\205 \301 \207" [tar-data-swapped-p tar-swap-data] 1] nil tar-data-swapped-p tar-swap-data revert-buffer preserve-modes buffer-live-p kill-buffer tar-mode] 4])
#@73 Move cursor vertically down ARG lines and to the start of the filename.
(defalias 'tar-next-line #[(arg) "y\210\301`\302\"\206 `b\207" [arg next-single-property-change mouse-face] 3 (#$ . 37646) "p"])
#@71 Move cursor vertically up ARG lines and to the start of the filename.
(defalias 'tar-previous-line #[(arg) "\301[!\207" [arg tar-next-line] 2 (#$ . 37855) "p"])
#@57 Return the `tar-parse-info' index for the current line.
(defalias 'tar-current-position #[nil "\300e\301 \"\207" [count-lines line-beginning-position] 3 (#$ . 38023)])
#@69 Return the tar-descriptor of the current line, or signals an error.
(defalias 'tar-current-descriptor #[(&optional noerror) "\302 8\206 ?\205 \303\304!\207" [tar-parse-info noerror tar-current-position error "This line does not describe a tar-file entry"] 2 (#$ . 38197)])
(defalias 'tar--check-descriptor #[(descriptor) "\303H >\204 \304\305\306D\"\210\307H\211\205k \310\311\n\312=\203# \313\202j \n\314=\203- \315\202j \n\316=\2037 \317\202j \n\320=\203A \321\202j \n\322=\203K \323\202j \n\324=\203U \325\202j \n\326=\203_ \327\202j \n\330=\203i \331\202j \332\")\207" [descriptor cl-struct-tar-header-tags link-p 0 signal wrong-type-argument tar-header 9 error "This is %s, not a real file" 5 "a directory" 20 "a tar directory header" 28 "a next has longname" 29 "a multivolume-continuation" 35 "a sparse entry" 38 "a volume header" 55 "a pax global extended header" 72 "a pax extended header" "a link"] 5])
(defalias 'tar-get-descriptor #[nil "\303 \211\304H >\204 \305\306\307D\"\210\310H\311!\210\n\304U\203$ \312\313!\210*\207" [descriptor cl-struct-tar-header-tags size tar-current-descriptor 0 signal wrong-type-argument tar-header 6 tar--check-descriptor message "This is a zero-length file"] 5])
(defalias 'tar-get-file-descriptor #[(file) "\306 \306\211\203- @\f\n\307H
>\204 \310\311\312\nD\"\210\n\313H\232\203& \n A\211\204\n *\314!\210)\207" [desc tar-parse-info hdr --dolist-tail-- file cl-struct-tar-header-tags nil 0 signal wrong-type-argument tar-header 2 tar--check-descriptor] 6])
#@55 Extract a file whose tar directory line you click on.
(defalias 'tar-mouse-extract #[(event) "r\301\302!\211@\262!q\210\212\303\302!!b\210\304 \210*\305\302!\211@\262!\210\303\302!!b\210\306 \207" [event window-buffer event-end posn-point tar-get-descriptor select-window tar-extract] 3 (#$ . 39734) "e"])
#@36 Helper function for `tar-extract'.
(defalias 'tar-file-name-handler #[(op &rest args) "\303=\206
\304\305\n\")\207" [op file-name-handler-alist args file-exists-p nil apply] 3 (#$ . 40052)])
#@57 Extract this entry of the tar file into its own buffer.
(defalias 'tar--extract #[(descriptor) "\306H >\204 \307\310\311D\"\210\312H\306H >\204\" \307\310\311D\"\210\313H\306H >\2045 \307\310\311D\"\210\314H\211 \\ \315 \316\n!\317 \320R !\321!! \"r#q\210\322 $\f
}\210\fb\210%\206\200 &\203t &\n
\fZ\"\206\200 \323 '\324\325\npB\326#@)\211$\203\217 \327$!\330=\203\226 \331\f
\326#$\332\333!\203\256 \334$\335\"\203\256 r\"q\210\336\322!\210)~\210r\"q\210\326()\337\f
$\"$\210r\"q\210\322(+\".\207" [descriptor cl-struct-tar-header-tags name size start end 0 signal wrong-type-argument tar-header 2 6 1 buffer-name file-name-nondirectory " (" ")" generate-new-buffer nil (("" . tar-file-name-handler)) find-operation-coding-system insert-file-contents t coding-system-type undecided detect-coding-region default-value enable-multibyte-characters coding-system-get :for-unibyte set-buffer-multibyte decode-coding-region tarname bufname buffer tar-data-buffer coding coding-system-for-read set-auto-coding-function file-name-handler-alist buffer-undo-list] 6 (#$ . 40253)])
#@70 In Tar mode, extract this entry of the tar file into its own buffer.
(defalias 'tar-extract #[(&optional other-window-p) "\306=\307 \211\310H >\204 \311\312\313\nD\"\210\n\314H p \315 &'\206& (\316&\317\320\321\f\"\2037 \f\202: \322\fPQ! )\323)! *\324 +*\204\223 \325\n!*\326+r*q\210eb\210),\327,!-\330.\326\"\210r
q\210/)/\331\324!\210\332 \210\333\334!\210
\333\335!\210\n ('\336\337!\210) \203\244 \340*+\205\240 \341\"\202\300 \342=\203\261 \343*!\202\300 \203\274 \344*!\202\300 \345*!. \207" [other-window-p view-p descriptor cl-struct-tar-header-tags name tar-buffer view tar-get-descriptor 0 signal wrong-type-argument tar-header 2 buffer-name expand-file-name "!" string-match "/" "./" get-file-buffer nil tar--extract t abbreviate-file-name set-buffer-file-coding-system set-buffer-modified-p normal-mode make-local-variable tar-superior-buffer tar-superior-descriptor tar-subfile-mode 1 view-buffer kill-buffer-if-not-modified display display-buffer switch-to-buffer-other-window switch-to-buffer tarname buffer-read-only read-only-p new-buffer-file-name buffer just-created buffer-file-name buffer-file-truename last-coding-system-used default-directory] 7 (#$ . 41366) nil])
#@65 In Tar mode, find this entry of the tar file in another window.
(defalias 'tar-extract-other-window #[nil "\300\301!\207" [tar-extract t] 2 (#$ . 42593) nil])
#@68 In Tar mode, display this entry of the tar file in another window.
(defalias 'tar-display-other-window #[nil "\300\301!\207" [tar-extract display] 2 (#$ . 42758) nil])
#@52 In Tar mode, view the tar file entry on this line.
(defalias 'tar-view #[nil "\300\301!\207" [tar-extract view] 2 (#$ . 42932) nil])
#@57 Read a file name with this line's entry as the default.
(defalias 'tar-read-file-name #[(&optional prompt) "\204 \305\306\307 \211\310H\n>\204 \311\312\313 D\"\210 \314H)!\306\315\316 ! \317$! \320\f!\321\230\2048 \322\f!\203O \323\324\f\"\203H \f\310\211\225SO\202I \f\325\320 !Q\f*\207" [prompt cl-x cl-struct-tar-header-tags default-file target "Copy to: " expand-file-name tar-current-descriptor 0 signal wrong-type-argument tar-header 2 read-file-name file-name-directory nil file-name-nondirectory "" file-directory-p string-match "/$" "/"] 7 (#$ . 43071)])
#@167 In Tar mode, extract this entry of the tar file into a file on disk.
If TO-FILE is not supplied, it is prompted for, defaulting to the name of
the current tar-entry.
(defalias 'tar-copy #[(&optional to-file) "\306 \211\307H >\204 \310\311\312D\"\210\313H\307H >\204% \310\311\312D\"\210\314H\307H >\2048 \310\311\312D\"\210\315H\211 \\ r\316 \203S \202T pq\210\317\n\320\"\321=\203y \317\320\"\321=\203y \321\320=\205s B\320\322 \320\f
\323\211\211\324&\210*\325\326\n#.\207" [descriptor cl-struct-tar-header-tags name size start end tar-get-descriptor 0 signal wrong-type-argument tar-header 2 6 1 tar-data-swapped-p find-file-name-handler write-region jka-compr-handler no-conversion nil t message "Copied tar entry %s to %s" inhibit-file-name-handlers inhibit-file-name-operation tar-data-buffer to-file coding-system-for-write] 9 (#$ . 43650) (list (tar-read-file-name))])
#@47 Insert a new empty regular file before point.
(defalias 'tar-new-entry #[(filename &optional index) "p \206 \306 \211\307U?\205 S\n\233\211\203 \310 @!\202! e \311
! rq\210\fb\210\312\313\"c\210\307H>\204H \314\315\316D\"\210\211 \317\320`\321\"I\210* \203d AB\241\210\202i \nB\212eb\210 y\210\313 \322!\323\261\210* -\207" [buffer index tar-parse-info d-list pos filename tar-current-position 0 tar-header-data-end tar-new-regular-file-header tar-header-serialize t signal wrong-type-argument tar-header 1 copy-marker nil tar-header-block-summarize 10 new-descriptor tar-data-buffer cl-struct-tar-header-tags #1=#:v inhibit-read-only] 6 (#$ . 44573) "*sFile name: "])
#@112 In Tar mode, mark this sub-file to be deleted from the tar file.
With a prefix argument, mark that many files.
(defalias 'tar-flag-deleted #[(p &optional unflag) "\304 \210\305!\306 \nW\2038 \307 !\203$ \310\311!\210 \203! \312\202\" \313c\210\306W\203. \314\202/ \311y\210 T\211\202\n *m?\205@ \315u\207" [p i --dotimes-limit-- unflag beginning-of-line abs 0 tar-current-descriptor delete-char 1 " " "D" -1 36] 3 (#$ . 45281) "p"])
#@124 In Tar mode, un-mark this sub-file if it is marked to be deleted.
With a prefix argument, un-mark that many files forward.
(defalias 'tar-unflag #[(p) "\301\302\"\207" [p tar-flag-deleted t] 3 (#$ . 45726) "p"])
#@125 In Tar mode, un-mark this sub-file if it is marked to be deleted.
With a prefix argument, un-mark that many files backward.
(defalias 'tar-unflag-backwards #[(p) "\301[\302\"\207" [p tar-flag-deleted t] 3 (#$ . 45946) "p"])
#@54 Expunge the tar-entry specified by the current line.
(defalias 'tar-expunge-internal #[nil "\304 \305 \305\306!|\210\307 \"r\nq\210\310H >\204\" \311\312\313D\"\210\314H\206< \310H >\2047 \311\312\313D\"\210\315H\316Z\317!|*\207" [descriptor tar-parse-info tar-data-buffer cl-struct-tar-header-tags tar-current-descriptor line-beginning-position 2 delq 0 signal wrong-type-argument tar-header 16 1 512 tar-header-data-end] 4 (#$ . 46177)])
#@163 In Tar mode, delete all the archived files flagged for deletion.
This does not modify the disk image; you must save the tar file itself
for this to be permanent.
(defalias 'tar-expunge #[(&optional noconfirm) "\204\n \302\303!\205> \304\212eb\210m\204) \305\306!\203# \307 \210 T\202 \310y\210\202 \311 \210) \304U\2039 \312\313!\202= \312\314 \")\207" [noconfirm n y-or-n-p "Expunge files marked for deletion? " 0 looking-at "D" tar-expunge-internal 1 tar-pad-to-blocksize message "Nothing to expunge." "%s files expunged. Be sure to save this buffer."] 3 (#$ . 46634) nil])
#@49 Remove the stars at the beginning of each line.
(defalias 'tar-clear-modification-flags #[nil "\212eb\210m?\205 g\300=\204 \301\302!\210\303c\210\302y\210\202 )\207" [32 delete-char 1 " "] 2 (#$ . 47222) nil])
#@367 Change the user-id associated with this entry in the tar file.
If this tar file was written by GNU tar, then you will be able to edit
the user id as a string; otherwise, you must edit it as a number.
You can force editing as a number by calling this with a prefix arg.
This does not modify the disk image; you must save the tar file itself
for this to be permanent.
(defalias 'tar-chown-entry #[(new-uid) ";\203) \306 \211\307H\n>\204 \310\311\312 D\"\210 \211\313I\210*\314\f\315
\"\316P\"\207\306 \211\307H\n>\204; \310\311\312 D\"\210 \211 \317I\210*\314\320\321\"\307\322O\323P\"\207" [new-uid cl-x cl-struct-tar-header-tags #1=#:v tar-uname-offset tar-file-name-coding-system tar-current-descriptor 0 signal wrong-type-argument tar-header 12 tar-alter-one-field encode-coding-string " " 4 format "%6o" 6 " " #2=#:v tar-uid-offset] 6 (#$ . 47442) (list (let ((descriptor (tar-current-descriptor))) (if (or current-prefix-arg (not (progn nil (or (and (memq (aref descriptor . #3=(0)) . #4=(cl-struct-tar-header-tags))) (signal #5='wrong-type-argument (list 'tar-header descriptor))) (aref descriptor 11)))) (read-number "New UID number: " (format "%s" (progn nil (or (and (memq (aref descriptor . #3#) . #4#)) (signal #5# (list 'tar-header descriptor))) (aref descriptor 4)))) (read-string "New UID string: " (progn nil (or (and (memq (aref descriptor . #3#) . #4#)) (signal #5# (list 'tar-header descriptor))) (aref descriptor 12))))))])
#@369 Change the group-id associated with this entry in the tar file.
If this tar file was written by GNU tar, then you will be able to edit
the group id as a string; otherwise, you must edit it as a number.
You can force editing as a number by calling this with a prefix arg.
This does not modify the disk image; you must save the tar file itself
for this to be permanent.
(defalias 'tar-chgrp-entry #[(new-gid) ";\203) \306 \211\307H\n>\204 \310\311\312 D\"\210 \211\313I\210*\314\f\315
\"\316P\"\207\306 \211\307H\n>\204; \310\311\312 D\"\210 \211 \317I\210*\314\320\321\"\307\322O\323P\"\207" [new-gid cl-x cl-struct-tar-header-tags #1=#:v tar-gname-offset tar-file-name-coding-system tar-current-descriptor 0 signal wrong-type-argument tar-header 13 tar-alter-one-field encode-coding-string " " 5 format "%6o" 6 " " #2=#:v tar-gid-offset] 6 (#$ . 48904) (list (let ((descriptor (tar-current-descriptor))) (if (or current-prefix-arg (not (progn nil (or (and (memq (aref descriptor . #3=(0)) . #4=(cl-struct-tar-header-tags))) (signal #5='wrong-type-argument (list 'tar-header descriptor))) (aref descriptor 11)))) (read-number "New GID number: " (format "%s" (progn nil (or (and (memq (aref descriptor . #3#) . #4#)) (signal #5# (list 'tar-header descriptor))) (aref descriptor 5)))) (read-string "New GID string: " (progn nil (or (and (memq (aref descriptor . #3#) . #4#)) (signal #5# (list 'tar-header descriptor))) (aref descriptor 13))))))])
#@158 Change the name associated with this entry in the tar file.
This does not modify the disk image; you must save the tar file itself
for this to be permanent.
(defalias 'tar-rename-entry #[(new-name) "\306\230\203\n \307\310!\210\311 \"\312 \313 \314H
>\204# \315\316\317 D\"\210 \320H\203- \307\321!\210\fG\322V\203o \323\324\f\211G\325Z#\203o \314\224\326W\203o \314H
>\204U \315\316\317 D\"\210 \327H\330\232\204c \331 \332\"\210\f\314\211\224O\f\314\225\313O\fG\322V\203z \307\333!\210 \314H
>\204\211 \315\316\317 D\"\210 \211 \334I\210)\331\314\f\335\325\314\"P\314\325O\"\210\n\205\260 \331 \n\335\326\314\"P\314\326O\"+\207" [new-name tar-file-name-coding-system prefix descriptor encoded-new-name cl-struct-tar-header-tags "" error "zero length name" encode-coding-string tar-current-descriptor nil 0 signal wrong-type-argument tar-header 16 "Rename with @LongLink format is not implemented" 98 string-match "/" 99 155 11 "ustar " tar-alter-one-field "ustar 00" "name too long" 2 make-string tar-magic-offset #1=#:v tar-prefix-offset] 7 (#$ . 50368) (list (read-string "New name: " (let ((cl-x (tar-current-descriptor))) (progn nil (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (signal 'wrong-type-argument (list 'tar-header cl-x))) (aref cl-x 2)))))])
#@169 Change the protection bits associated with this entry in the tar file.
This does not modify the disk image; you must save the tar file itself
for this to be permanent.
(defalias 'tar-chmod-entry #[(new-mode) "\305 \211\306H >\204 \307\310\311D\"\210\211\312 I\210*\313\f\314\315 \"\306\316O\317P\"\207" [cl-x cl-struct-tar-header-tags #1=#:v new-mode tar-mode-offset tar-current-descriptor 0 signal wrong-type-argument tar-header 3 tar-alter-one-field format "%6o" 6 " "] 6 (#$ . 51658) (list (tar-parse-octal-integer-safe (read-string "New protection (octal): ")))])
(defalias 'tar-alter-one-field #[(data-position new-data-string &optional descriptor) "\204 \306 i\307 \310y\210`\311!\312\261\210|\210\313y\210\314 !\210)\315 \204) \316\317!\210r\nq\210\320H >\204< \321\322\323D\"\210\310H\324Z\211
\\b\210`` G\\|\210 \204[ \325 !\203_ \316\326!\210 c\210\327\f\211\324\\{! \f \\b\210``\330\\|\210\331\332 \"c\210\320H >\204\216 \321\322\323D\"\210\211 !\330 I\210)\333\f\211\324\\{ \320H >\204\257 \321\322\323D\"\210\334H#+\207" [descriptor col tar-data-buffer cl-struct-tar-header-tags start data-position tar-current-descriptor line-beginning-position 1 tar-header-block-summarize "\n" -1 move-to-column tar-data-swapped-p cl--assertion-failed (tar-data-swapped-p) 0 signal wrong-type-argument tar-header 512 multibyte-string-p (not (or enable-multibyte-characters (multibyte-string-p new-data-string))) tar-header-block-checksum 8 format "%6o " tar-header-block-check-checksum 2 new-data-string enable-multibyte-characters chk tar-chk-offset #1=#:v] 8])
(defalias 'tar-octal-time #[(timeval) "@A@\303\304\305\n\306\"\307\305\310\n\311\"\312\"\310 \313\"\314V\203\" \312\202# \314\"\310 \315\"$*\207" [timeval lobits hibits format "%05o%01o%05o" lsh -2 logior logand 3 1 32768 0 32767] 8])
#@182 In tar subfile mode, save this buffer into its parent tar-file buffer.
This doesn't write anything to disk; you must save the parent tar-file buffer
to make your changes permanent.
(defalias 'tar-subfile-save-buffer #[nil "\306\300!\203\n \204 \307\310!\210\306\301!\203 \204 \307\311!\210p\n \312 \"rq\210\f\313H#>\2049 \314\315\316\fD\"\210\f\317H $\f\313H#>\204N \314\315\316\fD\"\210\f\320H %\f&>\211 '\204a \307\321!\210r(q\210$\211 )\322%!\\ *)*}\210ed|\210)b\210p +r\"q\210\214~\210\323ed
+$\210+deZ\322 ! ,db\210\324, Z\313\"c\210\f\313H#>\204\271 \314\315\316\fD\"\210\f\211 -\320 I\210)~\210,&G'GZ .eb\210.y\210\325/\326\327 \"\"\2100\203\356 \3251\330\331 !\332P\"\210)\333 \210+\334\335!\210\336\313!\210)\334\312!\210\337\340\341!\"\210\n2,\335\207" [tar-superior-buffer tar-superior-descriptor buffer-file-coding-system subfile-size descriptor coding boundp error "This buffer has no superior tar file buffer" "This buffer doesn't have an index into its superior tar file!" nil 0 signal wrong-type-argument tar-header 1 6 "Can't find this tar file entry in its parent tar file!" tar-roundup-512 encode-coding-region make-string tar-alter-one-field format "%11o " tar-octal-time current-time " " tar-pad-to-blocksize set-buffer-modified-p t tar-next-line message "Saved into tar-buffer `%s'. Be sure to save that buffer!" buffer-name subfile cl-struct-tar-header-tags start size tar-parse-info head tar-data-buffer data-start data-end dest subfile-size-pad #1=#:v position tar-size-offset tar-update-datestamp tar-time-offset last-coding-system-used] 6 (#$ . 53498) nil])
#@100 If we are being anal about tar file blocksizes, fix up the current buffer.
Leaves the region wide.
(defalias 'tar-pad-to-blocksize #[nil "\205\213 GS 8\211\306H >\204 \307\310\311\nD\"\210\n\312H \n\306H >\204, \307\310\311\nD\"\210\n\313H\211 \2038 \306\202J \n\306H >\204G \307\310\311\nD\"\210\n\314H \f\\ \315\313\"\211 \211eZ\245_\\ rq\210e\\ dV\203~ d|\202\211 db\210\316dZ\306\"c. \207" [tar-anal-blocksize tar-parse-info last-desc cl-struct-tar-header-tags start link-p 0 signal wrong-type-argument tar-header 1 9 6 ash make-string size data-end bbytes pad-to tar-data-buffer goal-end] 5 (#$ . 55122)])
(defalias 'tar-write-region-annotate #[(start _end) "\206 \302 ??\205 \303 \210 q\210\304\207" [start tar-data-buffer tar-data-swapped-p tar-clear-modification-flags nil] 1])
(provide 'tar-mode)
Kontol Shell Bypass