| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/tar-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el
;;; in Emacs version 24.3.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)
(defvar tar-superior-buffer nil)
(defvar tar-superior-descriptor nil)
(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 (#$ . 2359))
(make-variable-buffer-local 'tar-data-buffer)
#@59 If non-nil, `tar-data-buffer' indeed holds raw tar bytes.
(defvar tar-data-swapped nil (#$ . 2496))
(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\306C\"\210 \207" [tar-data-buffer tar-data-swapped buffer-live-p buffer-size signal cl-assertion-failed (or (= (buffer-size tar-data-buffer) (buffer-size)) (eq tar-data-swapped (> (buffer-size tar-data-buffer) (buffer-size))))] 3 (#$ . 2649)])
#@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 (#$ . 3052)])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-data-start compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-data-start 'tar-header)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-data-start #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-data-start tar-header 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-name (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-name 'tar-header)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-name tar-header 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-mode compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-mode (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-mode 'tar-header)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-mode #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-mode tar-header 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-uid compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-uid (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-uid 'tar-header)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-uid #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-uid tar-header 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-gid compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-gid (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-gid 'tar-header)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-gid #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-gid tar-header 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-size compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-size (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-size 'tar-header)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-size #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-size tar-header 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-date compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-date (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-date 'tar-header)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-date #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-date tar-header 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-checksum compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-checksum (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-checksum 'tar-header)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-checksum #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-checksum tar-header 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-link-type compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-link-type 'tar-header)) (aref cl-x 9)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-link-type #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-link-type tar-header 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-link-name compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-link-name 'tar-header)) (aref cl-x 10)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-link-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-link-name tar-header 10] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-magic compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-magic (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-magic 'tar-header)) (aref cl-x 11)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-magic #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-magic tar-header 11] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-uname compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-uname (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-uname 'tar-header)) (aref cl-x 12)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-uname #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-uname tar-header 12] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-gname compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-gname (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-gname 'tar-header)) (aref cl-x 13)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-gname #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-gname tar-header 13] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-dmaj compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-dmaj (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-dmaj 'tar-header)) (aref cl-x 14)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-dmaj #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-dmaj tar-header 14] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-dmin compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-dmin (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-dmin 'tar-header)) (aref cl-x 15)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-dmin #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-dmin tar-header 15] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-header-start compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-header-start 'tar-header)) (aref cl-x 16)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'tar-header-header-start #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-tar-header-tags 0 error "%s accessing a non-%s" tar-header-header-start tar-header 16] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put tar-header-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block tar-header-p (and (vectorp cl-x) (>= (length cl-x) 17) (memq (aref cl-x 0) cl-struct-tar-header-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(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])
(defalias 'copy-tar-header #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-tar-header compiler-macro #[(_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 (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] "/builddir/build/BUILD/emacs-24.3/lisp/tar-mode.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(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])
(byte-code "\301C\302\301\303\304#\210\302\301\305\306#\210\302\301\307\310#\210\302\301\311\310#\210\302\312\313\314#\210\302\315\313\314#\210\302\316\313\317#\210\302\320\313\314#\210\302\321\313\314#\210\302\322\313\314#\210\302\323\313\314#\210\302\324\313\314#\210\302\325\313\314#\210\302\326\313\314#\210\302\327\313\314#\210\302\330\313\314#\210\302\331\313\314#\210\302\332\313\314#\210\302\333\313\314#\210\302\334\313\314#\210\302\335\313\314#\210\302\336\313\314#\210\302\337\313\314#\207" [cl-struct-tar-header-tags tar-header put cl-struct-slots ((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-type (vector t) cl-struct-include nil cl-struct-print make-tar-header side-effect-free t copy-tar-header tar-header-p error-free tar-header-header-start tar-header-dmin tar-header-dmaj tar-header-gname tar-header-uname tar-header-magic tar-header-link-name tar-header-link-type tar-header-checksum tar-header-date tar-header-size tar-header-gid tar-header-uid tar-header-mode tar-header-name tar-header-data-start] 4)
(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 (#$ . 17903)])
#@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\311\312eZ\306\"!\204 \313\314\315C\"\210 \203' \313\314\316C\"\210\211\306\\\211{\211\317H\317U\203@ \n\320H\317U?\205n
S 34S 56S 7\n8H 9\n
:\321ZO\211 ;\322\235@ <\323\211 = >\324 ?\325?\n@#\203~ \f\317\225S^\325?\nA#\203\220 3\317\225S^3\325?\n:#\203\242 5\317\225S^5\325?\n4#\203\264 7\317\225S^7\n@\fO=9\317U\206\306 9\326U?\205\316 9\326Z9\nA3O><\327\232\203\377 \325?\nB#\203\377 \317\225BTV\203\377 \nB\317\225SO\330=Q=\331\301!\203\332=C\"=\332>C\">9\204%\325\333=\"\203%\3349=\335\232\203\311;\336\235\203\311\337\nDE# F\332\340F\341#{C\" =\342\343F!\\C\" G9\344=\203{G\317HH>\204m\307\345\346\347#\210G\211 I\321=I\210)\202\2449\350=\203\240G\317HH>\204\222\307\345\351\347#\210G\211 J\352=I\210)\202\244\353\354!\210G\317HH>\204\264\307\345\355\347#\210G\211 K\356\357\306Z\360\"I\210)G+\202l\357\323\"=\337\n L#\337\nLM#\337\nMD#\337\nDE#\361\nEN#\337\nN8#9><\211\205\f\332\n:5OC\"<\205\332\n47OC\"\337\n6O#\337\nOB# P Q R S T U V W X F Y Z [ = \\\362\347\\=[ZYFXWVUTSRQP\323&..\n)\207" [pos enable-multibyte-characters string tar-mode-offset name-end tar-magic-offset 512 error "Malformed Tar header" zerop mod signal cl-assertion-failed (zerop (mod (- pos (point-min)) 512)) (not enable-multibyte-characters) 0 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 "%s accessing a non-%s" tar-header-name tar-header 27 tar-header-link-name 10 message "Unrecognized GNU Tar @LongLink format" tar-header-header-start 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 (#$ . 18051)])
(defalias 'tar-header-data-end #[(descriptor) "\305H >\204 \306\307\310\311#\210\312H\305H >\204 \306\307\313\311#\210\314H\305H >\2042 \306\307\315\311#\210\316H \n \317>\204I \f\305V\203I \320\f!\202J \305\\+\207" [descriptor cl-struct-tar-header-tags data-start link-type size 0 error "%s accessing a non-%s" tar-header-data-start tar-header 1 tar-header-link-type 9 tar-header-size 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) "\301G!\203 \302\303!\210\304\305\"\210\306!\207" [string zerop 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])
#@62 Compute and return a tar-acceptable checksum for this block.
(defalias 'tar-header-block-checksum #[(string) "\306!\203\f \307\310\311C\"\210 \211\312\\\313\211 \313\nW\203) \f
H\\
T\211\202 \211\314W\203> \f
H\\
T\211\202, \f\315\\,\207" [string tar-chk-offset chk-field-start chk-field-end sum i multibyte-string-p signal cl-assertion-failed (not (multibyte-string-p string)) 8 0 512 256] 4 (#$ . 21738)])
#@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 (#$ . 22165)])
(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\304\"!\203 \305\202 \306\302\303\307\"!\203 \305\202 \310\302\303\311\"!\2037 \302\303\312\"!\2033 \305\202E \313\202E \302\303\312\"!\203D \314\202E \315\302\303\316\"!\203R \305\202S \306\302\303\317\"!\203` \305\202a \310\302\303\320\"!\203{ \302\303\321\"!\203w \305\202\211 \313\202\211 \302\303\321\"!\203\210 \314\202\211 \315\302\303\322\"!\203\226 \305\202\227 \306\302\303\323\"!\203\244 \305\202\245 \310\302\303\324\"!\203\277 \302\303\325\"!\203\273 \305\202\315 \313\202\315 \302\303\325\"!\203\314 \326\202\315 \327& \207" [mode string zerop logand 256 45 114 128 119 2048 64 120 83 115 32 16 1024 8 4 2 512 1 84 116] 13 (#$ . 22627)])
#@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\311\312#\210\313H\306H >\204 \307\310\314\312#\210\315H\306H >\2040 \307\310\316\312#\210\317H\306H >\204A \307\310\320\312#\210\321H\306H >\204R \307\310\322\312#\210\323H\306H >\204c \307\310\324\312#\210\325H\306H >\204t \307\310\326\312#\210\327H\306H >\204\205 \307\310\330\312#\210\331H\306H >\204\226 \307\310\332\312#\210\333H\306H >\204\247 \307\310\334\312#\210\335H @ A B C D E\336\337F\203\305 \340\202\306 \341 \342=\204\322 \306=\203\326 \343\202Y \344=\203\340 \345\202Y \313=\203\352 \346\202Y \315=\203\364 \347\202Y \317=\203\376 \350\202Y \321=\203\351\202Y \327=\203\352\202Y \353=\203 \340\202Y \354=\203&\355\202Y \356=\2030\357\202Y \360=\203:\361\202Y \362=\203D\363\202Y \364=\203N\365\202Y \365=\203X\366\202Y\341\367D!AG\306U\203jC\202lA@G\306U\203yB\202{@
G\203\207\370\f!\202\210\371\372E\373\374\375\376% \344=\204\234 \313=\203\256 \344U\203\246\377\202\251\201H \nP\202\257\371&\n.\n\207" [tar-hblock cl-struct-tar-header-tags link-name type time size 0 error "%s accessing a non-%s" tar-header-name tar-header 2 tar-header-mode 3 tar-header-uid 4 tar-header-gid 5 tar-header-uname 12 tar-header-gname 13 tar-header-size 6 tar-header-date 7 tar-header-link-type 9 tar-header-link-name 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 (#$ . 23461)])
#@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\314 \f@\211\311H
>\204, \312\313\314\315#\210 \316H \" \311H
>\204? \312\313\317\315#\210 \320H\321=\203L \"\202P \322\"! # \311H
>\204` \312\313\323\315#\210 \324H\211 $ \311H
>\204t \312\313\325\315#\210 \326H\\ %\327\"!\204\303 \330\331\"\"\210#\203\231 \332#!\204\231 \333#\334\"\210\327\"!\204\255 \335 &\336$%\"#\210)\337\" \311H
>\204\276 \312\313\340\315#\210 \341H\"\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 error "%s accessing a non-%s" tar-header-name tar-header 2 tar-header-link-type 9 5 file-name-directory tar-header-data-start 1 tar-header-size 6 file-directory-p message "Extracting %s" file-exists-p make-directory t no-conversion write-region set-file-modes tar-header-mode 3 name dir start end coding-system-for-write] 7 (#$ . 25230) nil])
#@59 Parse the contents of the tar file in the current buffer.
(defalias 'tar-summarize-buffer #[nil "\306 \204 \307\310\311C\"\210\312 \313e r
q\210\314\315ed#) $\313 %r
q\210\ndW\203\231 \316\n\f\"\211%\203\231 %\317H&>\204G \320\321\322\323#\210%\324H\211 '\317W\203m \320\325%\317H&>\204e \320\321\326\323#\210%\327H'#\210)% B\330%!$\n ( )(\247\203\216 ()@Y\205\224 \331)(\"*\210\202' )\332\333!\210 \237%\204\257 \334$!\210\202\263 \335\336!\210eb\210\313\337\340\341\342# * + ,*\342\261\210eb\210\343!. \207" [modified result pos tar-file-name-coding-system coding tar-data-buffer tar-data-swapped-p signal cl-assertion-failed (tar-data-swapped-p) buffer-modified-p nil make-progress-reporter "Parsing tar file..." tar-header-block-tokenize 0 error "%s accessing a non-%s" tar-header-size tar-header 6 "%s has size %s - corrupted" tar-header-name 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 value reporter total-summaries inhibit-read-only buffer-file-truename] 7 (#$ . 26305)])
#@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\327#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364\365\364!B#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@ \201A \365\201A !B#\210\303\201B \201C #\210\303\201D \201E #\210\303\201F \201G #\210\303\201H \201I \365\201I !B#\210\303\201J \201K #\210\303\201L \201M #\210\303\201N \201O #\210\303\201P \201Q #\210\303\201R \201S #\210\303\201T \201U #\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] "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) (#$ . 27567))
(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])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [tar-mode-hook variable-documentation put purecopy "Hook run when entering Tar mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tar-mode-map definition-name tar-mode] 5)
(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 \332>\306\333!\210\306\334!\210\332 \306\335!\210\332 \306\336!\210\332 \306\337!\210?\206\232 @\206\232 A \306\340!\210\307 \341 \210~\210\342 \203\263 \343\344\345C\"\210\306\346!\210\347&\350\351\352\332\307$\210\350\353\354\332\307$\210\350\355\356\332\307$\210\357\332!\210\306\360!\210\361\362\363\364=\206\342 \365 !\"!0\366\367\370\217\210)\371\372!\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 signal 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 err (byte-code "\300 \210\301 \210\302\303!\207" [tar-swap-data tar-summarize-buffer tar-next-line 0] 2) ((error (byte-code "\301 \210\302@A\"\207" [err fundamental-mode signal] 3))) 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] 6 (#$ . 31693) nil])
#@59 In tar mode, run the WoMan man-page browser on this file.
(autoload 'woman-tar-extract-file "woman" '(#$ . 34530) 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 (#$ . 34654))
(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) "\305 \306=\203 \n?\202 \307 !\310V\311\303!\203 \204\" \312\313!\210\n\2036 \314\315\316\317\320$\210\321\322!\210\317\202< \323\315\316\320#\210\324\325\n\203F \326\202G \327\"\210\330\331!\203h \305 \203[ \305 \232\203h \332\333\n\203e \334\202f \335\"\210)\336 \210\n\207" [#1=#:last-message arg tar-subfile-mode tar-superior-buffer buffer-auto-save-file-name 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 message "Tar-Subfile mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 34851) (list (or current-prefix-arg 'toggle))])
(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 ((byte-code "\300 \204 \301 \210\300\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 (#$ . 36623) "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 (#$ . 36832) "p"])
#@69 Return the tar-descriptor of the current line, or signals an error.
(defalias 'tar-current-descriptor #[(&optional noerror) "\302e\303 \"8\206 ?\205 \304\305!\207" [tar-parse-info noerror count-lines line-beginning-position error "This line does not describe a tar-file entry"] 3 (#$ . 37000)])
(defalias 'tar-get-descriptor #[nil "\304 \211\305H >\204 \306\307\310\311#\210\312H\305H >\204# \306\307\313\311#\210\314H\211\203\200 \306\315 \316=\2037 \317\202~ \320=\203A \321\202~ \322=\203K \323\202~ \324=\203U \325\202~ \326=\203_ \327\202~ \330=\203i \331\202~ \332=\203s \333\202~ \334=\203} \335\202~ \336\"\210\337\n!\203\212 \340\341!\210+\207" [descriptor cl-struct-tar-header-tags size link-p tar-current-descriptor 0 error "%s accessing a non-%s" tar-header-size tar-header 6 tar-header-link-type 9 "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" zerop message "This is a zero-length file"] 5])
#@55 Extract a file whose tar directory line you click on.
(defalias 'tar-mouse-extract #[(event) "r\302\303!\211@)!q\210\212\303!\304 8\206( A@:\203% A@@\202( A@)b\210\305 \210*\306\303!\211@)!\210\303!\304 8\206T A@:\203Q A@@\202T A@)b\210\307 \207" [event position window-buffer event-end 5 tar-get-descriptor select-window tar-extract] 4 (#$ . 38126) "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 (#$ . 38502)])
#@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\314#\210\n\315H \n\310H >\204' \311\312\316\314#\210\n\317H \n\310H >\2049 \311\312\320\314#\210\n\321H\211 :
\\ ;p <\322 =\323\f!\324=\325R >?\206Z @\326=\327\330\331\f\"\203k \f\202n \332\fPQ! A\333A! B\334\211 C DB\204[\335>!BrBq\210ED\336E)\322B!>\336CrFq\210\334 G:;}\210:b\210H\206\323 I\203\307 I\f;:Z\"\206\323 \337 J\340\341\fpB\336#@)\211G\203\342 \342G!\343=\203\353 \344:;\336#G\345\346!\203\347G\350\"\203rBq\210\351\334!\210)~\210\352:;GB$\210*rBq\210eb\210AK\353K!L\354M\336\"\210r<q\210N)N\355>!\210\356\334!\210DE\357 \210\360\361!\210<1\360\362!\210\n2@?\363\321!\210) \203l\364BC\205h\365\"\202\210\366=\203y\367B!\202\210\203\204\370B!\202\210\371B!.\207" [other-window-p view-p descriptor cl-struct-tar-header-tags name size view tar-get-descriptor 0 error "%s accessing a non-%s" tar-header-name tar-header 2 tar-header-size 6 tar-header-data-start 1 buffer-name file-name-nondirectory " (" ")" expand-file-name "!" string-match "/" "./" get-file-buffer nil generate-new-buffer t (("" . tar-file-name-handler)) find-operation-coding-system insert-file-contents coding-system-type undecided detect-coding-region default-value enable-multibyte-characters coding-system-get :for-unibyte set-buffer-multibyte decode-coding-region abbreviate-file-name set-buffer-file-coding-system rename-buffer set-buffer-modified-p normal-mode make-local-variable tar-superior-buffer tar-superior-descriptor tar-subfile-mode view-buffer kill-buffer-if-not-modified display display-buffer switch-to-buffer-other-window switch-to-buffer start end tar-buffer tarname bufname buffer-read-only read-only-p new-buffer-file-name buffer just-created undo-list buffer-undo-list tar-data-buffer coding coding-system-for-read set-auto-coding-function file-name-handler-alist buffer-file-name buffer-file-truename last-coding-system-used default-directory] 7 (#$ . 38703) 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 (#$ . 40817) 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 (#$ . 40982) nil])
#@52 In Tar mode, view the tar file entry on this line.
(defalias 'tar-view #[nil "\300\301!\207" [tar-extract view] 2 (#$ . 41156) 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\314#\210 \315H)!\306\316\317 ! \320$! \321\f!\322\230\2047 \323\f!\203N \324\325\f\"\203G \f\310\211\225SO\202H \f\326\321 !Q\f*\207" [prompt cl-x cl-struct-tar-header-tags default-file target "Copy to: " expand-file-name tar-current-descriptor 0 error "%s accessing a non-%s" tar-header-name tar-header 2 read-file-name file-name-directory nil file-name-nondirectory "" file-directory-p string-match "/$" "/"] 7 (#$ . 41295)])
#@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\312\313#\210\314H\307H >\204# \310\311\315\313#\210\316H\307H >\2045 \310\311\317\313#\210\320H\211 \\ r\321 \203P \202Q pq\210\322\n\323\"\324=\203v \322 \323\"\324=\203v \324\323=\205p B\323\325 \323\f
\326\211\211\327&\210*\330\331\n #.\207" [descriptor cl-struct-tar-header-tags name size start end tar-get-descriptor 0 error "%s accessing a non-%s" tar-header-name tar-header 2 tar-header-size 6 tar-header-data-start 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 (#$ . 41894) (list (tar-read-file-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 (#$ . 42878) "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 (#$ . 43323) "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 (#$ . 43543) "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\313\314#\210\315H\206: \310H >\2045 \311\312\316\314#\210\317H\320Z\321!|*\207" [descriptor tar-parse-info tar-data-buffer cl-struct-tar-header-tags tar-current-descriptor line-beginning-position 2 delq 0 error "%s accessing a non-%s" tar-header-header-start tar-header 16 tar-header-data-start 1 512 tar-header-data-end] 4 (#$ . 43774)])
#@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)\312 !\2039 \313\314!\202= \313\315 \")\207" [noconfirm n y-or-n-p "Expunge files marked for deletion? " 0 looking-at "D" tar-expunge-internal 1 tar-pad-to-blocksize zerop message "Nothing to expunge." "%s files expunged. Be sure to save this buffer."] 3 (#$ . 44281) 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 (#$ . 44875) 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\313#\210 \211\314I\210*\315\f\316
\"\317P\"\207\306 \211\307H\n>\2049 \310\311\320\313#\210 \211 \321I\210*\315\322\323\"\307\324O\325P\"\207" [new-uid cl-x cl-struct-tar-header-tags #1=#:v tar-uname-offset tar-file-name-coding-system tar-current-descriptor 0 error "%s accessing a non-%s" tar-header-uname tar-header 12 tar-alter-one-field encode-coding-string " " tar-header-uid 4 format "%6o" 6 " " #2=#:v tar-uid-offset] 6 (#$ . 45095) (list (let ((descriptor (tar-current-descriptor))) (if (or current-prefix-arg (not (progn (or (and (memq (aref descriptor . #3=(0)) . #4=(cl-struct-tar-header-tags))) (error #5="%s accessing a non-%s" 'tar-header-magic 'tar-header)) (aref descriptor 11)))) (read-number "New UID number: " (format "%s" (progn (or (and (memq (aref descriptor . #3#) . #4#)) (error #5# 'tar-header-uid 'tar-header)) (aref descriptor 4)))) (read-string "New UID string: " (progn (or (and (memq (aref descriptor . #3#) . #4#)) (error #5# 'tar-header-uname 'tar-header)) (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\313#\210 \211\314I\210*\315\f\316
\"\317P\"\207\306 \211\307H\n>\2049 \310\311\320\313#\210 \211 \321I\210*\315\322\323\"\307\324O\325P\"\207" [new-gid cl-x cl-struct-tar-header-tags #1=#:v tar-gname-offset tar-file-name-coding-system tar-current-descriptor 0 error "%s accessing a non-%s" tar-header-gname tar-header 13 tar-alter-one-field encode-coding-string " " tar-header-gid 5 format "%6o" 6 " " #2=#:v tar-gid-offset] 6 (#$ . 46580) (list (let ((descriptor (tar-current-descriptor))) (if (or current-prefix-arg (not (progn (or (and (memq (aref descriptor . #3=(0)) . #4=(cl-struct-tar-header-tags))) (error #5="%s accessing a non-%s" 'tar-header-magic 'tar-header)) (aref descriptor 11)))) (read-number "New GID number: " (format "%s" (progn (or (and (memq (aref descriptor . #3#) . #4#)) (error #5# 'tar-header-gid 'tar-header)) (aref descriptor 5)))) (read-string "New GID string: " (progn (or (and (memq (aref descriptor . #3#) . #4#)) (error #5# 'tar-header-gname 'tar-header)) (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\" \307\315\316\317#\210 \320H\203, \307\321!\210\fG\322V\203m \323\324\f\211G\325Z#\203m \314\224\326W\203m \314H
>\204S \307\315\327\317#\210 \330H\331\232\204a \332 \333\"\210\f\314\211\224O\f\314\225\313O\fG\322V\203x \307\334!\210 \314H
>\204\206 \307\315\335\317#\210 \211 !\336I\210)\332\314\f\337\325\314\"P\314\325O\"\210\n\205\255 \332\"\n\337\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 "%s accessing a non-%s" tar-header-header-start tar-header 16 "Rename with @LongLink format is not implemented" 98 string-match "/" 99 155 tar-header-magic 11 "ustar " tar-alter-one-field "ustar 00" "name too long" tar-header-name 2 make-string tar-magic-offset #1=#:v tar-prefix-offset] 7 (#$ . 48067) (list (read-string "New name: " (let ((cl-x (tar-current-descriptor))) (progn (or (and (memq (aref cl-x 0) cl-struct-tar-header-tags)) (error "%s accessing a non-%s" 'tar-header-name 'tar-header)) (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\311\312#\210\211\313 I\210*\314\f\315\316 \"\306\317O\320P\"\207" [cl-x cl-struct-tar-header-tags #1=#:v new-mode tar-mode-offset tar-current-descriptor 0 error "%s accessing a non-%s" tar-header-mode tar-header 3 tar-alter-one-field format "%6o" 6 " "] 6 (#$ . 49419) (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\320C\"\210r\nq\210\321H >\204= \322\323\324\325#\210\310H\326Z\211
\\b\210``!G\\|\210\"\204\\ \327!!\203b \316\317\330C\"\210!c\210\331\f\211\326\\{! #\f$\\b\210``\332\\|\210\333\334#\"c\210\321H >\204\220 \322\323\335\325#\210\211 %\332#I\210)\336\f\211\326\\{#\321H >\204\260 \322\323\337\325#\210\340H#+\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 signal cl-assertion-failed (tar-data-swapped-p) 0 error "%s accessing a non-%s" tar-header-data-start 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-checksum tar-header-block-check-checksum tar-header-name 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$>\2048 \307\314\315\316#\210\f\317H %\f\313H$>\204L \307\314\320\316#\210\f\321H &\f'>\211 (\204_ \307\322!\210r)q\210%\211 *\323&!\\ +*+}\210ed|\210*b\210p ,r#q\210\214~\210\324ed
,$\210+deZ\323 ! -db\210\325- Z\313\"c\210\f\313H$>\204\266 \307\314\320\316#\210\f\211 .\321 I\210)~\210,'G(GZ /eb\210/y\210\3260\327\330 \"\"\2101\203\353 \3262\331\332 !\333P\"\210)\334 \210+\335\336!\210\337\313!\210)\335\312!\210\340\341\342!\"\210\n3,\336\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 "%s accessing a non-%s" tar-header-data-start tar-header 1 tar-header-size 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 (#$ . 51363) 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\210 GS 8\211\306H >\204 \307\310\311\312#\210\n\313H \n\306H >\204* \307\310\314\312#\210\n\315H\211 \2036 \306\202G \n\306H >\204D \307\310\316\312#\210\n\317H \f\\ \320\315\"\211 \211eZ\245_\\ rq\210e\\ dV\203{ d|\202\206 db\210\321dZ\306\"c. \207" [tar-anal-blocksize tar-parse-info last-desc cl-struct-tar-header-tags start link-p 0 error "%s accessing a non-%s" tar-header-data-start tar-header 1 tar-header-link-type 9 tar-header-size 6 ash make-string size data-end bbytes pad-to tar-data-buffer goal-end] 5 (#$ . 53020)])
(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)