InfoMagic Source Code 1993 July

home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / tar-mode.elc < prev next >
Emacs Compiled Lisp | 1993-07-05 | 21.9 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	Emacs Compiled Lisp `(other/emacsCompiledLisp)`	magic	Unsupported
`1%`	dexvert	Combustion 2 Particle Library `(other/combustion2ParticleLibrary)`	ext	Unsupported
`100%`	file	Emacs/XEmacs v19 byte-compiled Lisp data	default
`99%`	file	data	default
`100%`	TrID	Emacs/XEmacs byte-compiled Lisp (generic)	default
`100%`	xdgMime	text/x-emacs-lisp	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul  6|
|00000040| 20 30 30 3a 30 37 3a 31 | 37 20 31 39 39 33 0a 3b | 00:07:1|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 74 61 72 | 2d 6d 6f 64 65 2e 65 6c |lisp/tar|-mode.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 35 | 2e 31 36 2e 0a 3b 3b 3b |on 19.15|.16..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 64 65 66 76 61 | 72 20 74 61 72 2d 61 6e |..(defva|r tar-an|
|000001d0| 61 6c 2d 62 6c 6f 63 6b | 73 69 7a 65 20 32 30 20 |al-block|size 20 |
|000001e0| 22 5c 0a 2a 54 68 65 20 | 62 6c 6f 63 6b 73 69 7a |"\.*The |blocksiz|
|000001f0| 65 20 6f 66 20 74 61 72 | 20 66 69 6c 65 73 20 77 |e of tar| files w|
|00000200| 72 69 74 74 65 6e 20 62 | 79 20 45 6d 61 63 73 2c |ritten b|y Emacs,|
|00000210| 20 6f 72 20 6e 69 6c 2c | 20 6d 65 61 6e 69 6e 67 | or nil,| meaning|
|00000220| 20 64 6f 6e 27 74 20 63 | 61 72 65 2e 0a 54 68 65 | don't c|are..The|
|00000230| 20 62 6c 6f 63 6b 73 69 | 7a 65 20 6f 66 20 61 20 | blocksi|ze of a |
|00000240| 74 61 72 20 66 69 6c 65 | 20 69 73 20 6e 6f 74 20 |tar file| is not |
|00000250| 72 65 61 6c 6c 79 20 74 | 68 65 20 73 69 7a 65 20 |really t|he size |
|00000260| 6f 66 20 74 68 65 20 62 | 6c 6f 63 6b 73 3b 20 72 |of the b|locks; r|
|00000270| 61 74 68 65 72 2c 20 69 | 74 20 69 73 0a 74 68 65 |ather, i|t is.the|
|00000280| 20 6e 75 6d 62 65 72 20 | 6f 66 20 62 6c 6f 63 6b | number |of block|
|00000290| 73 20 77 72 69 74 74 65 | 6e 20 77 69 74 68 20 6f |s writte|n with o|
|000002a0| 6e 65 20 73 79 73 74 65 | 6d 20 63 61 6c 6c 2e 20 |ne syste|m call. |
|000002b0| 20 57 68 65 6e 20 74 61 | 72 72 69 6e 67 20 74 6f | When ta|rring to|
|000002c0| 20 61 20 74 61 70 65 2c | 20 0a 74 68 69 73 20 69 | a tape,| .this i|
|000002d0| 73 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 74 68 |s the si|ze of th|
|000002e0| 65 20 2a 74 61 70 65 2a | 20 62 6c 6f 63 6b 73 2c |e *tape*| blocks,|
|000002f0| 20 62 75 74 20 77 68 65 | 6e 20 77 72 69 74 69 6e | but whe|n writin|
|00000300| 67 20 74 6f 20 61 20 66 | 69 6c 65 2c 20 69 74 20 |g to a f|ile, it |
|00000310| 64 6f 65 73 6e 27 74 0a | 6d 61 74 74 65 72 20 6d |doesn't.|matter m|
|00000320| 75 63 68 2e 20 20 54 68 | 65 20 6f 6e 6c 79 20 6e |uch.  Th|e only n|
|00000330| 6f 74 69 63 65 61 62 6c | 65 20 64 69 66 66 65 72 |oticeabl|e differ|
|00000340| 65 6e 63 65 20 69 73 20 | 74 68 61 74 20 69 66 20 |ence is |that if |
|00000350| 61 20 74 61 72 20 66 69 | 6c 65 20 64 6f 65 73 20 |a tar fi|le does |
|00000360| 6e 6f 74 0a 68 61 76 65 | 20 61 20 62 6c 6f 63 6b |not.have| a block|
|00000370| 73 69 7a 65 20 6f 66 20 | 32 30 2c 20 74 61 72 20 |size of |20, tar |
|00000380| 77 69 6c 6c 20 74 65 6c | 6c 20 79 6f 75 20 74 68 |will tel|l you th|
|00000390| 61 74 3b 20 61 6c 6c 20 | 74 68 69 73 20 72 65 61 |at; all |this rea|
|000003a0| 6c 6c 79 20 63 6f 6e 74 | 72 6f 6c 73 20 69 73 0a |lly cont|rols is.|
|000003b0| 68 6f 77 20 6d 61 6e 79 | 20 6e 75 6c 6c 20 70 61 |how many| null pa|
|000003c0| 64 64 69 6e 67 20 62 79 | 74 65 73 20 67 6f 20 6f |dding by|tes go o|
|000003d0| 6e 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |n the en|d of the|
|000003e0| 20 74 61 72 20 66 69 6c | 65 2e 22 29 0a 28 64 65 | tar fil|e.").(de|
|000003f0| 66 76 61 72 20 74 61 72 | 2d 75 70 64 61 74 65 2d |fvar tar|-update-|
|00000400| 64 61 74 65 73 74 61 6d | 70 20 6e 69 6c 20 22 5c |datestam|p nil "\|
|00000410| 0a 2a 57 68 65 74 68 65 | 72 20 74 61 72 2d 6d 6f |.*Whethe|r tar-mo|
|00000420| 64 65 20 73 68 6f 75 6c | 64 20 70 6c 61 79 20 66 |de shoul|d play f|
|00000430| 61 73 74 20 61 6e 64 20 | 6c 6f 6f 73 65 20 77 69 |ast and |loose wi|
|00000440| 74 68 20 73 75 62 2d 66 | 69 6c 65 20 64 61 74 65 |th sub-f|ile date|
|00000450| 73 74 61 6d 70 73 3b 0a | 69 66 20 74 68 69 73 20 |stamps;.|if this |
|00000460| 69 73 20 74 72 75 65 2c | 20 74 68 65 6e 20 65 64 |is true,| then ed|
|00000470| 69 74 69 6e 67 20 61 6e | 64 20 73 61 76 69 6e 67 |iting an|d saving|
|00000480| 20 61 20 74 61 72 20 66 | 69 6c 65 20 65 6e 74 72 | a tar f|ile entr|
|00000490| 79 20 62 61 63 6b 20 69 | 6e 74 6f 20 69 74 73 0a |y back i|nto its.|
|000004a0| 74 61 72 20 66 69 6c 65 | 20 77 69 6c 6c 20 75 70 |tar file| will up|
|000004b0| 64 61 74 65 20 69 74 73 | 20 64 61 74 65 73 74 61 |date its| datesta|
|000004c0| 6d 70 2e 20 20 49 66 20 | 66 61 6c 73 65 2c 20 74 |mp.  If |false, t|
|000004d0| 68 65 20 64 61 74 65 73 | 74 61 6d 70 20 69 73 20 |he dates|tamp is |
|000004e0| 75 6e 63 68 61 6e 67 65 | 64 2e 0a 59 6f 75 20 6d |unchange|d..You m|
|000004f0| 61 79 20 6f 72 20 6d 61 | 79 20 6e 6f 74 20 77 61 |ay or ma|y not wa|
|00000500| 6e 74 20 74 68 69 73 20 | 2d 20 69 74 20 69 73 20 |nt this |- it is |
|00000510| 67 6f 6f 64 20 69 6e 20 | 74 68 61 74 20 79 6f 75 |good in |that you|
|00000520| 20 63 61 6e 20 74 65 6c | 6c 20 77 68 65 6e 20 61 | can tel|l when a|
|00000530| 20 66 69 6c 65 0a 69 6e | 20 61 20 74 61 72 20 61 | file.in| a tar a|
|00000540| 72 63 68 69 76 65 20 68 | 61 73 20 62 65 65 6e 20 |rchive h|as been |
|00000550| 63 68 61 6e 67 65 64 2c | 20 62 75 74 20 69 74 20 |changed,| but it |
|00000560| 69 73 20 62 61 64 20 66 | 6f 72 20 74 68 65 20 73 |is bad f|or the s|
|00000570| 61 6d 65 20 72 65 61 73 | 6f 6e 20 74 68 61 74 0a |ame reas|on that.|
|00000580| 65 64 69 74 69 6e 67 20 | 61 20 66 69 6c 65 20 69 |editing |a file i|
|00000590| 6e 20 74 68 65 20 74 61 | 72 20 61 72 63 68 69 76 |n the ta|r archiv|
|000005a0| 65 20 61 74 20 61 6c 6c | 20 69 73 20 62 61 64 20 |e at all| is bad |
|000005b0| 2d 20 74 68 65 20 63 68 | 61 6e 67 65 64 20 76 65 |- the ch|anged ve|
|000005c0| 72 73 69 6f 6e 20 6f 66 | 20 0a 74 68 65 20 66 69 |rsion of| .the fi|
|000005d0| 6c 65 20 6e 65 76 65 72 | 20 65 78 69 73 74 73 20 |le never| exists |
|000005e0| 6f 6e 20 64 69 73 6b 2e | 22 29 0a 28 62 79 74 65 |on disk.|").(byte|
|000005f0| 2d 63 6f 64 65 20 22 c0 | c1 21 84 08 00 c2 11 c0 |-code ".|.!......|
|00000600| c3 21 84 10 00 c2 13 c0 | c4 21 84 18 00 c2 14 c0 |.!......|.!......|
|00000610| c5 21 84 20 00 c2 15 c0 | c6 21 84 29 00 c2 16 06 |.!. ....|.!.)....|
|00000620| c2 87 22 20 5b 62 6f 75 | 6e 64 70 20 74 61 72 2d |.." [bou|ndp tar-|
|00000630| 70 61 72 73 65 2d 69 6e | 66 6f 20 6e 69 6c 20 74 |parse-in|fo nil t|
|00000640| 61 72 2d 68 65 61 64 65 | 72 2d 6f 66 66 73 65 74 |ar-heade|r-offset|
|00000650| 20 74 61 72 2d 73 75 70 | 65 72 69 6f 72 2d 62 75 | tar-sup|erior-bu|
|00000660| 66 66 65 72 20 74 61 72 | 2d 73 75 70 65 72 69 6f |ffer tar|-superio|
|00000670| 72 2d 64 65 73 63 72 69 | 70 74 6f 72 20 74 61 72 |r-descri|ptor tar|
|00000680| 2d 73 75 62 66 69 6c 65 | 2d 6d 6f 64 65 5d 20 32 |-subfile|-mode] 2|
|00000690| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 72 |).(defal|ias 'tar|
|000006a0| 2d 73 65 74 66 20 27 28 | 6d 61 63 72 6f 20 2e 20 |-setf '(|macro . |
|000006b0| 23 5b 28 66 6f 72 6d 20 | 76 61 6c 29 20 22 c0 09 |#[(form |val) "..|
|000006c0| c2 c3 21 85 09 00 0b 5c | 22 89 1c 39 83 18 00 c5 |..!....\|"..9....|
|000006d0| 0c 0e 06 45 82 5e 00 0c | 3a 84 24 00 c7 c8 09 5c |...E.^..|:.$....\|
|000006e0| 22 82 5e 00 0c 40 c9 3d | 83 38 00 ca 0c 41 40 cb |".^..@.=|.8...A@.|
|000006f0| 0c 38 0e 06 46 82 5e 00 | 0c 40 cc 3d 83 49 00 cd |.8..F.^.|.@.=.I..|
|00000700| 0c 41 40 0e 06 45 82 5e | 00 0c 40 ce 3d 83 5a 00 |.A@..E.^|..@.=.Z.|
|00000710| cf 0c 41 40 0e 06 45 82 | 5e 00 c7 d0 09 5c 22 29 |..A@..E.|^....\")|
|00000720| 87 22 20 5b 6d 61 63 72 | 6f 65 78 70 61 6e 64 20 |." [macr|oexpand |
|00000730| 66 6f 72 6d 20 62 6f 75 | 6e 64 70 20 62 79 74 65 |form bou|ndp byte|
|00000740| 2d 63 6f 6d 70 69 6c 65 | 2d 6d 61 63 72 6f 2d 65 |-compile|-macro-e|
|00000750| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 6d 66 6f 72 6d |nvironme|nt mform|
|00000760| 20 73 65 74 71 20 76 61 | 6c 20 65 72 72 6f 72 20 | setq va|l error |
|00000770| 22 63 61 6e 27 74 20 73 | 65 74 66 20 25 73 22 20 |"can't s|etf %s" |
|00000780| 61 72 65 66 20 61 73 65 | 74 20 32 20 63 61 72 20 |aref ase|t 2 car |
|00000790| 73 65 74 63 61 72 20 63 | 64 72 20 73 65 74 63 64 |setcar c|dr setcd|
|000007a0| 72 20 22 64 6f 6e 27 74 | 20 6b 6e 6f 77 20 68 6f |r "don't| know ho|
|000007b0| 77 20 74 6f 20 73 65 74 | 66 20 25 73 22 5d 20 35 |w to set|f %s"] 5|
|000007c0| 20 22 5c 0a 41 20 6d 69 | 6e 64 2d 6e 75 6d 62 69 | "\.A mi|nd-numbi|
|000007d0| 6e 67 6c 79 20 73 69 6d | 70 6c 65 20 69 6d 70 6c |ngly sim|ple impl|
|000007e0| 65 6d 65 6e 74 61 74 69 | 6f 6e 20 6f 66 20 73 65 |ementati|on of se|
|000007f0| 74 66 2e 22 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |tf."])).|(defalia|
|00000800| 73 20 27 74 61 72 2d 64 | 6f 6c 69 73 74 20 27 28 |s 'tar-d|olist '(|
|00000810| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 63 6f 6e 74 72 |macro . |#[(contr|
|00000820| 6f 6c 20 26 72 65 73 74 | 20 62 6f 64 79 29 20 22 |ol &rest| body) "|
|00000830| 08 40 08 41 40 08 41 41 | 40 19 1a 1b c4 c5 5c 6e |.@.A@.AA|@.....\n|
|00000840| 44 43 c6 c5 c4 0b c7 44 | 43 c8 0e 09 ca c5 cb c5 |DC.....D|C.......|
|00000850| 44 45 43 5c 22 42 42 45 | 09 46 2b 87 22 20 5b 63 |DEC\"BBE|.F+." [c|
|00000860| 6f 6e 74 72 6f 6c 20 76 | 61 6c 20 69 6e 69 74 20 |ontrol v|al init |
|00000870| 76 61 72 20 6c 65 74 20 | 5f 64 6f 6c 69 73 74 5f |var let |_dolist_|
|00000880| 69 74 65 72 61 74 6f 72 | 5f 20 77 68 69 6c 65 20 |iterator|_ while |
|00000890| 28 63 61 72 20 5f 64 6f | 6c 69 73 74 5f 69 74 65 |(car _do|list_ite|
|000008a0| 72 61 74 6f 72 5f 29 20 | 61 70 70 65 6e 64 20 62 |rator_) |append b|
|000008b0| 6f 64 79 20 73 65 74 71 | 20 63 64 72 5d 20 31 32 |ody setq| cdr] 12|
|000008c0| 20 22 5c 0a 73 79 6e 74 | 61 78 3a 20 28 64 6f 6c | "\.synt|ax: (dol|
|000008d0| 69 73 74 20 28 76 61 72 | 2d 6e 61 6d 65 20 6c 69 |ist (var|-name li|
|000008e0| 73 74 2d 65 78 70 72 20 | 26 6f 70 74 69 6f 6e 61 |st-expr |&optiona|
|000008f0| 6c 20 72 65 74 75 72 6e | 2d 76 61 6c 75 65 29 20 |l return|-value) |
|00000900| 26 62 6f 64 79 20 62 6f | 64 79 29 22 5d 29 29 0a |&body bo|dy)"])).|
|00000910| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 64 |(defalia|s 'tar-d|
|00000920| 6f 74 69 6d 65 73 20 27 | 28 6d 61 63 72 6f 20 2e |otimes '|(macro .|
|00000930| 20 23 5b 28 63 6f 6e 74 | 72 6f 6c 20 26 72 65 73 | #[(cont|rol &res|
|00000940| 74 20 62 6f 64 79 29 20 | 22 08 40 08 41 40 08 41 |t body) |".@.A@.A|
|00000950| 41 40 19 1a 1b c4 c5 5c | 6e 44 0b c6 44 44 c7 c8 |A@.....\|nD..DD..|
|00000960| 0b c5 45 c9 0e 5c 6e cb | 0b cc 0b 44 45 43 5c 22 |..E..\n.|...DEC\"|
|00000970| 42 42 09 46 2b 87 22 20 | 5b 63 6f 6e 74 72 6f 6c |BB.F+." |[control|
|00000980| 20 76 61 6c 20 6e 20 76 | 61 72 20 6c 65 74 20 5f | val n v|ar let _|
|00000990| 64 6f 74 69 6d 65 73 5f | 65 6e 64 5f 20 30 20 77 |dotimes_|end_ 0 w|
|000009a0| 68 69 6c 65 20 3c 20 61 | 70 70 65 6e 64 20 62 6f |hile < a|ppend bo|
|000009b0| 64 79 20 73 65 74 71 20 | 31 2b 5d 20 31 30 20 22 |dy setq |1+] 10 "|
|000009c0| 5c 0a 73 79 6e 74 61 78 | 3a 20 28 64 6f 6c 69 73 |\.syntax|: (dolis|
|000009d0| 74 20 28 76 61 72 2d 6e | 61 6d 65 20 63 6f 75 6e |t (var-n|ame coun|
|000009e0| 74 2d 65 78 70 72 20 26 | 6f 70 74 69 6f 6e 61 6c |t-expr &|optional|
|000009f0| 20 72 65 74 75 72 6e 2d | 76 61 6c 75 65 29 20 26 | return-|value) &|
|00000a00| 62 6f 64 79 20 62 6f 64 | 79 29 22 5d 29 29 0a 28 |body bod|y)"])).(|
|00000a10| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|00000a20| 88 c0 c3 c4 5c 22 88 c0 | c5 c6 5c 22 88 c0 c7 c8 |....\"..|..\"....|
|00000a30| 5c 22 88 c0 c9 ca 5c 22 | 88 c0 cb cc 5c 22 88 c0 |\"....\"|....\"..|
|00000a40| cd ce 5c 22 88 c0 cf d0 | 5c 22 88 c0 d1 d2 5c 22 |..\"....|\"....\"|
|00000a50| 88 c0 d3 d4 5c 22 88 c0 | d5 d6 5c 22 88 c0 d7 d8 |....\"..|..\"....|
|00000a60| 5c 22 88 c0 d9 da 5c 22 | 88 c0 db dc 5c 22 88 c0 |\"....\"|....\"..|
|00000a70| dd de 5c 22 88 c0 df e0 | 5c 22 88 c0 e1 e2 5c 22 |..\"....|\"....\"|
|00000a80| 88 c0 e3 e4 5c 22 88 e5 | 16 26 e5 e7 5c 5c 89 16 |....\"..|.&..\\..|
|00000a90| 28 e9 5c 5c 89 16 2a e9 | 5c 5c 89 16 2b e9 5c 5c |(.\\..*.|\\..+.\\|
|00000aa0| 89 16 2c ed 5c 5c 89 16 | 2e ed 5c 5c 89 16 2f e9 |..,.\\..|..\\../.|
|00000ab0| 5c 5c 89 16 30 f1 5c 5c | 89 16 32 e7 5c 5c 89 16 |\\..0.\\|..2.\\..|
|00000ac0| 33 e9 5c 5c 89 16 34 f5 | 5c 5c 89 16 36 f5 5c 5c |3.\\..4.|\\..6.\\|
|00000ad0| 89 16 37 e9 5c 5c 89 16 | 38 e9 5c 5c 16 39 c0 87 |..7.\\..|8.\\.9..|
|00000ae0| 22 20 5b 64 65 66 61 6c | 69 61 73 20 6d 61 6b 65 |" [defal|ias make|
|00000af0| 2d 74 61 72 2d 68 65 61 | 64 65 72 20 28 6d 61 63 |-tar-hea|der (mac|
|00000b00| 72 6f 20 2e 20 23 5b 28 | 6e 61 6d 65 20 6d 6f 64 |ro . #[(|name mod|
|00000b10| 65 20 75 69 64 20 67 69 | 74 20 73 69 7a 65 20 64 |e uid gi|t size d|
|00000b20| 61 74 65 20 63 6b 20 6c | 74 20 6c 6e 20 6d 61 67 |ate ck l|t ln mag|
|00000b30| 69 63 20 75 6e 61 6d 65 | 20 67 6e 61 6d 65 20 64 |ic uname| gname d|
|00000b40| 65 76 6d 61 6a 20 64 65 | 76 6d 69 6e 29 20 22 c0 |evmaj de|vmin) ".|
|00000b50| 09 5c 6e 0b 0c 0d 0e 06 | 0e 07 0e 08 0e 09 0e 5c |.\n.....|.......\|
|00000b60| 6e 0e 0b 0e 0c 0e 0d 0e | 0e af 0f 87 22 20 5b 76 |n.......|...." [v|
|00000b70| 65 63 74 6f 72 20 6e 61 | 6d 65 20 6d 6f 64 65 20 |ector na|me mode |
|00000b80| 75 69 64 20 67 69 74 20 | 73 69 7a 65 20 64 61 74 |uid git |size dat|
|00000b90| 65 20 63 6b 20 6c 74 20 | 6c 6e 20 6d 61 67 69 63 |e ck lt |ln magic|
|00000ba0| 20 75 6e 61 6d 65 20 67 | 6e 61 6d 65 20 64 65 76 | uname g|name dev|
|00000bb0| 6d 61 6a 20 64 65 76 6d | 69 6e 5d 20 31 35 5d 29 |maj devm|in] 15])|
|00000bc0| 20 74 61 72 2d 68 65 61 | 64 65 72 2d 6e 61 6d 65 | tar-hea|der-name|
|00000bd0| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 78 29 20 | (macro |. #[(x) |
|00000be0| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 78 20 |"...E." |[aref x |
|00000bf0| 30 5d 20 33 5d 29 20 74 | 61 72 2d 68 65 61 64 65 |0] 3]) t|ar-heade|
|00000c00| 72 2d 6d 6f 64 65 20 28 | 6d 61 63 72 6f 20 2e 20 |r-mode (|macro . |
|00000c10| 23 5b 28 78 29 20 22 c0 | 09 c2 45 87 22 20 5b 61 |#[(x) ".|..E." [a|
|00000c20| 72 65 66 20 78 20 31 5d | 20 33 5d 29 20 74 61 72 |ref x 1]| 3]) tar|
|00000c30| 2d 68 65 61 64 65 72 2d | 75 69 64 20 28 6d 61 63 |-header-|uid (mac|
|00000c40| 72 6f 20 2e 20 23 5b 28 | 78 29 20 22 c0 09 c2 45 |ro . #[(|x) "...E|
|00000c50| 87 22 20 5b 61 72 65 66 | 20 78 20 32 5d 20 33 5d |." [aref| x 2] 3]|
|00000c60| 29 20 74 61 72 2d 68 65 | 61 64 65 72 2d 67 69 64 |) tar-he|ader-gid|
|00000c70| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 78 29 20 | (macro |. #[(x) |
|00000c80| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 78 20 |"...E." |[aref x |
|00000c90| 33 5d 20 33 5d 29 20 74 | 61 72 2d 68 65 61 64 65 |3] 3]) t|ar-heade|
|00000ca0| 72 2d 73 69 7a 65 20 28 | 6d 61 63 72 6f 20 2e 20 |r-size (|macro . |
|00000cb0| 23 5b 28 78 29 20 22 c0 | 09 c2 45 87 22 20 5b 61 |#[(x) ".|..E." [a|
|00000cc0| 72 65 66 20 78 20 34 5d | 20 33 5d 29 20 74 61 72 |ref x 4]| 3]) tar|
|00000cd0| 2d 68 65 61 64 65 72 2d | 64 61 74 65 20 28 6d 61 |-header-|date (ma|
|00000ce0| 63 72 6f 20 2e 20 23 5b | 28 78 29 20 22 c0 09 c2 |cro . #[|(x) "...|
|00000cf0| 45 87 22 20 5b 61 72 65 | 66 20 78 20 35 5d 20 33 |E." [are|f x 5] 3|
|00000d00| 5d 29 20 74 61 72 2d 68 | 65 61 64 65 72 2d 63 68 |]) tar-h|eader-ch|
|00000d10| 65 63 6b 73 75 6d 20 28 | 6d 61 63 72 6f 20 2e 20 |ecksum (|macro . |
|00000d20| 23 5b 28 78 29 20 22 c0 | 09 c2 45 87 22 20 5b 61 |#[(x) ".|..E." [a|
|00000d30| 72 65 66 20 78 20 36 5d | 20 33 5d 29 20 74 61 72 |ref x 6]| 3]) tar|
|00000d40| 2d 68 65 61 64 65 72 2d | 6c 69 6e 6b 2d 74 79 70 |-header-|link-typ|
|00000d50| 65 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 78 29 |e (macro| . #[(x)|
|00000d60| 20 22 c0 09 c2 45 87 22 | 20 5b 61 72 65 66 20 78 | "...E."| [aref x|
|00000d70| 20 37 5d 20 33 5d 29 20 | 74 61 72 2d 68 65 61 64 | 7] 3]) |tar-head|
|00000d80| 65 72 2d 6c 69 6e 6b 2d | 6e 61 6d 65 20 28 6d 61 |er-link-|name (ma|
|00000d90| 63 72 6f 20 2e 20 23 5b | 28 78 29 20 22 c0 09 c2 |cro . #[|(x) "...|
|00000da0| 45 87 22 20 5b 61 72 65 | 66 20 78 20 38 5d 20 33 |E." [are|f x 8] 3|
|00000db0| 5d 29 20 74 61 72 2d 68 | 65 61 64 65 72 2d 6d 61 |]) tar-h|eader-ma|
|00000dc0| 67 69 63 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |gic (mac|ro . #[(|
|00000dd0| 78 29 20 22 c0 09 c2 45 | 87 22 20 5b 61 72 65 66 |x) "...E|." [aref|
|00000de0| 20 78 20 39 5d 20 33 5d | 29 20 74 61 72 2d 68 65 | x 9] 3]|) tar-he|
|00000df0| 61 64 65 72 2d 75 6e 61 | 6d 65 20 28 6d 61 63 72 |ader-una|me (macr|
|00000e00| 6f 20 2e 20 23 5b 28 78 | 29 20 22 c0 09 c2 45 87 |o . #[(x|) "...E.|
|00000e10| 22 20 5b 61 72 65 66 20 | 78 20 31 30 5d 20 33 5d |" [aref |x 10] 3]|
|00000e20| 29 20 74 61 72 2d 68 65 | 61 64 65 72 2d 67 6e 61 |) tar-he|ader-gna|
|00000e30| 6d 65 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 78 |me (macr|o . #[(x|
|00000e40| 29 20 22 c0 09 c2 45 87 | 22 20 5b 61 72 65 66 20 |) "...E.|" [aref |
|00000e50| 78 20 31 31 5d 20 33 5d | 29 20 74 61 72 2d 68 65 |x 11] 3]|) tar-he|
|00000e60| 61 64 65 72 2d 64 6d 61 | 6a 20 28 6d 61 63 72 6f |ader-dma|j (macro|
|00000e70| 20 2e 20 23 5b 28 78 29 | 20 22 c0 09 c2 45 87 22 | . #[(x)| "...E."|
|00000e80| 20 5b 61 72 65 66 20 78 | 20 31 32 5d 20 33 5d 29 | [aref x| 12] 3])|
|00000e90| 20 74 61 72 2d 68 65 61 | 64 65 72 2d 64 6d 69 6e | tar-hea|der-dmin|
|00000ea0| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 78 29 20 | (macro |. #[(x) |
|00000eb0| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 78 20 |"...E." |[aref x |
|00000ec0| 31 33 5d 20 33 5d 29 20 | 6d 61 6b 65 2d 74 61 72 |13] 3]) |make-tar|
|00000ed0| 2d 64 65 73 63 20 28 6d | 61 63 72 6f 20 2e 20 23 |-desc (m|acro . #|
|00000ee0| 5b 28 64 61 74 61 2d 73 | 74 61 72 74 20 74 6f 6b |[(data-s|tart tok|
|00000ef0| 65 6e 73 29 20 22 c0 09 | 5c 6e 45 87 22 20 5b 63 |ens) "..|\nE." [c|
|00000f00| 6f 6e 73 20 64 61 74 61 | 2d 73 74 61 72 74 20 74 |ons data|-start t|
|00000f10| 6f 6b 65 6e 73 5d 20 33 | 5d 29 20 74 61 72 2d 64 |okens] 3|]) tar-d|
|00000f20| 65 73 63 2d 64 61 74 61 | 2d 73 74 61 72 74 20 28 |esc-data|-start (|
|00000f30| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 78 29 20 22 c0 |macro . |#[(x) ".|
|00000f40| 09 44 87 22 20 5b 63 61 | 72 20 78 5d 20 32 5d 29 |.D." [ca|r x] 2])|
|00000f50| 20 74 61 72 2d 64 65 73 | 63 2d 74 6f 6b 65 6e 73 | tar-des|c-tokens|
|00000f60| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 78 29 20 | (macro |. #[(x) |
|00000f70| 22 c0 09 44 87 22 20 5b | 63 64 72 20 78 5d 20 32 |"..D." [|cdr x] 2|
|00000f80| 5d 29 20 30 20 74 61 72 | 2d 6e 61 6d 65 2d 6f 66 |]) 0 tar|-name-of|
|00000f90| 66 73 65 74 20 31 30 30 | 20 74 61 72 2d 6d 6f 64 |fset 100| tar-mod|
|00000fa0| 65 2d 6f 66 66 73 65 74 | 20 38 20 74 61 72 2d 75 |e-offset| 8 tar-u|
|00000fb0| 69 64 2d 6f 66 66 73 65 | 74 20 74 61 72 2d 67 69 |id-offse|t tar-gi|
|00000fc0| 64 2d 6f 66 66 73 65 74 | 20 74 61 72 2d 73 69 7a |d-offset| tar-siz|
|00000fd0| 65 2d 6f 66 66 73 65 74 | 20 31 32 20 74 61 72 2d |e-offset| 12 tar-|
|00000fe0| 74 69 6d 65 2d 6f 66 66 | 73 65 74 20 74 61 72 2d |time-off|set tar-|
|00000ff0| 63 68 6b 2d 6f 66 66 73 | 65 74 20 74 61 72 2d 6c |chk-offs|et tar-l|
|00001000| 69 6e 6b 70 2d 6f 66 66 | 73 65 74 20 31 20 74 61 |inkp-off|set 1 ta|
|00001010| 72 2d 6c 69 6e 6b 2d 6f | 66 66 73 65 74 20 74 61 |r-link-o|ffset ta|
|00001020| 72 2d 6d 61 67 69 63 2d | 6f 66 66 73 65 74 20 74 |r-magic-|offset t|
|00001030| 61 72 2d 75 6e 61 6d 65 | 2d 6f 66 66 73 65 74 20 |ar-uname|-offset |
|00001040| 33 32 20 74 61 72 2d 67 | 6e 61 6d 65 2d 6f 66 66 |32 tar-g|name-off|
|00001050| 73 65 74 20 74 61 72 2d | 64 6d 61 6a 2d 6f 66 66 |set tar-|dmaj-off|
|00001060| 73 65 74 20 74 61 72 2d | 64 6d 69 6e 2d 6f 66 66 |set tar-|dmin-off|
|00001070| 73 65 74 20 74 61 72 2d | 65 6e 64 2d 6f 66 66 73 |set tar-|end-offs|
|00001080| 65 74 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |et] 4).(|defalias|
|00001090| 20 27 74 6f 6b 65 6e 69 | 7a 65 2d 74 61 72 2d 68 | 'tokeni|ze-tar-h|
|000010a0| 65 61 64 65 72 2d 62 6c | 6f 63 6b 20 23 5b 28 73 |eader-bl|ock #[(s|
|000010b0| 74 72 69 6e 67 29 20 22 | 08 47 c1 57 83 09 00 c2 |tring) "|.G.W....|
|000010c0| 87 08 c3 48 c3 55 83 19 | 00 08 c4 48 c3 55 84 27 |...H.U..|...H.U.'|
|000010d0| 01 0d 53 1e 06 0e 07 53 | 1e 08 0e 09 53 1e 5c 6e |..S....S|....S.\n|
|000010e0| 0e 0b 53 1e 0c 08 0e 0d | 48 1e 0e 08 0e 07 0e 0f |..S.....|H.......|
|000010f0| 53 4f 89 1e 10 d1 98 86 | 45 00 0e 10 d2 98 1e 13 |SO......|E.......|
|00001100| c2 1e 14 d5 1e 16 d7 0e | 16 08 0e 18 23 83 5f 00 |........|....#._.|
|00001110| 0e 06 c3 95 53 5e 16 06 | d7 0e 16 08 0e 19 23 83 |....S^..|......#.|
|00001120| 71 00 0e 08 c3 95 53 5e | 16 08 d7 0e 16 08 0e 0f |q.....S^|........|
|00001130| 23 83 83 00 0e 5c 6e c3 | 95 53 5e 16 5c 6e d7 0e |#....\n.|.S^.\n..|
|00001140| 16 08 0e 09 23 83 95 00 | 0e 0c c3 95 53 5e 16 0c |....#...|....S^..|
|00001150| 08 0e 18 0e 06 4f 16 14 | 0e 0e c3 55 86 a8 00 0e |.....O..|...U....|
|00001160| 0e da 55 3f 85 b0 00 0e | 0e da 5a 89 16 0e 84 c1 |..U?....|..Z.....|
|00001170| 00 d7 db 0e 14 5c 22 83 | c1 00 dc 16 0e dd 0e 14 |.....\".|........|
|00001180| de 08 0d 0e 1f 53 23 de | 08 0e 1f 0e 20 53 23 de |.....S#.|.... S#.|
|00001190| 08 0e 20 0e 21 53 23 de | 08 0e 21 0e 5c 22 53 23 |.. .!S#.|..!.\"S#|
|000011a0| de 08 0e 5c 22 0e 23 53 | 23 de 08 0e 23 0e 0d 53 |...\".#S|#...#..S|
|000011b0| 23 0e 0e 08 0e 19 0e 08 | 4f 0e 13 89 85 07 01 08 |#.......|O.......|
|000011c0| 0e 0f 0e 5c 6e 4f 0e 13 | 85 12 01 08 0e 09 0e 0c |...\nO..|........|
|000011d0| 4f de 08 0e 0b 0e 24 53 | 23 de 08 0e 24 0e 25 53 |O.....$S|#...$.%S|
|000011e0| 23 26 0e 2e 09 87 e6 87 | 22 20 5b 73 74 72 69 6e |#&......|" [strin|
|000011f0| 67 20 35 31 32 20 6e 69 | 6c 20 30 20 31 30 31 20 |g 512 ni|l 0 101 |
|00001200| 74 61 72 2d 6d 6f 64 65 | 2d 6f 66 66 73 65 74 20 |tar-mode|-offset |
|00001210| 6e 61 6d 65 2d 65 6e 64 | 20 74 61 72 2d 6d 61 67 |name-end| tar-mag|
|00001220| 69 63 2d 6f 66 66 73 65 | 74 20 6c 69 6e 6b 2d 65 |ic-offse|t link-e|
|00001230| 6e 64 20 74 61 72 2d 67 | 6e 61 6d 65 2d 6f 66 66 |nd tar-g|name-off|
|00001240| 73 65 74 20 75 6e 61 6d | 65 2d 65 6e 64 20 74 61 |set unam|e-end ta|
|00001250| 72 2d 64 6d 61 6a 2d 6f | 66 66 73 65 74 20 67 6e |r-dmaj-o|ffset gn|
|00001260| 61 6d 65 2d 65 6e 64 20 | 74 61 72 2d 6c 69 6e 6b |ame-end |tar-link|
|00001270| 70 2d 6f 66 66 73 65 74 | 20 6c 69 6e 6b 2d 70 20 |p-offset| link-p |
|00001280| 74 61 72 2d 75 6e 61 6d | 65 2d 6f 66 66 73 65 74 |tar-unam|e-offset|
|00001290| 20 6d 61 67 69 63 2d 73 | 74 72 20 22 75 73 74 61 | magic-s|tr "usta|
|000012a0| 72 20 20 22 20 22 47 4e | 55 74 61 72 20 22 20 75 |r  " "GN|Utar " u|
|000012b0| 6e 61 6d 65 2d 76 61 6c | 69 64 2d 70 20 6e 61 6d |name-val|id-p nam|
|000012c0| 65 20 22 5b 5e 00 5d 2a | 00 22 20 6e 75 6c 73 65 |e "[^.]*|." nulse|
|000012d0| 78 70 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |xp strin|g-match |
|000012e0| 74 61 72 2d 6e 61 6d 65 | 2d 6f 66 66 73 65 74 20 |tar-name|-offset |
|000012f0| 74 61 72 2d 6c 69 6e 6b | 2d 6f 66 66 73 65 74 20 |tar-link|-offset |
|00001300| 34 38 20 22 2f 24 22 20 | 35 20 76 65 63 74 6f 72 |48 "/$" |5 vector|
|00001310| 20 74 61 72 2d 70 61 72 | 73 65 2d 6f 63 74 61 6c | tar-par|se-octal|
|00001320| 2d 69 6e 74 65 67 65 72 | 20 74 61 72 2d 75 69 64 |-integer| tar-uid|
|00001330| 2d 6f 66 66 73 65 74 20 | 74 61 72 2d 67 69 64 2d |-offset |tar-gid-|
|00001340| 6f 66 66 73 65 74 20 74 | 61 72 2d 73 69 7a 65 2d |offset t|ar-size-|
|00001350| 6f 66 66 73 65 74 20 74 | 61 72 2d 74 69 6d 65 2d |offset t|ar-time-|
|00001360| 6f 66 66 73 65 74 20 74 | 61 72 2d 63 68 6b 2d 6f |offset t|ar-chk-o|
|00001370| 66 66 73 65 74 20 74 61 | 72 2d 64 6d 69 6e 2d 6f |ffset ta|r-dmin-o|
|00001380| 66 66 73 65 74 20 74 61 | 72 2d 65 6e 64 2d 6f 66 |ffset ta|r-end-of|
|00001390| 66 73 65 74 20 65 6d 70 | 74 79 2d 74 61 72 2d 62 |fset emp|ty-tar-b|
|000013a0| 6c 6f 63 6b 5d 20 31 39 | 20 22 5c 0a 52 65 74 75 |lock] 19| "\.Retu|
|000013b0| 72 6e 73 20 61 20 27 74 | 61 72 2d 68 65 61 64 65 |rns a 't|ar-heade|
|000013c0| 72 27 20 73 74 72 75 63 | 74 75 72 65 20 28 61 20 |r' struc|ture (a |
|000013d0| 6c 69 73 74 20 6f 66 20 | 6e 61 6d 65 2c 20 6d 6f |list of |name, mo|
|000013e0| 64 65 2c 20 75 69 64 2c | 20 67 69 64 2c 20 73 69 |de, uid,| gid, si|
|000013f0| 7a 65 2c 20 0a 77 72 69 | 74 65 2d 64 61 74 65 2c |ze, .wri|te-date,|
|00001400| 20 63 68 65 63 6b 73 75 | 6d 2c 20 6c 69 6e 6b 2d | checksu|m, link-|
|00001410| 74 79 70 65 2c 20 61 6e | 64 20 6c 69 6e 6b 2d 6e |type, an|d link-n|
|00001420| 61 6d 65 29 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ame)."])|.(defali|
|00001430| 61 73 20 27 74 61 72 2d | 70 61 72 73 65 2d 6f 63 |as 'tar-|parse-oc|
|00001440| 74 61 6c 2d 69 6e 74 65 | 67 65 72 20 23 5b 28 73 |tal-inte|ger #[(s|
|00001450| 74 72 69 6e 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 |tring &o|ptional |
|00001460| 73 74 61 72 74 20 65 6e | 64 29 20 22 08 84 06 00 |start en|d) "....|
|00001470| c1 10 5c 6e 84 0d 00 0b | 47 12 0b 08 48 c1 55 83 |..\n....|G...H.U.|
|00001480| 17 00 c1 87 c1 1c 08 5c | 6e 57 83 3c 00 0b 08 48 |.......\|nW.<...H|
|00001490| c5 57 83 2b 00 0c 82 34 | 00 0c c6 5f 0b 08 48 c5 |.W.+...4|..._..H.|
|000014a0| 5a 5c 5c 14 08 54 89 10 | 82 1a 00 0c 29 87 22 20 |Z\\..T..|....)." |
|000014b0| 5b 73 74 61 72 74 20 30 | 20 65 6e 64 20 73 74 72 |[start 0| end str|
|000014c0| 69 6e 67 20 6e 20 34 38 | 20 38 5d 20 34 20 22 5c |ing n 48| 8] 4 "\|
|000014d0| 0a 64 65 6c 65 74 65 73 | 20 61 6c 6c 20 79 6f 75 |.deletes| all you|
|000014e0| 72 20 66 69 6c 65 73 2c | 20 61 6e 64 20 74 68 65 |r files,| and the|
|000014f0| 6e 20 72 65 62 6f 6f 74 | 73 2e 22 5d 29 0a 28 64 |n reboot|s."]).(d|
|00001500| 65 66 61 6c 69 61 73 20 | 28 71 75 6f 74 65 20 74 |efalias |(quote t|
|00001510| 61 72 2d 70 61 72 73 65 | 2d 6f 63 74 61 6c 2d 69 |ar-parse|-octal-i|
|00001520| 6e 74 65 67 65 72 2d 73 | 61 66 65 29 20 23 5b 28 |nteger-s|afe) #[(|
|00001530| 73 74 72 69 6e 67 29 20 | 22 08 47 89 19 c2 55 83 |string) |".G...U.|
|00001540| 0d 00 c3 c4 21 88 09 c2 | 1d 1e 06 0d 0e 06 57 83 |....!...|......W.|
|00001550| 34 00 08 0d 48 c7 57 84 | 29 00 08 0d 48 c8 56 83 |4...H.W.|)...H.V.|
|00001560| 2d 00 c3 c9 21 88 0d 54 | 89 15 82 13 00 2b ca 08 |-...!..T|.....+..|
|00001570| 21 87 22 20 5b 73 74 72 | 69 6e 67 20 4c 20 30 20 |!." [str|ing L 0 |
|00001580| 65 72 72 6f 72 20 22 65 | 6d 70 74 79 20 73 74 72 |error "e|mpty str|
|00001590| 69 6e 67 22 20 69 20 5f | 64 6f 74 69 6d 65 73 5f |ing" i _|dotimes_|
|000015a0| 65 6e 64 5f 20 34 38 20 | 35 35 20 22 27 25 63 27 |end_ 48 |55 "'%c'|
|000015b0| 20 69 73 20 6e 6f 74 20 | 61 6e 20 6f 63 74 61 6c | is not |an octal|
|000015c0| 20 64 69 67 69 74 2e 22 | 20 74 61 72 2d 70 61 72 | digit."| tar-par|
|000015d0| 73 65 2d 6f 63 74 61 6c | 2d 69 6e 74 65 67 65 72 |se-octal|-integer|
|000015e0| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|000015f0| 27 63 68 65 63 6b 73 75 | 6d 2d 74 61 72 2d 68 65 |'checksu|m-tar-he|
|00001600| 61 64 65 72 2d 62 6c 6f | 63 6b 20 23 5b 28 73 74 |ader-blo|ck #[(st|
|00001610| 72 69 6e 67 29 20 22 08 | 89 19 c2 5c 5c 1b c4 1d |ring) ".|...\\...|
|00001620| c4 1e 06 c4 09 57 83 5c | 22 00 0d 0e 07 0e 06 48 |.....W.\|"......H|
|00001630| 5c 5c 15 0e 06 54 89 16 | 06 82 0c 00 0b 89 16 06 |\\...T..|........|
|00001640| c8 57 83 3c 00 0d 0e 07 | 0e 06 48 5c 5c 15 0e 06 |.W.<....|..H\\...|
|00001650| 54 89 16 06 82 26 00 0d | c9 5c 5c 2c 87 22 20 5b |T....&..|.\\,." [|
|00001660| 74 61 72 2d 63 68 6b 2d | 6f 66 66 73 65 74 20 63 |tar-chk-|offset c|
|00001670| 68 6b 2d 66 69 65 6c 64 | 2d 73 74 61 72 74 20 38 |hk-field|-start 8|
|00001680| 20 63 68 6b 2d 66 69 65 | 6c 64 2d 65 6e 64 20 30 | chk-fie|ld-end 0|
|00001690| 20 73 75 6d 20 69 20 73 | 74 72 69 6e 67 20 35 31 | sum i s|tring 51|
|000016a0| 32 20 32 35 36 5d 20 34 | 20 22 5c 0a 43 6f 6d 70 |2 256] 4| "\.Comp|
|000016b0| 75 74 65 73 20 61 6e 64 | 20 72 65 74 75 72 6e 73 |utes and| returns|
|000016c0| 20 61 20 74 61 72 2d 61 | 63 63 65 70 74 61 62 6c | a tar-a|cceptabl|
|000016d0| 65 20 63 68 65 63 6b 73 | 75 6d 20 66 6f 72 20 74 |e checks|um for t|
|000016e0| 68 69 73 20 62 6c 6f 63 | 6b 2e 22 5d 29 0a 28 64 |his bloc|k."]).(d|
|000016f0| 65 66 61 6c 69 61 73 20 | 27 63 68 65 63 6b 2d 74 |efalias |'check-t|
|00001700| 61 72 2d 68 65 61 64 65 | 72 2d 62 6c 6f 63 6b 2d |ar-heade|r-block-|
|00001710| 63 68 65 63 6b 73 75 6d | 20 23 5b 28 68 62 6c 6f |checksum| #[(hblo|
|00001720| 63 6b 20 64 65 73 69 72 | 65 64 2d 63 68 65 63 6b |ck desir|ed-check|
|00001730| 73 75 6d 20 66 69 6c 65 | 2d 6e 61 6d 65 29 20 22 |sum file|-name) "|
|00001740| 08 c1 5c 6e 21 55 3f 85 | 11 00 c3 20 88 c4 c5 0e |..\n!U?.|... ....|
|00001750| 06 5c 22 87 22 20 5b 64 | 65 73 69 72 65 64 2d 63 |.\"." [d|esired-c|
|00001760| 68 65 63 6b 73 75 6d 20 | 63 68 65 63 6b 73 75 6d |hecksum |checksum|
|00001770| 2d 74 61 72 2d 68 65 61 | 64 65 72 2d 62 6c 6f 63 |-tar-hea|der-bloc|
|00001780| 6b 20 68 62 6c 6f 63 6b | 20 62 65 65 70 20 6d 65 |k hblock| beep me|
|00001790| 73 73 61 67 65 20 22 49 | 6e 76 61 6c 69 64 20 63 |ssage "I|nvalid c|
|000017a0| 68 65 63 6b 73 75 6d 20 | 66 6f 72 20 66 69 6c 65 |hecksum |for file|
|000017b0| 20 25 73 21 22 20 66 69 | 6c 65 2d 6e 61 6d 65 5d | %s!" fi|le-name]|
|000017c0| 20 33 20 22 5c 0a 42 65 | 65 70 20 61 6e 64 20 70 | 3 "\.Be|ep and p|
|000017d0| 72 69 6e 74 20 61 20 77 | 61 72 6e 69 6e 67 20 69 |rint a w|arning i|
|000017e0| 66 20 74 68 65 20 63 68 | 65 63 6b 73 75 6d 20 64 |f the ch|ecksum d|
|000017f0| 6f 65 73 6e 27 74 20 6d | 61 74 63 68 2e 22 5d 29 |oesn't m|atch."])|
|00001800| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 63 6f |.(defali|as 'reco|
|00001810| 6d 70 75 74 65 2d 74 61 | 72 2d 68 65 61 64 65 72 |mpute-ta|r-header|
|00001820| 2d 62 6c 6f 63 6b 2d 63 | 68 65 63 6b 73 75 6d 20 |-block-c|hecksum |
|00001830| 23 5b 28 68 62 6c 6f 63 | 6b 29 20 22 c0 09 21 1a |#[(hbloc|k) "..!.|
|00001840| c3 c4 5c 6e 5c 22 89 1d | 47 1e 06 09 c7 c8 49 88 |..\n\"..|G.....I.|
|00001850| 09 c9 ca 49 88 0e 06 c8 | 1e 0b 1e 0c 0e 0b 0e 0c |...I....|........|
|00001860| 57 83 3f 00 09 cd 0e 0b | 5a 0d 0e 06 0e 0b 5a ce |W.?.....|Z.....Z.|
|00001870| 5a 48 49 88 0e 0b 54 89 | 16 0b 82 20 00 2d 09 87 |ZHI...T.|... .-..|
|00001880| 22 20 5b 63 68 65 63 6b | 73 75 6d 2d 74 61 72 2d |" [check|sum-tar-|
|00001890| 68 65 61 64 65 72 2d 62 | 6c 6f 63 6b 20 68 62 6c |header-b|lock hbl|
|000018a0| 6f 63 6b 20 63 68 6b 20 | 66 6f 72 6d 61 74 20 22 |ock chk |format "|
|000018b0| 25 36 6f 22 20 63 68 6b | 2d 73 74 72 69 6e 67 20 |%6o" chk|-string |
|000018c0| 6c 20 31 35 34 20 30 20 | 31 35 35 20 33 32 20 69 |l 154 0 |155 32 i|
|000018d0| 20 5f 64 6f 74 69 6d 65 | 73 5f 65 6e 64 5f 20 31 | _dotime|s_end_ 1|
|000018e0| 35 33 20 31 5d 20 36 20 | 22 5c 0a 4d 6f 64 69 66 |53 1] 6 |"\.Modif|
|000018f0| 69 65 73 20 74 68 65 20 | 67 69 76 65 6e 20 73 74 |ies the |given st|
|00001900| 72 69 6e 67 20 74 6f 20 | 68 61 76 65 20 61 20 76 |ring to |have a v|
|00001910| 61 6c 69 64 20 63 68 65 | 63 6b 73 75 6d 20 66 69 |alid che|cksum fi|
|00001920| 65 6c 64 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |eld."]).|(defalia|
|00001930| 73 20 27 74 61 72 2d 67 | 72 69 6e 64 2d 66 69 6c |s 'tar-g|rind-fil|
|00001940| 65 2d 6d 6f 64 65 20 23 | 5b 28 6d 6f 64 65 20 73 |e-mode #|[(mode s|
|00001950| 74 72 69 6e 67 20 73 74 | 61 72 74 29 20 22 08 09 |tring st|art) "..|
|00001960| c2 0b c4 5c 22 c5 55 83 | 0f 00 c6 82 10 00 c7 49 |...\".U.|.......I|
|00001970| 88 08 09 c8 5c 5c c2 0b | c9 5c 22 c5 55 83 23 00 |....\\..|.\".U.#.|
|00001980| c6 82 24 00 ca 49 88 08 | 09 cb 5c 5c c2 0b cc 5c |..$..I..|..\\...\|
|00001990| 22 c5 55 83 37 00 c6 82 | 38 00 cd 49 88 08 09 ce |".U.7...|8..I....|
|000019a0| 5c 5c c2 0b cf 5c 22 c5 | 55 83 4b 00 c6 82 4c 00 |\\...\".|U.K...L.|
|000019b0| c7 49 88 08 09 d0 5c 5c | c2 0b d1 5c 22 c5 55 83 |.I....\\|...\".U.|
|000019c0| 5f 00 c6 82 60 00 ca 49 | 88 08 09 d2 5c 5c c2 0b |_...`..I|....\\..|
|000019d0| d3 5c 22 c5 55 83 73 00 | c6 82 74 00 cd 49 88 08 |.\".U.s.|..t..I..|
|000019e0| 09 d4 5c 5c c2 0b d0 5c | 22 c5 55 83 87 00 c6 82 |..\\...\|".U.....|
|000019f0| 88 00 c7 49 88 08 09 d5 | 5c 5c c2 0b cb 5c 22 c5 |...I....|\\...\".|
|00001a00| 55 83 9b 00 c6 82 9c 00 | ca 49 88 08 09 d3 5c 5c |U.......|.I....\\|
|00001a10| c2 0b c8 5c 22 c5 55 83 | af 00 c6 82 b0 00 cd 49 |...\".U.|.......I|
|00001a20| 88 c2 0b d6 5c 22 c5 55 | 84 c2 00 08 09 cb 5c 5c |....\".U|......\\|
|00001a30| d7 49 88 c2 0b d8 5c 22 | c5 55 84 d2 00 08 09 d2 |.I....\"|.U......|
|00001a40| 5c 5c d7 49 88 08 87 22 | 20 5b 73 74 72 69 6e 67 |\\.I..."| [string|
|00001a50| 20 73 74 61 72 74 20 6c | 6f 67 61 6e 64 20 6d 6f | start l|ogand mo|
|00001a60| 64 65 20 32 35 36 20 30 | 20 34 35 20 31 31 34 20 |de 256 0| 45 114 |
|00001a70| 31 20 31 32 38 20 31 31 | 39 20 32 20 36 34 20 31 |1 128 11|9 2 64 1|
|00001a80| 32 30 20 33 20 33 32 20 | 34 20 31 36 20 35 20 38 |20 3 32 |4 16 5 8|
|00001a90| 20 36 20 37 20 31 30 32 | 34 20 31 31 35 20 32 30 | 6 7 102|4 115 20|
|00001aa0| 34 38 5d 20 35 20 22 5c | 0a 57 72 69 74 65 20 61 |48] 5 "\|.Write a|
|00001ab0| 20 5c 22 2d 72 77 2d 2d | 72 2d 2d 72 2d 5c 22 20 | \"-rw--|r--r-\" |
|00001ac0| 72 65 70 72 65 73 65 6e | 74 69 6e 67 20 4d 4f 44 |represen|ting MOD|
|00001ad0| 45 20 69 6e 74 6f 20 53 | 54 52 49 4e 47 20 62 65 |E into S|TRING be|
|00001ae0| 67 69 6e 6e 69 6e 67 20 | 61 74 20 53 54 41 52 54 |ginning |at START|
|00001af0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001b00| 73 75 6d 6d 61 72 69 7a | 65 2d 74 61 72 2d 68 65 |summariz|e-tar-he|
|00001b10| 61 64 65 72 2d 62 6c 6f | 63 6b 20 23 5b 28 74 61 |ader-blo|ck #[(ta|
|00001b20| 72 2d 68 62 6c 6f 63 6b | 20 26 6f 70 74 69 6f 6e |r-hblock| &option|
|00001b30| 61 6c 20 6d 6f 64 2d 70 | 29 20 22 08 c1 48 08 c2 |al mod-p|) "..H..|
|00001b40| 48 08 c3 48 08 c4 48 08 | c5 48 08 c6 48 08 c7 48 |H..H..H.|.H..H..H|
|00001b50| 08 c8 48 08 c9 48 08 ca | 48 08 cb 48 1e 0c 1e 0d |..H..H..|H..H....|
|00001b60| 1e 0e 1e 0f 1e 10 1e 11 | 1e 12 1e 13 1e 14 1e 15 |........|........|
|00001b70| 1e 16 c6 1e 17 cb 1e 18 | cb 1e 19 cb 1e 1a c3 1e |........|........|
|00001b80| 1b 0e 17 0e 18 5c 5c 53 | 89 1e 1c 0e 19 0e 1a 5c |.....\\S|.......\|
|00001b90| 5c 5c 5c 89 1e 1d 0e 1b | 5c 5c 1e 1e df 0e 1e 0e |\\\.....|\\......|
|00001ba0| 16 47 0e 0d 83 70 00 0e | 0c 47 c8 5c 5c 82 71 00 |.G...p..|.G.\\.q.|
|00001bb0| c1 5c 5c 5c 5c e0 5c 22 | 1e 21 08 ca 48 1e 5c 22 |.\\\\.\"|.!..H.\"|
|00001bc0| 0e 21 c1 0e 23 83 88 00 | e4 82 89 00 e0 49 88 0e |.!..#...|.....I..|
|00001bd0| 21 c2 0e 5c 22 e5 3d 84 | 9c 00 0e 5c 22 c1 3d 83 |!..\".=.|...\".=.|
|00001be0| a0 00 e6 82 0b 01 0e 5c | 22 c2 3d 83 ab 00 e7 82 |.......\|".=.....|
|00001bf0| 0b 01 0e 5c 22 c3 3d 83 | b6 00 e8 82 0b 01 0e 5c |...\".=.|.......\|
|00001c00| 22 c4 3d 83 c1 00 e9 82 | 0b 01 0e 5c 22 c7 3d 83 |".=.....|...\".=.|
|00001c10| cc 00 ea 82 0b 01 0e 5c | 22 c8 3d 83 d7 00 eb 82 |.......\|".=.....|
|00001c20| 0b 01 0e 5c 22 c9 3d 83 | e2 00 ec 82 0b 01 0e 5c |...\".=.|.......\|
|00001c30| 22 ed 3d 83 ed 00 e4 82 | 0b 01 0e 5c 22 ee 3d 83 |".=.....|...\".=.|
|00001c40| f8 00 ef 82 0b 01 0e 5c | 22 f0 3d 83 03 01 f1 82 |.......\|".=.....|
|00001c50| 0b 01 0e 5c 22 f2 3d 85 | 0b 01 f3 49 88 f4 0e 15 |...\".=.|...I....|
|00001c60| 0e 21 c3 23 88 0e 12 47 | c1 55 83 24 01 f5 0e 14 |.!.#...G|.U.$....|
|00001c70| 21 82 26 01 0e 12 16 14 | 0e 11 47 c1 55 83 37 01 |!.&.....|..G.U.7.|
|00001c80| f5 0e 13 21 82 39 01 0e | 11 16 13 f5 0e 10 21 16 |...!.9..|......!.|
|00001c90| 10 0e 18 53 0e 14 47 5e | c1 1e 36 1e 37 0e 36 0e |...S..G^|..6.7.6.|
|00001ca0| 37 57 83 71 01 0e 21 0e | 1c 0e 36 5a 0e 14 89 47 |7W.q..!.|..6Z...G|
|00001cb0| 0e 36 5a c2 5a 48 49 88 | 0e 36 54 89 16 36 82 4f |.6Z.ZHI.|.6T..6.O|
|00001cc0| 01 2a 0e 21 0e 1c 54 f8 | 49 88 0e 19 53 0e 13 47 |.*.!..T.|I...S..G|
|00001cd0| 5e c1 1e 36 1e 37 0e 36 | 0e 37 57 83 a7 01 0e 21 |^..6.7.6|.7W....!|
|00001ce0| 0e 1c c3 5c 5c 0e 36 5c | 5c 0e 13 0e 36 48 49 88 |...\\.6\|\...6HI.|
|00001cf0| 0e 36 54 89 16 36 82 88 | 01 2a 0e 1a 0e 10 47 5e |.6T..6..|.*....G^|
|00001d00| c1 1e 36 1e 37 0e 36 0e | 37 57 83 d7 01 0e 21 0e |..6.7.6.|7W....!.|
|00001d10| 1d 0e 36 5a 0e 10 89 47 | 0e 36 5a c2 5a 48 49 88 |..6Z...G|.6Z.ZHI.|
|00001d20| 0e 36 54 89 16 36 82 b5 | 01 2a 0e 16 47 c1 1e 36 |.6T..6..|.*..G..6|
|00001d30| 1e 37 0e 36 0e 37 57 83 | ff 01 0e 21 0e 1e 0e 36 |.7.6.7W.|...!...6|
|00001d40| 5c 5c 0e 16 0e 36 48 49 | 88 0e 36 54 89 16 36 82 |\\...6HI|..6T..6.|
|00001d50| e2 01 2a 0e 0d c2 3d 84 | 0e 02 0e 0d c3 3d 83 72 |..*...=.|.....=.r|
|00001d60| 02 c4 c1 1e 36 1e 37 0e | 36 0e 37 57 83 43 02 0e |....6.7.|6.7W.C..|
|00001d70| 21 0e 1e 0e 16 47 0e 36 | c2 5c 5c 5c 5c 5c 5c 0e |!....G.6|.\\\\\\.|
|00001d80| 0d c2 55 83 34 02 f9 82 | 35 02 fa 0e 36 48 49 88 |..U.4...|5...6HI.|
|00001d90| 0e 36 54 89 16 36 82 16 | 02 2a 0e 0c 47 c1 1e 36 |.6T..6..|.*..G..6|
|00001da0| 1e 37 0e 36 0e 37 57 83 | 71 02 0e 21 0e 1e 0e 16 |.7.6.7W.|q..!....|
|00001db0| 47 0e 36 c8 5c 5c 5c 5c | 5c 5c 0e 0c 0e 36 48 49 |G.6.\\\\|\\...6HI|
|00001dc0| 88 0e 36 54 89 16 36 82 | 4e 02 2a 0e 21 2e 15 87 |..6T..6.|N.*.!...|
|00001dd0| 22 20 5b 74 61 72 2d 68 | 62 6c 6f 63 6b 20 30 20 |" [tar-h|block 0 |
|00001de0| 31 20 32 20 33 20 31 30 | 20 31 31 20 34 20 35 20 |1 2 3 10| 11 4 5 |
|00001df0| 36 20 37 20 38 20 6c 69 | 6e 6b 2d 6e 61 6d 65 20 |6 7 8 li|nk-name |
|00001e00| 6c 69 6e 6b 2d 70 20 63 | 6b 20 74 69 6d 65 20 73 |link-p c|k time s|
|00001e10| 69 7a 65 20 67 6e 61 6d | 65 20 75 6e 61 6d 65 20 |ize gnam|e uname |
|00001e20| 67 69 64 20 75 69 64 20 | 6d 6f 64 65 20 6e 61 6d |gid uid |mode nam|
|00001e30| 65 20 6c 65 66 74 20 6e | 61 6d 65 77 20 67 72 6f |e left n|amew gro|
|00001e40| 75 70 77 20 73 69 7a 65 | 77 20 64 61 74 65 77 20 |upw size|w datew |
|00001e50| 73 6c 61 73 68 20 6c 61 | 73 74 64 69 67 69 74 20 |slash la|stdigit |
|00001e60| 6e 61 6d 65 73 74 61 72 | 74 20 6d 61 6b 65 2d 73 |namestar|t make-s|
|00001e70| 74 72 69 6e 67 20 33 32 | 20 73 74 72 69 6e 67 20 |tring 32| string |
|00001e80| 74 79 70 65 20 6d 6f 64 | 2d 70 20 34 32 20 6e 69 |type mod|-p 42 ni|
|00001e90| 6c 20 34 35 20 31 30 38 | 20 31 31 35 20 39 39 20 |l 45 108| 115 99 |
|00001ea0| 39 38 20 31 30 30 20 31 | 31 32 20 32 30 20 32 39 |98 100 1|12 20 29|
|00001eb0| 20 37 37 20 33 35 20 38 | 33 20 33 38 20 38 36 20 | 77 35 8|3 38 86 |
|00001ec0| 74 61 72 2d 67 72 69 6e | 64 2d 66 69 6c 65 2d 6d |tar-grin|d-file-m|
|00001ed0| 6f 64 65 20 69 6e 74 2d | 74 6f 2d 73 74 72 69 6e |ode int-|to-strin|
|00001ee0| 67 20 69 20 5f 64 6f 74 | 69 6d 65 73 5f 65 6e 64 |g i _dot|imes_end|
|00001ef0| 5f 20 34 37 20 22 3d 3d | 3e 22 20 22 2d 2d 3e 22 |_ 47 "==|>" "-->"|
|00001f00| 5d 20 31 33 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |] 13 "\.|Returns |
|00001f10| 61 20 6c 69 6e 65 20 73 | 69 6d 69 6c 61 72 20 74 |a line s|imilar t|
|00001f20| 6f 20 74 68 65 20 6f 75 | 74 70 75 74 20 6f 66 20 |o the ou|tput of |
|00001f30| 27 74 61 72 20 2d 76 74 | 66 27 2e 22 5d 29 0a 28 |'tar -vt|f'."]).(|
|00001f40| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 73 75 |defalias| 'tar-su|
|00001f50| 6d 6d 61 72 69 7a 65 2d | 62 75 66 66 65 72 20 23 |mmarize-|buffer #|
|00001f60| 5b 6e 69 6c 20 22 c0 c1 | 21 88 c2 1b c4 1d c4 c6 |[nil "..|!.......|
|00001f70| 20 c7 5a 5d 1e 08 c4 0e | 08 c9 a5 5d 1e 5c 6e c2 | .Z]....|...].\n.|
|00001f80| 1e 0b 0e 0b cc 3d 84 96 | 00 0d 89 cd 5c 5c 7b 1e |.....=..|....\\{.|
|00001f90| 0e cf 0e 0e 21 16 0b 0d | cd 5c 5c 15 c0 d0 0d 0e |....!...|.\\.....|
|00001fa0| 5c 6e a5 5c 22 88 0e 0b | cc 3d 84 92 00 0e 0b 84 |\n.\"...|.=......|
|00001fb0| 4b 00 d1 d2 21 88 0e 0b | d3 48 d4 3d 83 58 00 0d |K...!...|.H.=.X..|
|00001fc0| cd 5c 5c 15 0e 0b d5 48 | 89 1e 16 d7 57 83 6e 00 |.\\....H|....W.n.|
|00001fd0| d1 d8 0e 0b d7 48 0e 16 | 23 88 0d 0e 0b 42 0b 42 |.....H..|#....B.B|
|00001fe0| 13 0e 0b d3 48 84 91 00 | 0e 16 d7 56 83 91 00 0d |....H...|...V....|
|00001ff0| d9 89 0e 16 53 da 5c 22 | db 5c 22 cd 5c 5c 5c 5c |....S.\"|.\".\\\\|
|00002000| 15 29 29 82 1b 00 dc dd | 21 88 0b 9f 16 1d 2d 8a |.)).....|!.....-.|
|00002010| 65 62 88 c2 1e 1e 0e 1d | 1e 1f 0e 1f 83 c9 00 0e |eb......|........|
|00002020| 1f 40 1e 20 e1 e2 0e 20 | 41 21 21 88 e1 e3 21 88 |.@. ... |A!!...!.|
|00002030| 0e 1f 41 16 1f 29 82 aa | 00 29 dc e4 21 88 60 16 |..A..)..|.)..!.`.|
|00002040| 24 c4 0e 24 7d 88 e5 c2 | 21 88 2a c0 e6 21 87 22 |$..$}...|!.*..!."|
|00002050| 20 5b 6d 65 73 73 61 67 | 65 20 22 70 61 72 73 69 | [messag|e "parsi|
|00002060| 6e 67 20 74 61 72 20 66 | 69 6c 65 2e 2e 2e 22 20 |ng tar f|ile..." |
|00002070| 6e 69 6c 20 72 65 73 75 | 6c 74 20 31 20 70 6f 73 |nil resu|lt 1 pos|
|00002080| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 31 30 32 | buffer-|size 102|
|00002090| 34 20 62 73 20 31 30 30 | 20 62 73 31 30 30 20 74 |4 bs 100| bs100 t|
|000020a0| 6f 6b 65 6e 73 20 65 6d | 70 74 79 2d 74 61 72 2d |okens em|pty-tar-|
|000020b0| 62 6c 6f 63 6b 20 35 31 | 32 20 68 62 6c 6f 63 6b |block 51|2 hblock|
|000020c0| 20 74 6f 6b 65 6e 69 7a | 65 2d 74 61 72 2d 68 65 | tokeniz|e-tar-he|
|000020d0| 61 64 65 72 2d 62 6c 6f | 63 6b 20 22 70 61 72 73 |ader-blo|ck "pars|
|000020e0| 69 6e 67 20 74 61 72 20 | 66 69 6c 65 2e 2e 2e 25 |ing tar |file...%|
|000020f0| 73 25 25 22 20 65 72 72 | 6f 72 20 22 70 72 65 6d |s%%" err|or "prem|
|00002100| 61 74 75 72 65 20 45 4f | 46 20 70 61 72 73 69 6e |ature EO|F parsin|
|00002110| 67 20 74 61 72 20 66 69 | 6c 65 2e 22 20 37 20 32 |g tar fi|le." 7 2|
|00002120| 30 20 34 20 73 69 7a 65 | 20 30 20 22 25 73 20 68 |0 4 size| 0 "%s h|
|00002130| 61 73 20 73 69 7a 65 20 | 25 73 20 2d 20 63 6f 72 |as size |%s - cor|
|00002140| 72 75 70 74 65 64 2e 22 | 20 61 73 68 20 2d 39 20 |rupted."| ash -9 |
|00002150| 39 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |9 make-l|ocal-var|
|00002160| 69 61 62 6c 65 20 74 61 | 72 2d 70 61 72 73 65 2d |iable ta|r-parse-|
|00002170| 69 6e 66 6f 20 62 75 66 | 66 65 72 2d 72 65 61 64 |info buf|fer-read|
|00002180| 2d 6f 6e 6c 79 20 5f 64 | 6f 6c 69 73 74 5f 69 74 |-only _d|olist_it|
|00002190| 65 72 61 74 6f 72 5f 20 | 74 61 72 2d 64 65 73 63 |erator_ |tar-desc|
|000021a0| 20 69 6e 73 65 72 74 2d | 73 74 72 69 6e 67 20 73 | insert-|string s|
|000021b0| 75 6d 6d 61 72 69 7a 65 | 2d 74 61 72 2d 68 65 61 |ummarize|-tar-hea|
|000021c0| 64 65 72 2d 62 6c 6f 63 | 6b 20 22 5c 6e 22 20 74 |der-bloc|k "\n" t|
|000021d0| 61 72 2d 68 65 61 64 65 | 72 2d 6f 66 66 73 65 74 |ar-heade|r-offset|
|000021e0| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|000021f0| 66 69 65 64 2d 70 20 22 | 70 61 72 73 69 6e 67 20 |fied-p "|parsing |
|00002200| 74 61 72 20 66 69 6c 65 | 2e 2e 2e 64 6f 6e 65 2e |tar file|...done.|
|00002210| 22 5d 20 36 20 22 5c 0a | 50 61 72 73 65 20 74 68 |"] 6 "\.|Parse th|
|00002220| 65 20 63 6f 6e 74 65 6e | 74 73 20 6f 66 20 74 68 |e conten|ts of th|
|00002230| 65 20 74 61 72 20 66 69 | 6c 65 20 69 6e 20 74 68 |e tar fi|le in th|
|00002240| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00002250| 2c 20 61 6e 64 20 70 6c | 61 63 65 20 61 0a 64 69 |, and pl|ace a.di|
|00002260| 72 65 64 2d 6c 69 6b 65 | 20 6c 69 73 74 69 6e 67 |red-like| listing|
|00002270| 20 6f 6e 20 74 68 65 20 | 66 72 6f 6e 74 3b 20 74 | on the |front; t|
|00002280| 68 65 6e 20 6e 61 72 72 | 6f 77 20 74 6f 20 69 74 |hen narr|ow to it|
|00002290| 2c 20 73 6f 20 74 68 61 | 74 20 6f 6e 6c 79 20 74 |, so tha|t only t|
|000022a0| 68 61 74 20 6c 69 73 74 | 69 6e 67 0a 69 73 20 76 |hat list|ing.is v|
|000022b0| 69 73 69 62 6c 65 20 28 | 61 6e 64 20 74 68 65 20 |isible (|and the |
|000022c0| 72 65 61 6c 20 64 61 74 | 61 20 6f 66 20 74 68 65 |real dat|a of the|
|000022d0| 20 62 75 66 66 65 72 20 | 69 73 20 68 69 64 64 65 | buffer |is hidde|
|000022e0| 6e 29 2e 22 5d 29 0a 28 | 64 65 66 76 61 72 20 74 |n)."]).(|defvar t|
|000022f0| 61 72 2d 6d 6f 64 65 2d | 6d 61 70 20 6e 69 6c 20 |ar-mode-|map nil |
|00002300| 22 5c 0a 2a 4c 6f 63 61 | 6c 20 6b 65 79 6d 61 70 |"\.*Loca|l keymap|
|00002310| 20 66 6f 72 20 74 61 72 | 2d 6d 6f 64 65 20 6c 69 | for tar|-mode li|
|00002320| 73 74 69 6e 67 73 2e 22 | 29 0a 28 62 79 74 65 2d |stings."|).(byte-|
|00002330| 63 6f 64 65 20 22 08 84 | 95 00 c1 20 10 c2 08 21 |code "..|... ...!|
|00002340| 88 c3 08 c4 c5 23 88 c3 | 08 c6 c7 23 88 c3 08 c8 |.....#..|...#....|
|00002350| c9 23 88 c3 08 ca c9 23 | 88 c3 08 cb cc 23 88 c3 |.#.....#|.....#..|
|00002360| 08 cd cc 23 88 c3 08 ce | cf 23 88 c3 08 d0 d1 23 |...#....|.#.....#|
|00002370| 88 c3 08 d2 c5 23 88 c3 | 08 d3 c5 23 88 c3 08 d4 |.....#..|...#....|
|00002380| d5 23 88 c3 08 d6 c7 23 | 88 c3 08 d7 d8 23 88 c3 |.#.....#|.....#..|
|00002390| 08 d9 d8 23 88 c3 08 da | db 23 88 c3 08 dc dd 23 |...#....|.#.....#|
|000023a0| 88 c3 08 de df 23 88 c3 | 08 e0 e1 23 88 c3 08 e2 |.....#..|...#....|
|000023b0| e3 23 88 c3 08 e4 d5 23 | 88 c3 08 e5 e6 23 88 c3 |.#.....#|.....#..|
|000023c0| 08 e7 e8 23 88 c3 08 e9 | ea 23 88 eb ec ed ee 23 |...#....|.#.....#|
|000023d0| 88 eb ef ed ee 23 87 22 | 20 5b 74 61 72 2d 6d 6f |.....#."| [tar-mo|
|000023e0| 64 65 2d 6d 61 70 20 6d | 61 6b 65 2d 6b 65 79 6d |de-map m|ake-keym|
|000023f0| 61 70 20 73 75 70 70 72 | 65 73 73 2d 6b 65 79 6d |ap suppr|ess-keym|
|00002400| 61 70 20 64 65 66 69 6e | 65 2d 6b 65 79 20 22 20 |ap defin|e-key " |
|00002410| 22 20 74 61 72 2d 6e 65 | 78 74 2d 6c 69 6e 65 20 |" tar-ne|xt-line |
|00002420| 22 63 22 20 74 61 72 2d | 63 6f 70 79 20 22 64 22 |"c" tar-|copy "d"|
|00002430| 20 74 61 72 2d 66 6c 61 | 67 2d 64 65 6c 65 74 65 | tar-fla|g-delete|
|00002440| 64 20 22 04 22 20 22 65 | 22 20 74 61 72 2d 65 78 |d "." "e|" tar-ex|
|00002450| 74 72 61 63 74 20 22 66 | 22 20 22 67 22 20 72 65 |tract "f|" "g" re|
|00002460| 76 65 72 74 2d 62 75 66 | 66 65 72 20 22 68 22 20 |vert-buf|fer "h" |
|00002470| 64 65 73 63 72 69 62 65 | 2d 6d 6f 64 65 20 22 6e |describe|-mode "n|
|00002480| 22 20 22 0e 22 20 22 6f | 22 20 74 61 72 2d 65 78 |" "." "o|" tar-ex|
|00002490| 74 72 61 63 74 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |tract-ot|her-wind|
|000024a0| 6f 77 20 22 03 22 20 22 | 70 22 20 74 61 72 2d 70 |ow "." "|p" tar-p|
|000024b0| 72 65 76 69 6f 75 73 2d | 6c 69 6e 65 20 22 10 22 |revious-|line "."|
|000024c0| 20 22 72 22 20 74 61 72 | 2d 72 65 6e 61 6d 65 2d | "r" tar|-rename-|
|000024d0| 65 6e 74 72 79 20 22 75 | 22 20 74 61 72 2d 75 6e |entry "u|" tar-un|
|000024e0| 66 6c 61 67 20 22 76 22 | 20 74 61 72 2d 76 69 65 |flag "v"| tar-vie|
|000024f0| 77 20 22 78 22 20 74 61 | 72 2d 65 78 70 75 6e 67 |w "x" ta|r-expung|
|00002500| 65 20 22 7f 22 20 74 61 | 72 2d 75 6e 66 6c 61 67 |e "." ta|r-unflag|
|00002510| 2d 62 61 63 6b 77 61 72 | 64 73 20 22 45 22 20 22 |-backwar|ds "E" "|
|00002520| 4d 22 20 74 61 72 2d 63 | 68 6d 6f 64 2d 65 6e 74 |M" tar-c|hmod-ent|
|00002530| 72 79 20 22 47 22 20 74 | 61 72 2d 63 68 67 72 70 |ry "G" t|ar-chgrp|
|00002540| 2d 65 6e 74 72 79 20 22 | 4f 22 20 74 61 72 2d 63 |-entry "|O" tar-c|
|00002550| 68 6f 77 6e 2d 65 6e 74 | 72 79 20 70 75 74 20 74 |hown-ent|ry put t|
|00002560| 61 72 2d 6d 6f 64 65 20 | 6d 6f 64 65 2d 63 6c 61 |ar-mode |mode-cla|
|00002570| 73 73 20 73 70 65 63 69 | 61 6c 20 74 61 72 2d 73 |ss speci|al tar-s|
|00002580| 75 62 66 69 6c 65 2d 6d | 6f 64 65 5d 20 34 29 0a |ubfile-m|ode] 4).|
|00002590| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 6d |(defalia|s 'tar-m|
|000025a0| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 88 c0 |ode #[ni|l "..!..|
|000025b0| c2 21 88 c0 c3 21 88 c4 | 13 c0 c5 21 88 c6 15 c7 |.!...!..|...!....|
|000025c0| 16 08 c9 16 5c 6e cb 0e | 0c 21 88 cd ce 21 88 7e |....\n..|.!...!.~|
|000025d0| 88 cf c1 21 83 36 00 09 | 83 36 00 d0 09 7d 88 82 |...!.6..|.6...}..|
|000025e0| 39 00 d1 20 88 d2 d3 21 | 87 22 20 5b 6d 61 6b 65 |9.. ...!|." [make|
|000025f0| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00002600| 74 61 72 2d 68 65 61 64 | 65 72 2d 6f 66 66 73 65 |tar-head|er-offse|
|00002610| 74 20 74 61 72 2d 70 61 | 72 73 65 2d 69 6e 66 6f |t tar-pa|rse-info|
|00002620| 20 72 65 71 75 69 72 65 | 2d 66 69 6e 61 6c 2d 6e | require|-final-n|
|00002630| 65 77 6c 69 6e 65 20 6e | 69 6c 20 72 65 76 65 72 |ewline n|il rever|
|00002640| 74 2d 62 75 66 66 65 72 | 2d 66 75 6e 63 74 69 6f |t-buffer|-functio|
|00002650| 6e 20 74 61 72 2d 6d 6f | 64 65 2d 72 65 76 65 72 |n tar-mo|de-rever|
|00002660| 74 20 74 61 72 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |t tar-mo|de major|
|00002670| 2d 6d 6f 64 65 20 22 54 | 61 72 22 20 6d 6f 64 65 |-mode "T|ar" mode|
|00002680| 2d 6e 61 6d 65 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |-name us|e-local-|
|00002690| 6d 61 70 20 74 61 72 2d | 6d 6f 64 65 2d 6d 61 70 |map tar-|mode-map|
|000026a0| 20 61 75 74 6f 2d 73 61 | 76 65 2d 6d 6f 64 65 20 | auto-sa|ve-mode |
|000026b0| 30 20 62 6f 75 6e 64 70 | 20 31 20 74 61 72 2d 73 |0 boundp| 1 tar-s|
|000026c0| 75 6d 6d 61 72 69 7a 65 | 2d 62 75 66 66 65 72 20 |ummarize|-buffer |
|000026d0| 72 75 6e 2d 68 6f 6f 6b | 73 20 74 61 72 2d 6d 6f |run-hook|s tar-mo|
|000026e0| 64 65 2d 68 6f 6f 6b 5d | 20 32 20 22 5c 0a 4d 61 |de-hook]| 2 "\.Ma|
|000026f0| 6a 6f 72 20 6d 6f 64 65 | 20 66 6f 72 20 76 69 65 |jor mode| for vie|
|00002700| 77 69 6e 67 20 61 20 74 | 61 72 20 66 69 6c 65 20 |wing a t|ar file |
|00002710| 61 73 20 61 20 64 69 72 | 65 64 2d 6c 69 6b 65 20 |as a dir|ed-like |
|00002720| 6c 69 73 74 69 6e 67 20 | 6f 66 20 69 74 73 20 63 |listing |of its c|
|00002730| 6f 6e 74 65 6e 74 73 2e | 0a 59 6f 75 20 63 61 6e |ontents.|.You can|
|00002740| 20 6d 6f 76 65 20 61 72 | 6f 75 6e 64 20 75 73 69 | move ar|ound usi|
|00002750| 6e 67 20 74 68 65 20 75 | 73 75 61 6c 20 63 75 72 |ng the u|sual cur|
|00002760| 73 6f 72 20 6d 6f 74 69 | 6f 6e 20 63 6f 6d 6d 61 |sor moti|on comma|
|00002770| 6e 64 73 2e 20 0a 4c 65 | 74 74 65 72 73 20 6e 6f |nds. .Le|tters no|
|00002780| 20 6c 6f 6e 67 65 72 20 | 69 6e 73 65 72 74 20 74 | longer |insert t|
|00002790| 68 65 6d 73 65 6c 76 65 | 73 2e 0a 54 79 70 65 20 |hemselve|s..Type |
|000027a0| 27 65 27 20 74 6f 20 70 | 75 6c 6c 20 61 20 66 69 |'e' to p|ull a fi|
|000027b0| 6c 65 20 6f 75 74 20 6f | 66 20 74 68 65 20 74 61 |le out o|f the ta|
|000027c0| 72 20 66 69 6c 65 20 61 | 6e 64 20 69 6e 74 6f 20 |r file a|nd into |
|000027d0| 69 74 73 20 6f 77 6e 20 | 62 75 66 66 65 72 2e 0a |its own |buffer..|
|000027e0| 54 79 70 65 20 27 63 27 | 20 74 6f 20 63 6f 70 79 |Type 'c'| to copy|
|000027f0| 20 61 6e 20 65 6e 74 72 | 79 20 66 72 6f 6d 20 74 | an entr|y from t|
|00002800| 68 65 20 74 61 72 20 66 | 69 6c 65 20 69 6e 74 6f |he tar f|ile into|
|00002810| 20 61 6e 6f 74 68 65 72 | 20 66 69 6c 65 20 6f 6e | another| file on|
|00002820| 20 64 69 73 6b 2e 0a 0a | 49 66 20 79 6f 75 20 65 | disk...|If you e|
|00002830| 64 69 74 20 61 20 73 75 | 62 2d 66 69 6c 65 20 6f |dit a su|b-file o|
|00002840| 66 20 74 68 69 73 20 61 | 72 63 68 69 76 65 20 28 |f this a|rchive (|
|00002850| 61 73 20 77 69 74 68 20 | 74 68 65 20 27 65 27 20 |as with |the 'e' |
|00002860| 63 6f 6d 6d 61 6e 64 29 | 20 61 6e 64 20 0a 73 61 |command)| and .sa|
|00002870| 76 65 20 69 74 20 77 69 | 74 68 20 43 6f 6e 74 72 |ve it wi|th Contr|
|00002880| 6f 6c 2d 58 20 43 6f 6e | 74 72 6f 6c 2d 53 2c 20 |ol-X Con|trol-S, |
|00002890| 74 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |the cont|ents of |
|000028a0| 74 68 61 74 20 62 75 66 | 66 65 72 20 77 69 6c 6c |that buf|fer will|
|000028b0| 20 62 65 20 0a 73 61 76 | 65 64 20 62 61 63 6b 20 | be .sav|ed back |
|000028c0| 69 6e 74 6f 20 74 68 65 | 20 74 61 72 2d 66 69 6c |into the| tar-fil|
|000028d0| 65 20 62 75 66 66 65 72 | 3b 20 69 6e 20 74 68 69 |e buffer|; in thi|
|000028e0| 73 20 77 61 79 20 79 6f | 75 20 63 61 6e 20 65 64 |s way yo|u can ed|
|000028f0| 69 74 20 61 20 66 69 6c | 65 20 0a 69 6e 73 69 64 |it a fil|e .insid|
|00002900| 65 20 6f 66 20 61 20 74 | 61 72 20 61 72 63 68 69 |e of a t|ar archi|
|00002910| 76 65 20 77 69 74 68 6f | 75 74 20 65 78 74 72 61 |ve witho|ut extra|
|00002920| 63 74 69 6e 67 20 69 74 | 20 61 6e 64 20 72 65 2d |cting it| and re-|
|00002930| 61 72 63 68 69 76 69 6e | 67 20 69 74 2e 0a 0a 53 |archivin|g it...S|
|00002940| 65 65 20 61 6c 73 6f 3a | 20 76 61 72 69 61 62 6c |ee also:| variabl|
|00002950| 65 73 20 74 61 72 2d 75 | 70 64 61 74 65 2d 64 61 |es tar-u|pdate-da|
|00002960| 74 65 73 74 61 6d 70 20 | 61 6e 64 20 74 61 72 2d |testamp |and tar-|
|00002970| 61 6e 61 6c 2d 62 6c 6f | 63 6b 73 69 7a 65 2e 0a |anal-blo|cksize..|
|00002980| 5c 5c 7b 74 61 72 2d 6d | 6f 64 65 2d 6d 61 70 7d |\\{tar-m|ode-map}|
|00002990| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|000029a0| 61 72 2d 73 75 62 66 69 | 6c 65 2d 6d 6f 64 65 20 |ar-subfi|le-mode |
|000029b0| 23 5b 28 70 29 20 22 c0 | c1 21 83 5c 6e 00 09 84 |#[(p) ".|.!.\n...|
|000029c0| 0e 00 c2 c3 21 88 c4 0d | 9e 84 1a 00 c6 0d c7 43 |....!...|.......C|
|000029d0| 5c 22 15 c8 c4 21 88 0e | 09 84 28 00 0c 3f 82 2e |\"...!..|..(..?..|
|000029e0| 00 ca 0e 09 21 cb 56 89 | 14 83 53 00 cc 20 89 1e |....!.V.|..S.. ..|
|000029f0| 0d 83 42 00 ce cf 0e 0d | 21 21 88 29 d0 d1 d2 5c |..B.....|!!.)...\|
|00002a00| 22 88 d3 d4 21 88 d4 16 | 15 d6 d7 21 87 d0 d1 d8 |"...!...|...!....|
|00002a10| 5c 22 87 22 20 5b 62 6f | 75 6e 64 70 20 74 61 72 |\"." [bo|undp tar|
|00002a20| 2d 73 75 70 65 72 69 6f | 72 2d 62 75 66 66 65 72 |-superio|r-buffer|
|00002a30| 20 65 72 72 6f 72 20 22 | 54 68 69 73 20 62 75 66 | error "|This buf|
|00002a40| 66 65 72 20 69 73 20 6e | 6f 74 20 61 6e 20 65 6c |fer is n|ot an el|
|00002a50| 65 6d 65 6e 74 20 6f 66 | 20 61 20 74 61 72 20 66 |ement of| a tar f|
|00002a60| 69 6c 65 2e 22 20 74 61 | 72 2d 73 75 62 66 69 6c |ile." ta|r-subfil|
|00002a70| 65 2d 6d 6f 64 65 20 6d | 69 6e 6f 72 2d 6d 6f 64 |e-mode m|inor-mod|
|00002a80| 65 2d 61 6c 69 73 74 20 | 61 70 70 65 6e 64 20 28 |e-alist |append (|
|00002a90| 74 61 72 2d 73 75 62 66 | 69 6c 65 2d 6d 6f 64 65 |tar-subf|ile-mode|
|00002aa0| 20 22 20 54 61 72 46 69 | 6c 65 22 29 20 6d 61 6b | " TarFi|le") mak|
|00002ab0| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|00002ac0| 20 70 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 | p prefi|x-numeri|
|00002ad0| 63 2d 76 61 6c 75 65 20 | 30 20 63 75 72 72 65 6e |c-value |0 curren|
|00002ae0| 74 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 6d 20 75 73 |t-local-|map m us|
|00002af0| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 63 6f 70 79 |e-local-|map copy|
|00002b00| 2d 6b 65 79 6d 61 70 20 | 6c 6f 63 61 6c 2d 73 65 |-keymap |local-se|
|00002b10| 74 2d 6b 65 79 20 22 18 | 13 22 20 74 61 72 2d 73 |t-key ".|." tar-s|
|00002b20| 75 62 66 69 6c 65 2d 73 | 61 76 65 2d 62 75 66 66 |ubfile-s|ave-buff|
|00002b30| 65 72 20 61 75 74 6f 2d | 73 61 76 65 2d 6d 6f 64 |er auto-|save-mod|
|00002b40| 65 20 6e 69 6c 20 62 75 | 66 66 65 72 2d 61 75 74 |e nil bu|ffer-aut|
|00002b50| 6f 2d 73 61 76 65 2d 66 | 69 6c 65 2d 6e 61 6d 65 |o-save-f|ile-name|
|00002b60| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 74 61 72 2d 73 | run-hoo|ks tar-s|
|00002b70| 75 62 66 69 6c 65 2d 6d | 6f 64 65 2d 68 6f 6f 6b |ubfile-m|ode-hook|
|00002b80| 20 73 61 76 65 2d 62 75 | 66 66 65 72 5d 20 34 20 | save-bu|ffer] 4 |
|00002b90| 22 5c 0a 4d 69 6e 6f 72 | 20 6d 6f 64 65 20 66 6f |"\.Minor| mode fo|
|00002ba0| 72 20 65 64 69 74 69 6e | 67 20 61 6e 20 65 6c 65 |r editin|g an ele|
|00002bb0| 6d 65 6e 74 20 6f 66 20 | 61 20 74 61 72 2d 66 69 |ment of |a tar-fi|
|00002bc0| 6c 65 2e 0a 54 68 69 73 | 20 6d 6f 64 65 20 72 65 |le..This| mode re|
|00002bd0| 64 65 66 69 6e 65 73 20 | 5e 58 5e 53 20 74 6f 20 |defines |^X^S to |
|00002be0| 73 61 76 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |save the| current|
|00002bf0| 20 62 75 66 66 65 72 20 | 62 61 63 6b 20 69 6e 74 | buffer |back int|
|00002c00| 6f 20 69 74 73 20 0a 61 | 73 73 6f 63 69 61 74 65 |o its .a|ssociate|
|00002c10| 64 20 74 61 72 2d 66 69 | 6c 65 20 62 75 66 66 65 |d tar-fi|le buffe|
|00002c20| 72 2e 20 20 59 6f 75 20 | 6d 75 73 74 20 73 61 76 |r.  You |must sav|
|00002c30| 65 20 74 68 61 74 20 62 | 75 66 66 65 72 20 74 6f |e that b|uffer to|
|00002c40| 20 61 63 74 75 61 6c 6c | 79 0a 73 61 76 65 20 79 | actuall|y.save y|
|00002c50| 6f 75 72 20 63 68 61 6e | 67 65 73 20 74 6f 20 64 |our chan|ges to d|
|00002c60| 69 73 6b 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |isk." "P|"]).(def|
|00002c70| 61 6c 69 61 73 20 27 74 | 61 72 2d 6d 6f 64 65 2d |alias 't|ar-mode-|
|00002c80| 72 65 76 65 72 74 20 23 | 5b 28 26 6f 70 74 69 6f |revert #|[(&optio|
|00002c90| 6e 61 6c 20 6e 6f 2d 61 | 75 74 6f 73 61 76 65 20 |nal no-a|utosave |
|00002ca0| 6e 6f 2d 63 6f 6e 66 69 | 72 6d 29 20 22 c0 11 c0 |no-confi|rm) "...|
|00002cb0| 1a c3 c4 0d 5c 22 88 7e | 88 29 c6 20 87 22 20 5b |....\".~|.). ." [|
|00002cc0| 6e 69 6c 20 74 61 72 2d | 68 65 61 64 65 72 2d 6f |nil tar-|header-o|
|00002cd0| 66 66 73 65 74 20 72 65 | 76 65 72 74 2d 62 75 66 |ffset re|vert-buf|
|00002ce0| 66 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 72 65 76 |fer-func|tion rev|
|00002cf0| 65 72 74 2d 62 75 66 66 | 65 72 20 74 20 6e 6f 2d |ert-buff|er t no-|
|00002d00| 63 6f 6e 66 69 72 6d 20 | 74 61 72 2d 6d 6f 64 65 |confirm |tar-mode|
|00002d10| 5d 20 33 20 22 5c 0a 52 | 65 76 65 72 74 20 74 68 |] 3 "\.R|evert th|
|00002d20| 69 73 20 62 75 66 66 65 | 72 20 61 6e 64 20 74 75 |is buffe|r and tu|
|00002d30| 72 6e 20 6f 6e 20 74 61 | 72 20 6d 6f 64 65 20 61 |rn on ta|r mode a|
|00002d40| 67 61 69 6e 2c 20 74 6f | 20 72 65 2d 63 6f 6d 70 |gain, to| re-comp|
|00002d50| 75 74 65 20 74 68 65 0a | 64 69 72 65 63 74 6f 72 |ute the.|director|
|00002d60| 79 20 6c 69 73 74 69 6e | 67 2e 22 5d 29 0a 28 62 |y listin|g."]).(b|
|00002d70| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00002d80| c0 c3 c4 5c 22 87 22 20 | 5b 64 65 66 61 6c 69 61 |...\"." |[defalia|
|00002d90| 73 20 74 61 72 2d 6e 65 | 78 74 2d 6c 69 6e 65 20 |s tar-ne|xt-line |
|00002da0| 23 5b 28 70 29 20 22 08 | 79 88 6d 3f 85 5c 6e 00 |#[(p) ".|y.m?.\n.|
|00002db0| c1 75 87 22 20 5b 70 20 | 33 36 5d 20 31 20 6e 69 |.u." [p |36] 1 ni|
|00002dc0| 6c 20 22 70 22 5d 20 74 | 61 72 2d 70 72 65 76 69 |l "p"] t|ar-previ|
|00002dd0| 6f 75 73 2d 6c 69 6e 65 | 20 23 5b 28 70 29 20 22 |ous-line| #[(p) "|
|00002de0| c0 09 5b 21 87 22 20 5b | 74 61 72 2d 6e 65 78 74 |..[!." [|tar-next|
|00002df0| 2d 6c 69 6e 65 20 70 5d | 20 32 20 6e 69 6c 20 22 |-line p]| 2 nil "|
|00002e00| 70 22 5d 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 |p"]] 3).|(defalia|
|00002e10| 73 20 27 74 61 72 2d 63 | 75 72 72 65 6e 74 2d 64 |s 'tar-c|urrent-d|
|00002e20| 65 73 63 72 69 70 74 6f | 72 20 23 5b 28 26 6f 70 |escripto|r #[(&op|
|00002e30| 74 69 6f 6e 61 6c 20 6e | 6f 65 72 72 6f 72 29 20 |tional n|oerror) |
|00002e40| 22 c0 65 8a c1 79 88 60 | 29 5c 22 5c 6e 38 86 16 |".e..y.`|)\"\n8..|
|00002e50| 00 0b 3f 85 16 00 c4 c5 | 21 87 22 20 5b 63 6f 75 |..?.....|!." [cou|
|00002e60| 6e 74 2d 6c 69 6e 65 73 | 20 30 20 74 61 72 2d 70 |nt-lines| 0 tar-p|
|00002e70| 61 72 73 65 2d 69 6e 66 | 6f 20 6e 6f 65 72 72 6f |arse-inf|o noerro|
|00002e80| 72 20 65 72 72 6f 72 20 | 22 54 68 69 73 20 6c 69 |r error |"This li|
|00002e90| 6e 65 20 64 6f 65 73 20 | 6e 6f 74 20 64 65 73 63 |ne does |not desc|
|00002ea0| 72 69 62 65 20 61 20 74 | 61 72 2d 66 69 6c 65 20 |ribe a t|ar-file |
|00002eb0| 65 6e 74 72 79 2e 22 5d | 20 33 20 22 5c 0a 52 65 |entry."]| 3 "\.Re|
|00002ec0| 74 75 72 6e 73 20 74 68 | 65 20 74 61 72 2d 64 65 |turns th|e tar-de|
|00002ed0| 73 63 72 69 70 74 6f 72 | 20 6f 66 20 74 68 65 20 |scriptor| of the |
|00002ee0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2c 20 6f 72 |current |line, or|
|00002ef0| 20 73 69 67 6e 61 6c 73 | 20 61 6e 20 65 72 72 6f | signals| an erro|
|00002f00| 72 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |r."]).(d|efalias |
|00002f10| 27 74 61 72 2d 65 78 74 | 72 61 63 74 20 23 5b 28 |'tar-ext|ract #[(|
|00002f20| 26 6f 70 74 69 6f 6e 61 | 6c 20 6f 74 68 65 72 2d |&optiona|l other-|
|00002f30| 77 69 6e 64 6f 77 2d 70 | 29 20 22 08 c1 3d 1a c3 |window-p|) "..=..|
|00002f40| 20 89 1c 41 89 1d c6 48 | 1e 07 0d c8 48 1e 09 0d | ..A...H|....H...|
|00002f50| ca 48 1e 0b 0c 40 0e 0c | cd 5c 5c 5c 5c 89 1e 0e |.H...@..|.\\\\...|
|00002f60| 0e 09 5c 5c 1e 0f 0e 0b | 83 69 00 d0 d1 0e 0b d2 |..\\....|.i......|
|00002f70| 3d 83 3a 00 d3 82 67 00 | 0e 0b d4 3d 83 45 00 d5 |=.:...g.|...=.E..|
|00002f80| 82 67 00 0e 0b d6 3d 83 | 50 00 d7 82 67 00 0e 0b |.g....=.|P...g...|
|00002f90| d8 3d 83 5b 00 d9 82 67 | 00 0e 0b da 3d 83 66 00 |.=.[...g|....=.f.|
|00002fa0| db 82 67 00 dc 5c 22 88 | 0e 09 c6 55 83 74 00 d0 |..g..\".|...U.t..|
|00002fb0| dd 21 88 70 1e 1e df 0e | 07 21 e0 0e 07 e1 df e2 |.!.p....|.!......|
|00002fc0| 20 21 e3 b0 06 1e 24 0e | 25 86 8e 00 5c 6e 1e 26 | !....$.|%...\n.&|
|00002fd0| e7 0e 24 21 1e 28 e9 1e | 2a 0e 28 84 ee 00 eb 0e |..$!.(..|*.(.....|
|00002fe0| 24 21 16 28 ec 16 2a ed | 8e 7e 88 8a 0e 28 71 88 |$!.(..*.|.~...(q.|
|00002ff0| ee 0e 1e 0e 0e 0e 0f 23 | 88 c6 62 88 ef 0e 07 21 |.......#|..b....!|
|00003000| 88 f0 20 88 ef e9 21 88 | f1 0e 24 21 88 f2 f3 21 |.. ...!.|..$!...!|
|00003010| 88 f2 f4 21 88 0e 1e 16 | 33 0c 16 34 f5 f6 21 88 |...!....|3..4..!.|
|00003020| 0e 26 16 25 f7 e9 21 88 | 29 0e 1e 71 88 29 5c 6e |.&.%..!.|)..q.)\n|
|00003030| 83 03 01 f8 0e 28 21 88 | 0e 2a 85 12 01 f9 0e 28 |.....(!.|.*.....(|
|00003040| 21 82 12 01 08 83 0e 01 | fa 0e 28 21 82 12 01 fb |!.......|..(!....|
|00003050| 0e 28 21 2e 0d 87 22 20 | 5b 6f 74 68 65 72 2d 77 |.(!..." |[other-w|
|00003060| 69 6e 64 6f 77 2d 70 20 | 76 69 65 77 20 76 69 65 |indow-p |view vie|
|00003070| 77 2d 70 20 74 61 72 2d | 63 75 72 72 65 6e 74 2d |w-p tar-|current-|
|00003080| 64 65 73 63 72 69 70 74 | 6f 72 20 64 65 73 63 72 |descript|or descr|
|00003090| 69 70 74 6f 72 20 74 6f | 6b 65 6e 73 20 30 20 6e |iptor to|kens 0 n|
|000030a0| 61 6d 65 20 34 20 73 69 | 7a 65 20 37 20 6c 69 6e |ame 4 si|ze 7 lin|
|000030b0| 6b 2d 70 20 74 61 72 2d | 68 65 61 64 65 72 2d 6f |k-p tar-|header-o|
|000030c0| 66 66 73 65 74 20 2d 31 | 20 73 74 61 72 74 20 65 |ffset -1| start e|
|000030d0| 6e 64 20 65 72 72 6f 72 | 20 22 54 68 69 73 20 69 |nd error| "This i|
|000030e0| 73 20 61 20 25 73 2c 20 | 6e 6f 74 20 61 20 72 65 |s a %s, |not a re|
|000030f0| 61 6c 20 66 69 6c 65 2e | 22 20 35 20 22 64 69 72 |al file.|" 5 "dir|
|00003100| 65 63 74 6f 72 79 22 20 | 32 30 20 22 74 61 72 20 |ectory" |20 "tar |
|00003110| 64 69 72 65 63 74 6f 72 | 79 20 68 65 61 64 65 72 |director|y header|
|00003120| 22 20 32 39 20 22 6d 75 | 6c 74 69 76 6f 6c 75 6d |" 29 "mu|ltivolum|
|00003130| 65 2d 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 22 20 |e-contin|uation" |
|00003140| 33 35 20 22 73 70 61 72 | 73 65 20 65 6e 74 72 79 |35 "spar|se entry|
|00003150| 22 20 33 38 20 22 76 6f | 6c 75 6d 65 20 68 65 61 |" 38 "vo|lume hea|
|00003160| 64 65 72 22 20 22 6c 69 | 6e 6b 22 20 22 54 68 69 |der" "li|nk" "Thi|
|00003170| 73 20 69 73 20 61 20 7a | 65 72 6f 2d 6c 65 6e 67 |s is a z|ero-leng|
|00003180| 74 68 20 66 69 6c 65 2e | 22 20 74 61 72 2d 62 75 |th file.|" tar-bu|
|00003190| 66 66 65 72 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |ffer fil|e-name-n|
|000031a0| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 22 20 28 22 |ondirect|ory " ("|
|000031b0| 20 22 20 69 6e 20 22 20 | 62 75 66 66 65 72 2d 66 | " in " |buffer-f|
|000031c0| 69 6c 65 2d 6e 61 6d 65 | 20 22 29 22 20 62 75 66 |ile-name| ")" buf|
|000031d0| 6e 61 6d 65 20 62 75 66 | 66 65 72 2d 72 65 61 64 |name buf|fer-read|
|000031e0| 2d 6f 6e 6c 79 20 72 65 | 61 64 2d 6f 6e 6c 79 2d |-only re|ad-only-|
|000031f0| 70 20 67 65 74 2d 62 75 | 66 66 65 72 20 62 75 66 |p get-bu|ffer buf|
|00003200| 66 65 72 20 6e 69 6c 20 | 6a 75 73 74 2d 63 72 65 |fer nil |just-cre|
|00003210| 61 74 65 64 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ated get|-buffer-|
|00003220| 63 72 65 61 74 65 20 74 | 20 28 28 6e 61 72 72 6f |create t| ((narro|
|00003230| 77 2d 74 6f 2d 72 65 67 | 69 6f 6e 20 31 20 74 61 |w-to-reg|ion 1 ta|
|00003240| 72 2d 68 65 61 64 65 72 | 2d 6f 66 66 73 65 74 29 |r-header|-offset)|
|00003250| 29 20 69 6e 73 65 72 74 | 2d 62 75 66 66 65 72 2d |) insert|-buffer-|
|00003260| 73 75 62 73 74 72 69 6e | 67 20 73 65 74 2d 76 69 |substrin|g set-vi|
|00003270| 73 69 74 65 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |sited-fi|le-name |
|00003280| 6e 6f 72 6d 61 6c 2d 6d | 6f 64 65 20 72 65 6e 61 |normal-m|ode rena|
|00003290| 6d 65 2d 62 75 66 66 65 | 72 20 6d 61 6b 65 2d 6c |me-buffe|r make-l|
|000032a0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 74 61 |ocal-var|iable ta|
|000032b0| 72 2d 73 75 70 65 72 69 | 6f 72 2d 62 75 66 66 65 |r-superi|or-buffe|
|000032c0| 72 20 74 61 72 2d 73 75 | 70 65 72 69 6f 72 2d 64 |r tar-su|perior-d|
|000032d0| 65 73 63 72 69 70 74 6f | 72 20 74 61 72 2d 73 75 |escripto|r tar-su|
|000032e0| 62 66 69 6c 65 2d 6d 6f | 64 65 20 31 20 73 65 74 |bfile-mo|de 1 set|
|000032f0| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|00003300| 2d 70 20 76 69 65 77 2d | 62 75 66 66 65 72 20 6b |-p view-|buffer k|
|00003310| 69 6c 6c 2d 62 75 66 66 | 65 72 20 73 77 69 74 63 |ill-buff|er switc|
|00003320| 68 2d 74 6f 2d 62 75 66 | 66 65 72 2d 6f 74 68 65 |h-to-buf|fer-othe|
|00003330| 72 2d 77 69 6e 64 6f 77 | 20 73 77 69 74 63 68 2d |r-window| switch-|
|00003340| 74 6f 2d 62 75 66 66 65 | 72 5d 20 37 20 22 5c 0a |to-buffe|r] 7 "\.|
|00003350| 2a 49 6e 20 74 61 72 2d | 6d 6f 64 65 2c 20 65 78 |*In tar-|mode, ex|
|00003360| 74 72 61 63 74 20 74 68 | 69 73 20 65 6e 74 72 79 |tract th|is entry|
|00003370| 20 6f 66 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 | of the |tar file|
|00003380| 20 69 6e 74 6f 20 69 74 | 73 20 6f 77 6e 20 62 75 | into it|s own bu|
|00003390| 66 66 65 72 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ffer." n|il]).(de|
|000033a0| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 65 78 74 72 |falias '|tar-extr|
|000033b0| 61 63 74 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |act-othe|r-window|
|000033c0| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 74 | #[nil "|..!." [t|
|000033d0| 61 72 2d 65 78 74 72 61 | 63 74 20 74 5d 20 32 20 |ar-extra|ct t] 2 |
|000033e0| 22 5c 0a 2a 49 6e 20 74 | 61 72 2d 6d 6f 64 65 2c |"\.*In t|ar-mode,|
|000033f0| 20 65 78 74 72 61 63 74 | 20 74 68 69 73 20 65 6e | extract| this en|
|00003400| 74 72 79 20 6f 66 20 74 | 68 65 20 74 61 72 20 66 |try of t|he tar f|
|00003410| 69 6c 65 20 69 6e 74 6f | 20 69 74 73 20 6f 77 6e |ile into| its own|
|00003420| 20 62 75 66 66 65 72 2e | 22 20 6e 69 6c 5d 29 0a | buffer.|" nil]).|
|00003430| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 76 |(defalia|s 'tar-v|
|00003440| 69 65 77 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 87 22 |iew #[ni|l "..!."|
|00003450| 20 5b 74 61 72 2d 65 78 | 74 72 61 63 74 20 76 69 | [tar-ex|tract vi|
|00003460| 65 77 5d 20 32 20 22 5c | 0a 2a 49 6e 20 74 61 72 |ew] 2 "\|.*In tar|
|00003470| 2d 6d 6f 64 65 2c 20 76 | 69 65 77 20 74 68 65 20 |-mode, v|iew the |
|00003480| 74 61 72 20 66 69 6c 65 | 20 65 6e 74 72 79 20 6f |tar file| entry o|
|00003490| 6e 20 74 68 69 73 20 6c | 69 6e 65 2e 22 20 6e 69 |n this l|ine." ni|
|000034a0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|000034b0| 61 72 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |ar-read-|file-nam|
|000034c0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |e #[(&op|tional p|
|000034d0| 72 6f 6d 70 74 29 20 22 | 08 84 06 00 c1 10 c2 c3 |rompt) "|........|
|000034e0| 20 41 c4 48 21 1d c2 c6 | 08 c7 0d 21 0d c8 24 21 | A.H!...|...!..$!|
|000034f0| 1e 09 ca 0e 09 21 cb 98 | 84 2a 00 cc 0e 09 21 83 |.....!..|.*....!.|
|00003500| 45 00 cd ce 0e 09 5c 22 | 83 3c 00 0e 09 c4 89 95 |E.....\"|.<......|
|00003510| 53 4f 82 3e 00 0e 09 cf | ca 0d 21 51 16 09 0e 09 |SO.>....|..!Q....|
|00003520| 2a 87 22 20 5b 70 72 6f | 6d 70 74 20 22 43 6f 70 |*." [pro|mpt "Cop|
|00003530| 79 20 74 6f 3a 20 22 20 | 65 78 70 61 6e 64 2d 66 |y to: " |expand-f|
|00003540| 69 6c 65 2d 6e 61 6d 65 | 20 74 61 72 2d 63 75 72 |ile-name| tar-cur|
|00003550| 72 65 6e 74 2d 64 65 73 | 63 72 69 70 74 6f 72 20 |rent-des|criptor |
|00003560| 30 20 64 65 66 61 75 6c | 74 2d 66 69 6c 65 20 72 |0 defaul|t-file r|
|00003570| 65 61 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 66 69 |ead-file|-name fi|
|00003580| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00003590| 79 20 6e 69 6c 20 74 61 | 72 67 65 74 20 66 69 6c |y nil ta|rget fil|
|000035a0| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|000035b0| 6f 72 79 20 22 22 20 66 | 69 6c 65 2d 64 69 72 65 |ory "" f|ile-dire|
|000035c0| 63 74 6f 72 79 2d 70 20 | 73 74 72 69 6e 67 2d 6d |ctory-p |string-m|
|000035d0| 61 74 63 68 20 22 2f 24 | 22 20 22 2f 22 5d 20 36 |atch "/$|" "/"] 6|
|000035e0| 20 22 5c 0a 43 61 6c 6c | 73 20 72 65 61 64 2d 66 | "\.Call|s read-f|
|000035f0| 69 6c 65 2d 6e 61 6d 65 | 2c 20 77 69 74 68 20 74 |ile-name|, with t|
|00003600| 68 65 20 64 65 66 61 75 | 6c 74 20 62 65 69 6e 67 |he defau|lt being|
|00003610| 20 74 68 65 20 66 69 6c | 65 20 6f 66 20 74 68 65 | the fil|e of the|
|00003620| 20 63 75 72 72 65 6e 74 | 0a 74 61 72 2d 66 69 6c | current|.tar-fil|
|00003630| 65 20 64 65 73 63 72 69 | 70 74 6f 72 2e 22 5d 29 |e descri|ptor."])|
|00003640| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 72 2d |.(defali|as 'tar-|
|00003650| 63 6f 70 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |copy #[(|&optiona|
|00003660| 6c 20 74 6f 2d 66 69 6c | 65 29 20 22 c0 20 89 19 |l to-fil|e) ". ..|
|00003670| 41 89 1a c3 48 1c 5c 6e | c5 48 1e 06 5c 6e c7 48 |A...H.\n|.H..\n.H|
|00003680| 1e 08 09 40 0e 09 ca 5c | 5c 5c 5c 89 1e 0b 0e 06 |...@...\|\\\.....|
|00003690| 5c 5c 1e 0c 0e 08 83 2c | 00 cd ce 21 88 0e 06 c3 |\\.....,|...!....|
|000036a0| 55 83 37 00 cd cf 21 88 | 70 1e 10 d1 1e 12 d3 8e |U.7...!.|p.......|
|000036b0| d4 d5 21 16 12 7e 88 8a | 0e 12 71 88 d6 0e 10 0e |..!..~..|..q.....|
|000036c0| 0b 0e 0c 23 88 d7 d1 21 | 88 d8 0e 19 21 88 da db |...#...!|....!...|
|000036d0| 0c 0e 19 23 88 0e 10 71 | 2e 0b 87 22 20 5b 74 61 |...#...q|..." [ta|
|000036e0| 72 2d 63 75 72 72 65 6e | 74 2d 64 65 73 63 72 69 |r-curren|t-descri|
|000036f0| 70 74 6f 72 20 64 65 73 | 63 72 69 70 74 6f 72 20 |ptor des|criptor |
|00003700| 74 6f 6b 65 6e 73 20 30 | 20 6e 61 6d 65 20 34 20 |tokens 0| name 4 |
|00003710| 73 69 7a 65 20 37 20 6c | 69 6e 6b 2d 70 20 74 61 |size 7 l|ink-p ta|
|00003720| 72 2d 68 65 61 64 65 72 | 2d 6f 66 66 73 65 74 20 |r-header|-offset |
|00003730| 2d 31 20 73 74 61 72 74 | 20 65 6e 64 20 65 72 72 |-1 start| end err|
|00003740| 6f 72 20 22 54 68 69 73 | 20 69 73 20 61 20 6c 69 |or "This| is a li|
|00003750| 6e 6b 2c 20 6e 6f 74 20 | 61 20 72 65 61 6c 20 66 |nk, not |a real f|
|00003760| 69 6c 65 2e 22 20 22 54 | 68 69 73 20 69 73 20 61 |ile." "T|his is a|
|00003770| 20 7a 65 72 6f 2d 6c 65 | 6e 67 74 68 20 66 69 6c | zero-le|ngth fil|
|00003780| 65 2e 22 20 74 61 72 2d | 62 75 66 66 65 72 20 6e |e." tar-|buffer n|
|00003790| 69 6c 20 62 75 66 66 65 | 72 20 28 28 62 79 74 65 |il buffe|r ((byte|
|000037a0| 2d 63 6f 64 65 20 22 c0 | 09 7d 88 5c 6e 83 0c 00 |-code ".|.}.\n...|
|000037b0| c3 5c 6e 21 88 c0 87 22 | 20 5b 31 20 74 61 72 2d |.\n!..."| [1 tar-|
|000037c0| 68 65 61 64 65 72 2d 6f | 66 66 73 65 74 20 62 75 |header-o|ffset bu|
|000037d0| 66 66 65 72 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ffer kil|l-buffer|
|000037e0| 5d 20 32 29 29 20 67 65 | 6e 65 72 61 74 65 2d 6e |] 2)) ge|nerate-n|
|000037f0| 65 77 2d 62 75 66 66 65 | 72 20 22 2a 74 61 72 2d |ew-buffe|r "*tar-|
|00003800| 63 6f 70 79 2d 74 6d 70 | 2a 22 20 69 6e 73 65 72 |copy-tmp|*" inser|
|00003810| 74 2d 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |t-buffer|-substri|
|00003820| 6e 67 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f |ng set-b|uffer-mo|
|00003830| 64 69 66 69 65 64 2d 70 | 20 77 72 69 74 65 2d 66 |dified-p| write-f|
|00003840| 69 6c 65 20 74 6f 2d 66 | 69 6c 65 20 6d 65 73 73 |ile to-f|ile mess|
|00003850| 61 67 65 20 22 43 6f 70 | 69 65 64 20 74 61 72 20 |age "Cop|ied tar |
|00003860| 65 6e 74 72 79 20 25 73 | 20 74 6f 20 25 73 22 5d |entry %s| to %s"]|
|00003870| 20 35 20 22 5c 0a 2a 49 | 6e 20 74 61 72 2d 6d 6f | 5 "\.*I|n tar-mo|
|00003880| 64 65 2c 20 65 78 74 72 | 61 63 74 20 74 68 69 73 |de, extr|act this|
|00003890| 20 65 6e 74 72 79 20 6f | 66 20 74 68 65 20 74 61 | entry o|f the ta|
|000038a0| 72 20 66 69 6c 65 20 69 | 6e 74 6f 20 61 20 66 69 |r file i|nto a fi|
|000038b0| 6c 65 20 6f 6e 20 64 69 | 73 6b 2e 0a 49 66 20 54 |le on di|sk..If T|
|000038c0| 4f 2d 46 49 4c 45 20 69 | 73 20 6e 6f 74 20 73 75 |O-FILE i|s not su|
|000038d0| 70 70 6c 69 65 64 2c 20 | 69 74 20 69 73 20 70 72 |pplied, |it is pr|
|000038e0| 6f 6d 70 74 65 64 20 66 | 6f 72 2c 20 64 65 66 61 |ompted f|or, defa|
|000038f0| 75 6c 74 69 6e 67 20 74 | 6f 20 74 68 65 20 6e 61 |ulting t|o the na|
|00003900| 6d 65 20 6f 66 0a 74 68 | 65 20 63 75 72 72 65 6e |me of.th|e curren|
|00003910| 74 20 74 61 72 2d 65 6e | 74 72 79 2e 22 20 28 6c |t tar-en|try." (l|
|00003920| 69 73 74 20 28 74 61 72 | 2d 72 65 61 64 2d 66 69 |ist (tar|-read-fi|
|00003930| 6c 65 2d 6e 61 6d 65 29 | 29 5d 29 0a 28 64 65 66 |le-name)|)]).(def|
|00003940| 61 6c 69 61 73 20 27 74 | 61 72 2d 66 6c 61 67 2d |alias 't|ar-flag-|
|00003950| 64 65 6c 65 74 65 64 20 | 23 5b 28 70 20 26 6f 70 |deleted |#[(p &op|
|00003960| 74 69 6f 6e 61 6c 20 75 | 6e 66 6c 61 67 29 20 22 |tional u|nflag) "|
|00003970| c0 79 88 09 c0 57 83 0e | 00 09 5b 82 0f 00 09 c0 |.y...W..|..[.....|
|00003980| 1a 1b 5c 6e 0b 57 83 41 | 00 c4 0d 21 83 2d 00 c6 |..\n.W.A|...!.-..|
|00003990| c7 21 88 0d 83 2a 00 c8 | 82 2b 00 c9 63 88 09 c0 |.!...*..|.+..c...|
|000039a0| 57 83 37 00 ca 82 38 00 | c7 79 88 5c 6e 54 89 12 |W.7...8.|.y.\nT..|
|000039b0| 82 13 00 2a 6d 3f 85 49 | 00 cb 75 87 22 20 5b 30 |...*m?.I|..u." [0|
|000039c0| 20 70 20 69 20 5f 64 6f | 74 69 6d 65 73 5f 65 6e | p i _do|times_en|
|000039d0| 64 5f 20 74 61 72 2d 63 | 75 72 72 65 6e 74 2d 64 |d_ tar-c|urrent-d|
|000039e0| 65 73 63 72 69 70 74 6f | 72 20 75 6e 66 6c 61 67 |escripto|r unflag|
|000039f0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 31 20 22 | delete-|char 1 "|
|00003a00| 20 22 20 22 44 22 20 2d | 31 20 33 36 5d 20 33 20 | " "D" -|1 36] 3 |
|00003a10| 22 5c 0a 2a 49 6e 20 74 | 61 72 20 6d 6f 64 65 2c |"\.*In t|ar mode,|
|00003a20| 20 6d 61 72 6b 20 74 68 | 69 73 20 73 75 62 2d 66 | mark th|is sub-f|
|00003a30| 69 6c 65 20 74 6f 20 62 | 65 20 64 65 6c 65 74 65 |ile to b|e delete|
|00003a40| 64 20 66 72 6f 6d 20 74 | 68 65 20 74 61 72 20 66 |d from t|he tar f|
|00003a50| 69 6c 65 2e 0a 57 69 74 | 68 20 61 20 70 72 65 66 |ile..Wit|h a pref|
|00003a60| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 6d 61 72 |ix argum|ent, mar|
|00003a70| 6b 20 74 68 61 74 20 6d | 61 6e 79 20 66 69 6c 65 |k that m|any file|
|00003a80| 73 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |s." "p"]|).(defal|
|00003a90| 69 61 73 20 27 74 61 72 | 2d 75 6e 66 6c 61 67 20 |ias 'tar|-unflag |
|00003aa0| 23 5b 28 70 29 20 22 c0 | 09 c2 5c 22 87 22 20 5b |#[(p) ".|..\"." [|
|00003ab0| 74 61 72 2d 66 6c 61 67 | 2d 64 65 6c 65 74 65 64 |tar-flag|-deleted|
|00003ac0| 20 70 20 74 5d 20 33 20 | 22 5c 0a 2a 49 6e 20 74 | p t] 3 |"\.*In t|
|00003ad0| 61 72 20 6d 6f 64 65 2c | 20 75 6e 2d 6d 61 72 6b |ar mode,| un-mark|
|00003ae0| 20 74 68 69 73 20 73 75 | 62 2d 66 69 6c 65 20 69 | this su|b-file i|
|00003af0| 66 20 69 74 20 69 73 20 | 6d 61 72 6b 65 64 20 74 |f it is |marked t|
|00003b00| 6f 20 62 65 20 64 65 6c | 65 74 65 64 2e 0a 57 69 |o be del|eted..Wi|
|00003b10| 74 68 20 61 20 70 72 65 | 66 69 78 20 61 72 67 75 |th a pre|fix argu|
|00003b20| 6d 65 6e 74 2c 20 75 6e | 2d 6d 61 72 6b 20 74 68 |ment, un|-mark th|
|00003b30| 61 74 20 6d 61 6e 79 20 | 66 69 6c 65 73 20 66 6f |at many |files fo|
|00003b40| 72 77 61 72 64 2e 22 20 | 22 70 22 5d 29 0a 28 64 |rward." |"p"]).(d|
|00003b50| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 75 6e 66 |efalias |'tar-unf|
|00003b60| 6c 61 67 2d 62 61 63 6b | 77 61 72 64 73 20 23 5b |lag-back|wards #[|
|00003b70| 28 70 29 20 22 c0 09 5b | c2 5c 22 87 22 20 5b 74 |(p) "..[|.\"." [t|
|00003b80| 61 72 2d 66 6c 61 67 2d | 64 65 6c 65 74 65 64 20 |ar-flag-|deleted |
|00003b90| 70 20 74 5d 20 33 20 22 | 5c 0a 2a 49 6e 20 74 61 |p t] 3 "|\.*In ta|
|00003ba0| 72 20 6d 6f 64 65 2c 20 | 75 6e 2d 6d 61 72 6b 20 |r mode, |un-mark |
|00003bb0| 74 68 69 73 20 73 75 62 | 2d 66 69 6c 65 20 69 66 |this sub|-file if|
|00003bc0| 20 69 74 20 69 73 20 6d | 61 72 6b 65 64 20 74 6f | it is m|arked to|
|00003bd0| 20 62 65 20 64 65 6c 65 | 74 65 64 2e 0a 57 69 74 | be dele|ted..Wit|
|00003be0| 68 20 61 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |h a pref|ix argum|
|00003bf0| 65 6e 74 2c 20 75 6e 2d | 6d 61 72 6b 20 74 68 61 |ent, un-|mark tha|
|00003c00| 74 20 6d 61 6e 79 20 66 | 69 6c 65 73 20 62 61 63 |t many f|iles bac|
|00003c10| 6b 77 61 72 64 2e 22 20 | 22 70 22 5d 29 0a 28 64 |kward." |"p"]).(d|
|00003c20| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 65 78 70 |efalias |'tar-exp|
|00003c30| 75 6e 67 65 2d 69 6e 74 | 65 72 6e 61 6c 20 23 5b |unge-int|ernal #[|
|00003c40| 6e 69 6c 20 22 c0 20 89 | 19 41 1a 09 40 1b 5c 6e |nil ". .|.A..@.\n|
|00003c50| c4 48 1d 5c 6e c6 48 1e | 07 5c 6e c8 48 1e 09 09 |.H.\n.H.|.\n.H...|
|00003c60| 40 1e 5c 6e 09 0e 0b 3e | 41 1e 0c 0e 09 83 2a 00 |@.\n...>|A.....*.|
|00003c70| c4 16 07 c4 79 88 60 1e | 0d ce 7f 88 ce 75 88 60 |....y.`.|.....u.`|
|00003c80| 0e 0d 5a 1e 0f 0e 0d 60 | 7c 88 0e 10 0e 0f 5a 16 |..Z....`||.....Z.|
|00003c90| 10 2a d1 09 0e 0b 5c 22 | 16 0b 7e 88 0e 5c 6e 0e |.*....\"|..~..\n.|
|00003ca0| 10 d2 5c 5c 5c 5c 89 1e | 13 d4 89 0e 07 d5 5c 5c |..\\\\..|......\\|
|00003cb0| d6 5c 22 d7 5c 22 d8 5c | 5c 5c 5c 1e 19 0e 13 0e |.\".\".\|\\\.....|
|00003cc0| 19 7c 88 0e 19 0e 13 5a | 1e 1a 0e 0c 1e 1b 0e 1b |.|.....Z|........|
|00003cd0| 83 97 00 0e 1b 40 89 1e | 1c 89 40 0e 1a 5a a0 88 |.....@..|..@..Z..|
|00003ce0| 0e 1b 41 16 1b 29 82 7c | 00 2e 0c dd 0e 10 7d 87 |..A..).||......}.|
|00003cf0| 22 20 5b 74 61 72 2d 63 | 75 72 72 65 6e 74 2d 64 |" [tar-c|urrent-d|
|00003d00| 65 73 63 72 69 70 74 6f | 72 20 64 65 73 63 72 69 |escripto|r descri|
|00003d10| 70 74 6f 72 20 74 6f 6b | 65 6e 73 20 6c 69 6e 65 |ptor tok|ens line|
|00003d20| 20 30 20 6e 61 6d 65 20 | 34 20 73 69 7a 65 20 37 | 0 name |4 size 7|
|00003d30| 20 6c 69 6e 6b 2d 70 20 | 73 74 61 72 74 20 74 61 | link-p |start ta|
|00003d40| 72 2d 70 61 72 73 65 2d | 69 6e 66 6f 20 66 6f 6c |r-parse-|info fol|
|00003d50| 6c 6f 77 69 6e 67 2d 64 | 65 73 63 73 20 6c 69 6e |lowing-d|escs lin|
|00003d60| 65 2d 73 74 61 72 74 20 | 6e 69 6c 20 6c 69 6e 65 |e-start |nil line|
|00003d70| 2d 6c 65 6e 20 74 61 72 | 2d 68 65 61 64 65 72 2d |-len tar|-header-|
|00003d80| 6f 66 66 73 65 74 20 64 | 65 6c 71 20 2d 35 31 33 |offset d|elq -513|
|00003d90| 20 64 61 74 61 2d 73 74 | 61 72 74 20 61 73 68 20 | data-st|art ash |
|00003da0| 35 31 31 20 2d 39 20 39 | 20 35 31 32 20 64 61 74 |511 -9 9| 512 dat|
|00003db0| 61 2d 65 6e 64 20 64 61 | 74 61 2d 6c 65 6e 67 74 |a-end da|ta-lengt|
|00003dc0| 68 20 5f 64 6f 6c 69 73 | 74 5f 69 74 65 72 61 74 |h _dolis|t_iterat|
|00003dd0| 6f 72 5f 20 64 65 73 63 | 20 31 5d 20 36 20 22 5c |or_ desc| 1] 6 "\|
|00003de0| 0a 45 78 70 75 6e 67 65 | 20 74 68 65 20 74 61 72 |.Expunge| the tar|
|00003df0| 2d 65 6e 74 72 79 20 73 | 70 65 63 69 66 69 65 64 |-entry s|pecified|
|00003e00| 20 62 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | by the |current |
|00003e10| 6c 69 6e 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |line."])|.(defali|
|00003e20| 61 73 20 27 74 61 72 2d | 65 78 70 75 6e 67 65 20 |as 'tar-|expunge |
|00003e30| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 63 |#[(&opti|onal noc|
|00003e40| 6f 6e 66 69 72 6d 29 20 | 22 08 84 5c 6e 00 c1 c2 |onfirm) |"..\n...|
|00003e50| 21 85 43 00 c3 1c 8a c3 | 62 88 6d 84 29 00 c5 c6 |!.C.....|b.m.)...|
|00003e60| 21 83 23 00 c7 20 88 0c | 54 14 82 10 00 c8 79 88 |!.#.. ..|T.....y.|
|00003e70| 82 10 00 c9 20 88 c8 0e | 5c 6e 7d 88 29 0c c3 55 |.... ...|\n}.)..U|
|00003e80| 83 3e 00 cb cc 21 82 42 | 00 cb cd 0c 5c 22 29 87 |.>...!.B|....\").|
|00003e90| 22 20 5b 6e 6f 63 6f 6e | 66 69 72 6d 20 79 2d 6f |" [nocon|firm y-o|
|00003ea0| 72 2d 6e 2d 70 20 22 65 | 78 70 75 6e 67 65 20 66 |r-n-p "e|xpunge f|
|00003eb0| 69 6c 65 73 20 6d 61 72 | 6b 65 64 20 66 6f 72 20 |iles mar|ked for |
|00003ec0| 64 65 6c 65 74 69 6f 6e | 3f 20 22 20 30 20 6e 20 |deletion|? " 0 n |
|00003ed0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 44 22 20 74 |looking-|at "D" t|
|00003ee0| 61 72 2d 65 78 70 75 6e | 67 65 2d 69 6e 74 65 72 |ar-expun|ge-inter|
|00003ef0| 6e 61 6c 20 31 20 74 61 | 72 2d 70 61 64 2d 74 6f |nal 1 ta|r-pad-to|
|00003f00| 2d 62 6c 6f 63 6b 73 69 | 7a 65 20 74 61 72 2d 68 |-blocksi|ze tar-h|
|00003f10| 65 61 64 65 72 2d 6f 66 | 66 73 65 74 20 6d 65 73 |eader-of|fset mes|
|00003f20| 73 61 67 65 20 22 6e 6f | 74 68 69 6e 67 20 74 6f |sage "no|thing to|
|00003f30| 20 65 78 70 75 6e 67 65 | 2e 22 20 22 25 73 20 65 | expunge|." "%s e|
|00003f40| 78 70 75 6e 67 65 64 2e | 20 20 42 65 20 73 75 72 |xpunged.|  Be sur|
|00003f50| 65 20 74 6f 20 73 61 76 | 65 20 74 68 69 73 20 62 |e to sav|e this b|
|00003f60| 75 66 66 65 72 2e 22 5d | 20 33 20 22 5c 0a 2a 49 |uffer."]| 3 "\.*I|
|00003f70| 6e 20 74 61 72 2d 6d 6f | 64 65 2c 20 64 65 6c 65 |n tar-mo|de, dele|
|00003f80| 74 65 20 61 6c 6c 20 74 | 68 65 20 61 72 63 68 69 |te all t|he archi|
|00003f90| 76 65 64 20 66 69 6c 65 | 73 20 66 6c 61 67 67 65 |ved file|s flagge|
|00003fa0| 64 20 66 6f 72 20 64 65 | 6c 65 74 69 6f 6e 2e 0a |d for de|letion..|
|00003fb0| 54 68 69 73 20 64 6f 65 | 73 20 6e 6f 74 20 6d 6f |This doe|s not mo|
|00003fc0| 64 69 66 79 20 74 68 65 | 20 64 69 73 6b 20 69 6d |dify the| disk im|
|00003fd0| 61 67 65 3b 20 79 6f 75 | 20 6d 75 73 74 20 73 61 |age; you| must sa|
|00003fe0| 76 65 20 74 68 65 20 74 | 61 72 20 66 69 6c 65 20 |ve the t|ar file |
|00003ff0| 69 74 73 65 6c 66 0a 66 | 6f 72 20 74 68 69 73 20 |itself.f|or this |
|00004000| 74 6f 20 62 65 20 70 65 | 72 6d 61 6e 65 6e 74 2e |to be pe|rmanent.|
|00004010| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00004020| 73 20 27 74 61 72 2d 63 | 6c 65 61 72 2d 6d 6f 64 |s 'tar-c|lear-mod|
|00004030| 69 66 69 63 61 74 69 6f | 6e 2d 66 6c 61 67 73 20 |ificatio|n-flags |
|00004040| 23 5b 6e 69 6c 20 22 8a | c0 62 88 60 09 57 85 1d |#[nil ".|.b.`.W..|
|00004050| 00 c2 c3 21 83 17 00 c4 | c5 21 88 c6 63 88 c5 79 |...!....|.!..c..y|
|00004060| 88 82 04 00 29 87 22 20 | 5b 30 20 74 61 72 2d 68 |....)." |[0 tar-h|
|00004070| 65 61 64 65 72 2d 6f 66 | 66 73 65 74 20 6c 6f 6f |eader-of|fset loo|
|00004080| 6b 69 6e 67 2d 61 74 20 | 22 2a 22 20 64 65 6c 65 |king-at |"*" dele|
|00004090| 74 65 2d 63 68 61 72 20 | 31 20 22 20 22 5d 20 32 |te-char |1 " "] 2|
|000040a0| 20 22 5c 0a 72 65 6d 6f | 76 65 20 74 68 65 20 73 | "\.remo|ve the s|
|000040b0| 74 61 72 73 20 61 74 20 | 74 68 65 20 62 65 67 69 |tars at |the begi|
|000040c0| 6e 6e 69 6e 67 20 6f 66 | 20 65 61 63 68 20 6c 69 |nning of| each li|
|000040d0| 6e 65 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ne."]).(|defalias|
|000040e0| 20 27 74 61 72 2d 63 68 | 6f 77 6e 2d 65 6e 74 72 | 'tar-ch|own-entr|
|000040f0| 79 20 23 5b 28 6e 65 77 | 2d 75 69 64 29 20 22 08 |y #[(new|-uid) ".|
|00004100| 3b 83 13 00 c1 20 41 c2 | 08 49 88 c3 0c 08 c5 50 |;.... A.|.I.....P|
|00004110| 5c 22 87 c1 20 41 c6 08 | 49 88 c3 0e 07 c8 c9 08 |\".. A..|I.......|
|00004120| 5c 22 ca cb 4f cc 50 5c | 22 87 22 20 5b 6e 65 77 |\"..O.P\|"." [new|
|00004130| 2d 75 69 64 20 74 61 72 | 2d 63 75 72 72 65 6e 74 |-uid tar|-current|
|00004140| 2d 64 65 73 63 72 69 70 | 74 6f 72 20 31 30 20 74 |-descrip|tor 10 t|
|00004150| 61 72 2d 61 6c 74 65 72 | 2d 6f 6e 65 2d 66 69 65 |ar-alter|-one-fie|
|00004160| 6c 64 20 74 61 72 2d 75 | 6e 61 6d 65 2d 6f 66 66 |ld tar-u|name-off|
|00004170| 73 65 74 20 22 00 22 20 | 32 20 74 61 72 2d 75 69 |set "." |2 tar-ui|
|00004180| 64 2d 6f 66 66 73 65 74 | 20 66 6f 72 6d 61 74 20 |d-offset| format |
|00004190| 22 25 36 6f 22 20 30 20 | 36 20 22 00 20 22 5d 20 |"%6o" 0 |6 ". "] |
|000041a0| 35 20 22 5c 0a 2a 43 68 | 61 6e 67 65 20 74 68 65 |5 "\.*Ch|ange the|
|000041b0| 20 75 73 65 72 2d 69 64 | 20 61 73 73 6f 63 69 61 | user-id| associa|
|000041c0| 74 65 64 20 77 69 74 68 | 20 74 68 69 73 20 65 6e |ted with| this en|
|000041d0| 74 72 79 20 69 6e 20 74 | 68 65 20 74 61 72 20 66 |try in t|he tar f|
|000041e0| 69 6c 65 2e 0a 49 66 20 | 74 68 69 73 20 74 61 72 |ile..If |this tar|
|000041f0| 20 66 69 6c 65 20 77 61 | 73 20 77 72 69 74 74 65 | file wa|s writte|
|00004200| 6e 20 62 79 20 47 4e 55 | 20 74 61 72 2c 20 74 68 |n by GNU| tar, th|
|00004210| 65 6e 20 79 6f 75 20 77 | 69 6c 6c 20 62 65 20 61 |en you w|ill be a|
|00004220| 62 6c 65 20 74 6f 20 65 | 64 69 74 0a 74 68 65 20 |ble to e|dit.the |
|00004230| 75 73 65 72 20 69 64 20 | 61 73 20 61 20 73 74 72 |user id |as a str|
|00004240| 69 6e 67 3b 20 6f 74 68 | 65 72 77 69 73 65 2c 20 |ing; oth|erwise, |
|00004250| 79 6f 75 20 6d 75 73 74 | 20 65 64 69 74 20 69 74 |you must| edit it|
|00004260| 20 61 73 20 61 20 6e 75 | 6d 62 65 72 2e 0a 59 6f | as a nu|mber..Yo|
|00004270| 75 20 63 61 6e 20 66 6f | 72 63 65 20 65 64 69 74 |u can fo|rce edit|
|00004280| 69 6e 67 20 61 73 20 61 | 20 6e 75 6d 62 65 72 20 |ing as a| number |
|00004290| 62 79 20 63 61 6c 6c 69 | 6e 67 20 74 68 69 73 20 |by calli|ng this |
|000042a0| 77 69 74 68 20 61 20 70 | 72 65 66 69 78 20 61 72 |with a p|refix ar|
|000042b0| 67 2e 0a 54 68 69 73 20 | 64 6f 65 73 20 6e 6f 74 |g..This |does not|
|000042c0| 20 6d 6f 64 69 66 79 20 | 74 68 65 20 64 69 73 6b | modify |the disk|
|000042d0| 20 69 6d 61 67 65 3b 20 | 79 6f 75 20 6d 75 73 74 | image; |you must|
|000042e0| 20 73 61 76 65 20 74 68 | 65 20 74 61 72 20 66 69 | save th|e tar fi|
|000042f0| 6c 65 20 69 74 73 65 6c | 66 0a 66 6f 72 20 74 68 |le itsel|f.for th|
|00004300| 69 73 20 74 6f 20 62 65 | 20 70 65 72 6d 61 6e 65 |is to be| permane|
|00004310| 6e 74 2e 22 20 28 6c 69 | 73 74 20 28 6c 65 74 20 |nt." (li|st (let |
|00004320| 28 28 74 6f 6b 65 6e 73 | 20 28 74 61 72 2d 64 65 |((tokens| (tar-de|
|00004330| 73 63 2d 74 6f 6b 65 6e | 73 20 28 74 61 72 2d 63 |sc-token|s (tar-c|
|00004340| 75 72 72 65 6e 74 2d 64 | 65 73 63 72 69 70 74 6f |urrent-d|escripto|
|00004350| 72 29 29 29 29 20 28 69 | 66 20 28 6f 72 20 63 75 |r)))) (i|f (or cu|
|00004360| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|00004370| 20 28 6e 6f 74 20 28 74 | 61 72 2d 68 65 61 64 65 | (not (t|ar-heade|
|00004380| 72 2d 6d 61 67 69 63 20 | 74 6f 6b 65 6e 73 29 29 |r-magic |tokens))|
|00004390| 29 20 28 6c 65 74 20 28 | 6e 29 20 28 77 68 69 6c |) (let (|n) (whil|
|000043a0| 65 20 28 6e 6f 74 20 28 | 6e 75 6d 62 65 72 70 20 |e (not (|numberp |
|000043b0| 28 73 65 74 71 20 6e 20 | 28 72 65 61 64 2d 6d 69 |(setq n |(read-mi|
|000043c0| 6e 69 62 75 66 66 65 72 | 20 22 4e 65 77 20 55 49 |nibuffer| "New UI|
|000043d0| 44 20 6e 75 6d 62 65 72 | 3a 20 22 20 28 66 6f 72 |D number|: " (for|
|000043e0| 6d 61 74 20 22 25 73 22 | 20 28 74 61 72 2d 68 65 |mat "%s"| (tar-he|
|000043f0| 61 64 65 72 2d 75 69 64 | 20 74 6f 6b 65 6e 73 29 |ader-uid| tokens)|
|00004400| 29 29 29 29 29 29 20 6e | 29 20 28 72 65 61 64 2d |)))))) n|) (read-|
|00004410| 73 74 72 69 6e 67 20 22 | 4e 65 77 20 55 49 44 20 |string "|New UID |
|00004420| 73 74 72 69 6e 67 3a 20 | 22 20 28 74 61 72 2d 68 |string: |" (tar-h|
|00004430| 65 61 64 65 72 2d 75 6e | 61 6d 65 20 74 6f 6b 65 |eader-un|ame toke|
|00004440| 6e 73 29 29 29 29 29 5d | 29 0a 28 64 65 66 61 6c |ns)))))]|).(defal|
|00004450| 69 61 73 20 27 74 61 72 | 2d 63 68 67 72 70 2d 65 |ias 'tar|-chgrp-e|
|00004460| 6e 74 72 79 20 23 5b 28 | 6e 65 77 2d 67 69 64 29 |ntry #[(|new-gid)|
|00004470| 20 22 08 3b 83 13 00 c1 | 20 41 c2 08 49 88 c3 0c | ".;....| A..I...|
|00004480| 08 c5 50 5c 22 87 c1 20 | 41 c6 08 49 88 c3 0e 07 |..P\".. |A..I....|
|00004490| c8 c9 08 5c 22 ca cb 4f | cc 50 5c 22 87 22 20 5b |...\"..O|.P\"." [|
|000044a0| 6e 65 77 2d 67 69 64 20 | 74 61 72 2d 63 75 72 72 |new-gid |tar-curr|
|000044b0| 65 6e 74 2d 64 65 73 63 | 72 69 70 74 6f 72 20 31 |ent-desc|riptor 1|
|000044c0| 31 20 74 61 72 2d 61 6c | 74 65 72 2d 6f 6e 65 2d |1 tar-al|ter-one-|
|000044d0| 66 69 65 6c 64 20 74 61 | 72 2d 67 6e 61 6d 65 2d |field ta|r-gname-|
|000044e0| 6f 66 66 73 65 74 20 22 | 00 22 20 33 20 74 61 72 |offset "|." 3 tar|
|000044f0| 2d 67 69 64 2d 6f 66 66 | 73 65 74 20 66 6f 72 6d |-gid-off|set form|
|00004500| 61 74 20 22 25 36 6f 22 | 20 30 20 36 20 22 00 20 |at "%6o"| 0 6 ". |
|00004510| 22 5d 20 35 20 22 5c 0a | 2a 43 68 61 6e 67 65 20 |"] 5 "\.|*Change |
|00004520| 74 68 65 20 67 72 6f 75 | 70 2d 69 64 20 61 73 73 |the grou|p-id ass|
|00004530| 6f 63 69 61 74 65 64 20 | 77 69 74 68 20 74 68 69 |ociated |with thi|
|00004540| 73 20 65 6e 74 72 79 20 | 69 6e 20 74 68 65 20 74 |s entry |in the t|
|00004550| 61 72 20 66 69 6c 65 2e | 0a 49 66 20 74 68 69 73 |ar file.|.If this|
|00004560| 20 74 61 72 20 66 69 6c | 65 20 77 61 73 20 77 72 | tar fil|e was wr|
|00004570| 69 74 74 65 6e 20 62 79 | 20 47 4e 55 20 74 61 72 |itten by| GNU tar|
|00004580| 2c 20 74 68 65 6e 20 79 | 6f 75 20 77 69 6c 6c 20 |, then y|ou will |
|00004590| 62 65 20 61 62 6c 65 20 | 74 6f 20 65 64 69 74 0a |be able |to edit.|
|000045a0| 74 68 65 20 67 72 6f 75 | 70 20 69 64 20 61 73 20 |the grou|p id as |
|000045b0| 61 20 73 74 72 69 6e 67 | 3b 20 6f 74 68 65 72 77 |a string|; otherw|
|000045c0| 69 73 65 2c 20 79 6f 75 | 20 6d 75 73 74 20 65 64 |ise, you| must ed|
|000045d0| 69 74 20 69 74 20 61 73 | 20 61 20 6e 75 6d 62 65 |it it as| a numbe|
|000045e0| 72 2e 0a 59 6f 75 20 63 | 61 6e 20 66 6f 72 63 65 |r..You c|an force|
|000045f0| 20 65 64 69 74 69 6e 67 | 20 61 73 20 61 20 6e 75 | editing| as a nu|
|00004600| 6d 62 65 72 20 62 79 20 | 63 61 6c 6c 69 6e 67 20 |mber by |calling |
|00004610| 74 68 69 73 20 77 69 74 | 68 20 61 20 70 72 65 66 |this wit|h a pref|
|00004620| 69 78 20 61 72 67 2e 0a | 54 68 69 73 20 64 6f 65 |ix arg..|This doe|
|00004630| 73 20 6e 6f 74 20 6d 6f | 64 69 66 79 20 74 68 65 |s not mo|dify the|
|00004640| 20 64 69 73 6b 20 69 6d | 61 67 65 3b 20 79 6f 75 | disk im|age; you|
|00004650| 20 6d 75 73 74 20 73 61 | 76 65 20 74 68 65 20 74 | must sa|ve the t|
|00004660| 61 72 20 66 69 6c 65 20 | 69 74 73 65 6c 66 0a 66 |ar file |itself.f|
|00004670| 6f 72 20 74 68 69 73 20 | 74 6f 20 62 65 20 70 65 |or this |to be pe|
|00004680| 72 6d 61 6e 65 6e 74 2e | 22 20 28 6c 69 73 74 20 |rmanent.|" (list |
|00004690| 28 6c 65 74 20 28 28 74 | 6f 6b 65 6e 73 20 28 74 |(let ((t|okens (t|
|000046a0| 61 72 2d 64 65 73 63 2d | 74 6f 6b 65 6e 73 20 28 |ar-desc-|tokens (|
|000046b0| 74 61 72 2d 63 75 72 72 | 65 6e 74 2d 64 65 73 63 |tar-curr|ent-desc|
|000046c0| 72 69 70 74 6f 72 29 29 | 29 29 20 28 69 66 20 28 |riptor))|)) (if (|
|000046d0| 6f 72 20 63 75 72 72 65 | 6e 74 2d 70 72 65 66 69 |or curre|nt-prefi|
|000046e0| 78 2d 61 72 67 20 28 6e | 6f 74 20 28 74 61 72 2d |x-arg (n|ot (tar-|
|000046f0| 68 65 61 64 65 72 2d 6d | 61 67 69 63 20 74 6f 6b |header-m|agic tok|
|00004700| 65 6e 73 29 29 29 20 28 | 6c 65 74 20 28 6e 29 20 |ens))) (|let (n) |
|00004710| 28 77 68 69 6c 65 20 28 | 6e 6f 74 20 28 6e 75 6d |(while (|not (num|
|00004720| 62 65 72 70 20 28 73 65 | 74 71 20 6e 20 28 72 65 |berp (se|tq n (re|
|00004730| 61 64 2d 6d 69 6e 69 62 | 75 66 66 65 72 20 22 4e |ad-minib|uffer "N|
|00004740| 65 77 20 47 49 44 20 6e | 75 6d 62 65 72 3a 20 22 |ew GID n|umber: "|
|00004750| 20 28 66 6f 72 6d 61 74 | 20 22 25 73 22 20 28 74 | (format| "%s" (t|
|00004760| 61 72 2d 68 65 61 64 65 | 72 2d 67 69 64 20 74 6f |ar-heade|r-gid to|
|00004770| 6b 65 6e 73 29 29 29 29 | 29 29 29 20 6e 29 20 28 |kens))))|))) n) (|
|00004780| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 4e 65 77 |read-str|ing "New|
|00004790| 20 47 49 44 20 73 74 72 | 69 6e 67 3a 20 22 20 28 | GID str|ing: " (|
|000047a0| 74 61 72 2d 68 65 61 64 | 65 72 2d 67 6e 61 6d 65 |tar-head|er-gname|
|000047b0| 20 74 6f 6b 65 6e 73 29 | 29 29 29 29 5d 29 0a 28 | tokens)|))))]).(|
|000047c0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 72 65 |defalias| 'tar-re|
|000047d0| 6e 61 6d 65 2d 65 6e 74 | 72 79 20 23 5b 28 6e 65 |name-ent|ry #[(ne|
|000047e0| 77 2d 6e 61 6d 65 29 20 | 22 08 c1 98 83 5c 6e 00 |w-name) |"....\n.|
|000047f0| c2 c3 21 88 08 47 c4 56 | 83 15 00 c2 c5 21 88 c6 |..!..G.V|.....!..|
|00004800| 20 41 c7 08 49 88 c8 c7 | 08 c9 ca c7 5c 22 50 c7 | A..I...|....\"P.|
|00004810| ca 4f 5c 22 87 22 20 5b | 6e 65 77 2d 6e 61 6d 65 |.O\"." [|new-name|
|00004820| 20 22 22 20 65 72 72 6f | 72 20 22 7a 65 72 6f 20 | "" erro|r "zero |
|00004830| 6c 65 6e 67 74 68 20 6e | 61 6d 65 2e 22 20 39 38 |length n|ame." 98|
|00004840| 20 22 6e 61 6d 65 20 74 | 6f 6f 20 6c 6f 6e 67 2e | "name t|oo long.|
|00004850| 22 20 74 61 72 2d 63 75 | 72 72 65 6e 74 2d 64 65 |" tar-cu|rrent-de|
|00004860| 73 63 72 69 70 74 6f 72 | 20 30 20 74 61 72 2d 61 |scriptor| 0 tar-a|
|00004870| 6c 74 65 72 2d 6f 6e 65 | 2d 66 69 65 6c 64 20 6d |lter-one|-field m|
|00004880| 61 6b 65 2d 73 74 72 69 | 6e 67 20 39 39 5d 20 36 |ake-stri|ng 99] 6|
|00004890| 20 22 5c 0a 2a 43 68 61 | 6e 67 65 20 74 68 65 20 | "\.*Cha|nge the |
|000048a0| 6e 61 6d 65 20 61 73 73 | 6f 63 69 61 74 65 64 20 |name ass|ociated |
|000048b0| 77 69 74 68 20 74 68 69 | 73 20 65 6e 74 72 79 20 |with thi|s entry |
|000048c0| 69 6e 20 74 68 65 20 74 | 61 72 20 66 69 6c 65 2e |in the t|ar file.|
|000048d0| 0a 54 68 69 73 20 64 6f | 65 73 20 6e 6f 74 20 6d |.This do|es not m|
|000048e0| 6f 64 69 66 79 20 74 68 | 65 20 64 69 73 6b 20 69 |odify th|e disk i|
|000048f0| 6d 61 67 65 3b 20 79 6f | 75 20 6d 75 73 74 20 73 |mage; yo|u must s|
|00004900| 61 76 65 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 |ave the |tar file|
|00004910| 20 69 74 73 65 6c 66 0a | 66 6f 72 20 74 68 69 73 | itself.|for this|
|00004920| 20 74 6f 20 62 65 20 70 | 65 72 6d 61 6e 65 6e 74 | to be p|ermanent|
|00004930| 2e 22 20 28 6c 69 73 74 | 20 28 72 65 61 64 2d 73 |." (list| (read-s|
|00004940| 74 72 69 6e 67 20 22 4e | 65 77 20 6e 61 6d 65 3a |tring "N|ew name:|
|00004950| 20 22 20 28 74 61 72 2d | 68 65 61 64 65 72 2d 6e | " (tar-|header-n|
|00004960| 61 6d 65 20 28 74 61 72 | 2d 64 65 73 63 2d 74 6f |ame (tar|-desc-to|
|00004970| 6b 65 6e 73 20 28 74 61 | 72 2d 63 75 72 72 65 6e |kens (ta|r-curren|
|00004980| 74 2d 64 65 73 63 72 69 | 70 74 6f 72 29 29 29 29 |t-descri|ptor))))|
|00004990| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |)]).(def|alias 't|
|000049a0| 61 72 2d 63 68 6d 6f 64 | 2d 65 6e 74 72 79 20 23 |ar-chmod|-entry #|
|000049b0| 5b 28 6e 65 77 2d 6d 6f | 64 65 29 20 22 c0 20 41 |[(new-mo|de) ". A|
|000049c0| c1 5c 6e 49 88 c3 0c c5 | c6 5c 6e 5c 22 c7 c8 4f |.\nI....|.\n\"..O|
|000049d0| c9 50 5c 22 87 22 20 5b | 74 61 72 2d 63 75 72 72 |.P\"." [|tar-curr|
|000049e0| 65 6e 74 2d 64 65 73 63 | 72 69 70 74 6f 72 20 31 |ent-desc|riptor 1|
|000049f0| 20 6e 65 77 2d 6d 6f 64 | 65 20 74 61 72 2d 61 6c | new-mod|e tar-al|
|00004a00| 74 65 72 2d 6f 6e 65 2d | 66 69 65 6c 64 20 74 61 |ter-one-|field ta|
|00004a10| 72 2d 6d 6f 64 65 2d 6f | 66 66 73 65 74 20 66 6f |r-mode-o|ffset fo|
|00004a20| 72 6d 61 74 20 22 25 36 | 6f 22 20 30 20 36 20 22 |rmat "%6|o" 0 6 "|
|00004a30| 00 20 22 5d 20 35 20 22 | 5c 0a 2a 43 68 61 6e 67 |. "] 5 "|\.*Chang|
|00004a40| 65 20 74 68 65 20 70 72 | 6f 74 65 63 74 69 6f 6e |e the pr|otection|
|00004a50| 20 62 69 74 73 20 61 73 | 73 6f 63 69 61 74 65 64 | bits as|sociated|
|00004a60| 20 77 69 74 68 20 74 68 | 69 73 20 65 6e 74 72 79 | with th|is entry|
|00004a70| 20 69 6e 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 | in the |tar file|
|00004a80| 2e 0a 54 68 69 73 20 64 | 6f 65 73 20 6e 6f 74 20 |..This d|oes not |
|00004a90| 6d 6f 64 69 66 79 20 74 | 68 65 20 64 69 73 6b 20 |modify t|he disk |
|00004aa0| 69 6d 61 67 65 3b 20 79 | 6f 75 20 6d 75 73 74 20 |image; y|ou must |
|00004ab0| 73 61 76 65 20 74 68 65 | 20 74 61 72 20 66 69 6c |save the| tar fil|
|00004ac0| 65 20 69 74 73 65 6c 66 | 0a 66 6f 72 20 74 68 69 |e itself|.for thi|
|00004ad0| 73 20 74 6f 20 62 65 20 | 70 65 72 6d 61 6e 65 6e |s to be |permanen|
|00004ae0| 74 2e 22 20 28 6c 69 73 | 74 20 28 74 61 72 2d 70 |t." (lis|t (tar-p|
|00004af0| 61 72 73 65 2d 6f 63 74 | 61 6c 2d 69 6e 74 65 67 |arse-oct|al-integ|
|00004b00| 65 72 2d 73 61 66 65 20 | 28 72 65 61 64 2d 73 74 |er-safe |(read-st|
|00004b10| 72 69 6e 67 20 22 4e 65 | 77 20 70 72 6f 74 65 63 |ring "Ne|w protec|
|00004b20| 74 69 6f 6e 20 28 6f 63 | 74 61 6c 29 3a 20 22 29 |tion (oc|tal): ")|
|00004b30| 29 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))]).(by|te-code |
|00004b40| 22 c0 c1 c2 5c 22 88 c0 | c3 c4 5c 22 87 22 20 5b |"...\"..|..\"." [|
|00004b50| 64 65 66 61 6c 69 61 73 | 20 74 61 72 2d 61 6c 74 |defalias| tar-alt|
|00004b60| 65 72 2d 6f 6e 65 2d 66 | 69 65 6c 64 20 23 5b 28 |er-one-f|ield #[(|
|00004b70| 64 61 74 61 2d 70 6f 73 | 69 74 69 6f 6e 20 6e 65 |data-pos|ition ne|
|00004b80| 77 2d 64 61 74 61 2d 73 | 74 72 69 6e 67 29 20 22 |w-data-s|tring) "|
|00004b90| c0 20 89 19 41 1a c3 8e | 8a c4 79 88 60 1d c6 79 |. ..A...|..y.`..y|
|00004ba0| 88 0d 60 7c 88 c7 5c 6e | 21 c8 b1 02 88 64 16 09 |..`|..\n|!....d..|
|00004bb0| 29 7e 88 09 40 0e 09 ca | 5c 5c 5c 5c 89 1e 0b 0e |)~..@...|\\\\....|
|00004bc0| 0c 5c 5c 62 88 60 60 0e | 0d 47 5c 5c 7c 88 0e 0d |.\\b.``.|.G\\|...|
|00004bd0| 63 88 ce 0e 0b 89 cf 5c | 5c 7b 21 1e 10 0e 0b 0e |c......\|\{!.....|
|00004be0| 11 5c 5c 62 88 60 60 d2 | 5c 5c 7c 88 d3 d4 0e 10 |.\\b.``.|\\|.....|
|00004bf0| 5c 22 63 88 c4 63 88 d5 | 63 88 5c 6e d6 0e 10 49 |\"c..c..|c.\n...I|
|00004c00| 88 d7 0e 0b 89 cf 5c 5c | 7b 0e 10 5c 6e c4 48 23 |......\\|{..\n.H#|
|00004c10| 2e 06 87 22 20 5b 74 61 | 72 2d 63 75 72 72 65 6e |..." [ta|r-curren|
|00004c20| 74 2d 64 65 73 63 72 69 | 70 74 6f 72 20 64 65 73 |t-descri|ptor des|
|00004c30| 63 72 69 70 74 6f 72 20 | 74 6f 6b 65 6e 73 20 28 |criptor |tokens (|
|00004c40| 28 6e 61 72 72 6f 77 2d | 74 6f 2d 72 65 67 69 6f |(narrow-|to-regio|
|00004c50| 6e 20 31 20 74 61 72 2d | 68 65 61 64 65 72 2d 6f |n 1 tar-|header-o|
|00004c60| 66 66 73 65 74 29 29 20 | 30 20 70 20 31 20 73 75 |ffset)) |0 p 1 su|
|00004c70| 6d 6d 61 72 69 7a 65 2d | 74 61 72 2d 68 65 61 64 |mmarize-|tar-head|
|00004c80| 65 72 2d 62 6c 6f 63 6b | 20 22 5c 6e 22 20 74 61 |er-block| "\n" ta|
|00004c90| 72 2d 68 65 61 64 65 72 | 2d 6f 66 66 73 65 74 20 |r-header|-offset |
|00004ca0| 2d 35 31 33 20 73 74 61 | 72 74 20 64 61 74 61 2d |-513 sta|rt data-|
|00004cb0| 70 6f 73 69 74 69 6f 6e | 20 6e 65 77 2d 64 61 74 |position| new-dat|
|00004cc0| 61 2d 73 74 72 69 6e 67 | 20 63 68 65 63 6b 73 75 |a-string| checksu|
|00004cd0| 6d 2d 74 61 72 2d 68 65 | 61 64 65 72 2d 62 6c 6f |m-tar-he|ader-blo|
|00004ce0| 63 6b 20 35 31 32 20 63 | 68 6b 20 74 61 72 2d 63 |ck 512 c|hk tar-c|
|00004cf0| 68 6b 2d 6f 66 66 73 65 | 74 20 38 20 66 6f 72 6d |hk-offse|t 8 form|
|00004d00| 61 74 20 22 25 36 6f 22 | 20 33 32 20 36 20 63 68 |at "%6o"| 32 6 ch|
|00004d10| 65 63 6b 2d 74 61 72 2d | 68 65 61 64 65 72 2d 62 |eck-tar-|header-b|
|00004d20| 6c 6f 63 6b 2d 63 68 65 | 63 6b 73 75 6d 5d 20 36 |lock-che|cksum] 6|
|00004d30| 5d 20 74 61 72 2d 6f 63 | 74 61 6c 2d 74 69 6d 65 |] tar-oc|tal-time|
|00004d40| 20 23 5b 28 74 69 6d 65 | 76 61 6c 29 20 22 08 40 | #[(time|val) ".@|
|00004d50| 08 41 40 19 1a c3 c4 c5 | 5c 6e c6 5c 22 c7 c5 c8 |.A@.....|\n.\"...|
|00004d60| 5c 6e c9 5c 22 ca 5c 22 | c8 09 cb 5c 22 cc 56 5c |\n.\".\"|...\".V\|
|00004d70| 22 c8 09 cd 5c 22 24 63 | 2a 87 22 20 5b 74 69 6d |"...\"$c|*." [tim|
|00004d80| 65 76 61 6c 20 6c 6f 62 | 69 74 73 20 68 69 62 69 |eval lob|its hibi|
|00004d90| 74 73 20 66 6f 72 6d 61 | 74 20 22 25 30 35 6f 25 |ts forma|t "%05o%|
|00004da0| 30 31 6f 25 30 35 6f 22 | 20 6c 73 68 20 2d 32 20 |01o%05o"| lsh -2 |
|00004db0| 6c 6f 67 69 6f 72 20 6c | 6f 67 61 6e 64 20 33 20 |logior l|ogand 3 |
|00004dc0| 31 20 33 32 37 36 38 20 | 30 20 33 32 37 36 37 5d |1 32768 |0 32767]|
|00004dd0| 20 38 5d 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 | 8]] 3).|(defalia|
|00004de0| 73 20 27 74 61 72 2d 73 | 75 62 66 69 6c 65 2d 73 |s 'tar-s|ubfile-s|
|00004df0| 61 76 65 2d 62 75 66 66 | 65 72 20 23 5b 6e 69 6c |ave-buff|er #[nil|
|00004e00| 20 22 c0 c1 21 83 5c 6e | 00 09 84 0e 00 c2 c3 21 | "..!.\n|.......!|
|00004e10| 88 c0 c4 21 83 18 00 0c | 84 1c 00 c2 c5 21 88 8a |...!....|.....!..|
|00004e20| 70 c6 20 0c 1e 07 1e 08 | 1e 09 09 71 88 0e 07 41 |p. .....|...q...A|
|00004e30| 1e 5c 6e 0e 07 40 1e 0b | 0e 5c 6e cc 48 1e 0d 0e |.\n..@..|.\n.H...|
|00004e40| 5c 6e ce 48 1e 0f d0 89 | 0e 0f d1 5c 5c d2 5c 22 |\n.H....|...\\.\"|
|00004e50| d3 5c 22 1e 14 0e 07 0e | 15 3e 89 1e 16 41 1e 17 |.\".....|.>...A..|
|00004e60| 0e 16 84 60 00 c2 d8 21 | 88 d9 8e 8a 7e 88 0e 0b |...`...!|....~...|
|00004e70| 0e 1a db 5c 5c 5c 5c 89 | 1e 1c d0 89 0e 0f d1 5c |...\\\\.|.......\|
|00004e80| 5c d2 5c 22 d3 5c 22 5c | 5c 1e 1d 0e 1c 0e 1d 7c |\.\".\"\|\......||
|00004e90| 88 0e 1c 62 88 de 0e 09 | 21 88 d0 89 0e 08 d1 5c |...b....|!......\|
|00004ea0| 5c d2 5c 22 d3 5c 22 1e | 1f 0e 1c 0e 08 5c 5c 62 |\.\".\".|.....\\b|
|00004eb0| 88 e0 0e 1f 0e 08 5a cc | 5c 22 63 88 0e 5c 6e ce |......Z.|\"c..\n.|
|00004ec0| 0e 08 49 88 0e 1f 0e 14 | 5a 1e 21 0e 17 1e 5c 22 |..I.....|Z.!...\"|
|00004ed0| 0e 5c 22 83 d5 00 0e 5c | 22 40 89 1e 23 89 40 0e |.\"....\|"@..#.@.|
|00004ee0| 21 5c 5c a0 88 0e 5c 22 | 41 16 5c 22 29 82 ba 00 |!\\...\"|A.\")...|
|00004ef0| 2a 0e 1c e4 5a 89 1e 25 | 0e 26 5c 5c 62 88 60 60 |*...Z..%|.&\\b.``|
|00004f00| e7 5c 5c 7c 88 e8 e9 0e | 08 5c 22 63 88 ea 63 88 |.\\|....|.\"c..c.|
|00004f10| 0e 2b 83 0d 01 0e 25 0e | 2c 5c 5c 62 88 60 60 e7 |.+....%.|,\\b.``.|
|00004f20| 5c 5c 7c 88 ed ee 20 21 | 63 88 ea 63 88 ef 0e 25 |\\|... !|c..c...%|
|00004f30| 0e 1c 7b 21 1e 30 0e 25 | 0e 31 5c 5c 62 88 60 60 |..{!.0.%|.1\\b.``|
|00004f40| f2 5c 5c 7c 88 e8 f3 0e | 30 5c 22 63 88 cc 63 88 |.\\|....|0\"c..c.|
|00004f50| ea 63 88 0e 5c 6e f4 0e | 30 49 88 2a 0e 15 47 0e |.c..\n..|0I.*..G.|
|00004f60| 16 47 5a 1e 35 f6 62 88 | f7 0e 35 21 88 cc 79 88 |.GZ.5.b.|..5!..y.|
|00004f70| 60 f8 20 0e 1a f9 93 1e | 3a 1e 3b f6 79 88 0e 3b |`. .....|:.;.y..;|
|00004f80| 60 7c 88 fc fd 0e 5c 6e | fe 5c 22 ff 5c 22 88 81 |`|....\n|.\".\"..|
|00004f90| 40 00 0e 3a 21 16 1a 2e | 06 81 41 00 20 88 2e 09 |@..:!...|..A. ...|
|00004fa0| 81 42 00 fe 21 88 0e 09 | 71 88 81 42 00 f9 21 88 |.B..!...|q..B..!.|
|00004fb0| 81 43 00 81 44 00 81 45 | 00 09 21 5c 22 2c 87 22 |.C..D..E|..!\",."|
|00004fc0| 20 5b 62 6f 75 6e 64 70 | 20 74 61 72 2d 73 75 70 | [boundp| tar-sup|
|00004fd0| 65 72 69 6f 72 2d 62 75 | 66 66 65 72 20 65 72 72 |erior-bu|ffer err|
|00004fe0| 6f 72 20 22 74 68 69 73 | 20 62 75 66 66 65 72 20 |or "this| buffer |
|00004ff0| 68 61 73 20 6e 6f 20 73 | 75 70 65 72 69 6f 72 20 |has no s|uperior |
|00005000| 74 61 72 20 66 69 6c 65 | 20 62 75 66 66 65 72 2e |tar file| buffer.|
|00005010| 22 20 74 61 72 2d 73 75 | 70 65 72 69 6f 72 2d 64 |" tar-su|perior-d|
|00005020| 65 73 63 72 69 70 74 6f | 72 20 22 74 68 69 73 20 |escripto|r "this |
|00005030| 62 75 66 66 65 72 20 64 | 6f 65 73 6e 27 74 20 68 |buffer d|oesn't h|
|00005040| 61 76 65 20 61 6e 20 69 | 6e 64 65 78 20 69 6e 74 |ave an i|ndex int|
|00005050| 6f 20 69 74 73 20 73 75 | 70 65 72 69 6f 72 20 74 |o its su|perior t|
|00005060| 61 72 20 66 69 6c 65 21 | 22 20 62 75 66 66 65 72 |ar file!|" buffer|
|00005070| 2d 73 69 7a 65 20 64 65 | 73 63 72 69 70 74 6f 72 |-size de|scriptor|
|00005080| 20 73 75 62 66 69 6c 65 | 2d 73 69 7a 65 20 73 75 | subfile|-size su|
|00005090| 62 66 69 6c 65 20 74 6f | 6b 65 6e 73 20 73 74 61 |bfile to|kens sta|
|000050a0| 72 74 20 30 20 6e 61 6d | 65 20 34 20 73 69 7a 65 |rt 0 nam|e 4 size|
|000050b0| 20 61 73 68 20 35 31 31 | 20 2d 39 20 39 20 73 69 | ash 511| -9 9 si|
|000050c0| 7a 65 2d 70 61 64 20 74 | 61 72 2d 70 61 72 73 65 |ze-pad t|ar-parse|
|000050d0| 2d 69 6e 66 6f 20 68 65 | 61 64 20 66 6f 6c 6c 6f |-info he|ad follo|
|000050e0| 77 69 6e 67 2d 64 65 73 | 63 73 20 22 43 61 6e 27 |wing-des|cs "Can'|
|000050f0| 74 20 66 69 6e 64 20 74 | 68 69 73 20 74 61 72 20 |t find t|his tar |
|00005100| 66 69 6c 65 20 65 6e 74 | 72 79 20 69 6e 20 69 74 |file ent|ry in it|
|00005110| 73 20 70 61 72 65 6e 74 | 20 74 61 72 20 66 69 6c |s parent| tar fil|
|00005120| 65 21 22 20 28 28 6e 61 | 72 72 6f 77 2d 74 6f 2d |e!" ((na|rrow-to-|
|00005130| 72 65 67 69 6f 6e 20 31 | 20 74 61 72 2d 68 65 61 |region 1| tar-hea|
|00005140| 64 65 72 2d 6f 66 66 73 | 65 74 29 29 20 74 61 72 |der-offs|et)) tar|
|00005150| 2d 68 65 61 64 65 72 2d | 6f 66 66 73 65 74 20 2d |-header-|offset -|
|00005160| 31 20 64 61 74 61 2d 73 | 74 61 72 74 20 64 61 74 |1 data-s|tart dat|
|00005170| 61 2d 65 6e 64 20 69 6e | 73 65 72 74 2d 62 75 66 |a-end in|sert-buf|
|00005180| 66 65 72 20 73 75 62 66 | 69 6c 65 2d 73 69 7a 65 |fer subf|ile-size|
|00005190| 2d 70 61 64 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |-pad mak|e-string|
|000051a0| 20 64 69 66 66 65 72 65 | 6e 63 65 20 5f 64 6f 6c | differe|nce _dol|
|000051b0| 69 73 74 5f 69 74 65 72 | 61 74 6f 72 5f 20 64 65 |ist_iter|ator_ de|
|000051c0| 73 63 20 35 31 32 20 68 | 65 61 64 65 72 2d 73 74 |sc 512 h|eader-st|
|000051d0| 61 72 74 20 74 61 72 2d | 73 69 7a 65 2d 6f 66 66 |art tar-|size-off|
|000051e0| 73 65 74 20 31 32 20 66 | 6f 72 6d 61 74 20 22 25 |set 12 f|ormat "%|
|000051f0| 31 31 6f 22 20 33 32 20 | 74 61 72 2d 75 70 64 61 |11o" 32 |tar-upda|
|00005200| 74 65 2d 64 61 74 65 73 | 74 61 6d 70 20 74 61 72 |te-dates|tamp tar|
|00005210| 2d 74 69 6d 65 2d 6f 66 | 66 73 65 74 20 74 61 72 |-time-of|fset tar|
|00005220| 2d 6f 63 74 61 6c 2d 74 | 69 6d 65 20 63 75 72 72 |-octal-t|ime curr|
|00005230| 65 6e 74 2d 74 69 6d 65 | 20 63 68 65 63 6b 73 75 |ent-time| checksu|
|00005240| 6d 2d 74 61 72 2d 68 65 | 61 64 65 72 2d 62 6c 6f |m-tar-he|ader-blo|
|00005250| 63 6b 20 63 68 6b 20 74 | 61 72 2d 63 68 6b 2d 6f |ck chk t|ar-chk-o|
|00005260| 66 66 73 65 74 20 38 20 | 22 25 36 6f 22 20 36 20 |ffset 8 |"%6o" 6 |
|00005270| 70 6f 73 69 74 69 6f 6e | 20 31 20 6e 65 78 74 2d |position| 1 next-|
|00005280| 6c 69 6e 65 20 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |line mak|e-marker|
|00005290| 20 6e 69 6c 20 6d 20 70 | 20 69 6e 73 65 72 74 2d | nil m p| insert-|
|000052a0| 62 65 66 6f 72 65 2d 6d | 61 72 6b 65 72 73 20 73 |before-m|arkers s|
|000052b0| 75 6d 6d 61 72 69 7a 65 | 2d 74 61 72 2d 68 65 61 |ummarize|-tar-hea|
|000052c0| 64 65 72 2d 62 6c 6f 63 | 6b 20 74 20 22 5c 6e 22 |der-bloc|k t "\n"|
|000052d0| 20 6d 61 72 6b 65 72 2d | 70 6f 73 69 74 69 6f 6e | marker-|position|
|000052e0| 20 74 61 72 2d 70 61 64 | 2d 74 6f 2d 62 6c 6f 63 | tar-pad|-to-bloc|
|000052f0| 6b 73 69 7a 65 20 73 65 | 74 2d 62 75 66 66 65 72 |ksize se|t-buffer|
|00005300| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6d 65 73 73 |-modifie|d-p mess|
|00005310| 61 67 65 20 22 73 61 76 | 65 64 20 69 6e 74 6f 20 |age "sav|ed into |
|00005320| 74 61 72 2d 62 75 66 66 | 65 72 20 5c 22 25 73 5c |tar-buff|er \"%s\|
|00005330| 22 20 2d 20 72 65 6d 65 | 6d 62 65 72 20 74 6f 20 |" - reme|mber to |
|00005340| 73 61 76 65 20 74 68 61 | 74 20 62 75 66 66 65 72 |save tha|t buffer|
|00005350| 21 22 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 5d 20 |!" buffe|r-name] |
|00005360| 36 20 22 5c 0a 49 6e 20 | 74 61 72 20 73 75 62 66 |6 "\.In |tar subf|
|00005370| 69 6c 65 20 6d 6f 64 65 | 2c 20 77 72 69 74 65 20 |ile mode|, write |
|00005380| 74 68 69 73 20 62 75 66 | 66 65 72 20 62 61 63 6b |this buf|fer back|
|00005390| 20 69 6e 74 6f 20 69 74 | 73 20 70 61 72 65 6e 74 | into it|s parent|
|000053a0| 20 74 61 72 2d 66 69 6c | 65 20 62 75 66 66 65 72 | tar-fil|e buffer|
|000053b0| 2e 0a 54 68 69 73 20 64 | 6f 65 73 6e 27 74 20 77 |..This d|oesn't w|
|000053c0| 72 69 74 65 20 61 6e 79 | 74 68 69 6e 67 20 74 6f |rite any|thing to|
|000053d0| 20 64 69 73 6b 20 2d 20 | 79 6f 75 20 6d 75 73 74 | disk - |you must|
|000053e0| 20 73 61 76 65 20 74 68 | 65 20 70 61 72 65 6e 74 | save th|e parent|
|000053f0| 20 74 61 72 2d 66 69 6c | 65 20 62 75 66 66 65 72 | tar-fil|e buffer|
|00005400| 0a 74 6f 20 6d 61 6b 65 | 20 79 6f 75 72 20 63 68 |.to make| your ch|
|00005410| 61 6e 67 65 73 20 70 65 | 72 6d 61 6e 65 6e 74 2e |anges pe|rmanent.|
|00005420| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00005430| 73 20 27 74 61 72 2d 70 | 61 64 2d 74 6f 2d 62 6c |s 'tar-p|ad-to-bl|
|00005440| 6f 63 6b 73 69 7a 65 20 | 23 5b 6e 69 6c 20 22 08 |ocksize |#[nil ".|
|00005450| 3f 3f 85 7f 00 7e 88 09 | 47 53 09 38 89 1a 40 1b |??...~..|GS.8..@.|
|00005460| 5c 6e 41 89 1c c5 48 89 | 1e 06 83 21 00 c7 82 24 |\nA...H.|...!...$|
|00005470| 00 0c c8 48 1e 09 0b 0e | 09 5c 5c 1e 5c 6e cb 08 |...H....|.\\.\n..|
|00005480| cc 5c 22 89 1e 0d 89 0e | 5c 6e 53 0e 0d a5 5f 5c |.\".....|\nS..._\|
|00005490| 5c 1e 0e cf 1e 10 0e 11 | 86 47 00 c7 0e 5c 6e 5c |\.......|.G...\n\|
|000054a0| 5c 62 88 d2 20 54 0e 11 | 86 55 00 c7 0e 0e 5c 5c |\b.. T..|.U....\\|
|000054b0| 56 83 6c 00 0e 11 86 62 | 00 c7 0e 0e 5c 5c d2 20 |V.l....b|....\\. |
|000054c0| 54 7c 82 7d 00 d3 0e 11 | 86 73 00 c7 0e 0e 5c 5c |T|.}....|.s....\\|
|000054d0| d2 20 54 5a c7 5c 22 63 | 2e 09 87 22 20 5b 74 61 |. TZ.\"c|..." [ta|
|000054e0| 72 2d 61 6e 61 6c 2d 62 | 6c 6f 63 6b 73 69 7a 65 |r-anal-b|locksize|
|000054f0| 20 74 61 72 2d 70 61 72 | 73 65 2d 69 6e 66 6f 20 | tar-par|se-info |
|00005500| 6c 61 73 74 2d 64 65 73 | 63 20 73 74 61 72 74 20 |last-des|c start |
|00005510| 74 6f 6b 65 6e 73 20 37 | 20 6c 69 6e 6b 2d 70 20 |tokens 7| link-p |
|00005520| 30 20 34 20 73 69 7a 65 | 20 64 61 74 61 2d 65 6e |0 4 size| data-en|
|00005530| 64 20 61 73 68 20 39 20 | 62 62 79 74 65 73 20 70 |d ash 9 |bbytes p|
|00005540| 61 64 2d 74 6f 20 6e 69 | 6c 20 62 75 66 66 65 72 |ad-to ni|l buffer|
|00005550| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 74 61 72 2d 68 |-read-on|ly tar-h|
|00005560| 65 61 64 65 72 2d 6f 66 | 66 73 65 74 20 62 75 66 |eader-of|fset buf|
|00005570| 66 65 72 2d 73 69 7a 65 | 20 6d 61 6b 65 2d 73 74 |fer-size| make-st|
|00005580| 72 69 6e 67 5d 20 35 20 | 22 5c 0a 49 66 20 77 65 |ring] 5 |"\.If we|
|00005590| 20 61 72 65 20 62 65 69 | 6e 67 20 61 6e 61 6c 20 | are bei|ng anal |
|000055a0| 61 62 6f 75 74 20 74 61 | 72 20 66 69 6c 65 20 62 |about ta|r file b|
|000055b0| 6c 6f 63 6b 73 69 7a 65 | 73 2c 20 66 69 78 20 75 |locksize|s, fix u|
|000055c0| 70 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |p the cu|rrent bu|
|000055d0| 66 66 65 72 2e 0a 4c 65 | 61 76 65 73 20 74 68 65 |ffer..Le|aves the|
|000055e0| 20 72 65 67 69 6f 6e 20 | 77 69 64 65 2e 22 5d 29 | region |wide."])|
|000055f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 61 79 62 |.(defali|as 'mayb|
|00005600| 65 2d 77 72 69 74 65 2d | 74 61 72 2d 66 69 6c 65 |e-write-|tar-file|
|00005610| 20 23 5b 6e 69 6c 20 22 | 08 c1 3d 85 25 00 c2 c3 | #[nil "|..=.%...|
|00005620| 21 85 25 00 0b 85 25 00 | c4 8e 8a c5 20 88 7e 88 |!.%...%.|.... .~.|
|00005630| c6 0b c7 20 54 0e 08 c9 | ca 25 88 2a ca 87 22 20 |... T...|.%.*.." |
|00005640| 5b 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 74 61 72 2d |[major-m|ode tar-|
|00005650| 6d 6f 64 65 20 62 6f 75 | 6e 64 70 20 74 61 72 2d |mode bou|ndp tar-|
|00005660| 68 65 61 64 65 72 2d 6f | 66 66 73 65 74 20 28 28 |header-o|ffset ((|
|00005670| 6e 61 72 72 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |narrow-t|o-region|
|00005680| 20 31 20 74 61 72 2d 68 | 65 61 64 65 72 2d 6f 66 | 1 tar-h|eader-of|
|00005690| 66 73 65 74 29 29 20 74 | 61 72 2d 63 6c 65 61 72 |fset)) t|ar-clear|
|000056a0| 2d 6d 6f 64 69 66 69 63 | 61 74 69 6f 6e 2d 66 6c |-modific|ation-fl|
|000056b0| 61 67 73 20 77 72 69 74 | 65 2d 72 65 67 69 6f 6e |ags writ|e-region|
|000056c0| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 62 75 66 | buffer-|size buf|
|000056d0| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 6e 69 |fer-file|-name ni|
|000056e0| 6c 20 74 5d 20 36 20 22 | 5c 0a 55 73 65 64 20 61 |l t] 6 "|\.Used a|
|000056f0| 73 20 61 20 77 72 69 74 | 65 2d 66 69 6c 65 2d 68 |s a writ|e-file-h|
|00005700| 6f 6f 6b 20 74 6f 20 77 | 72 69 74 65 20 74 61 72 |ook to w|rite tar|
|00005710| 2d 66 69 6c 65 73 20 6f | 75 74 20 63 6f 72 72 65 |-files o|ut corre|
|00005720| 63 74 6c 79 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |ctly."])|.(byte-c|
|00005730| 6f 64 65 20 22 c0 09 3e | 84 5c 6e 00 c0 09 42 11 |ode "..>|.\n...B.|
|00005740| c2 c3 21 87 22 20 5b 6d | 61 79 62 65 2d 77 72 69 |..!." [m|aybe-wri|
|00005750| 74 65 2d 74 61 72 2d 66 | 69 6c 65 20 77 72 69 74 |te-tar-f|ile writ|
|00005760| 65 2d 66 69 6c 65 2d 68 | 6f 6f 6b 73 20 70 72 6f |e-file-h|ooks pro|
|00005770| 76 69 64 65 20 74 61 72 | 2d 6d 6f 64 65 5d 20 32 |vide tar|-mode] 2|
|00005780| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+