;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@30 The length of an odc header. (defconst *cpio-odc-header-length* 76 (#$ . 87)) #@48 RE to match the magic number of a odc archive. (defconst *cpio-odc-magic-re* "070707" (#$ . 171)) (byte-code "\301\302\207" [*cpio-odc-magic-re* "070707" nil] 1) #@49 The width of all of the fields in a odc header. (defconst *cpio-odc-field-width* 6 (#$ . 340)) (byte-code "\301\211\207" [*cpio-odc-field-width* 6] 2) #@46 RE to match the c_ino field in a odc header. (defconst *cpio-odc-ino-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 498)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-ino-re* format "[0-7]\\{%d\\}"] 3) #@46 RE to match the c_dev field in a odc header. (defconst *cpio-odc-dev-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 740)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-dev-re* format "[0-7]\\{%d\\}"] 3) #@47 RE to match the c_mode field in a odc header. (defconst *cpio-odc-mode-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 982)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-mode-re* format "[0-7]\\{%d\\}"] 3) #@46 RE to match the c_uid field in a odc header. (defconst *cpio-odc-uid-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 1227)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-uid-re* format "[0-7]\\{%d\\}"] 3) #@46 RE to match the c_gid field in a odc header. (defconst *cpio-odc-gid-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 1470)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-gid-re* format "[0-7]\\{%d\\}"] 3) #@48 RE to match the c_nlink field in a odc header. (defconst *cpio-odc-nlink-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 1713)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-nlink-re* format "[0-7]\\{%d\\}"] 3) #@47 RE to match the c_rdev field in a odc header. (defconst *cpio-odc-rdev-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 1962)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-rdev-re* format "[0-7]\\{%d\\}"] 3) #@48 RE to match the c_mtime field in a odc header. (defconst *cpio-odc-mtime-re* "[0-7]\\{11\\}" (#$ . 2208)) (byte-code "\301\302\207" [*cpio-odc-mtime-re* "[0-7]\\{11\\}" nil] 1) #@51 RE to match the c_namesize field in a odc header. (defconst *cpio-odc-namesize-re* (format "[0-7]\\{%d\\}" *cpio-odc-field-width*) (#$ . 2392)) (byte-code "\302\303\"\302\207" [*cpio-odc-field-width* *cpio-odc-namesize-re* format "[0-7]\\{%d\\}"] 3) #@51 RE to match the c_filesize field in a odc header. (defconst *cpio-odc-filesize-re* "[0-7]\\{11\\}" (#$ . 2650)) (byte-code "\301\302\207" [*cpio-odc-filesize-re* "[0-7]\\{11\\}" nil] 1) #@51 RE to match the c_filename field in a odc header. (defconst *cpio-odc-filename-re* "[[:print:]]+" (#$ . 2843)) (byte-code "\301\302\207" [*cpio-odc-filename-re* "[[:print:]]+" nil] 1) #@46 RE to match odc header format cpio archives. (defconst *cpio-odc-header-re* nil (#$ . 3034)) (byte-code "\306\307 \307\n\307 \307\f\307 \307\307\307\307\307\307\310\260\311\312\311!\210T\211\313\311!\210T\211\314\311!\210T\211 \315\311!\210T\211!\316\311!\210T\211\"\317\311!\210T\211#\320\311!\210T\211$\321\311!\210T\211%\322\311!\210T\211&\323\311!\210T\211'\324\311!\210T\211(\325\311!\210T\211))\311\207" [*cpio-odc-magic-re* *cpio-odc-dev-re* *cpio-odc-ino-re* *cpio-odc-mode-re* *cpio-odc-uid-re* *cpio-odc-gid-re* "\\(" "\\)\\(" "\\)" 0 (lambda (#1=#:def-tmp-var) (defconst *cpio-odc-magic-re-idx* #1# "RE to match the magic number in a odc header.")) (lambda (#1#) (defconst *cpio-odc-dev-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the dev.")) (lambda (#1#) (defconst *cpio-odc-ino-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the inode.")) (lambda (#1#) (defconst *cpio-odc-mode-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the mode.")) (lambda (#1#) (defconst *cpio-odc-uid-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the UID.")) (lambda (#1#) (defconst *cpio-odc-gid-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the GID.")) (lambda (#1#) (defconst *cpio-odc-nlink-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the nlink.")) (lambda (#1#) (defconst *cpio-odc-rdev-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the rdev.")) (lambda (#1#) (defconst *cpio-odc-mtime-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the mtime.")) (lambda (#1#) (defconst *cpio-odc-namesize-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the namesize.")) (lambda (#1#) (defconst *cpio-odc-filesize-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the filesize.")) (lambda (#1#) (defconst *cpio-odc-filename-re-idx* #1# "Index of the sub RE from *cpio-odc-header-re* to parse the filename.")) *cpio-odc-nlink-re* *cpio-odc-rdev-re* *cpio-odc-mtime-re* *cpio-odc-namesize-re* *cpio-odc-filesize-re* *cpio-odc-filename-re* *cpio-odc-header-re* i *cpio-odc-magic-re-idx* *cpio-odc-dev-re-idx* *cpio-odc-ino-re-idx* *cpio-odc-mode-re-idx* *cpio-odc-uid-re-idx* *cpio-odc-gid-re-idx* *cpio-odc-nlink-re-idx* *cpio-odc-rdev-re-idx* *cpio-odc-mtime-re-idx* *cpio-odc-namesize-re-idx* *cpio-odc-filesize-re-idx* *cpio-odc-filename-re-idx*] 25) #@67 The string that identifies an entry as a ODC style cpio(1) entry. (defconst *cpio-odc-magic* *cpio-odc-magic-re* (#$ . 5566)) (byte-code "\302\207" [*cpio-odc-magic-re* *cpio-odc-magic* nil] 1) #@49 The width of all of the fields in a odc header. (defconst *cpio-odc-field-width* 6 (#$ . 5768)) (byte-code "\301\211\207" [*cpio-odc-field-width* 6] 2) #@68 The modulus to which some things are padded in a ODC cpio archive. (defconst *cpio-odc-padding-modulus* 2 (#$ . 5927)) (byte-code "\301\211\207" [*cpio-odc-padding-modulus* 2] 2) #@86 A character to be used for padding headers and entry contents in a odc cpio archive. (defconst *cpio-odc-padding-char* 0 (#$ . 6113)) (byte-code "\301\211\207" [*cpio-odc-padding-char* 0] 2) #@117 A single character string of the character to be used for padding headers and entry contents in a odc cpio archive. (defconst *cpio-odc-padding-str* "" (#$ . 6312)) (byte-code "\306\307\310 !\210 \311\312!\210 G\\\211\313\312!\210 \\\211\314\312!\210 \\\211\315\312!\210 \\\211\316\312!\210 \\\211\317\312!\210 \\\211\320\312!\210 \\\211\321\312!\210 \\\211\322\312!\210 \323\\\211\324\312!\210 \\\211\325\312!\210 \323\\\211)\312\207" [*cpio-odc-padding-str* offset-so-far *cpio-odc-magic-field-offset* *cpio-odc-magic* *cpio-odc-dev-field-offset* *cpio-odc-field-width* "" 0 (lambda (#1=#:def-tmp-var) (defconst *cpio-odc-magic-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-dev-field-offset* #1#)) nil (lambda (#1#) (defconst *cpio-odc-ino-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-mode-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-uid-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-gid-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-nlink-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-rdev-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-mtime-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-namesize-field-offset* #1#)) 11 (lambda (#1#) (defconst *cpio-odc-filesize-field-offset* #1#)) (lambda (#1#) (defconst *cpio-odc-name-field-offset* #1#)) *cpio-odc-ino-field-offset* *cpio-odc-mode-field-offset* *cpio-odc-uid-field-offset* *cpio-odc-gid-field-offset* *cpio-odc-nlink-field-offset* *cpio-odc-rdev-field-offset* *cpio-odc-mtime-field-offset* *cpio-odc-namesize-field-offset* *cpio-odc-filesize-field-offset* *cpio-odc-name-field-offset*] 2) #@39 The TRAILER string for a odc archive. (defconst *cpio-odc-trailer* "0707070000000000000000000000000000000000010000000000000000000001300000000000TRAILER!!!" (#$ . 7977)) (byte-code "\301\302\303\304\305\306\307\310\311&\207" [*cpio-odc-trailer* "0707070000000000000000000000000000000000010000000000000000000001300000000000TRAILER!!!" custom-declare-variable *cpio-odc-blocksize* 512 "The default block size for this cpio archive.\nTaken from cpio-2.12/src/global.c." :type integer :group cpio] 8) #@369 Return the header string at or following point WHERE. If WHERE is not given, then use point. CAVEATS: 1. This searches for the magic number at the begining of the header; if WHERE is inside the magic number, then the search will fail. This works best if you are (looking-at) a header. 2. This returns the pure header; it does not provide the filename itself. (defalias 'cpio-odc-header-at-point #[(&optional where) "\204`\306\307\310 \311\216\312\f!\203\313\314!\2026 Gu\210\315 e\316#\203/\312\f!\211\203 \2056\313\314!,\207" [where found fname save-match-data-internal *cpio-odc-header-re* *cpio-odc-magic-re* "cpio-odc-header-at-point" nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at match-string-no-properties 0 re-search-backward t] 4 (#$ . 8484)]) #@258 Return the internal entry header structure encoded in HEADER-STR. The optional argument WHERE should be a buffer location at the beginning of a known cpio odc header. If WHERE is not given, then take point and hope. This function does NOT get the contents. (defalias 'cpio-odc-parse-header #[(header-string) "\306\307\211\211\310 \311\216\312 \"\210\313\314!\315!\316!\317!\320!\321!\322!\211\323!\324\325!\324\326!\211\324\327\n\"&*\330!\205S,\207" [result filesize namesize fname save-match-data-internal *cpio-odc-header-re* "cpio-odc-parse-header" nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match vector cpio-odc-parse-ino cpio-odc-parse-mode cpio-odc-parse-uid cpio-odc-parse-gid cpio-odc-parse-nlink cpio-odc-parse-mtime cpio-odc-parse-filesize cpio-odc-parse-dev 0 cpio-odc-parse-rdev cpio-odc-parse-namesize cpio-odc-parse-name cpio-entry-name header-string] 17 (#$ . 9326)]) #@72 Determine the length of the header implied by the given HEADER-STRING. (defalias 'cpio-odc-header-size #[(header-string namesize) "\303 \n\\)\207" [fname *cpio-odc-name-field-offset* namesize "cpio-odc-header-size"] 2 (#$ . 10310)]) #@41 Get the magic field from HEADER-STRING. (defalias 'cpio-odc-parse-magic #[(header-string) "\306 \211 G\\ \n\fO+\207" [fname *cpio-odc-magic-field-offset* this-offset *cpio-odc-magic-re* end-offset header-string "cpio-odc-parse-magic"] 4 (#$ . 10550)]) #@39 Get the ino field from HEADER-STRING. (defalias 'cpio-odc-parse-ino #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-ino-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-ino" string-to-number 8] 5 (#$ . 10811)]) #@40 Get the mode field from HEADER-STRING. (defalias 'cpio-odc-parse-mode #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-mode-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-mode" string-to-number 8] 5 (#$ . 11095)]) #@39 Get the uid field from HEADER-STRING. (defalias 'cpio-odc-parse-uid #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-uid-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-uid" string-to-number 8] 5 (#$ . 11383)]) #@39 Get the gid field from HEADER-STRING. (defalias 'cpio-odc-parse-gid #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-gid-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-gid" string-to-number 8] 5 (#$ . 11667)]) #@41 Get the nlink field from HEADER-STRING. (defalias 'cpio-odc-parse-nlink #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-nlink-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-nlink" string-to-number 8] 5 (#$ . 11951)]) #@41 Get the mtime field from HEADER-STRING. (defalias 'cpio-odc-parse-mtime #[(header-string) "\306 \211\307\\\310\311 \n O\312\"\313\314\315\f\"\316\"\317D\211,\207" [fname *cpio-odc-mtime-field-offset* this-offset end-offset time-value header-string "cpio-odc-parse-mtime" 11 nil string-to-number 8 lsh logand 4294901760 -16 65535] 5 (#$ . 12243)]) #@42 Get the filesize from the HEADER-STRING. (defalias 'cpio-odc-parse-filesize #[(header-string) "\305 \211\306\\\307\f\n O\310\"+\207" [fname *cpio-odc-filesize-field-offset* this-offset end-offset header-string "cpio-odc-parse-filesize" 11 string-to-number 8] 5 (#$ . 12602)]) #@39 Get the dev field from HEADER-STRING. (defalias 'cpio-odc-parse-dev #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-dev-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-dev" string-to-number 8] 5 (#$ . 12887)]) #@40 Get the rdev field from HEADER-STRING. (defalias 'cpio-odc-parse-rdev #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-rdev-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-rdev" string-to-number 8] 5 (#$ . 13171)]) #@44 Get the namesize field from HEADER-STRING. (defalias 'cpio-odc-parse-namesize #[(header-string) "\306 \211 \\\307 \n\fO\310\"+\207" [fname *cpio-odc-namesize-field-offset* this-offset *cpio-odc-field-width* end-offset header-string "cpio-odc-parse-namesize" string-to-number 8] 5 (#$ . 13459)]) #@118 Get the name field from HEADER-STRING. N.B. When called with the correct namesize, this includes the terminating 0. (defalias 'cpio-odc-parse-name #[(header-string namesize) "\306  \n\211\f\\SO\211\307\230?\205 +\207" [fname *cpio-odc-name-field-offset* this-offset header-string namesize tmp-string "cpio-odc-parse-name" "TRAILER!!!"] 5 (#$ . 13764)]) #@229 Return the contents implied by point and HEADER-STRING. CAVEATS: See `cpio-odc-parse-magic'. This requires the point to be at the start of HEADER-STRING in the buffer. After all that's where the contents are, not in the header. (defalias 'cpio-odc-parse-contents #[(header-string where namesize filesize) "\304\305 \n\\ \n\\ \\\")\207" [fname where namesize filesize "cpio-odc-parse-contents" buffer-substring-no-properties] 4 (#$ . 14130)]) #@108 Make a ODC style padded cpio header for the given ATTRibuteS. This function does NOT include the contents. (defalias 'cpio-odc-make-header-string #[(attrs &optional contents) "\306\307!\310\311!\312!\313!\314!\315!\316!\317!\320!\321!\322\323\nGT\"\324!\n\325\260 \f \310\326\327#)\266\203\203E \202J\330\331 #+\207" [attrs header-string name fname *cpio-odc-header-re* inhibit-changing-match-data "cpio-odc-make-header-string" cpio-entry-name nil cpio-odc-make-magic cpio-odc-make-dev cpio-odc-make-ino cpio-odc-make-mode cpio-odc-make-uid cpio-odc-make-gid cpio-odc-make-nlink cpio-odc-make-rdev cpio-odc-make-mtime format "%06o" cpio-odc-make-filesize "" t string-match error "%s(): I built a bad header: [[%s]]"] 13 (#$ . 14580)]) #@36 Return the ODC magic header string (defalias 'cpio-odc-make-magic #[(attrs) "\302 )\207" [fname *cpio-odc-magic* "cpio-odc-make-magic"] 1 (#$ . 15344)]) #@69 Return a string value for the inode from the file attributes ATTRS. (defalias 'cpio-odc-make-ino #[(attrs) "\303\304!\305\306 \"*\207" [attrs ino fname "cpio-odc-make-ino" cpio-ino format "%06o"] 3 (#$ . 15504)]) #@68 Return a string value for the mode from the file attributes ATTRS. (defalias 'cpio-odc-make-mode #[(attrs) "\302\303\304\305 !\")\207" [fname attrs "cpio-odc-make-mode" format "%06o" cpio-mode-value] 4 (#$ . 15726)]) #@76 Return an integer string value for the UID from the file attributes ATTRS. (defalias 'cpio-odc-make-uid #[(attrs) "\303\304!\305\306 \"*\207" [attrs uid fname "cpio-odc-make-uid" cpio-uid format "%06o"] 3 (#$ . 15950)]) #@76 Return an integer string value for the GID from the file attributes ATTRS. (defalias 'cpio-odc-make-gid #[(attrs) "\303\304!\305\306 \"*\207" [attrs gid fname "cpio-odc-make-gid" cpio-gid format "%06o"] 3 (#$ . 16179)]) #@88 Return an integer string value for the number of links from the file attributes ATTRS. (defalias 'cpio-odc-make-nlink #[(attrs) "\302\303\304\305 !\")\207" [fname attrs "cpio-odc-make-nlink" format "%06o" cpio-nlink] 4 (#$ . 16408)]) #@72 Return a string value for the mod time from the file attributes ATTRS. (defalias 'cpio-odc-make-mtime #[(attrs) "\303\304!\305\306\307 !\"\310\311O*\207" [attrs mod-time fname "cpio-odc-make-mtime" cpio-mtime format "%011o" float-time 0 11] 4 (#$ . 16649)]) #@80 Return an 8 digit hex string for the filesize attribute among the given ATTRs. (defalias 'cpio-odc-make-filesize #[(attrs) "\302\303\304\305 !\")\207" [fname attrs "cpio-odc-make-filesize" format "%011o" cpio-entry-size] 4 (#$ . 16916)]) #@67 Return a string value for the dev from the file attributes ATTRS. (defalias 'cpio-odc-make-dev #[(attrs) "\303\304!\305\306 \"*\207" [attrs dev fname "cpio-odc-make-dev" cpio-dev-maj format "%06o"] 3 (#$ . 17161)]) #@68 Return a string value for the rdev from the file attributes ATTRS. (defalias 'cpio-odc-make-rdev #[(attrs) "\303\304\305\306\307\n!\"*\207" [rdev fname attrs "cpio-odc-make-rdev" nil format "%06o" cpio-rdev-maj] 4 (#$ . 17385)]) #@100 Parse the odc cpio header that begins at point. If there is no header there, then signal an error. (defalias 'cpio-odc-parse-header-at-point #[nil "\303 \304\305!)\262\204\306\307\"\210\310\311\312!!)\207" [fname *cpio-odc-header-re* inhibit-changing-match-data "cpio-odc-parse-header-at-point" t looking-at error "%s(): point is not looking at a odc header." cpio-odc-parse-header match-string-no-properties 0] 3 (#$ . 17623)]) #@378 Move the point to the beginning of the next odc cpio header. If point is looking-at such a header, then that is the next one and there is no movement. (Thus, a caller may have to make sure that point has moved.) This returns the a marker for point where the header is found, if one is found. It returns NIL otherwise. This sets match-data for the entire header and each field. (defalias 'cpio-odc-goto-next-header #[nil "\304\305\211\306 d\307#\203\310\224b\311\310!\312 B\202\305+\207" [header-string header-start fname *cpio-odc-header-re* "cpio-odc-goto-next-header" nil re-search-forward t 0 match-string-no-properties point-marker] 4 (#$ . 18066)]) #@209 Build an internal structure reflecting the contents of the odc cpio archive in the current buffer. See the variable *cpio-catalog* for more information. CAVEAT: This respects neither narrowing nor the point. (defalias 'cpio-odc-build-catalog #[nil "\306\307\211\211\211\310\307\211\211\211\211~\210eb\210\311 \211\203v@\211\203vA\211\203v \203v\312 \211\203 \313 !Gu\210`\211b\210\314 \315 \"\210\316 !\317  \320$BB \f\\S\211b\210\202 \237. \207" [catalog those-contents contents-end contents-start filesize parsed-header "cpio-odc-build-catalog" nil t cpio-odc-goto-next-header cpio-odc-parse-header-at-point cpio-entry-size point-marker set-marker-insertion-type cpio-entry-name vector cpio-mode-entry-unmodified header-info that-header-string header-end header-start fname *cg-insert-after*] 12 (#$ . 18737)]) #@102 Return the character position of the (ostensible) start of the trailer for the current cpio archive. (defalias 'cpio-odc-start-of-trailer #[nil "\303\304\305\306\n\"\210*\207" [end-of-contents fname *cpio-catalog* "cpio-odc-start-of-trailer" 0 mapc #[(ce) "\303!\304 !\305!\\\211)\207" [ce attrs end-of-contents cpio-entry-attrs-from-catalog-entry cpio-entry-size cpio-contents-start] 3]] 3 (#$ . 19604)]) #@98 Calculate the location of the end of the current archive once the TRAILER is written and padded. (defalias 'cpio-odc-end-of-archive #[nil "\304\305 \306\nG\\ \"*\207" [end-of-contents fname *cpio-odc-trailer* *cpio-odc-blocksize* "cpio-odc-end-of-archive" cpio-odc-start-of-trailer cg-round-up] 3 (#$ . 20023)]) #@63 Replace thed current trailer in the current cpio odc archive. (defalias 'cpio-odc-adjust-trailer #[nil "\301\302 \210\303 )\207" [fname "cpio-odc-adjust-trailer" cpio-odc-delete-trailer cpio-odc-insert-trailer] 1 (#$ . 20344)]) #@43 Insert a odc trailer into a cpio archive. (defalias 'cpio-odc-insert-trailer #[nil "\306 \211G\307  \307\nc\210db\210\310`S\f\"\211`ZT\311\f\312\"c\210 \211-\207" [fname *cpio-odc-trailer* base-trailer base-len len buffer-read-only "cpio-odc-insert-trailer" nil cg-round-up make-string 0 bro-before *cpio-odc-blocksize*] 4 (#$ . 20579)]) #@53 Delete the trailer in the current cpio odc archive. (defalias 'cpio-odc-delete-trailer #[nil "\305 \306=\204 \307\310\"\210eb\210\311\312\n\"\210 \313`d|\210\f\211*\207" [fname major-mode *cpio-catalog* buffer-read-only bro-before "cpio-odc-delete-trailer" cpio-mode error "%s(): Called outside of a cpio archive buffer." mapc #[(e) "@\304 !\305 !\306\n!\\\211b\210\307\310w+\207" [e ename attrs entry-end cpio-entry-attrs cpio-contents-start cpio-entry-size "" nil] 4] nil] 3 (#$ . 20934)]) (provide 'cpio-odc)