home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 67 7a 40 | 73 70 74 2e 65 6e 74 69 |From gz@|spt.enti|
|00000010| 74 79 2e 63 6f 6d 20 54 | 68 75 20 4d 61 79 20 31 |ty.com T|hu May 1|
|00000020| 39 20 32 33 3a 31 35 3a | 30 32 20 31 39 38 38 0a |9 23:15:|02 1988.|
|00000030| 50 61 74 68 3a 20 75 74 | 61 73 74 72 6f 21 75 74 |Path: ut|astro!ut|
|00000040| 2d 73 61 6c 6c 79 21 75 | 75 6e 65 74 21 63 63 69 |-sally!u|unet!cci|
|00000050| 63 70 67 21 66 65 6c 69 | 78 21 64 68 77 36 38 6b |cpg!feli|x!dhw68k|
|00000060| 21 6d 61 63 69 6e 74 6f | 73 68 0a 46 72 6f 6d 3a |!macinto|sh.From:|
|00000070| 20 67 7a 40 73 70 74 2e | 65 6e 74 69 74 79 2e 63 | gz@spt.|entity.c|
|00000080| 6f 6d 20 28 47 61 69 6c | 20 5a 61 63 68 61 72 69 |om (Gail| Zachari|
|00000090| 61 73 29 0a 4e 65 77 73 | 67 72 6f 75 70 73 3a 20 |as).News|groups: |
|000000a0| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 6d 61 63 |comp.sou|rces.mac|
|000000b0| 0a 53 75 62 6a 65 63 74 | 3a 20 4d 50 57 20 74 61 |.Subject|: MPW ta|
|000000c0| 72 2f 75 6e 74 61 72 20 | 74 6f 6f 6c 73 0a 4d 65 |r/untar |tools.Me|
|000000d0| 73 73 61 67 65 2d 49 44 | 3a 20 3c 38 31 31 39 40 |ssage-ID|: <8119@|
|000000e0| 64 68 77 36 38 6b 2e 63 | 74 73 2e 63 6f 6d 3e 0a |dhw68k.c|ts.com>.|
|000000f0| 44 61 74 65 3a 20 32 30 | 20 4d 61 79 20 38 38 20 |Date: 20| May 88 |
|00000100| 30 34 3a 31 35 3a 30 32 | 20 47 4d 54 0a 53 65 6e |04:15:02| GMT.Sen|
|00000110| 64 65 72 3a 20 6e 65 77 | 73 40 64 68 77 36 38 6b |der: new|s@dhw68k|
|00000120| 2e 63 74 73 2e 63 6f 6d | 0a 4f 72 67 61 6e 69 7a |.cts.com|.Organiz|
|00000130| 61 74 69 6f 6e 3a 20 54 | 68 65 20 45 6e 74 69 74 |ation: T|he Entit|
|00000140| 79 2c 20 43 61 6d 62 72 | 69 64 67 65 2c 20 4d 41 |y, Cambr|idge, MA|
|00000150| 0a 4c 69 6e 65 73 3a 20 | 31 30 35 35 0a 41 70 70 |.Lines: |1055.App|
|00000160| 72 6f 76 65 64 3a 20 62 | 79 74 65 62 75 67 40 64 |roved: b|ytebug@d|
|00000170| 68 77 36 38 6b 2e 63 74 | 73 2e 63 6f 6d 20 28 52 |hw68k.ct|s.com (R|
|00000180| 6f 67 65 72 20 4c 2e 20 | 4c 6f 6e 67 29 0a 0a 5b |oger L. |Long)..[|
|00000190| 4d 50 57 20 74 61 72 2f | 75 6e 74 61 72 20 74 6f |MPW tar/|untar to|
|000001a0| 6f 6c 73 5d 0a 0a 54 68 | 65 73 65 20 61 72 65 20 |ols]..Th|ese are |
|000001b0| 74 68 65 20 73 6f 75 72 | 63 65 73 20 66 6f 72 20 |the sour|ces for |
|000001c0| 74 77 6f 20 4d 50 57 20 | 74 6f 6f 6c 73 3a 20 20 |two MPW |tools: |
|000001d0| 6d 74 61 72 20 63 72 65 | 61 74 65 73 20 75 6e 69 |mtar cre|ates uni|
|000001e0| 78 2d 63 6f 6d 70 61 74 | 69 62 6c 65 0a 74 61 72 |x-compat|ible.tar|
|000001f0| 20 61 72 63 68 69 76 65 | 73 2c 20 61 6e 64 20 6d | archive|s, and m|
|00000200| 75 6e 74 61 72 20 65 78 | 74 72 61 63 74 73 20 73 |untar ex|tracts s|
|00000210| 6f 6d 65 20 6f 72 20 61 | 6c 6c 20 66 69 6c 65 73 |ome or a|ll files|
|00000220| 20 66 72 6f 6d 20 61 20 | 74 61 72 20 61 72 63 68 | from a |tar arch|
|00000230| 69 76 65 2e 0a 46 69 6c | 65 73 20 61 72 65 20 6e |ive..Fil|es are n|
|00000240| 6f 72 6d 61 6c 6c 79 20 | 73 74 6f 72 65 64 20 69 |ormally |stored i|
|00000250| 6e 20 6d 61 63 62 69 6e | 61 72 79 20 66 6f 72 6d |n macbin|ary form|
|00000260| 61 74 20 73 6f 20 74 68 | 61 74 20 62 6f 74 68 20 |at so th|at both |
|00000270| 66 6f 72 6b 73 2c 20 61 | 73 0a 77 65 6c 6c 20 61 |forks, a|s.well a|
|00000280| 73 20 74 68 65 20 6d 61 | 63 69 6e 74 6f 73 68 20 |s the ma|cintosh |
|00000290| 66 69 6c 65 20 69 6e 66 | 6f 2c 20 6f 66 20 65 61 |file inf|o, of ea|
|000002a0| 63 68 20 66 69 6c 65 20 | 61 72 65 20 70 72 65 73 |ch file |are pres|
|000002b0| 65 72 76 65 64 2e 20 20 | 4d 50 57 0a 77 69 6c 64 |erved. |MPW.wild|
|000002c0| 63 61 72 64 20 66 61 63 | 69 6c 69 74 69 65 73 20 |card fac|ilities |
|000002d0| 63 61 6e 20 62 65 20 75 | 73 65 64 20 74 6f 20 73 |can be u|sed to s|
|000002e0| 65 6c 65 63 74 20 74 68 | 65 20 66 69 6c 65 73 20 |elect th|e files |
|000002f0| 74 6f 20 62 65 20 61 72 | 63 68 69 76 65 64 2e 0a |to be ar|chived..|
|00000300| 0a 2d 2d 2d 0a 23 21 20 | 2f 62 69 6e 2f 73 68 0a |.---.#! |/bin/sh.|
|00000310| 23 20 54 68 69 73 20 69 | 73 20 61 20 73 68 65 6c |# This i|s a shel|
|00000320| 6c 20 61 72 63 68 69 76 | 65 2c 20 6d 65 61 6e 69 |l archiv|e, meani|
|00000330| 6e 67 3a 0a 23 20 31 2e | 20 52 65 6d 6f 76 65 20 |ng:.# 1.| Remove |
|00000340| 65 76 65 72 79 74 68 69 | 6e 67 20 61 62 6f 76 65 |everythi|ng above|
|00000350| 20 74 68 65 20 23 21 20 | 2f 62 69 6e 2f 73 68 20 | the #! |/bin/sh |
|00000360| 6c 69 6e 65 2e 0a 23 20 | 32 2e 20 53 61 76 65 20 |line..# |2. Save |
|00000370| 74 68 65 20 72 65 73 75 | 6c 74 69 6e 67 20 74 65 |the resu|lting te|
|00000380| 78 74 20 69 6e 20 61 20 | 66 69 6c 65 2e 0a 23 20 |xt in a |file..# |
|00000390| 33 2e 20 45 78 65 63 75 | 74 65 20 74 68 65 20 66 |3. Execu|te the f|
|000003a0| 69 6c 65 20 77 69 74 68 | 20 2f 62 69 6e 2f 73 68 |ile with| /bin/sh|
|000003b0| 20 28 6e 6f 74 20 63 73 | 68 29 20 74 6f 20 63 72 | (not cs|h) to cr|
|000003c0| 65 61 74 65 20 74 68 65 | 20 66 69 6c 65 73 3a 0a |eate the| files:.|
|000003d0| 23 09 52 45 41 44 4d 45 | 0a 23 09 6d 61 6b 65 66 |#.README|.#.makef|
|000003e0| 69 6c 65 2e 68 71 78 0a | 23 09 6d 74 61 72 2e 63 |ile.hqx.|#.mtar.c|
|000003f0| 0a 23 09 6d 75 6e 74 61 | 72 2e 63 0a 23 20 54 68 |.#.munta|r.c.# Th|
|00000400| 69 73 20 61 72 63 68 69 | 76 65 20 63 72 65 61 74 |is archi|ve creat|
|00000410| 65 64 3a 20 54 68 75 20 | 4d 61 79 20 31 39 20 30 |ed: Thu |May 19 0|
|00000420| 37 3a 35 36 3a 30 39 20 | 31 39 38 38 0a 23 20 42 |7:56:09 |1988.# B|
|00000430| 79 3a 09 52 6f 67 65 72 | 20 4c 2e 20 4c 6f 6e 67 |y:.Roger| L. Long|
|00000440| 20 28 29 0a 65 78 70 6f | 72 74 20 50 41 54 48 3b | ().expo|rt PATH;|
|00000450| 20 50 41 54 48 3d 2f 62 | 69 6e 3a 24 50 41 54 48 | PATH=/b|in:$PATH|
|00000460| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 65 78 74 72 |.echo sh|ar: extr|
|00000470| 61 63 74 69 6e 67 20 22 | 27 52 45 41 44 4d 45 27 |acting "|'README'|
|00000480| 22 20 27 28 31 30 36 30 | 20 63 68 61 72 61 63 74 |" '(1060| charact|
|00000490| 65 72 73 29 27 0a 69 66 | 20 74 65 73 74 20 2d 66 |ers)'.if| test -f|
|000004a0| 20 27 52 45 41 44 4d 45 | 27 0a 74 68 65 6e 0a 09 | 'README|'.then..|
|000004b0| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|000004c0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000004d0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 52 |xisting |file "'R|
|000004e0| 45 41 44 4d 45 27 22 0a | 65 6c 73 65 0a 73 65 64 |EADME'".|else.sed|
|000004f0| 20 27 73 2f 5e 58 2f 2f | 27 20 3c 3c 20 5c 53 48 | 's/^X//|' << \SH|
|00000500| 41 52 5f 45 4f 46 20 3e | 20 27 52 45 41 44 4d 45 |AR_EOF >| 'README|
|00000510| 27 0a 58 59 6f 75 20 73 | 68 6f 75 6c 64 20 68 61 |'.XYou s|hould ha|
|00000520| 76 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ve the f|ollowing|
|00000530| 20 66 69 6c 65 73 3a 0a | 58 0a 58 6d 74 61 72 2e | files:.|X.Xmtar.|
|00000540| 63 20 2d 20 28 4d 50 57 | 20 43 20 73 6f 75 72 63 |c - (MPW| C sourc|
|00000550| 65 29 20 41 6e 20 4d 50 | 57 20 74 6f 6f 6c 20 66 |e) An MP|W tool f|
|00000560| 6f 72 20 63 72 65 61 74 | 69 6e 67 20 75 6e 69 78 |or creat|ing unix|
|00000570| 2d 63 6f 6d 70 61 74 69 | 62 6c 65 20 74 61 72 20 |-compati|ble tar |
|00000580| 61 72 63 68 69 76 65 73 | 2e 0a 58 20 20 20 20 20 |archives|..X |
|00000590| 20 20 20 42 79 20 64 65 | 66 61 75 6c 74 2c 20 66 | By de|fault, f|
|000005a0| 69 6c 65 73 20 61 72 65 | 20 73 74 6f 72 65 64 20 |iles are| stored |
|000005b0| 69 6e 20 74 68 65 20 73 | 6f 2d 63 61 6c 6c 65 64 |in the s|o-called|
|000005c0| 20 6d 61 63 62 69 6e 61 | 72 79 20 66 6f 72 6d 61 | macbina|ry forma|
|000005d0| 74 2c 20 77 68 69 63 68 | 0a 58 09 6d 65 61 6e 73 |t, which|.X.means|
|000005e0| 20 74 68 61 74 20 62 6f | 74 68 20 66 6f 72 6b 73 | that bo|th forks|
|000005f0| 20 6f 66 20 74 68 65 20 | 6d 61 63 69 6e 74 6f 73 | of the |macintos|
|00000600| 68 20 66 69 6c 65 20 61 | 72 65 20 73 74 6f 72 65 |h file a|re store|
|00000610| 64 2c 20 61 6c 6f 6e 67 | 20 77 69 74 68 0a 58 09 |d, along| with.X.|
|00000620| 6d 61 63 69 6e 74 6f 73 | 68 20 66 69 6c 65 20 69 |macintos|h file i|
|00000630| 6e 66 6f 20 28 74 79 70 | 65 2c 20 63 72 65 61 74 |nfo (typ|e, creat|
|00000640| 6f 72 2c 20 6d 61 63 20 | 66 69 6c 65 6e 61 6d 65 |or, mac |filename|
|00000650| 2c 20 66 69 6c 65 20 64 | 61 74 65 73 29 2e 20 54 |, file d|ates). T|
|00000660| 68 69 73 0a 58 09 69 6e | 20 74 75 72 6e 20 6d 65 |his.X.in| turn me|
|00000670| 61 6e 73 20 74 68 61 74 | 20 79 6f 75 20 63 61 6e |ans that| you can|
|00000680| 20 75 6e 74 61 72 20 74 | 68 65 20 61 72 63 68 69 | untar t|he archi|
|00000690| 76 65 20 6f 6e 20 75 6e | 69 78 2c 20 61 6e 64 20 |ve on un|ix, and |
|000006a0| 64 6f 77 6e 6c 6f 61 64 | 0a 58 09 73 65 6c 65 63 |download|.X.selec|
|000006b0| 74 65 64 20 66 69 6c 65 | 73 20 75 73 69 6e 67 20 |ted file|s using |
|000006c0| 74 68 65 20 27 6d 61 63 | 62 69 6e 61 72 79 27 20 |the 'mac|binary' |
|000006d0| 6f 70 74 69 6f 6e 20 6f | 66 20 79 6f 75 72 20 66 |option o|f your f|
|000006e0| 61 76 6f 72 69 74 65 0a | 58 09 63 6f 6d 6d 75 6e |avorite.|X.commun|
|000006f0| 69 63 61 74 69 6f 6e 20 | 70 72 6f 67 72 61 6d 2e |ication |program.|
|00000700| 0a 58 09 4f 66 20 63 6f | 75 72 73 65 20 74 68 65 |.X.Of co|urse the|
|00000710| 72 65 20 69 73 20 61 6e | 20 6f 70 74 69 6f 6e 20 |re is an| option |
|00000720| 6f 66 20 73 74 6f 72 69 | 6e 67 20 6f 6e 6c 79 20 |of stori|ng only |
|00000730| 64 61 74 61 20 66 6f 72 | 6b 73 20 6f 66 20 66 69 |data for|ks of fi|
|00000740| 6c 65 73 2e 0a 58 09 44 | 6f 20 27 6d 74 61 72 20 |les..X.D|o 'mtar |
|00000750| 2d 48 27 20 66 6f 72 20 | 61 20 73 68 6f 72 74 20 |-H' for |a short |
|00000760| 68 65 6c 70 20 6d 65 73 | 73 61 67 65 2e 0a 58 6d |help mes|sage..Xm|
|00000770| 75 6e 74 61 72 2e 63 20 | 2d 20 28 4d 50 57 20 43 |untar.c |- (MPW C|
|00000780| 20 73 6f 75 72 63 65 29 | 20 41 6e 20 4d 50 57 20 | source)| An MPW |
|00000790| 74 6f 6f 6c 20 66 6f 72 | 20 65 78 74 72 61 63 74 |tool for| extract|
|000007a0| 69 6e 67 20 66 69 6c 65 | 73 20 66 72 6f 6d 0a 58 |ing file|s from.X|
|000007b0| 09 75 6e 69 78 2d 63 6f | 6d 70 61 74 69 62 6c 65 |.unix-co|mpatible|
|000007c0| 20 74 61 72 20 61 72 63 | 68 69 76 65 73 2e 20 20 | tar arc|hives. |
|000007d0| 59 6f 75 20 63 61 6e 20 | 65 78 74 72 61 63 74 20 |You can |extract |
|000007e0| 69 6e 64 69 76 69 64 75 | 61 6c 20 66 69 6c 65 73 |individu|al files|
|000007f0| 0a 58 09 6f 72 20 75 6e | 70 61 63 6b 20 74 68 65 |.X.or un|pack the|
|00000800| 20 77 68 6f 6c 65 20 61 | 72 63 68 69 76 65 2e 20 | whole a|rchive. |
|00000810| 20 6d 75 6e 74 61 72 20 | 77 69 6c 6c 20 61 75 74 | muntar |will aut|
|00000820| 6f 6d 61 74 69 63 61 6c | 6c 79 20 72 65 63 6f 67 |omatical|ly recog|
|00000830| 6e 69 7a 65 0a 58 09 66 | 69 6c 65 73 20 73 74 6f |nize.X.f|iles sto|
|00000840| 72 65 64 20 69 6e 20 6d | 61 63 62 69 6e 61 72 79 |red in m|acbinary|
|00000850| 20 66 6f 72 6d 61 74 2c | 20 61 6e 64 20 27 75 6e | format,| and 'un|
|00000860| 6d 61 63 62 69 6e 61 72 | 79 27 20 74 68 65 6d 20 |macbinar|y' them |
|00000870| 73 6f 20 79 6f 75 20 67 | 65 74 0a 58 09 72 65 61 |so you g|et.X.rea|
|00000880| 6c 20 6d 61 63 69 6e 74 | 6f 73 68 20 66 69 6c 65 |l macint|osh file|
|00000890| 73 20 28 62 6f 74 68 20 | 66 6f 72 6b 73 2c 20 65 |s (both |forks, e|
|000008a0| 74 63 2e 29 2e 20 20 44 | 6f 20 27 6d 75 6e 74 61 |tc.). D|o 'munta|
|000008b0| 72 20 2d 48 27 20 66 6f | 72 20 61 20 73 68 6f 72 |r -H' fo|r a shor|
|000008c0| 74 0a 58 09 68 65 6c 70 | 20 6d 65 73 73 61 67 65 |t.X.help| message|
|000008d0| 2e 0a 58 6d 61 6b 65 66 | 69 6c 65 2e 68 71 78 20 |..Xmakef|ile.hqx |
|000008e0| 2d 20 41 20 62 69 6e 68 | 65 78 27 65 64 20 4d 50 |- A binh|ex'ed MP|
|000008f0| 57 20 6d 61 6b 65 20 66 | 69 6c 65 20 66 6f 72 20 |W make f|ile for |
|00000900| 74 68 65 73 65 20 74 77 | 6f 20 70 72 6f 67 72 61 |these tw|o progra|
|00000910| 6d 73 2e 0a 58 0a 58 09 | 09 45 6e 6a 6f 79 2c 0a |ms..X.X.|.Enjoy,.|
|00000920| 58 09 09 67 7a 40 65 6e | 74 69 74 79 2e 63 6f 6d |X..gz@en|tity.com|
|00000930| 20 28 61 2e 6b 2e 61 2e | 20 67 7a 40 65 64 64 69 | (a.k.a.| gz@eddi|
|00000940| 65 2e 6d 69 74 2e 65 64 | 75 29 0a 53 48 41 52 5f |e.mit.ed|u).SHAR_|
|00000950| 45 4f 46 0a 69 66 20 74 | 65 73 74 20 31 30 36 30 |EOF.if t|est 1060|
|00000960| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00000970| 52 45 41 44 4d 45 27 60 | 22 0a 74 68 65 6e 0a 09 |README'`|".then..|
|00000980| 65 63 68 6f 20 73 68 61 | 72 3a 20 65 72 72 6f 72 |echo sha|r: error|
|00000990| 20 74 72 61 6e 73 6d 69 | 74 74 69 6e 67 20 22 27 | transmi|tting "'|
|000009a0| 52 45 41 44 4d 45 27 22 | 20 27 28 73 68 6f 75 6c |README'"| '(shoul|
|000009b0| 64 20 68 61 76 65 20 62 | 65 65 6e 20 31 30 36 30 |d have b|een 1060|
|000009c0| 20 63 68 61 72 61 63 74 | 65 72 73 29 27 0a 66 69 | charact|ers)'.fi|
|000009d0| 0a 66 69 20 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi # en|d of ove|
|000009e0| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 65 |rwriting| check.e|
|000009f0| 63 68 6f 20 73 68 61 72 | 3a 20 65 78 74 72 61 63 |cho shar|: extrac|
|00000a00| 74 69 6e 67 20 22 27 6d | 61 6b 65 66 69 6c 65 2e |ting "'m|akefile.|
|00000a10| 68 71 78 27 22 20 27 28 | 31 30 37 36 20 63 68 61 |hqx'" '(|1076 cha|
|00000a20| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00000a30| 74 20 2d 66 20 27 6d 61 | 6b 65 66 69 6c 65 2e 68 |t -f 'ma|kefile.h|
|00000a40| 71 78 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |qx'.then|..echo s|
|00000a50| 68 61 72 3a 20 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: wil|l not ov|
|00000a60| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00000a70| 67 20 66 69 6c 65 20 22 | 27 6d 61 6b 65 66 69 6c |g file "|'makefil|
|00000a80| 65 2e 68 71 78 27 22 0a | 65 6c 73 65 0a 73 65 64 |e.hqx'".|else.sed|
|00000a90| 20 27 73 2f 5e 58 2f 2f | 27 20 3c 3c 20 5c 53 48 | 's/^X//|' << \SH|
|00000aa0| 41 52 5f 45 4f 46 20 3e | 20 27 6d 61 6b 65 66 69 |AR_EOF >| 'makefi|
|00000ab0| 6c 65 2e 68 71 78 27 0a | 58 28 54 68 69 73 20 66 |le.hqx'.|X(This f|
|00000ac0| 69 6c 65 20 6d 75 73 74 | 20 62 65 20 63 6f 6e 76 |ile must| be conv|
|00000ad0| 65 72 74 65 64 20 77 69 | 74 68 20 42 69 6e 48 65 |erted wi|th BinHe|
|00000ae0| 78 20 34 2e 30 29 0a 58 | 0a 58 3a 23 27 65 4b 44 |x 4.0).X|.X:#'eKD|
|00000af0| 66 39 51 44 40 61 50 21 | 26 34 26 40 26 34 30 38 |f9QD@aP!|&4&@&408|
|00000b00| 26 2d 4a 21 33 21 21 21 | 21 26 40 21 21 21 22 49 |&-J!3!!!|!&@!!!"I|
|00000b10| 53 31 26 42 40 61 58 23 | 46 33 2a 45 41 34 4b 46 |S1&B@aX#|F3*EA4KF|
|00000b20| 4c 22 59 47 40 6a 64 42 | 41 29 0a 58 30 24 40 65 |L"YG@jdB|A).X0$@e|
|00000b30| 65 45 52 34 4b 46 4a 52 | 25 23 40 65 65 45 52 34 |eER4KFJR|%#@eeER4|
|00000b40| 4b 46 4c 6a 4d 2c 51 6d | 30 23 40 61 54 45 51 58 |KFLjM,Qm|0#@aTEQX|
|00000b50| 4a 2c 40 6d 4a 45 41 39 | 5a 47 27 26 62 29 23 65 |J,@mJEA9|ZG'&b)#e|
|00000b60| 4d 29 23 47 30 38 26 2d | 4a 2a 62 21 0a 58 59 47 |M)#G08&-|J*b!.XYG|
|00000b70| 23 21 52 36 39 22 36 39 | 23 46 4a 45 41 39 5a 47 |#!R69"69|#FJEA9ZG|
|00000b80| 27 26 62 2c 51 2d 5a 45 | 62 22 6c 33 66 61 54 42 |'&b,Q-ZE|b"l3faTB|
|00000b90| 52 2a 4b 46 51 50 50 46 | 68 65 24 38 52 39 5a 47 |R*KFQPPF|he$8R9ZG|
|00000ba0| 27 50 59 43 35 6a 5b 29 | 2c 42 30 23 35 21 0a 58 |'PYC5j[)|,B0#5!.X|
|00000bb0| 4a 48 64 30 58 44 40 2a | 62 42 41 2a 54 43 41 30 |JHd0XD@*|bBA*TCA0|
|00000bc0| 70 33 64 50 5a 47 27 39 | 62 43 51 26 4d 43 35 6a |p3dPZG'9|bCQ&MC5j|
|00000bd0| 5b 29 28 59 24 45 27 50 | 4c 46 51 26 62 44 40 39 |[)(Y$E'P|LFQ&bD@9|
|00000be0| 63 49 39 30 64 43 25 30 | 2d 44 40 29 5a 45 62 22 |cI90dC%0|-D@)ZEb"|
|00000bf0| 0a 58 6c 33 66 61 54 42 | 52 2a 4b 46 51 50 50 46 |.Xl3faTB|R*KFQPPF|
|00000c00| 68 65 24 38 64 26 31 34 | 38 61 54 42 4c 6a 5b 24 |he$8d&14|8aTBLj[$|
|00000c10| 33 65 59 47 27 26 62 23 | 46 33 2a 45 41 34 4b 46 |3eYG'&b#|F3*EA4KF|
|00000c20| 4c 6a 4d 2c 51 6d 30 23 | 40 61 54 45 51 58 4a 2c |LjM,Qm0#|@aTEQXJ,|
|00000c30| 40 6d 0a 58 4a 45 41 34 | 4b 46 4c 21 59 42 62 21 |@m.XJEA4|KFL!YBb!|
|00000c40| 52 36 39 22 36 29 23 46 | 4a 2c 41 33 4a 2a 64 65 |R69"6)#F|J,A3J*de|
|00000c50| 33 38 65 33 52 29 27 65 | 64 42 41 29 5a 42 62 6a |38e3R)'e|dBA)ZBbj|
|00000c60| 5b 29 28 59 24 45 27 50 | 4c 46 51 26 62 44 40 39 |[)(Y$E'P|LFQ&bD@9|
|00000c70| 63 49 38 30 0a 58 35 47 | 40 6a 64 44 40 65 50 2c |cI80.X5G|@jdD@eP,|
|00000c80| 51 6d 4a 59 4a 64 2a 29 | 23 22 6c 33 66 61 54 42 |QmJYJd*)|#"l3faTB|
|00000c90| 52 2a 4b 46 51 50 50 46 | 68 65 24 35 40 6a 64 43 |R*KFQPPF|he$5@jdC|
|00000ca0| 41 2a 51 42 40 30 50 2c | 51 6d 4a 48 64 30 58 44 |A*QB@0P,|QmJHd0XD|
|00000cb0| 40 2a 62 42 41 2a 0a 58 | 54 43 41 30 70 38 68 34 |@*bBA*.X|TCA0p8h4|
|00000cc0| 4e 33 64 61 54 42 4c 6a | 5b 29 28 59 24 45 27 50 |N3daTBLj|[)(Y$E'P|
|00000cd0| 4c 46 51 26 62 44 40 39 | 63 49 38 30 36 33 38 6a |LFQ&bD@9|cI80638j|
|00000ce0| 26 36 27 50 4c 2c 51 6d | 30 26 25 25 21 21 21 25 |&6'PL,Qm|0&%%!!!%|
|00000cf0| 21 21 21 21 22 36 21 21 | 0a 58 21 21 25 60 21 21 |!!!!"6!!|.X!!%`!!|
|00000d00| 21 21 62 46 62 21 54 31 | 60 64 4a 29 23 21 4a 49 |!!bFb!T1|`dJ)#!JI|
|00000d10| 33 64 55 2c 60 64 4d 44 | 40 43 4e 43 40 42 4a 33 |3dU,`dMD|@CNC@BJ3|
|00000d20| 64 70 30 38 25 26 38 35 | 38 2a 2d 34 33 64 29 45 |dp08%&85|8*-43d)E|
|00000d30| 40 26 56 43 40 43 54 45 | 27 39 0a 58 58 21 4a 21 |@&VC@CTE|'9.XX!J!|
|00000d40| 21 21 26 34 26 40 26 34 | 30 38 26 2d 4a 21 21 21 |!!&4&@&4|08&-J!!!|
|00000d50| 21 21 21 21 21 21 21 21 | 21 21 21 21 21 39 25 39 |!!!!!!!!|!!!!!9%9|
|00000d60| 42 39 25 65 33 38 62 21 | 21 21 21 21 21 21 21 21 |B9%e38b!|!!!!!!!!|
|00000d70| 21 21 21 21 21 21 21 21 | 21 21 21 21 0a 58 21 21 |!!!!!!!!|!!!!.X!!|
|00000d80| 21 21 21 21 21 21 21 21 | 21 23 48 58 65 49 60 21 |!!!!!!!!|!#HXeI`!|
|00000d90| 21 21 22 39 4a 21 21 21 | 41 6a 26 29 23 53 5b 24 |!!"9J!!!|Aj&)#S[$|
|00000da0| 33 64 4a 29 23 21 4a 43 | 51 50 58 43 40 61 54 46 |3dJ)#!JC|QPXC@aTF|
|00000db0| 68 33 4a 32 35 22 51 44 | 40 61 50 46 28 34 0a 58 |h3J25"QD|@aPF(4.X|
|00000dc0| 62 29 24 64 4a 2b 27 30 | 53 42 41 29 4a 2b 4c 53 |b)$dJ+'0|SBA)J+LS|
|00000dd0| 54 2b 27 65 4b 45 27 61 | 5b 42 62 4b 4b 46 51 47 |T+'eKE'a|[BbKKFQG|
|00000de0| 4d 29 23 53 4a 46 66 50 | 6b 43 40 70 51 2b 23 54 |M)#SJFfP|kC@pQ+#T|
|00000df0| 4b 46 51 47 66 2b 35 4e | 54 31 60 64 4a 29 23 21 |KFQGf+5N|T1`dJ)#!|
|00000e00| 0a 58 4a 2b 51 43 54 45 | 27 39 58 44 41 30 64 29 |.XJ+QCTE|'9XDA0d)|
|00000e10| 24 64 4a 36 50 39 2d 36 | 24 58 30 24 35 21 4a 29 |$dJ6P9-6|$X0$5!J)|
|00000e20| 23 22 54 43 4c 4a 53 42 | 68 21 4a 32 35 22 62 44 |#"TCLJSB|h!J25"bD|
|00000e30| 40 6a 4e 43 41 4a 53 42 | 41 2a 52 47 50 58 60 41 |@jNCAJSB|A*RGPX`A|
|00000e40| 35 60 0a 58 4a 2a 62 6d | 52 2b 35 4e 4a 21 21 21 |5`.XJ*bm|R+5NJ!!!|
|00000e50| 21 35 21 21 2a 36 40 70 | 5a 42 40 30 5b 21 23 65 |!5!!*6@p|ZB@0[!#e|
|00000e60| 64 29 23 47 30 38 26 30 | 38 2a 62 22 65 45 52 34 |d)#G08&0|8*b"eER4|
|00000e70| 4b 46 4c 6a 4d 2c 51 6d | 30 24 41 34 4b 46 4a 4e |KFLjM,Qm|0$A4KFJN|
|00000e80| 21 22 4a 21 0a 58 29 21 | 23 4e 21 21 60 26 36 21 |!"J!.X)!|#N!!`&6!|
|00000e90| 49 64 22 25 60 21 21 21 | 39 2d 22 72 43 6b 63 40 |Id"%`!!!|9-"rCkc@|
|00000ea0| 49 58 21 21 21 24 64 21 | 21 21 21 70 21 21 21 21 |IX!!!$d!|!!!p!!!!|
|00000eb0| 21 21 22 21 21 21 21 21 | 33 21 21 21 21 26 2d 21 |!!"!!!!!|3!!!!&-!|
|00000ec0| 21 21 21 36 21 21 0a 58 | 21 21 24 29 21 29 40 2d |!!!6!!.X|!!$)!)@-|
|00000ed0| 21 22 27 53 21 21 21 21 | 46 21 24 29 21 21 25 65 |!"'S!!!!|F!$)!!%e|
|00000ee0| 33 38 65 29 21 21 21 21 | 2b 21 71 68 72 72 60 21 |38e)!!!!|+!qhrr`!|
|00000ef0| 21 21 21 21 21 29 51 40 | 2b 34 59 21 3a 0a 53 48 |!!!!!)Q@|+4Y!:.SH|
|00000f00| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 31 |AR_EOF.i|f test 1|
|00000f10| 30 37 36 20 2d 6e 65 20 | 22 60 77 63 20 2d 63 20 |076 -ne |"`wc -c |
|00000f20| 3c 20 27 6d 61 6b 65 66 | 69 6c 65 2e 68 71 78 27 |< 'makef|ile.hqx'|
|00000f30| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00000f40| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00000f50| 69 74 74 69 6e 67 20 22 | 27 6d 61 6b 65 66 69 6c |itting "|'makefil|
|00000f60| 65 2e 68 71 78 27 22 20 | 27 28 73 68 6f 75 6c 64 |e.hqx'" |'(should|
|00000f70| 20 68 61 76 65 20 62 65 | 65 6e 20 31 30 37 36 20 | have be|en 1076 |
|00000f80| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 66 69 0a |characte|rs)'.fi.|
|00000f90| 66 69 20 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi # end| of over|
|00000fa0| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 65 63 |writing |check.ec|
|00000fb0| 68 6f 20 73 68 61 72 3a | 20 65 78 74 72 61 63 74 |ho shar:| extract|
|00000fc0| 69 6e 67 20 22 27 6d 74 | 61 72 2e 63 27 22 20 27 |ing "'mt|ar.c'" '|
|00000fd0| 28 31 31 33 32 39 20 63 | 68 61 72 61 63 74 65 72 |(11329 c|haracter|
|00000fe0| 73 29 27 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |s)'.if t|est -f '|
|00000ff0| 6d 74 61 72 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |mtar.c'.|then..ec|
|00001000| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00001010| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00001020| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 6d 74 61 |sting fi|le "'mta|
|00001030| 72 2e 63 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |r.c'".el|se.sed '|
|00001040| 73 2f 5e 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |s/^X//' |<< \SHAR|
|00001050| 5f 45 4f 46 20 3e 20 27 | 6d 74 61 72 2e 63 27 0a |_EOF > '|mtar.c'.|
|00001060| 58 2f 2a 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |X/* Copy|right 19|
|00001070| 38 38 2c 20 47 61 69 6c | 20 5a 61 63 68 61 72 69 |88, Gail| Zachari|
|00001080| 61 73 2e 20 20 41 6c 6c | 20 72 69 67 68 74 73 20 |as. All| rights |
|00001090| 72 65 73 65 72 76 65 64 | 2e 0a 58 20 2a 20 50 65 |reserved|..X * Pe|
|000010a0| 72 6d 69 73 73 69 6f 6e | 20 69 73 20 68 65 72 65 |rmission| is here|
|000010b0| 62 79 20 67 72 61 6e 74 | 65 64 20 74 6f 20 63 6f |by grant|ed to co|
|000010c0| 70 79 2c 20 72 65 70 72 | 6f 64 75 63 65 2c 20 72 |py, repr|oduce, r|
|000010d0| 65 64 69 73 74 72 69 62 | 75 74 65 20 6f 72 0a 58 |edistrib|ute or.X|
|000010e0| 20 2a 20 6f 74 68 65 72 | 77 69 73 65 20 75 73 65 | * other|wise use|
|000010f0| 20 74 68 69 73 20 73 6f | 66 74 77 61 72 65 20 70 | this so|ftware p|
|00001100| 72 6f 76 69 64 65 64 20 | 74 68 65 72 65 20 69 73 |rovided |there is|
|00001110| 20 6e 6f 20 6d 6f 6e 65 | 74 61 72 79 20 70 72 6f | no mone|tary pro|
|00001120| 66 69 74 0a 58 20 2a 20 | 67 61 69 6e 65 64 20 73 |fit.X * |gained s|
|00001130| 70 65 63 69 66 69 63 61 | 6c 6c 79 20 66 72 6f 6d |pecifica|lly from|
|00001140| 20 69 74 73 20 75 73 65 | 20 6f 72 20 72 65 70 72 | its use| or repr|
|00001150| 6f 64 75 63 74 69 6f 6e | 2c 20 69 74 20 69 73 20 |oduction|, it is |
|00001160| 6e 6f 74 20 73 6f 6c 64 | 2c 0a 58 20 2a 20 72 65 |not sold|,.X * re|
|00001170| 6e 74 65 64 2c 20 74 72 | 61 64 65 64 20 6f 72 20 |nted, tr|aded or |
|00001180| 6f 74 68 65 72 77 69 73 | 65 20 6d 61 72 6b 65 74 |otherwis|e market|
|00001190| 65 64 2c 20 61 6e 64 20 | 74 68 69 73 20 63 6f 70 |ed, and |this cop|
|000011a0| 79 72 69 67 68 74 20 6e | 6f 74 69 63 65 20 0a 58 |yright n|otice .X|
|000011b0| 20 2a 20 61 6e 64 20 74 | 68 65 20 73 6f 66 74 77 | * and t|he softw|
|000011c0| 61 72 65 20 76 65 72 73 | 69 6f 6e 20 6e 75 6d 62 |are vers|ion numb|
|000011d0| 65 72 20 69 73 20 69 6e | 63 6c 75 64 65 64 20 70 |er is in|cluded p|
|000011e0| 72 6f 6d 69 6e 65 6e 74 | 6c 79 20 69 6e 20 61 6e |rominent|ly in an|
|000011f0| 79 20 63 6f 70 79 0a 58 | 20 2a 20 6d 61 64 65 2e |y copy.X| * made.|
|00001200| 0a 58 20 2a 20 54 68 69 | 73 20 69 73 20 6d 74 61 |.X * Thi|s is mta|
|00001210| 72 20 76 65 72 73 69 6f | 6e 20 31 2e 30 2e 0a 58 |r versio|n 1.0..X|
|00001220| 20 2a 0a 58 20 2a 20 53 | 65 6e 64 20 63 6f 6d 6d | *.X * S|end comm|
|00001230| 65 6e 74 73 2c 20 73 75 | 67 67 65 73 74 69 6f 6e |ents, su|ggestion|
|00001240| 73 2c 20 62 75 67 20 72 | 65 70 6f 72 74 73 20 28 |s, bug r|eports (|
|00001250| 6e 6f 74 20 62 6c 6f 6f | 64 79 20 6c 69 6b 65 6c |not bloo|dy likel|
|00001260| 79 29 2c 20 66 65 61 74 | 75 72 65 0a 58 20 2a 20 |y), feat|ure.X * |
|00001270| 72 65 71 75 65 73 74 73 | 2c 20 65 74 63 2e 20 74 |requests|, etc. t|
|00001280| 6f 20 67 7a 40 65 6e 74 | 69 74 79 2e 63 6f 6d 2e |o gz@ent|ity.com.|
|00001290| 0a 58 20 2a 0a 58 20 2a | 2f 0a 58 0a 58 63 68 61 |.X *.X *|/.X.Xcha|
|000012a0| 72 20 2a 50 72 6f 67 72 | 61 6d 2c 20 2a 56 65 72 |r *Progr|am, *Ver|
|000012b0| 73 69 6f 6e 20 3d 20 22 | 31 2e 30 22 3b 0a 58 0a |sion = "|1.0";.X.|
|000012c0| 58 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |X#includ|e <stdio|
|000012d0| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 66 |.h>.X#in|clude <f|
|000012e0| 69 6c 65 73 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |iles.h>.|X#includ|
|000012f0| 65 20 3c 65 72 72 6f 72 | 73 2e 68 3e 0a 58 23 69 |e <error|s.h>.X#i|
|00001300| 6e 63 6c 75 64 65 20 3c | 65 72 72 6e 6f 2e 68 3e |nclude <|errno.h>|
|00001310| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 69 6f 63 74 |.X#inclu|de <ioct|
|00001320| 6c 2e 68 3e 0a 58 0a 58 | 53 74 72 69 6e 67 50 74 |l.h>.X.X|StringPt|
|00001330| 72 20 63 32 70 73 74 72 | 28 29 3b 0a 58 63 68 61 |r c2pstr|();.Xcha|
|00001340| 72 20 2a 73 74 72 63 68 | 72 28 29 2c 20 2a 73 74 |r *strch|r(), *st|
|00001350| 72 63 70 79 28 29 2c 20 | 2a 73 74 72 6e 63 70 79 |rcpy(), |*strncpy|
|00001360| 28 29 2c 20 2a 70 32 63 | 73 74 72 28 29 3b 0a 58 |(), *p2c|str();.X|
|00001370| 0a 58 23 64 65 66 69 6e | 65 20 54 45 58 54 20 30 |.X#defin|e TEXT 0|
|00001380| 78 35 34 34 35 35 38 35 | 34 4c 0a 58 0a 58 2f 2a |x5445585|4L.X.X/*|
|00001390| 20 54 68 65 20 64 6f 20 | 7b 7d 20 77 68 69 6c 65 | The do |{} while|
|000013a0| 28 30 29 20 69 73 20 66 | 6f 72 20 73 79 6e 74 61 |(0) is f|or synta|
|000013b0| 63 74 69 63 20 72 65 61 | 73 6f 6e 73 2e 20 4d 50 |ctic rea|sons. MP|
|000013c0| 57 20 43 20 77 69 6c 6c | 20 6f 70 74 69 6d 69 7a |W C will| optimiz|
|000013d0| 65 20 69 74 20 6f 75 74 | 2e 20 2a 2f 0a 58 23 64 |e it out|. */.X#d|
|000013e0| 65 66 69 6e 65 20 6d 63 | 6f 70 79 28 64 65 73 74 |efine mc|opy(dest|
|000013f0| 2c 20 73 72 63 2c 20 6c | 65 6e 29 20 5c 0a 58 20 |, src, l|en) \.X |
|00001400| 20 64 6f 20 7b 20 63 68 | 61 72 20 2a 5f 64 70 20 | do { ch|ar *_dp |
|00001410| 3d 20 28 63 68 61 72 20 | 2a 29 28 64 65 73 74 29 |= (char |*)(dest)|
|00001420| 2c 20 2a 5f 73 70 20 3d | 20 28 63 68 61 72 20 2a |, *_sp =| (char *|
|00001430| 29 28 73 72 63 29 3b 20 | 5c 0a 58 20 20 20 20 20 |)(src); |\.X |
|00001440| 20 20 69 6e 74 20 5f 69 | 20 3d 20 28 6c 65 6e 29 | int _i| = (len)|
|00001450| 3b 20 5c 0a 58 20 20 20 | 20 20 20 20 77 68 69 6c |; \.X | whil|
|00001460| 65 20 28 2d 2d 5f 69 3e | 3d 30 29 20 2a 5f 64 70 |e (--_i>|=0) *_dp|
|00001470| 2b 2b 20 3d 20 2a 5f 73 | 70 2b 2b 3b 20 5c 0a 58 |++ = *_s|p++; \.X|
|00001480| 20 20 7d 20 77 68 69 6c | 65 28 30 29 0a 58 0a 58 | } whil|e(0).X.X|
|00001490| 23 64 65 66 69 6e 65 20 | 66 69 6c 6c 6d 65 6d 28 |#define |fillmem(|
|000014a0| 64 65 73 74 2c 20 63 68 | 2c 20 6c 65 6e 29 20 5c |dest, ch|, len) \|
|000014b0| 0a 58 20 20 64 6f 20 7b | 20 63 68 61 72 20 2a 5f |.X do {| char *_|
|000014c0| 64 70 20 3d 20 28 63 68 | 61 72 20 2a 29 28 64 65 |dp = (ch|ar *)(de|
|000014d0| 73 74 29 3b 20 5c 0a 58 | 20 20 20 20 20 20 20 69 |st); \.X| i|
|000014e0| 6e 74 20 5f 69 20 3d 20 | 28 6c 65 6e 29 3b 20 5c |nt _i = |(len); \|
|000014f0| 0a 58 20 20 20 20 20 20 | 20 77 68 69 6c 65 20 28 |.X | while (|
|00001500| 2d 2d 5f 69 3e 3d 30 29 | 20 2a 5f 64 70 2b 2b 20 |--_i>=0)| *_dp++ |
|00001510| 3d 20 28 63 68 29 3b 20 | 5c 0a 58 20 20 7d 20 77 |= (ch); |\.X } w|
|00001520| 68 69 6c 65 20 28 30 29 | 0a 58 0a 58 73 74 72 75 |hile (0)|.X.Xstru|
|00001530| 63 74 20 7b 0a 58 20 20 | 20 20 63 68 61 72 20 6e |ct {.X | char n|
|00001540| 61 6d 65 5b 31 30 30 5d | 3b 0a 58 20 20 20 20 63 |ame[100]|;.X c|
|00001550| 68 61 72 20 6d 6f 64 65 | 5b 38 5d 3b 0a 58 20 20 |har mode|[8];.X |
|00001560| 20 20 63 68 61 72 20 75 | 69 64 5b 38 5d 3b 0a 58 | char u|id[8];.X|
|00001570| 20 20 20 20 63 68 61 72 | 20 67 69 64 5b 38 5d 3b | char| gid[8];|
|00001580| 0a 58 20 20 20 20 63 68 | 61 72 20 73 69 7a 65 5b |.X ch|ar size[|
|00001590| 31 32 5d 3b 0a 58 20 20 | 20 20 63 68 61 72 20 6d |12];.X | char m|
|000015a0| 74 69 6d 65 5b 31 32 5d | 3b 0a 58 20 20 20 20 63 |time[12]|;.X c|
|000015b0| 68 61 72 20 63 68 6b 73 | 75 6d 5b 38 5d 3b 0a 58 |har chks|um[8];.X|
|000015c0| 20 20 20 20 63 68 61 72 | 20 6c 69 6e 6b 66 6c 61 | char| linkfla|
|000015d0| 67 3b 0a 58 20 20 20 20 | 63 68 61 72 20 6c 69 6e |g;.X |char lin|
|000015e0| 6b 6e 61 6d 65 5b 31 30 | 30 5d 3b 0a 58 20 20 20 |kname[10|0];.X |
|000015f0| 20 63 68 61 72 20 6d 61 | 67 69 63 5b 38 5d 3b 0a | char ma|gic[8];.|
|00001600| 58 20 20 20 20 63 68 61 | 72 20 75 6e 61 6d 65 5b |X cha|r uname[|
|00001610| 33 32 5d 3b 0a 58 20 20 | 20 20 63 68 61 72 20 67 |32];.X | char g|
|00001620| 6e 61 6d 65 5b 33 32 5d | 3b 0a 58 20 20 20 20 63 |name[32]|;.X c|
|00001630| 68 61 72 20 64 65 76 6d | 61 6a 6f 72 5b 38 5d 3b |har devm|ajor[8];|
|00001640| 0a 58 20 20 20 20 63 68 | 61 72 20 64 65 76 6d 69 |.X ch|ar devmi|
|00001650| 6e 6f 72 5b 38 5d 3b 0a | 58 20 20 20 20 63 68 61 |nor[8];.|X cha|
|00001660| 72 20 66 69 6c 6c 5b 31 | 36 37 5d 3b 0a 58 7d 20 |r fill[1|67];.X} |
|00001670| 74 61 72 68 3b 0a 58 0a | 58 23 64 65 66 69 6e 65 |tarh;.X.|X#define|
|00001680| 20 74 61 72 73 7a 28 6e | 29 09 28 28 28 6e 29 2b | tarsz(n|).(((n)+|
|00001690| 35 31 31 4c 29 20 26 20 | 2d 35 31 32 4c 29 0a 58 |511L) & |-512L).X|
|000016a0| 0a 58 73 74 72 75 63 74 | 20 7b 0a 58 20 20 20 20 |.Xstruct| {.X |
|000016b0| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 20 6e 6c |unsigned| char nl|
|000016c0| 65 6e 3b 0a 58 20 20 20 | 20 63 68 61 72 20 6e 61 |en;.X | char na|
|000016d0| 6d 65 5b 36 33 5d 3b 0a | 58 20 20 20 20 46 49 6e |me[63];.|X FIn|
|000016e0| 66 6f 20 66 69 6e 66 6f | 3b 0a 58 20 20 20 20 63 |fo finfo|;.X c|
|000016f0| 68 61 72 20 70 72 6f 74 | 65 63 74 65 64 3b 0a 58 |har prot|ected;.X|
|00001700| 20 20 20 20 63 68 61 72 | 20 7a 65 72 6f 3b 0a 58 | char| zero;.X|
|00001710| 20 20 20 20 6c 6f 6e 67 | 20 64 66 6c 65 6e 3b 0a | long| dflen;.|
|00001720| 58 20 20 20 20 6c 6f 6e | 67 20 72 66 6c 65 6e 3b |X lon|g rflen;|
|00001730| 0a 58 20 20 20 20 6c 6f | 6e 67 20 63 64 61 74 65 |.X lo|ng cdate|
|00001740| 3b 0a 58 20 20 20 20 6c | 6f 6e 67 20 6d 64 61 74 |;.X l|ong mdat|
|00001750| 65 3b 0a 58 2f 2a 20 20 | 63 68 61 72 20 75 6e 75 |e;.X/* |char unu|
|00001760| 73 65 64 5b 32 39 5d 3b | 20 2a 2f 0a 58 7d 20 6d |sed[29];| */.X} m|
|00001770| 61 63 62 69 6e 68 3b 0a | 58 0a 58 23 64 65 66 69 |acbinh;.|X.X#defi|
|00001780| 6e 65 20 6d 61 63 62 69 | 6e 73 7a 28 6e 29 09 28 |ne macbi|nsz(n).(|
|00001790| 28 28 6e 29 2b 31 32 37 | 4c 29 20 26 20 2d 31 32 |((n)+127|L) & -12|
|000017a0| 38 4c 29 0a 58 0a 58 73 | 74 61 74 69 63 20 48 46 |8L).X.Xs|tatic HF|
|000017b0| 69 6c 65 49 6e 66 6f 20 | 73 74 61 74 62 3b 0a 58 |ileInfo |statb;.X|
|000017c0| 0a 58 69 6e 74 20 62 69 | 6e 61 72 79 20 3d 20 30 |.Xint bi|nary = 0|
|000017d0| 2c 0a 58 20 20 20 20 64 | 61 74 61 6f 6e 6c 79 20 |,.X d|ataonly |
|000017e0| 3d 20 30 2c 0a 58 20 20 | 20 20 76 65 72 62 6f 73 |= 0,.X | verbos|
|000017f0| 65 20 3d 20 30 3b 0a 58 | 0a 58 69 6e 74 20 64 69 |e = 0;.X|.Xint di|
|00001800| 72 6d 6f 64 65 20 3d 20 | 30 37 37 37 2c 0a 58 20 |rmode = |0777,.X |
|00001810| 20 20 20 66 69 6c 65 6d | 6f 64 65 20 3d 20 30 36 | filem|ode = 06|
|00001820| 36 36 3b 0a 58 0a 58 63 | 68 61 72 20 2a 75 6e 61 |66;.X.Xc|har *una|
|00001830| 6d 65 20 3d 20 22 72 6f | 6f 74 22 2c 0a 58 20 20 |me = "ro|ot",.X |
|00001840| 20 20 20 2a 67 6e 61 6d | 65 20 3d 20 22 67 72 6f | *gnam|e = "gro|
|00001850| 75 70 22 3b 0a 58 0a 58 | 46 49 4c 45 20 2a 74 61 |up";.X.X|FILE *ta|
|00001860| 72 66 20 3d 20 28 46 49 | 4c 45 20 2a 29 20 4e 55 |rf = (FI|LE *) NU|
|00001870| 4c 4c 3b 0a 58 0a 58 23 | 64 65 66 69 6e 65 20 77 |LL;.X.X#|define w|
|00001880| 72 69 74 65 62 6c 6f 63 | 6b 28 70 2c 6c 65 6e 29 |ritebloc|k(p,len)|
|00001890| 09 66 77 72 69 74 65 28 | 28 70 29 2c 20 31 2c 20 |.fwrite(|(p), 1, |
|000018a0| 28 6c 65 6e 29 2c 20 74 | 61 72 66 29 0a 58 0a 58 |(len), t|arf).X.X|
|000018b0| 2f 2a 20 55 6e 66 6f 72 | 74 75 6e 61 74 65 6c 79 |/* Unfor|tunately|
|000018c0| 2c 20 74 68 65 20 4d 61 | 63 20 6b 65 65 70 73 20 |, the Ma|c keeps |
|000018d0| 6f 6e 6c 79 20 6c 6f 63 | 61 6c 20 74 69 6d 65 2c |only loc|al time,|
|000018e0| 20 73 6f 20 74 68 69 73 | 20 77 69 6c 6c 20 62 65 | so this| will be|
|000018f0| 20 6f 66 66 20 62 79 0a | 58 20 20 20 74 68 65 20 | off by.|X the |
|00001900| 74 69 6d 65 20 7a 6f 6e | 65 2e 2e 2e 20 2a 2f 0a |time zon|e... */.|
|00001910| 58 23 64 65 66 69 6e 65 | 20 55 4e 49 58 54 49 4d |X#define| UNIXTIM|
|00001920| 45 09 32 30 38 32 38 34 | 34 38 30 30 4c 20 20 2f |E.208284|4800L /|
|00001930| 2a 20 4a 61 6e 20 31 2c | 20 31 39 37 30 20 30 30 |* Jan 1,| 1970 00|
|00001940| 3a 30 30 3a 30 30 20 2a | 2f 0a 58 0a 58 0a 58 6d |:00:00 *|/.X.X.Xm|
|00001950| 61 69 6e 20 28 61 72 67 | 63 2c 20 61 72 67 76 29 |ain (arg|c, argv)|
|00001960| 0a 58 20 20 63 68 61 72 | 20 2a 2a 61 72 67 76 3b |.X char| **argv;|
|00001970| 0a 58 7b 0a 58 20 20 63 | 68 61 72 20 2a 64 65 66 |.X{.X c|har *def|
|00001980| 61 6c 74 5b 32 5d 3b 0a | 58 20 20 50 72 6f 67 72 |alt[2];.|X Progr|
|00001990| 61 6d 20 3d 20 61 72 67 | 76 5b 30 5d 3b 0a 58 20 |am = arg|v[0];.X |
|000019a0| 20 77 68 69 6c 65 20 28 | 2d 2d 61 72 67 63 20 3e | while (|--argc >|
|000019b0| 20 30 20 26 26 20 2a 2a | 2b 2b 61 72 67 76 20 3d | 0 && **|++argv =|
|000019c0| 3d 20 27 2d 27 29 20 7b | 0a 58 20 20 20 20 63 68 |= '-') {|.X ch|
|000019d0| 61 72 20 2a 61 72 67 70 | 20 3d 20 26 61 72 67 76 |ar *argp| = &argv|
|000019e0| 5b 30 5d 5b 31 5d 3b 0a | 58 20 20 20 20 64 6f 20 |[0][1];.|X do |
|000019f0| 73 77 69 74 63 68 20 28 | 2a 61 72 67 70 2b 2b 29 |switch (|*argp++)|
|00001a00| 20 7b 0a 58 20 20 20 20 | 20 20 63 61 73 65 20 27 | {.X | case '|
|00001a10| 62 27 3a 20 64 61 74 61 | 6f 6e 6c 79 20 3d 20 31 |b': data|only = 1|
|00001a20| 3b 20 62 69 6e 61 72 79 | 20 3d 20 31 3b 20 62 72 |; binary| = 1; br|
|00001a30| 65 61 6b 3b 0a 58 20 20 | 20 20 20 20 63 61 73 65 |eak;.X | case|
|00001a40| 20 27 75 27 3a 20 64 61 | 74 61 6f 6e 6c 79 20 3d | 'u': da|taonly =|
|00001a50| 20 31 3b 20 62 69 6e 61 | 72 79 20 3d 20 30 3b 20 | 1; bina|ry = 0; |
|00001a60| 62 72 65 61 6b 3b 0a 58 | 20 20 20 20 20 20 63 61 |break;.X| ca|
|00001a70| 73 65 20 27 76 27 3a 20 | 76 65 72 62 6f 73 65 20 |se 'v': |verbose |
|00001a80| 3d 20 31 3b 20 62 72 65 | 61 6b 3b 0a 58 20 20 20 |= 1; bre|ak;.X |
|00001a90| 20 20 20 63 61 73 65 20 | 27 6f 27 3a 20 69 66 20 | case |'o': if |
|00001aa0| 28 2a 61 72 67 70 20 3d | 3d 20 27 5c 30 27 29 20 |(*argp =|= '\0') |
|00001ab0| 7b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |{.X | |
|00001ac0| 20 20 20 20 20 69 66 20 | 28 2d 2d 61 72 67 63 20 | if |(--argc |
|00001ad0| 3d 3d 20 30 29 20 67 6f | 74 6f 20 62 61 64 61 72 |== 0) go|to badar|
|00001ae0| 67 3b 0a 58 09 09 20 20 | 61 72 67 70 20 3d 20 2a |g;.X.. |argp = *|
|00001af0| 2b 2b 61 72 67 76 3b 0a | 58 09 09 7d 0a 58 09 09 |++argv;.|X..}.X..|
|00001b00| 75 6e 61 6d 65 20 3d 20 | 61 72 67 70 3b 0a 58 09 |uname = |argp;.X.|
|00001b10| 09 61 72 67 70 20 3d 20 | 22 22 3b 0a 58 09 09 62 |.argp = |"";.X..b|
|00001b20| 72 65 61 6b 3b 0a 58 20 | 20 20 20 20 20 63 61 73 |reak;.X | cas|
|00001b30| 65 20 27 67 27 3a 20 69 | 66 20 28 2a 61 72 67 70 |e 'g': i|f (*argp|
|00001b40| 20 3d 3d 20 27 5c 30 27 | 29 20 7b 0a 58 20 20 20 | == '\0'|) {.X |
|00001b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 | | i|
|00001b60| 66 20 28 2d 2d 61 72 67 | 63 20 3d 3d 20 30 29 20 |f (--arg|c == 0) |
|00001b70| 67 6f 74 6f 20 62 61 64 | 61 72 67 3b 0a 58 09 09 |goto bad|arg;.X..|
|00001b80| 20 20 61 72 67 70 20 3d | 20 2a 2b 2b 61 72 67 76 | argp =| *++argv|
|00001b90| 3b 0a 58 09 09 7d 0a 58 | 09 09 67 6e 61 6d 65 20 |;.X..}.X|..gname |
|00001ba0| 3d 20 61 72 67 70 3b 0a | 58 09 09 61 72 67 70 20 |= argp;.|X..argp |
|00001bb0| 3d 20 22 22 3b 0a 58 09 | 09 62 72 65 61 6b 3b 0a |= "";.X.|.break;.|
|00001bc0| 58 20 20 20 20 20 20 63 | 61 73 65 20 27 66 27 3a |X c|ase 'f':|
|00001bd0| 09 69 66 20 28 74 61 72 | 66 29 20 67 6f 74 6f 20 |.if (tar|f) goto |
|00001be0| 62 61 64 61 72 67 3b 0a | 58 09 09 69 66 20 28 2a |badarg;.|X..if (*|
|00001bf0| 61 72 67 70 20 3d 3d 20 | 27 5c 30 27 29 20 7b 0a |argp == |'\0') {.|
|00001c00| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X | |
|00001c10| 20 20 20 69 66 20 28 2d | 2d 61 72 67 63 20 3d 3d | if (-|-argc ==|
|00001c20| 20 30 29 20 67 6f 74 6f | 20 62 61 64 61 72 67 3b | 0) goto| badarg;|
|00001c30| 0a 58 09 09 20 20 61 72 | 67 70 20 3d 20 2a 2b 2b |.X.. ar|gp = *++|
|00001c40| 61 72 67 76 3b 0a 58 09 | 09 7d 0a 58 09 09 69 66 |argv;.X.|.}.X..if|
|00001c50| 20 28 21 73 74 72 63 6d | 70 28 61 72 67 70 2c 20 | (!strcm|p(argp, |
|00001c60| 22 2d 22 29 29 20 74 61 | 72 66 20 3d 20 73 74 64 |"-")) ta|rf = std|
|00001c70| 6f 75 74 3b 0a 58 09 09 | 65 6c 73 65 20 69 66 20 |out;.X..|else if |
|00001c80| 28 21 28 74 61 72 66 20 | 3d 20 66 6f 70 65 6e 28 |(!(tarf |= fopen(|
|00001c90| 61 72 67 70 2c 20 22 77 | 22 29 29 29 0a 58 09 09 |argp, "w|"))).X..|
|00001ca0| 20 20 20 66 61 74 61 6c | 28 22 43 61 6e 6e 6f 74 | fatal|("Cannot|
|00001cb0| 20 6f 70 65 6e 20 25 73 | 20 66 6f 72 20 77 72 69 | open %s| for wri|
|00001cc0| 74 69 6e 67 2e 22 2c 20 | 61 72 67 70 29 3b 0a 58 |ting.", |argp);.X|
|00001cd0| 09 09 61 72 67 70 20 3d | 20 22 22 3b 0a 58 09 09 |..argp =| "";.X..|
|00001ce0| 62 72 65 61 6b 3b 0a 58 | 20 20 20 20 20 20 64 65 |break;.X| de|
|00001cf0| 66 61 75 6c 74 3a 20 67 | 6f 74 6f 20 62 61 64 61 |fault: g|oto bada|
|00001d00| 72 67 3b 0a 58 20 20 20 | 20 7d 20 77 68 69 6c 65 |rg;.X | } while|
|00001d10| 20 28 2a 61 72 67 70 29 | 3b 0a 58 20 20 7d 0a 58 | (*argp)|;.X }.X|
|00001d20| 20 20 69 66 20 28 61 72 | 67 63 20 3c 3d 20 30 29 | if (ar|gc <= 0)|
|00001d30| 20 7b 0a 58 20 20 20 20 | 64 65 66 61 6c 74 5b 30 | {.X |defalt[0|
|00001d40| 5d 20 3d 20 22 3a 22 3b | 0a 58 20 20 20 20 64 65 |] = ":";|.X de|
|00001d50| 66 61 6c 74 5b 31 5d 20 | 3d 20 28 63 68 61 72 20 |falt[1] |= (char |
|00001d60| 2a 29 20 4e 55 4c 4c 3b | 0a 58 20 20 20 20 61 72 |*) NULL;|.X ar|
|00001d70| 67 76 20 3d 20 64 65 66 | 61 6c 74 3b 0a 58 20 20 |gv = def|alt;.X |
|00001d80| 7d 0a 58 20 20 69 66 20 | 28 21 74 61 72 66 29 20 |}.X if |(!tarf) |
|00001d90| 74 61 72 66 20 3d 20 73 | 74 64 6f 75 74 3b 0a 58 |tarf = s|tdout;.X|
|00001da0| 20 20 74 61 72 66 69 6c | 65 73 28 61 72 67 76 29 | tarfil|es(argv)|
|00001db0| 3b 0a 58 20 20 66 66 6c | 75 73 68 28 74 61 72 66 |;.X ffl|ush(tarf|
|00001dc0| 29 3b 0a 58 20 20 69 66 | 20 28 66 65 72 72 6f 72 |);.X if| (ferror|
|00001dd0| 28 74 61 72 66 29 29 20 | 7b 0a 58 20 20 20 20 20 |(tarf)) |{.X |
|00001de0| 69 66 20 28 65 72 72 6e | 6f 20 3d 3d 20 45 4e 4f |if (errn|o == ENO|
|00001df0| 53 50 43 29 20 66 61 74 | 61 6c 28 22 4f 75 74 20 |SPC) fat|al("Out |
|00001e00| 6f 66 20 64 69 73 6b 20 | 73 70 61 63 65 22 29 3b |of disk |space");|
|00001e10| 0a 58 20 20 20 20 20 65 | 6c 73 65 20 66 61 74 61 |.X e|lse fata|
|00001e20| 6c 28 22 57 72 69 74 65 | 20 65 72 72 6f 72 22 29 |l("Write| error")|
|00001e30| 3b 0a 58 20 20 7d 0a 58 | 20 20 69 66 20 28 74 61 |;.X }.X| if (ta|
|00001e40| 72 66 20 21 3d 20 73 74 | 64 6f 75 74 29 20 66 63 |rf != st|dout) fc|
|00001e50| 6c 6f 73 65 28 74 61 72 | 66 29 3b 0a 58 20 20 72 |lose(tar|f);.X r|
|00001e60| 65 74 75 72 6e 20 30 3b | 0a 58 0a 58 62 61 64 61 |eturn 0;|.X.Xbada|
|00001e70| 72 67 3a 0a 58 20 20 66 | 70 72 69 6e 74 66 28 73 |rg:.X f|printf(s|
|00001e80| 74 64 65 72 72 2c 20 22 | 6d 74 61 72 20 56 65 72 |tderr, "|mtar Ver|
|00001e90| 73 69 6f 6e 20 25 73 2c | 20 62 79 20 67 7a 40 65 |sion %s,| by gz@e|
|00001ea0| 6e 74 69 74 79 2e 63 6f | 6d 2e 20 20 55 73 61 67 |ntity.co|m. Usag|
|00001eb0| 65 3a 20 5c 6e 22 2c 20 | 56 65 72 73 69 6f 6e 29 |e: \n", |Version)|
|00001ec0| 3b 0a 58 20 20 66 70 72 | 69 6e 74 66 28 73 74 64 |;.X fpr|intf(std|
|00001ed0| 65 72 72 2c 20 22 25 73 | 20 5b 2d 76 62 75 5d 20 |err, "%s| [-vbu] |
|00001ee0| 5b 2d 6f 20 75 6e 61 6d | 65 5d 20 5b 2d 67 20 67 |[-o unam|e] [-g g|
|00001ef0| 6e 61 6d 65 5d 20 5b 2d | 66 20 74 61 72 66 69 6c |name] [-|f tarfil|
|00001f00| 65 5d 20 66 69 6c 65 73 | 20 61 6e 64 20 64 69 72 |e] files| and dir|
|00001f10| 73 2e 2e 2e 5c 6e 22 2c | 20 50 72 6f 67 72 61 6d |s...\n",| Program|
|00001f20| 29 3b 0a 58 20 20 66 70 | 72 69 6e 74 66 28 73 74 |);.X fp|rintf(st|
|00001f30| 64 65 72 72 2c 20 22 43 | 72 65 61 74 65 73 20 61 |derr, "C|reates a|
|00001f40| 20 74 61 72 20 61 72 63 | 68 69 76 65 20 6f 66 20 | tar arc|hive of |
|00001f50| 74 68 65 20 6e 61 6d 65 | 64 20 66 69 6c 65 73 2e |the name|d files.|
|00001f60| 5c 6e 5c 0a 58 20 2d 76 | 20 3d 20 76 65 72 62 6f |\n\.X -v| = verbo|
|00001f70| 73 65 3a 20 6c 69 73 74 | 20 6e 61 6d 65 73 20 6f |se: list| names o|
|00001f80| 66 20 66 69 6c 65 73 20 | 61 73 20 73 74 6f 72 65 |f files |as store|
|00001f90| 20 74 68 65 6d 2e 5c 6e | 5c 0a 58 20 2d 62 20 3d | them.\n|\.X -b =|
|00001fa0| 20 73 74 6f 72 65 20 6f | 6e 6c 79 20 64 61 74 61 | store o|nly data|
|00001fb0| 20 66 6f 72 6b 73 20 6f | 66 20 66 69 6c 65 73 2e | forks o|f files.|
|00001fc0| 5c 6e 5c 0a 58 20 2d 75 | 20 3d 20 6c 69 6b 65 20 |\n\.X -u| = like |
|00001fd0| 2d 62 2c 20 62 75 74 20 | 63 6f 6e 76 65 72 74 20 |-b, but |convert |
|00001fe0| 43 52 20 74 6f 20 4c 46 | 20 69 6e 20 54 45 58 54 |CR to LF| in TEXT|
|00001ff0| 20 66 69 6c 65 73 2e 5c | 6e 5c 0a 58 20 2d 6f 20 | files.\|n\.X -o |
|00002000| 3d 20 73 65 74 20 75 6e | 69 78 20 6f 77 6e 65 72 |= set un|ix owner|
|00002010| 20 6f 66 20 66 69 6c 65 | 73 20 74 6f 20 75 6e 61 | of file|s to una|
|00002020| 6d 65 20 28 64 65 66 61 | 75 6c 74 20 27 72 6f 6f |me (defa|ult 'roo|
|00002030| 74 27 29 2e 5c 6e 5c 0a | 58 20 2d 67 20 3d 20 73 |t').\n\.|X -g = s|
|00002040| 65 74 20 75 6e 69 78 20 | 67 72 6f 75 70 20 6f 66 |et unix |group of|
|00002050| 20 66 69 6c 65 73 20 74 | 6f 20 67 6e 61 6d 65 20 | files t|o gname |
|00002060| 28 64 65 66 61 75 6c 74 | 20 27 67 72 6f 75 70 27 |(default| 'group'|
|00002070| 29 2e 5c 6e 5c 0a 58 20 | 2d 66 20 74 61 72 66 69 |).\n\.X |-f tarfi|
|00002080| 6c 65 20 3d 20 77 72 69 | 74 65 20 6f 75 74 70 75 |le = wri|te outpu|
|00002090| 74 20 74 6f 20 74 61 72 | 66 69 6c 65 20 28 69 6e |t to tar|file (in|
|000020a0| 73 74 65 61 64 20 6f 66 | 20 73 74 61 6e 64 61 72 |stead of| standar|
|000020b0| 64 20 6f 75 74 70 75 74 | 29 2e 5c 6e 5c 0a 58 20 |d output|).\n\.X |
|000020c0| 2d 48 20 3d 20 73 68 6f | 77 20 74 68 69 73 20 68 |-H = sho|w this h|
|000020d0| 65 6c 70 20 6d 65 73 73 | 61 67 65 2e 5c 6e 5c 0a |elp mess|age.\n\.|
|000020e0| 58 49 66 20 6e 65 69 74 | 68 65 72 20 2d 75 20 6e |XIf neit|her -u n|
|000020f0| 6f 72 20 2d 62 20 66 6c | 61 67 73 20 61 72 65 20 |or -b fl|ags are |
|00002100| 67 69 76 65 6e 2c 20 73 | 74 6f 72 65 73 20 62 6f |given, s|tores bo|
|00002110| 74 68 20 66 6f 72 6b 73 | 20 6f 66 20 65 61 63 68 |th forks| of each|
|00002120| 20 66 69 6c 65 20 28 61 | 73 20 77 65 6c 6c 5c 6e | file (a|s well\n|
|00002130| 5c 0a 58 61 73 20 74 68 | 65 20 6d 61 63 20 6e 61 |\.Xas th|e mac na|
|00002140| 6d 65 2c 20 74 79 70 65 | 2c 20 63 72 65 61 74 6f |me, type|, creato|
|00002150| 72 20 61 6e 64 20 64 61 | 74 65 73 29 20 75 73 69 |r and da|tes) usi|
|00002160| 6e 67 20 6d 61 63 62 69 | 6e 61 72 79 20 66 6f 72 |ng macbi|nary for|
|00002170| 6d 61 74 2e 5c 6e 5c 0a | 58 49 66 20 6e 6f 20 66 |mat.\n\.|XIf no f|
|00002180| 69 6c 65 73 20 61 72 65 | 20 73 70 65 63 69 66 69 |iles are| specifi|
|00002190| 65 64 2c 20 74 61 72 73 | 20 74 68 65 20 63 75 72 |ed, tars| the cur|
|000021a0| 72 65 6e 74 20 64 65 66 | 61 75 6c 74 20 64 69 72 |rent def|ault dir|
|000021b0| 65 63 74 6f 72 79 2e 5c | 6e 5c 6e 5c 0a 58 54 68 |ectory.\|n\n\.XTh|
|000021c0| 69 73 20 69 73 20 66 72 | 65 65 77 61 72 65 2e 20 |is is fr|eeware. |
|000021d0| 20 49 66 20 79 6f 75 20 | 70 61 69 64 20 6d 6f 6e | If you |paid mon|
|000021e0| 65 79 20 66 6f 72 20 74 | 68 69 73 20 70 72 6f 67 |ey for t|his prog|
|000021f0| 72 61 6d 2c 20 79 6f 75 | 20 67 6f 74 20 72 69 70 |ram, you| got rip|
|00002200| 70 65 64 20 6f 66 66 2e | 5c 6e 22 29 3b 0a 58 20 |ped off.|\n");.X |
|00002210| 20 72 65 74 75 72 6e 20 | 32 3b 0a 58 7d 0a 58 0a | return |2;.X}.X.|
|00002220| 58 74 61 72 66 69 6c 65 | 73 20 28 66 69 6c 65 73 |Xtarfile|s (files|
|00002230| 29 0a 58 20 20 63 68 61 | 72 20 2a 2a 66 69 6c 65 |).X cha|r **file|
|00002240| 73 3b 0a 58 7b 0a 58 20 | 20 77 68 69 6c 65 20 28 |s;.X{.X | while (|
|00002250| 2a 66 69 6c 65 73 29 20 | 7b 0a 58 20 20 20 20 69 |*files) |{.X i|
|00002260| 66 20 28 73 74 72 6c 65 | 6e 28 2a 66 69 6c 65 73 |f (strle|n(*files|
|00002270| 29 20 3e 3d 20 31 30 30 | 29 20 6e 61 6d 65 74 6f |) >= 100|) nameto|
|00002280| 6f 6c 6f 6e 67 28 2a 66 | 69 6c 65 73 29 3b 0a 58 |olong(*f|iles);.X|
|00002290| 20 20 20 20 73 74 61 74 | 66 28 2a 66 69 6c 65 73 | stat|f(*files|
|000022a0| 29 3b 0a 58 20 20 20 20 | 69 66 20 28 73 74 61 74 |);.X |if (stat|
|000022b0| 62 2e 69 6f 46 6c 41 74 | 74 72 69 62 20 26 20 69 |b.ioFlAt|trib & i|
|000022c0| 6f 44 69 72 4d 61 73 6b | 29 20 7b 0a 58 20 20 20 |oDirMask|) {.X |
|000022d0| 20 20 20 73 74 61 74 62 | 2e 69 6f 56 52 65 66 4e | statb|.ioVRefN|
|000022e0| 75 6d 20 3d 20 67 65 74 | 76 72 65 66 6e 75 6d 28 |um = get|vrefnum(|
|000022f0| 2a 66 69 6c 65 73 29 3b | 0a 58 20 20 20 20 20 20 |*files);|.X |
|00002300| 74 61 72 64 69 72 28 2a | 66 69 6c 65 73 29 3b 0a |tardir(*|files);.|
|00002310| 58 20 20 20 20 7d 0a 58 | 20 20 20 20 65 6c 73 65 |X }.X| else|
|00002320| 20 7b 0a 58 20 20 20 20 | 20 20 63 68 61 72 20 2a | {.X | char *|
|00002330| 63 70 20 3d 20 2a 66 69 | 6c 65 73 2b 73 74 72 6c |cp = *fi|les+strl|
|00002340| 65 6e 28 2a 66 69 6c 65 | 73 29 3b 0a 58 20 20 20 |en(*file|s);.X |
|00002350| 20 20 20 77 68 69 6c 65 | 20 28 63 70 20 21 3d 20 | while| (cp != |
|00002360| 2a 66 69 6c 65 73 20 26 | 26 20 63 70 5b 2d 31 5d |*files &|& cp[-1]|
|00002370| 20 21 3d 20 27 3a 27 29 | 20 2d 2d 63 70 3b 0a 58 | != ':')| --cp;.X|
|00002380| 20 20 20 20 20 20 69 66 | 20 28 28 6d 61 63 62 69 | if| ((macbi|
|00002390| 6e 68 2e 6e 6c 65 6e 20 | 3d 20 73 74 72 6c 65 6e |nh.nlen |= strlen|
|000023a0| 28 63 70 29 29 20 3e 3d | 20 36 34 29 20 6e 61 6d |(cp)) >=| 64) nam|
|000023b0| 65 74 6f 6f 6c 6f 6e 67 | 28 2a 66 69 6c 65 73 29 |etoolong|(*files)|
|000023c0| 3b 0a 58 20 20 20 20 20 | 20 73 74 72 63 70 79 28 |;.X | strcpy(|
|000023d0| 6d 61 63 62 69 6e 68 2e | 6e 61 6d 65 2c 20 63 70 |macbinh.|name, cp|
|000023e0| 29 3b 0a 58 20 20 20 20 | 20 20 74 61 72 66 69 6c |);.X | tarfil|
|000023f0| 65 28 2a 66 69 6c 65 73 | 29 3b 0a 58 20 20 20 20 |e(*files|);.X |
|00002400| 7d 0a 58 20 20 20 20 2b | 2b 66 69 6c 65 73 3b 0a |}.X +|+files;.|
|00002410| 58 20 20 7d 0a 58 20 20 | 66 69 6c 6c 6d 65 6d 28 |X }.X |fillmem(|
|00002420| 26 74 61 72 68 2c 20 30 | 2c 20 35 31 32 29 3b 0a |&tarh, 0|, 512);.|
|00002430| 58 20 20 77 72 69 74 65 | 62 6c 6f 63 6b 28 26 74 |X write|block(&t|
|00002440| 61 72 68 2c 20 35 31 32 | 29 3b 0a 58 7d 0a 58 0a |arh, 512|);.X}.X.|
|00002450| 58 74 61 72 64 69 72 20 | 28 64 6e 61 6d 65 29 0a |Xtardir |(dname).|
|00002460| 58 20 20 63 68 61 72 20 | 2a 64 6e 61 6d 65 3b 0a |X char |*dname;.|
|00002470| 58 7b 0a 58 20 20 63 68 | 61 72 20 6e 61 6d 65 5b |X{.X ch|ar name[|
|00002480| 32 35 36 5d 3b 0a 58 20 | 20 6c 6f 6e 67 20 64 69 |256];.X | long di|
|00002490| 72 69 64 20 3d 20 73 74 | 61 74 62 2e 69 6f 44 69 |rid = st|atb.ioDi|
|000024a0| 72 49 44 3b 0a 58 20 20 | 69 6e 74 20 69 6e 64 65 |rID;.X |int inde|
|000024b0| 78 20 3d 20 30 3b 0a 58 | 20 20 69 6e 74 20 64 6c |x = 0;.X| int dl|
|000024c0| 65 6e 20 3d 20 73 74 72 | 6c 65 6e 28 64 6e 61 6d |en = str|len(dnam|
|000024d0| 65 29 3b 0a 58 20 20 74 | 61 72 68 65 61 64 65 72 |e);.X t|arheader|
|000024e0| 28 64 6e 61 6d 65 2c 20 | 30 29 3b 0a 58 20 20 69 |(dname, |0);.X i|
|000024f0| 66 20 28 73 74 72 63 68 | 72 28 64 6e 61 6d 65 2c |f (strch|r(dname,|
|00002500| 20 27 3a 27 29 29 20 73 | 74 72 63 70 79 28 6e 61 | ':')) s|trcpy(na|
|00002510| 6d 65 2c 20 64 6e 61 6d | 65 29 3b 0a 58 20 20 65 |me, dnam|e);.X e|
|00002520| 6c 73 65 20 7b 0a 58 20 | 20 20 20 6e 61 6d 65 5b |lse {.X | name[|
|00002530| 30 5d 20 3d 20 27 3a 27 | 3b 0a 58 20 20 20 20 73 |0] = ':'|;.X s|
|00002540| 74 72 63 70 79 28 26 6e | 61 6d 65 5b 31 5d 2c 20 |trcpy(&n|ame[1], |
|00002550| 64 6e 61 6d 65 29 3b 0a | 58 20 20 20 20 64 6c 65 |dname);.|X dle|
|00002560| 6e 2b 2b 3b 0a 58 20 20 | 7d 0a 58 20 20 69 66 20 |n++;.X |}.X if |
|00002570| 28 6e 61 6d 65 5b 64 6c | 65 6e 2d 31 5d 20 21 3d |(name[dl|en-1] !=|
|00002580| 20 27 3a 27 29 20 6e 61 | 6d 65 5b 64 6c 65 6e 2b | ':') na|me[dlen+|
|00002590| 2b 5d 20 3d 20 27 3a 27 | 3b 0a 58 20 20 77 68 69 |+] = ':'|;.X whi|
|000025a0| 6c 65 20 28 31 29 20 7b | 0a 58 20 20 20 20 73 74 |le (1) {|.X st|
|000025b0| 61 74 62 2e 69 6f 46 44 | 69 72 49 6e 64 65 78 20 |atb.ioFD|irIndex |
|000025c0| 3d 20 2b 2b 69 6e 64 65 | 78 3b 0a 58 20 20 20 20 |= ++inde|x;.X |
|000025d0| 73 74 61 74 62 2e 69 6f | 44 69 72 49 44 20 3d 20 |statb.io|DirID = |
|000025e0| 64 69 72 69 64 3b 0a 58 | 20 20 20 20 73 74 61 74 |dirid;.X| stat|
|000025f0| 62 2e 69 6f 4e 61 6d 65 | 50 74 72 20 3d 20 26 6d |b.ioName|Ptr = &m|
|00002600| 61 63 62 69 6e 68 2e 6e | 6c 65 6e 3b 0a 58 20 20 |acbinh.n|len;.X |
|00002610| 20 20 69 66 20 28 50 42 | 47 65 74 43 61 74 49 6e | if (PB|GetCatIn|
|00002620| 66 6f 28 26 73 74 61 74 | 62 2c 20 30 29 20 7c 7c |fo(&stat|b, 0) |||
|00002630| 20 73 74 61 74 62 2e 69 | 6f 52 65 73 75 6c 74 29 | statb.i|oResult)|
|00002640| 20 7b 0a 58 20 20 20 20 | 20 20 69 66 20 28 73 74 | {.X | if (st|
|00002650| 61 74 62 2e 69 6f 52 65 | 73 75 6c 74 20 21 3d 20 |atb.ioRe|sult != |
|00002660| 66 6e 66 45 72 72 29 20 | 70 62 73 79 73 65 72 72 |fnfErr) |pbsyserr|
|00002670| 28 26 73 74 61 74 62 29 | 3b 0a 58 20 20 20 20 20 |(&statb)|;.X |
|00002680| 20 62 72 65 61 6b 3b 0a | 58 20 20 20 20 7d 0a 58 | break;.|X }.X|
|00002690| 20 20 20 20 73 74 72 6e | 63 70 79 28 26 6e 61 6d | strn|cpy(&nam|
|000026a0| 65 5b 64 6c 65 6e 5d 2c | 20 6d 61 63 62 69 6e 68 |e[dlen],| macbinh|
|000026b0| 2e 6e 61 6d 65 2c 20 6d | 61 63 62 69 6e 68 2e 6e |.name, m|acbinh.n|
|000026c0| 6c 65 6e 29 3b 0a 58 20 | 20 20 20 6e 61 6d 65 5b |len);.X | name[|
|000026d0| 64 6c 65 6e 2b 6d 61 63 | 62 69 6e 68 2e 6e 6c 65 |dlen+mac|binh.nle|
|000026e0| 6e 5d 20 3d 20 27 5c 30 | 27 3b 0a 58 20 20 20 20 |n] = '\0|';.X |
|000026f0| 69 66 20 28 6d 61 63 62 | 69 6e 68 2e 6e 6c 65 6e |if (macb|inh.nlen|
|00002700| 20 3e 3d 20 36 34 20 7c | 7c 20 28 64 6c 65 6e 20 | >= 64 ||| (dlen |
|00002710| 2b 20 6d 61 63 62 69 6e | 68 2e 6e 6c 65 6e 29 20 |+ macbin|h.nlen) |
|00002720| 3e 3d 20 31 30 30 29 20 | 6e 61 6d 65 74 6f 6f 6c |>= 100) |nametool|
|00002730| 6f 6e 67 28 6e 61 6d 65 | 29 3b 0a 58 20 20 20 20 |ong(name|);.X |
|00002740| 69 66 20 28 73 74 61 74 | 62 2e 69 6f 46 6c 41 74 |if (stat|b.ioFlAt|
|00002750| 74 72 69 62 20 26 20 69 | 6f 44 69 72 4d 61 73 6b |trib & i|oDirMask|
|00002760| 29 20 74 61 72 64 69 72 | 28 6e 61 6d 65 29 3b 0a |) tardir|(name);.|
|00002770| 58 20 20 20 20 65 6c 73 | 65 20 74 61 72 66 69 6c |X els|e tarfil|
|00002780| 65 28 6e 61 6d 65 29 3b | 0a 58 20 20 7d 0a 58 7d |e(name);|.X }.X}|
|00002790| 0a 58 0a 58 74 61 72 66 | 69 6c 65 20 28 66 6e 61 |.X.Xtarf|ile (fna|
|000027a0| 6d 65 29 0a 58 20 20 63 | 68 61 72 20 2a 66 6e 61 |me).X c|har *fna|
|000027b0| 6d 65 3b 0a 58 7b 0a 58 | 20 20 69 66 20 28 73 74 |me;.X{.X| if (st|
|000027c0| 61 74 62 2e 69 6f 46 52 | 65 66 4e 75 6d 29 20 7b |atb.ioFR|efNum) {|
|000027d0| 0a 58 20 20 20 20 73 68 | 6f 72 74 20 72 65 66 6e |.X sh|ort refn|
|000027e0| 75 6d 3b 0a 58 20 20 20 | 20 69 66 20 28 69 6f 63 |um;.X | if (ioc|
|000027f0| 74 6c 28 66 69 6c 65 6e | 6f 28 74 61 72 66 29 2c |tl(filen|o(tarf),|
|00002800| 20 46 49 4f 52 45 46 4e | 55 4d 2c 20 26 72 65 66 | FIOREFN|UM, &ref|
|00002810| 6e 75 6d 29 20 3e 3d 20 | 30 20 26 26 20 72 65 66 |num) >= |0 && ref|
|00002820| 6e 75 6d 20 3d 3d 20 73 | 74 61 74 62 2e 69 6f 46 |num == s|tatb.ioF|
|00002830| 52 65 66 4e 75 6d 29 0a | 58 20 20 20 20 20 20 20 |RefNum).|X |
|00002840| 72 65 74 75 72 6e 20 30 | 3b 0a 58 20 20 20 20 66 |return 0|;.X f|
|00002850| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 20 22 |printf(s|tderr, "|
|00002860| 25 73 3a 20 57 61 72 6e | 69 6e 67 3a 20 53 6f 6d |%s: Warn|ing: Som|
|00002870| 65 62 6f 64 79 20 68 61 | 73 20 5c 22 25 73 5c 22 |ebody ha|s \"%s\"|
|00002880| 20 6f 70 65 6e 2e 20 59 | 6f 75 20 6d 61 79 20 6c | open. Y|ou may l|
|00002890| 6f 73 65 2e 5c 6e 22 2c | 20 50 72 6f 67 72 61 6d |ose.\n",| Program|
|000028a0| 2c 20 66 6e 61 6d 65 29 | 3b 0a 58 20 20 7d 0a 58 |, fname)|;.X }.X|
|000028b0| 20 20 69 66 20 28 64 61 | 74 61 6f 6e 6c 79 29 20 | if (da|taonly) |
|000028c0| 74 61 72 64 61 74 61 28 | 66 6e 61 6d 65 29 3b 0a |tardata(|fname);.|
|000028d0| 58 20 20 65 6c 73 65 20 | 74 61 72 6d 61 63 62 69 |X else |tarmacbi|
|000028e0| 6e 28 66 6e 61 6d 65 29 | 3b 0a 58 7d 0a 58 0a 58 |n(fname)|;.X}.X.X|
|000028f0| 74 61 72 64 61 74 61 20 | 28 66 6e 61 6d 65 29 0a |tardata |(fname).|
|00002900| 58 20 20 63 68 61 72 20 | 2a 66 6e 61 6d 65 3b 0a |X char |*fname;.|
|00002910| 58 7b 0a 58 20 20 49 4f | 50 61 72 61 6d 20 70 62 |X{.X IO|Param pb|
|00002920| 3b 0a 58 20 20 74 61 72 | 68 65 61 64 65 72 28 66 |;.X tar|header(f|
|00002930| 6e 61 6d 65 2c 20 73 74 | 61 74 62 2e 69 6f 46 6c |name, st|atb.ioFl|
|00002940| 4c 67 4c 65 6e 29 3b 0a | 58 20 20 69 66 20 28 76 |LgLen);.|X if (v|
|00002950| 65 72 62 6f 73 65 29 20 | 66 70 72 69 6e 74 66 28 |erbose) |fprintf(|
|00002960| 73 74 64 65 72 72 2c 20 | 22 58 20 25 73 20 28 25 |stderr, |"X %s (%|
|00002970| 6c 64 20 62 79 74 65 73 | 29 5c 6e 22 2c 20 74 61 |ld bytes|)\n", ta|
|00002980| 72 68 2e 6e 61 6d 65 2c | 20 73 74 61 74 62 2e 69 |rh.name,| statb.i|
|00002990| 6f 46 6c 4c 67 4c 65 6e | 29 3b 0a 58 20 20 70 62 |oFlLgLen|);.X pb|
|000029a0| 2e 69 6f 56 52 65 66 4e | 75 6d 20 3d 20 30 3b 0a |.ioVRefN|um = 0;.|
|000029b0| 58 20 20 70 62 2e 69 6f | 56 65 72 73 4e 75 6d 20 |X pb.io|VersNum |
|000029c0| 3d 20 30 3b 0a 58 20 20 | 70 62 2e 69 6f 50 65 72 |= 0;.X |pb.ioPer|
|000029d0| 6d 73 73 6e 20 3d 20 66 | 73 52 64 50 65 72 6d 3b |mssn = f|sRdPerm;|
|000029e0| 0a 58 20 20 70 62 2e 69 | 6f 4d 69 73 63 20 3d 20 |.X pb.i|oMisc = |
|000029f0| 30 3b 0a 58 20 20 70 62 | 2e 69 6f 4e 61 6d 65 50 |0;.X pb|.ioNameP|
|00002a00| 74 72 20 3d 20 63 32 70 | 73 74 72 28 66 6e 61 6d |tr = c2p|str(fnam|
|00002a10| 65 29 3b 0a 58 20 20 69 | 66 20 28 50 42 4f 70 65 |e);.X i|f (PBOpe|
|00002a20| 6e 28 26 70 62 2c 20 30 | 29 29 20 70 62 73 79 73 |n(&pb, 0|)) pbsys|
|00002a30| 65 72 72 28 26 70 62 29 | 3b 0a 58 20 20 77 72 69 |err(&pb)|;.X wri|
|00002a40| 74 65 66 6f 72 6b 28 26 | 70 62 2c 20 73 74 61 74 |tefork(&|pb, stat|
|00002a50| 62 2e 69 6f 46 6c 4c 67 | 4c 65 6e 2c 20 30 29 3b |b.ioFlLg|Len, 0);|
|00002a60| 0a 58 20 20 70 32 63 73 | 74 72 28 66 6e 61 6d 65 |.X p2cs|tr(fname|
|00002a70| 29 3b 0a 58 7d 0a 58 0a | 58 74 61 72 6d 61 63 62 |);.X}.X.|Xtarmacb|
|00002a80| 69 6e 28 66 6e 61 6d 65 | 29 0a 58 20 20 63 68 61 |in(fname|).X cha|
|00002a90| 72 20 2a 66 6e 61 6d 65 | 3b 0a 58 7b 0a 58 20 20 |r *fname|;.X{.X |
|00002aa0| 49 4f 50 61 72 61 6d 20 | 70 62 3b 0a 58 20 20 6c |IOParam |pb;.X l|
|00002ab0| 6f 6e 67 20 66 73 69 7a | 65 20 3d 20 6d 61 63 62 |ong fsiz|e = macb|
|00002ac0| 69 6e 73 7a 28 73 74 61 | 74 62 2e 69 6f 46 6c 4c |insz(sta|tb.ioFlL|
|00002ad0| 67 4c 65 6e 29 2b 6d 61 | 63 62 69 6e 73 7a 28 73 |gLen)+ma|cbinsz(s|
|00002ae0| 74 61 74 62 2e 69 6f 46 | 6c 52 4c 67 4c 65 6e 29 |tatb.ioF|lRLgLen)|
|00002af0| 2b 31 32 38 4c 3b 0a 58 | 20 20 74 61 72 68 65 61 |+128L;.X| tarhea|
|00002b00| 64 65 72 28 66 6e 61 6d | 65 2c 20 66 73 69 7a 65 |der(fnam|e, fsize|
|00002b10| 29 3b 0a 58 20 20 69 66 | 20 28 76 65 72 62 6f 73 |);.X if| (verbos|
|00002b20| 65 29 20 0a 58 20 20 20 | 66 70 72 69 6e 74 66 28 |e) .X |fprintf(|
|00002b30| 73 74 64 65 72 72 2c 20 | 22 4d 61 63 62 69 6e 20 |stderr, |"Macbin |
|00002b40| 25 73 20 28 25 6c 64 2b | 25 6c 64 20 62 79 74 65 |%s (%ld+|%ld byte|
|00002b50| 73 29 5c 6e 22 2c 0a 58 | 20 20 20 20 20 20 20 20 |s)\n",.X| |
|00002b60| 20 20 20 20 20 20 20 74 | 61 72 68 2e 6e 61 6d 65 | t|arh.name|
|00002b70| 2c 20 73 74 61 74 62 2e | 69 6f 46 6c 4c 67 4c 65 |, statb.|ioFlLgLe|
|00002b80| 6e 2c 20 73 74 61 74 62 | 2e 69 6f 46 6c 52 4c 67 |n, statb|.ioFlRLg|
|00002b90| 4c 65 6e 29 3b 0a 58 20 | 20 6d 61 63 62 69 6e 68 |Len);.X | macbinh|
|00002ba0| 65 61 64 65 72 28 29 3b | 0a 58 20 20 70 62 2e 69 |eader();|.X pb.i|
|00002bb0| 6f 56 52 65 66 4e 75 6d | 20 3d 20 30 3b 0a 58 20 |oVRefNum| = 0;.X |
|00002bc0| 20 70 62 2e 69 6f 56 65 | 72 73 4e 75 6d 20 3d 20 | pb.ioVe|rsNum = |
|00002bd0| 30 3b 0a 58 20 20 70 62 | 2e 69 6f 50 65 72 6d 73 |0;.X pb|.ioPerms|
|00002be0| 73 6e 20 3d 20 66 73 52 | 64 50 65 72 6d 3b 0a 58 |sn = fsR|dPerm;.X|
|00002bf0| 20 20 70 62 2e 69 6f 4d | 69 73 63 20 3d 20 30 3b | pb.ioM|isc = 0;|
|00002c00| 0a 58 20 20 70 62 2e 69 | 6f 4e 61 6d 65 50 74 72 |.X pb.i|oNamePtr|
|00002c10| 20 3d 20 63 32 70 73 74 | 72 28 66 6e 61 6d 65 29 | = c2pst|r(fname)|
|00002c20| 3b 0a 58 20 20 69 66 20 | 28 50 42 4f 70 65 6e 28 |;.X if |(PBOpen(|
|00002c30| 26 70 62 2c 20 30 29 29 | 20 70 62 73 79 73 65 72 |&pb, 0))| pbsyser|
|00002c40| 72 28 26 70 62 29 3b 0a | 58 20 20 77 72 69 74 65 |r(&pb);.|X write|
|00002c50| 66 6f 72 6b 28 26 70 62 | 2c 20 73 74 61 74 62 2e |fork(&pb|, statb.|
|00002c60| 69 6f 46 6c 4c 67 4c 65 | 6e 2c 20 31 29 3b 0a 58 |ioFlLgLe|n, 1);.X|
|00002c70| 20 20 70 62 2e 69 6f 56 | 52 65 66 4e 75 6d 20 3d | pb.ioV|RefNum =|
|00002c80| 20 30 3b 0a 58 20 20 70 | 62 2e 69 6f 56 65 72 73 | 0;.X p|b.ioVers|
|00002c90| 4e 75 6d 20 3d 20 30 3b | 0a 58 20 20 70 62 2e 69 |Num = 0;|.X pb.i|
|00002ca0| 6f 50 65 72 6d 73 73 6e | 20 3d 20 66 73 52 64 50 |oPermssn| = fsRdP|
|00002cb0| 65 72 6d 3b 0a 58 20 20 | 70 62 2e 69 6f 4d 69 73 |erm;.X |pb.ioMis|
|00002cc0| 63 20 3d 20 30 3b 0a 58 | 20 20 69 66 20 28 50 42 |c = 0;.X| if (PB|
|00002cd0| 4f 70 65 6e 52 46 28 26 | 70 62 2c 20 30 29 29 20 |OpenRF(&|pb, 0)) |
|00002ce0| 70 62 73 79 73 65 72 72 | 28 26 70 62 29 3b 0a 58 |pbsyserr|(&pb);.X|
|00002cf0| 20 20 77 72 69 74 65 66 | 6f 72 6b 28 26 70 62 2c | writef|ork(&pb,|
|00002d00| 20 73 74 61 74 62 2e 69 | 6f 46 6c 52 4c 67 4c 65 | statb.i|oFlRLgLe|
|00002d10| 6e 2c 20 31 29 3b 0a 58 | 20 20 69 66 20 28 66 73 |n, 1);.X| if (fs|
|00002d20| 69 7a 65 20 26 20 35 31 | 31 4c 29 20 77 72 69 74 |ize & 51|1L) writ|
|00002d30| 65 62 6c 6f 63 6b 28 26 | 74 61 72 68 2c 20 35 31 |eblock(&|tarh, 51|
|00002d40| 32 20 2d 20 28 66 73 69 | 7a 65 20 26 20 35 31 31 |2 - (fsi|ze & 511|
|00002d50| 4c 29 29 3b 0a 58 20 20 | 70 32 63 73 74 72 28 66 |L));.X |p2cstr(f|
|00002d60| 6e 61 6d 65 29 3b 0a 58 | 7d 0a 58 0a 58 6d 61 63 |name);.X|}.X.Xmac|
|00002d70| 62 69 6e 68 65 61 64 65 | 72 28 29 0a 58 7b 0a 58 |binheade|r().X{.X|
|00002d80| 20 20 66 69 6c 6c 6d 65 | 6d 28 26 6d 61 63 62 69 | fillme|m(&macbi|
|00002d90| 6e 68 2e 6e 61 6d 65 5b | 6d 61 63 62 69 6e 68 2e |nh.name[|macbinh.|
|00002da0| 6e 6c 65 6e 5d 2c 20 30 | 2c 20 36 33 2d 6d 61 63 |nlen], 0|, 63-mac|
|00002db0| 62 69 6e 68 2e 6e 6c 65 | 6e 29 3b 0a 58 20 20 6d |binh.nle|n);.X m|
|00002dc0| 63 6f 70 79 28 26 6d 61 | 63 62 69 6e 68 2e 66 69 |copy(&ma|cbinh.fi|
|00002dd0| 6e 66 6f 2c 20 26 73 74 | 61 74 62 2e 69 6f 46 6c |nfo, &st|atb.ioFl|
|00002de0| 46 6e 64 72 49 6e 66 6f | 2c 20 73 69 7a 65 6f 66 |FndrInfo|, sizeof|
|00002df0| 28 46 49 6e 66 6f 29 29 | 3b 0a 58 20 20 6d 61 63 |(FInfo))|;.X mac|
|00002e00| 62 69 6e 68 2e 70 72 6f | 74 65 63 74 65 64 20 3d |binh.pro|tected =|
|00002e10| 20 30 3b 0a 58 20 20 6d | 61 63 62 69 6e 68 2e 7a | 0;.X m|acbinh.z|
|00002e20| 65 72 6f 20 3d 20 30 3b | 0a 58 20 20 6d 61 63 62 |ero = 0;|.X macb|
|00002e30| 69 6e 68 2e 64 66 6c 65 | 6e 20 3d 20 73 74 61 74 |inh.dfle|n = stat|
|00002e40| 62 2e 69 6f 46 6c 4c 67 | 4c 65 6e 3b 0a 58 20 20 |b.ioFlLg|Len;.X |
|00002e50| 6d 61 63 62 69 6e 68 2e | 72 66 6c 65 6e 20 3d 20 |macbinh.|rflen = |
|00002e60| 73 74 61 74 62 2e 69 6f | 46 6c 52 4c 67 4c 65 6e |statb.io|FlRLgLen|
|00002e70| 3b 0a 58 20 20 6d 61 63 | 62 69 6e 68 2e 63 64 61 |;.X mac|binh.cda|
|00002e80| 74 65 20 3d 20 73 74 61 | 74 62 2e 69 6f 46 6c 43 |te = sta|tb.ioFlC|
|00002e90| 72 44 61 74 3b 0a 58 20 | 20 6d 61 63 62 69 6e 68 |rDat;.X | macbinh|
|00002ea0| 2e 6d 64 61 74 65 20 3d | 20 73 74 61 74 62 2e 69 |.mdate =| statb.i|
|00002eb0| 6f 46 6c 4d 64 44 61 74 | 3b 0a 58 20 20 66 69 6c |oFlMdDat|;.X fil|
|00002ec0| 6c 6d 65 6d 28 26 74 61 | 72 68 2c 20 30 2c 20 31 |lmem(&ta|rh, 0, 1|
|00002ed0| 32 38 29 3b 0a 58 20 20 | 6d 63 6f 70 79 28 26 74 |28);.X |mcopy(&t|
|00002ee0| 61 72 68 2e 6e 61 6d 65 | 5b 31 5d 2c 20 26 6d 61 |arh.name|[1], &ma|
|00002ef0| 63 62 69 6e 68 2c 20 73 | 69 7a 65 6f 66 28 6d 61 |cbinh, s|izeof(ma|
|00002f00| 63 62 69 6e 68 29 29 3b | 0a 58 20 20 77 72 69 74 |cbinh));|.X writ|
|00002f10| 65 62 6c 6f 63 6b 28 26 | 74 61 72 68 2c 20 31 32 |eblock(&|tarh, 12|
|00002f20| 38 29 3b 0a 58 7d 0a 58 | 0a 58 77 72 69 74 65 66 |8);.X}.X|.Xwritef|
|00002f30| 6f 72 6b 20 28 70 62 2c | 20 66 73 69 7a 65 2c 20 |ork (pb,| fsize, |
|00002f40| 6d 61 63 62 69 6e 70 29 | 0a 58 20 20 49 4f 50 61 |macbinp)|.X IOPa|
|00002f50| 72 61 6d 20 2a 70 62 3b | 0a 58 20 20 6c 6f 6e 67 |ram *pb;|.X long|
|00002f60| 20 66 73 69 7a 65 3b 0a | 58 7b 0a 58 20 20 69 6e | fsize;.|X{.X in|
|00002f70| 74 20 62 6c 6f 63 6b 73 | 7a 20 3d 20 28 6d 61 63 |t blocks|z = (mac|
|00002f80| 62 69 6e 70 20 3f 20 31 | 32 38 20 3a 20 35 31 32 |binp ? 1|28 : 512|
|00002f90| 29 3b 0a 58 20 20 70 62 | 2d 3e 69 6f 50 6f 73 4d |);.X pb|->ioPosM|
|00002fa0| 6f 64 65 20 3d 20 66 73 | 41 74 4d 61 72 6b 3b 0a |ode = fs|AtMark;.|
|00002fb0| 58 20 20 70 62 2d 3e 69 | 6f 42 75 66 66 65 72 20 |X pb->i|oBuffer |
|00002fc0| 3d 20 26 74 61 72 68 3b | 0a 58 20 20 70 62 2d 3e |= &tarh;|.X pb->|
|00002fd0| 69 6f 52 65 71 43 6f 75 | 6e 74 20 3d 20 62 6c 6f |ioReqCou|nt = blo|
|00002fe0| 63 6b 73 7a 3b 0a 58 20 | 20 77 68 69 6c 65 20 28 |cksz;.X | while (|
|00002ff0| 66 73 69 7a 65 29 20 7b | 0a 58 20 20 20 20 69 66 |fsize) {|.X if|
|00003000| 20 28 66 73 69 7a 65 20 | 3c 20 70 62 2d 3e 69 6f | (fsize |< pb->io|
|00003010| 52 65 71 43 6f 75 6e 74 | 29 20 70 62 2d 3e 69 6f |ReqCount|) pb->io|
|00003020| 52 65 71 43 6f 75 6e 74 | 20 3d 20 66 73 69 7a 65 |ReqCount| = fsize|
|00003030| 3b 0a 58 20 20 20 20 66 | 73 69 7a 65 20 2d 3d 20 |;.X f|size -= |
|00003040| 70 62 2d 3e 69 6f 52 65 | 71 43 6f 75 6e 74 3b 0a |pb->ioRe|qCount;.|
|00003050| 58 20 20 20 20 69 66 20 | 28 50 42 52 65 61 64 28 |X if |(PBRead(|
|00003060| 70 62 2c 20 30 29 20 7c | 7c 20 70 62 2d 3e 69 6f |pb, 0) ||| pb->io|
|00003070| 41 63 74 43 6f 75 6e 74 | 20 21 3d 20 70 62 2d 3e |ActCount| != pb->|
|00003080| 69 6f 52 65 71 43 6f 75 | 6e 74 29 20 7b 0a 58 20 |ioReqCou|nt) {.X |
|00003090| 20 20 20 20 20 69 6e 74 | 20 65 72 72 20 3d 20 70 | int| err = p|
|000030a0| 62 2d 3e 69 6f 52 65 73 | 75 6c 74 3b 0a 58 20 20 |b->ioRes|ult;.X |
|000030b0| 20 20 20 20 28 76 6f 69 | 64 29 20 50 42 43 6c 6f | (voi|d) PBClo|
|000030c0| 73 65 28 70 62 2c 20 30 | 29 3b 0a 58 20 20 20 20 |se(pb, 0|);.X |
|000030d0| 20 20 70 62 2d 3e 69 6f | 52 65 73 75 6c 74 20 3d | pb->io|Result =|
|000030e0| 20 65 72 72 3b 0a 58 20 | 20 20 20 20 20 70 62 73 | err;.X | pbs|
|000030f0| 79 73 65 72 72 28 70 62 | 29 3b 0a 58 20 20 20 20 |yserr(pb|);.X |
|00003100| 7d 0a 58 20 20 20 20 69 | 66 20 28 21 6d 61 63 62 |}.X i|f (!macb|
|00003110| 69 6e 70 20 26 26 20 21 | 62 69 6e 61 72 79 20 26 |inp && !|binary &|
|00003120| 26 20 73 74 61 74 62 2e | 69 6f 46 6c 46 6e 64 72 |& statb.|ioFlFndr|
|00003130| 49 6e 66 6f 2e 66 64 54 | 79 70 65 20 3d 3d 20 54 |Info.fdT|ype == T|
|00003140| 45 58 54 29 20 7b 0a 58 | 20 20 20 20 20 20 63 68 |EXT) {.X| ch|
|00003150| 61 72 20 2a 63 70 20 3d | 20 70 62 2d 3e 69 6f 42 |ar *cp =| pb->ioB|
|00003160| 75 66 66 65 72 3b 0a 58 | 20 20 20 20 20 20 69 6e |uffer;.X| in|
|00003170| 74 20 69 20 3d 20 70 62 | 2d 3e 69 6f 41 63 74 43 |t i = pb|->ioActC|
|00003180| 6f 75 6e 74 3b 0a 58 20 | 20 20 20 20 20 77 68 69 |ount;.X | whi|
|00003190| 6c 65 20 28 69 29 20 7b | 0a 58 20 20 20 20 20 20 |le (i) {|.X |
|000031a0| 20 20 69 66 20 28 2a 63 | 70 20 3d 3d 20 28 27 4d | if (*c|p == ('M|
|000031b0| 27 2d 27 40 27 29 29 20 | 2a 63 70 20 3d 20 28 27 |'-'@')) |*cp = ('|
|000031c0| 4a 27 2d 27 40 27 29 3b | 0a 58 09 2d 2d 69 2c 20 |J'-'@');|.X.--i, |
|000031d0| 2b 2b 63 70 3b 0a 58 20 | 20 20 20 20 20 7d 0a 58 |++cp;.X | }.X|
|000031e0| 20 20 20 20 7d 0a 58 20 | 20 20 20 77 72 69 74 65 | }.X | write|
|000031f0| 62 6c 6f 63 6b 28 70 62 | 2d 3e 69 6f 42 75 66 66 |block(pb|->ioBuff|
|00003200| 65 72 2c 20 62 6c 6f 63 | 6b 73 7a 29 3b 0a 58 20 |er, bloc|ksz);.X |
|00003210| 20 7d 0a 58 20 20 69 66 | 20 28 50 42 43 6c 6f 73 | }.X if| (PBClos|
|00003220| 65 28 70 62 2c 20 30 29 | 29 20 70 62 73 79 73 65 |e(pb, 0)|) pbsyse|
|00003230| 72 72 28 70 62 29 3b 0a | 58 7d 0a 58 0a 58 74 61 |rr(pb);.|X}.X.Xta|
|00003240| 72 68 65 61 64 65 72 20 | 28 66 6e 61 6d 65 2c 20 |rheader |(fname, |
|00003250| 66 73 69 7a 65 29 0a 58 | 20 20 63 68 61 72 20 2a |fsize).X| char *|
|00003260| 66 6e 61 6d 65 3b 0a 58 | 20 20 6c 6f 6e 67 20 66 |fname;.X| long f|
|00003270| 73 69 7a 65 3b 0a 58 7b | 0a 58 20 20 69 6e 74 20 |size;.X{|.X int |
|00003280| 63 68 6b 73 75 6d 20 3d | 20 30 2c 20 69 3b 0a 58 |chksum =| 0, i;.X|
|00003290| 20 20 66 69 6c 6c 6d 65 | 6d 28 26 74 61 72 68 2c | fillme|m(&tarh,|
|000032a0| 20 30 2c 20 35 31 32 29 | 3b 0a 58 20 20 6d 61 63 | 0, 512)|;.X mac|
|000032b0| 32 75 6e 69 78 28 74 61 | 72 68 2e 6e 61 6d 65 2c |2unix(ta|rh.name,|
|000032c0| 20 66 6e 61 6d 65 29 3b | 0a 58 20 20 69 66 20 28 | fname);|.X if (|
|000032d0| 73 74 61 74 62 2e 69 6f | 46 6c 41 74 74 72 69 62 |statb.io|FlAttrib|
|000032e0| 20 26 20 69 6f 44 69 72 | 4d 61 73 6b 29 20 0a 58 | & ioDir|Mask) .X|
|000032f0| 20 20 20 20 69 66 20 28 | 74 61 72 68 2e 6e 61 6d | if (|tarh.nam|
|00003300| 65 5b 73 74 72 6c 65 6e | 28 74 61 72 68 2e 6e 61 |e[strlen|(tarh.na|
|00003310| 6d 65 29 2d 31 5d 20 21 | 3d 20 27 2f 27 29 0a 58 |me)-1] !|= '/').X|
|00003320| 20 20 20 20 20 20 74 61 | 72 68 2e 6e 61 6d 65 5b | ta|rh.name[|
|00003330| 73 74 72 6c 65 6e 28 74 | 61 72 68 2e 6e 61 6d 65 |strlen(t|arh.name|
|00003340| 29 5d 20 3d 20 27 2f 27 | 3b 0a 58 20 20 6e 75 6d |)] = '/'|;.X num|
|00003350| 73 74 72 28 74 61 72 68 | 2e 6d 6f 64 65 2c 20 28 |str(tarh|.mode, (|
|00003360| 28 73 74 61 74 62 2e 69 | 6f 46 6c 41 74 74 72 69 |(statb.i|oFlAttri|
|00003370| 62 20 26 20 69 6f 44 69 | 72 4d 61 73 6b 29 20 3f |b & ioDi|rMask) ?|
|00003380| 20 64 69 72 6d 6f 64 65 | 20 3a 20 66 69 6c 65 6d | dirmode| : filem|
|00003390| 6f 64 65 29 2c 20 38 29 | 3b 0a 58 20 20 6e 75 6d |ode), 8)|;.X num|
|000033a0| 73 74 72 28 74 61 72 68 | 2e 75 69 64 2c 20 30 2c |str(tarh|.uid, 0,|
|000033b0| 20 38 29 3b 0a 58 20 20 | 6e 75 6d 73 74 72 28 74 | 8);.X |numstr(t|
|000033c0| 61 72 68 2e 67 69 64 2c | 20 30 2c 20 38 29 3b 0a |arh.gid,| 0, 8);.|
|000033d0| 58 20 20 6e 75 6d 73 74 | 72 28 74 61 72 68 2e 73 |X numst|r(tarh.s|
|000033e0| 69 7a 65 2c 20 66 73 69 | 7a 65 2c 20 31 32 29 3b |ize, fsi|ze, 12);|
|000033f0| 0a 58 20 20 6e 75 6d 73 | 74 72 28 74 61 72 68 2e |.X nums|tr(tarh.|
|00003400| 6d 74 69 6d 65 2c 20 73 | 74 61 74 62 2e 69 6f 46 |mtime, s|tatb.ioF|
|00003410| 6c 4d 64 44 61 74 20 2d | 20 55 4e 49 58 54 49 4d |lMdDat -| UNIXTIM|
|00003420| 45 2c 20 31 32 29 3b 0a | 58 20 20 66 69 6c 6c 6d |E, 12);.|X fillm|
|00003430| 65 6d 28 74 61 72 68 2e | 63 68 6b 73 75 6d 2c 20 |em(tarh.|chksum, |
|00003440| 27 20 27 2c 20 38 29 3b | 0a 58 20 20 74 61 72 68 |' ', 8);|.X tarh|
|00003450| 2e 6c 69 6e 6b 66 6c 61 | 67 20 3d 20 28 28 73 74 |.linkfla|g = ((st|
|00003460| 61 74 62 2e 69 6f 46 6c | 41 74 74 72 69 62 20 26 |atb.ioFl|Attrib &|
|00003470| 20 69 6f 44 69 72 4d 61 | 73 6b 29 20 3f 20 27 35 | ioDirMa|sk) ? '5|
|00003480| 27 20 3a 20 27 30 27 29 | 3b 0a 58 20 20 73 74 72 |' : '0')|;.X str|
|00003490| 63 70 79 28 74 61 72 68 | 2e 6d 61 67 69 63 2c 20 |cpy(tarh|.magic, |
|000034a0| 22 75 73 74 61 72 20 20 | 22 29 3b 0a 58 20 20 73 |"ustar |");.X s|
|000034b0| 74 72 63 70 79 28 74 61 | 72 68 2e 75 6e 61 6d 65 |trcpy(ta|rh.uname|
|000034c0| 2c 20 75 6e 61 6d 65 29 | 3b 0a 58 20 20 73 74 72 |, uname)|;.X str|
|000034d0| 63 70 79 28 74 61 72 68 | 2e 67 6e 61 6d 65 2c 20 |cpy(tarh|.gname, |
|000034e0| 67 6e 61 6d 65 29 3b 0a | 58 20 20 66 6f 72 28 69 |gname);.|X for(i|
|000034f0| 3d 30 3b 20 69 3c 35 31 | 32 3b 20 2b 2b 69 29 20 |=0; i<51|2; ++i) |
|00003500| 63 68 6b 73 75 6d 20 2b | 3d 20 28 75 6e 73 69 67 |chksum +|= (unsig|
|00003510| 6e 65 64 20 63 68 61 72 | 29 74 61 72 68 2e 6e 61 |ned char|)tarh.na|
|00003520| 6d 65 5b 69 5d 3b 0a 58 | 20 20 6e 75 6d 73 74 72 |me[i];.X| numstr|
|00003530| 28 74 61 72 68 2e 63 68 | 6b 73 75 6d 2c 20 63 68 |(tarh.ch|ksum, ch|
|00003540| 6b 73 75 6d 2c 20 38 29 | 3b 0a 58 20 20 77 72 69 |ksum, 8)|;.X wri|
|00003550| 74 65 62 6c 6f 63 6b 28 | 26 74 61 72 68 2c 20 35 |teblock(|&tarh, 5|
|00003560| 31 32 29 3b 0a 58 7d 0a | 58 0a 58 2f 2a 20 44 6f |12);.X}.|X.X/* Do|
|00003570| 6e 27 74 20 61 6c 6c 6f | 77 20 61 62 73 6f 6c 75 |n't allo|w absolu|
|00003580| 74 65 20 6e 61 6d 65 73 | 2e 20 20 20 22 48 44 3a |te names|. "HD:|
|00003590| 66 6f 6f 3a 62 61 72 22 | 20 62 65 63 6f 6d 65 73 |foo:bar"| becomes|
|000035a0| 20 22 2e 2f 66 6f 6f 2f | 62 61 72 22 20 2a 2f 0a | "./foo/|bar" */.|
|000035b0| 58 6d 61 63 32 75 6e 69 | 78 28 75 6e 61 6d 65 2c |Xmac2uni|x(uname,|
|000035c0| 20 6d 6e 61 6d 65 29 0a | 58 20 63 68 61 72 20 2a | mname).|X char *|
|000035d0| 75 6e 61 6d 65 2c 20 2a | 6d 6e 61 6d 65 3b 0a 58 |uname, *|mname;.X|
|000035e0| 7b 0a 58 20 20 63 68 61 | 72 20 2a 64 70 20 3d 20 |{.X cha|r *dp = |
|000035f0| 75 6e 61 6d 65 2c 20 2a | 63 70 3b 0a 58 20 20 69 |uname, *|cp;.X i|
|00003600| 66 20 28 63 70 20 3d 20 | 73 74 72 63 68 72 28 6d |f (cp = |strchr(m|
|00003610| 6e 61 6d 65 2c 20 27 3a | 27 29 29 20 2a 64 70 2b |name, ':|')) *dp+|
|00003620| 2b 20 3d 20 27 2e 27 2c | 20 2a 64 70 2b 2b 20 3d |+ = '.',| *dp++ =|
|00003630| 20 27 2f 27 2c 20 2b 2b | 63 70 3b 0a 58 20 20 65 | '/', ++|cp;.X e|
|00003640| 6c 73 65 20 63 70 20 3d | 20 6d 6e 61 6d 65 3b 0a |lse cp =| mname;.|
|00003650| 58 20 20 77 68 69 6c 65 | 20 28 31 29 20 7b 0a 58 |X while| (1) {.X|
|00003660| 20 20 20 20 77 68 69 6c | 65 20 28 2a 63 70 20 3d | whil|e (*cp =|
|00003670| 3d 20 27 3a 27 29 20 2a | 64 70 2b 2b 20 3d 20 27 |= ':') *|dp++ = '|
|00003680| 2e 27 2c 20 2a 64 70 2b | 2b 20 3d 20 27 2e 27 2c |.', *dp+|+ = '.',|
|00003690| 20 2a 64 70 2b 2b 20 3d | 20 27 2f 27 2c 20 2b 2b | *dp++ =| '/', ++|
|000036a0| 63 70 3b 0a 58 20 20 20 | 20 77 68 69 6c 65 20 28 |cp;.X | while (|
|000036b0| 2a 63 70 20 26 26 20 2a | 63 70 20 21 3d 20 27 3a |*cp && *|cp != ':|
|000036c0| 27 29 20 69 66 20 28 28 | 2a 64 70 2b 2b 20 3d 20 |') if ((|*dp++ = |
|000036d0| 2a 63 70 2b 2b 29 20 3d | 3d 20 27 2f 27 29 20 64 |*cp++) =|= '/') d|
|000036e0| 70 5b 2d 31 5d 20 3d 20 | 27 3a 27 3b 0a 58 20 20 |p[-1] = |':';.X |
|000036f0| 20 20 69 66 20 28 21 2a | 63 70 2b 2b 29 20 62 72 | if (!*|cp++) br|
|00003700| 65 61 6b 3b 0a 58 20 20 | 20 20 2a 64 70 2b 2b 20 |eak;.X | *dp++ |
|00003710| 3d 20 27 2f 27 3b 0a 58 | 20 20 7d 0a 58 20 20 66 |= '/';.X| }.X f|
|00003720| 6f 72 20 28 64 70 20 3d | 20 75 6e 61 6d 65 3b 20 |or (dp =| uname; |
|00003730| 2a 64 70 3b 20 2b 2b 64 | 70 29 20 69 66 20 28 2a |*dp; ++d|p) if (*|
|00003740| 64 70 20 3d 3d 20 27 20 | 27 29 20 2a 64 70 20 3d |dp == ' |') *dp =|
|00003750| 20 27 5f 27 3b 0a 58 20 | 20 69 66 20 28 73 74 72 | '_';.X | if (str|
|00003760| 6c 65 6e 28 75 6e 61 6d | 65 29 20 3e 3d 20 31 30 |len(unam|e) >= 10|
|00003770| 30 29 20 6e 61 6d 65 74 | 6f 6f 6c 6f 6e 67 28 6d |0) namet|oolong(m|
|00003780| 6e 61 6d 65 29 3b 0a 58 | 7d 0a 58 0a 58 6e 75 6d |name);.X|}.X.Xnum|
|00003790| 73 74 72 20 28 70 2c 20 | 6e 75 6d 2c 20 63 6f 75 |str (p, |num, cou|
|000037a0| 6e 74 29 0a 58 20 20 63 | 68 61 72 20 2a 70 3b 0a |nt).X c|har *p;.|
|000037b0| 58 7b 0a 58 20 20 70 5b | 2d 2d 63 6f 75 6e 74 5d |X{.X p[|--count]|
|000037c0| 20 3d 20 27 5c 30 27 3b | 0a 58 20 20 69 66 20 28 | = '\0';|.X if (|
|000037d0| 63 6f 75 6e 74 20 21 3d | 20 31 31 29 20 70 5b 2d |count !=| 11) p[-|
|000037e0| 2d 63 6f 75 6e 74 5d 20 | 3d 20 27 20 27 3b 0a 58 |-count] |= ' ';.X|
|000037f0| 20 20 69 66 20 28 6e 75 | 6d 20 3c 20 30 29 20 7b | if (nu|m < 0) {|
|00003800| 0a 58 20 20 20 20 2a 70 | 2b 2b 20 3d 20 27 2d 27 |.X *p|++ = '-'|
|00003810| 3b 0a 58 20 20 20 20 2d | 2d 63 6f 75 6e 74 3b 0a |;.X -|-count;.|
|00003820| 58 20 20 20 20 6e 75 6d | 20 3d 20 2d 6e 75 6d 3b |X num| = -num;|
|00003830| 0a 58 20 20 7d 0a 58 20 | 20 77 68 69 6c 65 20 28 |.X }.X | while (|
|00003840| 63 6f 75 6e 74 29 20 7b | 0a 58 20 20 20 20 70 5b |count) {|.X p[|
|00003850| 2d 2d 63 6f 75 6e 74 5d | 20 3d 20 27 30 27 20 2b |--count]| = '0' +|
|00003860| 20 28 6e 75 6d 20 26 20 | 37 29 3b 0a 58 20 20 20 | (num & |7);.X |
|00003870| 20 6e 75 6d 20 3e 3e 3d | 20 33 3b 0a 58 20 20 7d | num >>=| 3;.X }|
|00003880| 0a 58 7d 0a 58 0a 58 73 | 74 61 74 66 20 28 66 6e |.X}.X.Xs|tatf (fn|
|00003890| 61 6d 65 29 0a 58 20 20 | 63 68 61 72 20 2a 66 6e |ame).X |char *fn|
|000038a0| 61 6d 65 3b 0a 58 7b 0a | 58 20 20 63 68 61 72 20 |ame;.X{.|X char |
|000038b0| 6e 61 6d 65 5b 32 35 36 | 5d 3b 0a 58 20 20 73 74 |name[256|];.X st|
|000038c0| 61 74 62 2e 69 6f 4e 61 | 6d 65 50 74 72 20 3d 20 |atb.ioNa|mePtr = |
|000038d0| 63 32 70 73 74 72 28 73 | 74 72 63 70 79 28 6e 61 |c2pstr(s|trcpy(na|
|000038e0| 6d 65 2c 20 66 6e 61 6d | 65 29 29 3b 0a 58 20 20 |me, fnam|e));.X |
|000038f0| 73 74 61 74 62 2e 69 6f | 46 56 65 72 73 4e 75 6d |statb.io|FVersNum|
|00003900| 20 3d 20 30 3b 0a 58 20 | 20 73 74 61 74 62 2e 69 | = 0;.X | statb.i|
|00003910| 6f 56 52 65 66 4e 75 6d | 20 3d 20 30 3b 0a 58 20 |oVRefNum| = 0;.X |
|00003920| 20 73 74 61 74 62 2e 69 | 6f 46 44 69 72 49 6e 64 | statb.i|oFDirInd|
|00003930| 65 78 20 3d 20 30 3b 0a | 58 20 20 73 74 61 74 62 |ex = 0;.|X statb|
|00003940| 2e 69 6f 44 69 72 49 44 | 20 3d 20 30 3b 0a 58 20 |.ioDirID| = 0;.X |
|00003950| 20 69 66 20 28 50 42 47 | 65 74 43 61 74 49 6e 66 | if (PBG|etCatInf|
|00003960| 6f 28 26 73 74 61 74 62 | 2c 20 30 29 20 7c 7c 20 |o(&statb|, 0) || |
|00003970| 73 74 61 74 62 2e 69 6f | 52 65 73 75 6c 74 29 20 |statb.io|Result) |
|00003980| 70 62 73 79 73 65 72 72 | 28 26 73 74 61 74 62 29 |pbsyserr|(&statb)|
|00003990| 3b 0a 58 20 20 73 74 61 | 74 62 2e 69 6f 4e 61 6d |;.X sta|tb.ioNam|
|000039a0| 65 50 74 72 20 3d 20 4e | 55 4c 4c 3b 0a 58 7d 0a |ePtr = N|ULL;.X}.|
|000039b0| 58 0a 58 67 65 74 76 72 | 65 66 6e 75 6d 20 28 66 |X.Xgetvr|efnum (f|
|000039c0| 6e 61 6d 65 29 0a 58 20 | 20 63 68 61 72 20 2a 66 |name).X | char *f|
|000039d0| 6e 61 6d 65 3b 0a 58 7b | 0a 58 20 20 48 56 6f 6c |name;.X{|.X HVol|
|000039e0| 75 6d 65 50 61 72 61 6d | 20 70 62 3b 0a 58 20 20 |umeParam| pb;.X |
|000039f0| 63 68 61 72 20 6e 61 6d | 65 5b 32 35 36 5d 3b 0a |char nam|e[256];.|
|00003a00| 58 20 20 70 62 2e 69 6f | 4e 61 6d 65 50 74 72 20 |X pb.io|NamePtr |
|00003a10| 3d 20 63 32 70 73 74 72 | 28 73 74 72 63 70 79 28 |= c2pstr|(strcpy(|
|00003a20| 6e 61 6d 65 2c 20 66 6e | 61 6d 65 29 29 3b 0a 58 |name, fn|ame));.X|
|00003a30| 20 20 70 62 2e 69 6f 56 | 52 65 66 4e 75 6d 20 3d | pb.ioV|RefNum =|
|00003a40| 20 30 3b 0a 58 20 20 70 | 62 2e 69 6f 56 6f 6c 49 | 0;.X p|b.ioVolI|
|00003a50| 6e 64 65 78 20 3d 20 30 | 3b 0a 58 20 20 69 66 20 |ndex = 0|;.X if |
|00003a60| 28 50 42 48 47 65 74 56 | 49 6e 66 6f 28 26 70 62 |(PBHGetV|Info(&pb|
|00003a70| 2c 20 30 29 20 7c 7c 20 | 70 62 2e 69 6f 52 65 73 |, 0) || |pb.ioRes|
|00003a80| 75 6c 74 29 20 70 62 73 | 79 73 65 72 72 28 26 70 |ult) pbs|yserr(&p|
|00003a90| 62 29 3b 0a 58 20 20 72 | 65 74 75 72 6e 20 70 62 |b);.X r|eturn pb|
|00003aa0| 2e 69 6f 56 52 65 66 4e | 75 6d 3b 0a 58 7d 0a 58 |.ioVRefN|um;.X}.X|
|00003ab0| 0a 58 6e 61 6d 65 74 6f | 6f 6c 6f 6e 67 20 28 6e |.Xnameto|olong (n|
|00003ac0| 61 6d 65 29 0a 58 20 20 | 63 68 61 72 20 2a 6e 61 |ame).X |char *na|
|00003ad0| 6d 65 3b 0a 58 7b 0a 58 | 20 20 66 61 74 61 6c 28 |me;.X{.X| fatal(|
|00003ae0| 22 5c 22 25 73 5c 22 20 | 2d 20 6e 61 6d 65 20 74 |"\"%s\" |- name t|
|00003af0| 6f 6f 20 6c 6f 6e 67 22 | 2c 20 6e 61 6d 65 29 3b |oo long"|, name);|
|00003b00| 0a 58 7d 0a 58 0a 58 70 | 62 73 79 73 65 72 72 20 |.X}.X.Xp|bsyserr |
|00003b10| 28 70 62 29 0a 58 20 20 | 49 4f 50 61 72 61 6d 20 |(pb).X |IOParam |
|00003b20| 2a 70 62 3b 0a 58 7b 0a | 58 20 20 69 6e 74 20 65 |*pb;.X{.|X int e|
|00003b30| 72 72 20 3d 20 70 62 2d | 3e 69 6f 52 65 73 75 6c |rr = pb-|>ioResul|
|00003b40| 74 3b 0a 58 20 20 63 68 | 61 72 20 2a 6e 61 6d 65 |t;.X ch|ar *name|
|00003b50| 20 3d 20 70 62 2d 3e 69 | 6f 4e 61 6d 65 50 74 72 | = pb->i|oNamePtr|
|00003b60| 3b 0a 58 20 20 70 32 63 | 73 74 72 28 6e 61 6d 65 |;.X p2c|str(name|
|00003b70| 29 3b 0a 58 20 20 69 66 | 20 28 65 72 72 20 3d 3d |);.X if| (err ==|
|00003b80| 20 66 6e 66 45 72 72 29 | 20 66 61 74 61 6c 28 22 | fnfErr)| fatal("|
|00003b90| 25 73 20 2d 20 46 69 6c | 65 20 6e 6f 74 20 66 6f |%s - Fil|e not fo|
|00003ba0| 75 6e 64 22 2c 20 6e 61 | 6d 65 29 3b 0a 58 20 20 |und", na|me);.X |
|00003bb0| 65 6c 73 65 20 69 66 20 | 28 65 72 72 20 3d 3d 20 |else if |(err == |
|00003bc0| 6e 73 76 45 72 72 29 20 | 66 61 74 61 6c 28 22 25 |nsvErr) |fatal("%|
|00003bd0| 73 20 2d 20 4e 6f 20 73 | 75 63 68 20 76 6f 6c 75 |s - No s|uch volu|
|00003be0| 6d 65 22 2c 20 6e 61 6d | 65 29 3b 0a 58 20 20 65 |me", nam|e);.X e|
|00003bf0| 6c 73 65 20 69 66 20 28 | 65 72 72 20 3d 3d 20 74 |lse if (|err == t|
|00003c00| 6d 66 6f 45 72 72 29 20 | 66 61 74 61 6c 28 22 25 |mfoErr) |fatal("%|
|00003c10| 73 20 2d 20 54 6f 6f 20 | 6d 61 6e 79 20 66 69 6c |s - Too |many fil|
|00003c20| 65 73 20 6f 70 65 6e 22 | 2c 20 6e 61 6d 65 29 3b |es open"|, name);|
|00003c30| 0a 58 20 20 65 6c 73 65 | 20 69 66 20 28 65 72 72 |.X else| if (err|
|00003c40| 20 3d 3d 20 70 65 72 6d | 45 72 72 29 20 66 61 74 | == perm|Err) fat|
|00003c50| 61 6c 28 22 25 73 20 2d | 20 50 65 72 6d 69 73 73 |al("%s -| Permiss|
|00003c60| 69 6f 6e 73 20 65 72 72 | 6f 72 22 2c 20 6e 61 6d |ions err|or", nam|
|00003c70| 65 29 3b 0a 58 20 20 65 | 6c 73 65 20 69 66 20 28 |e);.X e|lse if (|
|00003c80| 65 72 72 20 3d 3d 20 64 | 75 70 46 4e 45 72 72 29 |err == d|upFNErr)|
|00003c90| 20 66 61 74 61 6c 28 22 | 25 73 20 2d 20 44 75 70 | fatal("|%s - Dup|
|00003ca0| 6c 69 63 61 74 65 20 66 | 69 6c 65 6e 61 6d 65 22 |licate f|ilename"|
|00003cb0| 2c 20 6e 61 6d 65 29 3b | 0a 58 20 20 65 6c 73 65 |, name);|.X else|
|00003cc0| 20 69 66 20 28 65 72 72 | 20 3d 3d 20 65 6f 66 45 | if (err| == eofE|
|00003cd0| 72 72 29 20 66 61 74 61 | 6c 28 22 25 73 20 2d 20 |rr) fata|l("%s - |
|00003ce0| 50 72 65 6d 61 74 75 72 | 65 20 65 6e 64 20 6f 66 |Prematur|e end of|
|00003cf0| 20 66 69 6c 65 22 2c 20 | 6e 61 6d 65 29 3b 0a 58 | file", |name);.X|
|00003d00| 20 20 65 6c 73 65 20 66 | 61 74 61 6c 28 22 25 73 | else f|atal("%s|
|00003d10| 20 2d 20 45 72 72 6f 72 | 20 23 25 64 22 2c 20 6e | - Error| #%d", n|
|00003d20| 61 6d 65 2c 20 65 72 72 | 29 3b 0a 58 7d 0a 58 0a |ame, err|);.X}.X.|
|00003d30| 58 66 61 74 61 6c 28 66 | 6d 74 2c 20 61 72 67 31 |Xfatal(f|mt, arg1|
|00003d40| 2c 20 61 72 67 32 2c 20 | 61 72 67 33 2c 20 61 72 |, arg2, |arg3, ar|
|00003d50| 67 34 2c 20 61 72 67 35 | 2c 20 61 72 67 36 29 0a |g4, arg5|, arg6).|
|00003d60| 58 20 20 63 68 61 72 20 | 2a 66 6d 74 2c 20 2a 61 |X char |*fmt, *a|
|00003d70| 72 67 31 2c 20 2a 61 72 | 67 32 2c 20 2a 61 72 67 |rg1, *ar|g2, *arg|
|00003d80| 33 2c 20 2a 61 72 67 34 | 2c 20 2a 61 72 67 35 2c |3, *arg4|, *arg5,|
|00003d90| 20 2a 61 72 67 36 3b 0a | 58 7b 0a 58 20 20 69 66 | *arg6;.|X{.X if|
|00003da0| 20 28 74 61 72 66 20 26 | 26 20 74 61 72 66 20 21 | (tarf &|& tarf !|
|00003db0| 3d 20 73 74 64 6f 75 74 | 29 20 66 63 6c 6f 73 65 |= stdout|) fclose|
|00003dc0| 28 74 61 72 66 29 3b 0a | 58 20 20 66 70 72 69 6e |(tarf);.|X fprin|
|00003dd0| 74 66 28 73 74 64 65 72 | 72 2c 20 22 25 73 3a 20 |tf(stder|r, "%s: |
|00003de0| 22 2c 20 50 72 6f 67 72 | 61 6d 29 3b 0a 58 20 20 |", Progr|am);.X |
|00003df0| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00003e00| 66 6d 74 2c 20 61 72 67 | 31 2c 20 61 72 67 32 2c |fmt, arg|1, arg2,|
|00003e10| 20 61 72 67 33 2c 20 61 | 72 67 34 2c 20 61 72 67 | arg3, a|rg4, arg|
|00003e20| 35 2c 20 61 72 67 36 29 | 3b 0a 58 20 20 66 70 72 |5, arg6)|;.X fpr|
|00003e30| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 20 22 5c 6e |intf(std|err, "\n|
|00003e40| 22 29 3b 0a 58 20 20 65 | 78 69 74 28 32 29 3b 0a |");.X e|xit(2);.|
|00003e50| 58 7d 0a 58 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |X}.X.SHA|R_EOF.if|
|00003e60| 20 74 65 73 74 20 31 31 | 33 32 39 20 2d 6e 65 20 | test 11|329 -ne |
|00003e70| 22 60 77 63 20 2d 63 20 | 3c 20 27 6d 74 61 72 2e |"`wc -c |< 'mtar.|
|00003e80| 63 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |c'`".the|n..echo |
|00003e90| 73 68 61 72 3a 20 65 72 | 72 6f 72 20 74 72 61 6e |shar: er|ror tran|
|00003ea0| 73 6d 69 74 74 69 6e 67 | 20 22 27 6d 74 61 72 2e |smitting| "'mtar.|
|00003eb0| 63 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |c'" '(sh|ould hav|
|00003ec0| 65 20 62 65 65 6e 20 31 | 31 33 32 39 20 63 68 61 |e been 1|1329 cha|
|00003ed0| 72 61 63 74 65 72 73 29 | 27 0a 66 69 0a 66 69 20 |racters)|'.fi.fi |
|00003ee0| 23 20 65 6e 64 20 6f 66 | 20 6f 76 65 72 77 72 69 |# end of| overwri|
|00003ef0| 74 69 6e 67 20 63 68 65 | 63 6b 0a 65 63 68 6f 20 |ting che|ck.echo |
|00003f00| 73 68 61 72 3a 20 65 78 | 74 72 61 63 74 69 6e 67 |shar: ex|tracting|
|00003f10| 20 22 27 6d 75 6e 74 61 | 72 2e 63 27 22 20 27 28 | "'munta|r.c'" '(|
|00003f20| 31 33 33 39 36 20 63 68 | 61 72 61 63 74 65 72 73 |13396 ch|aracters|
|00003f30| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 6d |)'.if te|st -f 'm|
|00003f40| 75 6e 74 61 72 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |untar.c'|.then..e|
|00003f50| 63 68 6f 20 73 68 61 72 | 3a 20 77 69 6c 6c 20 6e |cho shar|: will n|
|00003f60| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00003f70| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 22 27 6d 75 |isting f|ile "'mu|
|00003f80| 6e 74 61 72 2e 63 27 22 | 0a 65 6c 73 65 0a 73 65 |ntar.c'"|.else.se|
|00003f90| 64 20 27 73 2f 5e 58 2f | 2f 27 20 3c 3c 20 5c 53 |d 's/^X/|/' << \S|
|00003fa0| 48 41 52 5f 45 4f 46 20 | 3e 20 27 6d 75 6e 74 61 |HAR_EOF |> 'munta|
|00003fb0| 72 2e 63 27 0a 58 2f 2a | 20 43 6f 70 79 72 69 67 |r.c'.X/*| Copyrig|
|00003fc0| 68 74 20 31 39 38 38 2c | 20 47 61 69 6c 20 5a 61 |ht 1988,| Gail Za|
|00003fd0| 63 68 61 72 69 61 73 2e | 20 20 41 6c 6c 20 72 69 |charias.| All ri|
|00003fe0| 67 68 74 73 20 72 65 73 | 65 72 76 65 64 2e 0a 58 |ghts res|erved..X|
|00003ff0| 20 2a 20 50 65 72 6d 69 | 73 73 69 6f 6e 20 69 73 | * Permi|ssion is|
|00004000| 20 68 65 72 65 62 79 20 | 67 72 61 6e 74 65 64 20 | hereby |granted |
|00004010| 74 6f 20 63 6f 70 79 2c | 20 72 65 70 72 6f 64 75 |to copy,| reprodu|
|00004020| 63 65 2c 20 72 65 64 69 | 73 74 72 69 62 75 74 65 |ce, redi|stribute|
|00004030| 20 6f 72 0a 58 20 2a 20 | 6f 74 68 65 72 77 69 73 | or.X * |otherwis|
|00004040| 65 20 75 73 65 20 74 68 | 69 73 20 73 6f 66 74 77 |e use th|is softw|
|00004050| 61 72 65 20 70 72 6f 76 | 69 64 65 64 20 74 68 65 |are prov|ided the|
|00004060| 72 65 20 69 73 20 6e 6f | 20 6d 6f 6e 65 74 61 72 |re is no| monetar|
|00004070| 79 20 70 72 6f 66 69 74 | 0a 58 20 2a 20 67 61 69 |y profit|.X * gai|
|00004080| 6e 65 64 20 73 70 65 63 | 69 66 69 63 61 6c 6c 79 |ned spec|ifically|
|00004090| 20 66 72 6f 6d 20 69 74 | 73 20 75 73 65 20 6f 72 | from it|s use or|
|000040a0| 20 72 65 70 72 6f 64 75 | 63 74 69 6f 6e 2c 20 69 | reprodu|ction, i|
|000040b0| 74 20 69 73 20 6e 6f 74 | 20 73 6f 6c 64 2c 0a 58 |t is not| sold,.X|
|000040c0| 20 2a 20 72 65 6e 74 65 | 64 2c 20 74 72 61 64 65 | * rente|d, trade|
|000040d0| 64 20 6f 72 20 6f 74 68 | 65 72 77 69 73 65 20 6d |d or oth|erwise m|
|000040e0| 61 72 6b 65 74 65 64 2c | 20 61 6e 64 20 74 68 69 |arketed,| and thi|
|000040f0| 73 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |s copyri|ght noti|
|00004100| 63 65 20 0a 58 20 2a 20 | 61 6e 64 20 74 68 65 20 |ce .X * |and the |
|00004110| 73 6f 66 74 77 61 72 65 | 20 76 65 72 73 69 6f 6e |software| version|
|00004120| 20 6e 75 6d 62 65 72 20 | 69 73 20 69 6e 63 6c 75 | number |is inclu|
|00004130| 64 65 64 20 70 72 6f 6d | 69 6e 65 6e 74 6c 79 20 |ded prom|inently |
|00004140| 69 6e 20 61 6e 79 20 63 | 6f 70 79 0a 58 20 2a 20 |in any c|opy.X * |
|00004150| 6d 61 64 65 2e 0a 58 20 | 2a 20 54 68 69 73 20 69 |made..X |* This i|
|00004160| 73 20 6d 75 6e 74 61 72 | 20 76 65 72 73 69 6f 6e |s muntar| version|
|00004170| 20 31 2e 30 2e 0a 58 20 | 2a 0a 58 20 2a 20 53 65 | 1.0..X |*.X * Se|
|00004180| 6e 64 20 63 6f 6d 6d 65 | 6e 74 73 2c 20 73 75 67 |nd comme|nts, sug|
|00004190| 67 65 73 74 69 6f 6e 73 | 2c 20 62 75 67 20 72 65 |gestions|, bug re|
|000041a0| 70 6f 72 74 73 20 28 6e | 6f 74 20 62 6c 6f 6f 64 |ports (n|ot blood|
|000041b0| 79 20 6c 69 6b 65 6c 79 | 29 2c 20 66 65 61 74 75 |y likely|), featu|
|000041c0| 72 65 0a 58 20 2a 20 72 | 65 71 75 65 73 74 73 2c |re.X * r|equests,|
|000041d0| 20 65 74 63 2e 20 74 6f | 20 67 7a 40 65 6e 74 69 | etc. to| gz@enti|
|000041e0| 74 79 2e 63 6f 6d 2e 0a | 58 20 2a 0a 58 20 2a 2f |ty.com..|X *.X */|
|000041f0| 0a 58 0a 58 63 68 61 72 | 20 2a 50 72 6f 67 72 61 |.X.Xchar| *Progra|
|00004200| 6d 2c 20 2a 56 65 72 73 | 69 6f 6e 20 3d 20 22 31 |m, *Vers|ion = "1|
|00004210| 2e 30 22 3b 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |.0";.X.X|#include|
|00004220| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 23 69 6e 63 | <stdio.|h>.X#inc|
|00004230| 6c 75 64 65 20 3c 66 69 | 6c 65 73 2e 68 3e 0a 58 |lude <fi|les.h>.X|
|00004240| 23 69 6e 63 6c 75 64 65 | 20 3c 65 72 72 6f 72 73 |#include| <errors|
|00004250| 2e 68 3e 0a 58 0a 58 23 | 64 65 66 69 6e 65 20 4d |.h>.X.X#|define M|
|00004260| 50 53 20 30 78 34 44 35 | 30 35 33 32 30 4c 0a 58 |PS 0x4D5|05320L.X|
|00004270| 23 64 65 66 69 6e 65 20 | 54 45 58 54 20 30 78 35 |#define |TEXT 0x5|
|00004280| 34 34 35 35 38 35 34 4c | 0a 58 0a 58 2f 2a 20 54 |4455854L|.X.X/* T|
|00004290| 68 65 20 64 6f 20 7b 7d | 20 77 68 69 6c 65 28 30 |he do {}| while(0|
|000042a0| 29 20 69 73 20 66 6f 72 | 20 73 79 6e 74 61 63 74 |) is for| syntact|
|000042b0| 69 63 20 72 65 61 73 6f | 6e 73 2e 20 4d 50 57 20 |ic reaso|ns. MPW |
|000042c0| 43 20 77 69 6c 6c 20 6f | 70 74 69 6d 69 7a 65 20 |C will o|ptimize |
|000042d0| 69 74 20 6f 75 74 2e 20 | 2a 2f 0a 58 23 64 65 66 |it out. |*/.X#def|
|000042e0| 69 6e 65 20 6d 63 6f 70 | 79 28 64 65 73 74 2c 20 |ine mcop|y(dest, |
|000042f0| 73 72 63 2c 20 6c 65 6e | 29 20 5c 0a 58 20 20 64 |src, len|) \.X d|
|00004300| 6f 20 7b 20 63 68 61 72 | 20 2a 5f 64 70 20 3d 20 |o { char| *_dp = |
|00004310| 28 63 68 61 72 20 2a 29 | 28 64 65 73 74 29 2c 20 |(char *)|(dest), |
|00004320| 2a 5f 73 70 20 3d 20 28 | 63 68 61 72 20 2a 29 28 |*_sp = (|char *)(|
|00004330| 73 72 63 29 3b 20 5c 0a | 58 20 20 20 20 20 20 20 |src); \.|X |
|00004340| 69 6e 74 20 5f 69 20 3d | 20 28 6c 65 6e 29 3b 20 |int _i =| (len); |
|00004350| 5c 0a 58 20 20 20 20 20 | 20 20 77 68 69 6c 65 20 |\.X | while |
|00004360| 28 2d 2d 5f 69 3e 3d 30 | 29 20 2a 5f 64 70 2b 2b |(--_i>=0|) *_dp++|
|00004370| 20 3d 20 2a 5f 73 70 2b | 2b 3b 20 5c 0a 58 20 20 | = *_sp+|+; \.X |
|00004380| 7d 20 77 68 69 6c 65 28 | 30 29 0a 58 0a 58 73 74 |} while(|0).X.Xst|
|00004390| 72 75 63 74 20 7b 0a 58 | 20 20 20 20 63 68 61 72 |ruct {.X| char|
|000043a0| 20 6e 61 6d 65 5b 31 30 | 30 5d 3b 0a 58 20 20 20 | name[10|0];.X |
|000043b0| 20 63 68 61 72 20 6d 6f | 64 65 5b 38 5d 3b 0a 58 | char mo|de[8];.X|
|000043c0| 20 20 20 20 63 68 61 72 | 20 75 69 64 5b 38 5d 3b | char| uid[8];|
|000043d0| 0a 58 20 20 20 20 63 68 | 61 72 20 67 69 64 5b 38 |.X ch|ar gid[8|
|000043e0| 5d 3b 0a 58 20 20 20 20 | 63 68 61 72 20 73 69 7a |];.X |char siz|
|000043f0| 65 5b 31 32 5d 3b 0a 58 | 20 20 20 20 63 68 61 72 |e[12];.X| char|
|00004400| 20 6d 74 69 6d 65 5b 31 | 32 5d 3b 0a 58 20 20 20 | mtime[1|2];.X |
|00004410| 20 63 68 61 72 20 63 68 | 6b 73 75 6d 5b 38 5d 3b | char ch|ksum[8];|
|00004420| 0a 58 20 20 20 20 63 68 | 61 72 20 6c 69 6e 6b 66 |.X ch|ar linkf|
|00004430| 6c 61 67 3b 0a 58 20 20 | 20 20 63 68 61 72 20 6c |lag;.X | char l|
|00004440| 69 6e 6b 6e 61 6d 65 5b | 31 30 30 5d 3b 0a 58 20 |inkname[|100];.X |
|00004450| 20 20 20 63 68 61 72 20 | 6d 61 67 69 63 5b 38 5d | char |magic[8]|
|00004460| 3b 0a 58 20 20 20 20 63 | 68 61 72 20 75 6e 61 6d |;.X c|har unam|
|00004470| 65 5b 33 32 5d 3b 0a 58 | 20 20 20 20 63 68 61 72 |e[32];.X| char|
|00004480| 20 67 6e 61 6d 65 5b 33 | 32 5d 3b 0a 58 20 20 20 | gname[3|2];.X |
|00004490| 20 63 68 61 72 20 64 65 | 76 6d 61 6a 6f 72 5b 38 | char de|vmajor[8|
|000044a0| 5d 3b 0a 58 20 20 20 20 | 63 68 61 72 20 64 65 76 |];.X |char dev|
|000044b0| 6d 69 6e 6f 72 5b 38 5d | 3b 0a 58 20 20 20 20 63 |minor[8]|;.X c|
|000044c0| 68 61 72 20 66 69 6c 6c | 5b 31 36 37 5d 3b 0a 58 |har fill|[167];.X|
|000044d0| 7d 20 74 61 72 68 3b 0a | 58 23 64 65 66 69 6e 65 |} tarh;.|X#define|
|000044e0| 20 74 61 72 73 7a 28 6e | 29 20 20 20 20 28 28 28 | tarsz(n|) (((|
|000044f0| 6e 29 2b 35 31 31 4c 29 | 20 26 20 2d 35 31 32 4c |n)+511L)| & -512L|
|00004500| 29 0a 58 0a 58 73 74 72 | 75 63 74 20 7b 0a 58 20 |).X.Xstr|uct {.X |
|00004510| 20 20 20 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 | unsig|ned char|
|00004520| 20 6e 6c 65 6e 3b 0a 58 | 20 20 20 20 63 68 61 72 | nlen;.X| char|
|00004530| 20 6e 61 6d 65 5b 36 33 | 5d 3b 0a 58 20 20 20 20 | name[63|];.X |
|00004540| 46 49 6e 66 6f 20 66 69 | 6e 66 6f 3b 0a 58 20 20 |FInfo fi|nfo;.X |
|00004550| 20 20 63 68 61 72 20 70 | 72 6f 74 65 63 74 65 64 | char p|rotected|
|00004560| 3b 0a 58 20 20 20 20 63 | 68 61 72 20 7a 65 72 6f |;.X c|har zero|
|00004570| 3b 0a 58 20 20 20 20 6c | 6f 6e 67 20 64 66 6c 65 |;.X l|ong dfle|
|00004580| 6e 3b 0a 58 20 20 20 20 | 6c 6f 6e 67 20 72 66 6c |n;.X |long rfl|
|00004590| 65 6e 3b 0a 58 20 20 20 | 20 6c 6f 6e 67 20 63 64 |en;.X | long cd|
|000045a0| 61 74 65 3b 0a 58 20 20 | 20 20 6c 6f 6e 67 20 6d |ate;.X | long m|
|000045b0| 64 61 74 65 3b 0a 58 20 | 20 20 20 63 68 61 72 20 |date;.X | char |
|000045c0| 75 6e 75 73 65 64 5b 32 | 39 5d 3b 0a 58 7d 20 6d |unused[2|9];.X} m|
|000045d0| 61 63 62 69 6e 68 3b 0a | 58 0a 58 23 64 65 66 69 |acbinh;.|X.X#defi|
|000045e0| 6e 65 20 6d 61 63 62 69 | 6e 73 7a 28 6e 29 20 20 |ne macbi|nsz(n) |
|000045f0| 20 20 28 28 28 6e 29 2b | 31 32 37 4c 29 20 26 20 | (((n)+|127L) & |
|00004600| 2d 31 32 38 4c 29 0a 58 | 0a 58 46 49 4c 45 20 2a |-128L).X|.XFILE *|
|00004610| 74 61 72 66 20 3d 20 28 | 46 49 4c 45 20 2a 29 20 |tarf = (|FILE *) |
|00004620| 4e 55 4c 4c 3b 0a 58 0a | 58 23 64 65 66 69 6e 65 |NULL;.X.|X#define|
|00004630| 20 72 65 61 64 62 6c 6f | 63 6b 28 62 75 66 2c 20 | readblo|ck(buf, |
|00004640| 73 69 7a 65 29 20 28 28 | 73 69 7a 65 29 20 3d 3d |size) ((|size) ==|
|00004650| 20 66 72 65 61 64 28 28 | 63 68 61 72 20 2a 29 20 | fread((|char *) |
|00004660| 62 75 66 2c 20 31 2c 20 | 28 73 69 7a 65 29 2c 20 |buf, 1, |(size), |
|00004670| 74 61 72 66 29 29 0a 58 | 0a 58 63 68 61 72 20 2a |tarf)).X|.Xchar *|
|00004680| 6d 61 6c 6c 6f 63 28 29 | 2c 20 2a 73 74 72 72 63 |malloc()|, *strrc|
|00004690| 68 72 28 29 3b 0a 58 53 | 74 72 69 6e 67 50 74 72 |hr();.XS|tringPtr|
|000046a0| 20 63 32 70 73 74 72 28 | 29 3b 0a 58 0a 58 4f 53 | c2pstr(|);.X.XOS|
|000046b0| 54 79 70 65 20 66 69 6c | 65 63 72 65 61 74 6f 72 |Type fil|ecreator|
|000046c0| 20 3d 20 4d 50 53 3b 0a | 58 0a 58 69 6e 74 20 6c | = MPS;.|X.Xint l|
|000046d0| 69 73 74 6f 6e 6c 79 20 | 3d 20 30 2c 0a 58 20 20 |istonly |= 0,.X |
|000046e0| 20 20 62 69 6e 61 72 79 | 20 3d 20 30 2c 0a 58 20 | binary| = 0,.X |
|000046f0| 20 20 20 64 61 74 61 6f | 6e 6c 79 20 3d 20 30 2c | datao|nly = 0,|
|00004700| 0a 58 20 20 20 20 76 65 | 72 62 6f 73 65 20 3d 20 |.X ve|rbose = |
|00004710| 30 2c 0a 58 20 20 20 20 | 69 67 6e 6f 72 65 5f 63 |0,.X |ignore_c|
|00004720| 64 61 74 65 20 3d 20 30 | 2c 0a 58 20 20 20 20 69 |date = 0|,.X i|
|00004730| 67 6e 6f 72 65 5f 6d 64 | 61 74 65 20 3d 20 30 3b |gnore_md|ate = 0;|
|00004740| 0a 58 0a 58 63 68 61 72 | 20 2a 2a 66 69 6c 65 73 |.X.Xchar| **files|
|00004750| 20 3d 20 28 63 68 61 72 | 20 2a 2a 29 20 4e 55 4c | = (char| **) NUL|
|00004760| 4c 3b 0a 58 69 6e 74 20 | 2a 66 66 6f 75 6e 64 20 |L;.Xint |*ffound |
|00004770| 3d 20 28 69 6e 74 20 2a | 29 20 4e 55 4c 4c 3b 0a |= (int *|) NULL;.|
|00004780| 58 0a 58 6d 61 69 6e 20 | 28 61 72 67 63 2c 20 61 |X.Xmain |(argc, a|
|00004790| 72 67 76 29 0a 58 20 20 | 63 68 61 72 20 2a 2a 61 |rgv).X |char **a|
|000047a0| 72 67 76 3b 0a 58 7b 0a | 58 20 20 20 20 50 72 6f |rgv;.X{.|X Pro|
|000047b0| 67 72 61 6d 20 3d 20 61 | 72 67 76 5b 30 5d 3b 0a |gram = a|rgv[0];.|
|000047c0| 58 20 20 20 20 77 68 69 | 6c 65 20 28 2d 2d 61 72 |X whi|le (--ar|
|000047d0| 67 63 20 3e 20 30 20 26 | 26 20 2a 2a 2b 2b 61 72 |gc > 0 &|& **++ar|
|000047e0| 67 76 20 3d 3d 20 27 2d | 27 29 20 7b 0a 58 20 20 |gv == '-|') {.X |
|000047f0| 20 20 20 20 63 68 61 72 | 20 2a 61 72 67 70 20 3d | char| *argp =|
|00004800| 20 26 61 72 67 76 5b 30 | 5d 5b 31 5d 3b 0a 58 20 | &argv[0|][1];.X |
|00004810| 20 20 20 20 20 64 6f 20 | 73 77 69 74 63 68 20 28 | do |switch (|
|00004820| 2a 61 72 67 70 2b 2b 29 | 20 7b 0a 58 20 20 20 20 |*argp++)| {.X |
|00004830| 20 20 20 20 63 61 73 65 | 20 27 6c 27 3a 20 76 65 | case| 'l': ve|
|00004840| 72 62 6f 73 65 20 3d 20 | 6c 69 73 74 6f 6e 6c 79 |rbose = |listonly|
|00004850| 20 3d 20 31 3b 20 62 72 | 65 61 6b 3b 0a 58 09 63 | = 1; br|eak;.X.c|
|00004860| 61 73 65 20 27 76 27 3a | 20 76 65 72 62 6f 73 65 |ase 'v':| verbose|
|00004870| 20 3d 20 31 3b 20 62 72 | 65 61 6b 3b 0a 58 20 20 | = 1; br|eak;.X |
|00004880| 20 20 20 20 20 20 63 61 | 73 65 20 27 62 27 3a 20 | ca|se 'b': |
|00004890| 62 69 6e 61 72 79 20 3d | 20 31 3b 20 62 72 65 61 |binary =| 1; brea|
|000048a0| 6b 3b 0a 58 20 20 20 20 | 20 20 20 20 63 61 73 65 |k;.X | case|
|000048b0| 20 27 75 27 3a 20 64 61 | 74 61 6f 6e 6c 79 20 3d | 'u': da|taonly =|
|000048c0| 20 31 3b 20 62 72 65 61 | 6b 3b 0a 58 20 20 20 20 | 1; brea|k;.X |
|000048d0| 20 20 20 20 63 61 73 65 | 20 27 6d 27 3a 20 69 67 | case| 'm': ig|
|000048e0| 6e 6f 72 65 5f 6d 64 61 | 74 65 20 3d 20 31 3b 20 |nore_mda|te = 1; |
|000048f0| 62 72 65 61 6b 3b 0a 58 | 20 20 20 20 20 20 20 20 |break;.X| |
|00004900| 63 61 73 65 20 27 64 27 | 3a 20 69 67 6e 6f 72 65 |case 'd'|: ignore|
|00004910| 5f 63 64 61 74 65 20 3d | 20 31 3b 20 62 72 65 61 |_cdate =| 1; brea|
|00004920| 6b 3b 0a 58 20 20 20 20 | 20 20 20 20 63 61 73 65 |k;.X | case|
|00004930| 20 27 63 27 3a 20 69 66 | 20 28 2a 61 72 67 70 20 | 'c': if| (*argp |
|00004940| 3d 3d 20 27 5c 30 27 29 | 20 7b 0a 58 20 20 20 20 |== '\0')| {.X |
|00004950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004960| 69 66 20 28 2d 2d 61 72 | 67 63 20 3d 3d 20 30 29 |if (--ar|gc == 0)|
|00004970| 20 67 6f 74 6f 20 62 61 | 64 61 72 67 3b 0a 58 20 | goto ba|darg;.X |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004990| 20 20 20 61 72 67 70 20 | 3d 20 2a 2b 2b 61 72 67 | argp |= *++arg|
|000049a0| 76 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |v;.X | |
|000049b0| 20 20 20 20 20 20 7d 0a | 58 09 09 20 20 69 66 20 | }.|X.. if |
|000049c0| 28 2a 61 72 67 70 20 3d | 3d 20 27 5c 30 27 20 7c |(*argp =|= '\0' ||
|000049d0| 7c 20 73 74 72 6c 65 6e | 28 61 72 67 70 29 20 3e || strlen|(argp) >|
|000049e0| 20 34 29 20 67 6f 74 6f | 20 62 61 64 61 72 67 3b | 4) goto| badarg;|
|000049f0| 0a 58 09 09 20 20 66 69 | 6c 65 63 72 65 61 74 6f |.X.. fi|lecreato|
|00004a00| 72 20 3d 20 30 78 32 30 | 32 30 32 30 32 30 4c 3b |r = 0x20|202020L;|
|00004a10| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X | |
|00004a20| 20 20 20 20 7b 20 63 68 | 61 72 20 2a 63 70 20 3d | { ch|ar *cp =|
|00004a30| 20 28 63 68 61 72 20 2a | 29 26 66 69 6c 65 63 72 | (char *|)&filecr|
|00004a40| 65 61 74 6f 72 3b 0a 58 | 20 20 20 20 20 20 20 20 |eator;.X| |
|00004a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 68 69 | | whi|
|00004a60| 6c 65 20 28 2a 61 72 67 | 70 29 20 2a 63 70 2b 2b |le (*arg|p) *cp++|
|00004a70| 20 3d 20 2a 61 72 67 70 | 2b 2b 3b 0a 58 20 20 20 | = *argp|++;.X |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00004a90| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X | |
|00004aa0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 58 20 20 20 20 | brea|k;.X |
|00004ab0| 20 20 20 20 63 61 73 65 | 20 27 66 27 3a 20 69 66 | case| 'f': if|
|00004ac0| 20 28 74 61 72 66 29 20 | 67 6f 74 6f 20 62 61 64 | (tarf) |goto bad|
|00004ad0| 61 72 67 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |arg;.X | |
|00004ae0| 20 20 20 20 20 20 20 20 | 69 66 20 28 2a 61 72 67 | |if (*arg|
|00004af0| 70 20 3d 3d 20 27 5c 30 | 27 29 20 7b 0a 58 20 20 |p == '\0|') {.X |
|00004b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004b10| 20 20 20 20 69 66 20 28 | 2d 2d 61 72 67 63 20 3d | if (|--argc =|
|00004b20| 3d 20 30 29 20 67 6f 74 | 6f 20 62 61 64 61 72 67 |= 0) got|o badarg|
|00004b30| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X | |
|00004b40| 20 20 20 20 20 20 20 20 | 20 61 72 67 70 20 3d 20 | | argp = |
|00004b50| 2a 2b 2b 61 72 67 76 3b | 0a 58 20 20 20 20 20 20 |*++argv;|.X |
|00004b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0a 58 20 | | }.X |
|00004b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004b80| 20 69 66 20 28 21 73 74 | 72 63 6d 70 28 61 72 67 | if (!st|rcmp(arg|
|00004b90| 70 2c 20 22 2d 22 29 29 | 20 74 61 72 66 20 3d 20 |p, "-"))| tarf = |
|00004ba0| 73 74 64 69 6e 3b 0a 58 | 09 09 20 20 65 6c 73 65 |stdin;.X|.. else|
|00004bb0| 20 69 66 20 28 21 28 74 | 61 72 66 20 3d 20 66 6f | if (!(t|arf = fo|
|00004bc0| 70 65 6e 28 61 72 67 70 | 2c 20 22 72 22 29 29 29 |pen(argp|, "r")))|
|00004bd0| 0a 58 09 09 20 20 20 20 | 20 20 66 61 74 61 6c 28 |.X.. | fatal(|
|00004be0| 22 43 61 6e 6e 6f 74 20 | 6f 70 65 6e 20 25 73 20 |"Cannot |open %s |
|00004bf0| 66 6f 72 20 72 65 61 64 | 69 6e 67 2e 22 2c 20 61 |for read|ing.", a|
|00004c00| 72 67 70 29 3b 0a 58 09 | 09 20 20 61 72 67 70 20 |rgp);.X.|. argp |
|00004c10| 3d 20 22 22 3b 0a 58 09 | 09 20 20 62 72 65 61 6b |= "";.X.|. break|
|00004c20| 3b 0a 58 20 20 20 20 20 | 20 20 20 64 65 66 61 75 |;.X | defau|
|00004c30| 6c 74 3a 20 67 6f 74 6f | 20 62 61 64 61 72 67 3b |lt: goto| badarg;|
|00004c40| 0a 58 20 20 20 20 20 20 | 7d 20 77 68 69 6c 65 20 |.X |} while |
|00004c50| 28 2a 61 72 67 70 29 3b | 0a 58 20 20 20 20 7d 0a |(*argp);|.X }.|
|00004c60| 58 20 20 20 20 69 66 20 | 28 21 74 61 72 66 29 20 |X if |(!tarf) |
|00004c70| 74 61 72 66 20 3d 20 73 | 74 64 69 6e 3b 0a 58 20 |tarf = s|tdin;.X |
|00004c80| 20 20 20 69 66 20 28 61 | 72 67 63 29 20 7b 0a 58 | if (a|rgc) {.X|
|00004c90| 20 20 20 20 20 20 66 69 | 6c 65 73 20 3d 20 61 72 | fi|les = ar|
|00004ca0| 67 76 3b 0a 58 20 20 20 | 20 20 20 66 69 6c 65 73 |gv;.X | files|
|00004cb0| 5b 61 72 67 63 5d 20 3d | 20 28 63 68 61 72 20 2a |[argc] =| (char *|
|00004cc0| 29 20 4e 55 4c 4c 3b 0a | 58 20 20 20 20 20 20 66 |) NULL;.|X f|
|00004cd0| 66 6f 75 6e 64 20 3d 20 | 6d 61 6c 6c 6f 63 28 61 |found = |malloc(a|
|00004ce0| 72 67 63 20 2a 20 73 69 | 7a 65 6f 66 28 69 6e 74 |rgc * si|zeof(int|
|00004cf0| 29 29 3b 0a 58 20 20 20 | 20 20 20 69 66 20 28 21 |));.X | if (!|
|00004d00| 66 66 6f 75 6e 64 29 20 | 66 61 74 61 6c 28 22 4f |ffound) |fatal("O|
|00004d10| 75 74 20 6f 66 20 6d 65 | 6d 6f 72 79 2e 22 29 3b |ut of me|mory.");|
|00004d20| 0a 58 20 20 20 20 20 20 | 77 68 69 6c 65 20 28 61 |.X |while (a|
|00004d30| 72 67 63 29 20 66 66 6f | 75 6e 64 5b 2d 2d 61 72 |rgc) ffo|und[--ar|
|00004d40| 67 63 5d 20 3d 20 30 3b | 0a 58 20 20 20 20 7d 0a |gc] = 0;|.X }.|
|00004d50| 58 20 20 20 20 75 6e 74 | 61 72 28 29 3b 0a 58 20 |X unt|ar();.X |
|00004d60| 20 20 20 69 66 20 28 74 | 61 72 66 20 21 3d 20 73 | if (t|arf != s|
|00004d70| 74 64 69 6e 29 20 66 63 | 6c 6f 73 65 28 74 61 72 |tdin) fc|lose(tar|
|00004d80| 66 29 3b 0a 58 20 20 20 | 20 69 66 20 28 66 66 6f |f);.X | if (ffo|
|00004d90| 75 6e 64 29 20 66 72 65 | 65 28 66 66 6f 75 6e 64 |und) fre|e(ffound|
|00004da0| 29 3b 0a 58 20 20 20 20 | 72 65 74 75 72 6e 20 30 |);.X |return 0|
|00004db0| 3b 0a 58 0a 58 62 61 64 | 61 72 67 3a 0a 58 20 20 |;.X.Xbad|arg:.X |
|00004dc0| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00004dd0| 22 6d 75 6e 74 61 72 20 | 56 65 72 73 69 6f 6e 20 |"muntar |Version |
|00004de0| 25 73 20 62 79 20 67 7a | 40 65 6e 74 69 74 79 2e |%s by gz|@entity.|
|00004df0| 63 6f 6d 2e 20 20 55 73 | 61 67 65 3a 20 5c 6e 22 |com. Us|age: \n"|
|00004e00| 2c 20 56 65 72 73 69 6f | 6e 29 3b 0a 58 20 20 66 |, Versio|n);.X f|
|00004e10| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 20 22 |printf(s|tderr, "|
|00004e20| 25 73 20 5b 2d 6c 76 75 | 62 64 6d 5d 20 5b 2d 63 |%s [-lvu|bdm] [-c|
|00004e30| 20 58 58 58 58 5d 20 5b | 2d 66 20 74 61 72 66 69 | XXXX] [|-f tarfi|
|00004e40| 6c 65 5d 20 66 69 6c 65 | 6e 61 6d 65 73 2e 2e 2e |le] file|names...|
|00004e50| 5c 6e 22 2c 20 50 72 6f | 67 72 61 6d 29 3b 0a 58 |\n", Pro|gram);.X|
|00004e60| 20 20 66 70 72 69 6e 74 | 66 28 73 74 64 65 72 72 | fprint|f(stderr|
|00004e70| 2c 20 22 45 78 74 72 61 | 63 74 73 20 74 68 65 20 |, "Extra|cts the |
|00004e80| 6e 61 6d 65 64 20 66 69 | 6c 65 73 20 66 72 6f 6d |named fi|les from|
|00004e90| 20 61 20 74 61 72 20 61 | 72 63 68 69 76 65 2e 5c | a tar a|rchive.\|
|00004ea0| 6e 5c 0a 58 20 2d 6c 20 | 3d 20 6a 75 73 74 20 6c |n\.X -l |= just l|
|00004eb0| 69 73 74 20 66 69 6c 65 | 20 6e 61 6d 65 73 2c 20 |ist file| names, |
|00004ec0| 64 6f 20 6e 6f 74 20 61 | 63 74 75 61 6c 6c 79 20 |do not a|ctually |
|00004ed0| 65 78 74 72 61 63 74 20 | 61 6e 79 20 66 69 6c 65 |extract |any file|
|00004ee0| 73 2e 5c 6e 5c 0a 58 20 | 2d 76 20 3d 20 76 65 72 |s.\n\.X |-v = ver|
|00004ef0| 62 6f 73 65 3a 20 6c 69 | 73 74 20 6e 61 6d 65 73 |bose: li|st names|
|00004f00| 20 6f 66 20 66 69 6c 65 | 73 20 61 73 20 65 78 74 | of file|s as ext|
|00004f10| 72 61 63 74 20 74 68 65 | 6d 2e 5c 6e 5c 0a 58 20 |ract the|m.\n\.X |
|00004f20| 2d 75 20 3d 20 64 6f 20 | 6e 6f 74 20 74 72 79 20 |-u = do |not try |
|00004f30| 74 6f 20 64 65 74 65 63 | 74 20 61 6e 64 20 68 61 |to detec|t and ha|
|00004f40| 6e 64 6c 65 20 6d 61 63 | 62 69 6e 61 72 79 20 66 |ndle mac|binary f|
|00004f50| 69 6c 65 73 2e 5c 6e 5c | 0a 58 20 2d 62 20 3d 20 |iles.\n\|.X -b = |
|00004f60| 64 6f 20 6e 6f 74 20 63 | 6f 6e 76 65 72 74 20 4c |do not c|onvert L|
|00004f70| 46 20 74 6f 20 43 52 20 | 69 6e 20 6e 6f 6e 2d 6d |F to CR |in non-m|
|00004f80| 61 63 62 69 6e 61 72 79 | 20 66 69 6c 65 73 2e 5c |acbinary| files.\|
|00004f90| 6e 5c 0a 58 20 2d 64 20 | 3d 20 64 6f 20 6e 6f 74 |n\.X -d |= do not|
|00004fa0| 20 72 65 73 74 6f 72 65 | 20 63 72 65 61 74 69 6f | restore| creatio|
|00004fb0| 6e 20 64 61 74 65 73 20 | 69 6e 20 6d 61 63 62 69 |n dates |in macbi|
|00004fc0| 6e 61 72 79 20 66 69 6c | 65 73 2e 5c 6e 5c 0a 58 |nary fil|es.\n\.X|
|00004fd0| 20 2d 6d 20 3d 20 64 6f | 20 6e 6f 74 20 72 65 73 | -m = do| not res|
|00004fe0| 74 6f 72 65 20 6d 6f 64 | 69 66 69 63 61 74 69 6f |tore mod|ificatio|
|00004ff0| 6e 20 64 61 74 65 73 20 | 69 6e 20 6d 61 63 62 69 |n dates |in macbi|
|00005000| 6e 61 72 79 20 66 69 6c | 65 73 2e 5c 6e 5c 0a 58 |nary fil|es.\n\.X|
|00005010| 20 2d 63 20 58 58 58 58 | 20 3d 20 73 65 74 20 66 | -c XXXX| = set f|
|00005020| 69 6c 65 20 63 72 65 61 | 74 6f 72 20 74 6f 20 58 |ile crea|tor to X|
|00005030| 58 58 58 20 28 64 65 66 | 61 75 6c 74 20 69 73 20 |XXX (def|ault is |
|00005040| 4d 50 53 29 20 69 6e 20 | 6e 6f 6e 2d 6d 61 63 62 |MPS) in |non-macb|
|00005050| 69 6e 61 72 79 20 66 69 | 6c 65 73 2e 5c 6e 5c 0a |inary fi|les.\n\.|
|00005060| 58 20 2d 66 20 74 61 72 | 66 69 6c 65 20 3d 20 72 |X -f tar|file = r|
|00005070| 65 61 64 20 69 6e 70 75 | 74 20 66 72 6f 6d 20 74 |ead inpu|t from t|
|00005080| 61 72 66 69 6c 65 20 28 | 69 6e 73 74 65 61 64 20 |arfile (|instead |
|00005090| 6f 66 20 73 74 61 6e 64 | 61 72 64 20 69 6e 70 75 |of stand|ard inpu|
|000050a0| 74 29 2e 5c 6e 5c 0a 58 | 20 2d 48 20 3d 20 73 68 |t).\n\.X| -H = sh|
|000050b0| 6f 77 20 74 68 69 73 20 | 68 65 6c 70 20 6d 65 73 |ow this |help mes|
|000050c0| 73 61 67 65 2e 5c 6e 5c | 0a 58 49 66 20 6e 6f 20 |sage.\n\|.XIf no |
|000050d0| 66 69 6c 65 6e 61 6d 65 | 73 20 61 72 65 20 73 70 |filename|s are sp|
|000050e0| 65 63 69 66 69 65 64 2c | 20 61 6c 6c 20 66 69 6c |ecified,| all fil|
|000050f0| 65 73 20 69 6e 20 74 68 | 65 20 61 72 63 68 69 76 |es in th|e archiv|
|00005100| 65 20 77 69 6c 6c 20 62 | 65 5c 6e 5c 0a 58 65 78 |e will b|e\n\.Xex|
|00005110| 74 72 61 63 74 65 64 20 | 28 6f 72 20 6c 69 73 74 |tracted |(or list|
|00005120| 65 64 29 2e 5c 6e 5c 6e | 5c 0a 58 54 68 69 73 20 |ed).\n\n|\.XThis |
|00005130| 69 73 20 66 72 65 65 77 | 61 72 65 2e 20 20 49 66 |is freew|are. If|
|00005140| 20 79 6f 75 20 70 61 69 | 64 20 6d 6f 6e 65 79 20 | you pai|d money |
|00005150| 66 6f 72 20 74 68 69 73 | 20 70 72 6f 67 72 61 6d |for this| program|
|00005160| 2c 20 79 6f 75 20 67 6f | 74 20 72 69 70 70 65 64 |, you go|t ripped|
|00005170| 20 6f 66 66 2e 5c 6e 22 | 29 3b 0a 58 20 20 72 65 | off.\n"|);.X re|
|00005180| 74 75 72 6e 20 32 3b 0a | 58 7d 0a 58 0a 58 75 6e |turn 2;.|X}.X.Xun|
|00005190| 74 61 72 20 28 29 0a 58 | 7b 0a 58 20 20 6c 6f 6e |tar ().X|{.X lon|
|000051a0| 67 20 73 69 7a 65 2c 20 | 63 68 6b 73 75 6d 2c 20 |g size, |chksum, |
|000051b0| 68 63 68 6b 73 75 6d 3b | 0a 58 20 20 69 6e 74 20 |hchksum;|.X int |
|000051c0| 69 3b 0a 58 20 20 77 68 | 69 6c 65 20 28 72 65 61 |i;.X wh|ile (rea|
|000051d0| 64 62 6c 6f 63 6b 28 26 | 74 61 72 68 2c 20 73 69 |dblock(&|tarh, si|
|000051e0| 7a 65 6f 66 28 74 61 72 | 68 29 29 29 20 7b 0a 58 |zeof(tar|h))) {.X|
|000051f0| 20 20 20 20 66 6f 72 20 | 28 69 3d 30 3b 20 69 20 | for |(i=0; i |
|00005200| 3c 20 73 69 7a 65 6f 66 | 28 74 61 72 68 29 20 26 |< sizeof|(tarh) &|
|00005210| 26 20 74 61 72 68 2e 6e | 61 6d 65 5b 69 5d 3d 3d |& tarh.n|ame[i]==|
|00005220| 27 5c 30 27 3b 20 2b 2b | 69 29 20 3b 0a 58 20 20 |'\0'; ++|i) ;.X |
|00005230| 20 20 69 66 20 28 69 20 | 3d 3d 20 73 69 7a 65 6f | if (i |== sizeo|
|00005240| 66 28 74 61 72 68 29 29 | 20 62 72 65 61 6b 3b 0a |f(tarh))| break;.|
|00005250| 58 20 20 20 20 68 63 68 | 6b 73 75 6d 20 3d 20 75 |X hch|ksum = u|
|00005260| 6e 74 61 72 5f 6e 75 6d | 62 65 72 28 74 61 72 68 |ntar_num|ber(tarh|
|00005270| 2e 63 68 6b 73 75 6d 29 | 3b 0a 58 20 20 20 20 66 |.chksum)|;.X f|
|00005280| 6f 72 20 28 69 3d 30 3b | 20 69 20 3c 20 38 3b 20 |or (i=0;| i < 8; |
|00005290| 2b 2b 69 29 20 74 61 72 | 68 2e 63 68 6b 73 75 6d |++i) tar|h.chksum|
|000052a0| 5b 69 5d 20 3d 20 27 20 | 27 3b 0a 58 20 20 20 20 |[i] = ' |';.X |
|000052b0| 66 6f 72 20 28 69 3d 63 | 68 6b 73 75 6d 3d 30 3b |for (i=c|hksum=0;|
|000052c0| 20 69 20 3c 20 73 69 7a | 65 6f 66 28 74 61 72 68 | i < siz|eof(tarh|
|000052d0| 29 3b 20 2b 2b 69 29 20 | 63 68 6b 73 75 6d 20 2b |); ++i) |chksum +|
|000052e0| 3d 20 28 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 |= (unsig|ned char|
|000052f0| 29 74 61 72 68 2e 6e 61 | 6d 65 5b 69 5d 3b 0a 58 |)tarh.na|me[i];.X|
|00005300| 20 20 20 20 69 66 20 28 | 63 68 6b 73 75 6d 20 21 | if (|chksum !|
|00005310| 3d 20 68 63 68 6b 73 75 | 6d 29 0a 58 20 20 20 20 |= hchksu|m).X |
|00005320| 20 20 66 61 74 61 6c 28 | 22 42 61 64 20 68 65 61 | fatal(|"Bad hea|
|00005330| 64 65 72 20 63 68 65 63 | 6b 73 75 6d 20 28 67 6f |der chec|ksum (go|
|00005340| 74 20 30 25 6c 6f 2c 20 | 65 78 70 65 63 74 65 64 |t 0%lo, |expected|
|00005350| 20 30 25 6c 6f 29 20 66 | 6f 72 20 25 73 22 2c 0a | 0%lo) f|or %s",.|
|00005360| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 63 68 6b |X | chk|
|00005370| 73 75 6d 2c 20 68 63 68 | 6b 73 75 6d 2c 20 74 61 |sum, hch|ksum, ta|
|00005380| 72 68 2e 6e 61 6d 65 29 | 3b 0a 58 20 20 20 20 73 |rh.name)|;.X s|
|00005390| 77 69 74 63 68 20 28 74 | 61 72 68 2e 6c 69 6e 6b |witch (t|arh.link|
|000053a0| 66 6c 61 67 29 20 7b 0a | 58 20 20 20 20 20 20 63 |flag) {.|X c|
|000053b0| 61 73 65 20 27 5c 30 27 | 3a 20 63 61 73 65 20 27 |ase '\0'|: case '|
|000053c0| 30 27 3a 20 75 6e 74 61 | 72 5f 66 69 6c 65 28 29 |0': unta|r_file()|
|000053d0| 3b 20 62 72 65 61 6b 3b | 0a 58 20 20 20 20 20 20 |; break;|.X |
|000053e0| 63 61 73 65 20 27 31 27 | 3a 20 63 61 73 65 20 27 |case '1'|: case '|
|000053f0| 32 27 3a 20 20 75 6e 74 | 61 72 5f 6c 69 6e 6b 28 |2': unt|ar_link(|
|00005400| 29 3b 20 62 72 65 61 6b | 3b 0a 58 20 20 20 20 20 |); break|;.X |
|00005410| 20 63 61 73 65 20 27 35 | 27 3a 20 75 6e 74 61 72 | case '5|': untar|
|00005420| 5f 64 69 72 65 63 74 6f | 72 79 28 29 3b 20 62 72 |_directo|ry(); br|
|00005430| 65 61 6b 3b 0a 58 20 20 | 20 20 20 20 64 65 66 61 |eak;.X | defa|
|00005440| 75 6c 74 3a 20 66 61 74 | 61 6c 28 22 55 6e 6b 6e |ult: fat|al("Unkn|
|00005450| 6f 77 6e 20 68 65 61 64 | 65 72 20 74 79 70 65 20 |own head|er type |
|00005460| 28 30 25 6f 29 22 2c 20 | 74 61 72 68 2e 6c 69 6e |(0%o)", |tarh.lin|
|00005470| 6b 66 6c 61 67 29 3b 0a | 58 20 20 20 20 7d 0a 58 |kflag);.|X }.X|
|00005480| 20 20 7d 0a 58 20 20 69 | 66 20 28 21 66 65 6f 66 | }.X i|f (!feof|
|00005490| 28 74 61 72 66 29 20 26 | 26 20 66 65 72 72 6f 72 |(tarf) &|& ferror|
|000054a0| 28 74 61 72 66 29 29 20 | 72 65 61 64 65 72 72 28 |(tarf)) |readerr(|
|000054b0| 29 3b 0a 58 20 0a 58 20 | 20 66 6f 72 28 69 3d 30 |);.X .X | for(i=0|
|000054c0| 3b 20 66 69 6c 65 73 5b | 69 5d 3b 20 2b 2b 69 29 |; files[|i]; ++i)|
|000054d0| 20 69 66 20 28 21 66 66 | 6f 75 6e 64 5b 69 5d 29 | if (!ff|ound[i])|
|000054e0| 0a 58 20 20 20 20 66 70 | 72 69 6e 74 66 28 73 74 |.X fp|rintf(st|
|000054f0| 64 65 72 72 2c 22 25 73 | 3a 20 57 61 72 6e 69 6e |derr,"%s|: Warnin|
|00005500| 67 20 2d 20 46 69 6c 65 | 20 25 73 20 6e 6f 74 20 |g - File| %s not |
|00005510| 66 6f 75 6e 64 2e 5c 6e | 22 2c 20 50 72 6f 67 72 |found.\n|", Progr|
|00005520| 61 6d 2c 20 66 69 6c 65 | 73 5b 69 5d 29 3b 0a 58 |am, file|s[i]);.X|
|00005530| 7d 0a 58 0a 58 75 6e 74 | 61 72 5f 66 69 6c 65 20 |}.X.Xunt|ar_file |
|00005540| 28 29 0a 58 7b 0a 58 20 | 20 6c 6f 6e 67 20 66 73 |().X{.X | long fs|
|00005550| 69 7a 65 20 3d 20 75 6e | 74 61 72 5f 6e 75 6d 62 |ize = un|tar_numb|
|00005560| 65 72 28 74 61 72 68 2e | 73 69 7a 65 29 3b 0a 58 |er(tarh.|size);.X|
|00005570| 20 20 69 66 20 28 74 61 | 72 68 2e 6e 61 6d 65 5b | if (ta|rh.name[|
|00005580| 73 74 72 6c 65 6e 28 74 | 61 72 68 2e 6e 61 6d 65 |strlen(t|arh.name|
|00005590| 29 2d 31 5d 20 3d 3d 20 | 27 2f 27 29 20 72 65 74 |)-1] == |'/') ret|
|000055a0| 75 72 6e 20 75 6e 74 61 | 72 5f 64 69 72 65 63 74 |urn unta|r_direct|
|000055b0| 6f 72 79 28 29 3b 0a 58 | 20 20 75 6e 69 78 32 6d |ory();.X| unix2m|
|000055c0| 61 63 28 74 61 72 68 2e | 6e 61 6d 65 29 3b 0a 58 |ac(tarh.|name);.X|
|000055d0| 20 20 69 66 20 28 21 64 | 61 74 61 6f 6e 6c 79 20 | if (!d|ataonly |
|000055e0| 26 26 20 63 68 6b 6d 61 | 63 62 69 6e 28 66 73 69 |&& chkma|cbin(fsi|
|000055f0| 7a 65 29 29 20 75 6e 74 | 61 72 5f 6d 61 63 62 69 |ze)) unt|ar_macbi|
|00005600| 6e 28 66 73 69 7a 65 29 | 3b 0a 58 20 20 65 6c 73 |n(fsize)|;.X els|
|00005610| 65 20 75 6e 74 61 72 5f | 64 61 74 61 28 66 73 69 |e untar_|data(fsi|
|00005620| 7a 65 29 3b 0a 58 7d 0a | 58 0a 58 63 68 6b 6d 61 |ze);.X}.|X.Xchkma|
|00005630| 63 62 69 6e 20 28 66 73 | 69 7a 65 29 0a 58 20 20 |cbin (fs|ize).X |
|00005640| 6c 6f 6e 67 20 66 73 69 | 7a 65 3b 0a 58 7b 0a 58 |long fsi|ze;.X{.X|
|00005650| 20 20 63 68 61 72 20 62 | 75 66 5b 31 32 38 5d 3b | char b|uf[128];|
|00005660| 0a 58 20 20 69 66 20 28 | 66 73 69 7a 65 20 3c 20 |.X if (|fsize < |
|00005670| 31 32 38 29 20 72 65 74 | 75 72 6e 20 30 3b 0a 58 |128) ret|urn 0;.X|
|00005680| 20 20 69 66 20 28 21 72 | 65 61 64 62 6c 6f 63 6b | if (!r|eadblock|
|00005690| 28 62 75 66 2c 20 31 32 | 38 29 29 20 72 65 61 64 |(buf, 12|8)) read|
|000056a0| 65 72 72 28 29 3b 0a 58 | 20 20 6d 63 6f 70 79 28 |err();.X| mcopy(|
|000056b0| 26 6d 61 63 62 69 6e 68 | 2c 20 26 62 75 66 5b 31 |&macbinh|, &buf[1|
|000056c0| 5d 2c 20 73 69 7a 65 6f | 66 28 6d 61 63 62 69 6e |], sizeo|f(macbin|
|000056d0| 68 29 29 3b 0a 58 20 20 | 69 66 20 28 62 75 66 5b |h));.X |if (buf[|
|000056e0| 30 5d 20 3d 3d 20 30 20 | 26 26 20 6d 61 63 62 69 |0] == 0 |&& macbi|
|000056f0| 6e 68 2e 7a 65 72 6f 20 | 3d 3d 20 30 20 26 26 0a |nh.zero |== 0 &&.|
|00005700| 58 20 20 20 20 20 20 6d | 61 63 62 69 6e 68 2e 6e |X m|acbinh.n|
|00005710| 6c 65 6e 20 3c 20 36 34 | 20 26 26 20 6d 61 63 62 |len < 64| && macb|
|00005720| 69 6e 68 2e 6e 6c 65 6e | 20 3e 20 30 20 26 26 0a |inh.nlen| > 0 &&.|
|00005730| 58 20 20 20 20 20 20 6d | 61 63 62 69 6e 68 2e 64 |X m|acbinh.d|
|00005740| 66 6c 65 6e 20 3e 3d 20 | 30 20 26 26 20 6d 61 63 |flen >= |0 && mac|
|00005750| 62 69 6e 68 2e 72 66 6c | 65 6e 20 3e 3d 20 30 20 |binh.rfl|en >= 0 |
|00005760| 26 26 0a 58 20 20 20 20 | 20 20 28 75 6e 73 69 67 |&&.X | (unsig|
|00005770| 6e 65 64 29 20 28 6d 61 | 63 62 69 6e 73 7a 28 6d |ned) (ma|cbinsz(m|
|00005780| 61 63 62 69 6e 68 2e 64 | 66 6c 65 6e 29 20 2b 20 |acbinh.d|flen) + |
|00005790| 6d 61 63 62 69 6e 73 7a | 28 6d 61 63 62 69 6e 68 |macbinsz|(macbinh|
|000057a0| 2e 72 66 6c 65 6e 29 20 | 2b 20 31 32 38 4c 29 0a |.rflen) |+ 128L).|
|000057b0| 58 20 20 20 20 20 20 20 | 20 20 20 3c 3d 20 28 75 |X | <= (u|
|000057c0| 6e 73 69 67 6e 65 64 29 | 20 66 73 69 7a 65 29 20 |nsigned)| fsize) |
|000057d0| 72 65 74 75 72 6e 20 31 | 3b 0a 58 20 20 66 73 65 |return 1|;.X fse|
|000057e0| 65 6b 28 74 61 72 66 2c | 20 2d 31 32 38 4c 2c 20 |ek(tarf,| -128L, |
|000057f0| 31 29 3b 0a 58 20 20 72 | 65 74 75 72 6e 20 30 3b |1);.X r|eturn 0;|
|00005800| 0a 58 7d 0a 58 0a 58 75 | 6e 74 61 72 5f 64 61 74 |.X}.X.Xu|ntar_dat|
|00005810| 61 20 28 66 73 69 7a 65 | 29 0a 58 20 20 6c 6f 6e |a (fsize|).X lon|
|00005820| 67 20 66 73 69 7a 65 3b | 0a 58 7b 0a 58 20 20 49 |g fsize;|.X{.X I|
|00005830| 4f 50 61 72 61 6d 20 70 | 62 3b 0a 58 20 20 63 68 |OParam p|b;.X ch|
|00005840| 61 72 20 66 6e 61 6d 65 | 5b 31 31 30 5d 3b 0a 58 |ar fname|[110];.X|
|00005850| 20 20 69 6e 74 20 69 67 | 6e 6f 72 65 20 3d 20 69 | int ig|nore = i|
|00005860| 67 6e 6f 72 65 5f 66 69 | 6c 65 28 74 61 72 68 2e |gnore_fi|le(tarh.|
|00005870| 6e 61 6d 65 29 3b 0a 58 | 0a 58 20 20 69 66 20 28 |name);.X|.X if (|
|00005880| 76 65 72 62 6f 73 65 20 | 26 26 20 21 69 67 6e 6f |verbose |&& !igno|
|00005890| 72 65 29 20 7b 0a 58 20 | 20 20 20 70 72 69 6e 74 |re) {.X | print|
|000058a0| 66 28 22 58 20 25 73 20 | 28 25 6c 64 20 62 79 74 |f("X %s |(%ld byt|
|000058b0| 65 73 29 5c 6e 22 2c 20 | 74 61 72 68 2e 6e 61 6d |es)\n", |tarh.nam|
|000058c0| 65 2c 20 66 73 69 7a 65 | 29 3b 0a 58 20 20 20 20 |e, fsize|);.X |
|000058d0| 66 66 6c 75 73 68 28 73 | 74 64 6f 75 74 29 3b 0a |fflush(s|tdout);.|
|000058e0| 58 20 20 7d 0a 58 20 20 | 69 66 20 28 6c 69 73 74 |X }.X |if (list|
|000058f0| 6f 6e 6c 79 20 7c 7c 20 | 69 67 6e 6f 72 65 29 20 |only || |ignore) |
|00005900| 7b 0a 58 20 20 20 20 66 | 73 65 65 6b 28 74 61 72 |{.X f|seek(tar|
|00005910| 66 2c 20 74 61 72 73 7a | 28 66 73 69 7a 65 29 2c |f, tarsz|(fsize),|
|00005920| 20 31 29 3b 0a 58 20 20 | 20 20 72 65 74 75 72 6e | 1);.X | return|
|00005930| 3b 0a 58 20 20 7d 0a 58 | 20 20 63 72 65 61 74 65 |;.X }.X| create|
|00005940| 5f 66 69 6c 65 28 74 61 | 72 68 2e 6e 61 6d 65 29 |_file(ta|rh.name)|
|00005950| 3b 0a 58 20 20 6f 70 65 | 6e 70 62 28 26 70 62 2c |;.X ope|npb(&pb,|
|00005960| 20 73 74 72 63 70 79 28 | 66 6e 61 6d 65 2c 20 74 | strcpy(|fname, t|
|00005970| 61 72 68 2e 6e 61 6d 65 | 29 2c 20 66 73 57 72 50 |arh.name|), fsWrP|
|00005980| 65 72 6d 29 3b 0a 58 20 | 20 70 62 2e 69 6f 52 65 |erm);.X | pb.ioRe|
|00005990| 71 43 6f 75 6e 74 20 3d | 20 73 69 7a 65 6f 66 28 |qCount =| sizeof(|
|000059a0| 74 61 72 68 29 3b 0a 58 | 20 20 77 72 69 74 65 66 |tarh);.X| writef|
|000059b0| 6f 72 6b 28 26 70 62 2c | 20 66 73 69 7a 65 2c 20 |ork(&pb,| fsize, |
|000059c0| 62 69 6e 61 72 79 29 3b | 0a 58 7d 0a 58 0a 58 75 |binary);|.X}.X.Xu|
|000059d0| 6e 74 61 72 5f 6d 61 63 | 62 69 6e 20 28 66 73 69 |ntar_mac|bin (fsi|
|000059e0| 7a 65 29 0a 58 20 20 6c | 6f 6e 67 20 66 73 69 7a |ze).X l|ong fsiz|
|000059f0| 65 3b 0a 58 7b 0a 58 20 | 20 49 4f 50 61 72 61 6d |e;.X{.X | IOParam|
|00005a00| 20 70 62 3b 0a 58 20 20 | 63 68 61 72 20 66 6e 61 | pb;.X |char fna|
|00005a10| 6d 65 5b 31 37 30 5d 2c | 20 2a 63 70 3b 0a 58 20 |me[170],| *cp;.X |
|00005a20| 20 6c 6f 6e 67 20 65 6e | 64 70 6f 73 20 3d 20 66 | long en|dpos = f|
|00005a30| 74 65 6c 6c 28 74 61 72 | 66 29 20 2d 20 31 32 38 |tell(tar|f) - 128|
|00005a40| 20 2b 20 74 61 72 73 7a | 28 66 73 69 7a 65 29 3b | + tarsz|(fsize);|
|00005a50| 0a 58 20 20 69 6e 74 20 | 69 67 6e 6f 72 65 3b 0a |.X int |ignore;.|
|00005a60| 58 20 20 66 6f 72 28 63 | 70 20 3d 20 74 61 72 68 |X for(c|p = tarh|
|00005a70| 2e 6e 61 6d 65 2b 73 74 | 72 6c 65 6e 28 74 61 72 |.name+st|rlen(tar|
|00005a80| 68 2e 6e 61 6d 65 29 3b | 20 63 70 20 21 3d 20 74 |h.name);| cp != t|
|00005a90| 61 72 68 2e 6e 61 6d 65 | 20 26 26 20 63 70 5b 2d |arh.name| && cp[-|
|00005aa0| 31 5d 20 21 3d 20 27 3a | 27 3b 20 2d 2d 63 70 29 |1] != ':|'; --cp)|
|00005ab0| 3b 0a 58 20 20 6d 63 6f | 70 79 28 63 70 2c 20 6d |;.X mco|py(cp, m|
|00005ac0| 61 63 62 69 6e 68 2e 6e | 61 6d 65 2c 20 6d 61 63 |acbinh.n|ame, mac|
|00005ad0| 62 69 6e 68 2e 6e 6c 65 | 6e 29 3b 0a 58 20 20 63 |binh.nle|n);.X c|
|00005ae0| 70 5b 6d 61 63 62 69 6e | 68 2e 6e 6c 65 6e 5d 20 |p[macbin|h.nlen] |
|00005af0| 3d 20 27 5c 30 27 3b 0a | 58 20 20 69 67 6e 6f 72 |= '\0';.|X ignor|
|00005b00| 65 20 3d 20 69 67 6e 6f | 72 65 5f 66 69 6c 65 28 |e = igno|re_file(|
|00005b10| 74 61 72 68 2e 6e 61 6d | 65 29 3b 0a 58 20 20 69 |tarh.nam|e);.X i|
|00005b20| 66 20 28 76 65 72 62 6f | 73 65 20 26 26 20 21 69 |f (verbo|se && !i|
|00005b30| 67 6e 6f 72 65 29 20 7b | 0a 58 20 20 20 20 70 72 |gnore) {|.X pr|
|00005b40| 69 6e 74 66 28 22 4d 61 | 63 62 69 6e 20 25 73 20 |intf("Ma|cbin %s |
|00005b50| 28 25 6c 64 2b 25 6c 64 | 20 62 79 74 65 73 29 5c |(%ld+%ld| bytes)\|
|00005b60| 6e 22 2c 20 74 61 72 68 | 2e 6e 61 6d 65 2c 20 6d |n", tarh|.name, m|
|00005b70| 61 63 62 69 6e 68 2e 64 | 66 6c 65 6e 2c 20 6d 61 |acbinh.d|flen, ma|
|00005b80| 63 62 69 6e 68 2e 72 66 | 6c 65 6e 29 3b 0a 58 20 |cbinh.rf|len);.X |
|00005b90| 20 20 20 66 66 6c 75 73 | 68 28 73 74 64 6f 75 74 | fflus|h(stdout|
|00005ba0| 29 3b 0a 58 20 20 7d 0a | 58 20 20 69 66 20 28 21 |);.X }.|X if (!|
|00005bb0| 6c 69 73 74 6f 6e 6c 79 | 20 26 26 20 21 69 67 6e |listonly| && !ign|
|00005bc0| 6f 72 65 29 20 7b 0a 58 | 20 20 20 20 63 72 65 61 |ore) {.X| crea|
|00005bd0| 74 65 5f 66 69 6c 65 28 | 74 61 72 68 2e 6e 61 6d |te_file(|tarh.nam|
|00005be0| 65 29 3b 0a 58 20 20 20 | 20 73 74 72 63 70 79 28 |e);.X | strcpy(|
|00005bf0| 66 6e 61 6d 65 2c 20 74 | 61 72 68 2e 6e 61 6d 65 |fname, t|arh.name|
|00005c00| 29 3b 20 20 2f 2a 20 46 | 6f 72 20 65 72 72 6f 72 |); /* F|or error|
|00005c10| 20 6d 65 73 73 61 67 65 | 73 20 2a 2f 0a 58 20 20 | message|s */.X |
|00005c20| 20 20 6f 70 65 6e 70 62 | 28 26 70 62 2c 20 66 6e | openpb|(&pb, fn|
|00005c30| 61 6d 65 2c 20 66 73 57 | 72 50 65 72 6d 29 3b 0a |ame, fsW|rPerm);.|
|00005c40| 58 20 20 20 20 70 62 2e | 69 6f 52 65 71 43 6f 75 |X pb.|ioReqCou|
|00005c50| 6e 74 20 3d 20 31 32 38 | 3b 0a 58 20 20 20 20 77 |nt = 128|;.X w|
|00005c60| 72 69 74 65 66 6f 72 6b | 28 26 70 62 2c 20 6d 61 |ritefork|(&pb, ma|
|00005c70| 63 62 69 6e 68 2e 64 66 | 6c 65 6e 2c 20 31 29 3b |cbinh.df|len, 1);|
|00005c80| 0a 58 20 20 20 20 70 62 | 2e 69 6f 4e 61 6d 65 50 |.X pb|.ioNameP|
|00005c90| 74 72 20 3d 20 66 6e 61 | 6d 65 3b 0a 58 20 20 20 |tr = fna|me;.X |
|00005ca0| 20 70 62 2e 69 6f 56 52 | 65 66 4e 75 6d 20 3d 20 | pb.ioVR|efNum = |
|00005cb0| 30 3b 0a 58 20 20 20 20 | 70 62 2e 69 6f 56 65 72 |0;.X |pb.ioVer|
|00005cc0| 73 4e 75 6d 20 3d 20 30 | 3b 0a 58 20 20 20 20 70 |sNum = 0|;.X p|
|00005cd0| 62 2e 69 6f 50 65 72 6d | 73 73 6e 20 3d 20 66 73 |b.ioPerm|ssn = fs|
|00005ce0| 57 72 50 65 72 6d 3b 0a | 58 20 20 20 20 70 62 2e |WrPerm;.|X pb.|
|00005cf0| 69 6f 4d 69 73 63 20 3d | 20 30 3b 0a 58 20 20 20 |ioMisc =| 0;.X |
|00005d00| 20 69 66 20 28 50 42 4f | 70 65 6e 52 46 28 26 70 | if (PBO|penRF(&p|
|00005d10| 62 2c 20 30 29 29 20 70 | 62 73 79 73 65 72 72 28 |b, 0)) p|bsyserr(|
|00005d20| 26 70 62 29 3b 0a 58 20 | 20 20 20 70 62 2e 69 6f |&pb);.X | pb.io|
|00005d30| 52 65 71 43 6f 75 6e 74 | 20 3d 20 31 32 38 3b 0a |ReqCount| = 128;.|
|00005d40| 58 20 20 20 20 77 72 69 | 74 65 66 6f 72 6b 28 26 |X wri|tefork(&|
|00005d50| 70 62 2c 20 6d 61 63 62 | 69 6e 68 2e 72 66 6c 65 |pb, macb|inh.rfle|
|00005d60| 6e 2c 20 31 29 3b 0a 58 | 20 20 20 20 73 65 74 6d |n, 1);.X| setm|
|00005d70| 61 63 62 69 6e 28 66 6e | 61 6d 65 29 3b 0a 58 20 |acbin(fn|ame);.X |
|00005d80| 20 7d 0a 58 20 20 66 73 | 65 65 6b 28 74 61 72 66 | }.X fs|eek(tarf|
|00005d90| 2c 20 65 6e 64 70 6f 73 | 2c 20 30 29 3b 0a 58 7d |, endpos|, 0);.X}|
|00005da0| 0a 58 0a 58 77 72 69 74 | 65 66 6f 72 6b 28 70 62 |.X.Xwrit|efork(pb|
|00005db0| 2c 20 73 69 7a 65 2c 20 | 62 69 6e 70 29 0a 58 20 |, size, |binp).X |
|00005dc0| 20 49 4f 50 61 72 61 6d | 20 2a 70 62 3b 0a 58 20 | IOParam| *pb;.X |
|00005dd0| 20 6c 6f 6e 67 20 73 69 | 7a 65 3b 0a 58 7b 0a 58 | long si|ze;.X{.X|
|00005de0| 20 20 69 6e 74 20 69 3b | 0a 58 20 20 70 62 2d 3e | int i;|.X pb->|
|00005df0| 69 6f 50 6f 73 4d 6f 64 | 65 20 3d 20 66 73 41 74 |ioPosMod|e = fsAt|
|00005e00| 4d 61 72 6b 3b 0a 58 20 | 20 70 62 2d 3e 69 6f 50 |Mark;.X | pb->ioP|
|00005e10| 6f 73 4f 66 66 73 65 74 | 20 3d 20 30 3b 0a 58 20 |osOffset| = 0;.X |
|00005e20| 20 70 62 2d 3e 69 6f 42 | 75 66 66 65 72 20 3d 20 | pb->ioB|uffer = |
|00005e30| 26 74 61 72 68 3b 0a 58 | 20 20 77 68 69 6c 65 20 |&tarh;.X| while |
|00005e40| 28 73 69 7a 65 29 20 7b | 0a 58 20 20 20 20 69 66 |(size) {|.X if|
|00005e50| 20 28 21 72 65 61 64 62 | 6c 6f 63 6b 28 26 74 61 | (!readb|lock(&ta|
|00005e60| 72 68 2c 20 70 62 2d 3e | 69 6f 52 65 71 43 6f 75 |rh, pb->|ioReqCou|
|00005e70| 6e 74 29 29 20 7b 0a 58 | 20 20 20 20 20 20 50 42 |nt)) {.X| PB|
|00005e80| 43 6c 6f 73 65 28 70 62 | 2c 20 30 29 3b 0a 58 20 |Close(pb|, 0);.X |
|00005e90| 20 20 20 20 20 72 65 61 | 64 65 72 72 28 29 3b 0a | rea|derr();.|
|00005ea0| 58 20 20 20 20 7d 0a 58 | 20 20 20 20 69 66 20 28 |X }.X| if (|
|00005eb0| 21 62 69 6e 70 29 0a 58 | 20 20 20 20 20 20 66 6f |!binp).X| fo|
|00005ec0| 72 20 28 69 3d 30 3b 20 | 69 20 3c 20 70 62 2d 3e |r (i=0; |i < pb->|
|00005ed0| 69 6f 52 65 71 43 6f 75 | 6e 74 3b 20 2b 2b 69 29 |ioReqCou|nt; ++i)|
|00005ee0| 0a 58 20 20 20 20 20 20 | 20 20 69 66 20 28 74 61 |.X | if (ta|
|00005ef0| 72 68 2e 6e 61 6d 65 5b | 69 5d 20 3d 3d 20 27 4a |rh.name[|i] == 'J|
|00005f00| 27 2d 27 40 27 29 20 74 | 61 72 68 2e 6e 61 6d 65 |'-'@') t|arh.name|
|00005f10| 5b 69 5d 20 3d 20 27 4d | 27 2d 27 40 27 3b 0a 58 |[i] = 'M|'-'@';.X|
|00005f20| 20 20 20 20 69 66 20 28 | 73 69 7a 65 20 3c 20 70 | if (|size < p|
|00005f30| 62 2d 3e 69 6f 52 65 71 | 43 6f 75 6e 74 29 20 70 |b->ioReq|Count) p|
|00005f40| 62 2d 3e 69 6f 52 65 71 | 43 6f 75 6e 74 20 3d 20 |b->ioReq|Count = |
|00005f50| 73 69 7a 65 3b 0a 58 20 | 20 20 20 73 69 7a 65 20 |size;.X | size |
|00005f60| 2d 3d 20 70 62 2d 3e 69 | 6f 52 65 71 43 6f 75 6e |-= pb->i|oReqCoun|
|00005f70| 74 3b 0a 58 20 20 20 20 | 69 66 20 28 50 42 57 72 |t;.X |if (PBWr|
|00005f80| 69 74 65 28 70 62 2c 20 | 30 29 20 7c 7c 20 70 62 |ite(pb, |0) || pb|
|00005f90| 2d 3e 69 6f 41 63 74 43 | 6f 75 6e 74 20 21 3d 20 |->ioActC|ount != |
|00005fa0| 70 62 2d 3e 69 6f 52 65 | 71 43 6f 75 6e 74 29 20 |pb->ioRe|qCount) |
|00005fb0| 7b 0a 58 20 20 20 20 20 | 20 69 6e 74 20 65 72 72 |{.X | int err|
|00005fc0| 20 3d 20 70 62 2d 3e 69 | 6f 52 65 73 75 6c 74 3b | = pb->i|oResult;|
|00005fd0| 0a 58 20 20 20 20 20 20 | 50 42 43 6c 6f 73 65 28 |.X |PBClose(|
|00005fe0| 70 62 2c 20 30 29 3b 0a | 58 20 20 20 20 20 20 70 |pb, 0);.|X p|
|00005ff0| 62 2d 3e 69 6f 52 65 73 | 75 6c 74 20 3d 20 65 72 |b->ioRes|ult = er|
|00006000| 72 3b 0a 58 20 20 20 20 | 20 20 70 62 73 79 73 65 |r;.X | pbsyse|
|00006010| 72 72 28 70 62 29 3b 0a | 58 20 20 20 20 7d 0a 58 |rr(pb);.|X }.X|
|00006020| 20 20 7d 0a 58 20 20 50 | 42 43 6c 6f 73 65 28 70 | }.X P|BClose(p|
|00006030| 62 2c 20 30 29 3b 0a 58 | 7d 0a 58 0a 58 0a 58 73 |b, 0);.X|}.X.X.Xs|
|00006040| 65 74 6d 61 63 62 69 6e | 20 28 66 6e 61 6d 65 29 |etmacbin| (fname)|
|00006050| 0a 58 20 20 63 68 61 72 | 20 2a 66 6e 61 6d 65 3b |.X char| *fname;|
|00006060| 0a 58 7b 0a 58 20 20 46 | 69 6c 65 50 61 72 61 6d |.X{.X F|ileParam|
|00006070| 20 70 62 3b 0a 58 20 20 | 70 62 2e 69 6f 4e 61 6d | pb;.X |pb.ioNam|
|00006080| 65 50 74 72 20 3d 20 66 | 6e 61 6d 65 3b 0a 58 20 |ePtr = f|name;.X |
|00006090| 20 70 62 2e 69 6f 56 52 | 65 66 4e 75 6d 20 3d 20 | pb.ioVR|efNum = |
|000060a0| 30 3b 0a 58 20 20 70 62 | 2e 69 6f 46 56 65 72 73 |0;.X pb|.ioFVers|
|000060b0| 4e 75 6d 20 3d 20 30 3b | 0a 58 20 20 70 62 2e 69 |Num = 0;|.X pb.i|
|000060c0| 6f 46 44 69 72 49 6e 64 | 65 78 20 3d 20 30 3b 0a |oFDirInd|ex = 0;.|
|000060d0| 58 20 20 69 66 20 28 50 | 42 47 65 74 46 49 6e 66 |X if (P|BGetFInf|
|000060e0| 6f 28 26 70 62 2c 20 30 | 29 29 20 70 62 73 79 73 |o(&pb, 0|)) pbsys|
|000060f0| 65 72 72 28 26 70 62 29 | 3b 0a 58 20 20 6d 63 6f |err(&pb)|;.X mco|
|00006100| 70 79 28 26 70 62 2e 69 | 6f 46 6c 46 6e 64 72 49 |py(&pb.i|oFlFndrI|
|00006110| 6e 66 6f 2c 20 26 6d 61 | 63 62 69 6e 68 2e 66 69 |nfo, &ma|cbinh.fi|
|00006120| 6e 66 6f 2c 20 73 69 7a | 65 6f 66 28 46 49 6e 66 |nfo, siz|eof(FInf|
|00006130| 6f 29 29 3b 0a 58 20 20 | 69 66 20 28 21 69 67 6e |o));.X |if (!ign|
|00006140| 6f 72 65 5f 63 64 61 74 | 65 29 20 70 62 2e 69 6f |ore_cdat|e) pb.io|
|00006150| 46 6c 43 72 44 61 74 20 | 3d 20 6d 61 63 62 69 6e |FlCrDat |= macbin|
|00006160| 68 2e 63 64 61 74 65 3b | 0a 58 20 20 69 66 20 28 |h.cdate;|.X if (|
|00006170| 21 69 67 6e 6f 72 65 5f | 6d 64 61 74 65 29 20 70 |!ignore_|mdate) p|
|00006180| 62 2e 69 6f 46 6c 4d 64 | 44 61 74 20 3d 20 6d 61 |b.ioFlMd|Dat = ma|
|00006190| 63 62 69 6e 68 2e 6d 64 | 61 74 65 3b 0a 58 20 20 |cbinh.md|ate;.X |
|000061a0| 69 66 20 28 50 42 53 65 | 74 46 49 6e 66 6f 28 26 |if (PBSe|tFInfo(&|
|000061b0| 70 62 2c 20 30 29 29 20 | 70 62 73 79 73 65 72 72 |pb, 0)) |pbsyserr|
|000061c0| 28 26 70 62 29 3b 0a 58 | 7d 0a 58 0a 58 75 6e 74 |(&pb);.X|}.X.Xunt|
|000061d0| 61 72 5f 64 69 72 65 63 | 74 6f 72 79 20 28 29 0a |ar_direc|tory ().|
|000061e0| 58 7b 0a 58 20 20 69 6e | 74 20 6c 65 6e 20 3d 20 |X{.X in|t len = |
|000061f0| 73 74 72 6c 65 6e 28 74 | 61 72 68 2e 6e 61 6d 65 |strlen(t|arh.name|
|00006200| 29 3b 0a 58 0a 58 20 20 | 69 66 20 28 6c 65 6e 20 |);.X.X |if (len |
|00006210| 26 26 20 74 61 72 68 2e | 6e 61 6d 65 5b 6c 65 6e |&& tarh.|name[len|
|00006220| 2d 31 5d 20 21 3d 20 27 | 2f 27 29 20 7b 0a 58 20 |-1] != '|/') {.X |
|00006230| 20 20 20 74 61 72 68 2e | 6e 61 6d 65 5b 6c 65 6e | tarh.|name[len|
|00006240| 5d 20 3d 20 27 2f 27 3b | 0a 58 20 20 20 20 74 61 |] = '/';|.X ta|
|00006250| 72 68 2e 6e 61 6d 65 5b | 6c 65 6e 2b 31 5d 20 3d |rh.name[|len+1] =|
|00006260| 20 27 5c 30 27 3b 0a 58 | 20 20 7d 0a 58 20 20 75 | '\0';.X| }.X u|
|00006270| 6e 69 78 32 6d 61 63 28 | 74 61 72 68 2e 6e 61 6d |nix2mac(|tarh.nam|
|00006280| 65 29 3b 0a 58 20 20 69 | 66 20 28 21 74 61 72 68 |e);.X i|f (!tarh|
|00006290| 2e 6e 61 6d 65 5b 31 5d | 20 7c 7c 20 69 67 6e 6f |.name[1]| || igno|
|000062a0| 72 65 5f 66 69 6c 65 28 | 74 61 72 68 2e 6e 61 6d |re_file(|tarh.nam|
|000062b0| 65 29 29 20 72 65 74 75 | 72 6e 3b 0a 58 20 20 69 |e)) retu|rn;.X i|
|000062c0| 66 20 28 6c 69 73 74 6f | 6e 6c 79 29 20 7b 0a 58 |f (listo|nly) {.X|
|000062d0| 20 20 20 20 70 72 69 6e | 74 66 28 22 44 69 72 65 | prin|tf("Dire|
|000062e0| 63 74 6f 72 79 20 5c 22 | 25 73 5c 22 5c 6e 22 2c |ctory \"|%s\"\n",|
|000062f0| 20 74 61 72 68 2e 6e 61 | 6d 65 29 3b 0a 58 20 20 | tarh.na|me);.X |
|00006300| 20 20 66 66 6c 75 73 68 | 28 73 74 64 6f 75 74 29 | fflush|(stdout)|
|00006310| 3b 0a 58 20 20 20 20 72 | 65 74 75 72 6e 3b 0a 58 |;.X r|eturn;.X|
|00006320| 20 20 7d 0a 58 20 20 63 | 72 65 61 74 65 5f 64 69 | }.X c|reate_di|
|00006330| 72 65 63 74 6f 72 79 28 | 74 61 72 68 2e 6e 61 6d |rectory(|tarh.nam|
|00006340| 65 29 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 20 20 66 6e |e);.X}.X|.X/* fn|
|00006350| 61 6d 65 20 6d 61 79 20 | 63 6f 6e 74 61 69 6e 20 |ame may |contain |
|00006360| 61 20 66 69 6c 65 6e 61 | 6d 65 20 61 66 74 65 72 |a filena|me after|
|00006370| 20 74 68 65 20 6c 61 73 | 74 20 3a 2c 20 69 74 20 | the las|t :, it |
|00006380| 77 69 6c 6c 20 62 65 20 | 69 67 6e 6f 72 65 64 20 |will be |ignored |
|00006390| 2a 2f 0a 58 63 72 65 61 | 74 65 5f 64 69 72 65 63 |*/.Xcrea|te_direc|
|000063a0| 74 6f 72 79 20 28 66 6e | 61 6d 65 29 0a 58 20 20 |tory (fn|ame).X |
|000063b0| 63 68 61 72 20 2a 66 6e | 61 6d 65 3b 0a 58 7b 0a |char *fn|ame;.X{.|
|000063c0| 58 20 20 48 46 69 6c 65 | 50 61 72 61 6d 20 70 62 |X HFile|Param pb|
|000063d0| 3b 0a 58 20 20 63 68 61 | 72 20 6e 61 6d 65 5b 31 |;.X cha|r name[1|
|000063e0| 32 38 5d 2c 20 2a 63 70 | 2c 20 2a 62 70 3b 0a 58 |28], *cp|, *bp;.X|
|000063f0| 20 20 0a 58 20 20 63 70 | 20 3d 20 66 6e 61 6d 65 | .X cp| = fname|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
