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).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 31 37 69 30 37 |Subject:| v17i07|
|00000010| 32 3a 20 20 5a 6f 6f 20 | 61 72 63 68 69 76 65 20 |2: Zoo |archive |
|00000020| 70 72 6f 67 72 61 6d 2c | 20 50 61 72 74 30 39 2f |program,| Part09/|
|00000030| 31 30 0a 4e 65 77 73 67 | 72 6f 75 70 73 3a 20 63 |10.Newsg|roups: c|
|00000040| 6f 6d 70 2e 73 6f 75 72 | 63 65 73 2e 75 6e 69 78 |omp.sour|ces.unix|
|00000050| 0a 41 70 70 72 6f 76 65 | 64 3a 20 72 73 61 6c 7a |.Approve|d: rsalz|
|00000060| 40 75 75 6e 65 74 2e 55 | 55 2e 4e 45 54 0a 0a 53 |@uunet.U|U.NET..S|
|00000070| 75 62 6d 69 74 74 65 64 | 2d 62 79 3a 20 52 61 68 |ubmitted|-by: Rah|
|00000080| 75 6c 20 44 68 65 73 69 | 20 3c 62 73 75 2d 63 73 |ul Dhesi| <bsu-cs|
|00000090| 21 64 68 65 73 69 40 69 | 75 76 61 78 2e 63 73 2e |!dhesi@i|uvax.cs.|
|000000a0| 69 6e 64 69 61 6e 61 2e | 65 64 75 3e 0a 50 6f 73 |indiana.|edu>.Pos|
|000000b0| 74 69 6e 67 2d 6e 75 6d | 62 65 72 3a 20 56 6f 6c |ting-num|ber: Vol|
|000000c0| 75 6d 65 20 31 37 2c 20 | 49 73 73 75 65 20 37 32 |ume 17, |Issue 72|
|000000d0| 0a 41 72 63 68 69 76 65 | 2d 6e 61 6d 65 3a 20 7a |.Archive|-name: z|
|000000e0| 6f 6f 32 2f 70 61 72 74 | 30 39 0a 0a 23 21 20 2f |oo2/part|09..#! /|
|000000f0| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|00000100| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000110| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 74 68 69 |. Remov|e anythi|
|00000120| 6e 67 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 6c |ng befor|e this l|
|00000130| 69 6e 65 2c 20 74 68 65 | 6e 20 75 6e 70 61 63 6b |ine, the|n unpack|
|00000140| 0a 23 20 69 74 20 62 79 | 20 73 61 76 69 6e 67 20 |.# it by| saving |
|00000150| 69 74 20 69 6e 74 6f 20 | 61 20 66 69 6c 65 20 61 |it into |a file a|
|00000160| 6e 64 20 74 79 70 69 6e | 67 20 22 73 68 20 66 69 |nd typin|g "sh fi|
|00000170| 6c 65 22 2e 20 20 54 6f | 20 6f 76 65 72 77 72 69 |le". To| overwri|
|00000180| 74 65 20 65 78 69 73 74 | 69 6e 67 0a 23 20 66 69 |te exist|ing.# fi|
|00000190| 6c 65 73 2c 20 74 79 70 | 65 20 22 73 68 20 66 69 |les, typ|e "sh fi|
|000001a0| 6c 65 20 2d 63 22 2e 20 | 20 59 6f 75 20 63 61 6e |le -c". | You can|
|000001b0| 20 61 6c 73 6f 20 66 65 | 65 64 20 74 68 69 73 20 | also fe|ed this |
|000001c0| 61 73 20 73 74 61 6e 64 | 61 72 64 20 69 6e 70 75 |as stand|ard inpu|
|000001d0| 74 20 76 69 61 0a 23 20 | 75 6e 73 68 61 72 2c 20 |t via.# |unshar, |
|000001e0| 6f 72 20 62 79 20 74 79 | 70 69 6e 67 20 22 73 68 |or by ty|ping "sh|
|000001f0| 20 3c 66 69 6c 65 22 2c | 20 65 2e 67 2e 2e 20 20 | <file",| e.g.. |
|00000200| 49 66 20 74 68 69 73 20 | 61 72 63 68 69 76 65 20 |If this |archive |
|00000210| 69 73 20 63 6f 6d 70 6c | 65 74 65 2c 20 79 6f 75 |is compl|ete, you|
|00000220| 0a 23 20 77 69 6c 6c 20 | 73 65 65 20 74 68 65 20 |.# will |see the |
|00000230| 66 6f 6c 6c 6f 77 69 6e | 67 20 6d 65 73 73 61 67 |followin|g messag|
|00000240| 65 20 61 74 20 74 68 65 | 20 65 6e 64 3a 0a 23 09 |e at the| end:.#.|
|00000250| 09 22 45 6e 64 20 6f 66 | 20 61 72 63 68 69 76 65 |."End of| archive|
|00000260| 20 39 20 28 6f 66 20 31 | 30 29 2e 22 0a 23 20 57 | 9 (of 1|0).".# W|
|00000270| 72 61 70 70 65 64 20 62 | 79 20 72 73 61 6c 7a 40 |rapped b|y rsalz@|
|00000280| 70 61 70 61 79 61 2e 62 | 62 6e 2e 63 6f 6d 20 6f |papaya.b|bn.com o|
|00000290| 6e 20 54 68 75 20 46 65 | 62 20 20 32 20 31 38 3a |n Thu Fe|b 2 18:|
|000002a0| 30 34 3a 30 35 20 31 39 | 38 39 0a 50 41 54 48 3d |04:05 19|89.PATH=|
|000002b0| 2f 62 69 6e 3a 2f 75 73 | 72 2f 62 69 6e 3a 2f 75 |/bin:/us|r/bin:/u|
|000002c0| 73 72 2f 75 63 62 20 3b | 20 65 78 70 6f 72 74 20 |sr/ucb ;| export |
|000002d0| 50 41 54 48 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |PATH.if |test -f |
|000002e0| 27 7a 6f 6f 69 6f 2e 68 | 27 20 2d 61 20 22 24 7b |'zooio.h|' -a "${|
|000002f0| 31 7d 22 20 21 3d 20 22 | 2d 63 22 20 3b 20 74 68 |1}" != "|-c" ; th|
|00000300| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en . ec|ho shar:|
|00000310| 20 57 69 6c 6c 20 6e 6f | 74 20 63 6c 6f 62 62 65 | Will no|t clobbe|
|00000320| 72 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |r existi|ng file |
|00000330| 5c 22 27 7a 6f 6f 69 6f | 2e 68 27 5c 22 0a 65 6c |\"'zooio|.h'\".el|
|00000340| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|00000350| 74 72 61 63 74 69 6e 67 | 20 5c 22 27 7a 6f 6f 69 |tracting| \"'zooi|
|00000360| 6f 2e 68 27 5c 22 20 5c | 28 32 30 37 34 20 63 68 |o.h'\" \|(2074 ch|
|00000370| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000380| 73 2f 5e 58 2f 2f 22 20 | 3e 27 7a 6f 6f 69 6f 2e |s/^X//" |>'zooio.|
|00000390| 68 27 20 3c 3c 27 45 4e | 44 5f 4f 46 5f 46 49 4c |h' <<'EN|D_OF_FIL|
|000003a0| 45 27 0a 58 2f 2a 20 40 | 28 23 29 20 7a 6f 6f 69 |E'.X/* @|(#) zooi|
|000003b0| 6f 2e 68 20 32 2e 37 20 | 38 38 2f 30 31 2f 32 37 |o.h 2.7 |88/01/27|
|000003c0| 20 31 39 3a 33 39 3a 32 | 34 20 2a 2f 0a 58 0a 58 | 19:39:2|4 */.X.X|
|000003d0| 2f 2a 0a 58 44 65 63 6c | 61 72 61 74 69 6f 6e 73 |/*.XDecl|arations|
|000003e0| 20 66 6f 72 20 70 6f 72 | 74 61 62 6c 65 20 49 2f | for por|table I/|
|000003f0| 4f 0a 58 0a 58 54 68 65 | 20 63 6f 6e 74 65 6e 74 |O.X.XThe| content|
|00000400| 73 20 6f 66 20 74 68 69 | 73 20 66 69 6c 65 20 61 |s of thi|s file a|
|00000410| 72 65 20 68 65 72 65 62 | 79 20 70 6c 61 63 65 64 |re hereb|y placed|
|00000420| 20 69 6e 20 74 68 65 20 | 70 75 62 6c 69 63 20 64 | in the |public d|
|00000430| 6f 6d 61 69 6e 2e 0a 58 | 0a 58 09 09 09 09 09 09 |omain..X|.X......|
|00000440| 09 09 09 09 09 2d 2d 20 | 52 61 68 75 6c 20 44 68 |.....-- |Rahul Dh|
|00000450| 65 73 69 20 31 39 38 38 | 2f 30 31 2f 32 34 0a 58 |esi 1988|/01/24.X|
|00000460| 2a 2f 0a 58 23 69 66 6e | 64 65 66 09 4f 4b 5f 53 |*/.X#ifn|def.OK_S|
|00000470| 54 44 49 4f 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |TDIO.X#i|nclude <|
|00000480| 73 74 64 69 6f 2e 68 3e | 0a 58 23 64 65 66 69 6e |stdio.h>|.X#defin|
|00000490| 65 09 4f 4b 5f 53 54 44 | 49 4f 0a 58 23 65 6e 64 |e.OK_STD|IO.X#end|
|000004a0| 69 66 0a 58 0a 58 23 69 | 66 6e 64 65 66 20 50 41 |if.X.X#i|fndef PA|
|000004b0| 52 4d 53 0a 58 23 69 66 | 64 65 66 20 4c 49 4e 54 |RMS.X#if|def LINT|
|000004c0| 5f 41 52 47 53 0a 58 23 | 64 65 66 69 6e 65 09 50 |_ARGS.X#|define.P|
|000004d0| 41 52 4d 53 28 78 29 09 | 09 78 0a 58 23 65 6c 73 |ARMS(x).|.x.X#els|
|000004e0| 65 0a 58 23 64 65 66 69 | 6e 65 09 50 41 52 4d 53 |e.X#defi|ne.PARMS|
|000004f0| 28 78 29 09 09 28 29 0a | 58 23 65 6e 64 69 66 0a |(x)..().|X#endif.|
|00000500| 58 23 65 6e 64 69 66 0a | 58 0a 58 2f 2a 0a 58 49 |X#endif.|X.X/*.XI|
|00000510| 6e 20 74 68 65 6f 72 79 | 2c 20 61 6c 6c 20 49 2f |n theory|, all I/|
|00000520| 4f 20 75 73 69 6e 67 20 | 62 75 66 66 65 72 65 64 |O using |buffered|
|00000530| 20 66 69 6c 65 73 20 63 | 6f 75 6c 64 20 62 65 20 | files c|ould be |
|00000540| 72 65 70 6c 61 63 65 64 | 20 77 69 74 68 20 75 6e |replaced| with un|
|00000550| 62 75 66 66 65 72 65 64 | 0a 58 49 2f 4f 20 73 69 |buffered|.XI/O si|
|00000560| 6d 70 6c 79 20 62 79 20 | 63 68 61 6e 67 69 6e 67 |mply by |changing|
|00000570| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 64 | the fol|lowing d|
|00000580| 65 66 69 6e 69 74 69 6f | 6e 73 2e 20 20 54 68 69 |efinitio|ns. Thi|
|00000590| 73 20 68 61 73 20 6e 6f | 74 20 62 65 65 6e 20 74 |s has no|t been t|
|000005a0| 72 69 65 64 0a 58 6f 75 | 74 20 79 65 74 2c 20 61 |ried.Xou|t yet, a|
|000005b0| 6e 64 20 74 68 65 72 65 | 20 6d 61 79 20 62 65 20 |nd there| may be |
|000005c0| 73 6f 6d 65 20 72 65 6d | 61 69 6e 69 6e 67 20 68 |some rem|aining h|
|000005d0| 6f 6c 65 73 20 69 6e 20 | 74 68 65 20 73 63 68 65 |oles in |the sche|
|000005e0| 6d 65 2e 20 20 4f 6e 20 | 73 79 73 74 65 6d 73 0a |me. On |systems.|
|000005f0| 58 77 69 74 68 20 6c 69 | 6d 69 74 65 64 20 6d 65 |Xwith li|mited me|
|00000600| 6d 6f 72 79 2c 20 69 74 | 20 6d 69 67 68 74 20 70 |mory, it| might p|
|00000610| 72 6f 76 65 20 6e 65 63 | 65 73 73 61 72 79 20 74 |rove nec|essary t|
|00000620| 6f 20 75 73 65 20 75 6e | 62 75 66 66 65 72 65 64 |o use un|buffered|
|00000630| 20 49 2f 4f 0a 58 6f 6e | 6c 79 2e 0a 58 2a 2f 0a | I/O.Xon|ly..X*/.|
|00000640| 58 74 79 70 65 64 65 66 | 20 46 49 4c 45 20 2a 5a |Xtypedef| FILE *Z|
|00000650| 4f 4f 46 49 4c 45 3b 0a | 58 23 64 65 66 69 6e 65 |OOFILE;.|X#define|
|00000660| 20 4e 4f 46 49 4c 45 09 | 09 28 28 5a 4f 4f 46 49 | NOFILE.|.((ZOOFI|
|00000670| 4c 45 29 20 30 29 0a 58 | 23 64 65 66 69 6e 65 20 |LE) 0).X|#define |
|00000680| 4e 55 4c 4c 46 49 4c 45 | 09 28 28 5a 4f 4f 46 49 |NULLFILE|.((ZOOFI|
|00000690| 4c 45 29 20 2d 31 29 09 | 09 2f 2a 20 6f 72 20 61 |LE) -1).|./* or a|
|000006a0| 6e 79 20 75 6e 69 71 75 | 65 20 76 61 6c 75 65 20 |ny uniqu|e value |
|000006b0| 2a 2f 0a 58 23 64 65 66 | 69 6e 65 20 53 54 44 4f |*/.X#def|ine STDO|
|000006c0| 55 54 09 09 73 74 64 6f | 75 74 0a 58 0a 58 23 69 |UT..stdo|ut.X.X#i|
|000006d0| 66 64 65 66 20 46 49 4c | 54 45 52 0a 58 23 64 65 |fdef FIL|TER.X#de|
|000006e0| 66 69 6e 65 20 53 54 44 | 49 4e 09 09 73 74 64 69 |fine STD|IN..stdi|
|000006f0| 6e 0a 58 23 65 6e 64 69 | 66 0a 58 0a 58 23 69 66 |n.X#endi|f.X.X#if|
|00000700| 64 65 66 20 49 4f 5f 4d | 41 43 52 4f 53 0a 58 23 |def IO_M|ACROS.X#|
|00000710| 64 65 66 69 6e 65 20 7a | 6f 6f 72 65 61 64 28 66 |define z|ooread(f|
|00000720| 69 6c 65 2c 20 62 75 66 | 66 65 72 2c 20 63 6f 75 |ile, buf|fer, cou|
|00000730| 6e 74 29 09 09 66 72 65 | 61 64 20 28 62 75 66 66 |nt)..fre|ad (buff|
|00000740| 65 72 2c 20 31 2c 20 63 | 6f 75 6e 74 2c 20 66 69 |er, 1, c|ount, fi|
|00000750| 6c 65 29 0a 58 23 64 65 | 66 69 6e 65 20 7a 6f 6f |le).X#de|fine zoo|
|00000760| 77 72 69 74 65 28 66 69 | 6c 65 2c 20 62 75 66 66 |write(fi|le, buff|
|00000770| 65 72 2c 20 63 6f 75 6e | 74 29 20 5c 0a 58 09 28 |er, coun|t) \.X.(|
|00000780| 66 69 6c 65 20 3d 3d 20 | 4e 55 4c 4c 46 49 4c 45 |file == |NULLFILE|
|00000790| 20 3f 20 63 6f 75 6e 74 | 20 3a 20 66 77 72 69 74 | ? count| : fwrit|
|000007a0| 65 20 28 62 75 66 66 65 | 72 2c 20 31 2c 20 63 6f |e (buffe|r, 1, co|
|000007b0| 75 6e 74 2c 20 66 69 6c | 65 29 29 0a 58 23 64 65 |unt, fil|e)).X#de|
|000007c0| 66 69 6e 65 20 7a 6f 6f | 73 65 65 6b 28 66 69 6c |fine zoo|seek(fil|
|000007d0| 65 2c 20 6f 66 66 73 65 | 74 2c 20 77 68 65 6e 63 |e, offse|t, whenc|
|000007e0| 65 29 09 09 66 73 65 65 | 6b 20 28 66 69 6c 65 2c |e)..fsee|k (file,|
|000007f0| 20 6f 66 66 73 65 74 2c | 20 77 68 65 6e 63 65 29 | offset,| whence)|
|00000800| 0a 58 23 64 65 66 69 6e | 65 20 7a 6f 6f 74 65 6c |.X#defin|e zootel|
|00000810| 6c 28 66 69 6c 65 29 09 | 09 09 09 09 09 09 66 74 |l(file).|......ft|
|00000820| 65 6c 6c 20 28 66 69 6c | 65 29 0a 58 23 65 6c 73 |ell (fil|e).X#els|
|00000830| 65 0a 58 69 6e 74 20 7a | 6f 6f 72 65 61 64 20 50 |e.Xint z|ooread P|
|00000840| 41 52 4d 53 28 28 5a 4f | 4f 46 49 4c 45 2c 20 63 |ARMS((ZO|OFILE, c|
|00000850| 68 61 72 20 2a 2c 20 69 | 6e 74 29 29 3b 0a 58 69 |har *, i|nt));.Xi|
|00000860| 6e 74 20 7a 6f 6f 77 72 | 69 74 65 20 50 41 52 4d |nt zoowr|ite PARM|
|00000870| 53 28 28 5a 4f 4f 46 49 | 4c 45 2c 20 63 68 61 72 |S((ZOOFI|LE, char|
|00000880| 20 2a 2c 20 69 6e 74 29 | 29 3b 0a 58 6c 6f 6e 67 | *, int)|);.Xlong|
|00000890| 20 7a 6f 6f 73 65 65 6b | 20 50 41 52 4d 53 28 28 | zooseek| PARMS((|
|000008a0| 5a 4f 4f 46 49 4c 45 2c | 20 6c 6f 6e 67 2c 20 69 |ZOOFILE,| long, i|
|000008b0| 6e 74 29 29 3b 0a 58 6c | 6f 6e 67 20 7a 6f 6f 74 |nt));.Xl|ong zoot|
|000008c0| 65 6c 6c 20 50 41 52 4d | 53 28 28 5a 4f 4f 46 49 |ell PARM|S((ZOOFI|
|000008d0| 4c 45 29 29 3b 0a 58 23 | 65 6e 64 69 66 20 2f 2a |LE));.X#|endif /*|
|000008e0| 20 49 4f 5f 4d 41 43 52 | 4f 53 20 2a 2f 0a 58 0a | IO_MACR|OS */.X.|
|000008f0| 58 5a 4f 4f 46 49 4c 45 | 20 7a 6f 6f 6f 70 65 6e |XZOOFILE| zooopen|
|00000900| 20 50 41 52 4d 53 28 28 | 63 68 61 72 20 2a 2c 20 | PARMS((|char *, |
|00000910| 63 68 61 72 20 2a 29 29 | 3b 0a 58 5a 4f 4f 46 49 |char *))|;.XZOOFI|
|00000920| 4c 45 20 7a 6f 6f 63 72 | 65 61 74 65 20 50 41 52 |LE zoocr|eate PAR|
|00000930| 4d 53 28 28 63 68 61 72 | 20 2a 29 29 3b 0a 58 69 |MS((char| *));.Xi|
|00000940| 6e 74 20 7a 6f 6f 63 6c | 6f 73 65 20 50 41 52 4d |nt zoocl|ose PARM|
|00000950| 53 28 28 5a 4f 4f 46 49 | 4c 45 29 29 3b 0a 58 69 |S((ZOOFI|LE));.Xi|
|00000960| 6e 74 20 7a 6f 6f 74 72 | 75 6e 63 20 50 41 52 4d |nt zootr|unc PARM|
|00000970| 53 28 28 5a 4f 4f 46 49 | 4c 45 29 29 3b 0a 58 0a |S((ZOOFI|LE));.X.|
|00000980| 58 23 69 66 64 65 66 20 | 4c 49 4e 54 5f 41 52 47 |X#ifdef |LINT_ARG|
|00000990| 53 0a 58 63 68 61 72 20 | 2a 63 68 6f 6f 73 65 66 |S.Xchar |*choosef|
|000009a0| 6e 61 6d 65 20 28 73 74 | 72 75 63 74 20 64 69 72 |name (st|ruct dir|
|000009b0| 65 6e 74 72 79 20 2a 29 | 3b 0a 58 63 68 61 72 20 |entry *)|;.Xchar |
|000009c0| 2a 66 75 6c 6c 70 61 74 | 68 20 28 73 74 72 75 63 |*fullpat|h (struc|
|000009d0| 74 20 64 69 72 65 6e 74 | 72 79 20 2a 29 3b 0a 58 |t dirent|ry *);.X|
|000009e0| 69 6e 74 20 66 72 64 5f | 7a 6f 6f 68 20 28 73 74 |int frd_|zooh (st|
|000009f0| 72 75 63 74 20 7a 6f 6f | 5f 68 65 61 64 65 72 20 |ruct zoo|_header |
|00000a00| 2a 2c 20 5a 4f 4f 46 49 | 4c 45 29 3b 0a 58 69 6e |*, ZOOFI|LE);.Xin|
|00000a10| 74 20 66 72 64 5f 64 69 | 72 20 28 73 74 72 75 63 |t frd_di|r (struc|
|00000a20| 74 20 64 69 72 65 6e 74 | 72 79 20 2a 2c 20 5a 4f |t dirent|ry *, ZO|
|00000a30| 4f 46 49 4c 45 29 3b 0a | 58 69 6e 74 20 66 77 72 |OFILE);.|Xint fwr|
|00000a40| 5f 64 69 72 20 28 73 74 | 72 75 63 74 20 64 69 72 |_dir (st|ruct dir|
|00000a50| 65 6e 74 72 79 20 2a 2c | 20 5a 4f 4f 46 49 4c 45 |entry *,| ZOOFILE|
|00000a60| 29 3b 0a 58 69 6e 74 20 | 66 77 72 5f 7a 6f 6f 68 |);.Xint |fwr_zooh|
|00000a70| 20 28 73 74 72 75 63 74 | 20 7a 6f 6f 5f 68 65 61 | (struct| zoo_hea|
|00000a80| 64 65 72 20 2a 2c 20 5a | 4f 4f 46 49 4c 45 29 3b |der *, Z|OOFILE);|
|00000a90| 0a 58 69 6e 74 20 72 65 | 61 64 64 69 72 20 28 73 |.Xint re|addir (s|
|00000aa0| 74 72 75 63 74 20 64 69 | 72 65 6e 74 72 79 20 2a |truct di|rentry *|
|00000ab0| 2c 20 5a 4f 4f 46 49 4c | 45 2c 20 69 6e 74 29 3b |, ZOOFIL|E, int);|
|00000ac0| 0a 58 76 6f 69 64 20 72 | 77 68 65 61 64 65 72 20 |.Xvoid r|wheader |
|00000ad0| 28 73 74 72 75 63 74 20 | 7a 6f 6f 5f 68 65 61 64 |(struct |zoo_head|
|00000ae0| 65 72 20 2a 2c 20 5a 4f | 4f 46 49 4c 45 2c 20 69 |er *, ZO|OFILE, i|
|00000af0| 6e 74 29 3b 0a 58 76 6f | 69 64 20 6e 65 77 64 69 |nt);.Xvo|id newdi|
|00000b00| 72 20 28 73 74 72 75 63 | 74 20 64 69 72 65 6e 74 |r (struc|t dirent|
|00000b10| 72 79 20 2a 29 3b 0a 58 | 76 6f 69 64 20 77 72 69 |ry *);.X|void wri|
|00000b20| 74 65 64 69 72 20 28 73 | 74 72 75 63 74 20 64 69 |tedir (s|truct di|
|00000b30| 72 65 6e 74 72 79 20 2a | 2c 20 5a 4f 4f 46 49 4c |rentry *|, ZOOFIL|
|00000b40| 45 29 3b 0a 58 23 65 6c | 73 65 0a 58 63 68 61 72 |E);.X#el|se.Xchar|
|00000b50| 20 2a 63 68 6f 6f 73 65 | 66 6e 61 6d 65 20 28 29 | *choose|fname ()|
|00000b60| 3b 0a 58 63 68 61 72 20 | 2a 66 75 6c 6c 70 61 74 |;.Xchar |*fullpat|
|00000b70| 68 20 28 29 3b 0a 58 69 | 6e 74 20 66 72 64 5f 7a |h ();.Xi|nt frd_z|
|00000b80| 6f 6f 68 20 28 29 3b 0a | 58 69 6e 74 20 66 72 64 |ooh ();.|Xint frd|
|00000b90| 5f 64 69 72 20 28 29 3b | 0a 58 69 6e 74 20 66 77 |_dir ();|.Xint fw|
|00000ba0| 72 5f 64 69 72 20 28 29 | 3b 0a 58 69 6e 74 20 66 |r_dir ()|;.Xint f|
|00000bb0| 77 72 5f 7a 6f 6f 68 20 | 28 29 3b 0a 58 69 6e 74 |wr_zooh |();.Xint|
|00000bc0| 20 72 65 61 64 64 69 72 | 20 28 29 3b 0a 58 76 6f | readdir| ();.Xvo|
|00000bd0| 69 64 20 72 77 68 65 61 | 64 65 72 20 28 29 3b 0a |id rwhea|der ();.|
|00000be0| 58 76 6f 69 64 20 6e 65 | 77 64 69 72 20 28 29 3b |Xvoid ne|wdir ();|
|00000bf0| 0a 58 76 6f 69 64 20 77 | 72 69 74 65 64 69 72 20 |.Xvoid w|ritedir |
|00000c00| 28 29 3b 0a 58 23 65 6e | 64 69 66 0a 45 4e 44 5f |();.X#en|dif.END_|
|00000c10| 4f 46 5f 46 49 4c 45 0a | 69 66 20 74 65 73 74 20 |OF_FILE.|if test |
|00000c20| 32 30 37 34 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 |2074 -ne| `wc -c |
|00000c30| 3c 27 7a 6f 6f 69 6f 2e | 68 27 60 3b 20 74 68 65 |<'zooio.|h'`; the|
|00000c40| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|00000c50| 20 5c 22 27 7a 6f 6f 69 | 6f 2e 68 27 5c 22 20 75 | \"'zooi|o.h'\" u|
|00000c60| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|00000c70| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|00000c80| 64 20 6f 66 20 27 7a 6f | 6f 69 6f 2e 68 27 0a 66 |d of 'zo|oio.h'.f|
|00000c90| 69 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 7a 6f |i.if tes|t -f 'zo|
|00000ca0| 6f 6d 65 6d 2e 68 27 20 | 2d 61 20 22 24 7b 31 7d |omem.h' |-a "${1}|
|00000cb0| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00000cc0| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|00000cd0| 69 6c 6c 20 6e 6f 74 20 | 63 6c 6f 62 62 65 72 20 |ill not |clobber |
|00000ce0| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|00000cf0| 27 7a 6f 6f 6d 65 6d 2e | 68 27 5c 22 0a 65 6c 73 |'zoomem.|h'\".els|
|00000d00| 65 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 78 74 |e.echo s|har: Ext|
|00000d10| 72 61 63 74 69 6e 67 20 | 5c 22 27 7a 6f 6f 6d 65 |racting |\"'zoome|
|00000d20| 6d 2e 68 27 5c 22 20 5c | 28 32 34 35 36 20 63 68 |m.h'\" \|(2456 ch|
|00000d30| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000d40| 73 2f 5e 58 2f 2f 22 20 | 3e 27 7a 6f 6f 6d 65 6d |s/^X//" |>'zoomem|
|00000d50| 2e 68 27 20 3c 3c 27 45 | 4e 44 5f 4f 46 5f 46 49 |.h' <<'E|ND_OF_FI|
|00000d60| 4c 45 27 0a 58 2f 2a 20 | 40 28 23 29 20 7a 6f 6f |LE'.X/* |@(#) zoo|
|00000d70| 6d 65 6d 2e 68 20 32 2e | 31 20 38 37 2f 31 32 2f |mem.h 2.|1 87/12/|
|00000d80| 32 35 20 31 32 3a 32 36 | 3a 31 38 20 2a 2f 0a 58 |25 12:26|:18 */.X|
|00000d90| 0a 58 2f 2a 0a 58 54 68 | 65 20 63 6f 6e 74 65 6e |.X/*.XTh|e conten|
|00000da0| 74 73 20 6f 66 20 74 68 | 69 73 20 66 69 6c 65 20 |ts of th|is file |
|00000db0| 61 72 65 20 68 65 72 65 | 62 79 20 72 65 6c 65 61 |are here|by relea|
|00000dc0| 73 65 64 20 74 6f 20 74 | 68 65 20 70 75 62 6c 69 |sed to t|he publi|
|00000dd0| 63 20 64 6f 6d 61 69 6e | 2e 0a 58 0a 58 20 20 20 |c domain|..X.X |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000df0| 20 20 20 20 20 20 20 20 | 2d 2d 20 52 61 68 75 6c | |-- Rahul|
|00000e00| 20 44 68 65 73 69 20 31 | 39 38 36 2f 31 31 2f 31 | Dhesi 1|986/11/1|
|00000e10| 34 0a 58 0a 58 44 65 66 | 69 6e 65 73 20 70 61 72 |4.X.XDef|ines par|
|00000e20| 61 6d 65 74 65 72 73 20 | 75 73 65 64 20 66 6f 72 |ameters |used for|
|00000e30| 20 6d 65 6d 6f 72 79 20 | 61 6c 6c 6f 63 61 74 69 | memory |allocati|
|00000e40| 6f 6e 2e 20 20 0a 58 0a | 58 20 20 20 58 65 6e 69 |on. .X.|X Xeni|
|00000e50| 78 20 6e 6f 74 65 73 3a | 20 20 55 6e 64 65 72 20 |x notes:| Under |
|00000e60| 58 65 6e 69 78 20 72 65 | 6c 65 61 73 65 20 33 2e |Xenix re|lease 3.|
|00000e70| 30 20 6f 6e 20 61 6e 20 | 49 6e 74 65 6c 20 33 31 |0 on an |Intel 31|
|00000e80| 30 20 6d 61 63 68 69 6e | 65 20 77 69 74 68 20 61 |0 machin|e with a|
|00000e90| 6e 0a 58 20 20 20 38 30 | 32 38 36 20 63 70 75 2c |n.X 80|286 cpu,|
|00000ea0| 20 6d 65 6d 6f 72 79 20 | 69 73 20 76 65 72 79 20 | memory |is very |
|00000eb0| 74 69 67 68 74 20 77 68 | 65 6e 20 74 68 65 20 73 |tight wh|en the s|
|00000ec0| 6d 61 6c 6c 20 6d 65 6d | 6f 72 79 20 6d 6f 64 65 |mall mem|ory mode|
|00000ed0| 6c 20 69 73 20 75 73 65 | 64 2e 20 0a 58 20 20 20 |l is use|d. .X |
|00000ee0| 4f 6f 7a 20 77 6f 6e 27 | 74 20 66 69 74 20 69 66 |Ooz won'|t fit if|
|00000ef0| 20 74 68 65 20 62 75 66 | 66 65 72 73 20 61 72 65 | the buf|fers are|
|00000f00| 20 32 20 4b 20 66 6f 72 | 20 69 6e 70 75 74 20 61 | 2 K for| input a|
|00000f10| 6e 64 20 36 20 4b 20 66 | 6f 72 20 6f 75 74 70 75 |nd 6 K f|or outpu|
|00000f20| 74 2e 20 20 0a 58 20 20 | 20 49 74 20 64 6f 65 73 |t. .X | It does|
|00000f30| 20 66 69 74 20 69 66 20 | 62 6f 74 68 20 69 6e 70 | fit if |both inp|
|00000f40| 75 74 20 61 6e 64 20 6f | 75 74 70 75 74 20 62 75 |ut and o|utput bu|
|00000f50| 66 66 65 72 73 20 61 72 | 65 20 31 20 4b 20 65 61 |ffers ar|e 1 K ea|
|00000f60| 63 68 2e 20 20 55 6e 64 | 65 72 0a 58 20 20 20 74 |ch. Und|er.X t|
|00000f70| 68 65 20 6c 61 72 67 65 | 20 6d 65 6d 6f 72 79 20 |he large| memory |
|00000f80| 6d 6f 64 65 6c 20 74 68 | 65 72 65 20 69 73 20 6e |model th|ere is n|
|00000f90| 6f 20 70 72 6f 62 6c 65 | 6d 2e 20 20 5a 6f 6f 20 |o proble|m. Zoo |
|00000fa0| 72 65 71 75 69 72 65 73 | 20 74 68 65 20 6c 61 72 |requires| the lar|
|00000fb0| 67 65 0a 58 20 20 20 6d | 65 6d 6f 72 79 20 6d 6f |ge.X m|emory mo|
|00000fc0| 64 65 6c 2e 0a 58 0a 58 | 20 20 20 41 54 26 54 20 |del..X.X| AT&T |
|00000fd0| 33 42 32 3a 20 20 54 68 | 65 72 65 20 73 65 65 6d |3B2: Th|ere seem|
|00000fe0| 20 74 6f 20 62 65 20 6e | 6f 20 70 72 6f 62 6c 65 | to be n|o proble|
|00000ff0| 6d 20 61 74 20 61 6c 6c | 2e 20 20 42 75 66 66 65 |m at all|. Buffe|
|00001000| 72 73 20 63 61 6e 20 61 | 6c 77 61 79 73 0a 58 20 |rs can a|lways.X |
|00001010| 20 20 62 65 20 38 31 39 | 32 20 65 61 63 68 2e 0a | be 819|2 each..|
|00001020| 58 2a 2f 0a 58 0a 58 23 | 69 66 64 65 66 20 4f 4f |X*/.X.X#|ifdef OO|
|00001030| 5a 0a 58 23 64 65 66 69 | 6e 65 20 20 49 4e 5f 42 |Z.X#defi|ne IN_B|
|00001040| 55 46 5f 53 49 5a 45 20 | 20 20 20 20 20 20 38 31 |UF_SIZE | 81|
|00001050| 39 32 0a 58 23 64 65 66 | 69 6e 65 20 20 4f 55 54 |92.X#def|ine OUT|
|00001060| 5f 42 55 46 5f 53 49 5a | 45 20 20 20 20 20 20 38 |_BUF_SIZ|E 8|
|00001070| 31 39 32 0a 58 23 65 6c | 73 65 0a 58 23 64 65 66 |192.X#el|se.X#def|
|00001080| 69 6e 65 20 20 49 4e 5f | 42 55 46 5f 53 49 5a 45 |ine IN_|BUF_SIZE|
|00001090| 20 20 20 20 20 20 20 38 | 31 39 32 0a 58 23 64 65 | 8|192.X#de|
|000010a0| 66 69 6e 65 20 20 4f 55 | 54 5f 42 55 46 5f 53 49 |fine OU|T_BUF_SI|
|000010b0| 5a 45 20 20 20 20 20 20 | 38 31 39 32 0a 58 23 65 |ZE |8192.X#e|
|000010c0| 6e 64 69 66 0a 58 0a 58 | 23 64 65 66 69 6e 65 20 |ndif.X.X|#define |
|000010d0| 20 4d 45 4d 5f 42 4c 4f | 43 4b 5f 53 49 5a 45 20 | MEM_BLO|CK_SIZE |
|000010e0| 20 20 20 28 49 4e 5f 42 | 55 46 5f 53 49 5a 45 20 | (IN_B|UF_SIZE |
|000010f0| 2b 20 4f 55 54 5f 42 55 | 46 5f 53 49 5a 45 29 0a |+ OUT_BU|F_SIZE).|
|00001100| 58 0a 58 2f 2a 20 0a 58 | 4c 49 53 54 5f 53 49 5a |X.X/* .X|LIST_SIZ|
|00001110| 45 20 69 73 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |E is the| size of|
|00001120| 20 74 68 65 20 6c 69 73 | 74 20 62 75 69 6c 74 20 | the lis|t built |
|00001130| 62 79 20 5a 6f 6f 20 74 | 6f 20 68 6f 6c 64 20 61 |by Zoo t|o hold a|
|00001140| 6c 6c 20 66 69 6c 65 6e | 61 6d 65 73 0a 58 65 6e |ll filen|ames.Xen|
|00001150| 63 6f 75 6e 74 65 72 65 | 64 20 69 6e 20 61 6e 20 |countere|d in an |
|00001160| 61 72 63 68 69 76 65 2e | 20 20 54 68 69 73 20 69 |archive.| This i|
|00001170| 73 20 75 73 65 64 20 74 | 6f 20 6b 6e 6f 77 20 77 |s used t|o know w|
|00001180| 68 65 6e 20 74 6f 20 72 | 65 70 6c 61 63 65 20 61 |hen to r|eplace a|
|00001190| 6e 0a 58 61 6c 72 65 61 | 64 79 20 65 78 69 73 74 |n.Xalrea|dy exist|
|000011a0| 69 6e 67 20 66 69 6c 65 | 2e 20 20 54 68 65 20 64 |ing file|. The d|
|000011b0| 61 74 65 20 61 6e 64 20 | 74 69 6d 65 20 73 74 6f |ate and |time sto|
|000011c0| 72 65 64 20 77 69 74 68 | 20 74 68 65 20 66 69 6c |red with| the fil|
|000011d0| 65 6e 61 6d 65 20 69 73 | 0a 58 75 73 65 64 20 69 |ename is|.Xused i|
|000011e0| 6e 20 63 6f 6d 70 61 72 | 69 73 6f 6e 73 20 77 68 |n compar|isons wh|
|000011f0| 65 6e 20 61 6e 20 61 72 | 63 68 69 76 65 20 75 70 |en an ar|chive up|
|00001200| 64 61 74 65 20 68 61 73 | 20 62 65 65 6e 20 72 65 |date has| been re|
|00001210| 71 75 65 73 74 65 64 2e | 20 20 54 6f 20 0a 58 61 |quested.| To .Xa|
|00001220| 64 64 20 61 20 66 69 6c | 65 20 74 6f 20 61 6e 20 |dd a fil|e to an |
|00001230| 61 72 63 68 69 76 65 2c | 20 74 68 65 20 61 72 63 |archive,| the arc|
|00001240| 68 69 76 65 20 6d 75 73 | 74 20 6e 6f 74 20 61 6c |hive mus|t not al|
|00001250| 72 65 61 64 79 20 68 61 | 76 65 20 6d 6f 72 65 20 |ready ha|ve more |
|00001260| 74 68 61 6e 0a 58 4c 49 | 53 54 5f 53 49 5a 45 20 |than.XLI|ST_SIZE |
|00001270| 66 69 6c 65 73 20 69 6e | 20 69 74 2e 0a 58 0a 58 |files in| it..X.X|
|00001280| 5a 4f 4f 43 4f 55 4e 54 | 20 69 73 20 74 68 65 20 |ZOOCOUNT| is the |
|00001290| 6e 75 6d 62 65 72 20 6f | 66 20 61 72 63 68 69 76 |number o|f archiv|
|000012a0| 65 20 6e 61 6d 65 73 20 | 74 68 61 74 20 6d 61 79 |e names |that may|
|000012b0| 20 62 65 20 6d 61 74 63 | 68 65 64 20 62 79 20 74 | be matc|hed by t|
|000012c0| 68 65 0a 58 61 72 63 68 | 69 76 65 20 66 69 6c 65 |he.Xarch|ive file|
|000012d0| 73 70 65 63 20 73 70 65 | 63 69 66 69 65 64 20 66 |spec spe|cified f|
|000012e0| 6f 72 20 61 20 6c 69 73 | 74 2e 0a 58 0a 58 4d 41 |or a lis|t..X.XMA|
|000012f0| 58 41 44 44 20 69 73 20 | 74 68 65 20 6e 75 6d 62 |XADD is |the numb|
|00001300| 65 72 20 6f 66 20 66 69 | 6c 65 6e 61 6d 65 73 20 |er of fi|lenames |
|00001310| 74 68 61 74 20 6d 61 79 | 20 62 65 20 61 64 64 65 |that may| be adde|
|00001320| 64 20 74 6f 20 61 6e 20 | 61 72 63 68 69 76 65 0a |d to an |archive.|
|00001330| 58 61 74 20 6f 6e 65 20 | 67 6f 2e 20 20 54 68 65 |Xat one |go. The|
|00001340| 20 74 6f 74 61 6c 20 6e | 75 6d 62 65 72 20 6f 66 | total n|umber of|
|00001350| 20 66 69 6c 65 73 20 74 | 68 61 74 20 61 6e 20 61 | files t|hat an a|
|00001360| 72 63 68 69 76 65 20 6d | 61 79 20 63 6f 6e 74 61 |rchive m|ay conta|
|00001370| 69 6e 0a 58 69 73 20 6e | 6f 74 20 64 65 74 65 72 |in.Xis n|ot deter|
|00001380| 6d 69 6e 65 64 20 62 79 | 20 4d 41 58 41 44 44 20 |mined by| MAXADD |
|00001390| 62 75 74 20 69 73 20 64 | 65 74 65 72 6d 69 6e 65 |but is d|etermine|
|000013a0| 64 20 62 79 20 4c 49 53 | 54 5f 53 49 5a 45 2e 0a |d by LIS|T_SIZE..|
|000013b0| 58 0a 58 49 66 20 55 53 | 45 5f 4d 41 4c 4c 4f 43 |X.XIf US|E_MALLOC|
|000013c0| 20 69 73 20 64 65 66 69 | 6e 65 64 20 69 74 20 74 | is defi|ned it t|
|000013d0| 65 6c 6c 73 20 74 68 65 | 20 6d 65 6d 6f 72 79 20 |ells the| memory |
|000013e0| 61 6c 6c 6f 63 61 74 69 | 6f 6e 20 72 6f 75 74 69 |allocati|on routi|
|000013f0| 6e 65 20 0a 58 65 6d 61 | 6c 6c 6f 63 28 29 20 6e |ne .Xema|lloc() n|
|00001400| 6f 74 20 74 6f 20 62 6f | 74 68 65 72 20 77 69 74 |ot to bo|ther wit|
|00001410| 68 20 6d 61 69 6e 74 61 | 69 6e 69 6e 67 20 69 74 |h mainta|ining it|
|00001420| 73 20 6f 77 6e 20 6d 65 | 6d 6f 72 79 20 62 6c 6f |s own me|mory blo|
|00001430| 63 6b 73 20 62 75 74 20 | 6a 75 73 74 20 74 6f 20 |cks but |just to |
|00001440| 0a 58 70 61 73 73 20 6f | 6e 20 72 65 71 75 65 73 |.Xpass o|n reques|
|00001450| 74 73 20 74 6f 20 74 68 | 65 20 6c 69 62 72 61 72 |ts to th|e librar|
|00001460| 79 20 66 75 6e 63 74 69 | 6f 6e 20 6d 61 6c 6c 6f |y functi|on mallo|
|00001470| 63 28 29 2e 20 20 49 66 | 20 55 53 45 5f 4d 41 4c |c(). If| USE_MAL|
|00001480| 4c 4f 43 20 69 73 20 6e | 6f 74 20 0a 58 64 65 66 |LOC is n|ot .Xdef|
|00001490| 69 6e 65 64 2c 20 65 6d | 61 6c 6c 6f 63 28 29 20 |ined, em|alloc() |
|000014a0| 64 6f 65 73 20 69 74 73 | 20 6f 77 6e 20 6d 65 6d |does its| own mem|
|000014b0| 6f 72 79 20 6d 61 6e 61 | 67 65 6d 65 6e 74 20 74 |ory mana|gement t|
|000014c0| 6f 20 73 61 76 65 20 6f | 76 65 72 68 65 61 64 20 |o save o|verhead |
|000014d0| 6f 6e 20 61 20 0a 58 6d | 61 63 68 69 6e 65 20 77 |on a .Xm|achine w|
|000014e0| 69 74 68 20 6c 69 6d 69 | 74 65 64 20 6d 65 6d 6f |ith limi|ted memo|
|000014f0| 72 79 2e 0a 58 2a 2f 0a | 58 0a 58 23 69 66 64 65 |ry..X*/.|X.X#ifde|
|00001500| 66 20 20 20 53 4d 41 4c | 4c 5f 4d 45 4d 0a 58 23 |f SMAL|L_MEM.X#|
|00001510| 64 65 66 69 6e 65 20 20 | 4c 49 53 54 5f 53 49 5a |define |LIST_SIZ|
|00001520| 45 20 20 28 32 30 30 29 | 0a 58 23 64 65 66 69 6e |E (200)|.X#defin|
|00001530| 65 20 20 5a 4f 4f 43 4f | 55 4e 54 20 20 20 28 33 |e ZOOCO|UNT (3|
|00001540| 30 29 0a 58 23 64 65 66 | 69 6e 65 20 20 4d 41 58 |0).X#def|ine MAX|
|00001550| 41 44 44 20 20 20 20 20 | 28 31 30 30 29 0a 58 23 |ADD |(100).X#|
|00001560| 64 65 66 69 6e 65 20 20 | 55 53 45 5f 4d 41 4c 4c |define |USE_MALL|
|00001570| 4f 43 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 23 69 |OC.X#end|if.X.X#i|
|00001580| 66 64 65 66 20 20 20 4d | 45 44 5f 4d 45 4d 0a 58 |fdef M|ED_MEM.X|
|00001590| 23 64 65 66 69 6e 65 20 | 20 4c 49 53 54 5f 53 49 |#define | LIST_SI|
|000015a0| 5a 45 20 20 28 34 30 30 | 29 0a 58 23 64 65 66 69 |ZE (400|).X#defi|
|000015b0| 6e 65 20 20 5a 4f 4f 43 | 4f 55 4e 54 20 20 20 28 |ne ZOOC|OUNT (|
|000015c0| 35 30 29 0a 58 23 64 65 | 66 69 6e 65 20 20 4d 41 |50).X#de|fine MA|
|000015d0| 58 41 44 44 20 20 20 20 | 20 28 32 30 30 29 0a 58 |XADD | (200).X|
|000015e0| 23 64 65 66 69 6e 65 20 | 20 55 53 45 5f 4d 41 4c |#define | USE_MAL|
|000015f0| 4c 4f 43 0a 58 23 65 6e | 64 69 66 0a 58 0a 58 23 |LOC.X#en|dif.X.X#|
|00001600| 69 66 64 65 66 20 20 20 | 42 49 47 5f 4d 45 4d 0a |ifdef |BIG_MEM.|
|00001610| 58 23 64 65 66 69 6e 65 | 20 20 4c 49 53 54 5f 53 |X#define| LIST_S|
|00001620| 49 5a 45 20 20 28 34 30 | 30 30 29 0a 58 23 64 65 |IZE (40|00).X#de|
|00001630| 66 69 6e 65 20 20 5a 4f | 4f 43 4f 55 4e 54 20 20 |fine ZO|OCOUNT |
|00001640| 20 28 34 30 30 29 0a 58 | 23 64 65 66 69 6e 65 20 | (400).X|#define |
|00001650| 20 4d 41 58 41 44 44 20 | 20 20 20 20 28 34 30 30 | MAXADD | (400|
|00001660| 30 29 0a 58 23 64 65 66 | 69 6e 65 20 20 55 53 45 |0).X#def|ine USE|
|00001670| 5f 4d 41 4c 4c 4f 43 0a | 58 23 65 6e 64 69 66 0a |_MALLOC.|X#endif.|
|00001680| 58 0a 58 2f 2a 20 43 75 | 73 74 6f 6d 69 7a 61 62 |X.X/* Cu|stomizab|
|00001690| 6c 65 20 73 69 7a 65 73 | 20 2a 2f 0a 58 23 69 66 |le sizes| */.X#if|
|000016a0| 64 65 66 20 20 20 53 50 | 45 43 5f 4d 45 4d 0a 58 |def SP|EC_MEM.X|
|000016b0| 23 64 65 66 69 6e 65 20 | 20 4c 49 53 54 5f 53 49 |#define | LIST_SI|
|000016c0| 5a 45 20 20 20 28 36 30 | 30 29 0a 58 23 64 65 66 |ZE (60|0).X#def|
|000016d0| 69 6e 65 20 20 5a 4f 4f | 43 4f 55 4e 54 20 20 20 |ine ZOO|COUNT |
|000016e0| 20 28 31 30 30 29 0a 58 | 23 64 65 66 69 6e 65 20 | (100).X|#define |
|000016f0| 20 4d 41 58 41 44 44 20 | 20 20 20 20 20 28 34 30 | MAXADD | (40|
|00001700| 30 29 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 65 78 |0).X#end|if.X.Xex|
|00001710| 74 65 72 6e 20 63 68 61 | 72 20 2a 6f 75 74 5f 62 |tern cha|r *out_b|
|00001720| 75 66 5f 61 64 72 3b 20 | 20 20 20 20 20 20 20 20 |uf_adr; | |
|00001730| 20 20 20 20 20 2f 2a 20 | 67 6c 6f 62 61 6c 20 49 | /* |global I|
|00001740| 2f 4f 20 62 75 66 66 65 | 72 20 2a 2f 0a 45 4e 44 |/O buffe|r */.END|
|00001750| 5f 4f 46 5f 46 49 4c 45 | 0a 69 66 20 74 65 73 74 |_OF_FILE|.if test|
|00001760| 20 32 34 35 36 20 2d 6e | 65 20 60 77 63 20 2d 63 | 2456 -n|e `wc -c|
|00001770| 20 3c 27 7a 6f 6f 6d 65 | 6d 2e 68 27 60 3b 20 74 | <'zoome|m.h'`; t|
|00001780| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen. |echo sha|
|00001790| 72 3a 20 5c 22 27 7a 6f | 6f 6d 65 6d 2e 68 27 5c |r: \"'zo|omem.h'\|
|000017a0| 22 20 75 6e 70 61 63 6b | 65 64 20 77 69 74 68 20 |" unpack|ed with |
|000017b0| 77 72 6f 6e 67 20 73 69 | 7a 65 21 0a 66 69 0a 23 |wrong si|ze!.fi.#|
|000017c0| 20 65 6e 64 20 6f 66 20 | 27 7a 6f 6f 6d 65 6d 2e | end of |'zoomem.|
|000017d0| 68 27 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |h'.fi.if| test -f|
|000017e0| 20 27 7a 6f 6f 61 64 64 | 2e 63 27 20 2d 61 20 22 | 'zooadd|.c' -a "|
|000017f0| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00001800| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then . |echo sha|
|00001810| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 63 6c 6f 62 |r: Will |not clob|
|00001820| 62 65 72 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ber exis|ting fil|
|00001830| 65 20 5c 22 27 7a 6f 6f | 61 64 64 2e 63 27 5c 22 |e \"'zoo|add.c'\"|
|00001840| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 73 68 61 72 3a |.else.ec|ho shar:|
|00001850| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 27 7a | Extract|ing \"'z|
|00001860| 6f 6f 61 64 64 2e 63 27 | 5c 22 20 5c 28 32 35 37 |ooadd.c'|\" \(257|
|00001870| 32 30 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |20 chara|cters\).|
|00001880| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 27 7a |sed "s/^|X//" >'z|
|00001890| 6f 6f 61 64 64 2e 63 27 | 20 3c 3c 27 45 4e 44 5f |ooadd.c'| <<'END_|
|000018a0| 4f 46 5f 46 49 4c 45 27 | 0a 58 23 69 66 6e 64 65 |OF_FILE'|.X#ifnde|
|000018b0| 66 20 4c 49 4e 54 0a 58 | 2f 2a 20 40 28 23 29 20 |f LINT.X|/* @(#) |
|000018c0| 7a 6f 6f 61 64 64 2e 63 | 20 32 2e 33 34 20 38 38 |zooadd.c| 2.34 88|
|000018d0| 2f 30 38 2f 31 35 20 31 | 30 3a 35 33 3a 31 31 20 |/08/15 1|0:53:11 |
|000018e0| 2a 2f 0a 58 73 74 61 74 | 69 63 20 63 68 61 72 20 |*/.Xstat|ic char |
|000018f0| 73 63 63 73 69 64 5b 5d | 3d 22 40 28 23 29 20 7a |sccsid[]|="@(#) z|
|00001900| 6f 6f 61 64 64 2e 63 20 | 32 2e 33 34 20 38 38 2f |ooadd.c |2.34 88/|
|00001910| 30 38 2f 31 35 20 31 30 | 3a 35 33 3a 31 31 22 3b |08/15 10|:53:11";|
|00001920| 0a 58 23 65 6e 64 69 66 | 20 2f 2a 20 4c 49 4e 54 |.X#endif| /* LINT|
|00001930| 20 2a 2f 0a 58 0a 58 2f | 2a 0a 58 43 6f 70 79 72 | */.X.X/|*.XCopyr|
|00001940| 69 67 68 74 20 28 43 29 | 20 31 39 38 36 2c 20 31 |ight (C)| 1986, 1|
|00001950| 39 38 37 20 52 61 68 75 | 6c 20 44 68 65 73 69 20 |987 Rahu|l Dhesi |
|00001960| 2d 2d 20 41 6c 6c 20 72 | 69 67 68 74 73 20 72 65 |-- All r|ights re|
|00001970| 73 65 72 76 65 64 0a 58 | 28 43 29 20 43 6f 70 79 |served.X|(C) Copy|
|00001980| 72 69 67 68 74 20 31 39 | 38 38 20 52 61 68 75 6c |right 19|88 Rahul|
|00001990| 20 44 68 65 73 69 20 2d | 2d 20 41 6c 6c 20 72 69 | Dhesi -|- All ri|
|000019a0| 67 68 74 73 20 72 65 73 | 65 72 76 65 64 0a 58 2a |ghts res|erved.X*|
|000019b0| 2f 0a 58 23 69 6e 63 6c | 75 64 65 20 22 6f 70 74 |/.X#incl|ude "opt|
|000019c0| 69 6f 6e 73 2e 68 22 0a | 58 2f 2a 20 41 64 64 73 |ions.h".|X/* Adds|
|000019d0| 20 66 69 6c 65 73 20 73 | 70 65 63 69 66 69 65 64 | files s|pecified|
|000019e0| 20 69 6e 20 70 61 72 61 | 6d 65 74 65 72 2d 6c 69 | in para|meter-li|
|000019f0| 73 74 20 74 6f 20 61 72 | 63 68 69 76 65 20 7a 6f |st to ar|chive zo|
|00001a00| 6f 5f 70 61 74 68 2e 20 | 2a 2f 0a 58 0a 58 23 64 |o_path. |*/.X.X#d|
|00001a10| 65 66 69 6e 65 20 4c 4f | 4e 47 45 53 54 09 32 30 |efine LO|NGEST.20|
|00001a20| 09 09 09 09 09 2f 2a 20 | 61 73 73 75 6d 65 64 20 |...../* |assumed |
|00001a30| 6c 65 6e 67 74 68 20 6f | 66 20 6c 6f 6e 67 65 73 |length o|f longes|
|00001a40| 74 20 66 69 6c 65 6e 61 | 6d 65 20 2a 2f 0a 58 23 |t filena|me */.X#|
|00001a50| 69 6e 63 6c 75 64 65 20 | 22 7a 6f 6f 6d 65 6d 2e |include |"zoomem.|
|00001a60| 68 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2f |h" | /|
|00001a70| 2a 20 74 6f 20 64 65 66 | 69 6e 65 20 4d 41 58 41 |* to def|ine MAXA|
|00001a80| 44 44 20 2a 2f 0a 58 23 | 69 6e 63 6c 75 64 65 20 |DD */.X#|include |
|00001a90| 22 7a 6f 6f 2e 68 22 0a | 58 23 69 6e 63 6c 75 64 |"zoo.h".|X#includ|
|00001aa0| 65 20 22 7a 6f 6f 69 6f | 2e 68 22 0a 58 23 69 6e |e "zooio|.h".X#in|
|00001ab0| 63 6c 75 64 65 20 22 76 | 61 72 69 6f 75 73 2e 68 |clude "v|arious.h|
|00001ac0| 22 0a 58 23 69 6e 63 6c | 75 64 65 20 22 70 61 72 |".X#incl|ude "par|
|00001ad0| 73 65 2e 68 22 0a 58 23 | 69 6e 63 6c 75 64 65 20 |se.h".X#|include |
|00001ae0| 22 64 65 62 75 67 2e 68 | 22 0a 58 0a 58 23 69 6e |"debug.h|".X.X#in|
|00001af0| 63 6c 75 64 65 20 22 70 | 6f 72 74 61 62 6c 65 2e |clude "p|ortable.|
|00001b00| 68 22 0a 58 0a 58 23 69 | 6e 63 6c 75 64 65 20 22 |h".X.X#i|nclude "|
|00001b10| 7a 6f 6f 66 6e 73 2e 68 | 22 0a 58 23 69 6e 63 6c |zoofns.h|".X#incl|
|00001b20| 75 64 65 20 22 65 72 72 | 6f 72 73 2e 69 22 0a 58 |ude "err|ors.i".X|
|00001b30| 65 78 74 65 72 6e 20 69 | 6e 74 20 62 72 65 61 6b |extern i|nt break|
|00001b40| 5f 68 69 74 3b 0a 58 65 | 78 74 65 72 6e 20 69 6e |_hit;.Xe|xtern in|
|00001b50| 74 20 71 75 69 65 74 3b | 0a 58 0a 58 23 69 66 64 |t quiet;|.X.X#ifd|
|00001b60| 65 66 20 4c 49 4e 54 5f | 41 52 47 53 0a 58 76 6f |ef LINT_|ARGS.Xvo|
|00001b70| 69 64 20 73 68 6f 77 5f | 63 6f 6d 6d 65 6e 74 20 |id show_|comment |
|00001b80| 28 73 74 72 75 63 74 20 | 64 69 72 65 6e 74 72 79 |(struct |direntry|
|00001b90| 20 2a 2c 20 5a 4f 4f 46 | 49 4c 45 2c 20 69 6e 74 | *, ZOOF|ILE, int|
|00001ba0| 2c 20 63 68 61 72 20 2a | 29 3b 0a 58 76 6f 69 64 |, char *|);.Xvoid|
|00001bb0| 20 64 6f 73 6e 61 6d 65 | 20 28 63 68 61 72 20 2a | dosname| (char *|
|00001bc0| 2c 20 63 68 61 72 20 2a | 29 3b 0a 58 76 6f 69 64 |, char *|);.Xvoid|
|00001bd0| 20 6d 6f 64 70 61 74 68 | 20 28 63 68 61 72 20 2a | modpath| (char *|
|00001be0| 29 3b 0a 58 76 6f 69 64 | 20 6f 70 74 73 5f 61 64 |);.Xvoid| opts_ad|
|00001bf0| 64 20 28 63 68 61 72 20 | 2a 2c 20 69 6e 74 20 2a |d (char |*, int *|
|00001c00| 2c 20 69 6e 74 20 2a 2c | 20 69 6e 74 20 2a 2c 20 |, int *,| int *, |
|00001c10| 69 6e 74 20 2a 2c 20 69 | 6e 74 20 2a 2c 20 69 6e |int *, i|nt *, in|
|00001c20| 74 20 2a 2c 0a 58 20 20 | 20 20 20 20 20 20 20 20 |t *,.X | |
|00001c30| 20 20 20 20 20 69 6e 74 | 20 2a 2c 20 69 6e 74 20 | int| *, int |
|00001c40| 2a 2c 20 69 6e 74 20 2a | 2c 20 69 6e 74 20 2a 2c |*, int *|, int *,|
|00001c50| 20 69 6e 74 20 2a 2c 20 | 69 6e 74 20 2a 29 3b 0a | int *, |int *);.|
|00001c60| 58 69 6e 74 20 76 65 72 | 5f 74 6f 6f 5f 68 69 67 |Xint ver|_too_hig|
|00001c70| 68 20 28 73 74 72 75 63 | 74 20 7a 6f 6f 5f 68 65 |h (struc|t zoo_he|
|00001c80| 61 64 65 72 20 2a 29 3b | 0a 58 67 65 74 5f 63 6f |ader *);|.Xget_co|
|00001c90| 6d 6d 65 6e 74 20 28 73 | 74 72 75 63 74 20 64 69 |mment (s|truct di|
|00001ca0| 72 65 6e 74 72 79 20 2a | 2c 20 5a 4f 4f 46 49 4c |rentry *|, ZOOFIL|
|00001cb0| 45 2c 20 63 68 61 72 20 | 2a 29 3b 0a 58 76 6f 69 |E, char |*);.Xvoi|
|00001cc0| 64 20 63 6f 70 79 66 69 | 65 6c 64 73 20 28 73 74 |d copyfi|elds (st|
|00001cd0| 72 75 63 74 20 64 69 72 | 65 6e 74 72 79 20 2a 2c |ruct dir|entry *,|
|00001ce0| 20 73 74 72 75 63 74 20 | 74 69 6e 79 5f 68 65 61 | struct |tiny_hea|
|00001cf0| 64 65 72 20 2a 29 3b 0a | 58 76 6f 69 64 20 73 74 |der *);.|Xvoid st|
|00001d00| 6f 72 65 66 6e 61 6d 65 | 20 28 73 74 72 75 63 74 |orefname| (struct|
|00001d10| 20 64 69 72 65 6e 74 72 | 79 20 2a 2c 20 63 68 61 | direntr|y *, cha|
|00001d20| 72 20 2a 2c 20 69 6e 74 | 29 3b 0a 58 63 68 61 72 |r *, int|);.Xchar|
|00001d30| 20 2a 63 68 6f 6f 73 65 | 66 6e 61 6d 65 20 28 73 | *choose|fname (s|
|00001d40| 74 72 75 63 74 20 64 69 | 72 65 6e 74 72 79 20 2a |truct di|rentry *|
|00001d50| 29 3b 0a 58 23 65 6c 73 | 65 0a 58 76 6f 69 64 20 |);.X#els|e.Xvoid |
|00001d60| 73 68 6f 77 5f 63 6f 6d | 6d 65 6e 74 20 28 29 3b |show_com|ment ();|
|00001d70| 0a 58 76 6f 69 64 20 64 | 6f 73 6e 61 6d 65 20 28 |.Xvoid d|osname (|
|00001d80| 29 3b 0a 58 76 6f 69 64 | 20 6d 6f 64 70 61 74 68 |);.Xvoid| modpath|
|00001d90| 20 28 29 3b 0a 58 76 6f | 69 64 20 6f 70 74 73 5f | ();.Xvo|id opts_|
|00001da0| 61 64 64 20 28 29 3b 0a | 58 69 6e 74 20 76 65 72 |add ();.|Xint ver|
|00001db0| 5f 74 6f 6f 5f 68 69 67 | 68 20 28 29 3b 0a 58 67 |_too_hig|h ();.Xg|
|00001dc0| 65 74 5f 63 6f 6d 6d 65 | 6e 74 20 28 29 3b 0a 58 |et_comme|nt ();.X|
|00001dd0| 76 6f 69 64 20 63 6f 70 | 79 66 69 65 6c 64 73 20 |void cop|yfields |
|00001de0| 28 29 3b 0a 58 76 6f 69 | 64 20 73 74 6f 72 65 66 |();.Xvoi|d storef|
|00001df0| 6e 61 6d 65 20 28 29 3b | 0a 58 63 68 61 72 20 2a |name ();|.Xchar *|
|00001e00| 63 68 6f 6f 73 65 66 6e | 61 6d 65 20 28 29 3b 0a |choosefn|ame ();.|
|00001e10| 58 23 65 6e 64 69 66 0a | 58 0a 58 65 78 74 65 72 |X#endif.|X.Xexter|
|00001e20| 6e 20 73 74 72 75 63 74 | 20 7a 6f 6f 5f 68 65 61 |n struct| zoo_hea|
|00001e30| 64 65 72 20 7a 6f 6f 5f | 68 65 61 64 65 72 3b 0a |der zoo_|header;.|
|00001e40| 58 0a 58 65 78 74 65 72 | 6e 20 63 68 61 72 20 66 |X.Xexter|n char f|
|00001e50| 69 6c 65 5f 6c 65 61 64 | 65 72 5b 5d 3b 0a 58 65 |ile_lead|er[];.Xe|
|00001e60| 78 74 65 72 6e 20 75 6e | 73 69 67 6e 65 64 20 69 |xtern un|signed i|
|00001e70| 6e 74 20 63 72 63 63 6f | 64 65 3b 0a 58 0a 58 76 |nt crcco|de;.X.Xv|
|00001e80| 6f 69 64 20 7a 6f 6f 61 | 64 64 28 7a 6f 6f 5f 70 |oid zooa|dd(zoo_p|
|00001e90| 61 74 68 2c 20 61 72 67 | 63 2c 20 61 72 67 76 2c |ath, arg|c, argv,|
|00001ea0| 20 6f 70 74 69 6f 6e 29 | 0a 58 63 68 61 72 20 2a | option)|.Xchar *|
|00001eb0| 7a 6f 6f 5f 70 61 74 68 | 3b 20 20 20 20 20 20 2f |zoo_path|; /|
|00001ec0| 2a 20 70 61 74 68 6e 61 | 6d 65 20 6f 66 20 7a 6f |* pathna|me of zo|
|00001ed0| 6f 20 61 72 63 68 69 76 | 65 20 74 6f 20 61 64 64 |o archiv|e to add|
|00001ee0| 20 74 6f 20 2a 2f 0a 58 | 69 6e 74 20 61 72 67 63 | to */.X|int argc|
|00001ef0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 2f 2a 20 |; | /* |
|00001f00| 68 6f 77 20 6d 61 6e 79 | 20 66 69 6c 65 73 70 65 |how many| filespe|
|00001f10| 63 73 20 73 75 70 70 6c | 69 65 64 20 2a 2f 0a 58 |cs suppl|ied */.X|
|00001f20| 63 68 61 72 20 2a 2a 61 | 72 67 76 3b 20 20 20 20 |char **a|rgv; |
|00001f30| 20 20 20 20 20 2f 2a 20 | 61 72 72 61 79 20 6f 66 | /* |array of|
|00001f40| 20 70 6f 69 6e 74 65 72 | 73 20 74 6f 20 66 69 6c | pointer|s to fil|
|00001f50| 65 73 70 65 63 73 20 2a | 2f 0a 58 63 68 61 72 20 |especs *|/.Xchar |
|00001f60| 2a 6f 70 74 69 6f 6e 3b | 20 20 20 20 20 20 20 20 |*option;| |
|00001f70| 2f 2a 20 6f 70 74 69 6f | 6e 20 73 74 72 69 6e 67 |/* optio|n string|
|00001f80| 20 2a 2f 0a 58 7b 0a 58 | 63 68 61 72 20 2a 77 68 | */.X{.X|char *wh|
|00001f90| 69 63 68 6e 61 6d 65 3b | 20 20 20 20 20 20 20 20 |ichname;| |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001fb0| 20 20 2f 2a 20 77 68 69 | 63 68 20 6e 61 6d 65 20 | /* whi|ch name |
|00001fc0| 74 6f 20 73 68 6f 77 20 | 75 73 65 72 20 2a 2f 0a |to show |user */.|
|00001fd0| 58 63 68 61 72 20 2a 66 | 6c 69 73 74 5b 4d 41 58 |Xchar *f|list[MAX|
|00001fe0| 41 44 44 5d 3b 20 20 20 | 20 20 20 20 20 20 20 20 |ADD]; | |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 2f 2a 20 6c 69 | | /* li|
|00002000| 73 74 20 6f 66 20 70 74 | 72 73 20 74 6f 20 69 6e |st of pt|rs to in|
|00002010| 70 75 74 20 66 6e 61 6d | 65 73 20 2a 2f 0a 58 69 |put fnam|es */.Xi|
|00002020| 6e 74 20 66 70 74 72 3b | 20 20 20 20 20 20 20 20 |nt fptr;| |
|00002030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002040| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 77 69 6c 6c | | /* will|
|00002050| 20 70 6f 69 6e 74 20 74 | 6f 20 77 69 74 68 69 6e | point t|o within|
|00002060| 20 66 6c 69 73 74 20 2a | 2f 0a 58 5a 4f 4f 46 49 | flist *|/.XZOOFI|
|00002070| 4c 45 20 74 68 69 73 5f | 66 69 6c 65 3b 20 20 20 |LE this_|file; |
|00002080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002090| 20 20 20 20 20 2f 2a 20 | 66 69 6c 65 20 74 6f 20 | /* |file to |
|000020a0| 61 64 64 20 2a 2f 0a 58 | 63 68 61 72 20 7a 6f 6f |add */.X|char zoo|
|000020b0| 5f 66 6e 61 6d 65 5b 4c | 46 4e 41 4d 45 53 49 5a |_fname[L|FNAMESIZ|
|000020c0| 45 5d 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E]; | |
|000020d0| 20 20 2f 2a 20 62 61 73 | 65 6e 61 6d 65 20 6f 66 | /* bas|ename of|
|000020e0| 20 61 72 63 68 69 76 65 | 20 69 74 73 65 6c 66 20 | archive| itself |
|000020f0| 2a 2f 0a 58 63 68 61 72 | 20 7a 6f 6f 5f 62 61 6b |*/.Xchar| zoo_bak|
|00002100| 5b 4c 46 4e 41 4d 45 53 | 49 5a 45 5d 3b 20 20 20 |[LFNAMES|IZE]; |
|00002110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a | | /*|
|00002120| 20 6e 61 6d 65 20 6f 66 | 20 61 72 63 68 69 76 65 | name of| archive|
|00002130| 27 73 20 62 61 63 6b 75 | 70 20 2a 2f 0a 58 63 68 |'s backu|p */.Xch|
|00002140| 61 72 20 74 68 69 73 5f | 66 6e 61 6d 65 5b 4c 46 |ar this_|fname[LF|
|00002150| 4e 41 4d 45 53 49 5a 45 | 5d 3b 20 20 20 20 20 20 |NAMESIZE|]; |
|00002160| 20 20 20 20 20 20 20 20 | 2f 2a 20 6a 75 73 74 20 | |/* just |
|00002170| 66 69 6c 65 6e 61 6d 65 | 20 6f 66 20 66 69 6c 65 |filename| of file|
|00002180| 20 74 6f 20 61 64 64 20 | 2a 2f 0a 58 63 68 61 72 | to add |*/.Xchar|
|00002190| 20 6c 61 74 65 73 74 5f | 6e 61 6d 65 5b 4c 46 4e | latest_|name[LFN|
|000021a0| 41 4d 45 53 49 5a 45 5d | 3b 20 20 20 20 20 20 20 |AMESIZE]|; |
|000021b0| 20 20 20 20 20 20 2f 2a | 20 6c 61 74 65 73 74 20 | /*| latest |
|000021c0| 6e 61 6d 65 20 69 6e 20 | 61 72 63 68 69 76 65 20 |name in |archive |
|000021d0| 2a 2f 0a 58 6c 6f 6e 67 | 20 6c 61 73 74 5f 6f 6c |*/.Xlong| last_ol|
|000021e0| 64 20 3d 20 30 4c 3b 20 | 20 20 20 20 20 20 20 20 |d = 0L; | |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a | | /*|
|00002200| 20 6c 61 73 74 20 64 69 | 72 65 6e 74 72 79 20 69 | last di|rentry i|
|00002210| 6e 20 6f 6c 64 20 63 68 | 61 69 6e 20 2a 2f 0a 58 |n old ch|ain */.X|
|00002220| 5a 4f 4f 46 49 4c 45 20 | 7a 6f 6f 5f 66 69 6c 65 |ZOOFILE |zoo_file|
|00002230| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 73 74 72 | | /* str|
|00002250| 65 61 6d 20 66 6f 72 20 | 6f 70 65 6e 20 61 72 63 |eam for |open arc|
|00002260| 68 69 76 65 20 2a 2f 0a | 58 63 68 61 72 20 2a 74 |hive */.|Xchar *t|
|00002270| 68 69 73 5f 70 61 74 68 | 3b 20 20 20 20 20 20 20 |his_path|; |
|00002280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002290| 20 20 20 2f 2a 20 70 61 | 74 68 6e 61 6d 65 20 6f | /* pa|thname o|
|000022a0| 66 20 66 69 6c 65 20 74 | 6f 20 61 64 64 20 2a 2f |f file t|o add */|
|000022b0| 0a 58 0a 58 23 69 66 64 | 65 66 20 4e 4f 45 4e 55 |.X.X#ifd|ef NOENU|
|000022c0| 4d 0a 58 23 64 65 66 69 | 6e 65 20 4e 45 57 5f 5a |M.X#defi|ne NEW_Z|
|000022d0| 4f 4f 20 31 0a 58 23 64 | 65 66 69 6e 65 20 4f 4c |OO 1.X#d|efine OL|
|000022e0| 44 5f 5a 4f 4f 20 32 0a | 58 69 6e 74 20 7a 6f 6f |D_ZOO 2.|Xint zoo|
|000022f0| 5f 73 74 61 74 75 73 3b | 0a 58 23 65 6c 73 65 0a |_status;|.X#else.|
|00002300| 58 65 6e 75 6d 20 7b 4e | 45 57 5f 5a 4f 4f 2c 20 |Xenum {N|EW_ZOO, |
|00002310| 4f 4c 44 5f 5a 4f 4f 7d | 20 7a 6f 6f 5f 73 74 61 |OLD_ZOO}| zoo_sta|
|00002320| 74 75 73 3b 20 20 20 20 | 20 20 20 2f 2a 20 6e 65 |tus; | /* ne|
|00002330| 77 6c 79 20 63 72 65 61 | 74 65 64 20 6f 72 20 6e |wly crea|ted or n|
|00002340| 6f 74 20 2a 2f 0a 58 23 | 65 6e 64 69 66 0a 58 0a |ot */.X#|endif.X.|
|00002350| 58 6c 6f 6e 67 20 74 68 | 69 73 5f 64 69 72 5f 6f |Xlong th|is_dir_o|
|00002360| 66 66 73 65 74 3b 20 20 | 20 20 20 20 20 20 20 20 |ffset; | |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 2f 2a 20 70 6f | | /* po|
|00002380| 69 6e 74 65 72 73 20 74 | 6f 20 77 69 74 68 69 6e |inters t|o within|
|00002390| 20 61 72 63 68 69 76 65 | 20 2a 2f 0a 58 6c 6f 6e | archive| */.Xlon|
|000023a0| 67 20 73 61 76 65 5f 70 | 6f 73 69 74 69 6f 6e 3b |g save_p|osition;|
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023c0| 20 20 20 20 20 20 20 2f | 2a 20 70 6f 69 6e 74 65 | /|* pointe|
|000023d0| 72 20 74 6f 20 77 69 74 | 68 69 6e 20 61 72 63 68 |r to wit|hin arch|
|000023e0| 69 76 65 20 2a 2f 0a 58 | 6c 6f 6e 67 20 70 72 65 |ive */.X|long pre|
|000023f0| 76 5f 70 6f 73 3b 20 20 | 20 20 20 20 20 20 20 20 |v_pos; | |
|00002400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002410| 20 20 2f 2a 20 70 6f 73 | 6e 20 6f 66 20 70 72 65 | /* pos|n of pre|
|00002420| 76 20 66 69 6c 65 20 6f | 66 20 73 61 6d 65 20 6e |v file o|f same n|
|00002430| 61 6d 65 20 2a 2f 0a 58 | 73 74 72 75 63 74 20 64 |ame */.X|struct d|
|00002440| 69 72 65 6e 74 72 79 20 | 64 69 72 65 6e 74 72 79 |irentry |direntry|
|00002450| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|00002460| 20 20 2f 2a 20 64 69 72 | 65 63 74 6f 72 79 20 65 | /* dir|ectory e|
|00002470| 6e 74 72 79 20 2a 2f 0a | 58 73 74 72 75 63 74 20 |ntry */.|Xstruct |
|00002480| 64 69 72 65 6e 74 72 79 | 20 64 69 72 32 65 6e 74 |direntry| dir2ent|
|00002490| 72 79 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ry; | |
|000024a0| 20 20 20 2f 2a 20 73 70 | 61 72 65 20 2a 2f 0a 58 | /* sp|are */.X|
|000024b0| 69 6e 74 20 73 74 61 74 | 75 73 3b 20 20 20 20 20 |int stat|us; |
|000024c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024d0| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 65 72 72 | | /* err|
|000024e0| 6f 72 20 73 74 61 74 75 | 73 20 2a 2f 0a 58 69 6e |or statu|s */.Xin|
|000024f0| 74 20 73 75 63 63 65 73 | 73 3b 20 20 20 20 20 20 |t succes|s; |
|00002500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002510| 20 20 20 20 20 20 20 20 | 2f 2a 20 73 75 63 63 65 | |/* succe|
|00002520| 73 73 66 75 6c 20 61 64 | 64 69 74 69 6f 6e 20 6f |ssful ad|dition o|
|00002530| 66 20 66 69 6c 65 3f 20 | 2a 2f 0a 58 69 6e 74 20 |f file? |*/.Xint |
|00002540| 61 64 64 63 6f 75 6e 74 | 20 3d 20 30 3b 20 20 20 |addcount| = 0; |
|00002550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002560| 20 20 20 20 20 20 2f 2a | 20 6e 75 6d 62 65 72 20 | /*| number |
|00002570| 61 64 64 65 64 20 2a 2f | 0a 58 69 6e 74 20 75 70 |added */|.Xint up|
|00002580| 64 61 74 65 3d 30 3b 20 | 20 20 20 20 20 20 20 20 |date=0; | |
|00002590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025a0| 20 20 20 20 2f 2a 20 6f | 6e 6c 79 20 66 69 6c 65 | /* o|nly file|
|000025b0| 73 20 61 6c 72 65 61 64 | 79 20 69 6e 20 61 72 63 |s alread|y in arc|
|000025c0| 68 69 76 65 20 2a 2f 0a | 58 69 6e 74 20 73 75 70 |hive */.|Xint sup|
|000025d0| 70 72 65 73 73 3d 30 3b | 20 20 20 20 20 20 20 20 |press=0;| |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025f0| 20 20 20 2f 2a 20 73 75 | 70 70 72 65 73 73 20 63 | /* su|ppress c|
|00002600| 6f 6d 70 72 65 73 73 69 | 6f 6e 20 2a 2f 0a 58 69 |ompressi|on */.Xi|
|00002610| 6e 74 20 6e 65 77 3d 30 | 3b 20 20 20 20 20 20 20 |nt new=0|; |
|00002620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002630| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 61 64 64 20 | | /* add |
|00002640| 6f 6e 6c 79 20 66 69 6c | 65 73 20 6e 6f 74 20 69 |only fil|es not i|
|00002650| 6e 20 61 72 63 68 69 76 | 65 20 2a 2f 0a 58 69 6e |n archiv|e */.Xin|
|00002660| 74 20 7a 6f 6f 74 69 6d | 65 20 3d 20 30 3b 20 20 |t zootim|e = 0; |
|00002670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002680| 20 20 20 20 20 20 20 20 | 2f 2a 20 6a 75 73 74 20 | |/* just |
|00002690| 73 65 74 20 61 72 63 68 | 69 76 65 20 74 69 6d 65 |set arch|ive time|
|000026a0| 20 2a 2f 0a 58 69 6e 74 | 20 61 64 64 5f 63 6f 6d | */.Xint| add_com|
|000026b0| 6d 65 6e 74 20 3d 20 30 | 3b 20 20 20 20 20 20 20 |ment = 0|; |
|000026c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2f | | /|
|000026d0| 2a 20 61 64 64 20 63 6f | 6d 6d 65 6e 74 20 2a 2f |* add co|mment */|
|000026e0| 0a 58 69 6e 74 20 70 61 | 63 6b 20 3d 20 30 3b 20 |.Xint pa|ck = 0; |
|000026f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002700| 20 20 20 20 20 20 20 20 | 20 20 20 20 2f 2a 20 70 | | /* p|
|00002710| 61 63 6b 20 61 66 74 65 | 72 20 61 64 64 69 6e 67 |ack afte|r adding|
|00002720| 20 2a 2f 0a 58 69 6e 74 | 20 6e 65 65 64 5f 64 69 | */.Xint| need_di|
|00002730| 72 20 3d 20 31 3b 20 20 | 20 20 20 20 20 20 20 20 |r = 1; | |
|00002740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2f | | /|
|00002750| 2a 20 73 74 6f 72 65 20 | 64 69 72 65 63 74 6f 72 |* store |director|
|00002760| 69 65 73 20 74 6f 6f 20 | 2a 2f 0a 58 69 6e 74 20 |ies too |*/.Xint |
|00002770| 64 65 6c 63 6f 75 6e 74 | 20 3d 20 30 3b 20 20 20 |delcount| = 0; |
|00002780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002790| 20 20 20 20 20 20 2f 2a | 20 63 6f 75 6e 74 20 6f | /*| count o|
|000027a0| 66 20 64 65 6c 65 74 65 | 64 20 65 6e 74 72 69 65 |f delete|d entrie|
|000027b0| 73 20 2a 2f 0a 58 69 6e | 74 20 65 78 69 74 5f 73 |s */.Xin|t exit_s|
|000027c0| 74 61 74 75 73 20 3d 20 | 30 3b 20 20 20 20 20 20 |tatus = |0; |
|000027d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000027e0| 2f 2a 20 65 78 69 74 20 | 73 74 61 74 75 73 20 74 |/* exit |status t|
|000027f0| 6f 20 73 65 74 20 2a 2f | 0a 58 0a 58 75 6e 73 69 |o set */|.X.Xunsi|
|00002800| 67 6e 65 64 20 69 6e 74 | 20 6c 61 74 65 73 74 5f |gned int| latest_|
|00002810| 64 61 74 65 20 3d 20 30 | 3b 20 20 20 20 20 20 20 |date = 0|; |
|00002820| 20 20 20 20 20 20 2f 2a | 20 74 6f 20 73 65 74 20 | /*| to set |
|00002830| 74 69 6d 65 20 6f 6e 20 | 61 72 63 68 69 76 65 20 |time on |archive |
|00002840| 69 74 73 65 6c 66 20 2a | 2f 0a 58 75 6e 73 69 67 |itself *|/.Xunsig|
|00002850| 6e 65 64 20 69 6e 74 20 | 6c 61 74 65 73 74 5f 74 |ned int |latest_t|
|00002860| 69 6d 65 20 3d 20 30 3b | 20 20 20 20 20 20 20 20 |ime = 0;| |
|00002870| 20 20 20 20 20 2f 2a 20 | 2e 2e 20 73 61 6d 65 20 | /* |.. same |
|00002880| 2a 2f 0a 58 69 6e 74 20 | 6d 6f 76 65 20 3d 20 30 |*/.Xint |move = 0|
|00002890| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|000028a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a | | /*|
|000028b0| 20 64 65 6c 65 74 65 20 | 61 66 74 65 72 20 61 64 | delete |after ad|
|000028c0| 64 69 6e 67 20 74 6f 20 | 61 72 63 68 69 76 65 20 |ding to |archive |
|000028d0| 2a 2f 0a 58 69 6e 74 20 | 6c 6f 6e 67 65 73 74 3b |*/.Xint |longest;|
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a | | /*|
|00002900| 20 6c 65 6e 67 74 68 20 | 6f 66 20 6c 6f 6e 67 65 | length |of longe|
|00002910| 73 74 20 70 61 74 68 6e | 61 6d 65 20 61 64 64 65 |st pathn|ame adde|
|00002920| 64 20 2a 2f 0a 58 69 6e | 74 20 66 69 72 73 74 66 |d */.Xin|t firstf|
|00002930| 69 6c 65 20 3d 20 31 3b | 20 20 20 20 20 20 20 20 |ile = 1;| |
|00002940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002950| 2f 2a 20 66 69 72 73 74 | 20 66 69 6c 65 20 62 65 |/* first| file be|
|00002960| 69 6e 67 20 61 64 64 65 | 64 3f 20 2a 2f 0a 58 69 |ing adde|d? */.Xi|
|00002970| 6e 74 20 7a 5f 66 6d 74 | 20 3d 20 30 3b 20 20 20 |nt z_fmt| = 0; |
|00002980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002990| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 6c 6f 6f 6b | | /* look|
|000029a0| 20 66 6f 72 20 5a 20 66 | 6f 72 6d 61 74 20 66 69 | for Z f|ormat fi|
|000029b0| 6c 65 73 3f 20 2a 2f 0a | 58 69 6e 74 20 69 6e 61 |les? */.|Xint ina|
|000029c0| 72 67 73 20 3d 20 30 3b | 09 09 09 09 09 09 09 09 |rgs = 0;|........|
|000029d0| 09 2f 2a 20 72 65 61 64 | 20 66 69 6c 65 6e 61 6d |./* read| filenam|
|000029e0| 65 73 20 66 72 6f 6d 20 | 73 74 64 69 6e 3f 20 2a |es from |stdin? *|
|000029f0| 2f 0a 58 0a 58 23 69 66 | 6e 64 65 66 20 50 4f 52 |/.X.X#if|ndef POR|
|00002a00| 54 41 42 4c 45 0a 58 73 | 74 72 75 63 74 20 74 69 |TABLE.Xs|truct ti|
|00002a10| 6e 79 5f 68 65 61 64 65 | 72 20 74 69 6e 79 5f 68 |ny_heade|r tiny_h|
|00002a20| 65 61 64 65 72 3b 20 20 | 20 20 20 20 20 20 20 20 |eader; | |
|00002a30| 20 2f 2a 20 66 6f 72 20 | 5a 20 66 6f 72 6d 61 74 | /* for |Z format|
|00002a40| 20 61 72 63 68 69 76 65 | 73 20 2a 2f 0a 58 23 65 | archive|s */.X#e|
|00002a50| 6e 64 69 66 0a 58 0a 58 | 75 6e 73 69 67 6e 65 64 |ndif.X.X|unsigned|
|00002a60| 20 74 68 69 73 5f 76 65 | 72 73 69 6f 6e 5f 6e 6f | this_ve|rsion_no|
|00002a70| 3b 09 09 09 09 09 09 09 | 2f 2a 20 76 65 72 73 69 |;.......|/* versi|
|00002a80| 6f 6e 20 6e 6f 2e 20 6f | 66 20 6f 6c 64 20 66 69 |on no. o|f old fi|
|00002a90| 6c 65 20 2a 2f 0a 58 75 | 6e 73 69 67 6e 65 64 20 |le */.Xu|nsigned |
|00002aa0| 20 68 69 67 68 5f 76 66 | 6c 61 67 3b 09 09 09 09 | high_vf|lag;....|
|00002ab0| 09 09 09 09 2f 2a 20 76 | 65 72 73 69 6f 6e 20 66 |..../* v|ersion f|
|00002ac0| 6c 61 67 20 6f 66 20 6f | 6c 64 20 66 69 6c 65 20 |lag of o|ld file |
|00002ad0| 2a 2f 0a 58 75 6e 73 69 | 67 6e 65 64 20 68 69 67 |*/.Xunsi|gned hig|
|00002ae0| 68 5f 76 65 72 73 69 6f | 6e 5f 6e 6f 3b 09 09 09 |h_versio|n_no;...|
|00002af0| 09 09 09 09 2f 2a 20 68 | 69 67 68 65 73 74 20 76 |..../* h|ighest v|
|00002b00| 65 72 73 69 6f 6e 20 6e | 6f 20 6f 66 20 74 68 69 |ersion n|o of thi|
|00002b10| 73 20 66 69 6c 65 20 2a | 2f 0a 58 6c 6f 6e 67 20 |s file *|/.Xlong |
|00002b20| 68 69 67 68 5f 70 6f 73 | 3b 09 09 09 09 09 09 09 |high_pos|;.......|
|00002b30| 09 09 09 2f 2a 20 6f 66 | 66 73 65 74 20 6f 66 20 |.../* of|fset of |
|00002b40| 66 69 6c 65 20 77 2f 68 | 69 67 68 65 73 74 20 76 |file w/h|ighest v|
|00002b50| 65 72 20 6e 6f 20 2a 2f | 0a 58 75 6e 73 69 67 6e |er no */|.Xunsign|
|00002b60| 65 64 20 69 6e 74 20 66 | 67 65 6e 73 3b 09 09 09 |ed int f|gens;...|
|00002b70| 09 09 09 09 09 2f 2a 20 | 67 65 6e 73 2e 20 74 6f |...../* |gens. to|
|00002b80| 20 70 72 65 73 65 72 76 | 65 20 2d 2d 20 66 69 6c | preserv|e -- fil|
|00002b90| 65 20 2a 2f 0a 58 75 6e | 73 69 67 6e 65 64 20 69 |e */.Xun|signed i|
|00002ba0| 6e 74 20 7a 67 65 6e 73 | 3b 09 09 09 09 09 09 09 |nt zgens|;.......|
|00002bb0| 09 2f 2a 20 67 65 6e 73 | 2e 20 74 6f 20 70 72 65 |./* gens|. to pre|
|00002bc0| 73 65 72 76 65 20 2d 2d | 20 61 72 63 68 69 76 65 |serve --| archive|
|00002bd0| 20 2a 2f 0a 58 6c 6f 6e | 67 20 6f 6c 64 63 6d 74 | */.Xlon|g oldcmt|
|00002be0| 70 6f 73 3b 09 09 09 09 | 09 09 09 09 09 2f 2a 20 |pos;....|...../* |
|00002bf0| 74 6f 20 73 61 76 65 20 | 6f 6c 64 20 63 6f 6d 6d |to save |old comm|
|00002c00| 65 6e 74 20 2a 2f 0a 58 | 75 6e 73 69 67 6e 65 64 |ent */.X|unsigned|
|00002c10| 20 69 6e 74 20 6f 6c 64 | 63 6d 74 73 69 7a 3b 09 | int old|cmtsiz;.|
|00002c20| 09 09 09 09 09 09 2f 2a | 20 74 6f 20 73 61 76 65 |....../*| to save|
|00002c30| 20 6f 6c 64 20 63 6f 6d | 6d 65 6e 74 20 2a 2f 0a | old com|ment */.|
|00002c40| 58 69 6e 74 20 67 65 6e | 73 6f 6e 20 3d 20 30 3b |Xint gen|son = 0;|
|00002c50| 09 09 09 09 09 09 09 09 | 09 2f 2a 20 77 68 65 74 |........|./* whet|
|00002c60| 68 65 72 20 74 6f 20 74 | 75 72 6e 20 67 65 6e 65 |her to t|urn gene|
|00002c70| 72 61 74 69 6f 6e 73 20 | 6f 6e 20 2a 2f 0a 58 0a |rations |on */.X.|
|00002c80| 58 2f 2a 20 6f 6e 20 65 | 6e 74 72 79 20 6f 70 74 |X/* on e|ntry opt|
|00002c90| 69 6f 6e 20 70 6f 69 6e | 74 73 20 74 6f 20 66 69 |ion poin|ts to fi|
|00002ca0| 72 73 74 20 6c 65 74 74 | 65 72 20 2a 2f 0a 58 0a |rst lett|er */.X.|
|00002cb0| 58 6f 70 74 73 5f 61 64 | 64 20 28 6f 70 74 69 6f |Xopts_ad|d (optio|
|00002cc0| 6e 2c 20 26 7a 6f 6f 74 | 69 6d 65 2c 20 26 71 75 |n, &zoot|ime, &qu|
|00002cd0| 69 65 74 2c 20 26 73 75 | 70 70 72 65 73 73 2c 20 |iet, &su|ppress, |
|00002ce0| 26 6d 6f 76 65 2c 20 26 | 6e 65 77 2c 20 26 70 61 |&move, &|new, &pa|
|00002cf0| 63 6b 2c 0a 58 20 20 20 | 20 20 20 20 20 20 20 26 |ck,.X | &|
|00002d00| 75 70 64 61 74 65 2c 20 | 26 61 64 64 5f 63 6f 6d |update, |&add_com|
|00002d10| 6d 65 6e 74 2c 20 26 7a | 5f 66 6d 74 2c 20 26 6e |ment, &z|_fmt, &n|
|00002d20| 65 65 64 5f 64 69 72 2c | 20 26 69 6e 61 72 67 73 |eed_dir,| &inargs|
|00002d30| 2c 20 26 67 65 6e 73 6f | 6e 29 3b 0a 58 0a 58 2f |, &genso|n);.X.X/|
|00002d40| 2a 20 50 4f 53 53 49 42 | 4c 45 20 52 41 43 45 20 |* POSSIB|LE RACE |
|00002d50| 43 4f 4e 44 49 54 49 4f | 4e 20 42 45 54 57 45 45 |CONDITIO|N BETWEE|
|00002d60| 4e 20 54 45 53 54 49 4e | 47 20 45 58 49 53 54 45 |N TESTIN|G EXISTE|
|00002d70| 4e 43 45 20 41 4e 44 20 | 43 52 45 41 54 49 4e 47 |NCE AND |CREATING|
|00002d80| 20 46 49 4c 45 20 2a 2f | 0a 58 69 66 20 28 65 78 | FILE */|.Xif (ex|
|00002d90| 69 73 74 73 20 28 7a 6f | 6f 5f 70 61 74 68 29 29 |ists (zo|o_path))|
|00002da0| 20 7b 0a 58 09 7a 6f 6f | 5f 66 69 6c 65 20 3d 20 | {.X.zoo|_file = |
|00002db0| 7a 6f 6f 6f 70 65 6e 20 | 28 7a 6f 6f 5f 70 61 74 |zooopen |(zoo_pat|
|00002dc0| 68 2c 20 5a 5f 52 44 57 | 52 29 3b 0a 58 20 20 20 |h, Z_RDW|R);.X |
|00002dd0| 7a 6f 6f 5f 73 74 61 74 | 75 73 20 3d 20 4f 4c 44 |zoo_stat|us = OLD|
|00002de0| 5f 5a 4f 4f 3b 0a 58 7d | 20 65 6c 73 65 20 7b 0a |_ZOO;.X}| else {.|
|00002df0| 58 20 20 20 69 66 20 28 | 21 7a 6f 6f 74 69 6d 65 |X if (|!zootime|
|00002e00| 29 0a 58 09 09 7a 6f 6f | 5f 66 69 6c 65 20 3d 20 |).X..zoo|_file = |
|00002e10| 7a 6f 6f 63 72 65 61 74 | 65 20 28 7a 6f 6f 5f 70 |zoocreat|e (zoo_p|
|00002e20| 61 74 68 29 3b 0a 58 20 | 20 20 65 6c 73 65 0a 58 |ath);.X | else.X|
|00002e30| 20 20 20 20 20 20 7a 6f | 6f 5f 66 69 6c 65 20 3d | zo|o_file =|
|00002e40| 20 4e 4f 46 49 4c 45 3b | 20 20 20 20 20 2f 2a 20 | NOFILE;| /* |
|00002e50| 64 6f 6e 27 74 20 63 72 | 65 61 74 65 20 69 66 20 |don't cr|eate if |
|00002e60| 6a 75 73 74 20 73 65 74 | 74 69 6e 67 20 74 69 6d |just set|ting tim|
|00002e70| 65 20 2a 2f 0a 58 20 20 | 20 7a 6f 6f 5f 73 74 61 |e */.X | zoo_sta|
|00002e80| 74 75 73 20 3d 20 4e 45 | 57 5f 5a 4f 4f 3b 0a 58 |tus = NE|W_ZOO;.X|
|00002e90| 7d 0a 58 0a 58 69 66 20 | 28 7a 6f 6f 5f 66 69 6c |}.X.Xif |(zoo_fil|
|00002ea0| 65 20 3d 3d 20 4e 4f 46 | 49 4c 45 29 0a 58 20 20 |e == NOF|ILE).X |
|00002eb0| 20 70 72 74 65 72 72 6f | 72 20 28 27 66 27 2c 20 | prterro|r ('f', |
|00002ec0| 63 6f 75 6c 64 5f 6e 6f | 74 5f 6f 70 65 6e 2c 20 |could_no|t_open, |
|00002ed0| 7a 6f 6f 5f 70 61 74 68 | 29 3b 0a 58 0a 58 62 61 |zoo_path|);.X.Xba|
|00002ee0| 73 65 6e 61 6d 65 28 7a | 6f 6f 5f 70 61 74 68 2c |sename(z|oo_path,|
|00002ef0| 20 7a 6f 6f 5f 66 6e 61 | 6d 65 29 3b 20 20 20 20 | zoo_fna|me); |
|00002f00| 20 20 2f 2a 20 67 65 74 | 20 62 61 73 65 6e 61 6d | /* get| basenam|
|00002f10| 65 20 6f 66 20 61 72 63 | 68 69 76 65 20 2a 2f 0a |e of arc|hive */.|
|00002f20| 58 72 6f 6f 74 6e 61 6d | 65 20 28 7a 6f 6f 5f 70 |Xrootnam|e (zoo_p|
|00002f30| 61 74 68 2c 20 7a 6f 6f | 5f 62 61 6b 29 3b 20 20 |ath, zoo|_bak); |
|00002f40| 20 20 20 20 20 2f 2a 20 | 6e 61 6d 65 20 77 69 74 | /* |name wit|
|00002f50| 68 6f 75 74 20 65 78 74 | 65 6e 73 69 6f 6e 20 2a |hout ext|ension *|
|00002f60| 2f 0a 58 73 74 72 63 61 | 74 20 28 7a 6f 6f 5f 62 |/.Xstrca|t (zoo_b|
|00002f70| 61 6b 2c 20 42 41 43 4b | 55 50 5f 45 58 54 29 3b |ak, BACK|UP_EXT);|
|00002f80| 20 20 20 20 20 20 20 2f | 2a 20 6e 61 6d 65 20 6f | /|* name o|
|00002f90| 66 20 62 61 63 6b 75 70 | 20 6f 66 20 74 68 69 73 |f backup| of this|
|00002fa0| 20 61 72 63 68 69 76 65 | 20 2a 2f 0a 58 0a 58 2f | archive| */.X.X/|
|00002fb0| 2a 20 4e 6f 77 20 77 65 | 20 70 72 65 70 61 72 65 |* Now we| prepare|
|00002fc0| 20 74 68 65 20 61 72 63 | 68 69 76 65 20 66 6f 72 | the arc|hive for|
|00002fd0| 20 61 64 64 69 6e 67 20 | 6f 6e 65 20 6f 72 20 6d | adding |one or m|
|00002fe0| 6f 72 65 20 66 69 6c 65 | 73 2e 20 20 49 66 20 74 |ore file|s. If t|
|00002ff0| 68 65 20 61 72 63 68 69 | 76 65 0a 58 68 61 73 20 |he archi|ve.Xhas |
|00003000| 6a 75 73 74 20 62 65 65 | 6e 20 63 72 65 61 74 65 |just bee|n create|
|00003010| 64 2c 20 77 65 20 77 72 | 69 74 65 20 74 68 65 20 |d, we wr|ite the |
|00003020| 61 72 63 68 69 76 65 20 | 68 65 61 64 65 72 20 2a |archive |header *|
|00003030| 2f 0a 58 0a 58 61 64 64 | 66 6e 61 6d 65 20 28 22 |/.X.Xadd|fname ("|
|00003040| 22 2c 30 4c 2c 30 2c 30 | 2c 30 2c 30 29 3b 20 2f |",0L,0,0|,0,0); /|
|00003050| 2a 20 69 6e 69 74 69 61 | 6c 69 7a 65 20 74 61 62 |* initia|lize tab|
|00003060| 6c 65 20 6f 66 20 66 69 | 6c 65 73 20 61 6c 72 65 |le of fi|les alre|
|00003070| 61 64 79 20 69 6e 20 61 | 72 63 68 69 76 65 20 2a |ady in a|rchive *|
|00003080| 2f 0a 58 69 66 20 28 7a | 6f 6f 5f 73 74 61 74 75 |/.Xif (z|oo_statu|
|00003090| 73 20 3d 3d 20 4e 45 57 | 5f 5a 4f 4f 29 20 7b 20 |s == NEW|_ZOO) { |
|000030a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000030b0| 2f 2a 20 6e 65 77 6c 79 | 2d 63 72 65 61 74 65 64 |/* newly|-created|
|000030c0| 20 61 72 63 68 69 76 65 | 20 2a 2f 0a 58 09 69 66 | archive| */.X.if|
|000030d0| 20 28 67 65 6e 73 6f 6e | 29 09 09 09 09 09 09 09 | (genson|).......|
|000030e0| 09 09 09 09 2f 2a 20 69 | 66 20 6e 6f 20 67 65 6e |..../* i|f no gen|
|000030f0| 65 72 61 74 69 6f 6e 73 | 20 6e 65 65 64 65 64 20 |erations| needed |
|00003100| 2a 2f 0a 58 09 09 7a 6f | 6f 5f 68 65 61 64 65 72 |*/.X..zo|o_header|
|00003110| 2e 76 64 61 74 61 20 3d | 20 28 56 46 4c 5f 4f 4e |.vdata =| (VFL_ON|
|00003120| 7c 47 45 4e 5f 44 45 46 | 41 55 4c 54 29 3b 20 2f ||GEN_DEF|AULT); /|
|00003130| 2a 20 67 65 6e 65 72 61 | 74 69 6f 6e 73 20 6f 6e |* genera|tions on|
|00003140| 20 2a 2f 0a 58 20 20 20 | 66 77 72 5f 7a 6f 6f 68 | */.X |fwr_zooh|
|00003150| 20 28 26 7a 6f 6f 5f 68 | 65 61 64 65 72 2c 20 7a | (&zoo_h|eader, z|
|00003160| 6f 6f 5f 66 69 6c 65 29 | 3b 0a 58 09 7a 67 65 6e |oo_file)|;.X.zgen|
|00003170| 73 20 3d 20 47 45 4e 5f | 44 45 46 41 55 4c 54 3b |s = GEN_|DEFAULT;|
|00003180| 0a 58 20 20 20 7a 6f 6f | 73 65 65 6b 20 28 7a 6f |.X zoo|seek (zo|
|00003190| 6f 5f 66 69 6c 65 2c 20 | 7a 6f 6f 5f 68 65 61 64 |o_file, |zoo_head|
|000031a0| 65 72 2e 7a 6f 6f 5f 73 | 74 61 72 74 2c 20 30 29 |er.zoo_s|tart, 0)|
|000031b0| 3b 20 2f 2a 20 73 65 65 | 6b 20 74 6f 20 77 68 65 |; /* see|k to whe|
|000031c0| 72 65 20 64 61 74 61 20 | 62 65 67 69 6e 73 20 2a |re data |begins *|
|000031d0| 2f 0a 58 7d 20 65 6c 73 | 65 20 7b 0a 58 20 20 20 |/.X} els|e {.X |
|000031e0| 2f 2a 20 72 65 61 64 20 | 68 65 61 64 65 72 20 61 |/* read |header a|
|000031f0| 6e 64 20 72 65 77 72 69 | 74 65 20 77 69 74 68 20 |nd rewri|te with |
|00003200| 75 70 64 61 74 65 64 20 | 76 65 72 73 69 6f 6e 20 |updated |version |
|00003210| 6e 75 6d 62 65 72 73 2c | 20 70 72 65 73 65 72 76 |numbers,| preserv|
|00003220| 69 6e 67 0a 58 09 20 20 | 20 68 65 61 64 65 72 20 |ing.X. | header |
|00003230| 74 79 70 65 20 2a 2f 0a | 58 20 20 20 72 77 68 65 |type */.|X rwhe|
|00003240| 61 64 65 72 20 28 26 7a | 6f 6f 5f 68 65 61 64 65 |ader (&z|oo_heade|
|00003250| 72 2c 20 7a 6f 6f 5f 66 | 69 6c 65 2c 20 31 29 3b |r, zoo_f|ile, 1);|
|00003260| 0a 58 09 7a 67 65 6e 73 | 20 3d 20 7a 6f 6f 5f 68 |.X.zgens| = zoo_h|
|00003270| 65 61 64 65 72 2e 76 64 | 61 74 61 20 26 20 56 46 |eader.vd|ata & VF|
|00003280| 4c 5f 47 45 4e 3b 09 09 | 09 2f 2a 20 67 65 74 20 |L_GEN;..|./* get |
|00003290| 61 72 63 68 69 76 65 20 | 67 65 6e 65 72 61 74 69 |archive |generati|
|000032a0| 6f 6e 73 20 2a 2f 0a 58 | 20 20 20 2f 2a 20 69 6e |ons */.X| /* in|
|000032b0| 69 74 69 61 6c 69 7a 65 | 20 6c 61 74 65 73 74 5f |itialize| latest_|
|000032c0| 6e 61 6d 65 20 74 6f 20 | 6e 75 6c 6c 20 73 74 72 |name to |null str|
|000032d0| 69 6e 67 20 2a 2f 0a 58 | 09 2f 2a 20 4e 4f 54 45 |ing */.X|./* NOTE|
|000032e0| 3a 20 20 6c 61 74 65 73 | 74 5f 6e 61 6d 65 20 69 |: lates|t_name i|
|000032f0| 73 20 6e 6f 74 20 63 75 | 72 72 65 6e 74 6c 79 20 |s not cu|rrently |
|00003300| 75 73 65 64 20 66 6f 72 | 20 61 6e 79 74 68 69 6e |used for| anythin|
|00003310| 67 2c 20 62 75 74 0a 58 | 09 09 6d 61 79 20 62 65 |g, but.X|..may be|
|00003320| 20 75 73 65 64 20 69 6e | 20 74 68 65 20 66 75 74 | used in| the fut|
|00003330| 75 72 65 20 66 6f 72 20 | 69 6e 73 65 72 74 69 6e |ure for |insertin|
|00003340| 67 20 66 69 6c 65 73 20 | 69 6e 74 6f 20 74 68 65 |g files |into the|
|00003350| 0a 58 09 09 61 72 63 68 | 69 76 65 20 69 6e 20 61 |.X..arch|ive in a|
|00003360| 6c 70 68 61 62 65 74 69 | 63 20 6f 72 64 65 72 2e |lphabeti|c order.|
|00003370| 20 2a 2f 0a 58 20 20 20 | 2a 6c 61 74 65 73 74 5f | */.X |*latest_|
|00003380| 6e 61 6d 65 20 3d 20 27 | 5c 30 27 3b 0a 58 0a 58 |name = '|\0';.X.X|
|00003390| 20 20 20 2f 2a 20 53 6b | 69 70 20 65 78 69 73 74 | /* Sk|ip exist|
|000033a0| 69 6e 67 20 66 69 6c 65 | 73 20 62 75 74 20 61 64 |ing file|s but ad|
|000033b0| 64 20 74 68 65 6d 20 74 | 6f 20 61 20 6c 69 73 74 |d them t|o a list|
|000033c0| 2e 20 20 54 68 65 20 76 | 61 72 69 61 62 6c 65 20 |. The v|ariable |
|000033d0| 6c 61 73 74 5f 6f 6c 64 | 20 0a 58 20 20 20 67 65 |last_old| .X ge|
|000033e0| 74 73 20 74 68 65 20 74 | 61 69 6c 20 6f 66 20 74 |ts the t|ail of t|
|000033f0| 68 65 20 6f 6c 64 20 63 | 68 61 69 6e 20 6f 66 20 |he old c|hain of |
|00003400| 64 69 72 65 63 74 6f 72 | 79 20 65 6e 74 72 69 65 |director|y entrie|
|00003410| 73 20 2a 2f 0a 58 20 20 | 20 73 6b 69 70 5f 66 69 |s */.X | skip_fi|
|00003420| 6c 65 73 20 28 7a 6f 6f | 5f 66 69 6c 65 2c 20 26 |les (zoo|_file, &|
|00003430| 6c 61 74 65 73 74 5f 64 | 61 74 65 2c 20 26 6c 61 |latest_d|ate, &la|
|00003440| 74 65 73 74 5f 74 69 6d | 65 2c 20 26 64 65 6c 63 |test_tim|e, &delc|
|00003450| 6f 75 6e 74 2c 20 0a 58 | 20 20 20 20 20 20 20 20 |ount, .X| |
|00003460| 20 20 20 20 20 20 20 6c | 61 74 65 73 74 5f 6e 61 | l|atest_na|
|00003470| 6d 65 2c 20 26 6c 61 73 | 74 5f 6f 6c 64 29 3b 0a |me, &las|t_old);.|
|00003480| 58 7d 0a 58 2f 2a 20 54 | 68 65 20 66 69 6c 65 20 |X}.X/* T|he file |
|00003490| 70 6f 69 6e 74 65 72 20 | 69 73 20 6e 6f 77 20 70 |pointer |is now p|
|000034a0| 6f 73 69 74 69 6f 6e 65 | 64 20 63 6f 72 72 65 63 |ositione|d correc|
|000034b0| 74 6c 79 20 74 6f 20 61 | 64 64 20 61 20 66 69 6c |tly to a|dd a fil|
|000034c0| 65 20 74 6f 20 61 72 63 | 68 69 76 65 2c 20 0a 58 |e to arc|hive, .X|
|000034d0| 75 6e 6c 65 73 73 20 74 | 68 65 20 6e 75 6c 6c 20 |unless t|he null |
|000034e0| 64 69 72 65 63 74 6f 72 | 79 20 65 6e 74 72 79 20 |director|y entry |
|000034f0| 69 73 20 74 6f 6f 20 73 | 68 6f 72 74 2e 20 20 54 |is too s|hort. T|
|00003500| 68 69 73 20 77 69 6c 6c | 20 62 65 20 66 69 78 65 |his will| be fixe|
|00003510| 64 20 62 65 6c 6f 77 2e | 20 2a 2f 0a 58 0a 58 2f |d below.| */.X.X/|
|00003520| 2a 20 49 66 20 77 65 20 | 61 72 65 20 6a 75 73 74 |* If we |are just|
|00003530| 20 73 65 74 74 69 6e 67 | 20 74 69 6d 65 2c 20 64 | setting| time, d|
|00003540| 6f 20 69 74 20 61 6e 64 | 20 72 75 6e 2e 20 2a 2f |o it and| run. */|
|00003550| 0a 58 69 66 20 28 7a 6f | 6f 74 69 6d 65 29 20 7b |.Xif (zo|otime) {|
|00003560| 0a 58 23 69 66 64 65 66 | 20 4e 49 58 54 49 4d 45 |.X#ifdef| NIXTIME|
|00003570| 0a 58 20 20 20 7a 6f 6f | 63 6c 6f 73 65 20 28 7a |.X zoo|close (z|
|00003580| 6f 6f 5f 66 69 6c 65 29 | 3b 0a 58 20 20 20 73 65 |oo_file)|;.X se|
|00003590| 74 75 74 69 6d 65 20 28 | 7a 6f 6f 5f 70 61 74 68 |tutime (|zoo_path|
|000035a0| 2c 20 6c 61 74 65 73 74 | 5f 64 61 74 65 2c 20 6c |, latest|_date, l|
|000035b0| 61 74 65 73 74 5f 74 69 | 6d 65 29 3b 0a 58 23 65 |atest_ti|me);.X#e|
|000035c0| 6c 73 65 0a 58 20 20 20 | 73 65 74 74 69 6d 65 20 |lse.X |settime |
|000035d0| 28 7a 6f 6f 5f 66 69 6c | 65 2c 20 6c 61 74 65 73 |(zoo_fil|e, lates|
|000035e0| 74 5f 64 61 74 65 2c 20 | 6c 61 74 65 73 74 5f 74 |t_date, |latest_t|
|000035f0| 69 6d 65 29 3b 0a 58 20 | 20 20 7a 6f 6f 63 6c 6f |ime);.X | zooclo|
|00003600| 73 65 20 28 7a 6f 6f 5f | 66 69 6c 65 29 3b 0a 58 |se (zoo_|file);.X|
|00003610| 23 65 6e 64 69 66 0a 58 | 20 20 20 70 72 74 65 72 |#endif.X| prter|
|00003620| 72 6f 72 20 28 27 6d 27 | 2c 20 22 41 72 63 68 69 |ror ('m'|, "Archi|
|00003630| 76 65 20 74 69 6d 65 20 | 61 64 6a 75 73 74 65 64 |ve time |adjusted|
|00003640| 2e 5c 6e 22 29 3b 0a 58 | 20 20 20 7a 6f 6f 65 78 |.\n");.X| zooex|
|00003650| 69 74 20 28 30 29 3b 0a | 58 7d 0a 58 0a 58 2f 2a |it (0);.|X}.X.X/*|
|00003660| 20 6d 61 6b 65 20 6c 69 | 73 74 20 6f 66 20 66 69 | make li|st of fi|
|00003670| 6c 65 73 2c 20 65 78 63 | 6c 75 64 69 6e 67 20 61 |les, exc|luding a|
|00003680| 72 63 68 69 76 65 20 61 | 6e 64 20 69 74 73 20 62 |rchive a|nd its b|
|00003690| 61 63 6b 75 70 20 2a 2f | 0a 58 6c 6f 6e 67 65 73 |ackup */|.Xlonges|
|000036a0| 74 20 3d 20 4c 4f 4e 47 | 45 53 54 3b 0a 58 69 66 |t = LONG|EST;.Xif|
|000036b0| 20 28 21 69 6e 61 72 67 | 73 29 20 7b 0a 58 20 20 | (!inarg|s) {.X |
|000036c0| 20 6d 61 6b 65 6c 69 73 | 74 28 61 72 67 63 2c 20 | makelis|t(argc, |
|000036d0| 61 72 67 76 2c 20 66 6c | 69 73 74 2c 20 4d 41 58 |argv, fl|ist, MAX|
|000036e0| 41 44 44 2d 32 2c 20 7a | 6f 6f 5f 66 6e 61 6d 65 |ADD-2, z|oo_fname|
|000036f0| 2c 20 7a 6f 6f 5f 62 61 | 6b 2c 20 22 2e 22 2c 20 |, zoo_ba|k, ".", |
|00003700| 26 6c 6f 6e 67 65 73 74 | 29 3b 0a 58 20 20 20 2f |&longest|);.X /|
|00003710| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|00003720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003730| 20 20 20 20 20 5e 5e 20 | 20 20 20 20 20 20 20 20 | ^^ | |
|00003740| 5e 5e 20 20 20 20 20 20 | 20 5e 5e 20 65 78 63 6c |^^ | ^^ excl|
|00003750| 75 64 65 20 2a 2f 0a 58 | 7d 0a 58 0a 58 66 70 74 |ude */.X|}.X.Xfpt|
|00003760| 72 20 3d 20 30 3b 09 2f | 2a 20 72 65 61 64 79 20 |r = 0;./|* ready |
|00003770| 74 6f 20 67 65 74 20 66 | 69 6c 65 6e 61 6d 65 20 |to get f|ilename |
|00003780| 28 69 66 20 6d 61 6b 65 | 6c 69 73 74 28 29 20 77 |(if make|list() w|
|00003790| 61 73 20 63 61 6c 6c 65 | 64 29 20 6f 72 20 74 6f |as calle|d) or to|
|000037a0| 0a 58 09 09 09 09 09 62 | 65 67 69 6e 20 61 64 64 |.X.....b|egin add|
|000037b0| 69 6e 67 20 66 69 6c 65 | 6e 61 6d 65 73 20 28 69 |ing file|names (i|
|000037c0| 66 20 72 65 61 64 69 6e | 67 20 74 68 65 6d 20 66 |f readin|g them f|
|000037d0| 72 6f 6d 20 73 74 64 69 | 6e 29 20 2a 2f 0a 58 0a |rom stdi|n) */.X.|
|000037e0| 58 77 68 69 6c 65 20 28 | 31 29 20 7b 0a 58 20 20 |Xwhile (|1) {.X |
|000037f0| 20 75 6e 73 69 67 6e 65 | 64 20 69 6e 74 20 74 68 | unsigne|d int th|
|00003800| 69 73 5f 64 61 74 65 2c | 20 74 68 69 73 5f 74 69 |is_date,| this_ti|
|00003810| 6d 65 3b 0a 58 20 20 20 | 69 6e 74 20 49 4e 4c 49 |me;.X |int INLI|
|00003820| 53 54 3b 20 2f 2a 20 62 | 6f 6f 6c 65 61 6e 20 2a |ST; /* b|oolean *|
|00003830| 2f 0a 58 20 20 20 69 6e | 74 20 52 45 43 45 4e 54 |/.X in|t RECENT|
|00003840| 3b 20 2f 2a 20 62 6f 6f | 6c 65 61 6e 20 2a 2f 0a |; /* boo|lean */.|
|00003850| 58 20 20 20 69 6e 74 20 | 64 61 6e 67 65 72 3b 20 |X int |danger; |
|00003860| 2f 2a 20 69 66 20 75 70 | 64 61 74 65 20 72 65 71 |/* if up|date req|
|00003870| 75 65 73 74 65 64 20 61 | 6e 64 20 64 69 73 6b 20 |uested a|nd disk |
|00003880| 63 6f 70 79 20 69 73 20 | 6f 75 74 20 6f 66 20 64 |copy is |out of d|
|00003890| 61 74 65 20 2a 2f 0a 58 | 09 69 66 20 28 69 6e 61 |ate */.X|.if (ina|
|000038a0| 72 67 73 29 20 7b 0a 58 | 09 61 67 61 69 6e 3a 20 |rgs) {.X|.again: |
|000038b0| 2f 2a 20 6c 6f 6f 70 20 | 62 61 63 6b 20 69 66 20 |/* loop |back if |
|000038c0| 66 69 6c 65 6e 61 6d 65 | 20 77 61 73 20 73 61 6d |filename| was sam|
|000038d0| 65 20 61 73 20 61 72 63 | 68 69 76 65 20 6e 61 6d |e as arc|hive nam|
|000038e0| 65 20 6f 72 20 69 74 73 | 20 62 61 63 6b 75 70 20 |e or its| backup |
|000038f0| 2a 2f 0a 58 09 09 74 68 | 69 73 5f 70 61 74 68 20 |*/.X..th|is_path |
|00003900| 3d 20 67 65 74 73 74 64 | 69 6e 28 29 3b 09 09 09 |= getstd|in();...|
|00003910| 2f 2a 20 70 61 74 68 6e | 61 6d 65 20 66 72 6f 6d |/* pathn|ame from|
|00003920| 20 73 74 64 69 6e 2c 20 | 69 6e 20 73 74 61 74 69 | stdin, |in stati|
|00003930| 63 20 61 72 65 61 20 2a | 2f 0a 58 09 09 69 66 20 |c area *|/.X..if |
|00003940| 28 74 68 69 73 5f 70 61 | 74 68 20 21 3d 20 4e 55 |(this_pa|th != NU|
|00003950| 4c 4c 29 20 7b 0a 58 09 | 09 09 69 66 20 28 73 61 |LL) {.X.|..if (sa|
|00003960| 6d 65 66 69 6c 65 20 28 | 6e 61 6d 65 70 74 72 28 |mefile (|nameptr(|
|00003970| 7a 6f 6f 5f 66 6e 61 6d | 65 29 2c 6e 61 6d 65 70 |zoo_fnam|e),namep|
|00003980| 74 72 28 74 68 69 73 5f | 70 61 74 68 29 29 20 7c |tr(this_|path)) ||
|00003990| 7c 0a 58 09 09 09 09 09 | 09 73 61 6d 65 66 69 6c ||.X.....|.samefil|
|000039a0| 65 20 28 6e 61 6d 65 70 | 74 72 28 7a 6f 6f 5f 62 |e (namep|tr(zoo_b|
|000039b0| 61 6b 29 2c 6e 61 6d 65 | 70 74 72 28 74 68 69 73 |ak),name|ptr(this|
|000039c0| 5f 70 61 74 68 29 29 29 | 0a 58 09 09 09 09 67 6f |_path)))|.X....go|
|000039d0| 74 6f 20 61 67 61 69 6e | 3b 20 09 09 09 09 2f 2a |to again|; ..../*|
|000039e0| 20 64 6f 6e 27 74 20 61 | 64 64 20 61 72 63 68 69 | don't a|dd archi|
|000039f0| 76 65 20 74 6f 20 69 74 | 73 65 6c 66 20 2a 2f 0a |ve to it|self */.|
|00003a00| 58 09 09 09 6d 6f 64 70 | 61 74 68 20 28 74 68 69 |X...modp|ath (thi|
|00003a10| 73 5f 70 61 74 68 29 3b | 0a 58 09 09 2f 2a 20 69 |s_path);|.X../* i|
|00003a20| 66 20 6d 6f 76 69 6e 67 | 20 66 69 6c 65 73 2c 20 |f moving| files, |
|00003a30| 61 64 64 20 74 6f 20 6c | 69 73 74 20 66 6f 72 20 |add to l|ist for |
|00003a40| 6c 61 74 65 72 20 64 65 | 6c 65 74 69 6f 6e 3b 20 |later de|letion; |
|00003a50| 20 69 66 20 6c 69 73 74 | 20 6f 76 65 72 66 6c 6f | if list| overflo|
|00003a60| 77 73 2c 0a 58 09 09 09 | 74 65 72 6d 69 6e 61 74 |ws,.X...|terminat|
|00003a70| 65 20 61 64 64 69 74 69 | 6f 6e 20 6c 6f 6f 70 20 |e additi|on loop |
|00003a80| 61 6e 64 20 67 69 76 65 | 20 77 61 72 6e 69 6e 67 |and give| warning|
|00003a90| 20 6d 65 73 73 61 67 65 | 20 2a 2f 0a 58 09 09 09 | message| */.X...|
|00003aa0| 69 66 20 28 6d 6f 76 65 | 29 20 7b 0a 58 09 09 09 |if (move|) {.X...|
|00003ab0| 09 69 66 20 28 66 70 74 | 72 20 3e 3d 20 4d 41 58 |.if (fpt|r >= MAX|
|00003ac0| 41 44 44 2d 32 29 20 7b | 0a 58 09 09 09 09 09 70 |ADD-2) {|.X.....p|
|00003ad0| 72 74 65 72 72 6f 72 20 | 28 27 77 27 2c 20 74 6f |rterror |('w', to|
|00003ae0| 6f 5f 6d 61 6e 79 5f 66 | 69 6c 65 73 2c 20 4d 41 |o_many_f|iles, MA|
|00003af0| 58 41 44 44 2d 32 29 3b | 0a 58 09 09 09 09 09 74 |XADD-2);|.X.....t|
|00003b00| 68 69 73 5f 70 61 74 68 | 20 3d 20 4e 55 4c 4c 3b |his_path| = NULL;|
|00003b10| 0a 58 09 09 09 09 7d 20 | 65 6c 73 65 0a 58 09 09 |.X....} |else.X..|
|00003b20| 09 09 09 66 6c 69 73 74 | 5b 66 70 74 72 2b 2b 5d |...flist|[fptr++]|
|00003b30| 20 3d 20 73 74 72 64 75 | 70 20 28 74 68 69 73 5f | = strdu|p (this_|
|00003b40| 70 61 74 68 29 3b 0a 58 | 09 09 09 7d 0a 58 09 09 |path);.X|...}.X..|
|00003b50| 7d 0a 58 09 7d 20 65 6c | 73 65 20 20 7b 0a 58 09 |}.X.} el|se {.X.|
|00003b60| 09 74 68 69 73 5f 70 61 | 74 68 20 3d 20 66 6c 69 |.this_pa|th = fli|
|00003b70| 73 74 5b 66 70 74 72 2b | 2b 5d 3b 0a 58 09 7d 0a |st[fptr+|+];.X.}.|
|00003b80| 58 09 2f 2a 20 65 78 69 | 74 20 74 68 65 20 61 64 |X./* exi|t the ad|
|00003b90| 64 69 74 69 6f 6e 20 6c | 6f 6f 70 20 77 68 65 6e |dition l|oop when|
|00003ba0| 20 6e 6f 20 6d 6f 72 65 | 20 70 61 74 68 6e 61 6d | no more| pathnam|
|00003bb0| 65 73 20 61 72 65 20 6c | 65 66 74 20 2a 2f 0a 58 |es are l|eft */.X|
|00003bc0| 09 69 66 20 28 74 68 69 | 73 5f 70 61 74 68 20 3d |.if (thi|s_path =|
|00003bd0| 3d 20 4e 55 4c 4c 29 20 | 7b 0a 58 09 09 2f 2a 20 |= NULL) |{.X../* |
|00003be0| 69 6e 20 63 61 73 65 20 | 73 74 64 69 6e 20 77 61 |in case |stdin wa|
|00003bf0| 73 20 62 65 69 6e 67 20 | 72 65 61 64 2c 20 6d 61 |s being |read, ma|
|00003c00| 6b 65 20 73 75 72 65 20 | 66 6c 69 73 74 20 69 73 |ke sure |flist is|
|00003c10| 20 4e 55 4c 4c 2d 74 65 | 72 6d 69 6e 61 74 65 64 | NULL-te|rminated|
|00003c20| 20 2a 2f 0a 58 09 09 66 | 6c 69 73 74 5b 66 70 74 | */.X..f|list[fpt|
|00003c30| 72 5d 20 3d 20 4e 55 4c | 4c 3b 0a 58 09 09 62 72 |r] = NUL|L;.X..br|
|00003c40| 65 61 6b 3b 0a 58 09 7d | 0a 58 0a 58 20 20 20 62 |eak;.X.}|.X.X b|
|00003c50| 61 73 65 6e 61 6d 65 20 | 28 74 68 69 73 5f 70 61 |asename |(this_pa|
|00003c60| 74 68 2c 20 74 68 69 73 | 5f 66 6e 61 6d 65 29 3b |th, this|_fname);|
|00003c70| 20 20 20 2f 2a 20 67 65 | 74 20 6a 75 73 74 20 66 | /* ge|t just f|
|00003c80| 69 6c 65 6e 61 6d 65 20 | 66 6f 72 20 6c 61 74 65 |ilename |for late|
|00003c90| 72 20 2a 2f 0a 58 0a 58 | 20 20 20 74 68 69 73 5f |r */.X.X| this_|
|00003ca0| 66 69 6c 65 20 3d 20 7a | 6f 6f 6f 70 65 6e 28 74 |file = z|ooopen(t|
|00003cb0| 68 69 73 5f 70 61 74 68 | 2c 20 5a 5f 52 45 41 44 |his_path|, Z_READ|
|00003cc0| 29 3b 0a 58 20 20 20 69 | 66 20 28 74 68 69 73 5f |);.X i|f (this_|
|00003cd0| 66 69 6c 65 20 3d 3d 20 | 4e 4f 46 49 4c 45 29 20 |file == |NOFILE) |
|00003ce0| 7b 0a 58 20 20 20 20 20 | 20 70 72 74 65 72 72 6f |{.X | prterro|
|00003cf0| 72 20 28 27 65 27 2c 20 | 63 6f 75 6c 64 5f 6e 6f |r ('e', |could_no|
|00003d00| 74 5f 6f 70 65 6e 2c 20 | 74 68 69 73 5f 70 61 74 |t_open, |this_pat|
|00003d10| 68 29 3b 0a 58 20 20 20 | 20 20 20 65 78 69 74 5f |h);.X | exit_|
|00003d20| 73 74 61 74 75 73 2b 2b | 3b 0a 58 20 20 20 20 20 |status++|;.X |
|00003d30| 20 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 20 20 20 7d | continu|e;.X }|
|00003d40| 0a 58 0a 58 23 69 66 6e | 64 65 66 20 50 4f 52 54 |.X.X#ifn|def PORT|
|00003d50| 41 42 4c 45 0a 58 20 20 | 20 2f 2a 20 54 65 73 74 |ABLE.X | /* Test|
|00003d60| 20 74 6f 20 73 65 65 20 | 69 66 20 74 68 69 73 20 | to see |if this |
|00003d70| 69 73 20 61 20 5a 20 66 | 6f 72 6d 61 74 20 66 69 |is a Z f|ormat fi|
|00003d80| 6c 65 2e 20 20 57 65 20 | 61 73 73 75 6d 65 20 74 |le. We |assume t|
|00003d90| 68 65 20 66 69 6c 65 20 | 69 73 20 5a 20 66 6f 72 |he file |is Z for|
|00003da0| 6d 61 74 0a 58 20 20 20 | 20 20 20 69 66 20 28 61 |mat.X | if (a|
|00003db0| 29 20 74 61 67 20 69 73 | 20 63 6f 72 72 65 63 74 |) tag is| correct|
|00003dc0| 20 61 6e 64 20 28 62 29 | 20 74 79 70 65 20 69 73 | and (b)| type is|
|00003dd0| 20 31 20 61 6e 64 20 28 | 63 29 20 65 6d 62 65 64 | 1 and (|c) embed|
|00003de0| 64 65 64 20 66 69 6c 65 | 6e 61 6d 65 0a 58 20 20 |ded file|name.X |
|00003df0| 20 20 20 20 69 73 20 6e | 6f 74 20 6c 6f 6e 67 65 | is n|ot longe|
|00003e00| 72 20 74 68 61 6e 20 46 | 4e 41 4d 45 53 49 5a 45 |r than F|NAMESIZE|
|00003e10| 2e 20 20 0a 58 20 20 20 | 2a 2f 0a 58 20 20 20 69 |. .X |*/.X i|
|00003e20| 66 20 28 7a 5f 66 6d 74 | 29 20 7b 0a 58 20 20 20 |f (z_fmt|) {.X |
|00003e30| 20 20 20 7a 6f 6f 72 65 | 61 64 20 28 74 68 69 73 | zoore|ad (this|
|00003e40| 5f 66 69 6c 65 2c 20 28 | 63 68 61 72 20 2a 29 20 |_file, (|char *) |
|00003e50| 26 74 69 6e 79 5f 68 65 | 61 64 65 72 2c 20 73 69 |&tiny_he|ader, si|
|00003e60| 7a 65 6f 66 28 74 69 6e | 79 5f 68 65 61 64 65 72 |zeof(tin|y_header|
|00003e70| 29 29 3b 0a 58 20 20 20 | 20 20 20 69 66 20 28 74 |));.X | if (t|
|00003e80| 69 6e 79 5f 68 65 61 64 | 65 72 2e 74 69 6e 79 74 |iny_head|er.tinyt|
|00003e90| 61 67 20 3d 3d 20 54 49 | 4e 59 54 41 47 20 26 26 |ag == TI|NYTAG &&|
|00003ea0| 20 74 69 6e 79 5f 68 65 | 61 64 65 72 2e 74 79 70 | tiny_he|ader.typ|
|00003eb0| 65 20 3d 3d 20 31 20 26 | 26 0a 58 20 20 20 20 20 |e == 1 &|&.X |
|00003ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ed0| 20 20 20 73 74 72 6c 65 | 6e 20 28 74 69 6e 79 5f | strle|n (tiny_|
|00003ee0| 68 65 61 64 65 72 2e 66 | 6e 61 6d 65 29 20 3c 3d |header.f|name) <=|
|00003ef0| 20 46 4e 41 4d 45 53 49 | 5a 45 29 0a 58 20 20 20 | FNAMESI|ZE).X |
|00003f00| 20 20 20 20 20 20 20 2f | 2a 20 6f 6b 20 2a 2f 20 | /|* ok */ |
|00003f10| 3b 0a 58 20 20 20 20 20 | 20 65 6c 73 65 20 7b 0a |;.X | else {.|
|00003f20| 58 20 20 20 20 20 20 20 | 20 20 7a 6f 6f 63 6c 6f |X | zooclo|
|00003f30| 73 65 20 28 74 68 69 73 | 5f 66 69 6c 65 29 3b 0a |se (this|_file);.|
|00003f40| 58 20 20 20 20 20 20 20 | 20 20 70 72 74 65 72 72 |X | prterr|
|00003f50| 6f 72 20 28 27 65 27 2c | 20 22 46 69 6c 65 20 25 |or ('e',| "File %|
|00003f60| 73 20 64 6f 65 73 20 6e | 6f 74 20 68 61 76 65 20 |s does n|ot have |
|00003f70| 5a 20 66 6f 72 6d 61 74 | 2e 5c 6e 22 2c 20 74 68 |Z format|.\n", th|
|00003f80| 69 73 5f 66 6e 61 6d 65 | 29 3b 0a 58 20 20 20 20 |is_fname|);.X |
|00003f90| 20 20 20 20 20 65 78 69 | 74 5f 73 74 61 74 75 73 | exi|t_status|
|00003fa0| 2b 2b 3b 0a 58 20 20 20 | 20 20 20 20 20 20 63 6f |++;.X | co|
|00003fb0| 6e 74 69 6e 75 65 3b 0a | 58 20 20 20 20 20 20 7d |ntinue;.|X }|
|00003fc0| 0a 58 20 20 20 7d 0a 58 | 23 65 6e 64 69 66 0a 58 |.X }.X|#endif.X|
|00003fd0| 0a 58 20 20 20 2f 2a 20 | 67 65 74 20 66 69 6c 65 |.X /* |get file|
|00003fe0| 20 74 69 6d 65 3b 20 20 | 61 6c 73 6f 20 66 69 78 | time; |also fix|
|00003ff0| 20 6e 61 6d 65 20 2a 2f | 0a 58 23 69 66 6e 64 65 | name */|.X#ifnde|
|00004000| 66 20 50 4f 52 54 41 42 | 4c 45 0a 58 20 20 20 69 |f PORTAB|LE.X i|
|00004010| 66 20 28 7a 5f 66 6d 74 | 29 20 7b 0a 58 20 20 20 |f (z_fmt|) {.X |
|00004020| 20 20 20 64 69 72 65 6e | 74 72 79 2e 64 61 74 65 | diren|try.date|
|00004030| 20 3d 20 74 69 6e 79 5f | 68 65 61 64 65 72 2e 64 | = tiny_|header.d|
|00004040| 61 74 65 3b 0a 58 20 20 | 20 20 20 20 64 69 72 65 |ate;.X | dire|
|00004050| 6e 74 72 79 2e 74 69 6d | 65 20 3d 20 74 69 6e 79 |ntry.tim|e = tiny|
|00004060| 5f 68 65 61 64 65 72 2e | 74 69 6d 65 3b 0a 58 20 |_header.|time;.X |
|00004070| 20 20 20 20 20 73 74 72 | 63 70 79 20 28 64 69 72 | str|cpy (dir|
|00004080| 65 6e 74 72 79 2e 66 6e | 61 6d 65 2c 20 74 69 6e |entry.fn|ame, tin|
|00004090| 79 5f 68 65 61 64 65 72 | 2e 66 6e 61 6d 65 29 3b |y_header|.fname);|
|000040a0| 0a 58 20 20 20 20 20 20 | 64 69 72 65 6e 74 72 79 |.X |direntry|
|000040b0| 2e 64 69 72 6c 65 6e 20 | 3d 20 64 69 72 65 6e 74 |.dirlen |= dirent|
|000040c0| 72 79 2e 6e 61 6d 6c 65 | 6e 20 3d 20 30 3b 0a 58 |ry.namle|n = 0;.X|
|000040d0| 20 20 20 7d 20 65 6c 73 | 65 20 7b 0a 58 23 65 6e | } els|e {.X#en|
|000040e0| 64 69 66 0a 58 0a 58 20 | 20 20 20 20 20 2f 2a 20 |dif.X.X | /* |
|000040f0| 47 65 74 20 74 69 6d 73 | 74 61 6d 70 20 6f 66 20 |Get tims|tamp of |
|00004100| 66 69 6c 65 20 62 65 69 | 6e 67 20 61 64 64 65 64 |file bei|ng added|
|00004110| 20 2a 2f 0a 58 23 69 66 | 64 65 66 20 47 45 54 55 | */.X#if|def GETU|
|00004120| 54 49 4d 45 0a 58 20 20 | 20 20 20 20 67 65 74 75 |TIME.X | getu|
|00004130| 74 69 6d 65 20 28 74 68 | 69 73 5f 70 61 74 68 2c |time (th|is_path,|
|00004140| 20 26 64 69 72 65 6e 74 | 72 79 2e 64 61 74 65 2c | &dirent|ry.date,|
|00004150| 20 26 64 69 72 65 6e 74 | 72 79 2e 74 69 6d 65 29 | &dirent|ry.time)|
|00004160| 3b 0a 58 23 65 6c 73 65 | 0a 58 20 20 20 20 20 20 |;.X#else|.X |
|00004170| 67 65 74 74 69 6d 65 20 | 28 74 68 69 73 5f 66 69 |gettime |(this_fi|
|00004180| 6c 65 2c 20 26 64 69 72 | 65 6e 74 72 79 2e 64 61 |le, &dir|entry.da|
|00004190| 74 65 2c 20 26 64 69 72 | 65 6e 74 72 79 2e 74 69 |te, &dir|entry.ti|
|000041a0| 6d 65 29 3b 0a 58 23 65 | 6e 64 69 66 0a 58 0a 58 |me);.X#e|ndif.X.X|
|000041b0| 09 09 2f 2a 20 73 61 76 | 65 20 66 69 6c 65 20 61 |../* sav|e file a|
|000041c0| 74 74 72 69 62 75 74 65 | 73 20 2a 2f 0a 58 23 69 |ttribute|s */.X#i|
|000041d0| 66 64 65 66 20 46 41 54 | 54 52 0a 58 09 09 2f 2a |fdef FAT|TR.X../*|
|000041e0| 20 77 65 20 65 78 70 65 | 63 74 20 67 65 74 66 61 | we expe|ct getfa|
|000041f0| 74 74 72 28 29 20 74 6f | 20 73 65 74 20 61 6c 6c |ttr() to| set all|
|00004200| 20 61 74 74 72 2e 20 62 | 69 74 73 3b 20 20 63 75 | attr. b|its; cu|
|00004210| 72 72 65 6e 74 6c 79 0a | 58 09 09 09 6f 6e 6c 79 |rrently.|X...only|
|00004220| 20 74 68 65 20 70 6f 72 | 74 61 62 6c 65 20 66 6f | the por|table fo|
|00004230| 72 6d 61 74 20 69 73 20 | 72 65 63 6f 67 6e 69 7a |rmat is |recogniz|
|00004240| 65 64 20 2a 2f 0a 58 09 | 09 7b 0a 58 23 20 69 66 |ed */.X.|.{.X# if|
|00004250| 64 65 66 20 46 41 54 54 | 52 5f 46 4e 41 4d 45 0a |def FATT|R_FNAME.|
|00004260| 58 09 09 09 75 6e 73 69 | 67 6e 65 64 20 6c 6f 6e |X...unsi|gned lon|
|00004270| 67 20 67 65 74 66 61 74 | 74 72 20 50 41 52 4d 53 |g getfat|tr PARMS|
|00004280| 20 28 28 63 68 61 72 20 | 2a 29 3b 0a 58 09 09 09 | ((char |*);.X...|
|00004290| 64 69 72 65 6e 74 72 79 | 2e 66 61 74 74 72 20 3d |direntry|.fattr =|
|000042a0| 20 67 65 74 66 61 74 74 | 72 20 28 74 68 69 73 5f | getfatt|r (this_|
|000042b0| 70 61 74 68 29 3b 0a 58 | 23 20 65 6c 73 65 0a 58 |path);.X|# else.X|
|000042c0| 09 09 09 75 6e 73 69 67 | 6e 65 64 20 6c 6f 6e 67 |...unsig|ned long|
|000042d0| 20 67 65 74 66 61 74 74 | 72 20 50 41 52 4d 53 20 | getfatt|r PARMS |
|000042e0| 28 28 5a 4f 4f 46 49 4c | 45 29 29 3b 0a 58 09 09 |((ZOOFIL|E));.X..|
|000042f0| 09 64 69 72 65 6e 74 72 | 79 2e 66 61 74 74 72 20 |.direntr|y.fattr |
|00004300| 3d 20 67 65 74 66 61 74 | 74 72 20 28 74 68 69 73 |= getfat|tr (this|
|00004310| 5f 66 69 6c 65 29 3b 0a | 58 23 20 65 6e 64 69 66 |_file);.|X# endif|
|00004320| 20 2f 2a 20 46 41 54 54 | 52 5f 46 4e 41 4d 45 20 | /* FATT|R_FNAME |
|00004330| 2a 2f 0a 58 09 09 7d 0a | 58 23 65 6c 73 65 0a 58 |*/.X..}.|X#else.X|
|00004340| 09 09 09 64 69 72 65 6e | 74 72 79 2e 66 61 74 74 |...diren|try.fatt|
|00004350| 72 20 3d 20 4e 4f 5f 46 | 41 54 54 52 3b 09 2f 2a |r = NO_F|ATTR;./*|
|00004360| 20 6e 6f 6e 65 20 2a 2f | 0a 58 23 65 6e 64 69 66 | none */|.X#endif|
|00004370| 20 2f 2a 20 46 41 54 54 | 52 20 2a 2f 0a 58 0a 58 | /* FATT|R */.X.X|
|00004380| 23 69 66 64 65 66 20 46 | 4f 4c 44 0a 58 20 20 20 |#ifdef F|OLD.X |
|00004390| 20 20 20 73 74 72 6c 77 | 72 28 74 68 69 73 5f 66 | strlw|r(this_f|
|000043a0| 6e 61 6d 65 29 3b 0a 58 | 23 65 6e 64 69 66 0a 58 |name);.X|#endif.X|
|000043b0| 20 20 20 20 20 20 64 6f | 73 6e 61 6d 65 20 28 74 | do|sname (t|
|000043c0| 68 69 73 5f 66 6e 61 6d | 65 2c 20 64 69 72 65 6e |his_fnam|e, diren|
|000043d0| 74 72 79 2e 66 6e 61 6d | 65 29 3b 20 20 2f 2a 20 |try.fnam|e); /* |
|000043e0| 4d 53 44 4f 53 20 66 69 | 6c 65 6e 61 6d 65 20 2a |MSDOS fi|lename *|
|000043f0| 2f 0a 58 0a 58 20 20 20 | 2f 2a 0a 58 20 20 20 53 |/.X.X |/*.X S|
|00004400| 74 6f 72 65 20 6c 6f 6e | 67 20 66 69 6c 65 6e 61 |tore lon|g filena|
|00004410| 6d 65 20 69 6e 74 6f 20 | 64 69 72 65 6e 74 72 79 |me into |direntry|
|00004420| 2e 6c 66 6e 61 6d 65 20 | 69 66 66 20 69 74 20 69 |.lfname |iff it i|
|00004430| 73 20 64 69 66 66 65 72 | 65 6e 74 20 66 72 6f 6d |s differ|ent from|
|00004440| 20 4d 53 44 4f 53 0a 58 | 20 20 20 66 69 6c 65 6e | MSDOS.X| filen|
|00004450| 61 6d 65 2e 20 20 41 6c | 73 6f 20 73 74 6f 72 65 |ame. Al|so store|
|00004460| 20 64 69 72 65 63 74 6f | 72 79 20 6e 61 6d 65 20 | directo|ry name |
|00004470| 69 66 20 6e 65 65 64 5f | 64 69 72 20 69 73 20 74 |if need_|dir is t|
|00004480| 72 75 65 2e 20 20 4d 6f | 76 65 64 20 6f 75 74 20 |rue. Mo|ved out |
|00004490| 6f 66 20 0a 58 20 20 20 | 7a 6f 6f 61 64 64 28 29 |of .X |zooadd()|
|000044a0| 20 73 6f 20 7a 6f 6f 61 | 64 64 28 29 20 64 6f 65 | so zooa|dd() doe|
|000044b0| 73 6e 27 74 20 67 65 74 | 20 74 6f 6f 20 62 69 67 |sn't get| too big|
|000044c0| 20 66 6f 72 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f | for opt|imizatio|
|000044d0| 6e 2e 0a 58 20 20 20 2a | 2f 0a 58 20 20 20 73 74 |n..X *|/.X st|
|000044e0| 6f 72 65 66 6e 61 6d 65 | 20 28 26 64 69 72 65 6e |orefname| (&diren|
|000044f0| 74 72 79 2c 20 74 68 69 | 73 5f 70 61 74 68 2c 20 |try, thi|s_path, |
|00004500| 6e 65 65 64 5f 64 69 72 | 29 3b 0a 58 0a 58 23 69 |need_dir|);.X.X#i|
|00004510| 66 6e 64 65 66 20 50 4f | 52 54 41 42 4c 45 0a 58 |fndef PO|RTABLE.X|
|00004520| 20 20 20 7d 0a 58 23 65 | 6e 64 69 66 0a 58 0a 58 | }.X#e|ndif.X.X|
|00004530| 23 69 66 64 65 66 20 44 | 45 42 55 47 0a 58 70 72 |#ifdef D|EBUG.Xpr|
|00004540| 69 6e 74 66 20 28 22 7a | 6f 6f 61 64 64 3a 20 20 |intf ("z|ooadd: |
|00004550| 64 69 72 65 6e 74 72 79 | 2e 6c 66 6e 61 6d 65 20 |direntry|.lfname |
|00004560| 3d 20 5b 25 73 5d 20 20 | 64 69 72 65 6e 74 72 79 |= [%s] |direntry|
|00004570| 2e 64 69 72 6e 61 6d 65 | 20 3d 20 5b 25 73 5d 5c |.dirname| = [%s]\|
|00004580| 6e 22 2c 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |n",.X | |
|00004590| 20 20 20 20 20 20 20 64 | 69 72 65 6e 74 72 79 2e | d|irentry.|
|000045a0| 6c 66 6e 61 6d 65 2c 20 | 64 69 72 65 6e 74 72 79 |lfname, |direntry|
|000045b0| 2e 64 69 72 6e 61 6d 65 | 29 3b 0a 58 23 65 6e 64 |.dirname|);.X#end|
|000045c0| 69 66 0a 58 0a 58 20 20 | 20 2f 2a 20 69 66 20 75 |if.X.X | /* if u|
|000045d0| 70 64 61 74 65 20 6f 70 | 74 69 6f 6e 2c 20 74 68 |pdate op|tion, th|
|000045e0| 65 6e 20 77 65 20 61 64 | 64 20 66 69 6c 65 20 69 |en we ad|d file i|
|000045f0| 66 20 69 74 20 69 73 20 | 61 6c 72 65 61 64 79 20 |f it is |already |
|00004600| 69 6e 20 74 68 65 20 61 | 72 63 68 69 76 65 20 0a |in the a|rchive .|
|00004610| 58 20 20 20 20 20 20 41 | 4e 44 20 74 68 65 20 61 |X A|ND the a|
|00004620| 72 63 68 69 76 65 64 20 | 66 69 6c 65 20 69 73 20 |rchived |file is |
|00004630| 6f 6c 64 65 72 20 2a 2f | 0a 58 0a 58 20 20 20 2f |older */|.X.X /|
|00004640| 2a 20 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |* The fo|llowing |
|00004650| 6c 6f 67 69 63 20 77 61 | 73 20 64 65 72 69 76 65 |logic wa|s derive|
|00004660| 64 20 66 72 6f 6d 20 61 | 20 4b 61 72 6e 61 75 67 |d from a| Karnaug|
|00004670| 68 20 6d 61 70 20 73 6f | 20 69 74 20 6d 61 79 0a |h map so| it may.|
|00004680| 58 20 20 20 20 20 20 62 | 65 20 68 61 72 64 20 74 |X b|e hard t|
|00004690| 6f 20 75 6e 64 65 72 73 | 74 61 6e 64 2e 20 20 45 |o unders|tand. E|
|000046a0| 73 73 65 6e 74 69 61 6c | 6c 79 2c 20 69 66 20 55 |ssential|ly, if U|
|000046b0| 3d 75 70 64 61 74 65 20 | 72 65 71 75 65 73 74 65 |=update |requeste|
|000046c0| 64 2c 0a 58 20 20 20 20 | 20 20 4e 3d 6e 65 77 20 |d,.X | N=new |
|000046d0| 66 69 6c 65 73 20 72 65 | 71 75 65 73 74 65 64 2c |files re|quested,|
|000046e0| 20 49 3d 66 69 6c 65 20 | 69 73 20 61 6c 72 65 61 | I=file |is alrea|
|000046f0| 64 79 20 69 6e 20 61 72 | 63 68 69 76 65 2c 20 61 |dy in ar|chive, a|
|00004700| 6e 64 0a 58 20 20 20 20 | 20 20 52 3d 66 69 6c 65 |nd.X | R=file|
|00004710| 20 62 65 69 6e 67 20 61 | 72 63 68 69 76 65 64 20 | being a|rchived |
|00004720| 69 73 20 6d 6f 72 65 20 | 72 65 63 65 6e 74 20 74 |is more |recent t|
|00004730| 68 61 6e 20 66 69 6c 65 | 20 61 6c 72 65 61 64 79 |han file| already|
|00004740| 20 69 6e 0a 58 20 20 20 | 20 20 20 61 72 63 68 69 | in.X | archi|
|00004750| 76 65 2c 20 74 68 65 6e | 20 74 68 65 20 62 6f 6f |ve, then| the boo|
|00004760| 6c 65 61 6e 20 65 71 75 | 61 74 69 6f 6e 20 69 73 |lean equ|ation is|
|00004770| 3a 0a 58 0a 58 20 20 20 | 20 20 20 61 64 64 20 3d |:.X.X | add =|
|00004780| 20 55 27 20 28 4e 27 20 | 2b 20 49 27 29 20 2b 20 | U' (N' |+ I') + |
|00004790| 55 20 28 49 52 20 20 2b | 20 49 27 4e 29 0a 58 20 |U (IR +| I'N).X |
|000047a0| 20 20 2a 2f 0a 58 0a 58 | 20 20 20 2f 2a 20 47 65 | */.X.X| /* Ge|
|000047b0| 74 20 74 68 65 20 66 69 | 6c 65 6e 61 6d 65 20 74 |t the fi|lename t|
|000047c0| 6f 20 75 73 65 20 66 6f | 72 20 74 68 69 73 20 61 |o use fo|r this a|
|000047d0| 64 64 69 74 69 6f 6e 2e | 20 20 2a 2f 0a 58 20 20 |ddition.| */.X |
|000047e0| 20 77 68 69 63 68 6e 61 | 6d 65 20 3d 20 63 68 6f | whichna|me = cho|
|000047f0| 6f 73 65 66 6e 61 6d 65 | 28 26 64 69 72 65 6e 74 |osefname|(&dirent|
|00004800| 72 79 29 3b 0a 58 0a 58 | 20 20 20 2f 2a 20 47 65 |ry);.X.X| /* Ge|
|00004810| 74 20 70 6f 73 69 74 69 | 6f 6e 20 69 6e 20 61 72 |t positi|on in ar|
|00004820| 63 68 69 76 65 20 6f 66 | 20 61 6e 79 20 6f 6c 64 |chive of| any old|
|00004830| 20 66 69 6c 65 20 6f 66 | 20 73 61 6d 65 20 6e 61 | file of| same na|
|00004840| 6d 65 2c 20 69 67 6e 6f | 72 69 6e 67 0a 58 09 09 |me, igno|ring.X..|
|00004850| 61 6e 79 20 64 69 72 65 | 63 74 6f 72 79 20 70 72 |any dire|ctory pr|
|00004860| 65 66 69 78 20 69 66 20 | 6e 65 65 64 5f 64 69 72 |efix if |need_dir|
|00004870| 20 69 73 20 6e 6f 74 20 | 74 72 75 65 2e 20 20 41 | is not |true. A|
|00004880| 6c 73 6f 20 67 65 74 20 | 69 74 73 0a 58 09 09 64 |lso get |its.X..d|
|00004890| 61 74 65 2c 20 74 69 6d | 65 2c 20 76 65 72 73 69 |ate, tim|e, versi|
|000048a0| 6f 6e 20 66 6c 61 67 2c | 20 61 6e 64 20 76 65 72 |on flag,| and ver|
|000048b0| 73 69 6f 6e 20 6e 75 6d | 62 65 72 2e 20 2a 2f 0a |sion num|ber. */.|
|000048c0| 58 20 20 20 70 72 65 76 | 5f 70 6f 73 20 3d 20 69 |X prev|_pos = i|
|000048d0| 6e 6c 69 73 74 20 28 66 | 75 6c 6c 70 61 74 68 20 |nlist (f|ullpath |
|000048e0| 28 26 64 69 72 65 6e 74 | 72 79 29 2c 20 26 74 68 |(&dirent|ry), &th|
|000048f0| 69 73 5f 64 61 74 65 2c | 20 26 74 68 69 73 5f 74 |is_date,| &this_t|
|00004900| 69 6d 65 2c 20 0a 58 09 | 09 09 09 26 74 68 69 73 |ime, .X.|...&this|
|00004910| 5f 76 65 72 73 69 6f 6e | 5f 6e 6f 2c 20 26 68 69 |_version|_no, &hi|
|00004920| 67 68 5f 76 66 6c 61 67 | 2c 20 26 68 69 67 68 5f |gh_vflag|, &high_|
|00004930| 76 65 72 73 69 6f 6e 5f | 6e 6f 2c 20 0a 58 09 09 |version_|no, .X..|
|00004940| 09 09 26 68 69 67 68 5f | 70 6f 73 2c 20 21 6e 65 |..&high_|pos, !ne|
|00004950| 65 64 5f 64 69 72 29 3b | 0a 58 0a 58 2f 2a 20 64 |ed_dir);|.X.X/* d|
|00004960| 65 66 69 6e 65 20 44 42 | 47 5f 49 4e 4c 49 53 54 |efine DB|G_INLIST|
|00004970| 20 66 6f 72 20 64 65 62 | 75 67 67 69 6e 67 20 62 | for deb|ugging b|
|00004980| 79 20 70 72 69 6e 74 69 | 6e 67 20 76 61 6c 75 65 |y printi|ng value|
|00004990| 73 20 72 65 74 75 72 6e | 65 64 20 62 79 20 69 6e |s return|ed by in|
|000049a0| 6c 69 73 74 28 29 20 2a | 2f 0a 58 23 69 66 64 65 |list() *|/.X#ifde|
|000049b0| 66 20 44 42 47 5f 49 4e | 4c 49 53 54 0a 58 09 70 |f DBG_IN|LIST.X.p|
|000049c0| 72 69 6e 74 66 20 28 22 | 46 52 4f 4d 20 69 6e 6c |rintf ("|FROM inl|
|000049d0| 69 73 74 28 29 3a 20 70 | 72 65 76 5f 70 6f 73 3d |ist(): p|rev_pos=|
|000049e0| 25 6c 64 2c 20 68 69 67 | 68 5f 70 6f 73 3d 25 6c |%ld, hig|h_pos=%l|
|000049f0| 64 5c 6e 22 2c 20 70 72 | 65 76 5f 70 6f 73 2c 20 |d\n", pr|ev_pos, |
|00004a00| 68 69 67 68 5f 70 6f 73 | 29 3b 0a 58 09 70 72 69 |high_pos|);.X.pri|
|00004a10| 6e 74 66 20 28 22 74 68 | 69 73 5f 76 65 72 73 69 |ntf ("th|is_versi|
|00004a20| 6f 6e 5f 6e 6f 3d 25 75 | 2c 20 68 69 67 68 5f 76 |on_no=%u|, high_v|
|00004a30| 66 6c 61 67 3d 25 34 78 | 2c 20 68 69 67 68 5f 76 |flag=%4x|, high_v|
|00004a40| 65 72 73 69 6f 6e 5f 6e | 6f 3d 25 75 5c 6e 22 2c |ersion_n|o=%u\n",|
|00004a50| 0a 58 09 09 09 09 74 68 | 69 73 5f 76 65 72 73 69 |.X....th|is_versi|
|00004a60| 6f 6e 5f 6e 6f 2c 20 20 | 20 20 68 69 67 68 5f 76 |on_no, | high_v|
|00004a70| 66 6c 61 67 2c 20 20 20 | 20 20 68 69 67 68 5f 76 |flag, | high_v|
|00004a80| 65 72 73 69 6f 6e 5f 6e | 6f 29 3b 0a 58 23 65 6e |ersion_n|o);.X#en|
|00004a90| 64 69 66 0a 58 0a 58 20 | 20 20 49 4e 4c 49 53 54 |dif.X.X | INLIST|
|00004aa0| 20 3d 20 70 72 65 76 5f | 70 6f 73 20 3e 20 30 3b | = prev_|pos > 0;|
|00004ab0| 20 20 2f 2a 20 61 6c 72 | 65 61 64 79 20 69 6e 20 | /* alr|eady in |
|00004ac0| 61 72 63 68 69 76 65 20 | 69 66 20 70 6f 73 69 74 |archive |if posit|
|00004ad0| 69 76 65 20 76 61 6c 75 | 65 20 2a 2f 0a 58 20 20 |ive valu|e */.X |
|00004ae0| 20 69 66 20 28 49 4e 4c | 49 53 54 29 20 7b 0a 58 | if (INL|IST) {.X|
|00004af0| 20 20 20 20 20 20 69 6e | 74 20 72 65 73 75 6c 74 | in|t result|
|00004b00| 3b 0a 58 20 20 20 20 20 | 20 72 65 73 75 6c 74 20 |;.X | result |
|00004b10| 3d 20 63 6d 70 6e 75 6d | 20 28 64 69 72 65 6e 74 |= cmpnum| (dirent|
|00004b20| 72 79 2e 64 61 74 65 2c | 20 64 69 72 65 6e 74 72 |ry.date,| direntr|
|00004b30| 79 2e 74 69 6d 65 2c 20 | 74 68 69 73 5f 64 61 74 |y.time, |this_dat|
|00004b40| 65 2c 20 74 68 69 73 5f | 74 69 6d 65 29 3b 0a 58 |e, this_|time);.X|
|00004b50| 20 20 20 20 20 20 52 45 | 43 45 4e 54 20 3d 20 72 | RE|CENT = r|
|00004b60| 65 73 75 6c 74 20 3e 20 | 30 3b 0a 58 20 20 20 20 |esult > |0;.X |
|00004b70| 20 20 64 61 6e 67 65 72 | 20 3d 20 72 65 73 75 6c | danger| = resul|
|00004b80| 74 20 3c 20 30 3b 0a 58 | 20 20 20 7d 20 65 6c 73 |t < 0;.X| } els|
|00004b90| 65 0a 58 20 20 20 20 20 | 20 64 61 6e 67 65 72 20 |e.X | danger |
|00004ba0| 3d 20 30 3b 20 2f 2a 20 | 41 6e 64 20 52 45 43 45 |= 0; /* |And RECE|
|00004bb0| 4e 54 20 69 73 20 75 6e | 64 65 66 69 6e 65 64 20 |NT is un|defined |
|00004bc0| 61 6e 64 20 73 68 6f 75 | 6c 64 20 6e 6f 74 20 62 |and shou|ld not b|
|00004bd0| 65 20 75 73 65 64 20 2a | 2f 0a 58 0a 58 20 20 20 |e used *|/.X.X |
|00004be0| 69 66 20 28 0a 58 20 20 | 20 20 20 20 20 20 20 21 |if (.X | !|
|00004bf0| 75 70 64 61 74 65 20 26 | 26 20 28 21 6e 65 77 20 |update &|& (!new |
|00004c00| 7c 7c 20 21 49 4e 4c 49 | 53 54 29 20 7c 7c 0a 58 ||| !INLI|ST) ||.X|
|00004c10| 20 20 20 20 20 20 20 20 | 20 75 70 64 61 74 65 20 | | update |
|00004c20| 26 26 20 28 49 4e 4c 49 | 53 54 20 26 26 20 52 45 |&& (INLI|ST && RE|
|00004c30| 43 45 4e 54 20 7c 7c 20 | 21 49 4e 4c 49 53 54 20 |CENT || |!INLIST |
|00004c40| 26 26 20 6e 65 77 29 0a | 58 20 20 20 20 20 20 29 |&& new).|X )|
|00004c50| 0a 58 20 20 20 20 20 20 | 20 20 20 3b 20 20 2f 2a |.X | ; /*|
|00004c60| 20 74 68 65 6e 20 63 6f | 6e 74 69 6e 75 65 20 61 | then co|ntinue a|
|00004c70| 6e 64 20 61 64 64 20 66 | 69 6c 65 20 2a 2f 0a 58 |nd add f|ile */.X|
|00004c80| 20 20 20 65 6c 73 65 20 | 7b 0a 58 20 20 20 20 20 | else |{.X |
|00004c90| 20 69 66 20 28 75 70 64 | 61 74 65 20 26 26 20 64 | if (upd|ate && d|
|00004ca0| 61 6e 67 65 72 29 0a 58 | 20 20 20 20 20 20 20 20 |anger).X| |
|00004cb0| 20 70 72 74 65 72 72 6f | 72 20 28 27 77 27 2c 20 | prterro|r ('w', |
|00004cc0| 22 41 72 63 68 69 76 65 | 64 20 63 6f 70 79 20 6f |"Archive|d copy o|
|00004cd0| 66 20 25 73 20 69 73 20 | 6e 65 77 65 72 2e 5c 6e |f %s is |newer.\n|
|00004ce0| 22 2c 20 77 68 69 63 68 | 6e 61 6d 65 29 3b 0a 58 |", which|name);.X|
|00004cf0| 20 20 20 20 20 20 7a 6f | 6f 63 6c 6f 73 65 20 28 | zo|oclose (|
|00004d00| 74 68 69 73 5f 66 69 6c | 65 29 3b 0a 58 20 20 20 |this_fil|e);.X |
|00004d10| 20 20 20 63 6f 6e 74 69 | 6e 75 65 3b 20 20 20 2f | conti|nue; /|
|00004d20| 2a 20 63 79 63 6c 65 20 | 62 61 63 6b 2c 20 73 6b |* cycle |back, sk|
|00004d30| 69 70 20 74 68 69 73 20 | 66 69 6c 65 20 2a 2f 0a |ip this |file */.|
|00004d40| 58 20 20 20 7d 0a 58 0a | 58 23 69 66 64 65 66 20 |X }.X.|X#ifdef |
|00004d50| 43 48 45 4b 44 49 52 0a | 58 20 20 20 2f 2a 20 44 |CHEKDIR.|X /* D|
|00004d60| 6f 6e 27 74 20 61 64 64 | 20 69 66 20 74 68 69 73 |on't add| if this|
|00004d70| 20 69 73 20 61 20 64 69 | 72 65 63 74 6f 72 79 20 | is a di|rectory |
|00004d80| 2a 2f 0a 58 20 20 20 69 | 66 20 28 69 73 61 64 69 |*/.X i|f (isadi|
|00004d90| 72 20 28 74 68 69 73 5f | 66 69 6c 65 29 29 20 7b |r (this_|file)) {|
|00004da0| 0a 58 20 20 20 20 20 20 | 7a 6f 6f 63 6c 6f 73 65 |.X |zooclose|
|00004db0| 20 28 74 68 69 73 5f 66 | 69 6c 65 29 3b 0a 58 20 | (this_f|ile);.X |
|00004dc0| 20 20 20 20 20 63 6f 6e | 74 69 6e 75 65 3b 0a 58 | con|tinue;.X|
|00004dd0| 20 20 20 7d 0a 58 23 65 | 6c 73 65 0a 58 23 20 69 | }.X#e|lse.X# i|
|00004de0| 66 64 65 66 20 43 48 45 | 4b 55 44 49 52 0a 58 20 |fdef CHE|KUDIR.X |
|00004df0| 20 20 2f 2a 20 44 6f 6e | 27 74 20 61 64 64 20 69 | /* Don|'t add i|
|00004e00| 66 20 74 68 69 73 20 69 | 73 20 61 20 64 69 72 65 |f this i|s a dire|
|00004e10| 63 74 6f 72 79 20 2a 2f | 0a 58 20 20 20 69 66 20 |ctory */|.X if |
|00004e20| 28 69 73 75 61 64 69 72 | 20 28 74 68 69 73 5f 70 |(isuadir| (this_p|
|00004e30| 61 74 68 29 29 20 7b 0a | 58 20 20 20 20 20 20 7a |ath)) {.|X z|
|00004e40| 6f 6f 63 6c 6f 73 65 20 | 28 74 68 69 73 5f 66 69 |ooclose |(this_fi|
|00004e50| 6c 65 29 3b 0a 58 20 20 | 20 20 20 20 63 6f 6e 74 |le);.X | cont|
|00004e60| 69 6e 75 65 3b 0a 58 20 | 20 20 7d 0a 58 23 20 65 |inue;.X | }.X# e|
|00004e70| 6e 64 69 66 20 2f 2a 20 | 43 48 45 4b 55 44 49 52 |ndif /* |CHEKUDIR|
|00004e80| 20 2a 2f 0a 58 23 65 6e | 64 69 66 20 2f 2a 20 43 | */.X#en|dif /* C|
|00004e90| 48 45 4b 44 49 52 20 2a | 2f 0a 58 0a 58 20 20 20 |HEKDIR *|/.X.X |
|00004ea0| 2f 2a 20 43 72 65 61 74 | 65 20 64 69 72 65 63 74 |/* Creat|e direct|
|00004eb0| 6f 72 79 20 65 6e 74 72 | 79 20 66 6f 72 20 6e 65 |ory entr|y for ne|
|00004ec0| 77 20 66 69 6c 65 20 28 | 62 75 74 20 64 6f 6e 27 |w file (|but don'|
|00004ed0| 74 20 61 64 64 20 6a 75 | 73 74 20 79 65 74 29 20 |t add ju|st yet) |
|00004ee0| 2a 2f 0a 58 20 20 20 2f | 2a 20 4e 4f 54 45 3a 20 |*/.X /|* NOTE: |
|00004ef0| 20 77 65 20 61 6c 72 65 | 61 64 79 20 67 6f 74 20 | we alre|ady got |
|00004f00| 66 69 6c 65 20 64 61 74 | 65 20 61 6e 64 20 74 69 |file dat|e and ti|
|00004f10| 6d 65 20 61 62 6f 76 65 | 20 66 6f 72 20 75 70 64 |me above| for upd|
|00004f20| 61 74 65 20 6f 70 74 69 | 6f 6e 20 2a 2f 0a 58 09 |ate opti|on */.X.|
|00004f30| 2f 2a 20 61 64 64 20 74 | 61 67 2c 20 74 79 70 65 |/* add t|ag, type|
|00004f40| 2c 20 74 69 6d 65 7a 6f | 6e 65 2c 20 73 74 72 75 |, timezo|ne, stru|
|00004f50| 63 2c 20 73 79 73 74 65 | 6d 5f 69 64 2c 20 61 6e |c, syste|m_id, an|
|00004f60| 64 20 76 61 72 5f 64 69 | 72 5f 6c 65 6e 20 2a 2f |d var_di|r_len */|
|00004f70| 0a 58 09 6e 65 77 64 69 | 72 20 28 26 64 69 72 65 |.X.newdi|r (&dire|
|00004f80| 6e 74 72 79 29 3b 0a 58 | 0a 58 09 69 66 20 28 21 |ntry);.X|.X.if (!|
|00004f90| 67 65 6e 73 6f 6e 20 26 | 26 20 7a 6f 6f 5f 73 74 |genson &|& zoo_st|
|00004fa0| 61 74 75 73 20 3d 3d 20 | 4e 45 57 5f 5a 4f 4f 20 |atus == |NEW_ZOO |
|00004fb0| 7c 7c 20 0a 58 09 09 09 | 09 28 7a 6f 6f 5f 68 65 ||| .X...|.(zoo_he|
|00004fc0| 61 64 65 72 2e 76 64 61 | 74 61 20 26 20 56 46 4c |ader.vda|ta & VFL|
|00004fd0| 5f 4f 4e 29 20 3d 3d 20 | 30 29 20 7b 0a 58 09 09 |_ON) == |0) {.X..|
|00004fe0| 64 69 72 65 6e 74 72 79 | 2e 76 66 6c 61 67 20 3d |direntry|.vflag =|
|00004ff0| 20 30 3b 0a 58 09 09 64 | 69 72 65 6e 74 72 79 2e | 0;.X..d|irentry.|
|00005000| 76 65 72 73 69 6f 6e 5f | 6e 6f 20 3d 20 30 3b 0a |version_|no = 0;.|
|00005010| 58 09 7d 0a 58 0a 58 20 | 20 20 2f 2a 20 0a 58 20 |X.}.X.X | /* .X |
|00005020| 20 20 57 72 69 74 65 20 | 61 20 6e 75 6c 6c 20 64 | Write |a null d|
|00005030| 69 72 65 6e 74 72 79 20 | 65 6e 74 72 79 2e 20 20 |irentry |entry. |
|00005040| 54 68 75 73 2c 20 69 66 | 20 61 6e 20 65 72 72 6f |Thus, if| an erro|
|00005050| 72 20 6f 63 63 75 72 73 | 20 6f 72 20 74 68 65 20 |r occurs| or the |
|00005060| 70 72 6f 67 72 61 6d 0a | 58 20 20 20 69 73 20 69 |program.|X is i|
|00005070| 6e 74 65 72 72 75 70 74 | 65 64 2c 20 74 68 65 20 |nterrupt|ed, the |
|00005080| 65 6e 64 20 6f 66 20 74 | 68 65 20 61 72 63 68 69 |end of t|he archi|
|00005090| 76 65 20 77 69 6c 6c 20 | 73 74 69 6c 6c 20 62 65 |ve will |still be|
|000050a0| 20 6d 65 61 6e 69 6e 67 | 66 75 6c 2e 0a 58 20 20 | meaning|ful..X |
|000050b0| 20 53 70 65 63 69 61 6c | 20 63 68 65 63 6b 20 6e | Special| check n|
|000050c0| 65 65 64 65 64 20 66 6f | 72 20 66 69 72 73 74 20 |eeded fo|r first |
|000050d0| 6f 6e 65 20 77 72 69 74 | 74 65 6e 2e 0a 58 20 20 |one writ|ten..X |
|000050e0| 20 2a 2f 0a 58 0a 58 20 | 20 20 64 69 72 65 6e 74 | */.X.X | dirent|
|000050f0| 72 79 2e 6e 65 78 74 20 | 3d 20 64 69 72 65 6e 74 |ry.next |= dirent|
|00005100| 72 79 2e 6f 66 66 73 65 | 74 20 3d 20 30 4c 3b 20 |ry.offse|t = 0L; |
|00005110| 20 20 20 20 2f 2a 20 74 | 72 61 69 6c 69 6e 67 20 | /* t|railing |
|00005120| 6e 75 6c 6c 20 65 6e 74 | 72 79 20 2a 2f 0a 58 20 |null ent|ry */.X |
|00005130| 20 20 74 68 69 73 5f 64 | 69 72 5f 6f 66 66 73 65 | this_d|ir_offse|
|00005140| 74 20 3d 20 7a 6f 6f 74 | 65 6c 6c 20 28 7a 6f 6f |t = zoot|ell (zoo|
|00005150| 5f 66 69 6c 65 29 3b 0a | 58 20 20 20 69 66 20 28 |_file);.|X if (|
|00005160| 21 66 69 72 73 74 66 69 | 6c 65 29 20 7b 0a 58 20 |!firstfi|le) {.X |
|00005170| 20 20 20 20 20 77 72 69 | 74 65 64 69 72 20 28 26 | wri|tedir (&|
|00005180| 64 69 72 65 6e 74 72 79 | 2c 20 7a 6f 6f 5f 66 69 |direntry|, zoo_fi|
|00005190| 6c 65 29 3b 0a 58 20 20 | 20 7d 20 65 6c 73 65 20 |le);.X | } else |
|000051a0| 7b 0a 58 20 20 20 20 20 | 20 2f 2a 0a 58 20 20 20 |{.X | /*.X |
|000051b0| 20 20 20 42 65 66 6f 72 | 65 20 61 64 64 69 6e 67 | Befor|e adding|
|000051c0| 20 74 68 65 20 66 69 72 | 73 74 20 66 69 6c 65 20 | the fir|st file |
|000051d0| 74 6f 20 74 68 65 20 61 | 72 63 68 69 76 65 2c 20 |to the a|rchive, |
|000051e0| 77 65 20 6d 75 73 74 20 | 6d 61 6b 65 20 73 75 72 |we must |make sur|
|000051f0| 65 20 74 68 61 74 0a 58 | 20 20 20 20 20 20 74 68 |e that.X| th|
|00005200| 65 20 70 72 65 76 69 6f | 75 73 20 64 69 72 65 63 |e previo|us direc|
|00005210| 74 6f 72 79 20 63 68 61 | 69 6e 20 28 69 66 20 61 |tory cha|in (if a|
|00005220| 6e 79 29 20 69 73 20 70 | 72 6f 70 65 72 6c 79 20 |ny) is p|roperly |
|00005230| 74 65 72 6d 69 6e 61 74 | 65 64 20 77 69 74 68 20 |terminat|ed with |
|00005240| 61 0a 58 20 20 20 20 20 | 20 6e 75 6c 6c 20 65 6e |a.X | null en|
|00005250| 74 72 79 20 6f 66 20 74 | 68 65 20 72 69 67 68 74 |try of t|he right|
|00005260| 20 73 69 7a 65 2e 20 20 | 49 66 20 74 68 69 73 20 | size. |If this |
|00005270| 69 73 20 61 20 6e 65 77 | 20 61 72 63 68 69 76 65 |is a new| archive|
|00005280| 2c 20 77 65 20 73 69 6d | 70 6c 79 0a 58 20 20 20 |, we sim|ply.X |
|00005290| 20 20 20 77 72 69 74 65 | 20 61 20 6e 65 77 20 6e | write| a new n|
|000052a0| 75 6c 6c 20 65 6e 74 72 | 79 20 6f 66 20 74 68 65 |ull entr|y of the|
|000052b0| 20 72 69 67 68 74 20 73 | 69 7a 65 2e 20 20 49 66 | right s|ize. If|
|000052c0| 20 74 68 69 73 20 69 73 | 20 61 6e 20 65 78 69 73 | this is| an exis|
|000052d0| 74 69 6e 67 0a 58 20 20 | 20 20 20 20 61 72 63 68 |ting.X | arch|
|000052e0| 69 76 65 2c 20 77 65 20 | 6d 75 73 74 20 63 68 65 |ive, we |must che|
|000052f0| 63 6b 20 74 68 65 20 73 | 69 7a 65 20 6f 66 20 74 |ck the s|ize of t|
|00005300| 68 65 20 70 72 65 76 69 | 6f 75 73 20 74 72 61 69 |he previ|ous trai|
|00005310| 6c 69 6e 67 20 6e 75 6c | 6c 20 65 6e 74 72 79 2e |ling nul|l entry.|
|00005320| 20 0a 58 20 20 20 20 20 | 20 49 66 20 69 74 20 69 | .X | If it i|
|00005330| 73 20 74 6f 6f 20 73 6d | 61 6c 6c 2c 20 77 65 20 |s too sm|all, we |
|00005340| 77 69 6c 6c 20 62 61 63 | 6b 20 75 70 20 74 6f 20 |will bac|k up to |
|00005350| 74 68 65 20 6d 6f 73 74 | 20 72 65 63 65 6e 74 20 |the most| recent |
|00005360| 72 65 61 6c 20 64 69 72 | 65 63 74 6f 72 79 0a 58 |real dir|ectory.X|
|00005370| 20 20 20 20 20 20 65 6e | 74 72 79 20 61 6e 64 20 | en|try and |
|00005380| 63 68 61 6e 67 65 20 69 | 74 73 20 2e 6e 65 78 74 |change i|ts .next|
|00005390| 20 66 69 65 6c 64 20 74 | 6f 20 70 6f 69 6e 74 20 | field t|o point |
|000053a0| 74 6f 20 65 6e 64 20 6f | 66 20 66 69 6c 65 2e 20 |to end o|f file. |
|000053b0| 20 0a 58 20 20 20 20 20 | 20 2a 2f 0a 58 0a 58 20 | .X | */.X.X |
|000053c0| 20 20 20 20 20 69 66 20 | 28 7a 6f 6f 5f 73 74 61 | if |(zoo_sta|
|000053d0| 74 75 73 20 3d 3d 20 4e | 45 57 5f 5a 4f 4f 29 20 |tus == N|EW_ZOO) |
|000053e0| 7b 0a 58 20 20 20 20 20 | 20 20 20 20 77 72 69 74 |{.X | writ|
|000053f0| 65 64 69 72 20 28 26 64 | 69 72 65 6e 74 72 79 2c |edir (&d|irentry,|
|00005400| 20 7a 6f 6f 5f 66 69 6c | 65 29 3b 20 20 20 20 20 | zoo_fil|e); |
|00005410| 20 20 20 2f 2a 20 77 72 | 69 74 65 20 6e 75 6c 6c | /* wr|ite null|
|00005420| 20 64 69 72 20 65 6e 74 | 72 79 20 2a 2f 0a 58 20 | dir ent|ry */.X |
|00005430| 20 20 20 20 20 7d 20 65 | 6c 73 65 20 7b 0a 58 20 | } e|lse {.X |
|00005440| 20 20 20 20 20 20 20 20 | 73 74 72 75 63 74 20 64 | |struct d|
|00005450| 69 72 65 6e 74 72 79 20 | 74 6d 70 65 6e 74 72 79 |irentry |tmpentry|
|00005460| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 6c 6f 6e 67 |;.X | long|
|00005470| 20 74 6d 70 70 6f 73 3b | 0a 58 20 20 20 20 20 20 | tmppos;|.X |
|00005480| 20 20 20 69 6e 74 20 6f | 6c 64 6c 65 6e 2c 20 6e | int o|ldlen, n|
|00005490| 65 77 6c 65 6e 3b 0a 58 | 20 20 20 20 20 20 20 20 |ewlen;.X| |
|000054a0| 20 74 6d 70 70 6f 73 20 | 3d 20 7a 6f 6f 74 65 6c | tmppos |= zootel|
|000054b0| 6c 20 28 7a 6f 6f 5f 66 | 69 6c 65 29 3b 0a 58 20 |l (zoo_f|ile);.X |
|000054c0| 20 20 20 20 20 20 20 20 | 66 72 64 5f 64 69 72 20 | |frd_dir |
|000054d0| 28 26 74 6d 70 65 6e 74 | 72 79 2c 20 7a 6f 6f 5f |(&tmpent|ry, zoo_|
|000054e0| 66 69 6c 65 29 3b 0a 58 | 23 64 65 66 69 6e 65 20 |file);.X|#define |
|000054f0| 20 44 49 52 4c 45 4e 28 | 78 29 20 20 20 28 28 78 | DIRLEN(|x) ((x|
|00005500| 2e 74 79 70 65 3c 32 29 | 20 3f 20 53 49 5a 5f 44 |.type<2)| ? SIZ_D|
|00005510| 49 52 20 3a 20 28 53 49 | 5a 5f 44 49 52 4c 2b 78 |IR : (SI|Z_DIRL+x|
|00005520| 2e 76 61 72 5f 64 69 72 | 5f 6c 65 6e 29 29 0a 58 |.var_dir|_len)).X|
|00005530| 20 20 20 20 20 20 20 20 | 20 6f 6c 64 6c 65 6e 20 | | oldlen |
|00005540| 3d 20 44 49 52 4c 45 4e | 28 74 6d 70 65 6e 74 72 |= DIRLEN|(tmpentr|
|00005550| 79 29 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |y); | |
|00005560| 2f 2a 20 67 65 74 20 6c | 65 6e 67 74 68 20 6f 66 |/* get l|ength of|
|00005570| 20 64 69 72 65 6e 74 72 | 79 20 2a 2f 0a 58 20 20 | direntr|y */.X |
|00005580| 20 20 20 20 20 20 20 6e | 65 77 6c 65 6e 20 3d 20 | n|ewlen = |
|00005590| 44 49 52 4c 45 4e 28 64 | 69 72 65 6e 74 72 79 29 |DIRLEN(d|irentry)|
|000055a0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a |; | /*|
|000055b0| 20 64 69 74 74 6f 20 2a | 2f 0a 58 0a 58 20 20 20 | ditto *|/.X.X |
|000055c0| 20 20 20 20 20 20 69 66 | 20 28 6e 65 77 6c 65 6e | if| (newlen|
|000055d0| 20 3e 20 6f 6c 64 6c 65 | 6e 29 20 7b 20 20 20 20 | > oldle|n) { |
|000055e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2f 2a 20 | | /* |
|000055f0| 74 72 6f 75 62 6c 65 20 | 2a 2f 0a 58 20 20 20 20 |trouble |*/.X |
|00005600| 20 20 20 20 20 20 20 20 | 7a 6f 6f 73 65 65 6b 20 | |zooseek |
|00005610| 28 7a 6f 6f 5f 66 69 6c | 65 2c 20 6c 61 73 74 5f |(zoo_fil|e, last_|
|00005620| 6f 6c 64 2c 20 30 29 3b | 20 20 20 20 2f 2a 20 62 |old, 0);| /* b|
|00005630| 61 63 6b 20 74 6f 20 70 | 72 65 76 69 6f 75 73 20 |ack to p|revious |
|00005640| 65 6e 74 72 79 20 2a 2f | 0a 58 20 20 20 20 20 20 |entry */|.X |
|00005650| 20 20 20 20 20 20 66 72 | 64 5f 64 69 72 20 28 26 | fr|d_dir (&|
|00005660| 74 6d 70 65 6e 74 72 79 | 2c 20 7a 6f 6f 5f 66 69 |tmpentry|, zoo_fi|
|00005670| 6c 65 29 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |le);.X | |
|00005680| 20 20 7a 6f 6f 73 65 65 | 6b 20 28 7a 6f 6f 5f 66 | zoosee|k (zoo_f|
|00005690| 69 6c 65 2c 20 30 4c 2c | 20 32 29 3b 20 20 20 20 |ile, 0L,| 2); |
|000056a0| 20 20 20 20 20 20 2f 2a | 20 67 65 74 20 45 4f 46 | /*| get EOF|
|000056b0| 20 70 6f 73 69 74 69 6f | 6e 20 2a 2f 0a 58 20 20 | positio|n */.X |
|000056c0| 20 20 20 20 20 20 20 20 | 20 20 74 6d 70 65 6e 74 | | tmpent|
|000056d0| 72 79 2e 6e 65 78 74 20 | 3d 20 7a 6f 6f 74 65 6c |ry.next |= zootel|
|000056e0| 6c 20 28 7a 6f 6f 5f 66 | 69 6c 65 29 3b 20 20 20 |l (zoo_f|ile); |
|000056f0| 20 2f 2a 20 70 6f 69 6e | 74 20 74 6f 20 45 4f 46 | /* poin|t to EOF|
|00005700| 20 2a 2f 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 | */.X | |
|00005710| 20 7a 6f 6f 73 65 65 6b | 20 28 7a 6f 6f 5f 66 69 | zooseek| (zoo_fi|
|00005720| 6c 65 2c 20 6c 61 73 74 | 5f 6f 6c 64 2c 20 30 29 |le, last|_old, 0)|
|00005730| 3b 20 20 20 20 2f 2a 20 | 62 61 63 6b 20 74 6f 20 |; /* |back to |
|00005740| 70 72 65 76 69 6f 75 73 | 20 65 6e 74 72 79 20 2a |previous| entry *|
|00005750| 2f 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 77 |/.X | w|
|00005760| 72 69 74 65 64 69 72 20 | 28 26 74 6d 70 65 6e 74 |ritedir |(&tmpent|
|00005770| 72 79 2c 20 7a 6f 6f 5f | 66 69 6c 65 29 3b 20 20 |ry, zoo_|file); |
|00005780| 20 20 20 2f 2a 20 75 70 | 64 61 74 65 20 69 74 20 | /* up|date it |
|00005790| 2a 2f 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |*/.X | |
|000057a0| 7a 6f 6f 73 65 65 6b 20 | 28 7a 6f 6f 5f 66 69 6c |zooseek |(zoo_fil|
|000057b0| 65 2c 20 30 4c 2c 20 32 | 29 3b 20 20 20 20 20 20 |e, 0L, 2|); |
|000057c0| 20 20 20 20 2f 2a 20 74 | 6f 20 45 4f 46 20 2e 2e | /* t|o EOF ..|
|000057d0| 2e 20 2a 2f 0a 58 20 20 | 20 20 20 20 20 20 20 20 |. */.X | |
|000057e0| 20 20 74 68 69 73 5f 64 | 69 72 5f 6f 66 66 73 65 | this_d|ir_offse|
|000057f0| 74 20 3d 20 7a 6f 6f 74 | 65 6c 6c 20 28 7a 6f 6f |t = zoot|ell (zoo|
|00005800| 5f 66 69 6c 65 29 3b 0a | 58 20 20 20 20 20 20 20 |_file);.|X |
|00005810| 20 20 20 20 20 77 72 69 | 74 65 64 69 72 20 28 26 | wri|tedir (&|
|00005820| 64 69 72 65 6e 74 72 79 | 2c 20 7a 6f 6f 5f 66 69 |direntry|, zoo_fi|
|00005830| 6c 65 29 3b 20 20 20 20 | 20 2f 2a 20 2e 2e 2e 77 |le); | /* ...w|
|00005840| 72 69 74 65 20 6e 75 6c | 6c 20 64 69 72 20 65 6e |rite nul|l dir en|
|00005850| 74 72 79 20 2a 2f 0a 58 | 20 20 20 20 20 20 20 20 |try */.X| |
|00005860| 20 7d 20 65 6c 73 65 0a | 58 20 20 20 20 20 20 20 | } else.|X |
|00005870| 20 20 20 20 20 7a 6f 6f | 73 65 65 6b 20 28 7a 6f | zoo|seek (zo|
|00005880| 6f 5f 66 69 6c 65 2c 20 | 74 6d 70 70 6f 73 2c 20 |o_file, |tmppos, |
|00005890| 30 29 3b 20 20 20 20 20 | 20 2f 2a 20 6c 6f 6e 67 |0); | /* long|
|000058a0| 20 65 6e 6f 75 67 68 20 | 2d 2d 20 6c 65 74 20 69 | enough |-- let i|
|000058b0| 74 20 62 65 20 2a 2f 0a | 58 20 20 20 20 20 20 7d |t be */.|X }|
|000058c0| 20 2f 2a 20 69 66 20 28 | 7a 6f 6f 5f 73 74 61 74 | /* if (|zoo_stat|
|000058d0| 75 73 20 3d 3d 20 4e 45 | 57 5f 5a 4f 4f 29 20 2e |us == NE|W_ZOO) .|
|000058e0| 2e 2e 20 2a 2f 0a 58 20 | 20 20 7d 20 2f 2a 20 69 |.. */.X | } /* i|
|000058f0| 66 20 28 21 66 69 72 73 | 74 66 69 6c 65 29 20 2e |f (!firs|tfile) .|
|00005900| 2e 2e 20 2a 2f 0a 58 0a | 58 20 20 20 2f 2a 20 4e |.. */.X.|X /* N|
|00005910| 6f 77 20 60 74 68 69 73 | 5f 64 69 72 5f 6f 66 66 |ow `this|_dir_off|
|00005920| 73 65 74 27 20 69 73 20 | 77 68 65 72 65 20 74 68 |set' is |where th|
|00005930| 65 20 6e 65 78 74 20 64 | 69 72 65 63 74 6f 72 79 |e next d|irectory|
|00005940| 20 65 6e 74 72 79 20 77 | 69 6c 6c 20 67 6f 20 2a | entry w|ill go *|
|00005950| 2f 0a 58 0a 58 20 20 20 | 2f 2a 20 66 69 72 73 74 |/.X.X |/* first|
|00005960| 20 66 69 6c 65 20 61 64 | 64 65 64 20 67 6f 65 73 | file ad|ded goes|
|00005970| 20 61 74 20 45 4f 46 20 | 74 6f 20 61 76 6f 69 64 | at EOF |to avoid|
|00005980| 20 6f 76 65 72 77 72 69 | 74 69 6e 67 20 63 6f 6d | overwri|ting com|
|00005990| 6d 65 6e 74 73 20 2a 2f | 0a 58 20 20 20 69 66 20 |ments */|.X if |
|000059a0| 28 66 69 72 73 74 66 69 | 6c 65 29 20 7b 0a 58 20 |(firstfi|le) {.X |
|000059b0| 20 20 20 20 20 7a 6f 6f | 73 65 65 6b 20 28 7a 6f | zoo|seek (zo|
|000059c0| 6f 5f 66 69 6c 65 2c 20 | 30 4c 2c 20 32 29 3b 20 |o_file, |0L, 2); |
|000059d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000059e0| 20 20 2f 2a 20 45 4f 46 | 20 2a 2f 0a 58 20 20 20 | /* EOF| */.X |
|000059f0| 20 20 20 64 69 72 65 6e | 74 72 79 2e 6f 66 66 73 | diren|try.offs|
|00005a00| 65 74 20 3d 20 7a 6f 6f | 74 65 6c 6c 20 28 7a 6f |et = zoo|tell (zo|
|00005a10| 6f 5f 66 69 6c 65 29 20 | 2b 20 53 49 5a 5f 46 4c |o_file) |+ SIZ_FL|
|00005a20| 44 52 3b 0a 58 20 20 20 | 7d 20 65 6c 73 65 20 7b |DR;.X |} else {|
|00005a30| 0a 58 20 20 20 20 20 20 | 64 69 72 65 6e 74 72 79 |.X |direntry|
|00005a40| 2e 6f 66 66 73 65 74 20 | 3d 20 74 68 69 73 5f 64 |.offset |= this_d|
|00005a50| 69 72 5f 6f 66 66 73 65 | 74 20 2b 20 53 49 5a 5f |ir_offse|t + SIZ_|
|00005a60| 44 49 52 4c 20 2b 20 0a | 58 20 20 20 20 20 20 20 |DIRL + .|X |
|00005a70| 20 20 64 69 72 65 6e 74 | 72 79 2e 76 61 72 5f 64 | dirent|ry.var_d|
|00005a80| 69 72 5f 6c 65 6e 20 2b | 20 53 49 5a 5f 46 4c 44 |ir_len +| SIZ_FLD|
|00005a90| 52 3b 0a 58 20 20 20 7d | 0a 58 0a 58 20 20 20 64 |R;.X }|.X.X d|
|00005aa0| 69 72 65 6e 74 72 79 2e | 6d 61 6a 6f 72 5f 76 65 |irentry.|major_ve|
|00005ab0| 72 20 3d 20 4d 41 4a 4f | 52 5f 45 58 54 5f 56 45 |r = MAJO|R_EXT_VE|
|00005ac0| 52 3b 20 20 20 20 2f 2a | 20 6d 69 6e 69 6d 75 6d |R; /*| minimum|
|00005ad0| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 20 | version| number |
|00005ae0| 6e 65 65 64 65 64 20 2a | 2f 0a 58 20 20 20 64 69 |needed *|/.X di|
|00005af0| 72 65 6e 74 72 79 2e 6d | 69 6e 6f 72 5f 76 65 72 |rentry.m|inor_ver|
|00005b00| 20 3d 20 4d 49 4e 4f 52 | 5f 45 58 54 5f 56 45 52 | = MINOR|_EXT_VER|
|00005b10| 3b 20 20 20 20 2f 2a 20 | 2e 2e 20 74 6f 20 65 78 |; /* |.. to ex|
|00005b20| 74 72 61 63 74 20 2a 2f | 0a 58 20 20 20 64 69 72 |tract */|.X dir|
|00005b30| 65 6e 74 72 79 2e 64 65 | 6c 65 74 65 64 20 3d 20 |entry.de|leted = |
|00005b40| 30 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0; | |
|00005b50| 20 2f 2a 20 6e 6f 74 20 | 64 65 6c 65 74 65 64 2c | /* not |deleted,|
|00005b60| 20 6e 61 74 75 72 61 6c | 6c 79 20 2a 2f 0a 58 20 | natural|ly */.X |
|00005b70| 20 20 64 69 72 65 6e 74 | 72 79 2e 63 6f 6d 6d 65 | dirent|ry.comme|
|00005b80| 6e 74 20 3d 20 30 4c 3b | 20 20 20 20 20 20 20 20 |nt = 0L;| |
|00005b90| 20 20 20 20 20 20 2f 2a | 20 6e 6f 20 63 6f 6d 6d | /*| no comm|
|00005ba0| 65 6e 74 20 28 79 65 74 | 29 20 2a 2f 0a 58 20 20 |ent (yet|) */.X |
|00005bb0| 20 64 69 72 65 6e 74 72 | 79 2e 63 6d 74 5f 73 69 | direntr|y.cmt_si|
|00005bc0| 7a 65 20 3d 20 30 3b 20 | 20 20 20 20 20 20 20 20 |ze = 0; | |
|00005bd0| 20 2f 2a 20 2e 2e 20 73 | 6f 20 6e 6f 20 73 69 7a | /* .. s|o no siz|
|00005be0| 65 20 65 69 74 68 65 72 | 20 2a 2f 0a 58 0a 58 20 |e either| */.X.X |
|00005bf0| 20 20 73 61 76 65 5f 70 | 6f 73 69 74 69 6f 6e 20 | save_p|osition |
|00005c00| 3d 20 64 69 72 65 6e 74 | 72 79 2e 6f 66 66 73 65 |= dirent|ry.offse|
|00005c10| 74 3b 20 20 20 20 20 20 | 20 20 20 20 2f 2a 20 73 |t; | /* s|
|00005c20| 61 76 65 20 70 6f 73 69 | 74 69 6f 6e 20 69 6e 20 |ave posi|tion in |
|00005c30| 63 61 73 65 20 6f 66 20 | 65 72 72 6f 72 20 2a 2f |case of |error */|
|00005c40| 0a 58 0a 58 20 20 20 7a | 6f 6f 73 65 65 6b 20 28 |.X.X z|ooseek (|
|00005c50| 7a 6f 6f 5f 66 69 6c 65 | 2c 20 64 69 72 65 6e 74 |zoo_file|, dirent|
|00005c60| 72 79 2e 6f 66 66 73 65 | 74 20 2d 20 53 49 5a 5f |ry.offse|t - SIZ_|
|00005c70| 46 4c 44 52 2c 20 30 29 | 3b 0a 58 20 20 20 7a 6f |FLDR, 0)|;.X zo|
|00005c80| 6f 77 72 69 74 65 20 28 | 7a 6f 6f 5f 66 69 6c 65 |owrite (|zoo_file|
|00005c90| 2c 20 66 69 6c 65 5f 6c | 65 61 64 65 72 2c 20 53 |, file_l|eader, S|
|00005ca0| 49 5a 5f 46 4c 44 52 29 | 3b 0a 58 0a 58 23 69 66 |IZ_FLDR)|;.X.X#if|
|00005cb0| 64 65 66 20 50 4f 52 54 | 41 42 4c 45 0a 58 20 20 |def PORT|ABLE.X |
|00005cc0| 20 70 72 74 65 72 72 6f | 72 20 28 27 6d 27 2c 20 | prterro|r ('m', |
|00005cd0| 22 25 2d 2a 73 20 2d 2d | 20 22 2c 20 6c 6f 6e 67 |"%-*s --| ", long|
|00005ce0| 65 73 74 2c 20 74 68 69 | 73 5f 70 61 74 68 29 3b |est, thi|s_path);|
|00005cf0| 0a 58 23 65 6c 73 65 0a | 58 20 20 20 69 66 20 28 |.X#else.|X if (|
|00005d00| 7a 5f 66 6d 74 29 0a 58 | 20 20 20 20 20 20 70 72 |z_fmt).X| pr|
|00005d10| 74 65 72 72 6f 72 20 28 | 27 6d 27 2c 20 22 25 2d |terror (|'m', "%-|
|00005d20| 31 32 73 20 3c 3d 3d 20 | 25 2d 2a 73 20 2d 2d 20 |12s <== |%-*s -- |
|00005d30| 22 2c 20 0a 58 20 20 20 | 20 20 20 20 20 20 64 69 |", .X | di|
|00005d40| 72 65 6e 74 72 79 2e 66 | 6e 61 6d 65 2c 20 6c 6f |rentry.f|name, lo|
|00005d50| 6e 67 65 73 74 2c 20 74 | 68 69 73 5f 70 61 74 68 |ngest, t|his_path|
|00005d60| 29 3b 0a 58 20 20 20 65 | 6c 73 65 0a 58 20 20 20 |);.X e|lse.X |
|00005d70| 20 20 20 70 72 74 65 72 | 72 6f 72 20 28 27 6d 27 | prter|ror ('m'|
|00005d80| 2c 20 22 25 2d 2a 73 20 | 2d 2d 20 22 2c 20 6c 6f |, "%-*s |-- ", lo|
|00005d90| 6e 67 65 73 74 2c 20 74 | 68 69 73 5f 70 61 74 68 |ngest, t|his_path|
|00005da0| 29 3b 0a 58 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |);.X.X#e|ndif /* |
|00005db0| 50 4f 52 54 41 42 4c 45 | 20 2a 2f 0a 58 0a 58 20 |PORTABLE| */.X.X |
|00005dc0| 20 20 63 72 63 63 6f 64 | 65 20 3d 20 30 3b 0a 58 | crccod|e = 0;.X|
|00005dd0| 23 69 66 6e 64 65 66 20 | 50 4f 52 54 41 42 4c 45 |#ifndef |PORTABLE|
|00005de0| 0a 58 20 20 20 69 66 20 | 28 7a 5f 66 6d 74 29 20 |.X if |(z_fmt) |
|00005df0| 0a 58 09 7b 0a 58 20 20 | 20 20 20 20 64 69 72 65 |.X.{.X | dire|
|00005e00| 6e 74 72 79 2e 70 61 63 | 6b 69 6e 67 5f 6d 65 74 |ntry.pac|king_met|
|00005e10| 68 6f 64 20 3d 20 74 69 | 6e 79 5f 68 65 61 64 65 |hod = ti|ny_heade|
|00005e20| 72 2e 70 61 63 6b 69 6e | 67 5f 6d 65 74 68 6f 64 |r.packin|g_method|
|00005e30| 3b 0a 58 20 20 20 20 20 | 20 7a 6f 6f 73 65 65 6b |;.X | zooseek|
|00005e40| 20 28 74 68 69 73 5f 66 | 69 6c 65 2c 20 28 6c 6f | (this_f|ile, (lo|
|00005e50| 6e 67 29 20 28 73 69 7a | 65 6f 66 28 74 69 6e 79 |ng) (siz|eof(tiny|
|00005e60| 5f 68 65 61 64 65 72 29 | 2b 74 69 6e 79 5f 68 65 |_header)|+tiny_he|
|00005e70| 61 64 65 72 2e 63 6d 74 | 5f 73 69 7a 65 29 2c 20 |ader.cmt|_size), |
|00005e80| 30 29 3b 0a 58 20 20 20 | 20 20 20 73 74 61 74 75 |0);.X | statu|
|00005e90| 73 20 3d 20 67 65 74 66 | 69 6c 65 20 28 74 68 69 |s = getf|ile (thi|
|00005ea0| 73 5f 66 69 6c 65 2c 20 | 7a 6f 6f 5f 66 69 6c 65 |s_file, |zoo_file|
|00005eb0| 2c 20 74 69 6e 79 5f 68 | 65 61 64 65 72 2e 73 69 |, tiny_h|eader.si|
|00005ec0| 7a 65 5f 6e 6f 77 2c 20 | 31 29 3b 0a 58 20 20 20 |ze_now, |1);.X |
|00005ed0| 7d 20 65 6c 73 65 20 0a | 58 23 65 6e 64 69 66 0a |} else .|X#endif.|
|00005ee0| 58 09 69 66 20 28 73 75 | 70 70 72 65 73 73 29 20 |X.if (su|ppress) |
|00005ef0| 7b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |{ | |
|00005f00| 20 20 20 20 20 2f 2a 20 | 73 75 70 70 72 65 73 73 | /* |suppress|
|00005f10| 20 63 6f 6d 70 72 65 73 | 73 69 6f 6e 20 2a 2f 0a | compres|sion */.|
|00005f20| 58 20 20 20 20 20 20 64 | 69 72 65 6e 74 72 79 2e |X d|irentry.|
|00005f30| 70 61 63 6b 69 6e 67 5f | 6d 65 74 68 6f 64 20 3d |packing_|method =|
|00005f40| 20 30 3b 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a | 0; | /*|
|00005f50| 20 6e 6f 20 63 6f 6d 70 | 72 65 73 73 69 6f 6e 20 | no comp|ression |
|00005f60| 2a 2f 0a 58 20 20 20 20 | 20 20 73 74 61 74 75 73 |*/.X | status|
|00005f70| 20 3d 20 67 65 74 66 69 | 6c 65 20 28 74 68 69 73 | = getfi|le (this|
|00005f80| 5f 66 69 6c 65 2c 20 7a | 6f 6f 5f 66 69 6c 65 2c |_file, z|oo_file,|
|00005f90| 20 2d 31 4c 2c 20 31 29 | 3b 0a 58 20 20 20 7d 20 | -1L, 1)|;.X } |
|00005fa0| 65 6c 73 65 20 7b 0a 58 | 23 69 66 64 65 66 20 55 |else {.X|#ifdef U|
|00005fb0| 4e 42 55 46 5f 49 4f 09 | 2f 2a 20 75 6e 62 75 66 |NBUF_IO.|/* unbuf|
|00005fc0| 66 65 72 65 64 20 49 2f | 4f 20 2a 2f 0a 58 09 09 |fered I/|O */.X..|
|00005fd0| 6c 6f 6e 67 20 6c 73 65 | 65 6b 20 50 41 52 4d 53 |long lse|ek PARMS|
|00005fe0| 20 28 28 69 6e 74 2c 20 | 6c 6f 6e 67 2c 20 69 6e | ((int, |long, in|
|00005ff0| 74 29 29 3b 0a 58 09 09 | 6c 6f 6e 67 20 74 65 6c |t));.X..|long tel|
|00006000| 6c 20 50 41 52 4d 53 20 | 28 28 69 6e 74 29 29 3b |l PARMS |((int));|
|00006010| 0a 58 09 09 69 6e 74 20 | 74 68 69 73 5f 66 64 2c |.X..int |this_fd,|
|00006020| 20 7a 6f 6f 5f 66 64 3b | 0a 58 23 65 6e 64 69 66 | zoo_fd;|.X#endif|
|00006030| 0a 58 20 20 20 20 20 20 | 64 69 72 65 6e 74 72 79 |.X |direntry|
|00006040| 2e 70 61 63 6b 69 6e 67 | 5f 6d 65 74 68 6f 64 20 |.packing|_method |
|00006050| 3d 20 31 3b 20 20 20 20 | 20 20 20 20 20 20 20 09 |= 1; | .|
|00006060| 09 2f 2a 20 63 6f 6d 70 | 72 65 73 73 65 64 20 2a |./* comp|ressed *|
|00006070| 2f 0a 58 23 69 66 64 65 | 66 20 55 4e 42 55 46 5f |/.X#ifde|f UNBUF_|
|00006080| 49 4f 0a 58 09 09 74 68 | 69 73 5f 66 64 20 3d 20 |IO.X..th|is_fd = |
|00006090| 66 69 6c 65 6e 6f 20 28 | 74 68 69 73 5f 66 69 6c |fileno (|this_fil|
|000060a0| 65 29 3b 09 09 09 09 09 | 09 2f 2a 20 67 65 74 20 |e);.....|./* get |
|000060b0| 2e 2e 09 09 09 09 09 2a | 2f 0a 58 09 09 7a 6f 6f |.......*|/.X..zoo|
|000060c0| 5f 66 64 20 3d 20 66 69 | 6c 65 6e 6f 20 28 7a 6f |_fd = fi|leno (zo|
|000060d0| 6f 5f 66 69 6c 65 29 3b | 09 09 09 09 09 09 2f 2a |o_file);|....../*|
|000060e0| 20 2e 2e 2e 20 66 69 6c | 65 20 64 65 73 63 72 69 | ... fil|e descri|
|000060f0| 70 74 6f 72 73 09 2a 2f | 0a 58 09 09 7a 6f 6f 73 |ptors.*/|.X..zoos|
|00006100| 65 65 6b 20 28 7a 6f 6f | 5f 66 69 6c 65 2c 20 7a |eek (zoo|_file, z|
|00006110| 6f 6f 74 65 6c 6c 20 28 | 7a 6f 6f 5f 66 69 6c 65 |ootell (|zoo_file|
|00006120| 29 2c 20 30 29 3b 09 2f | 2a 20 73 79 6e 63 68 20 |), 0);./|* synch |
|00006130| 2a 2f 0a 58 09 09 7a 6f | 6f 73 65 65 6b 20 28 74 |*/.X..zo|oseek (t|
|00006140| 68 69 73 5f 66 69 6c 65 | 2c 20 7a 6f 6f 74 65 6c |his_file|, zootel|
|00006150| 6c 20 28 74 68 69 73 5f | 66 69 6c 65 29 2c 20 30 |l (this_|file), 0|
|00006160| 29 3b 09 2f 2a 20 73 79 | 6e 63 68 20 2a 2f 0a 58 |);./* sy|nch */.X|
|00006170| 20 20 20 20 20 20 73 74 | 61 74 75 73 20 3d 20 6c | st|atus = l|
|00006180| 7a 63 28 74 68 69 73 5f | 66 64 2c 20 7a 6f 6f 5f |zc(this_|fd, zoo_|
|00006190| 66 64 29 3b 09 09 09 09 | 09 2f 2a 20 61 64 64 20 |fd);....|./* add |
|000061a0| 77 69 74 68 20 63 6f 6d | 70 72 65 73 73 69 6f 6e |with com|pression|
|000061b0| 20 2a 2f 0a 58 09 09 7a | 6f 6f 73 65 65 6b 20 28 | */.X..z|ooseek (|
|000061c0| 7a 6f 6f 5f 66 69 6c 65 | 2c 20 74 65 6c 6c 20 28 |zoo_file|, tell (|
|000061d0| 7a 6f 6f 5f 66 64 29 2c | 20 30 29 3b 09 09 09 2f |zoo_fd),| 0);.../|
|000061e0| 2a 20 72 65 73 79 6e 63 | 68 09 2a 2f 0a 58 09 09 |* resync|h.*/.X..|
|000061f0| 7a 6f 6f 73 65 65 6b 20 | 28 74 68 69 73 5f 66 69 |zooseek |(this_fi|
|00006200| 6c 65 2c 20 74 65 6c 6c | 20 28 74 68 69 73 5f 66 |le, tell| (this_f|
|00006210| 64 29 2c 20 30 29 3b 09 | 09 2f 2a 20 72 65 73 79 |d), 0);.|./* resy|
|00006220| 6e 63 68 09 2a 2f 0a 58 | 23 65 6c 73 65 0a 58 20 |nch.*/.X|#else.X |
|00006230| 20 20 20 20 20 73 74 61 | 74 75 73 20 3d 20 6c 7a | sta|tus = lz|
|00006240| 63 28 74 68 69 73 5f 66 | 69 6c 65 2c 20 7a 6f 6f |c(this_f|ile, zoo|
|00006250| 5f 66 69 6c 65 29 3b 09 | 09 09 2f 2a 20 61 64 64 |_file);.|../* add|
|00006260| 20 77 69 74 68 20 63 6f | 6d 70 72 65 73 73 69 6f | with co|mpressio|
|00006270| 6e 20 2a 2f 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |n */.X#e|ndif /* |
|00006280| 55 4e 42 55 46 5f 49 4f | 20 2a 2f 0a 58 0a 58 20 |UNBUF_IO| */.X.X |
|00006290| 20 20 7d 0a 58 20 20 20 | 69 66 20 28 73 74 61 74 | }.X |if (stat|
|000062a0| 75 73 20 21 3d 20 30 29 | 20 7b 20 2f 2a 20 69 66 |us != 0)| { /* if|
|000062b0| 20 49 20 2a 2f 0a 58 20 | 20 20 20 20 20 2b 2b 65 | I */.X | ++e|
|000062c0| 78 69 74 5f 73 74 61 74 | 75 73 3b 20 20 20 20 20 |xit_stat|us; |
|000062d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062e0| 20 20 20 20 2f 2a 20 72 | 65 6d 65 6d 62 65 72 20 | /* r|emember |
|000062f0| 65 72 72 6f 72 20 2a 2f | 0a 58 20 20 20 20 20 20 |error */|.X |
|00006300| 69 66 20 28 73 74 61 74 | 75 73 20 3d 3d 20 31 29 |if (stat|us == 1)|
|00006310| 0a 58 20 20 20 20 20 20 | 20 20 20 70 72 74 65 72 |.X | prter|
|00006320| 72 6f 72 20 28 27 46 27 | 2c 20 6e 6f 5f 6d 65 6d |ror ('F'|, no_mem|
|00006330| 6f 72 79 29 3b 0a 58 20 | 20 20 20 20 20 65 6c 73 |ory);.X | els|
|00006340| 65 20 69 66 20 28 73 74 | 61 74 75 73 20 3d 3d 20 |e if (st|atus == |
|00006350| 32 29 0a 58 20 20 20 20 | 20 20 20 20 20 70 72 74 |2).X | prt|
|00006360| 65 72 72 6f 72 20 28 27 | 46 27 2c 20 64 69 73 6b |error ('|F', disk|
|00006370| 5f 66 75 6c 6c 29 3b 0a | 58 20 20 20 20 20 20 65 |_full);.|X e|
|00006380| 6c 73 65 20 69 66 20 28 | 73 74 61 74 75 73 20 3d |lse if (|status =|
|00006390| 3d 20 33 29 0a 58 20 20 | 20 20 20 20 20 20 20 70 |= 3).X | p|
|000063a0| 72 74 65 72 72 6f 72 20 | 28 27 46 27 2c 20 22 52 |rterror |('F', "R|
|000063b0| 65 61 64 20 65 72 72 6f | 72 2e 5c 6e 22 29 3b 0a |ead erro|r.\n");.|
|000063c0| 58 20 20 20 20 20 20 65 | 6c 73 65 0a 58 20 20 20 |X e|lse.X |
|000063d0| 20 20 20 20 20 20 70 72 | 74 65 72 72 6f 72 20 28 | pr|terror (|
|000063e0| 27 46 27 2c 20 69 6e 74 | 65 72 6e 61 6c 5f 65 72 |'F', int|ernal_er|
|000063f0| 72 6f 72 29 3b 0a 58 20 | 20 20 20 20 20 73 75 63 |ror);.X | suc|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
