/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume01 / cshar

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 64 65 | 63 76 61 78 21 77 61 6e |From: de|cvax!wan|
|00000010| 67 69 6e 73 74 21 70 65 | 72 6c 6d 61 6e 0a 44 61 |ginst!pe|rlman.Da|
|00000020| 74 65 3a 20 53 75 6e 2c | 20 32 20 4a 75 6e 20 38 |te: Sun,| 2 Jun 8|
|00000030| 35 20 31 36 3a 33 35 3a | 33 35 20 65 64 74 0a 53 |5 16:35:|35 edt.S|
|00000040| 75 62 6a 65 63 74 3a 20 | 69 6d 70 72 6f 76 65 64 |ubject: |improved|
|00000050| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 73 68 61 72 | version| of shar|
|00000060| 20 28 73 68 65 6c 6c 20 | 61 72 63 68 69 76 65 72 | (shell |archiver|
|00000070| 29 0a 0a 48 65 72 65 20 | 69 73 20 61 20 6e 65 77 |)..Here |is a new|
|00000080| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 6d 79 20 43 | version| of my C|
|00000090| 20 73 68 61 72 20 70 72 | 6f 67 72 61 6d 2e 0a 49 | shar pr|ogram..I|
|000000a0| 20 68 61 76 65 20 6d 61 | 64 65 20 73 6f 6d 65 20 | have ma|de some |
|000000b0| 63 68 61 6e 67 65 73 20 | 69 6e 20 68 6f 77 20 65 |changes |in how e|
|000000c0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 73 20 61 72 |xisting |files ar|
|000000d0| 65 20 68 61 6e 64 6c 65 | 64 3b 0a 6e 6f 77 20 73 |e handle|d;.now s|
|000000e0| 68 61 72 20 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |har will| not ove|
|000000f0| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |rwrite e|xisting |
|00000100| 66 69 6c 65 73 2e 0a 49 | 20 68 61 76 65 20 77 6f |files..I| have wo|
|00000110| 72 6b 65 64 20 77 69 74 | 68 20 6c 69 6e 74 20 61 |rked wit|h lint a|
|00000120| 6e 64 20 70 72 6f 66 20 | 74 6f 20 69 6d 70 72 6f |nd prof |to impro|
|00000130| 76 65 20 74 68 65 20 63 | 6f 64 65 2c 0a 65 73 70 |ve the c|ode,.esp|
|00000140| 65 63 69 61 6c 6c 79 20 | 74 68 65 20 73 70 65 65 |ecially |the spee|
|00000150| 64 2e 20 20 59 6f 75 20 | 63 61 6e 20 74 72 79 20 |d.  You |can try |
|00000160| 69 74 20 6f 75 74 20 66 | 6f 72 20 79 6f 75 72 73 |it out f|or yours|
|00000170| 65 6c 66 2e 0a 0a 47 61 | 72 79 20 50 65 72 6c 6d |elf...Ga|ry Perlm|
|00000180| 61 6e 20 20 57 61 6e 67 | 20 49 6e 73 74 69 74 75 |an  Wang| Institu|
|00000190| 74 65 20 20 54 79 6e 67 | 73 62 6f 72 6f 2c 20 4d |te  Tyng|sboro, M|
|000001a0| 41 20 30 31 38 37 39 20 | 20 28 36 31 37 29 20 36 |A 01879 | (617) 6|
|000001b0| 34 39 2d 39 37 33 31 0a | 55 55 43 50 3a 20 64 65 |49-9731.|UUCP: de|
|000001c0| 63 76 61 78 21 77 61 6e | 67 69 6e 73 74 21 70 65 |cvax!wan|ginst!pe|
|000001d0| 72 6c 6d 61 6e 20 20 20 | 20 20 20 20 20 20 20 20 |rlman   |        |
|000001e0| 20 20 43 53 4e 45 54 3a | 20 70 65 72 6c 6d 61 6e |  CSNET:| perlman|
|000001f0| 40 77 61 6e 67 69 6e 73 | 74 0a 0a 23 21 20 2f 62 |@wangins|t..#! /b|
|00000200| 69 6e 2f 73 68 0a 23 20 | 54 68 69 73 20 69 73 20 |in/sh.# |This is |
|00000210| 61 20 73 68 65 6c 6c 20 | 61 72 63 68 69 76 65 2c |a shell |archive,|
|00000220| 20 6d 65 61 6e 69 6e 67 | 3a 0a 23 20 31 2e 20 52 | meaning|:.# 1. R|
|00000230| 65 6d 6f 76 65 20 65 76 | 65 72 79 74 68 69 6e 67 |emove ev|erything|
|00000240| 20 61 62 6f 76 65 20 74 | 68 65 20 23 21 20 2f 62 | above t|he #! /b|
|00000250| 69 6e 2f 73 68 20 6c 69 | 6e 65 2e 0a 23 20 32 2e |in/sh li|ne..# 2.|
|00000260| 20 53 61 76 65 20 74 68 | 65 20 72 65 73 75 6c 74 | Save th|e result|
|00000270| 69 6e 67 20 74 65 78 74 | 20 69 6e 20 61 20 66 69 |ing text| in a fi|
|00000280| 6c 65 2e 0a 23 20 33 2e | 20 45 78 65 63 75 74 65 |le..# 3.| Execute|
|00000290| 20 74 68 65 20 66 69 6c | 65 20 77 69 74 68 20 2f | the fil|e with /|
|000002a0| 62 69 6e 2f 73 68 20 28 | 6e 6f 74 20 63 73 68 29 |bin/sh (|not csh)|
|000002b0| 20 74 6f 20 63 72 65 61 | 74 65 20 74 68 65 20 66 | to crea|te the f|
|000002c0| 69 6c 65 73 3a 0a 23 09 | 73 68 61 72 2e 31 0a 23 |iles:.#.|shar.1.#|
|000002d0| 09 73 68 61 72 2e 63 0a | 23 09 74 72 61 76 65 72 |.shar.c.|#.traver|
|000002e0| 73 65 2e 33 0a 23 09 74 | 72 61 76 65 72 73 65 2e |se.3.#.t|raverse.|
|000002f0| 63 0a 23 09 67 65 74 6f | 70 74 2e 33 0a 23 09 67 |c.#.geto|pt.3.#.g|
|00000300| 65 74 6f 70 74 2e 63 0a | 23 09 4d 61 6b 65 66 69 |etopt.c.|#.Makefi|
|00000310| 6c 65 0a 23 20 54 68 69 | 73 20 61 72 63 68 69 76 |le.# Thi|s archiv|
|00000320| 65 20 63 72 65 61 74 65 | 64 3a 20 54 75 65 20 4a |e create|d: Tue J|
|00000330| 75 6e 20 20 34 20 30 31 | 3a 30 37 3a 31 38 20 31 |un  4 01|:07:18 1|
|00000340| 39 38 35 0a 23 20 42 79 | 3a 09 47 61 72 79 20 50 |985.# By|:.Gary P|
|00000350| 65 72 6c 6d 61 6e 20 28 | 57 61 6e 67 20 49 6e 73 |erlman (|Wang Ins|
|00000360| 74 69 74 75 74 65 2c 20 | 54 79 6e 67 73 62 6f 72 |titute, |Tyngsbor|
|00000370| 6f 2c 20 4d 41 20 30 31 | 38 37 39 20 55 53 41 29 |o, MA 01|879 USA)|
|00000380| 0a 65 78 70 6f 72 74 20 | 50 41 54 48 3b 20 50 41 |.export |PATH; PA|
|00000390| 54 48 3d 2f 62 69 6e 3a | 24 50 41 54 48 0a 65 63 |TH=/bin:|$PATH.ec|
|000003a0| 68 6f 20 73 68 61 72 3a | 20 65 78 74 72 61 63 74 |ho shar:| extract|
|000003b0| 69 6e 67 20 22 27 73 68 | 61 72 2e 31 27 22 20 27 |ing "'sh|ar.1'" '|
|000003c0| 28 32 36 39 31 20 63 68 | 61 72 61 63 74 65 72 73 |(2691 ch|aracters|
|000003d0| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 73 |)'.if te|st -f 's|
|000003e0| 68 61 72 2e 31 27 0a 74 | 68 65 6e 0a 09 65 63 68 |har.1'.t|hen..ech|
|000003f0| 6f 20 73 68 61 72 3a 20 | 77 69 6c 6c 20 6e 6f 74 |o shar: |will not|
|00000400| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|00000410| 74 69 6e 67 20 66 69 6c | 65 20 22 27 73 68 61 72 |ting fil|e "'shar|
|00000420| 2e 31 27 22 0a 65 6c 73 | 65 0a 73 65 64 20 27 73 |.1'".els|e.sed 's|
|00000430| 2f 5e 09 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |/^.X//' |<< \SHAR|
|00000440| 5f 45 4f 46 20 3e 20 27 | 73 68 61 72 2e 31 27 0a |_EOF > '|shar.1'.|
|00000450| 09 58 2e 54 48 20 53 48 | 41 52 20 31 6e 65 74 20 |.X.TH SH|AR 1net |
|00000460| 22 4a 75 6e 65 20 33 2c | 20 31 39 38 35 22 20 22 |"June 3,| 1985" "|
|00000470| 55 4e 49 58 20 55 73 65 | 72 27 73 20 4d 61 6e 75 |UNIX Use|r's Manu|
|00000480| 61 6c 22 20 22 57 61 6e | 67 20 49 6e 73 74 69 74 |al" "Wan|g Instit|
|00000490| 75 74 65 22 0a 09 58 2e | 53 48 20 4e 41 4d 45 0a |ute"..X.|SH NAME.|
|000004a0| 09 58 73 68 61 72 20 5c | 2d 20 63 72 65 61 74 65 |.Xshar \|- create|
|000004b0| 20 66 69 6c 65 20 73 74 | 6f 72 61 67 65 20 61 72 | file st|orage ar|
|000004c0| 63 68 69 76 65 20 66 6f | 72 20 65 78 74 72 61 63 |chive fo|r extrac|
|000004d0| 74 69 6f 6e 20 62 79 20 | 2f 62 69 6e 2f 73 68 0a |tion by |/bin/sh.|
|000004e0| 09 58 2e 53 48 20 53 59 | 4e 4f 50 53 49 53 0a 09 |.X.SH SY|NOPSIS..|
|000004f0| 58 2e 42 20 73 68 61 72 | 0a 09 58 5b 2d 61 62 63 |X.B shar|..X[-abc|
|00000500| 73 76 5d 20 5b 2d 64 20 | 64 65 6c 69 6d 5d 20 5b |sv] [-d |delim] [|
|00000510| 2d 70 20 70 72 65 66 69 | 78 5d 20 66 69 6c 65 73 |-p prefi|x] files|
|00000520| 0a 09 58 2e 53 48 20 44 | 45 53 43 52 49 50 54 49 |..X.SH D|ESCRIPTI|
|00000530| 4f 4e 0a 09 58 2e 49 20 | 73 68 61 72 0a 09 58 70 |ON..X.I |shar..Xp|
|00000540| 72 69 6e 74 73 20 69 74 | 73 20 69 6e 70 75 74 20 |rints it|s input |
|00000550| 66 69 6c 65 73 20 77 69 | 74 68 20 73 70 65 63 69 |files wi|th speci|
|00000560| 61 6c 20 63 6f 6d 6d 61 | 6e 64 20 6c 69 6e 65 73 |al comma|nd lines|
|00000570| 20 61 72 6f 75 6e 64 20 | 74 68 65 6d 0a 09 58 74 | around |them..Xt|
|00000580| 6f 20 62 65 20 75 73 65 | 64 20 62 79 20 74 68 65 |o be use|d by the|
|00000590| 20 73 68 65 6c 6c 2c 0a | 09 58 2e 49 20 2f 62 69 | shell,.|.X.I /bi|
|000005a0| 6e 2f 73 68 20 2c 0a 09 | 58 74 6f 20 65 78 74 72 |n/sh ,..|Xto extr|
|000005b0| 61 63 74 20 74 68 65 6d | 20 6c 61 74 65 72 2e 0a |act them| later..|
|000005c0| 09 58 54 68 65 20 6f 75 | 74 70 75 74 20 63 61 6e |.XThe ou|tput can|
|000005d0| 20 62 65 20 66 69 6c 74 | 65 72 65 64 20 74 68 72 | be filt|ered thr|
|000005e0| 6f 75 67 68 20 74 68 65 | 20 73 68 65 6c 6c 20 74 |ough the| shell t|
|000005f0| 6f 0a 09 58 72 65 63 72 | 65 61 74 65 20 63 6f 70 |o..Xrecr|eate cop|
|00000600| 69 65 73 20 6f 66 20 74 | 68 65 20 6f 72 69 67 69 |ies of t|he origi|
|00000610| 6e 61 6c 20 66 69 6c 65 | 73 2e 0a 09 58 2e 50 50 |nal file|s...X.PP|
|00000620| 0a 09 58 2e 49 20 73 68 | 61 72 0a 09 58 61 6c 6c |..X.I sh|ar..Xall|
|00000630| 6f 77 73 20 64 69 72 65 | 63 74 6f 72 69 65 73 20 |ows dire|ctories |
|00000640| 74 6f 20 62 65 20 6e 61 | 6d 65 64 2c 20 61 6e 64 |to be na|med, and|
|00000650| 0a 09 58 2e 49 20 73 68 | 61 72 0a 09 58 70 72 69 |..X.I sh|ar..Xpri|
|00000660| 6e 74 73 20 74 68 65 20 | 6e 65 63 65 73 73 61 72 |nts the |necessar|
|00000670| 79 20 63 6f 6d 6d 61 6e | 64 73 0a 09 58 2e 75 6c |y comman|ds..X.ul|
|00000680| 0a 09 58 28 6d 6b 64 69 | 72 20 26 20 63 64 29 0a |..X(mkdi|r & cd).|
|00000690| 09 58 74 6f 20 63 72 65 | 61 74 65 20 6e 65 77 20 |.Xto cre|ate new |
|000006a0| 64 69 72 65 63 74 6f 72 | 69 65 73 20 61 6e 64 20 |director|ies and |
|000006b0| 66 69 6c 6c 20 74 68 65 | 6d 2e 0a 09 58 2e 49 20 |fill the|m...X.I |
|000006c0| 73 68 61 72 0a 09 58 77 | 69 6c 6c 20 65 6d 69 74 |shar..Xw|ill emit|
|000006d0| 20 63 6f 6d 6d 61 6e 64 | 73 20 74 6f 20 6d 61 6b | command|s to mak|
|000006e0| 65 20 65 78 65 63 75 74 | 61 62 6c 65 20 70 6c 61 |e execut|able pla|
|000006f0| 69 6e 20 66 69 6c 65 73 | 20 65 78 65 63 75 74 61 |in files| executa|
|00000700| 62 6c 65 2e 0a 09 58 2e | 49 20 73 68 61 72 20 77 |ble...X.|I shar w|
|00000710| 69 6c 6c 20 6e 6f 74 20 | 61 6c 6c 6f 77 20 65 78 |ill not |allow ex|
|00000720| 69 73 74 69 6e 67 20 66 | 69 6c 65 73 20 74 6f 20 |isting f|iles to |
|00000730| 62 65 20 6f 76 65 72 2d | 77 72 69 74 74 65 6e 3b |be over-|written;|
|00000740| 0a 09 58 73 75 63 68 20 | 66 69 6c 65 73 20 6d 75 |..Xsuch |files mu|
|00000750| 73 74 20 62 65 20 72 65 | 6d 6f 76 65 64 20 62 79 |st be re|moved by|
|00000760| 20 74 68 65 20 66 69 6c | 65 20 65 78 74 72 61 63 | the fil|e extrac|
|00000770| 74 6f 72 2e 0a 09 58 2e | 53 48 20 4f 50 54 49 4f |tor...X.|SH OPTIO|
|00000780| 4e 53 0a 09 58 2e 64 65 | 20 4f 50 0a 09 58 2e 54 |NS..X.de| OP..X.T|
|00000790| 50 0a 09 58 2e 42 20 2d | 5c 5c 24 31 0a 09 58 2e |P..X.B -|\\$1..X.|
|000007a0| 2e 0a 09 58 2e 4f 50 20 | 61 0a 09 58 41 6c 6c 20 |...X.OP |a..XAll |
|000007b0| 74 68 65 20 6f 70 74 69 | 6f 6e 73 2e 0a 09 58 54 |the opti|ons...XT|
|000007c0| 68 65 20 6f 70 74 69 6f | 6e 73 3a 0a 09 58 2e 42 |he optio|ns:..X.B|
|000007d0| 20 22 2d 76 20 2d 63 20 | 2d 62 20 2d 70 20 3c 74 | "-v -c |-b -p <t|
|000007e0| 61 62 3e 58 22 0a 09 58 | 61 72 65 20 69 6d 70 6c |ab>X"..X|are impl|
|000007f0| 69 65 64 2e 0a 09 58 2e | 4f 50 20 73 0a 09 58 53 |ied...X.|OP s..XS|
|00000800| 69 6c 65 6e 74 20 72 75 | 6e 6e 69 6e 67 2e 0a 09 |ilent ru|nning...|
|00000810| 58 41 6c 6c 20 63 68 65 | 63 6b 69 6e 67 20 61 6e |XAll che|cking an|
|00000820| 64 20 65 78 74 72 61 20 | 6f 75 74 70 75 74 20 69 |d extra |output i|
|00000830| 73 20 69 6e 68 69 62 69 | 74 65 64 2e 0a 09 58 2e |s inhibi|ted...X.|
|00000840| 4f 50 20 76 0a 09 58 50 | 72 69 6e 74 20 76 65 72 |OP v..XP|rint ver|
|00000850| 62 6f 73 65 20 66 65 65 | 64 62 61 63 6b 20 6d 65 |bose fee|dback me|
|00000860| 73 73 61 67 65 73 20 61 | 62 6f 75 74 20 77 68 61 |ssages a|bout wha|
|00000870| 74 0a 09 58 2e 49 20 73 | 68 61 72 0a 09 58 69 73 |t..X.I s|har..Xis|
|00000880| 20 64 6f 69 6e 67 20 74 | 6f 20 62 65 20 70 72 69 | doing t|o be pri|
|00000890| 6e 74 65 64 20 64 75 72 | 69 6e 67 20 65 78 74 72 |nted dur|ing extr|
|000008a0| 61 63 74 69 6f 6e 2e 0a | 09 58 53 69 7a 65 73 20 |action..|.XSizes |
|000008b0| 6f 66 20 70 6c 61 69 6e | 20 66 69 6c 65 73 20 61 |of plain| files a|
|000008c0| 72 65 20 65 63 68 6f 65 | 64 20 74 6f 20 61 6c 6c |re echoe|d to all|
|000008d0| 6f 77 20 61 20 73 69 6d | 70 6c 65 20 76 61 6c 69 |ow a sim|ple vali|
|000008e0| 64 69 74 79 20 63 68 65 | 63 6b 2e 0a 09 58 2e 4f |dity che|ck...X.O|
|000008f0| 50 20 63 0a 09 58 43 68 | 65 63 6b 20 66 69 6c 65 |P c..XCh|eck file|
|00000900| 20 73 69 7a 65 20 6f 6e | 20 65 78 74 72 61 63 74 | size on| extract|
|00000910| 69 6f 6e 20 62 79 20 63 | 6f 75 6e 74 69 6e 67 20 |ion by c|ounting |
|00000920| 63 68 61 72 61 63 74 65 | 72 73 2e 0a 09 58 41 6e |characte|rs...XAn|
|00000930| 20 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 20 69 | error m|essage i|
|00000940| 73 20 72 65 70 6f 72 74 | 65 64 20 74 6f 20 74 68 |s report|ed to th|
|00000950| 65 20 70 65 72 73 6f 6e | 20 64 6f 69 6e 67 20 74 |e person| doing t|
|00000960| 68 65 0a 09 58 65 78 74 | 72 61 63 74 69 6f 6e 20 |he..Xext|raction |
|00000970| 69 66 20 74 68 65 20 73 | 69 7a 65 73 20 64 6f 6e |if the s|izes don|
|00000980| 27 74 20 6d 61 74 63 68 | 2e 0a 09 58 4f 6e 65 20 |'t match|...XOne |
|00000990| 72 65 61 73 6f 6e 20 77 | 68 79 20 74 68 65 20 73 |reason w|hy the s|
|000009a0| 69 7a 65 73 20 6d 61 79 | 20 6e 6f 74 20 6d 61 74 |izes may| not mat|
|000009b0| 63 68 20 69 73 20 74 68 | 61 74 0a 09 58 2e 49 20 |ch is th|at..X.I |
|000009c0| 73 68 61 72 0a 09 58 77 | 69 6c 6c 20 61 70 70 65 |shar..Xw|ill appe|
|000009d0| 6e 64 20 61 20 6e 65 77 | 6c 69 6e 65 20 74 6f 20 |nd a new|line to |
|000009e0| 63 6f 6d 70 6c 65 74 65 | 20 69 6e 63 6f 6d 70 6c |complete| incompl|
|000009f0| 65 74 65 20 6c 61 73 74 | 20 6c 69 6e 65 73 3b 0a |ete last| lines;.|
|00000a00| 09 58 2e 49 20 73 68 61 | 72 0a 09 58 70 72 69 6e |.X.I sha|r..Xprin|
|00000a10| 74 73 20 61 20 6d 65 73 | 73 61 67 65 20 74 68 61 |ts a mes|sage tha|
|00000a20| 74 20 6d 65 6e 74 69 6f | 6e 73 20 61 64 64 65 64 |t mentio|ns added|
|00000a30| 20 6e 65 77 6c 69 6e 65 | 73 2e 0a 09 58 41 6e 6f | newline|s...XAno|
|00000a40| 74 68 65 72 20 72 65 61 | 73 6f 6e 20 77 68 79 20 |ther rea|son why |
|00000a50| 74 68 65 20 73 69 7a 65 | 73 20 6d 61 79 20 6e 6f |the size|s may no|
|00000a60| 74 20 6d 61 74 63 68 20 | 69 73 20 74 68 61 74 20 |t match |is that |
|00000a70| 73 6f 6d 65 0a 09 58 6e | 65 74 77 6f 72 6b 20 6d |some..Xn|etwork m|
|00000a80| 61 69 6c 20 70 72 6f 67 | 72 61 6d 73 20 72 65 6d |ail prog|rams rem|
|00000a90| 6f 76 65 20 6e 6f 6e 2d | 77 68 69 74 65 73 70 61 |ove non-|whitespa|
|00000aa0| 63 65 20 63 6f 6e 74 72 | 6f 6c 20 63 68 61 72 61 |ce contr|ol chara|
|00000ab0| 63 74 65 72 73 2e 0a 09 | 58 2e 49 20 73 68 61 72 |cters...|X.I shar|
|00000ac0| 0a 09 58 70 72 69 6e 74 | 73 20 61 20 6d 65 73 73 |..Xprint|s a mess|
|00000ad0| 61 67 65 20 74 68 61 74 | 20 6d 65 6e 74 69 6f 6e |age that| mention|
|00000ae0| 73 20 63 6f 6e 74 72 6f | 6c 20 63 68 61 72 61 63 |s contro|l charac|
|00000af0| 74 65 72 73 20 74 6f 20 | 74 68 65 20 65 78 74 72 |ters to |the extr|
|00000b00| 61 63 74 6f 72 2e 0a 09 | 58 2e 4f 50 20 62 0a 09 |actor...|X.OP b..|
|00000b10| 58 45 78 74 72 61 63 74 | 20 66 69 6c 65 73 20 69 |XExtract| files i|
|00000b20| 6e 74 6f 20 62 61 73 65 | 6e 61 6d 65 73 20 73 6f |nto base|names so|
|00000b30| 20 74 68 61 74 20 66 69 | 6c 65 73 20 77 69 74 68 | that fi|les with|
|00000b40| 20 61 62 73 6f 6c 75 74 | 65 20 70 61 74 68 20 6e | absolut|e path n|
|00000b50| 61 6d 65 73 0a 09 58 61 | 72 65 20 70 75 74 20 69 |ames..Xa|re put i|
|00000b60| 6e 74 6f 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |nto the |current |
|00000b70| 64 69 72 65 63 74 6f 72 | 79 2e 0a 09 58 54 68 69 |director|y...XThi|
|00000b80| 73 20 6f 70 74 69 6f 6e | 20 68 61 73 20 73 74 72 |s option| has str|
|00000b90| 61 6e 67 65 20 65 66 66 | 65 63 74 73 20 77 68 65 |ange eff|ects whe|
|00000ba0| 6e 20 64 69 72 65 63 74 | 6f 72 69 65 73 20 61 72 |n direct|ories ar|
|00000bb0| 65 20 61 72 63 68 69 76 | 65 64 2e 0a 09 58 2e 4f |e archiv|ed...X.O|
|00000bc0| 50 20 64 20 64 65 6c 69 | 6d 0a 09 58 55 73 65 20 |P d deli|m..XUse |
|00000bd0| 74 68 69 73 20 61 73 20 | 74 68 65 20 60 60 65 6e |this as |the ``en|
|00000be0| 64 20 6f 66 20 66 69 6c | 65 27 27 20 64 65 6c 69 |d of fil|e'' deli|
|00000bf0| 6d 69 74 65 72 20 69 6e | 73 74 65 61 64 20 6f 66 |miter in|stead of|
|00000c00| 20 74 68 65 20 64 65 66 | 61 75 6c 74 2e 0a 09 58 | the def|ault...X|
|00000c10| 54 68 65 20 6f 6e 6c 79 | 20 72 65 61 73 6f 6e 20 |The only| reason |
|00000c20| 74 6f 20 63 68 61 6e 67 | 65 20 69 74 20 69 73 20 |to chang|e it is |
|00000c30| 69 66 20 79 6f 75 20 73 | 75 73 70 65 63 74 20 61 |if you s|uspect a|
|00000c40| 6e 20 66 69 6c 65 0a 09 | 58 63 6f 6e 74 61 69 6e |n file..|Xcontain|
|00000c50| 73 20 74 68 65 20 64 65 | 66 61 75 6c 74 20 64 65 |s the de|fault de|
|00000c60| 6c 69 6d 69 74 65 72 3a | 0a 09 58 2e 42 20 53 48 |limiter:|..X.B SH|
|00000c70| 41 52 5f 45 4f 46 2e 0a | 09 58 2e 4f 50 20 70 20 |AR_EOF..|.X.OP p |
|00000c80| 70 72 65 66 69 78 0a 09 | 58 55 73 65 20 74 68 69 |prefix..|XUse thi|
|00000c90| 73 20 61 73 20 74 68 65 | 20 70 72 65 66 69 78 20 |s as the| prefix |
|00000ca0| 74 6f 20 65 61 63 68 20 | 6c 69 6e 65 20 6f 66 20 |to each |line of |
|00000cb0| 74 68 65 20 61 72 63 68 | 69 76 65 64 20 66 69 6c |the arch|ived fil|
|00000cc0| 65 73 2e 0a 09 58 54 68 | 69 73 20 69 73 20 74 6f |es...XTh|is is to|
|00000cd0| 20 6d 61 6b 65 20 73 75 | 72 65 20 74 68 61 74 20 | make su|re that |
|00000ce0| 73 70 65 63 69 61 6c 20 | 63 68 61 72 61 63 74 65 |special |characte|
|00000cf0| 72 73 20 61 74 20 74 68 | 65 20 73 74 61 72 74 20 |rs at th|e start |
|00000d00| 6f 66 20 6c 69 6e 65 73 | 20 61 72 65 20 6e 6f 74 |of lines| are not|
|00000d10| 0a 09 58 65 61 74 65 6e | 20 75 70 20 62 79 20 70 |..Xeaten| up by p|
|00000d20| 72 6f 67 72 61 6d 73 20 | 6c 69 6b 65 20 6d 61 69 |rograms |like mai|
|00000d30| 6c 65 72 73 2e 0a 09 58 | 49 66 20 74 68 69 73 20 |lers...X|If this |
|00000d40| 6f 70 74 69 6f 6e 20 69 | 73 20 75 73 65 64 2c 0a |option i|s used,.|
|00000d50| 09 58 74 68 65 20 66 69 | 6c 65 73 20 77 69 6c 6c |.Xthe fi|les will|
|00000d60| 20 62 65 20 65 78 74 72 | 61 63 74 65 64 20 77 69 | be extr|acted wi|
|00000d70| 74 68 20 74 68 65 20 73 | 74 72 65 61 6d 20 65 64 |th the s|tream ed|
|00000d80| 69 74 6f 72 0a 09 58 2e | 42 20 73 65 64 0a 09 58 |itor..X.|B sed..X|
|00000d90| 72 61 74 68 65 72 20 74 | 68 61 6e 0a 09 58 2e 42 |rather t|han..X.B|
|00000da0| 20 63 61 74 0a 09 58 73 | 6f 20 69 74 20 69 73 20 | cat..Xs|o it is |
|00000db0| 6d 6f 72 65 20 65 66 66 | 69 63 69 65 6e 74 20 61 |more eff|icient a|
|00000dc0| 6e 64 20 70 6f 72 74 61 | 62 6c 65 20 74 6f 20 61 |nd porta|ble to a|
|00000dd0| 76 6f 69 64 20 73 65 74 | 74 69 6e 67 20 74 68 65 |void set|ting the|
|00000de0| 20 70 72 65 66 69 78 2c | 0a 09 58 74 68 6f 75 67 | prefix,|..Xthoug|
|00000df0| 68 20 70 65 72 68 61 70 | 73 20 6c 65 73 73 20 73 |h perhap|s less s|
|00000e00| 61 66 65 20 69 66 20 79 | 6f 75 20 64 6f 6e 27 74 |afe if y|ou don't|
|00000e10| 20 6b 6e 6f 77 20 77 68 | 61 74 20 69 73 20 69 6e | know wh|at is in|
|00000e20| 20 74 68 65 20 66 69 6c | 65 73 2e 0a 09 58 2e 53 | the fil|es...X.S|
|00000e30| 48 20 22 53 45 45 20 41 | 4c 53 4f 0a 09 58 74 61 |H "SEE A|LSO..Xta|
|00000e40| 72 28 31 29 2c 20 63 70 | 69 6f 28 31 29 2c 20 74 |r(1), cp|io(1), t|
|00000e50| 70 28 31 29 2c 20 73 68 | 28 31 29 0a 09 58 2e 53 |p(1), sh|(1)..X.S|
|00000e60| 48 20 41 55 54 48 4f 52 | 0a 09 58 47 61 72 79 20 |H AUTHOR|..XGary |
|00000e70| 50 65 72 6c 6d 61 6e 0a | 09 58 28 62 61 73 65 64 |Perlman.|.X(based|
|00000e80| 20 6f 6e 20 61 20 73 68 | 65 6c 6c 20 76 65 72 73 | on a sh|ell vers|
|00000e90| 69 6f 6e 20 62 79 20 4a | 61 6d 65 73 20 47 6f 73 |ion by J|ames Gos|
|00000ea0| 6c 69 6e 67 2c 0a 09 58 | 77 69 74 68 20 61 64 64 |ling,..X|with add|
|00000eb0| 69 74 69 6f 6e 73 20 6d | 6f 74 69 76 61 74 65 64 |itions m|otivated|
|00000ec0| 20 62 79 0a 09 58 44 65 | 72 65 6b 20 5a 61 68 6e | by..XDe|rek Zahn|
|00000ed0| 2c 0a 09 58 4d 69 63 68 | 61 65 6c 20 54 68 6f 6d |,..XMich|ael Thom|
|00000ee0| 70 73 6f 6e 2c 0a 09 58 | 48 2e 20 4d 6f 72 72 6f |pson,..X|H. Morro|
|00000ef0| 77 20 4c 6f 6e 67 2c 0a | 09 58 46 72 65 64 20 41 |w Long,.|.XFred A|
|00000f00| 76 6f 6c 69 6f 2c 0a 09 | 58 47 72 61 6e 20 55 64 |volio,..|XGran Ud|
|00000f10| 64 65 62 6f 72 67 2c 0a | 09 58 26 0a 09 58 43 68 |deborg,.|.X&..XCh|
|00000f20| 75 63 6b 20 57 65 67 72 | 7a 79 6e 29 0a 09 58 2e |uck Wegr|zyn)..X.|
|00000f30| 53 48 20 4c 49 4d 49 54 | 41 54 49 4f 4e 53 0a 09 |SH LIMIT|ATIONS..|
|00000f40| 58 2e 49 20 73 68 61 72 | 0a 09 58 64 6f 65 73 20 |X.I shar|..Xdoes |
|00000f50| 6e 6f 74 20 6b 6e 6f 77 | 20 61 6e 79 74 68 69 6e |not know| anythin|
|00000f60| 67 20 61 62 6f 75 74 0a | 09 58 6c 69 6e 6b 73 20 |g about.|.Xlinks |
|00000f70| 62 65 74 77 65 65 6e 20 | 66 69 6c 65 73 0a 09 58 |between |files..X|
|00000f80| 6f 72 20 62 69 6e 61 72 | 79 20 66 69 6c 65 73 2e |or binar|y files.|
|00000f90| 0a 53 48 41 52 5f 45 4f | 46 0a 69 66 20 74 65 73 |.SHAR_EO|F.if tes|
|00000fa0| 74 20 32 36 39 31 20 2d | 6e 65 20 22 60 77 63 20 |t 2691 -|ne "`wc |
|00000fb0| 2d 63 20 3c 20 27 73 68 | 61 72 2e 31 27 60 22 0a |-c < 'sh|ar.1'`".|
|00000fc0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|00000fd0| 20 65 72 72 6f 72 20 74 | 72 61 6e 73 6d 69 74 74 | error t|ransmitt|
|00000fe0| 69 6e 67 20 22 27 73 68 | 61 72 2e 31 27 22 20 27 |ing "'sh|ar.1'" '|
|00000ff0| 28 73 68 6f 75 6c 64 20 | 68 61 76 65 20 62 65 65 |(should |have bee|
|00001000| 6e 20 32 36 39 31 20 63 | 68 61 72 61 63 74 65 72 |n 2691 c|haracter|
|00001010| 73 29 27 0a 66 69 0a 66 | 69 20 23 20 65 6e 64 20 |s)'.fi.f|i # end |
|00001020| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00001030| 68 65 63 6b 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |heck.ech|o shar: |
|00001040| 65 78 74 72 61 63 74 69 | 6e 67 20 22 27 73 68 61 |extracti|ng "'sha|
|00001050| 72 2e 63 27 22 20 27 28 | 38 38 38 31 20 63 68 61 |r.c'" '(|8881 cha|
|00001060| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00001070| 74 20 2d 66 20 27 73 68 | 61 72 2e 63 27 0a 74 68 |t -f 'sh|ar.c'.th|
|00001080| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|00001090| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|000010a0| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000010b0| 20 22 27 73 68 61 72 2e | 63 27 22 0a 65 6c 73 65 | "'shar.|c'".else|
|000010c0| 0a 73 65 64 20 27 73 2f | 5e 09 58 2f 2f 27 20 3c |.sed 's/|^.X//' <|
|000010d0| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 73 |< \SHAR_|EOF > 's|
|000010e0| 68 61 72 2e 63 27 0a 09 | 58 23 69 6e 63 6c 75 64 |har.c'..|X#includ|
|000010f0| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 09 58 23 69 |e <stdio|.h>..X#i|
|00001100| 6e 63 6c 75 64 65 20 3c | 73 79 73 2f 74 79 70 65 |nclude <|sys/type|
|00001110| 73 2e 68 3e 0a 09 58 23 | 69 6e 63 6c 75 64 65 20 |s.h>..X#|include |
|00001120| 3c 73 79 73 2f 73 74 61 | 74 2e 68 3e 0a 09 58 23 |<sys/sta|t.h>..X#|
|00001130| 69 6e 63 6c 75 64 65 20 | 3c 63 74 79 70 65 2e 68 |include |<ctype.h|
|00001140| 3e 0a 09 58 0a 09 58 2f | 2a 7b 0a 09 58 53 68 61 |>..X..X/|*{..XSha|
|00001150| 72 20 70 75 74 73 20 72 | 65 61 64 61 62 6c 65 20 |r puts r|eadable |
|00001160| 74 65 78 74 20 66 69 6c | 65 73 20 74 6f 67 65 74 |text fil|es toget|
|00001170| 68 65 72 20 69 6e 20 61 | 20 70 61 63 6b 61 67 65 |her in a| package|
|00001180| 0a 09 58 66 72 6f 6d 20 | 77 68 69 63 68 20 74 68 |..Xfrom |which th|
|00001190| 65 79 20 61 72 65 20 65 | 61 73 79 20 74 6f 20 65 |ey are e|asy to e|
|000011a0| 78 74 72 61 63 74 2e 20 | 20 54 68 65 20 6f 72 69 |xtract. | The ori|
|000011b0| 67 69 6e 61 6c 20 76 65 | 72 73 69 6f 6e 0a 09 58 |ginal ve|rsion..X|
|000011c0| 77 61 73 20 61 20 73 68 | 65 6c 6c 20 73 63 72 69 |was a sh|ell scri|
|000011d0| 70 74 20 70 6f 73 74 65 | 64 20 74 6f 20 74 68 65 |pt poste|d to the|
|000011e0| 20 6e 65 74 2c 20 73 68 | 6f 77 6e 20 62 65 6c 6f | net, sh|own belo|
|000011f0| 77 3a 0a 09 58 09 23 44 | 61 74 65 3a 20 4d 6f 6e |w:..X.#D|ate: Mon|
|00001200| 20 4f 63 74 20 31 38 20 | 31 31 3a 30 38 3a 33 34 | Oct 18 |11:08:34|
|00001210| 20 31 39 38 32 0a 09 58 | 09 23 46 72 6f 6d 3a 20 | 1982..X|.#From: |
|00001220| 64 65 63 76 61 78 21 6d | 69 63 72 6f 73 6f 66 21 |decvax!m|icrosof!|
|00001230| 75 77 2d 62 65 61 76 65 | 21 6a 69 6d 20 28 4a 61 |uw-beave|!jim (Ja|
|00001240| 6d 65 73 20 47 6f 73 6c | 69 6e 67 20 61 74 20 43 |mes Gosl|ing at C|
|00001250| 4d 55 29 0a 09 58 09 41 | 52 3d 24 31 0a 09 58 09 |MU)..X.A|R=$1..X.|
|00001260| 73 68 69 66 74 0a 09 58 | 09 66 6f 72 20 69 20 64 |shift..X|.for i d|
|00001270| 6f 0a 09 58 09 09 65 63 | 68 6f 20 61 20 2d 20 24 |o..X..ec|ho a - $|
|00001280| 69 0a 09 58 09 09 65 63 | 68 6f 20 22 65 63 68 6f |i..X..ec|ho "echo|
|00001290| 20 78 20 2d 20 24 69 22 | 20 3e 3e 24 41 52 0a 09 | x - $i"| >>$AR..|
|000012a0| 58 09 09 65 63 68 6f 20 | 22 63 61 74 20 3e 24 69 |X..echo |"cat >$i|
|000012b0| 20 3c 3c 27 21 46 75 6e | 6b 79 21 53 74 75 66 66 | <<'!Fun|ky!Stuff|
|000012c0| 21 27 22 20 3e 3e 24 41 | 52 0a 09 58 09 09 63 61 |!'" >>$A|R..X..ca|
|000012d0| 74 20 24 69 20 3e 3e 24 | 41 52 0a 09 58 09 09 65 |t $i >>$|AR..X..e|
|000012e0| 63 68 6f 20 22 21 46 75 | 6e 6b 79 21 53 74 75 66 |cho "!Fu|nky!Stuf|
|000012f0| 66 21 22 20 3e 3e 24 41 | 52 0a 09 58 09 64 6f 6e |f!" >>$A|R..X.don|
|00001300| 65 0a 09 58 49 20 72 65 | 77 72 6f 74 65 20 74 68 |e..XI re|wrote th|
|00001310| 69 73 20 76 65 72 73 69 | 6f 6e 20 69 6e 20 43 20 |is versi|on in C |
|00001320| 74 6f 20 70 72 6f 76 69 | 64 65 20 62 65 74 74 65 |to provi|de bette|
|00001330| 72 20 64 69 61 67 6e 6f | 73 74 69 63 73 0a 09 58 |r diagno|stics..X|
|00001340| 61 6e 64 20 74 6f 20 72 | 75 6e 20 66 61 73 74 65 |and to r|un faste|
|00001350| 72 2e 20 20 54 68 65 20 | 6d 61 6a 6f 72 20 64 69 |r.  The |major di|
|00001360| 66 66 65 72 65 6e 63 65 | 20 69 73 20 74 68 61 74 |fference| is that|
|00001370| 20 6d 79 20 76 65 72 73 | 69 6f 6e 0a 09 58 64 6f | my vers|ion..Xdo|
|00001380| 65 73 20 6e 6f 74 20 61 | 66 66 65 63 74 20 61 6e |es not a|ffect an|
|00001390| 79 20 66 69 6c 65 73 20 | 62 65 63 61 75 73 65 20 |y files |because |
|000013a0| 69 74 20 70 72 69 6e 74 | 73 20 74 6f 20 74 68 65 |it print|s to the|
|000013b0| 20 73 74 61 6e 64 61 72 | 64 0a 09 58 6f 75 74 70 | standar|d..Xoutp|
|000013c0| 75 74 2e 20 20 4d 69 6e | 65 20 61 6c 73 6f 20 68 |ut.  Min|e also h|
|000013d0| 61 73 20 73 65 76 65 72 | 61 6c 20 6f 70 74 69 6f |as sever|al optio|
|000013e0| 6e 73 2e 0a 09 58 0a 09 | 58 47 61 72 79 20 50 65 |ns...X..|XGary Pe|
|000013f0| 72 6c 6d 61 6e 2f 57 61 | 6e 67 20 49 6e 73 74 69 |rlman/Wa|ng Insti|
|00001400| 74 75 74 65 2f 54 79 6e | 67 73 62 6f 72 6f 2c 20 |tute/Tyn|gsboro, |
|00001410| 4d 41 2f 30 31 38 37 39 | 2f 28 36 31 37 29 20 36 |MA/01879|/(617) 6|
|00001420| 34 39 2d 39 37 33 31 0a | 09 58 0a 09 58 4d 61 6e |49-9731.|.X..XMan|
|00001430| 79 20 65 6e 68 61 6e 63 | 65 6d 65 6e 74 73 20 6d |y enhanc|ements m|
|00001440| 6f 74 69 76 61 74 65 64 | 20 62 79 20 4d 69 63 68 |otivated| by Mich|
|00001450| 61 65 6c 20 54 68 6f 6d | 70 73 6f 6e 2e 0a 09 58 |ael Thom|pson...X|
|00001460| 0a 09 58 44 69 72 65 63 | 74 6f 72 79 20 61 72 63 |..XDirec|tory arc|
|00001470| 68 69 76 69 6e 67 20 6d | 6f 74 69 76 61 74 65 64 |hiving m|otivated|
|00001480| 20 62 79 20 44 65 72 65 | 6b 20 5a 61 68 6e 20 40 | by Dere|k Zahn @|
|00001490| 20 77 69 73 63 6f 6e 73 | 69 6e 0a 09 58 09 48 69 | wiscons|in..X.Hi|
|000014a0| 73 20 76 65 72 73 69 6f | 6e 20 68 61 64 20 73 6f |s versio|n had so|
|000014b0| 6d 65 20 70 72 6f 62 6c | 65 6d 73 2c 20 73 6f 20 |me probl|ems, so |
|000014c0| 49 20 77 72 6f 74 65 20 | 61 20 67 65 6e 65 72 61 |I wrote |a genera|
|000014d0| 6c 0a 09 58 09 72 6f 75 | 74 69 6e 65 20 66 6f 72 |l..X.rou|tine for|
|000014e0| 20 74 72 61 76 65 72 73 | 69 6e 67 20 61 20 64 69 | travers|ing a di|
|000014f0| 72 65 63 74 6f 72 79 20 | 68 69 65 72 61 72 63 68 |rectory |hierarch|
|00001500| 79 2e 20 20 49 74 0a 09 | 58 09 61 6c 6c 6f 77 73 |y.  It..|X.allows|
|00001510| 20 6d 61 72 63 68 69 6e | 67 20 74 68 72 6f 75 67 | marchin|g throug|
|00001520| 68 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 6f 6e |h a dire|ctory on|
|00001530| 20 6f 6c 64 20 61 6e 64 | 20 6e 65 77 0a 09 58 09 | old and| new..X.|
|00001540| 55 4e 49 58 20 73 79 73 | 74 65 6d 73 2e 0a 09 58 |UNIX sys|tems...X|
|00001550| 7d 2a 2f 0a 09 58 0a 09 | 58 2f 2a 20 43 4f 4d 4d |}*/..X..|X/* COMM|
|00001560| 41 4e 44 53 20 2a 2f 0a | 09 58 23 64 65 66 69 6e |ANDS */.|.X#defin|
|00001570| 65 09 45 58 54 52 41 43 | 54 20 22 23 21 20 2f 62 |e.EXTRAC|T "#! /b|
|00001580| 69 6e 2f 73 68 22 20 20 | 20 20 20 2f 2a 20 6d 61 |in/sh"  |   /* ma|
|00001590| 67 69 63 20 65 78 65 63 | 20 73 74 72 69 6e 67 20 |gic exec| string |
|000015a0| 61 74 20 73 68 61 72 20 | 66 69 6c 65 20 73 74 61 |at shar |file sta|
|000015b0| 72 74 20 2a 2f 0a 09 58 | 23 64 65 66 69 6e 65 09 |rt */..X|#define.|
|000015c0| 50 41 54 48 20 20 20 20 | 22 2f 62 69 6e 3a 24 50 |PATH    |"/bin:$P|
|000015d0| 41 54 48 22 20 20 20 20 | 20 2f 2a 20 73 65 61 72 |ATH"    | /* sear|
|000015e0| 63 68 20 70 61 74 68 20 | 66 6f 72 20 70 72 6f 67 |ch path |for prog|
|000015f0| 72 61 6d 73 20 2a 2f 0a | 09 58 23 64 65 66 69 6e |rams */.|.X#defin|
|00001600| 65 09 43 41 54 20 20 20 | 20 20 22 63 61 74 22 3b |e.CAT   |  "cat";|
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 2f 2a 20 2f 62 |        |   /* /b|
|00001620| 69 6e 2f 63 61 74 20 2a | 2f 0a 09 58 23 64 65 66 |in/cat *|/..X#def|
|00001630| 69 6e 65 09 53 45 44 20 | 20 20 20 20 22 73 65 64 |ine.SED |    "sed|
|00001640| 20 27 73 2f 5e 25 73 2f | 2f 27 22 20 20 2f 2a 20 | 's/^%s/|/'"  /* |
|00001650| 2f 62 69 6e 2f 73 65 64 | 20 72 65 6d 6f 76 65 73 |/bin/sed| removes|
|00001660| 20 50 72 65 66 69 78 20 | 66 72 6f 6d 20 6c 69 6e | Prefix |from lin|
|00001670| 65 73 20 2a 2f 0a 09 58 | 23 64 65 66 69 6e 65 09 |es */..X|#define.|
|00001680| 4d 4b 44 49 52 20 20 20 | 22 6d 6b 64 69 72 22 20 |MKDIR   |"mkdir" |
|00001690| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 6d 61 6b 65 |        | /* make|
|000016a0| 20 61 20 6e 65 77 20 64 | 69 72 63 74 6f 72 79 20 | a new d|irctory |
|000016b0| 2a 2f 0a 09 58 23 64 65 | 66 69 6e 65 09 43 48 4d |*/..X#de|fine.CHM|
|000016c0| 4f 44 20 20 20 22 63 68 | 6d 6f 64 20 2b 78 22 20 |OD   "ch|mod +x" |
|000016d0| 20 20 20 20 20 20 2f 2a | 20 63 68 61 6e 67 65 20 |      /*| change |
|000016e0| 66 69 6c 65 20 70 72 6f | 74 65 63 74 69 6f 6e 20 |file pro|tection |
|000016f0| 28 66 6f 72 20 65 78 65 | 63 75 74 61 62 6c 65 73 |(for exe|cutables|
|00001700| 29 20 2a 2f 0a 09 58 23 | 64 65 66 69 6e 65 09 43 |) */..X#|define.C|
|00001710| 48 44 49 52 20 20 20 22 | 63 64 22 20 20 20 20 20 |HDIR   "|cd"     |
|00001720| 20 20 20 20 20 20 20 20 | 2f 2a 20 63 68 61 6e 67 |        |/* chang|
|00001730| 65 20 63 75 72 72 65 6e | 74 20 64 69 72 65 63 74 |e curren|t direct|
|00001740| 6f 72 79 20 2a 2f 0a 09 | 58 23 64 65 66 69 6e 65 |ory */..|X#define|
|00001750| 09 54 45 53 54 20 20 20 | 20 22 74 65 73 74 22 20 |.TEST   | "test" |
|00001760| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 2f 62 69 |        |  /* /bi|
|00001770| 6e 2f 74 65 73 74 20 66 | 69 6c 65 73 20 2a 2f 0a |n/test f|iles */.|
|00001780| 09 58 23 64 65 66 69 6e | 65 09 57 43 5f 43 20 20 |.X#defin|e.WC_C  |
|00001790| 20 20 22 77 63 20 2d 63 | 20 3c 22 20 20 20 20 20 |  "wc -c| <"     |
|000017a0| 20 20 20 2f 2a 20 63 6f | 75 6e 74 73 20 63 68 61 |   /* co|unts cha|
|000017b0| 72 73 20 69 6e 20 66 69 | 6c 65 20 2a 2f 0a 09 58 |rs in fi|le */..X|
|000017c0| 23 64 65 66 69 6e 65 09 | 45 43 48 4f 20 20 20 20 |#define.|ECHO    |
|000017d0| 22 65 63 68 6f 20 73 68 | 61 72 22 20 20 20 20 20 |"echo sh|ar"     |
|000017e0| 20 2f 2a 20 65 63 68 6f | 20 61 20 6d 65 73 73 61 | /* echo| a messa|
|000017f0| 67 65 20 74 6f 20 65 78 | 74 72 61 63 74 6f 72 20 |ge to ex|tractor |
|00001800| 2a 2f 0a 09 58 0a 09 58 | 6d 61 69 6e 20 28 61 72 |*/..X..X|main (ar|
|00001810| 67 63 2c 20 61 72 67 76 | 29 20 63 68 61 72 20 2a |gc, argv|) char *|
|00001820| 2a 61 72 67 76 3b 09 0a | 09 58 09 7b 0a 09 58 09 |*argv;..|.X.{..X.|
|00001830| 69 6e 74 20 09 73 68 61 | 72 20 28 29 3b 0a 09 58 |int .sha|r ();..X|
|00001840| 09 69 6e 74 20 09 6f 70 | 74 69 6e 64 3b 0a 09 58 |.int .op|tind;..X|
|00001850| 09 69 66 20 28 28 6f 70 | 74 69 6e 64 20 3d 20 69 |.if ((op|tind = i|
|00001860| 6e 69 74 69 61 6c 20 28 | 61 72 67 63 2c 20 61 72 |nitial (|argc, ar|
|00001870| 67 76 29 29 20 3c 20 30 | 29 0a 09 58 09 09 65 78 |gv)) < 0|)..X..ex|
|00001880| 69 74 20 28 31 29 3b 0a | 09 58 09 69 66 20 28 68 |it (1);.|.X.if (h|
|00001890| 65 61 64 65 72 20 28 61 | 72 67 63 2c 20 61 72 67 |eader (a|rgc, arg|
|000018a0| 76 2c 20 6f 70 74 69 6e | 64 29 29 0a 09 58 09 09 |v, optin|d))..X..|
|000018b0| 65 78 69 74 20 28 32 29 | 3b 0a 09 58 09 77 68 69 |exit (2)|;..X.whi|
|000018c0| 6c 65 20 28 6f 70 74 69 | 6e 64 20 3c 20 61 72 67 |le (opti|nd < arg|
|000018d0| 63 29 0a 09 58 09 09 74 | 72 61 76 65 72 73 65 20 |c)..X..t|raverse |
|000018e0| 28 61 72 67 76 5b 6f 70 | 74 69 6e 64 2b 2b 5d 2c |(argv[op|tind++],|
|000018f0| 20 73 68 61 72 29 3b 0a | 09 58 09 66 6f 6f 74 65 | shar);.|.X.foote|
|00001900| 72 20 28 29 3b 0a 09 58 | 09 65 78 69 74 20 28 30 |r ();..X|.exit (0|
|00001910| 29 3b 0a 09 58 09 7d 0a | 09 58 0a 09 58 2f 2a 09 |);..X.}.|.X..X/*.|
|00001920| 09 09 4f 50 54 49 4f 4e | 53 09 09 09 2a 2f 0a 09 |..OPTION|S...*/..|
|00001930| 58 74 79 70 65 64 65 66 | 09 69 6e 74 09 6c 67 6c |Xtypedef|.int.lgl|
|00001940| 3b 0a 09 58 23 64 65 66 | 69 6e 65 09 74 72 75 65 |;..X#def|ine.true|
|00001950| 09 28 28 6c 67 6c 29 20 | 31 29 0a 09 58 23 64 65 |.((lgl) |1)..X#de|
|00001960| 66 69 6e 65 09 66 61 6c | 73 65 09 28 28 6c 67 6c |fine.fal|se.((lgl|
|00001970| 29 20 30 29 0a 09 58 69 | 6e 74 20 09 4c 61 73 74 |) 0)..Xi|nt .Last|
|00001980| 63 68 61 72 3b 20 20 20 | 2f 2a 20 74 68 65 20 6c |char;   |/* the l|
|00001990| 61 73 74 20 63 68 61 72 | 61 63 74 65 72 20 70 72 |ast char|acter pr|
|000019a0| 69 6e 74 65 64 20 2a 2f | 0a 09 58 69 6e 74 20 09 |inted */|..Xint .|
|000019b0| 43 74 72 6c 63 6f 75 6e | 74 3b 20 20 2f 2a 20 68 |Ctrlcoun|t;  /* h|
|000019c0| 6f 77 20 6d 61 6e 79 20 | 62 61 64 20 63 6f 6e 74 |ow many |bad cont|
|000019d0| 72 6f 6c 20 63 68 61 72 | 61 63 74 65 72 73 20 61 |rol char|acters a|
|000019e0| 72 65 20 69 6e 20 66 69 | 6c 65 20 2a 2f 0a 09 58 |re in fi|le */..X|
|000019f0| 0a 09 58 23 64 65 66 69 | 6e 65 09 55 53 41 47 45 |..X#defi|ne.USAGE|
|00001a00| 20 22 5b 2d 61 62 63 73 | 76 5d 20 5b 2d 70 20 70 | "[-abcs|v] [-p p|
|00001a10| 72 65 66 69 78 5d 20 5b | 2d 64 20 64 65 6c 69 6d |refix] [|-d delim|
|00001a20| 5d 20 66 69 6c 65 73 20 | 3e 20 61 72 63 68 69 76 |] files |> archiv|
|00001a30| 65 22 0a 09 58 23 64 65 | 66 69 6e 65 09 4f 50 54 |e"..X#de|fine.OPT|
|00001a40| 53 54 52 49 4e 47 20 22 | 61 62 63 73 76 70 3a 64 |STRING "|abcsvp:d|
|00001a50| 3a 22 0a 09 58 0a 09 58 | 6c 67 6c 20 09 56 65 72 |:"..X..X|lgl .Ver|
|00001a60| 62 6f 73 65 20 3d 20 66 | 61 6c 73 65 3b 20 20 20 |bose = f|alse;   |
|00001a70| 20 20 20 20 2f 2a 20 70 | 72 6f 76 69 64 65 20 61 |    /* p|rovide a|
|00001a80| 70 70 65 6e 64 2f 65 78 | 74 72 61 63 74 20 66 65 |ppend/ex|tract fe|
|00001a90| 65 64 62 61 63 6b 20 2a | 2f 0a 09 58 6c 67 6c 20 |edback *|/..Xlgl |
|00001aa0| 09 42 61 73 65 6e 61 6d | 65 20 3d 20 66 61 6c 73 |.Basenam|e = fals|
|00001ab0| 65 3b 20 20 20 20 20 20 | 2f 2a 20 65 78 74 72 61 |e;      |/* extra|
|00001ac0| 63 74 20 69 6e 74 6f 20 | 62 61 73 65 6e 61 6d 65 |ct into |basename|
|00001ad0| 73 20 2a 2f 0a 09 58 6c | 67 6c 20 09 43 6f 75 6e |s */..Xl|gl .Coun|
|00001ae0| 74 20 3d 20 66 61 6c 73 | 65 3b 20 20 20 20 20 20 |t = fals|e;      |
|00001af0| 20 20 20 2f 2a 20 63 6f | 75 6e 74 20 63 68 61 72 |   /* co|unt char|
|00001b00| 61 63 74 65 72 73 20 74 | 6f 20 63 68 65 63 6b 20 |acters t|o check |
|00001b10| 74 72 61 6e 73 66 65 72 | 20 2a 2f 0a 09 58 6c 67 |transfer| */..Xlg|
|00001b20| 6c 20 09 53 69 6c 65 6e | 74 20 3d 20 66 61 6c 73 |l .Silen|t = fals|
|00001b30| 65 3b 20 20 20 20 20 20 | 20 20 2f 2a 20 74 75 72 |e;      |  /* tur|
|00001b40| 6e 20 6f 66 66 20 61 6c | 6c 20 76 65 72 62 6f 73 |n off al|l verbos|
|00001b50| 69 74 79 20 2a 2f 0a 09 | 58 63 68 61 72 09 2a 44 |ity */..|Xchar.*D|
|00001b60| 65 6c 69 6d 20 3d 20 22 | 53 48 41 52 5f 45 4f 46 |elim = "|SHAR_EOF|
|00001b70| 22 3b 20 20 20 2f 2a 20 | 70 75 74 20 61 66 74 65 |";   /* |put afte|
|00001b80| 72 20 65 61 63 68 20 66 | 69 6c 65 20 2a 2f 0a 09 |r each f|ile */..|
|00001b90| 58 63 68 61 72 09 46 69 | 6c 74 65 72 5b 31 30 30 |Xchar.Fi|lter[100|
|00001ba0| 5d 20 3d 20 43 41 54 3b | 20 20 20 20 20 2f 2a 20 |] = CAT;|     /* |
|00001bb0| 75 73 65 64 20 74 6f 20 | 65 78 74 72 61 63 74 20 |used to |extract |
|00001bc0| 61 72 63 68 69 76 65 64 | 20 66 69 6c 65 73 20 2a |archived| files *|
|00001bd0| 2f 0a 09 58 63 68 61 72 | 09 2a 50 72 65 66 69 78 |/..Xchar|.*Prefix|
|00001be0| 20 3d 20 4e 55 4c 4c 3b | 20 20 20 20 20 20 20 20 | = NULL;|        |
|00001bf0| 2f 2a 20 6c 69 6e 65 20 | 70 72 65 66 69 78 20 74 |/* line |prefix t|
|00001c00| 6f 20 61 76 6f 69 64 20 | 66 75 6e 6e 79 20 63 68 |o avoid |funny ch|
|00001c10| 61 72 73 20 2a 2f 0a 09 | 58 0a 09 58 69 6e 74 20 |ars */..|X..Xint |
|00001c20| 2f 2a 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 69 |/* retur|ns the i|
|00001c30| 6e 64 65 78 20 6f 66 20 | 74 68 65 20 66 69 72 73 |ndex of |the firs|
|00001c40| 74 20 6f 70 65 72 61 6e | 64 20 66 69 6c 65 20 2a |t operan|d file *|
|00001c50| 2f 0a 09 58 69 6e 69 74 | 69 61 6c 20 28 61 72 67 |/..Xinit|ial (arg|
|00001c60| 63 2c 20 61 72 67 76 29 | 20 63 68 61 72 20 2a 2a |c, argv)| char **|
|00001c70| 61 72 67 76 3b 0a 09 58 | 09 7b 0a 09 58 09 69 6e |argv;..X|.{..X.in|
|00001c80| 74 20 09 65 72 72 66 6c | 67 20 3d 20 30 3b 0a 09 |t .errfl|g = 0;..|
|00001c90| 58 09 65 78 74 65 72 6e | 09 69 6e 74 20 09 6f 70 |X.extern|.int .op|
|00001ca0| 74 69 6e 64 3b 0a 09 58 | 09 65 78 74 65 72 6e 09 |tind;..X|.extern.|
|00001cb0| 63 68 61 72 09 2a 6f 70 | 74 61 72 67 3b 0a 09 58 |char.*op|targ;..X|
|00001cc0| 09 69 6e 74 20 09 43 3b | 0a 09 58 09 77 68 69 6c |.int .C;|..X.whil|
|00001cd0| 65 20 28 28 43 20 3d 20 | 67 65 74 6f 70 74 20 28 |e ((C = |getopt (|
|00001ce0| 61 72 67 63 2c 20 61 72 | 67 76 2c 20 4f 50 54 53 |argc, ar|gv, OPTS|
|00001cf0| 54 52 49 4e 47 29 29 20 | 21 3d 20 45 4f 46 29 0a |TRING)) |!= EOF).|
|00001d00| 09 58 09 09 73 77 69 74 | 63 68 20 28 43 29 0a 09 |.X..swit|ch (C)..|
|00001d10| 58 09 09 09 7b 0a 09 58 | 09 09 09 63 61 73 65 20 |X...{..X|...case |
|00001d20| 27 76 27 3a 20 56 65 72 | 62 6f 73 65 20 3d 20 74 |'v': Ver|bose = t|
|00001d30| 72 75 65 3b 20 62 72 65 | 61 6b 3b 0a 09 58 09 09 |rue; bre|ak;..X..|
|00001d40| 09 63 61 73 65 20 27 63 | 27 3a 20 43 6f 75 6e 74 |.case 'c|': Count|
|00001d50| 20 3d 20 74 72 75 65 3b | 20 62 72 65 61 6b 3b 0a | = true;| break;.|
|00001d60| 09 58 09 09 09 63 61 73 | 65 20 27 62 27 3a 20 42 |.X...cas|e 'b': B|
|00001d70| 61 73 65 6e 61 6d 65 20 | 3d 20 74 72 75 65 3b 20 |asename |= true; |
|00001d80| 62 72 65 61 6b 3b 0a 09 | 58 09 09 09 63 61 73 65 |break;..|X...case|
|00001d90| 20 27 64 27 3a 20 44 65 | 6c 69 6d 20 3d 20 6f 70 | 'd': De|lim = op|
|00001da0| 74 61 72 67 3b 20 62 72 | 65 61 6b 3b 0a 09 58 09 |targ; br|eak;..X.|
|00001db0| 09 09 63 61 73 65 20 27 | 73 27 3a 20 2f 2a 20 73 |..case '|s': /* s|
|00001dc0| 69 6c 65 6e 74 20 72 75 | 6e 6e 69 6e 67 20 2a 2f |ilent ru|nning */|
|00001dd0| 0a 09 58 09 09 09 09 53 | 69 6c 65 6e 74 20 3d 20 |..X....S|ilent = |
|00001de0| 74 72 75 65 3b 0a 09 58 | 09 09 09 09 56 65 72 62 |true;..X|....Verb|
|00001df0| 6f 73 65 20 3d 20 66 61 | 6c 73 65 3b 0a 09 58 09 |ose = fa|lse;..X.|
|00001e00| 09 09 09 43 6f 75 6e 74 | 20 3d 20 66 61 6c 73 65 |...Count| = false|
|00001e10| 3b 0a 09 58 09 09 09 09 | 50 72 65 66 69 78 20 3d |;..X....|Prefix =|
|00001e20| 20 4e 55 4c 4c 3b 0a 09 | 58 09 09 09 09 62 72 65 | NULL;..|X....bre|
|00001e30| 61 6b 3b 0a 09 58 09 09 | 09 63 61 73 65 20 27 61 |ak;..X..|.case 'a|
|00001e40| 27 3a 20 2f 2a 20 61 6c | 6c 20 74 68 65 20 6f 70 |': /* al|l the op|
|00001e50| 74 69 6f 6e 73 20 2a 2f | 0a 09 58 09 09 09 09 56 |tions */|..X....V|
|00001e60| 65 72 62 6f 73 65 20 3d | 20 74 72 75 65 3b 0a 09 |erbose =| true;..|
|00001e70| 58 09 09 09 09 43 6f 75 | 6e 74 20 3d 20 74 72 75 |X....Cou|nt = tru|
|00001e80| 65 3b 0a 09 58 09 09 09 | 09 42 61 73 65 6e 61 6d |e;..X...|.Basenam|
|00001e90| 65 20 3d 20 74 72 75 65 | 3b 0a 09 58 09 09 09 09 |e = true|;..X....|
|00001ea0| 2f 2a 20 66 61 6c 6c 20 | 74 68 72 6f 75 67 68 20 |/* fall |through |
|00001eb0| 74 6f 20 73 65 74 20 70 | 72 65 66 69 78 20 2a 2f |to set p|refix */|
|00001ec0| 0a 09 58 09 09 09 09 6f | 70 74 61 72 67 20 3d 20 |..X....o|ptarg = |
|00001ed0| 22 09 58 22 3b 0a 09 58 | 09 09 09 63 61 73 65 20 |".X";..X|...case |
|00001ee0| 27 70 27 3a 20 28 76 6f | 69 64 29 20 73 70 72 69 |'p': (vo|id) spri|
|00001ef0| 6e 74 66 20 28 46 69 6c | 74 65 72 2c 20 53 45 44 |ntf (Fil|ter, SED|
|00001f00| 2c 20 50 72 65 66 69 78 | 20 3d 20 6f 70 74 61 72 |, Prefix| = optar|
|00001f10| 67 29 3b 20 62 72 65 61 | 6b 3b 0a 09 58 09 09 09 |g); brea|k;..X...|
|00001f20| 64 65 66 61 75 6c 74 3a | 20 65 72 72 66 6c 67 2b |default:| errflg+|
|00001f30| 2b 3b 0a 09 58 09 09 09 | 7d 0a 09 58 09 69 66 20 |+;..X...|}..X.if |
|00001f40| 28 65 72 72 66 6c 67 20 | 7c 7c 20 6f 70 74 69 6e |(errflg ||| optin|
|00001f50| 64 20 3d 3d 20 61 72 67 | 63 29 0a 09 58 09 09 7b |d == arg|c)..X..{|
|00001f60| 0a 09 58 09 09 69 66 20 | 28 6f 70 74 69 6e 64 20 |..X..if |(optind |
|00001f70| 3d 3d 20 61 72 67 63 29 | 0a 09 58 09 09 09 66 70 |== argc)|..X...fp|
|00001f80| 72 69 6e 74 66 20 28 73 | 74 64 65 72 72 2c 20 22 |rintf (s|tderr, "|
|00001f90| 73 68 61 72 3a 20 4e 6f | 20 69 6e 70 75 74 20 66 |shar: No| input f|
|00001fa0| 69 6c 65 73 5c 6e 22 29 | 3b 0a 09 58 09 09 66 70 |iles\n")|;..X..fp|
|00001fb0| 72 69 6e 74 66 20 28 73 | 74 64 65 72 72 2c 20 22 |rintf (s|tderr, "|
|00001fc0| 55 53 41 47 45 3a 20 73 | 68 61 72 20 25 73 5c 6e |USAGE: s|har %s\n|
|00001fd0| 22 2c 20 55 53 41 47 45 | 29 3b 0a 09 58 09 09 72 |", USAGE|);..X..r|
|00001fe0| 65 74 75 72 6e 20 28 2d | 31 29 3b 0a 09 58 09 09 |eturn (-|1);..X..|
|00001ff0| 7d 0a 09 58 09 72 65 74 | 75 72 6e 20 28 6f 70 74 |}..X.ret|urn (opt|
|00002000| 69 6e 64 29 3b 0a 09 58 | 09 7d 0a 09 58 0a 09 58 |ind);..X|.}..X..X|
|00002010| 68 65 61 64 65 72 20 28 | 61 72 67 63 2c 20 61 72 |header (|argc, ar|
|00002020| 67 76 2c 20 6f 70 74 69 | 6e 64 29 0a 09 58 63 68 |gv, opti|nd)..Xch|
|00002030| 61 72 09 2a 2a 61 72 67 | 76 3b 0a 09 58 09 7b 0a |ar.**arg|v;..X.{.|
|00002040| 09 58 09 69 6e 74 20 09 | 69 3b 0a 09 58 09 6c 67 |.X.int .|i;..X.lg|
|00002050| 6c 20 09 70 72 6f 62 6c | 65 6d 73 20 3d 20 66 61 |l .probl|ems = fa|
|00002060| 6c 73 65 3b 0a 09 58 09 | 6c 6f 6e 67 09 63 6c 6f |lse;..X.|long.clo|
|00002070| 63 6b 3b 0a 09 58 09 63 | 68 61 72 09 2a 63 74 69 |ck;..X.c|har.*cti|
|00002080| 6d 65 20 28 29 3b 0a 09 | 58 09 63 68 61 72 09 2a |me ();..|X.char.*|
|00002090| 67 65 74 65 6e 76 20 28 | 29 3b 0a 09 58 09 63 68 |getenv (|);..X.ch|
|000020a0| 61 72 09 2a 4e 41 4d 45 | 20 3d 20 67 65 74 65 6e |ar.*NAME| = geten|
|000020b0| 76 20 28 22 4e 41 4d 45 | 22 29 3b 0a 09 58 09 63 |v ("NAME|");..X.c|
|000020c0| 68 61 72 09 2a 4f 52 47 | 20 3d 20 67 65 74 65 6e |har.*ORG| = geten|
|000020d0| 76 20 28 22 4f 52 47 41 | 4e 49 5a 41 54 49 4f 4e |v ("ORGA|NIZATION|
|000020e0| 22 29 3b 0a 09 58 09 66 | 6f 72 20 28 69 20 3d 20 |");..X.f|or (i = |
|000020f0| 6f 70 74 69 6e 64 3b 20 | 69 20 3c 20 61 72 67 63 |optind; |i < argc|
|00002100| 3b 20 69 2b 2b 29 0a 09 | 58 09 09 69 66 20 28 61 |; i++)..|X..if (a|
|00002110| 63 63 65 73 73 20 28 61 | 72 67 76 5b 69 5d 2c 20 |ccess (a|rgv[i], |
|00002120| 34 29 29 20 2f 2a 20 63 | 68 65 63 6b 20 72 65 61 |4)) /* c|heck rea|
|00002130| 64 20 70 65 72 6d 69 73 | 73 69 6f 6e 20 2a 2f 0a |d permis|sion */.|
|00002140| 09 58 09 09 09 7b 0a 09 | 58 09 09 09 66 70 72 69 |.X...{..|X...fpri|
|00002150| 6e 74 66 20 28 73 74 64 | 65 72 72 2c 20 22 73 68 |ntf (std|err, "sh|
|00002160| 61 72 3a 20 43 61 6e 27 | 74 20 72 65 61 64 20 27 |ar: Can'|t read '|
|00002170| 25 73 27 5c 6e 22 2c 20 | 61 72 67 76 5b 69 5d 29 |%s'\n", |argv[i])|
|00002180| 3b 0a 09 58 09 09 09 70 | 72 6f 62 6c 65 6d 73 2b |;..X...p|roblems+|
|00002190| 2b 3b 0a 09 58 09 09 09 | 7d 0a 09 58 09 69 66 20 |+;..X...|}..X.if |
|000021a0| 28 70 72 6f 62 6c 65 6d | 73 29 20 72 65 74 75 72 |(problem|s) retur|
|000021b0| 6e 20 28 70 72 6f 62 6c | 65 6d 73 29 3b 0a 09 58 |n (probl|ems);..X|
|000021c0| 09 2f 2a 09 49 20 68 61 | 76 65 20 67 69 76 65 6e |./*.I ha|ve given|
|000021d0| 20 75 70 20 6f 6e 20 70 | 75 74 74 69 6e 67 20 61 | up on p|utting a|
|000021e0| 20 63 75 74 20 6c 69 6e | 65 20 69 6e 20 74 68 65 | cut lin|e in the|
|000021f0| 20 61 72 63 68 69 76 65 | 2e 0a 09 58 09 09 54 6f | archive|...X..To|
|00002200| 6f 20 6d 61 6e 79 20 70 | 65 6f 70 6c 65 20 63 6f |o many p|eople co|
|00002210| 6d 70 6c 61 69 6e 65 64 | 20 61 62 6f 75 74 20 68 |mplained| about h|
|00002220| 61 76 69 6e 67 20 74 6f | 20 72 65 6d 6f 76 65 20 |aving to| remove |
|00002230| 69 74 2e 0a 09 58 09 09 | 70 75 74 73 20 28 22 2d |it...X..|puts ("-|
|00002240| 2d 2d 2d 2d 63 75 74 20 | 68 65 72 65 2d 2d 2d 2d |----cut |here----|
|00002250| 2d 63 75 74 20 68 65 72 | 65 2d 2d 2d 2d 2d 63 75 |-cut her|e-----cu|
|00002260| 74 20 68 65 72 65 2d 2d | 2d 2d 2d 63 75 74 20 68 |t here--|---cut h|
|00002270| 65 72 65 2d 2d 2d 2d 2d | 22 29 3b 0a 09 58 09 2a |ere-----|");..X.*|
|00002280| 2f 0a 09 58 09 70 75 74 | 73 20 28 45 58 54 52 41 |/..X.put|s (EXTRA|
|00002290| 43 54 29 3b 0a 09 58 09 | 70 75 74 73 20 28 22 23 |CT);..X.|puts ("#|
|000022a0| 20 54 68 69 73 20 69 73 | 20 61 20 73 68 65 6c 6c | This is| a shell|
|000022b0| 20 61 72 63 68 69 76 65 | 2c 20 6d 65 61 6e 69 6e | archive|, meanin|
|000022c0| 67 3a 22 29 3b 0a 09 58 | 09 70 72 69 6e 74 66 20 |g:");..X|.printf |
|000022d0| 28 22 23 20 31 2e 20 52 | 65 6d 6f 76 65 20 65 76 |("# 1. R|emove ev|
|000022e0| 65 72 79 74 68 69 6e 67 | 20 61 62 6f 76 65 20 74 |erything| above t|
|000022f0| 68 65 20 25 73 20 6c 69 | 6e 65 2e 5c 6e 22 2c 20 |he %s li|ne.\n", |
|00002300| 45 58 54 52 41 43 54 29 | 3b 0a 09 58 09 70 75 74 |EXTRACT)|;..X.put|
|00002310| 73 20 28 22 23 20 32 2e | 20 53 61 76 65 20 74 68 |s ("# 2.| Save th|
|00002320| 65 20 72 65 73 75 6c 74 | 69 6e 67 20 74 65 78 74 |e result|ing text|
|00002330| 20 69 6e 20 61 20 66 69 | 6c 65 2e 22 29 3b 0a 09 | in a fi|le.");..|
|00002340| 58 09 70 75 74 73 20 28 | 22 23 20 33 2e 20 45 78 |X.puts (|"# 3. Ex|
|00002350| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 77 |ecute th|e file w|
|00002360| 69 74 68 20 2f 62 69 6e | 2f 73 68 20 28 6e 6f 74 |ith /bin|/sh (not|
|00002370| 20 63 73 68 29 20 74 6f | 20 63 72 65 61 74 65 20 | csh) to| create |
|00002380| 74 68 65 20 66 69 6c 65 | 73 3a 22 29 3b 0a 09 58 |the file|s:");..X|
|00002390| 09 66 6f 72 20 28 69 20 | 3d 20 6f 70 74 69 6e 64 |.for (i |= optind|
|000023a0| 3b 20 69 20 3c 20 61 72 | 67 63 3b 20 69 2b 2b 29 |; i < ar|gc; i++)|
|000023b0| 0a 09 58 09 09 70 72 69 | 6e 74 66 20 28 22 23 5c |..X..pri|ntf ("#\|
|000023c0| 74 25 73 5c 6e 22 2c 20 | 61 72 67 76 5b 69 5d 29 |t%s\n", |argv[i])|
|000023d0| 3b 0a 09 58 09 28 76 6f | 69 64 29 20 74 69 6d 65 |;..X.(vo|id) time|
|000023e0| 20 28 26 63 6c 6f 63 6b | 29 3b 0a 09 58 09 70 72 | (&clock|);..X.pr|
|000023f0| 69 6e 74 66 20 28 22 23 | 20 54 68 69 73 20 61 72 |intf ("#| This ar|
|00002400| 63 68 69 76 65 20 63 72 | 65 61 74 65 64 3a 20 25 |chive cr|eated: %|
|00002410| 73 22 2c 20 63 74 69 6d | 65 20 28 26 63 6c 6f 63 |s", ctim|e (&cloc|
|00002420| 6b 29 29 3b 0a 09 58 09 | 69 66 20 28 4e 41 4d 45 |k));..X.|if (NAME|
|00002430| 29 0a 09 58 09 09 70 72 | 69 6e 74 66 20 28 22 23 |)..X..pr|intf ("#|
|00002440| 20 42 79 3a 5c 74 25 73 | 20 28 25 73 29 5c 6e 22 | By:\t%s| (%s)\n"|
|00002450| 2c 20 4e 41 4d 45 2c 20 | 4f 52 47 20 3f 20 4f 52 |, NAME, |ORG ? OR|
|00002460| 47 20 3a 20 22 22 29 3b | 0a 09 58 09 70 72 69 6e |G : "");|..X.prin|
|00002470| 74 66 20 28 22 65 78 70 | 6f 72 74 20 50 41 54 48 |tf ("exp|ort PATH|
|00002480| 3b 20 50 41 54 48 3d 25 | 73 5c 6e 22 2c 20 50 41 |; PATH=%|s\n", PA|
|00002490| 54 48 29 3b 0a 09 58 09 | 72 65 74 75 72 6e 20 28 |TH);..X.|return (|
|000024a0| 30 29 3b 0a 09 58 09 7d | 0a 09 58 0a 09 58 66 6f |0);..X.}|..X..Xfo|
|000024b0| 6f 74 65 72 20 28 29 0a | 09 58 09 7b 0a 09 58 09 |oter ().|.X.{..X.|
|000024c0| 70 75 74 73 20 28 22 23 | 5c 74 45 6e 64 20 6f 66 |puts ("#|\tEnd of|
|000024d0| 20 73 68 65 6c 6c 20 61 | 72 63 68 69 76 65 22 29 | shell a|rchive")|
|000024e0| 3b 0a 09 58 09 70 75 74 | 73 20 28 22 65 78 69 74 |;..X.put|s ("exit|
|000024f0| 20 30 22 29 3b 0a 09 58 | 09 7d 0a 09 58 0a 09 58 | 0");..X|.}..X..X|
|00002500| 61 72 63 68 69 76 65 20 | 28 69 6e 70 75 74 2c 20 |archive |(input, |
|00002510| 6f 75 74 70 75 74 29 0a | 09 58 63 68 61 72 09 2a |output).|.Xchar.*|
|00002520| 69 6e 70 75 74 2c 20 2a | 6f 75 74 70 75 74 3b 0a |input, *|output;.|
|00002530| 09 58 09 7b 0a 09 58 09 | 63 68 61 72 09 62 75 66 |.X.{..X.|char.buf|
|00002540| 5b 42 55 46 53 49 5a 5d | 3b 0a 09 58 09 46 49 4c |[BUFSIZ]|;..X.FIL|
|00002550| 45 09 2a 69 6f 70 74 72 | 3b 0a 09 58 09 69 66 20 |E.*ioptr|;..X.if |
|00002560| 28 69 6f 70 74 72 20 3d | 20 66 6f 70 65 6e 20 28 |(ioptr =| fopen (|
|00002570| 69 6e 70 75 74 2c 20 22 | 72 22 29 29 0a 09 58 09 |input, "|r"))..X.|
|00002580| 09 7b 0a 09 58 09 09 69 | 66 20 28 43 6f 75 6e 74 |.{..X..i|f (Count|
|00002590| 20 3d 3d 20 74 72 75 65 | 29 0a 09 58 09 09 09 7b | == true|)..X...{|
|000025a0| 0a 09 58 09 09 09 43 74 | 72 6c 63 6f 75 6e 74 20 |..X...Ct|rlcount |
|000025b0| 3d 20 30 3b 20 20 20 20 | 2f 2a 20 6e 6f 20 62 61 |= 0;    |/* no ba|
|000025c0| 64 20 63 6f 6e 74 72 6f | 6c 20 63 68 61 72 61 63 |d contro|l charac|
|000025d0| 74 65 72 73 20 73 6f 20 | 66 61 72 20 2a 2f 0a 09 |ters so |far */..|
|000025e0| 58 09 09 09 4c 61 73 74 | 63 68 61 72 20 3d 20 27 |X...Last|char = '|
|000025f0| 5c 6e 27 3b 20 20 2f 2a | 20 73 69 6d 75 6c 61 74 |\n';  /*| simulat|
|00002600| 65 20 6c 69 6e 65 20 73 | 74 61 72 74 20 2a 2f 0a |e line s|tart */.|
|00002610| 09 58 09 09 09 7d 0a 09 | 58 09 09 70 72 69 6e 74 |.X...}..|X..print|
|00002620| 66 20 28 22 25 73 20 3c | 3c 20 5c 5c 25 73 20 3e |f ("%s <|< \\%s >|
|00002630| 20 27 25 73 27 5c 6e 22 | 2c 20 46 69 6c 74 65 72 | '%s'\n"|, Filter|
|00002640| 2c 20 44 65 6c 69 6d 2c | 20 6f 75 74 70 75 74 29 |, Delim,| output)|
|00002650| 3b 0a 09 58 09 09 69 66 | 20 28 50 72 65 66 69 78 |;..X..if| (Prefix|
|00002660| 29 0a 09 58 09 09 09 7b | 0a 09 58 09 09 09 77 68 |)..X...{|..X...wh|
|00002670| 69 6c 65 20 28 66 67 65 | 74 73 20 28 62 75 66 2c |ile (fge|ts (buf,|
|00002680| 20 42 55 46 53 49 5a 2c | 20 69 6f 70 74 72 29 29 | BUFSIZ,| ioptr))|
|00002690| 0a 09 58 09 09 09 09 7b | 0a 09 58 09 09 09 09 69 |..X....{|..X....i|
|000026a0| 66 20 28 50 72 65 66 69 | 78 29 20 6f 75 74 6c 69 |f (Prefi|x) outli|
|000026b0| 6e 65 20 28 50 72 65 66 | 69 78 29 3b 0a 09 58 09 |ne (Pref|ix);..X.|
|000026c0| 09 09 09 6f 75 74 6c 69 | 6e 65 20 28 62 75 66 29 |...outli|ne (buf)|
|000026d0| 3b 0a 09 58 09 09 09 09 | 7d 0a 09 58 09 09 09 7d |;..X....|}..X...}|
|000026e0| 0a 09 58 09 09 65 6c 73 | 65 20 63 6f 70 79 6f 75 |..X..els|e copyou|
|000026f0| 74 20 28 69 6f 70 74 72 | 29 3b 0a 09 58 09 09 2f |t (ioptr|);..X../|
|00002700| 2a 20 74 68 61 6e 6b 73 | 20 74 6f 20 48 2e 20 4d |* thanks| to H. M|
|00002710| 6f 72 72 6f 77 20 4c 6f | 6e 67 20 28 69 74 74 76 |orrow Lo|ng (ittv|
|00002720| 61 78 21 6c 6f 6e 67 29 | 20 66 6f 72 20 74 68 65 |ax!long)| for the|
|00002730| 20 6e 65 78 74 20 66 69 | 78 20 2a 2f 0a 09 58 09 | next fi|x */..X.|
|00002740| 09 69 66 20 28 4c 61 73 | 74 63 68 61 72 20 21 3d |.if (Las|tchar !=|
|00002750| 20 27 5c 6e 27 29 20 2f | 2a 20 69 6e 63 6f 6d 70 | '\n') /|* incomp|
|00002760| 6c 65 74 65 20 6c 61 73 | 74 20 6c 69 6e 65 20 2a |lete las|t line *|
|00002770| 2f 0a 09 58 09 09 09 70 | 75 74 63 68 61 72 20 28 |/..X...p|utchar (|
|00002780| 27 5c 6e 27 29 3b 20 20 | 20 2f 2a 20 44 65 6c 69 |'\n');  | /* Deli|
|00002790| 6d 20 4d 55 53 54 20 62 | 65 67 69 6e 20 6e 65 77 |m MUST b|egin new|
|000027a0| 20 6c 69 6e 65 21 20 2a | 2f 0a 09 58 09 09 70 75 | line! *|/..X..pu|
|000027b0| 74 73 20 28 44 65 6c 69 | 6d 29 3b 0a 09 58 09 09 |ts (Deli|m);..X..|
|000027c0| 69 66 20 28 43 6f 75 6e | 74 20 3d 3d 20 74 72 75 |if (Coun|t == tru|
|000027d0| 65 20 26 26 20 4c 61 73 | 74 63 68 61 72 20 21 3d |e && Las|tchar !=|
|000027e0| 20 27 5c 6e 27 29 0a 09 | 58 09 09 09 70 72 69 6e | '\n')..|X...prin|
|000027f0| 74 66 20 28 22 25 73 3a | 20 61 20 6d 69 73 73 69 |tf ("%s:| a missi|
|00002800| 6e 67 20 6e 65 77 6c 69 | 6e 65 20 77 61 73 20 61 |ng newli|ne was a|
|00002810| 64 64 65 64 20 74 6f 20 | 5c 22 27 25 73 27 5c 22 |dded to |\"'%s'\"|
|00002820| 5c 6e 22 2c 20 45 43 48 | 4f 2c 20 69 6e 70 75 74 |\n", ECH|O, input|
|00002830| 29 3b 0a 09 58 09 09 69 | 66 20 28 43 6f 75 6e 74 |);..X..i|f (Count|
|00002840| 20 3d 3d 20 74 72 75 65 | 20 26 26 20 43 74 72 6c | == true| && Ctrl|
|00002850| 63 6f 75 6e 74 29 0a 09 | 58 09 09 09 70 72 69 6e |count)..|X...prin|
|00002860| 74 66 20 28 22 25 73 3a | 20 25 64 20 63 6f 6e 74 |tf ("%s:| %d cont|
|00002870| 72 6f 6c 20 63 68 61 72 | 61 63 74 65 72 25 73 20 |rol char|acter%s |
|00002880| 6d 61 79 20 62 65 20 6d | 69 73 73 69 6e 67 20 66 |may be m|issing f|
|00002890| 72 6f 6d 20 5c 22 27 25 | 73 27 5c 22 5c 6e 22 2c |rom \"'%|s'\"\n",|
|000028a0| 0a 09 58 09 09 09 09 45 | 43 48 4f 2c 20 43 74 72 |..X....E|CHO, Ctr|
|000028b0| 6c 63 6f 75 6e 74 2c 20 | 43 74 72 6c 63 6f 75 6e |lcount, |Ctrlcoun|
|000028c0| 74 20 3e 20 31 20 3f 20 | 22 73 22 20 3a 20 22 22 |t > 1 ? |"s" : ""|
|000028d0| 2c 20 69 6e 70 75 74 29 | 3b 0a 09 58 09 09 28 76 |, input)|;..X..(v|
|000028e0| 6f 69 64 29 20 66 63 6c | 6f 73 65 20 28 69 6f 70 |oid) fcl|ose (iop|
|000028f0| 74 72 29 3b 0a 09 58 09 | 09 72 65 74 75 72 6e 20 |tr);..X.|.return |
|00002900| 28 30 29 3b 0a 09 58 09 | 09 7d 0a 09 58 09 65 6c |(0);..X.|.}..X.el|
|00002910| 73 65 0a 09 58 09 09 7b | 0a 09 58 09 09 66 70 72 |se..X..{|..X..fpr|
|00002920| 69 6e 74 66 20 28 73 74 | 64 65 72 72 2c 20 22 73 |intf (st|derr, "s|
|00002930| 68 61 72 3a 20 43 61 6e | 27 74 20 6f 70 65 6e 20 |har: Can|'t open |
|00002940| 27 25 73 27 5c 6e 22 2c | 20 69 6e 70 75 74 29 3b |'%s'\n",| input);|
|00002950| 0a 09 58 09 09 72 65 74 | 75 72 6e 20 28 31 29 3b |..X..ret|urn (1);|
|00002960| 0a 09 58 09 09 7d 0a 09 | 58 09 7d 0a 09 58 0a 09 |..X..}..|X.}..X..|
|00002970| 58 2f 2a 0a 09 58 09 43 | 6f 70 79 6f 75 74 20 63 |X/*..X.C|opyout c|
|00002980| 6f 70 69 65 73 20 69 74 | 73 20 69 6f 70 74 72 20 |opies it|s ioptr |
|00002990| 61 6c 6d 6f 73 74 20 61 | 73 20 66 61 73 74 20 61 |almost a|s fast a|
|000029a0| 73 20 70 6f 73 73 69 62 | 6c 65 0a 09 58 09 65 78 |s possib|le..X.ex|
|000029b0| 63 65 70 74 20 74 68 61 | 74 20 69 74 20 68 61 73 |cept tha|t it has|
|000029c0| 20 74 6f 20 6b 65 65 70 | 20 74 72 61 63 6b 20 6f | to keep| track o|
|000029d0| 66 20 74 68 65 20 6c 61 | 73 74 20 63 68 61 72 61 |f the la|st chara|
|000029e0| 63 74 65 72 0a 09 58 09 | 70 72 69 6e 74 65 64 2e |cter..X.|printed.|
|000029f0| 20 20 49 66 20 74 68 65 | 20 6c 61 73 74 20 63 68 |  If the| last ch|
|00002a00| 61 72 61 63 74 65 72 20 | 69 73 20 6e 6f 74 20 61 |aracter |is not a|
|00002a10| 20 6e 65 77 6c 69 6e 65 | 2c 20 74 68 65 6e 0a 09 | newline|, then..|
|00002a20| 58 09 73 68 61 72 20 68 | 61 73 20 74 6f 20 61 64 |X.shar h|as to ad|
|00002a30| 64 20 6f 6e 65 20 73 6f | 20 74 68 61 74 20 74 68 |d one so| that th|
|00002a40| 65 20 65 6e 64 20 6f 66 | 20 66 69 6c 65 20 64 65 |e end of| file de|
|00002a50| 6c 69 6d 69 74 65 72 0a | 09 58 09 69 73 20 72 65 |limiter.|.X.is re|
|00002a60| 63 6f 67 6e 69 7a 65 64 | 20 62 79 20 74 68 65 20 |cognized| by the |
|00002a70| 73 68 65 6c 6c 2e 20 20 | 54 68 69 73 20 63 68 65 |shell.  |This che|
|00002a80| 63 6b 69 6e 67 20 63 6f | 73 74 73 20 61 62 6f 75 |cking co|sts abou|
|00002a90| 74 0a 09 58 09 61 20 31 | 30 25 20 64 69 66 66 65 |t..X.a 1|0% diffe|
|00002aa0| 72 65 6e 63 65 20 69 6e | 20 75 73 65 72 20 74 69 |rence in| user ti|
|00002ab0| 6d 65 2e 20 20 4f 74 68 | 65 72 77 69 73 65 2c 20 |me.  Oth|erwise, |
|00002ac0| 69 74 20 69 73 20 61 62 | 6f 75 74 0a 09 58 09 61 |it is ab|out..X.a|
|00002ad0| 73 20 66 61 73 74 20 61 | 73 20 63 61 74 2e 20 20 |s fast a|s cat.  |
|00002ae0| 49 74 20 61 6c 73 6f 20 | 6d 69 67 68 74 20 63 6f |It also |might co|
|00002af0| 75 6e 74 20 63 6f 6e 74 | 72 6f 6c 20 63 68 61 72 |unt cont|rol char|
|00002b00| 61 63 74 65 72 73 2e 0a | 09 58 2a 2f 0a 09 58 23 |acters..|.X*/..X#|
|00002b10| 64 65 66 69 6e 65 09 62 | 61 64 63 74 72 6c 28 63 |define.b|adctrl(c|
|00002b20| 29 20 28 69 73 63 6e 74 | 72 6c 20 28 63 29 20 26 |) (iscnt|rl (c) &|
|00002b30| 26 20 21 69 73 73 70 61 | 63 65 20 28 63 29 29 0a |& !isspa|ce (c)).|
|00002b40| 09 58 63 6f 70 79 6f 75 | 74 20 28 69 6f 70 74 72 |.Xcopyou|t (ioptr|
|00002b50| 29 0a 09 58 72 65 67 69 | 73 74 65 72 09 46 49 4c |)..Xregi|ster.FIL|
|00002b60| 45 09 2a 69 6f 70 74 72 | 3b 0a 09 58 09 7b 0a 09 |E.*ioptr|;..X.{..|
|00002b70| 58 09 72 65 67 69 73 74 | 65 72 09 69 6e 74 20 09 |X.regist|er.int .|
|00002b80| 43 3b 0a 09 58 09 72 65 | 67 69 73 74 65 72 09 69 |C;..X.re|gister.i|
|00002b90| 6e 74 20 09 4c 3b 0a 09 | 58 09 72 65 67 69 73 74 |nt .L;..|X.regist|
|00002ba0| 65 72 09 63 6f 75 6e 74 | 3b 0a 09 58 09 63 6f 75 |er.count|;..X.cou|
|00002bb0| 6e 74 20 3d 20 43 6f 75 | 6e 74 3b 0a 09 58 09 77 |nt = Cou|nt;..X.w|
|00002bc0| 68 69 6c 65 20 28 28 43 | 20 3d 20 67 65 74 63 20 |hile ((C| = getc |
|00002bd0| 28 69 6f 70 74 72 29 29 | 20 21 3d 20 45 4f 46 29 |(ioptr))| != EOF)|
|00002be0| 0a 09 58 09 09 7b 0a 09 | 58 09 09 69 66 20 28 63 |..X..{..|X..if (c|
|00002bf0| 6f 75 6e 74 20 3d 3d 20 | 74 72 75 65 20 26 26 20 |ount == |true && |
|00002c00| 62 61 64 63 74 72 6c 20 | 28 43 29 29 20 43 74 72 |badctrl |(C)) Ctr|
|00002c10| 6c 63 6f 75 6e 74 2b 2b | 3b 0a 09 58 09 09 4c 20 |lcount++|;..X..L |
|00002c20| 3d 20 70 75 74 63 68 61 | 72 20 28 43 29 3b 0a 09 |= putcha|r (C);..|
|00002c30| 58 09 09 7d 0a 09 58 09 | 4c 61 73 74 63 68 61 72 |X..}..X.|Lastchar|
|00002c40| 20 3d 20 4c 3b 0a 09 58 | 09 7d 0a 09 58 0a 09 58 | = L;..X|.}..X..X|
|00002c50| 6f 75 74 6c 69 6e 65 20 | 28 73 29 0a 09 58 72 65 |outline |(s)..Xre|
|00002c60| 67 69 73 74 65 72 09 63 | 68 61 72 09 2a 73 3b 0a |gister.c|har.*s;.|
|00002c70| 09 58 09 7b 0a 09 58 09 | 69 66 20 28 2a 73 29 0a |.X.{..X.|if (*s).|
|00002c80| 09 58 09 09 7b 0a 09 58 | 09 09 77 68 69 6c 65 20 |.X..{..X|..while |
|00002c90| 28 2a 73 29 0a 09 58 09 | 09 09 7b 0a 09 58 09 09 |(*s)..X.|..{..X..|
|00002ca0| 09 69 66 20 28 43 6f 75 | 6e 74 20 3d 3d 20 74 72 |.if (Cou|nt == tr|
|00002cb0| 75 65 20 26 26 20 62 61 | 64 63 74 72 6c 20 28 2a |ue && ba|dctrl (*|
|00002cc0| 73 29 29 20 43 74 72 6c | 63 6f 75 6e 74 2b 2b 3b |s)) Ctrl|count++;|
|00002cd0| 0a 09 58 09 09 09 70 75 | 74 63 68 61 72 20 28 2a |..X...pu|tchar (*|
|00002ce0| 73 2b 2b 29 3b 0a 09 58 | 09 09 09 7d 0a 09 58 09 |s++);..X|...}..X.|
|00002cf0| 09 4c 61 73 74 63 68 61 | 72 20 3d 20 2a 28 73 2d |.Lastcha|r = *(s-|
|00002d00| 31 29 3b 0a 09 58 09 09 | 7d 0a 09 58 09 7d 0a 09 |1);..X..|}..X.}..|
|00002d10| 58 0a 09 58 23 64 65 66 | 69 6e 65 09 46 53 49 5a |X..X#def|ine.FSIZ|
|00002d20| 45 20 20 20 20 20 73 74 | 61 74 62 75 66 2e 73 74 |E     st|atbuf.st|
|00002d30| 5f 73 69 7a 65 0a 09 58 | 73 68 61 72 20 28 66 69 |_size..X|shar (fi|
|00002d40| 6c 65 2c 20 74 79 70 65 | 2c 20 70 6f 73 29 0a 09 |le, type|, pos)..|
|00002d50| 58 63 68 61 72 09 2a 66 | 69 6c 65 3b 20 20 20 20 |Xchar.*f|ile;    |
|00002d60| 20 2f 2a 20 66 69 6c 65 | 20 6f 72 20 64 69 72 65 | /* file| or dire|
|00002d70| 63 74 6f 72 79 20 74 6f | 20 62 65 20 70 72 6f 63 |ctory to| be proc|
|00002d80| 65 73 73 65 64 20 2a 2f | 0a 09 58 69 6e 74 20 09 |essed */|..Xint .|
|00002d90| 74 79 70 65 3b 20 20 20 | 20 20 20 2f 2a 20 65 69 |type;   |   /* ei|
|00002da0| 74 68 65 72 20 27 66 27 | 20 66 6f 72 20 66 69 6c |ther 'f'| for fil|
|00002db0| 65 20 6f 72 20 27 64 27 | 20 66 6f 72 20 64 69 72 |e or 'd'| for dir|
|00002dc0| 65 63 74 6f 72 79 20 2a | 2f 0a 09 58 69 6e 74 20 |ectory *|/..Xint |
|00002dd0| 09 70 6f 73 3b 20 20 20 | 20 20 20 20 2f 2a 20 30 |.pos;   |    /* 0|
|00002de0| 20 67 6f 69 6e 67 20 69 | 6e 20 74 6f 20 61 20 66 | going i|n to a f|
|00002df0| 69 6c 65 20 6f 72 20 64 | 69 72 2c 20 31 20 67 6f |ile or d|ir, 1 go|
|00002e00| 69 6e 67 20 6f 75 74 20 | 2a 2f 0a 09 58 09 7b 0a |ing out |*/..X.{.|
|00002e10| 09 58 09 73 74 72 75 63 | 74 09 73 74 61 74 09 73 |.X.struc|t.stat.s|
|00002e20| 74 61 74 62 75 66 3b 0a | 09 58 09 63 68 61 72 09 |tatbuf;.|.X.char.|
|00002e30| 2a 62 61 73 65 66 69 6c | 65 20 3d 20 66 69 6c 65 |*basefil|e = file|
|00002e40| 3b 0a 09 58 09 69 66 20 | 28 21 73 74 72 63 6d 70 |;..X.if |(!strcmp|
|00002e50| 20 28 66 69 6c 65 2c 20 | 22 2e 22 29 29 20 72 65 | (file, |".")) re|
|00002e60| 74 75 72 6e 3b 0a 09 58 | 09 69 66 20 28 73 74 61 |turn;..X|.if (sta|
|00002e70| 74 20 28 66 69 6c 65 2c | 20 26 73 74 61 74 62 75 |t (file,| &statbu|
|00002e80| 66 29 29 20 46 53 49 5a | 45 20 3d 20 30 3b 0a 09 |f)) FSIZ|E = 0;..|
|00002e90| 58 09 69 66 20 28 42 61 | 73 65 6e 61 6d 65 20 3d |X.if (Ba|sename =|
|00002ea0| 3d 20 74 72 75 65 29 0a | 09 58 09 09 7b 0a 09 58 |= true).|.X..{..X|
|00002eb0| 09 09 77 68 69 6c 65 20 | 28 2a 62 61 73 65 66 69 |..while |(*basefi|
|00002ec0| 6c 65 29 20 62 61 73 65 | 66 69 6c 65 2b 2b 3b 20 |le) base|file++; |
|00002ed0| 2f 2a 20 67 6f 20 74 6f | 20 65 6e 64 20 6f 66 20 |/* go to| end of |
|00002ee0| 6e 61 6d 65 20 2a 2f 0a | 09 58 09 09 77 68 69 6c |name */.|.X..whil|
|00002ef0| 65 20 28 62 61 73 65 66 | 69 6c 65 20 3e 20 66 69 |e (basef|ile > fi|
|00002f00| 6c 65 20 26 26 20 2a 28 | 62 61 73 65 66 69 6c 65 |le && *(|basefile|
|00002f10| 2d 31 29 20 21 3d 20 27 | 2f 27 29 20 62 61 73 65 |-1) != '|/') base|
|00002f20| 66 69 6c 65 2d 2d 3b 0a | 09 58 09 09 7d 0a 09 58 |file--;.|.X..}..X|
|00002f30| 09 69 66 20 28 70 6f 73 | 20 3d 3d 20 30 29 20 2f |.if (pos| == 0) /|
|00002f40| 2a 20 62 65 66 6f 72 65 | 20 74 68 65 20 66 69 6c |* before| the fil|
|00002f50| 65 20 73 74 61 72 74 73 | 20 2a 2f 0a 09 58 09 09 |e starts| */..X..|
|00002f60| 7b 0a 09 58 09 09 69 66 | 20 28 74 79 70 65 20 3d |{..X..if| (type =|
|00002f70| 3d 20 27 64 27 29 0a 09 | 58 09 09 09 7b 0a 09 58 |= 'd')..|X...{..X|
|00002f80| 09 09 09 70 72 69 6e 74 | 66 20 28 22 69 66 20 25 |...print|f ("if %|
|00002f90| 73 20 21 20 2d 64 20 27 | 25 73 27 5c 6e 22 2c 20 |s ! -d '|%s'\n", |
|00002fa0| 54 45 53 54 2c 20 62 61 | 73 65 66 69 6c 65 29 3b |TEST, ba|sefile);|
|00002fb0| 0a 09 58 09 09 09 70 72 | 69 6e 74 66 20 28 22 74 |..X...pr|intf ("t|
|00002fc0| 68 65 6e 5c 6e 22 29 3b | 0a 09 58 09 09 09 69 66 |hen\n");|..X...if|
|00002fd0| 20 28 56 65 72 62 6f 73 | 65 20 3d 3d 20 74 72 75 | (Verbos|e == tru|
|00002fe0| 65 29 0a 09 58 09 09 09 | 09 70 72 69 6e 74 66 20 |e)..X...|.printf |
|00002ff0| 28 22 09 25 73 3a 20 63 | 72 65 61 74 69 6e 67 20 |(".%s: c|reating |
|00003000| 64 69 72 65 63 74 6f 72 | 79 20 5c 22 27 25 73 27 |director|y \"'%s'|
|00003010| 5c 22 5c 6e 22 2c 20 45 | 43 48 4f 2c 20 62 61 73 |\"\n", E|CHO, bas|
|00003020| 65 66 69 6c 65 29 3b 0a | 09 58 09 09 09 70 72 69 |efile);.|.X...pri|
|00003030| 6e 74 66 20 28 22 09 25 | 73 20 27 25 73 27 5c 6e |ntf (".%|s '%s'\n|
|00003040| 22 2c 20 4d 4b 44 49 52 | 2c 20 62 61 73 65 66 69 |", MKDIR|, basefi|
|00003050| 6c 65 29 3b 0a 09 58 09 | 09 09 70 72 69 6e 74 66 |le);..X.|..printf|
|00003060| 20 28 22 66 69 5c 6e 22 | 29 3b 0a 09 58 09 09 09 | ("fi\n"|);..X...|
|00003070| 69 66 20 28 56 65 72 62 | 6f 73 65 20 3d 3d 20 74 |if (Verb|ose == t|
|00003080| 72 75 65 29 0a 09 58 09 | 09 09 09 70 72 69 6e 74 |rue)..X.|...print|
|00003090| 66 20 28 22 25 73 3a 20 | 65 6e 74 65 72 69 6e 67 |f ("%s: |entering|
|000030a0| 20 64 69 72 65 63 74 6f | 72 79 20 5c 22 27 25 73 | directo|ry \"'%s|
|000030b0| 27 5c 22 5c 6e 22 2c 20 | 45 43 48 4f 2c 20 62 61 |'\"\n", |ECHO, ba|
|000030c0| 73 65 66 69 6c 65 29 3b | 0a 09 58 09 09 09 70 72 |sefile);|..X...pr|
|000030d0| 69 6e 74 66 20 28 22 25 | 73 20 27 25 73 27 5c 6e |intf ("%|s '%s'\n|
|000030e0| 22 2c 20 43 48 44 49 52 | 2c 20 62 61 73 65 66 69 |", CHDIR|, basefi|
|000030f0| 6c 65 29 3b 0a 09 58 09 | 09 09 7d 0a 09 58 09 09 |le);..X.|..}..X..|
|00003100| 65 6c 73 65 20 2f 2a 20 | 74 79 70 65 20 3d 3d 20 |else /* |type == |
|00003110| 27 66 27 20 2a 2f 0a 09 | 58 09 09 09 7b 0a 09 58 |'f' */..|X...{..X|
|00003120| 09 09 09 69 66 20 28 56 | 65 72 62 6f 73 65 20 3d |...if (V|erbose =|
|00003130| 3d 20 74 72 75 65 29 0a | 09 58 09 09 09 09 70 72 |= true).|.X....pr|
|00003140| 69 6e 74 66 20 28 22 25 | 73 3a 20 65 78 74 72 61 |intf ("%|s: extra|
|00003150| 63 74 69 6e 67 20 5c 22 | 27 25 73 27 5c 22 20 27 |cting \"|'%s'\" '|
|00003160| 28 25 64 20 63 68 61 72 | 61 63 74 65 72 25 73 29 |(%d char|acter%s)|
|00003170| 27 5c 6e 22 2c 0a 09 58 | 09 09 09 09 09 45 43 48 |'\n",..X|.....ECH|
|00003180| 4f 2c 20 62 61 73 65 66 | 69 6c 65 2c 20 46 53 49 |O, basef|ile, FSI|
|00003190| 5a 45 2c 20 46 53 49 5a | 45 20 3e 20 31 20 3f 20 |ZE, FSIZ|E > 1 ? |
|000031a0| 22 73 22 20 3a 20 22 22 | 29 3b 0a 09 58 09 09 09 |"s" : ""|);..X...|
|000031b0| 69 66 20 28 53 69 6c 65 | 6e 74 20 3d 3d 20 66 61 |if (Sile|nt == fa|
|000031c0| 6c 73 65 29 20 2f 2a 20 | 74 68 69 73 20 73 6f 6c |lse) /* |this sol|
|000031d0| 75 74 69 6f 6e 20 62 79 | 20 47 7c 72 61 6e 20 55 |ution by| G|ran U|
|000031e0| 64 64 65 62 6f 72 67 20 | 2a 2f 0a 09 58 09 09 09 |ddeborg |*/..X...|
|000031f0| 09 7b 0a 09 58 09 09 09 | 09 70 72 69 6e 74 66 20 |.{..X...|.printf |
|00003200| 28 22 69 66 20 25 73 20 | 2d 66 20 27 25 73 27 5c |("if %s |-f '%s'\|
|00003210| 6e 22 2c 20 54 45 53 54 | 2c 20 62 61 73 65 66 69 |n", TEST|, basefi|
|00003220| 6c 65 29 3b 0a 09 58 09 | 09 09 09 70 75 74 73 20 |le);..X.|...puts |
|00003230| 28 22 74 68 65 6e 22 29 | 3b 0a 09 58 09 09 09 09 |("then")|;..X....|
|00003240| 70 72 69 6e 74 66 20 28 | 22 09 25 73 3a 20 77 69 |printf (|".%s: wi|
|00003250| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|00003260| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|00003270| 5c 22 27 25 73 27 5c 22 | 5c 6e 22 2c 0a 09 58 09 |\"'%s'\"|\n",..X.|
|00003280| 09 09 09 09 45 43 48 4f | 2c 20 62 61 73 65 66 69 |....ECHO|, basefi|
|00003290| 6c 65 29 3b 0a 09 58 09 | 09 09 09 70 75 74 73 20 |le);..X.|...puts |
|000032a0| 28 22 65 6c 73 65 22 29 | 3b 0a 09 58 09 09 09 09 |("else")|;..X....|
|000032b0| 7d 0a 09 58 09 09 09 69 | 66 20 28 61 72 63 68 69 |}..X...i|f (archi|
|000032c0| 76 65 20 28 66 69 6c 65 | 2c 20 62 61 73 65 66 69 |ve (file|, basefi|
|000032d0| 6c 65 29 29 20 65 78 69 | 74 20 28 2d 31 29 3b 0a |le)) exi|t (-1);.|
|000032e0| 09 58 09 09 09 7d 0a 09 | 58 09 09 7d 0a 09 58 09 |.X...}..|X..}..X.|
|000032f0| 65 6c 73 65 20 2f 2a 20 | 70 6f 73 20 3d 3d 20 31 |else /* |pos == 1|
|00003300| 2c 20 61 66 74 65 72 20 | 74 68 65 20 66 69 6c 65 |, after |the file|
|00003310| 20 69 73 20 61 72 63 68 | 69 76 65 64 20 2a 2f 0a | is arch|ived */.|
|00003320| 09 58 09 09 7b 0a 09 58 | 09 09 69 66 20 28 74 79 |.X..{..X|..if (ty|
|00003330| 70 65 20 3d 3d 20 27 64 | 27 29 0a 09 58 09 09 09 |pe == 'd|')..X...|
|00003340| 7b 0a 09 58 09 09 09 69 | 66 20 28 56 65 72 62 6f |{..X...i|f (Verbo|
|00003350| 73 65 20 3d 3d 20 74 72 | 75 65 29 0a 09 58 09 09 |se == tr|ue)..X..|
|00003360| 09 09 70 72 69 6e 74 66 | 20 28 22 25 73 3a 20 64 |..printf| ("%s: d|
|00003370| 6f 6e 65 20 77 69 74 68 | 20 64 69 72 65 63 74 6f |one with| directo|
|00003380| 72 79 20 5c 22 27 25 73 | 27 5c 22 5c 6e 22 2c 20 |ry \"'%s|'\"\n", |
|00003390| 45 43 48 4f 2c 20 62 61 | 73 65 66 69 6c 65 29 3b |ECHO, ba|sefile);|
|000033a0| 0a 09 58 09 09 09 70 72 | 69 6e 74 66 20 28 22 25 |..X...pr|intf ("%|
|000033b0| 73 20 2e 2e 5c 6e 22 2c | 20 43 48 44 49 52 29 3b |s ..\n",| CHDIR);|
|000033c0| 0a 09 58 09 09 09 7d 0a | 09 58 09 09 65 6c 73 65 |..X...}.|.X..else|
|000033d0| 20 2f 2a 20 74 79 70 65 | 20 3d 3d 20 27 66 27 20 | /* type| == 'f' |
|000033e0| 28 70 6c 61 69 6e 20 66 | 69 6c 65 29 20 2a 2f 0a |(plain f|ile) */.|
|000033f0| 09 58 09 09 09 7b 0a 09 | 58 09 09 09 69 66 20 28 |.X...{..|X...if (|
|00003400| 43 6f 75 6e 74 20 3d 3d | 20 74 72 75 65 29 0a 09 |Count ==| true)..|
|00003410| 58 09 09 09 09 7b 0a 09 | 58 09 09 09 09 70 72 69 |X....{..|X....pri|
|00003420| 6e 74 66 20 28 22 69 66 | 20 25 73 20 25 64 20 2d |ntf ("if| %s %d -|
|00003430| 6e 65 20 5c 22 60 25 73 | 20 27 25 73 27 60 5c 22 |ne \"`%s| '%s'`\"|
|00003440| 5c 6e 22 2c 0a 09 58 09 | 09 09 09 09 54 45 53 54 |\n",..X.|....TEST|
|00003450| 2c 20 46 53 49 5a 45 2c | 20 57 43 5f 43 2c 20 62 |, FSIZE,| WC_C, b|
|00003460| 61 73 65 66 69 6c 65 29 | 3b 0a 09 58 09 09 09 09 |asefile)|;..X....|
|00003470| 70 75 74 73 20 28 22 74 | 68 65 6e 22 29 3b 0a 09 |puts ("t|hen");..|
|00003480| 58 09 09 09 09 70 72 69 | 6e 74 66 20 28 22 09 25 |X....pri|ntf (".%|
|00003490| 73 3a 20 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |s: error| transmi|
|000034a0| 74 74 69 6e 67 20 5c 22 | 27 25 73 27 5c 22 20 22 |tting \"|'%s'\" "|
|000034b0| 2c 20 45 43 48 4f 2c 20 | 62 61 73 65 66 69 6c 65 |, ECHO, |basefile|
|000034c0| 29 3b 0a 09 58 09 09 09 | 09 70 72 69 6e 74 66 20 |);..X...|.printf |
|000034d0| 28 22 27 28 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |("'(shou|ld have |
|000034e0| 62 65 65 6e 20 25 64 20 | 63 68 61 72 61 63 74 65 |been %d |characte|
|000034f0| 72 25 73 29 27 5c 6e 22 | 2c 0a 09 58 09 09 09 09 |r%s)'\n"|,..X....|
|00003500| 09 46 53 49 5a 45 2c 20 | 46 53 49 5a 45 20 3e 20 |.FSIZE, |FSIZE > |
|00003510| 31 20 3f 20 22 73 22 20 | 3a 20 22 22 29 3b 0a 09 |1 ? "s" |: "");..|
|00003520| 58 09 09 09 09 70 75 74 | 73 20 28 22 66 69 22 29 |X....put|s ("fi")|
|00003530| 3b 0a 09 58 09 09 09 09 | 7d 0a 09 58 09 09 09 69 |;..X....|}..X...i|
|00003540| 66 20 28 61 63 63 65 73 | 73 20 28 66 69 6c 65 2c |f (acces|s (file,|
|00003550| 20 31 29 20 3d 3d 20 30 | 29 20 2f 2a 20 65 78 65 | 1) == 0|) /* exe|
|00003560| 63 75 74 61 62 6c 65 20 | 2d 3e 20 63 68 6d 6f 64 |cutable |-> chmod|
|00003570| 20 2b 78 20 2a 2f 0a 09 | 58 09 09 09 09 70 72 69 | +x */..|X....pri|
|00003580| 6e 74 66 20 28 22 25 73 | 20 27 25 73 27 5c 6e 22 |ntf ("%s| '%s'\n"|
|00003590| 2c 20 43 48 4d 4f 44 2c | 20 62 61 73 65 66 69 6c |, CHMOD,| basefil|
|000035a0| 65 29 3b 0a 09 58 09 09 | 09 69 66 20 28 53 69 6c |e);..X..|.if (Sil|
|000035b0| 65 6e 74 20 3d 3d 20 66 | 61 6c 73 65 29 0a 09 58 |ent == f|alse)..X|
|000035c0| 09 09 09 09 7b 0a 09 58 | 09 09 09 09 70 75 74 73 |....{..X|....puts|
|000035d0| 20 28 22 66 69 20 23 20 | 65 6e 64 20 6f 66 20 6f | ("fi # |end of o|
|000035e0| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|000035f0| 22 29 3b 0a 09 58 09 09 | 09 09 7d 0a 09 58 09 09 |");..X..|..}..X..|
|00003600| 09 7d 0a 09 58 09 09 7d | 0a 09 58 09 7d 0a 53 48 |.}..X..}|..X.}.SH|
|00003610| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 38 |AR_EOF.i|f test 8|
|00003620| 38 38 31 20 2d 6e 65 20 | 22 60 77 63 20 2d 63 20 |881 -ne |"`wc -c |
|00003630| 3c 20 27 73 68 61 72 2e | 63 27 60 22 0a 74 68 65 |< 'shar.|c'`".the|
|00003640| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 65 72 |n..echo |shar: er|
|00003650| 72 6f 72 20 74 72 61 6e | 73 6d 69 74 74 69 6e 67 |ror tran|smitting|
|00003660| 20 22 27 73 68 61 72 2e | 63 27 22 20 27 28 73 68 | "'shar.|c'" '(sh|
|00003670| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 38 |ould hav|e been 8|
|00003680| 38 38 31 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |881 char|acters)'|
|00003690| 0a 66 69 0a 66 69 20 23 | 20 65 6e 64 20 6f 66 20 |.fi.fi #| end of |
|000036a0| 6f 76 65 72 77 72 69 74 | 69 6e 67 20 63 68 65 63 |overwrit|ing chec|
|000036b0| 6b 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 65 78 74 |k.echo s|har: ext|
|000036c0| 72 61 63 74 69 6e 67 20 | 22 27 74 72 61 76 65 72 |racting |"'traver|
|000036d0| 73 65 2e 33 27 22 20 27 | 28 31 31 36 39 20 63 68 |se.3'" '|(1169 ch|
|000036e0| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|000036f0| 73 74 20 2d 66 20 27 74 | 72 61 76 65 72 73 65 2e |st -f 't|raverse.|
|00003700| 33 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |3'.then.|.echo sh|
|00003710| 61 72 3a 20 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |ar: will| not ove|
|00003720| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00003730| 20 66 69 6c 65 20 22 27 | 74 72 61 76 65 72 73 65 | file "'|traverse|
|00003740| 2e 33 27 22 0a 65 6c 73 | 65 0a 73 65 64 20 27 73 |.3'".els|e.sed 's|
|00003750| 2f 5e 09 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |/^.X//' |<< \SHAR|
|00003760| 5f 45 4f 46 20 3e 20 27 | 74 72 61 76 65 72 73 65 |_EOF > '|traverse|
|00003770| 2e 33 27 0a 09 58 2e 54 | 48 20 54 52 41 56 45 52 |.3'..X.T|H TRAVER|
|00003780| 53 45 20 33 57 49 20 22 | 44 65 63 65 6d 62 65 72 |SE 3WI "|December|
|00003790| 20 31 36 2c 20 31 39 38 | 34 22 0a 09 58 2e 53 48 | 16, 198|4"..X.SH|
|000037a0| 20 4e 41 4d 45 0a 09 58 | 74 72 61 76 65 72 73 65 | NAME..X|traverse|
|000037b0| 20 5c 2d 20 72 65 63 75 | 72 73 69 76 65 6c 79 20 | \- recu|rsively |
|000037c0| 74 72 61 76 65 72 73 65 | 20 61 20 64 69 72 65 63 |traverse| a direc|
|000037d0| 74 6f 72 79 0a 09 58 2e | 53 48 20 53 59 4e 4f 50 |tory..X.|SH SYNOP|
|000037e0| 53 49 53 0a 09 58 2e 6e | 66 0a 09 58 74 72 61 76 |SIS..X.n|f..Xtrav|
|000037f0| 65 72 73 65 20 28 70 61 | 74 68 2c 20 66 75 6e 63 |erse (pa|th, func|
|00003800| 29 0a 09 58 63 68 61 72 | 09 2a 70 61 74 68 3b 0a |)..Xchar|.*path;.|
|00003810| 09 58 69 6e 74 20 09 28 | 2a 66 75 6e 63 29 20 28 |.Xint .(|*func) (|
|00003820| 29 3b 0a 09 58 0a 09 58 | 66 75 6e 63 20 28 70 61 |);..X..X|func (pa|
|00003830| 74 68 2c 20 66 69 6c 65 | 74 79 70 65 2c 20 70 6f |th, file|type, po|
|00003840| 73 69 74 69 6f 6e 29 0a | 09 58 63 68 61 72 09 2a |sition).|.Xchar.*|
|00003850| 70 61 74 68 3b 0a 09 58 | 2e 66 69 0a 09 58 2e 53 |path;..X|.fi..X.S|
|00003860| 48 20 44 45 53 43 52 49 | 50 54 49 4f 4e 0a 09 58 |H DESCRI|PTION..X|
|00003870| 74 72 61 76 65 72 73 65 | 0a 09 58 61 70 70 6c 69 |traverse|..Xappli|
|00003880| 65 73 20 69 74 73 20 61 | 72 67 75 6d 65 6e 74 20 |es its a|rgument |
|00003890| 66 75 6e 63 74 69 6f 6e | 20 66 75 6e 63 20 74 6f |function| func to|
|000038a0| 20 69 74 73 20 61 72 67 | 75 6d 65 6e 74 20 66 69 | its arg|ument fi|
|000038b0| 6c 65 20 70 61 74 68 6e | 61 6d 65 20 70 61 74 68 |le pathn|ame path|
|000038c0| 2e 0a 09 58 49 66 20 70 | 61 74 68 20 69 73 20 61 |...XIf p|ath is a|
|000038d0| 20 64 69 72 65 63 74 6f | 72 79 2c 0a 09 58 74 68 | directo|ry,..Xth|
|000038e0| 65 6e 20 74 72 61 76 65 | 72 73 65 20 61 70 70 6c |en trave|rse appl|
|000038f0| 69 65 73 20 66 75 6e 63 | 20 74 6f 20 61 6c 6c 20 |ies func| to all |
|00003900| 69 74 73 20 65 6e 74 72 | 69 65 73 2e 0a 09 58 54 |its entr|ies...XT|
|00003910| 68 69 73 20 74 72 61 76 | 65 72 73 61 6c 20 69 73 |his trav|ersal is|
|00003920| 20 69 6e 20 64 65 70 74 | 68 20 66 69 72 73 74 20 | in dept|h first |
|00003930| 6f 72 64 65 72 0a 09 58 | 73 6f 20 74 68 61 74 20 |order..X|so that |
|00003940| 66 69 6c 65 73 20 61 72 | 65 20 70 72 6f 63 65 73 |files ar|e proces|
|00003950| 73 65 64 20 69 6e 20 74 | 68 65 20 6f 72 64 65 72 |sed in t|he order|
|00003960| 0a 09 58 74 68 61 74 20 | 74 68 65 79 20 61 72 65 |..Xthat |they are|
|00003970| 20 73 74 6f 72 65 64 20 | 69 6e 20 74 68 65 20 64 | stored |in the d|
|00003980| 69 72 65 63 74 6f 72 79 | 2e 0a 09 58 2e 50 50 0a |irectory|...X.PP.|
|00003990| 09 58 54 68 65 20 61 72 | 67 75 6d 65 6e 74 20 66 |.XThe ar|gument f|
|000039a0| 75 6e 63 20 73 68 6f 75 | 6c 64 20 74 61 6b 65 20 |unc shou|ld take |
|000039b0| 74 68 72 65 65 20 70 61 | 72 61 6d 65 74 65 72 73 |three pa|rameters|
|000039c0| 3a 0a 09 58 61 20 66 69 | 6c 65 20 6e 61 6d 65 2c |:..Xa fi|le name,|
|000039d0| 0a 09 58 61 20 66 69 6c | 65 20 74 79 70 65 2c 0a |..Xa fil|e type,.|
|000039e0| 09 58 61 6e 64 20 61 20 | 70 6f 73 69 74 69 6f 6e |.Xand a |position|
|000039f0| 2e 0a 09 58 54 68 65 20 | 63 61 6c 6c 20 6c 6f 6f |...XThe |call loo|
|00003a00| 6b 73 20 6c 69 6b 65 20 | 74 68 69 73 20 66 6f 72 |ks like |this for|
|00003a10| 20 64 69 72 65 63 74 6f | 72 69 65 73 3a 0a 09 58 | directo|ries:..X|
|00003a20| 2e 63 65 0a 09 58 28 2a | 66 75 6e 63 29 20 28 70 |.ce..X(*|func) (p|
|00003a30| 61 74 68 2c 20 27 64 27 | 2c 20 70 6f 73 69 74 69 |ath, 'd'|, positi|
|00003a40| 6f 6e 29 3b 0a 09 58 61 | 6e 64 20 6c 69 6b 65 20 |on);..Xa|nd like |
|00003a50| 74 68 69 73 20 66 6f 72 | 20 6f 74 68 65 72 20 66 |this for| other f|
|00003a60| 69 6c 65 73 3a 0a 09 58 | 2e 63 65 0a 09 58 28 2a |iles:..X|.ce..X(*|
|00003a70| 66 75 6e 63 29 20 28 70 | 61 74 68 2c 20 27 66 27 |func) (p|ath, 'f'|
|00003a80| 2c 20 70 6f 73 69 74 69 | 6f 6e 29 3b 0a 09 58 54 |, positi|on);..XT|
|00003a90| 68 65 20 70 6f 73 69 74 | 69 6f 6e 0a 09 58 69 73 |he posit|ion..Xis|
|00003aa0| 20 30 20 77 68 65 6e 20 | 70 61 74 68 20 69 73 20 | 0 when |path is |
|00003ab0| 66 69 72 73 74 20 65 6e | 63 6f 75 6e 74 65 72 65 |first en|countere|
|00003ac0| 64 0a 09 58 61 6e 64 20 | 31 20 77 68 65 6e 20 74 |d..Xand |1 when t|
|00003ad0| 72 61 76 65 72 73 65 20 | 69 73 20 64 6f 6e 65 2e |raverse |is done.|
|00003ae0| 0a 09 58 54 68 69 73 20 | 69 73 20 75 73 65 64 20 |..XThis |is used |
|00003af0| 74 6f 20 61 6c 6c 6f 77 | 20 70 72 6f 63 65 73 73 |to allow| process|
|00003b00| 69 6e 67 20 62 65 66 6f | 72 65 20 61 6e 64 20 61 |ing befo|re and a|
|00003b10| 66 74 65 72 0a 09 58 61 | 20 64 69 72 65 63 74 6f |fter..Xa| directo|
|00003b20| 72 79 20 69 73 20 70 72 | 6f 63 65 73 73 65 64 2e |ry is pr|ocessed.|
|00003b30| 0a 09 58 2e 53 48 20 45 | 58 41 4d 50 4c 45 0a 09 |..X.SH E|XAMPLE..|
|00003b40| 58 2e 6e 66 0a 09 58 6c | 69 73 74 20 28 6e 61 6d |X.nf..Xl|ist (nam|
|00003b50| 65 2c 20 74 79 70 65 2c | 20 70 6f 73 29 0a 09 58 |e, type,| pos)..X|
|00003b60| 63 68 61 72 09 2a 6e 61 | 6d 65 3b 0a 09 58 09 7b |char.*na|me;..X.{|
|00003b70| 0a 09 58 09 69 66 20 28 | 74 79 70 65 20 3d 3d 20 |..X.if (|type == |
|00003b80| 27 64 27 29 0a 09 58 09 | 09 70 72 69 6e 74 66 20 |'d')..X.|.printf |
|00003b90| 28 22 25 73 20 25 73 5c | 65 6e 22 2c 20 70 6f 73 |("%s %s\|en", pos|
|00003ba0| 20 3f 20 22 4c 65 61 76 | 69 6e 67 22 20 3a 20 22 | ? "Leav|ing" : "|
|00003bb0| 45 6e 74 65 72 69 6e 67 | 22 2c 20 6e 61 6d 65 29 |Entering|", name)|
|00003bc0| 3b 0a 09 58 09 65 6c 73 | 65 20 2f 2a 20 74 79 70 |;..X.els|e /* typ|
|00003bd0| 65 20 3d 3d 20 27 66 27 | 20 2a 2f 0a 09 58 09 09 |e == 'f'| */..X..|
|00003be0| 70 72 69 6e 74 66 20 28 | 22 09 25 73 5c 65 6e 22 |printf (|".%s\en"|
|00003bf0| 2c 20 6e 61 6d 65 29 3b | 0a 09 58 09 7d 0a 09 58 |, name);|..X.}..X|
|00003c00| 2e 66 69 0a 09 58 2e 53 | 48 20 41 55 54 48 4f 52 |.fi..X.S|H AUTHOR|
|00003c10| 0a 09 58 47 61 72 79 20 | 50 65 72 6c 6d 61 6e 0a |..XGary |Perlman.|
|00003c20| 09 58 2e 53 48 20 42 55 | 47 53 0a 09 58 54 68 65 |.X.SH BU|GS..XThe|
|00003c30| 72 65 20 61 72 65 20 6e | 6f 20 64 69 61 67 6e 6f |re are n|o diagno|
|00003c40| 73 74 69 63 73 20 77 68 | 65 6e 20 64 69 72 65 63 |stics wh|en direc|
|00003c50| 74 6f 72 69 65 73 20 63 | 61 6e 6e 6f 74 20 62 65 |tories c|annot be|
|00003c60| 20 73 65 61 72 63 68 65 | 64 2e 0a 53 48 41 52 5f | searche|d..SHAR_|
|00003c70| 45 4f 46 0a 69 66 20 74 | 65 73 74 20 31 31 36 39 |EOF.if t|est 1169|
|00003c80| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00003c90| 74 72 61 76 65 72 73 65 | 2e 33 27 60 22 0a 74 68 |traverse|.3'`".th|
|00003ca0| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 65 |en..echo| shar: e|
|00003cb0| 72 72 6f 72 20 74 72 61 | 6e 73 6d 69 74 74 69 6e |rror tra|nsmittin|
|00003cc0| 67 20 22 27 74 72 61 76 | 65 72 73 65 2e 33 27 22 |g "'trav|erse.3'"|
|00003cd0| 20 27 28 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 | '(shoul|d have b|
|00003ce0| 65 65 6e 20 31 31 36 39 | 20 63 68 61 72 61 63 74 |een 1169| charact|
|00003cf0| 65 72 73 29 27 0a 66 69 | 0a 66 69 20 23 20 65 6e |ers)'.fi|.fi # en|
|00003d00| 64 20 6f 66 20 6f 76 65 | 72 77 72 69 74 69 6e 67 |d of ove|rwriting|
|00003d10| 20 63 68 65 63 6b 0a 65 | 63 68 6f 20 73 68 61 72 | check.e|cho shar|
|00003d20| 3a 20 65 78 74 72 61 63 | 74 69 6e 67 20 22 27 74 |: extrac|ting "'t|
|00003d30| 72 61 76 65 72 73 65 2e | 63 27 22 20 27 28 31 37 |raverse.|c'" '(17|
|00003d40| 36 39 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |69 chara|cters)'.|
|00003d50| 69 66 20 74 65 73 74 20 | 2d 66 20 27 74 72 61 76 |if test |-f 'trav|
|00003d60| 65 72 73 65 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |erse.c'.|then..ec|
|00003d70| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00003d80| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00003d90| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 74 72 61 |sting fi|le "'tra|
|00003da0| 76 65 72 73 65 2e 63 27 | 22 0a 65 6c 73 65 0a 73 |verse.c'|".else.s|
|00003db0| 65 64 20 27 73 2f 5e 09 | 58 2f 2f 27 20 3c 3c 20 |ed 's/^.|X//' << |
|00003dc0| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 74 72 61 |\SHAR_EO|F > 'tra|
|00003dd0| 76 65 72 73 65 2e 63 27 | 0a 09 58 2f 2a 4c 49 4e |verse.c'|..X/*LIN|
|00003de0| 54 4c 49 42 52 41 52 59 | 2a 2f 0a 09 58 23 69 6e |TLIBRARY|*/..X#in|
|00003df0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00003e00| 09 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 79 73 2f |.X#inclu|de <sys/|
|00003e10| 74 79 70 65 73 2e 68 3e | 0a 09 58 23 69 6e 63 6c |types.h>|..X#incl|
|00003e20| 75 64 65 20 3c 73 79 73 | 2f 64 69 72 2e 68 3e 0a |ude <sys|/dir.h>.|
|00003e30| 09 58 0a 09 58 23 69 66 | 64 65 66 20 4d 41 58 4e |.X..X#if|def MAXN|
|00003e40| 41 4d 4c 45 4e 0a 09 58 | 0a 09 58 23 64 65 66 69 |AMLEN..X|..X#defi|
|00003e50| 6e 65 09 6e 61 6d 65 64 | 69 72 28 65 6e 74 72 79 |ne.named|ir(entry|
|00003e60| 29 20 28 65 6e 74 72 79 | 2d 3e 64 5f 6e 61 6d 65 |) (entry|->d_name|
|00003e70| 29 0a 09 58 23 64 65 66 | 69 6e 65 09 4d 41 58 4e |)..X#def|ine.MAXN|
|00003e80| 41 4d 45 20 32 35 36 0a | 09 58 0a 09 58 23 65 6c |AME 256.|.X..X#el|
|00003e90| 73 65 0a 09 58 0a 09 58 | 23 64 65 66 69 6e 65 09 |se..X..X|#define.|
|00003ea0| 44 49 52 09 46 49 4c 45 | 0a 09 58 23 64 65 66 69 |DIR.FILE|..X#defi|
|00003eb0| 6e 65 09 4d 41 58 4e 41 | 4d 45 20 28 44 49 52 53 |ne.MAXNA|ME (DIRS|
|00003ec0| 49 5a 2b 32 29 0a 09 58 | 23 64 65 66 69 6e 65 09 |IZ+2)..X|#define.|
|00003ed0| 6f 70 65 6e 64 69 72 28 | 70 61 74 68 29 20 66 6f |opendir(|path) fo|
|00003ee0| 70 65 6e 20 28 70 61 74 | 68 2c 20 22 72 22 29 0a |pen (pat|h, "r").|
|00003ef0| 09 58 23 64 65 66 69 6e | 65 20 63 6c 6f 73 65 64 |.X#defin|e closed|
|00003f00| 69 72 28 64 69 72 70 29 | 20 66 63 6c 6f 73 65 20 |ir(dirp)| fclose |
|00003f10| 28 64 69 72 70 29 0a 09 | 58 73 74 72 75 63 74 20 |(dirp)..|Xstruct |
|00003f20| 64 69 72 65 63 74 20 2a | 0a 09 58 72 65 61 64 64 |direct *|..Xreadd|
|00003f30| 69 72 20 28 64 69 72 70 | 29 0a 09 58 44 49 52 20 |ir (dirp|)..XDIR |
|00003f40| 09 2a 64 69 72 70 3b 0a | 09 58 09 7b 0a 09 58 09 |.*dirp;.|.X.{..X.|
|00003f50| 73 74 61 74 69 63 09 73 | 74 72 75 63 74 09 64 69 |static.s|truct.di|
|00003f60| 72 65 63 74 09 65 6e 74 | 72 79 3b 0a 09 58 09 69 |rect.ent|ry;..X.i|
|00003f70| 66 20 28 64 69 72 70 20 | 3d 3d 20 4e 55 4c 4c 29 |f (dirp |== NULL)|
|00003f80| 20 72 65 74 75 72 6e 20 | 28 4e 55 4c 4c 29 3b 0a | return |(NULL);.|
|00003f90| 09 58 09 66 6f 72 20 28 | 3b 3b 29 0a 09 58 09 09 |.X.for (|;;)..X..|
|00003fa0| 7b 0a 09 58 09 09 69 66 | 20 28 66 72 65 61 64 20 |{..X..if| (fread |
|00003fb0| 28 26 65 6e 74 72 79 2c | 20 73 69 7a 65 6f 66 20 |(&entry,| sizeof |
|00003fc0| 28 73 74 72 75 63 74 20 | 64 69 72 65 63 74 29 2c |(struct |direct),|
|00003fd0| 20 31 2c 20 64 69 72 70 | 29 20 3d 3d 20 30 29 20 | 1, dirp|) == 0) |
|00003fe0| 72 65 74 75 72 6e 20 28 | 4e 55 4c 4c 29 3b 0a 09 |return (|NULL);..|
|00003ff0| 58 09 09 69 66 20 28 65 | 6e 74 72 79 2e 64 5f 69 |X..if (e|ntry.d_i|
|00004000| 6e 6f 29 20 72 65 74 75 | 72 6e 20 28 26 65 6e 74 |no) retu|rn (&ent|
|00004010| 72 79 29 3b 0a 09 58 09 | 09 7d 0a 09 58 09 7d 0a |ry);..X.|.}..X.}.|
|00004020| 09 58 63 68 61 72 09 2a | 73 74 72 6e 63 70 79 20 |.Xchar.*|strncpy |
|00004030| 28 29 3b 0a 09 58 63 68 | 61 72 20 2a 0a 09 58 6e |();..Xch|ar *..Xn|
|00004040| 61 6d 65 64 69 72 20 28 | 65 6e 74 72 79 29 0a 09 |amedir (|entry)..|
|00004050| 58 73 74 72 75 63 74 09 | 64 69 72 65 63 74 09 2a |Xstruct.|direct.*|
|00004060| 65 6e 74 72 79 3b 0a 09 | 58 09 7b 0a 09 58 09 73 |entry;..|X.{..X.s|
|00004070| 74 61 74 69 63 09 63 68 | 61 72 09 6e 61 6d 65 5b |tatic.ch|ar.name[|
|00004080| 4d 41 58 4e 41 4d 45 5d | 3b 0a 09 58 09 72 65 74 |MAXNAME]|;..X.ret|
|00004090| 75 72 6e 20 28 73 74 72 | 6e 63 70 79 20 28 6e 61 |urn (str|ncpy (na|
|000040a0| 6d 65 2c 20 65 6e 74 72 | 79 2d 3e 64 5f 6e 61 6d |me, entr|y->d_nam|
|000040b0| 65 2c 20 44 49 52 53 49 | 5a 29 29 3b 0a 09 58 09 |e, DIRSI|Z));..X.|
|000040c0| 7d 0a 09 58 0a 09 58 23 | 65 6e 64 69 66 0a 09 58 |}..X..X#|endif..X|
|000040d0| 0a 09 58 23 69 6e 63 6c | 75 64 65 20 3c 73 79 73 |..X#incl|ude <sys|
|000040e0| 2f 73 74 61 74 2e 68 3e | 0a 09 58 23 64 65 66 69 |/stat.h>|..X#defi|
|000040f0| 6e 65 09 69 73 64 69 72 | 28 70 61 74 68 29 20 28 |ne.isdir|(path) (|
|00004100| 73 74 61 74 28 70 61 74 | 68 2c 20 26 62 75 66 29 |stat(pat|h, &buf)|
|00004110| 20 3f 20 30 20 3a 20 28 | 62 75 66 2e 73 74 5f 6d | ? 0 : (|buf.st_m|
|00004120| 6f 64 65 26 53 5f 49 46 | 4d 54 29 3d 3d 53 5f 49 |ode&S_IF|MT)==S_I|
|00004130| 46 44 49 52 29 0a 09 58 | 0a 09 58 74 72 61 76 65 |FDIR)..X|..Xtrave|
|00004140| 72 73 65 20 28 70 61 74 | 68 2c 20 66 75 6e 63 29 |rse (pat|h, func)|
|00004150| 0a 09 58 63 68 61 72 09 | 2a 70 61 74 68 3b 0a 09 |..Xchar.|*path;..|
|00004160| 58 69 6e 74 20 09 28 2a | 66 75 6e 63 29 20 28 29 |Xint .(*|func) ()|
|00004170| 3b 0a 09 58 09 7b 0a 09 | 58 09 44 49 52 20 09 2a |;..X.{..|X.DIR .*|
|00004180| 64 69 72 70 3b 0a 09 58 | 09 73 74 72 75 63 74 09 |dirp;..X|.struct.|
|00004190| 64 69 72 65 63 74 09 2a | 65 6e 74 72 79 3b 0a 09 |direct.*|entry;..|
|000041a0| 58 09 73 74 72 75 63 74 | 09 73 74 61 74 09 62 75 |X.struct|.stat.bu|
|000041b0| 66 3b 0a 09 58 09 69 6e | 74 20 09 66 69 6c 65 74 |f;..X.in|t .filet|
|000041c0| 79 70 65 20 3d 20 69 73 | 64 69 72 20 28 70 61 74 |ype = is|dir (pat|
|000041d0| 68 29 20 3f 20 27 64 27 | 20 3a 20 27 66 27 3b 0a |h) ? 'd'| : 'f';.|
|000041e0| 09 58 09 28 2a 66 75 6e | 63 29 20 28 70 61 74 68 |.X.(*fun|c) (path|
|000041f0| 2c 20 66 69 6c 65 74 79 | 70 65 2c 20 30 29 3b 0a |, filety|pe, 0);.|
|00004200| 09 58 09 69 66 20 28 66 | 69 6c 65 74 79 70 65 20 |.X.if (f|iletype |
|00004210| 3d 3d 20 27 64 27 29 0a | 09 58 09 09 7b 0a 09 58 |== 'd').|.X..{..X|
|00004220| 09 09 69 66 20 28 63 68 | 64 69 72 20 28 70 61 74 |..if (ch|dir (pat|
|00004230| 68 29 20 3d 3d 20 30 29 | 0a 09 58 09 09 09 7b 0a |h) == 0)|..X...{.|
|00004240| 09 58 09 09 09 69 66 20 | 28 64 69 72 70 20 3d 20 |.X...if |(dirp = |
|00004250| 6f 70 65 6e 64 69 72 20 | 28 22 2e 22 29 29 0a 09 |opendir |("."))..|
|00004260| 58 09 09 09 09 7b 0a 09 | 58 09 09 09 09 77 68 69 |X....{..|X....whi|
|00004270| 6c 65 20 28 65 6e 74 72 | 79 20 3d 20 72 65 61 64 |le (entr|y = read|
|00004280| 64 69 72 20 28 64 69 72 | 70 29 29 0a 09 58 09 09 |dir (dir|p))..X..|
|00004290| 09 09 09 7b 0a 09 58 09 | 09 09 09 09 63 68 61 72 |...{..X.|....char|
|000042a0| 09 6e 61 6d 65 5b 4d 41 | 58 4e 41 4d 45 5d 3b 0a |.name[MA|XNAME];.|
|000042b0| 09 58 09 09 09 09 09 28 | 76 6f 69 64 29 20 73 74 |.X.....(|void) st|
|000042c0| 72 63 70 79 20 28 6e 61 | 6d 65 2c 20 6e 61 6d 65 |rcpy (na|me, name|
|000042d0| 64 69 72 20 28 65 6e 74 | 72 79 29 29 3b 0a 09 58 |dir (ent|ry));..X|
|000042e0| 09 09 09 09 09 69 66 20 | 28 73 74 72 63 6d 70 28 |.....if |(strcmp(|
|000042f0| 6e 61 6d 65 2c 20 22 2e | 22 29 20 26 26 20 73 74 |name, ".|") && st|
|00004300| 72 63 6d 70 28 6e 61 6d | 65 2c 20 22 2e 2e 22 29 |rcmp(nam|e, "..")|
|00004310| 29 0a 09 58 09 09 09 09 | 09 09 74 72 61 76 65 72 |)..X....|..traver|
|00004320| 73 65 20 28 6e 61 6d 65 | 2c 20 66 75 6e 63 29 3b |se (name|, func);|
|00004330| 0a 09 58 09 09 09 09 09 | 7d 0a 09 58 09 09 09 09 |..X.....|}..X....|
|00004340| 28 76 6f 69 64 29 20 63 | 6c 6f 73 65 64 69 72 28 |(void) c|losedir(|
|00004350| 64 69 72 70 29 3b 0a 09 | 58 09 09 09 09 7d 0a 09 |dirp);..|X....}..|
|00004360| 58 09 09 09 28 76 6f 69 | 64 29 20 63 68 64 69 72 |X...(voi|d) chdir|
|00004370| 20 28 22 2e 2e 22 29 3b | 0a 09 58 09 09 09 7d 0a | ("..");|..X...}.|
|00004380| 09 58 09 09 7d 0a 09 58 | 09 28 2a 66 75 6e 63 29 |.X..}..X|.(*func)|
|00004390| 20 28 70 61 74 68 2c 20 | 66 69 6c 65 74 79 70 65 | (path, |filetype|
|000043a0| 2c 20 31 29 3b 0a 09 58 | 09 7d 0a 09 58 0a 09 58 |, 1);..X|.}..X..X|
|000043b0| 23 69 66 64 65 66 20 53 | 54 41 4e 44 41 4c 4f 4e |#ifdef S|TANDALON|
|000043c0| 45 0a 09 58 0a 09 58 73 | 74 61 74 69 63 09 49 6e |E..X..Xs|tatic.In|
|000043d0| 64 65 6e 74 20 3d 20 30 | 3b 0a 09 58 74 72 79 76 |dent = 0|;..Xtryv|
|000043e0| 65 72 73 65 20 28 66 69 | 6c 65 2c 20 74 79 70 65 |erse (fi|le, type|
|000043f0| 2c 20 70 6f 73 29 0a 09 | 58 63 68 61 72 09 2a 66 |, pos)..|Xchar.*f|
|00004400| 69 6c 65 3b 0a 09 58 09 | 7b 0a 09 58 09 69 6e 74 |ile;..X.|{..X.int|
|00004410| 20 09 69 6e 3b 0a 09 58 | 09 69 66 20 28 70 6f 73 | .in;..X|.if (pos|
|00004420| 20 3d 3d 20 30 29 0a 09 | 58 09 09 7b 0a 09 58 09 | == 0)..|X..{..X.|
|00004430| 09 66 6f 72 20 28 69 6e | 20 3d 20 30 3b 20 69 6e |.for (in| = 0; in|
|00004440| 20 3c 20 49 6e 64 65 6e | 74 3b 20 69 6e 2b 2b 29 | < Inden|t; in++)|
|00004450| 20 70 75 74 63 68 61 72 | 20 28 27 5c 74 27 29 3b | putchar| ('\t');|
|00004460| 0a 09 58 09 09 69 66 20 | 28 74 79 70 65 20 3d 3d |..X..if |(type ==|
|00004470| 20 27 64 27 29 0a 09 58 | 09 09 09 7b 0a 09 58 09 | 'd')..X|...{..X.|
|00004480| 09 09 70 72 69 6e 74 66 | 20 28 22 25 73 2f 5c 6e |..printf| ("%s/\n|
|00004490| 22 2c 20 66 69 6c 65 29 | 3b 0a 09 58 09 09 09 49 |", file)|;..X...I|
|000044a0| 6e 64 65 6e 74 2b 2b 3b | 0a 09 58 09 09 09 7d 0a |ndent++;|..X...}.|
|000044b0| 09 58 09 09 65 6c 73 65 | 20 70 75 74 73 20 28 66 |.X..else| puts (f|
|000044c0| 69 6c 65 29 3b 0a 09 58 | 09 09 7d 0a 09 58 09 65 |ile);..X|..}..X.e|
|000044d0| 6c 73 65 20 69 66 20 28 | 74 79 70 65 20 3d 3d 20 |lse if (|type == |
|000044e0| 27 64 27 29 20 49 6e 64 | 65 6e 74 2d 2d 3b 0a 09 |'d') Ind|ent--;..|
|000044f0| 58 09 7d 0a 09 58 0a 09 | 58 6d 61 69 6e 20 28 61 |X.}..X..|Xmain (a|
|00004500| 72 67 63 2c 20 61 72 67 | 76 29 20 63 68 61 72 20 |rgc, arg|v) char |
|00004510| 2a 2a 61 72 67 76 3b 0a | 09 58 09 7b 0a 09 58 09 |**argv;.|.X.{..X.|
|00004520| 69 6e 74 20 09 74 72 79 | 76 65 72 73 65 20 28 29 |int .try|verse ()|
|00004530| 3b 0a 09 58 09 63 68 61 | 72 09 2a 72 6f 6f 74 20 |;..X.cha|r.*root |
|00004540| 3d 20 61 72 67 63 20 3e | 20 31 20 3f 20 61 72 67 |= argc >| 1 ? arg|
|00004550| 76 5b 31 5d 20 3a 20 22 | 2e 22 3b 0a 09 58 09 74 |v[1] : "|.";..X.t|
|00004560| 72 61 76 65 72 73 65 20 | 28 72 6f 6f 74 2c 20 74 |raverse |(root, t|
|00004570| 72 79 76 65 72 73 65 29 | 3b 0a 09 58 09 7d 0a 09 |ryverse)|;..X.}..|
|00004580| 58 23 65 6e 64 69 66 0a | 53 48 41 52 5f 45 4f 46 |X#endif.|SHAR_EOF|
|00004590| 0a 69 66 20 74 65 73 74 | 20 31 37 36 39 20 2d 6e |.if test| 1769 -n|
|000045a0| 65 20 22 60 77 63 20 2d | 63 20 3c 20 27 74 72 61 |e "`wc -|c < 'tra|
|000045b0| 76 65 72 73 65 2e 63 27 | 60 22 0a 74 68 65 6e 0a |verse.c'|`".then.|
|000045c0| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 65 72 72 6f |.echo sh|ar: erro|
|000045d0| 72 20 74 72 61 6e 73 6d | 69 74 74 69 6e 67 20 22 |r transm|itting "|
|000045e0| 27 74 72 61 76 65 72 73 | 65 2e 63 27 22 20 27 28 |'travers|e.c'" '(|
|000045f0| 73 68 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e |should h|ave been|
|00004600| 20 31 37 36 39 20 63 68 | 61 72 61 63 74 65 72 73 | 1769 ch|aracters|
|00004610| 29 27 0a 66 69 0a 66 69 | 20 23 20 65 6e 64 20 6f |)'.fi.fi| # end o|
|00004620| 66 20 6f 76 65 72 77 72 | 69 74 69 6e 67 20 63 68 |f overwr|iting ch|
|00004630| 65 63 6b 0a 65 63 68 6f | 20 73 68 61 72 3a 20 65 |eck.echo| shar: e|
|00004640| 78 74 72 61 63 74 69 6e | 67 20 22 27 67 65 74 6f |xtractin|g "'geto|
|00004650| 70 74 2e 33 27 22 20 27 | 28 32 37 35 35 20 63 68 |pt.3'" '|(2755 ch|
|00004660| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|00004670| 73 74 20 2d 66 20 27 67 | 65 74 6f 70 74 2e 33 27 |st -f 'g|etopt.3'|
|00004680| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00004690| 3a 20 77 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: will n|ot over-|
|000046a0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000046b0| 69 6c 65 20 22 27 67 65 | 74 6f 70 74 2e 33 27 22 |ile "'ge|topt.3'"|
|000046c0| 0a 65 6c 73 65 0a 73 65 | 64 20 27 73 2f 5e 09 58 |.else.se|d 's/^.X|
|000046d0| 2f 2f 27 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |//' << \|SHAR_EOF|
|000046e0| 20 3e 20 27 67 65 74 6f | 70 74 2e 33 27 0a 09 58 | > 'geto|pt.3'..X|
|000046f0| 2e 54 48 20 47 45 54 4f | 50 54 20 33 20 6c 6f 63 |.TH GETO|PT 3 loc|
|00004700| 61 6c 0a 09 58 2e 44 41 | 20 32 35 20 4d 61 72 63 |al..X.DA| 25 Marc|
|00004710| 68 20 31 39 38 32 0a 09 | 58 2e 53 48 20 4e 41 4d |h 1982..|X.SH NAM|
|00004720| 45 0a 09 58 67 65 74 6f | 70 74 20 5c 2d 20 67 65 |E..Xgeto|pt \- ge|
|00004730| 74 20 6f 70 74 69 6f 6e | 20 6c 65 74 74 65 72 20 |t option| letter |
|00004740| 66 72 6f 6d 20 61 72 67 | 76 0a 09 58 2e 53 48 20 |from arg|v..X.SH |
|00004750| 53 59 4e 4f 50 53 49 53 | 0a 09 58 2e 66 74 20 42 |SYNOPSIS|..X.ft B|
|00004760| 0a 09 58 69 6e 74 20 67 | 65 74 6f 70 74 28 61 72 |..Xint g|etopt(ar|
|00004770| 67 63 2c 20 61 72 67 76 | 2c 20 6f 70 74 73 74 72 |gc, argv|, optstr|
|00004780| 69 6e 67 29 0a 09 58 2e | 62 72 0a 09 58 69 6e 74 |ing)..X.|br..Xint|
|00004790| 20 61 72 67 63 3b 0a 09 | 58 2e 62 72 0a 09 58 63 | argc;..|X.br..Xc|
|000047a0| 68 61 72 20 2a 2a 61 72 | 67 76 3b 0a 09 58 2e 62 |har **ar|gv;..X.b|
|000047b0| 72 0a 09 58 63 68 61 72 | 20 2a 6f 70 74 73 74 72 |r..Xchar| *optstr|
|000047c0| 69 6e 67 3b 0a 09 58 2e | 73 70 0a 09 58 65 78 74 |ing;..X.|sp..Xext|
|000047d0| 65 72 6e 20 63 68 61 72 | 20 2a 6f 70 74 61 72 67 |ern char| *optarg|
|000047e0| 3b 0a 09 58 2e 62 72 0a | 09 58 65 78 74 65 72 6e |;..X.br.|.Xextern|
|000047f0| 20 69 6e 74 20 6f 70 74 | 69 6e 64 3b 0a 09 58 2e | int opt|ind;..X.|
|00004800| 66 74 0a 09 58 2e 53 48 | 20 44 45 53 43 52 49 50 |ft..X.SH| DESCRIP|
|00004810| 54 49 4f 4e 0a 09 58 2e | 49 20 47 65 74 6f 70 74 |TION..X.|I Getopt|
|00004820| 0a 09 58 72 65 74 75 72 | 6e 73 20 74 68 65 20 6e |..Xretur|ns the n|
|00004830| 65 78 74 20 6f 70 74 69 | 6f 6e 20 6c 65 74 74 65 |ext opti|on lette|
|00004840| 72 20 69 6e 0a 09 58 2e | 49 20 61 72 67 76 0a 09 |r in..X.|I argv..|
|00004850| 58 74 68 61 74 20 6d 61 | 74 63 68 65 73 20 61 20 |Xthat ma|tches a |
|00004860| 6c 65 74 74 65 72 20 69 | 6e 0a 09 58 2e 49 52 20 |letter i|n..X.IR |
|00004870| 6f 70 74 73 74 72 69 6e | 67 20 2e 0a 09 58 2e 49 |optstrin|g ...X.I|
|00004880| 20 4f 70 74 73 74 72 69 | 6e 67 0a 09 58 69 73 20 | Optstri|ng..Xis |
|00004890| 61 20 73 74 72 69 6e 67 | 20 6f 66 20 72 65 63 6f |a string| of reco|
|000048a0| 67 6e 69 7a 65 64 20 6f | 70 74 69 6f 6e 20 6c 65 |gnized o|ption le|
|000048b0| 74 74 65 72 73 3b 0a 09 | 58 69 66 20 61 20 6c 65 |tters;..|Xif a le|
|000048c0| 74 74 65 72 20 69 73 20 | 66 6f 6c 6c 6f 77 65 64 |tter is |followed|
|000048d0| 20 62 79 20 61 20 63 6f | 6c 6f 6e 2c 20 74 68 65 | by a co|lon, the|
|000048e0| 20 6f 70 74 69 6f 6e 20 | 69 73 20 65 78 70 65 63 | option |is expec|
|000048f0| 74 65 64 20 74 6f 20 68 | 61 76 65 0a 09 58 61 6e |ted to h|ave..Xan|
|00004900| 20 61 72 67 75 6d 65 6e | 74 20 74 68 61 74 20 6d | argumen|t that m|
|00004910| 61 79 20 6f 72 20 6d 61 | 79 20 6e 6f 74 20 62 65 |ay or ma|y not be|
|00004920| 20 73 65 70 61 72 61 74 | 65 64 20 66 72 6f 6d 20 | separat|ed from |
|00004930| 69 74 20 62 79 20 77 68 | 69 74 65 20 73 70 61 63 |it by wh|ite spac|
|00004940| 65 2e 0a 09 58 2e 49 20 | 4f 70 74 61 72 67 0a 09 |e...X.I |Optarg..|
|00004950| 58 69 73 20 73 65 74 20 | 74 6f 20 70 6f 69 6e 74 |Xis set |to point|
|00004960| 20 74 6f 20 74 68 65 20 | 73 74 61 72 74 20 6f 66 | to the |start of|
|00004970| 20 74 68 65 20 6f 70 74 | 69 6f 6e 20 61 72 67 75 | the opt|ion argu|
|00004980| 6d 65 6e 74 20 6f 6e 20 | 72 65 74 75 72 6e 20 66 |ment on |return f|
|00004990| 72 6f 6d 0a 09 58 2e 49 | 52 20 67 65 74 6f 70 74 |rom..X.I|R getopt|
|000049a0| 20 2e 0a 09 58 2e 50 50 | 0a 09 58 2e 49 20 47 65 | ...X.PP|..X.I Ge|
|000049b0| 74 6f 70 74 0a 09 58 70 | 6c 61 63 65 73 20 69 6e |topt..Xp|laces in|
|000049c0| 0a 09 58 2e 49 20 6f 70 | 74 69 6e 64 0a 09 58 74 |..X.I op|tind..Xt|
|000049d0| 68 65 0a 09 58 2e 49 20 | 61 72 67 76 0a 09 58 69 |he..X.I |argv..Xi|
|000049e0| 6e 64 65 78 20 6f 66 20 | 74 68 65 20 6e 65 78 74 |ndex of |the next|
|000049f0| 20 61 72 67 75 6d 65 6e | 74 20 74 6f 20 62 65 20 | argumen|t to be |
|00004a00| 70 72 6f 63 65 73 73 65 | 64 2e 0a 09 58 42 65 63 |processe|d...XBec|
|00004a10| 61 75 73 65 0a 09 58 2e | 49 20 6f 70 74 69 6e 64 |ause..X.|I optind|
|00004a20| 0a 09 58 69 73 20 65 78 | 74 65 72 6e 61 6c 2c 20 |..Xis ex|ternal, |
|00004a30| 69 74 20 69 73 20 6e 6f | 72 6d 61 6c 6c 79 20 69 |it is no|rmally i|
|00004a40| 6e 69 74 69 61 6c 69 7a | 65 64 20 74 6f 20 7a 65 |nitializ|ed to ze|
|00004a50| 72 6f 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |ro autom|atically|
|00004a60| 0a 09 58 62 65 66 6f 72 | 65 20 74 68 65 20 66 69 |..Xbefor|e the fi|
|00004a70| 72 73 74 20 63 61 6c 6c | 20 74 6f 20 0a 09 58 2e |rst call| to ..X.|
|00004a80| 49 52 20 67 65 74 6f 70 | 74 20 2e 0a 09 58 2e 50 |IR getop|t ...X.P|
|00004a90| 50 0a 09 58 57 68 65 6e | 20 61 6c 6c 20 6f 70 74 |P..XWhen| all opt|
|00004aa0| 69 6f 6e 73 20 68 61 76 | 65 20 62 65 65 6e 20 70 |ions hav|e been p|
|00004ab0| 72 6f 63 65 73 73 65 64 | 20 28 69 2e 65 2e 2c 20 |rocessed| (i.e., |
|00004ac0| 75 70 20 74 6f 20 74 68 | 65 20 66 69 72 73 74 0a |up to th|e first.|
|00004ad0| 09 58 6e 6f 6e 2d 6f 70 | 74 69 6f 6e 20 61 72 67 |.Xnon-op|tion arg|
|00004ae0| 75 6d 65 6e 74 29 2c 0a | 09 58 2e 49 20 67 65 74 |ument),.|.X.I get|
|00004af0| 6f 70 74 0a 09 58 72 65 | 74 75 72 6e 73 0a 09 58 |opt..Xre|turns..X|
|00004b00| 2e 42 52 20 45 4f 46 20 | 2e 0a 09 58 54 68 65 20 |.BR EOF |...XThe |
|00004b10| 73 70 65 63 69 61 6c 20 | 6f 70 74 69 6f 6e 0a 09 |special |option..|
|00004b20| 58 2e 42 20 5c 2d 5c 2d | 0a 09 58 6d 61 79 20 62 |X.B \-\-|..Xmay b|
|00004b30| 65 20 75 73 65 64 20 74 | 6f 20 64 65 6c 69 6d 69 |e used t|o delimi|
|00004b40| 74 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |t the en|d of the|
|00004b50| 20 6f 70 74 69 6f 6e 73 | 3b 0a 09 58 2e 42 20 45 | options|;..X.B E|
|00004b60| 4f 46 0a 09 58 77 69 6c | 6c 20 62 65 20 72 65 74 |OF..Xwil|l be ret|
|00004b70| 75 72 6e 65 64 2c 20 61 | 6e 64 0a 09 58 2e 42 20 |urned, a|nd..X.B |
|00004b80| 5c 2d 5c 2d 0a 09 58 77 | 69 6c 6c 20 62 65 20 73 |\-\-..Xw|ill be s|
|00004b90| 6b 69 70 70 65 64 2e 0a | 09 58 2e 53 48 20 53 45 |kipped..|.X.SH SE|
|00004ba0| 45 20 41 4c 53 4f 0a 09 | 58 67 65 74 6f 70 74 28 |E ALSO..|Xgetopt(|
|00004bb0| 31 29 0a 09 58 2e 53 48 | 20 44 49 41 47 4e 4f 53 |1)..X.SH| DIAGNOS|
|00004bc0| 54 49 43 53 0a 09 58 2e | 49 20 47 65 74 6f 70 74 |TICS..X.|I Getopt|
|00004bd0| 0a 09 58 70 72 69 6e 74 | 73 20 61 6e 20 65 72 72 |..Xprint|s an err|
|00004be0| 6f 72 20 6d 65 73 73 61 | 67 65 20 6f 6e 0a 09 58 |or messa|ge on..X|
|00004bf0| 2e 49 20 73 74 64 65 72 | 72 0a 09 58 61 6e 64 20 |.I stder|r..Xand |
|00004c00| 72 65 74 75 72 6e 73 20 | 61 20 71 75 65 73 74 69 |returns |a questi|
|00004c10| 6f 6e 20 6d 61 72 6b 0a | 09 58 2e 52 42 20 28 20 |on mark.|.X.RB ( |
|00004c20| 3f 20 29 0a 09 58 77 68 | 65 6e 20 69 74 20 65 6e |? )..Xwh|en it en|
|00004c30| 63 6f 75 6e 74 65 72 73 | 20 61 6e 20 6f 70 74 69 |counters| an opti|
|00004c40| 6f 6e 20 6c 65 74 74 65 | 72 20 6e 6f 74 20 69 6e |on lette|r not in|
|00004c50| 63 6c 75 64 65 64 20 69 | 6e 0a 09 58 2e 49 52 20 |cluded i|n..X.IR |
|00004c60| 6f 70 74 73 74 72 69 6e | 67 20 2e 0a 09 58 2e 53 |optstrin|g ...X.S|
|00004c70| 48 20 45 58 41 4d 50 4c | 45 0a 09 58 54 68 65 20 |H EXAMPL|E..XThe |
|00004c80| 66 6f 6c 6c 6f 77 69 6e | 67 20 63 6f 64 65 20 66 |followin|g code f|
|00004c90| 72 61 67 6d 65 6e 74 20 | 73 68 6f 77 73 20 68 6f |ragment |shows ho|
|00004ca0| 77 20 6f 6e 65 20 6d 69 | 67 68 74 20 70 72 6f 63 |w one mi|ght proc|
|00004cb0| 65 73 73 20 74 68 65 20 | 61 72 67 75 6d 65 6e 74 |ess the |argument|
|00004cc0| 73 0a 09 58 66 6f 72 20 | 61 20 63 6f 6d 6d 61 6e |s..Xfor |a comman|
|00004cd0| 64 20 74 68 61 74 20 63 | 61 6e 20 74 61 6b 65 20 |d that c|an take |
|00004ce0| 74 68 65 20 6d 75 74 75 | 61 6c 6c 79 20 65 78 63 |the mutu|ally exc|
|00004cf0| 6c 75 73 69 76 65 20 6f | 70 74 69 6f 6e 73 0a 09 |lusive o|ptions..|
|00004d00| 58 2e 42 20 61 0a 09 58 | 61 6e 64 0a 09 58 2e 42 |X.B a..X|and..X.B|
|00004d10| 52 20 62 20 2c 0a 09 58 | 61 6e 64 20 74 68 65 20 |R b ,..X|and the |
|00004d20| 6f 70 74 69 6f 6e 73 0a | 09 58 2e 42 20 66 0a 09 |options.|.X.B f..|
|00004d30| 58 61 6e 64 0a 09 58 2e | 42 52 20 6f 20 2c 0a 09 |Xand..X.|BR o ,..|
|00004d40| 58 62 6f 74 68 20 6f 66 | 20 77 68 69 63 68 20 72 |Xboth of| which r|
|00004d50| 65 71 75 69 72 65 20 61 | 72 67 75 6d 65 6e 74 73 |equire a|rguments|
|00004d60| 3a 0a 09 58 2e 50 50 0a | 09 58 2e 52 53 0a 09 58 |:..X.PP.|.X.RS..X|
|00004d70| 2e 6e 66 0a 09 58 6d 61 | 69 6e 28 61 72 67 63 2c |.nf..Xma|in(argc,|
|00004d80| 20 61 72 67 76 29 0a 09 | 58 69 6e 74 20 61 72 67 | argv)..|Xint arg|
|00004d90| 63 3b 0a 09 58 63 68 61 | 72 20 2a 2a 61 72 67 76 |c;..Xcha|r **argv|
|00004da0| 3b 0a 09 58 7b 0a 09 58 | 09 69 6e 74 20 63 3b 0a |;..X{..X|.int c;.|
|00004db0| 09 58 09 65 78 74 65 72 | 6e 20 69 6e 74 20 6f 70 |.X.exter|n int op|
|00004dc0| 74 69 6e 64 3b 0a 09 58 | 09 65 78 74 65 72 6e 20 |tind;..X|.extern |
|00004dd0| 63 68 61 72 20 2a 6f 70 | 74 61 72 67 3b 0a 09 58 |char *op|targ;..X|
|00004de0| 09 5c 26 2e 0a 09 58 09 | 5c 26 2e 0a 09 58 09 5c |.\&...X.|\&...X.\|
|00004df0| 26 2e 0a 09 58 09 77 68 | 69 6c 65 20 28 28 63 20 |&...X.wh|ile ((c |
|00004e00| 3d 20 67 65 74 6f 70 74 | 28 61 72 67 63 2c 20 61 |= getopt|(argc, a|
|00004e10| 72 67 76 2c 20 22 61 62 | 66 3a 6f 3a 22 29 29 20 |rgv, "ab|f:o:")) |
|00004e20| 21 3d 20 45 4f 46 29 0a | 09 58 09 09 73 77 69 74 |!= EOF).|.X..swit|
|00004e30| 63 68 20 28 63 29 20 7b | 0a 09 58 09 09 63 61 73 |ch (c) {|..X..cas|
|00004e40| 65 20 27 61 27 3a 0a 09 | 58 09 09 09 69 66 20 28 |e 'a':..|X...if (|
|00004e50| 62 66 6c 67 29 0a 09 58 | 09 09 09 09 65 72 72 66 |bflg)..X|....errf|
|00004e60| 6c 67 2b 2b 3b 0a 09 58 | 09 09 09 65 6c 73 65 0a |lg++;..X|...else.|
|00004e70| 09 58 09 09 09 09 61 66 | 6c 67 2b 2b 3b 0a 09 58 |.X....af|lg++;..X|
|00004e80| 09 09 09 62 72 65 61 6b | 3b 0a 09 58 09 09 63 61 |...break|;..X..ca|
|00004e90| 73 65 20 27 62 27 3a 0a | 09 58 09 09 09 69 66 20 |se 'b':.|.X...if |
|00004ea0| 28 61 66 6c 67 29 0a 09 | 58 09 09 09 09 65 72 72 |(aflg)..|X....err|
|00004eb0| 66 6c 67 2b 2b 3b 0a 09 | 58 09 09 09 65 6c 73 65 |flg++;..|X...else|
|00004ec0| 0a 09 58 09 09 09 09 62 | 70 72 6f 63 28 29 3b 0a |..X....b|proc();.|
|00004ed0| 09 58 09 09 09 62 72 65 | 61 6b 3b 0a 09 58 09 09 |.X...bre|ak;..X..|
|00004ee0| 63 61 73 65 20 27 66 27 | 3a 0a 09 58 09 09 09 69 |case 'f'|:..X...i|
|00004ef0| 66 69 6c 65 20 3d 20 6f | 70 74 61 72 67 3b 0a 09 |file = o|ptarg;..|
|00004f00| 58 09 09 09 62 72 65 61 | 6b 3b 0a 09 58 09 09 63 |X...brea|k;..X..c|
|00004f10| 61 73 65 20 27 6f 27 3a | 0a 09 58 09 09 09 6f 66 |ase 'o':|..X...of|
|00004f20| 69 6c 65 20 3d 20 6f 70 | 74 61 72 67 3b 0a 09 58 |ile = op|targ;..X|
|00004f30| 09 09 09 62 72 65 61 6b | 3b 0a 09 58 09 09 63 61 |...break|;..X..ca|
|00004f40| 73 65 20 27 3f 27 3a 0a | 09 58 09 09 64 65 66 61 |se '?':.|.X..defa|
|00004f50| 75 6c 74 3a 0a 09 58 09 | 09 09 65 72 72 66 6c 67 |ult:..X.|..errflg|
|00004f60| 2b 2b 3b 0a 09 58 09 09 | 09 62 72 65 61 6b 3b 0a |++;..X..|.break;.|
|00004f70| 09 58 09 09 7d 0a 09 58 | 09 69 66 20 28 65 72 72 |.X..}..X|.if (err|
|00004f80| 66 6c 67 29 20 7b 0a 09 | 58 09 09 66 70 72 69 6e |flg) {..|X..fprin|
|00004f90| 74 66 28 73 74 64 65 72 | 72 2c 20 22 55 73 61 67 |tf(stder|r, "Usag|
|00004fa0| 65 3a 20 2e 2e 2e 22 29 | 3b 0a 09 58 09 09 65 78 |e: ...")|;..X..ex|
|00004fb0| 69 74 28 32 29 3b 0a 09 | 58 09 7d 0a 09 58 09 66 |it(2);..|X.}..X.f|
|00004fc0| 6f 72 20 28 3b 20 6f 70 | 74 69 6e 64 20 3c 20 61 |or (; op|tind < a|
|00004fd0| 72 67 63 3b 20 6f 70 74 | 69 6e 64 2b 2b 29 20 7b |rgc; opt|ind++) {|
|00004fe0| 0a 09 58 09 09 5c 26 2e | 0a 09 58 09 09 5c 26 2e |..X..\&.|..X..\&.|
|00004ff0| 0a 09 58 09 09 5c 26 2e | 0a 09 58 09 7d 0a 09 58 |..X..\&.|..X.}..X|
|00005000| 09 5c 26 2e 0a 09 58 09 | 5c 26 2e 0a 09 58 09 5c |.\&...X.|\&...X.\|
|00005010| 26 2e 0a 09 58 7d 0a 09 | 58 2e 52 45 0a 09 58 2e |&...X}..|X.RE..X.|
|00005020| 50 50 0a 09 58 41 20 74 | 65 6d 70 6c 61 74 65 20 |PP..XA t|emplate |
|00005030| 73 69 6d 69 6c 61 72 20 | 74 6f 20 74 68 69 73 20 |similar |to this |
|00005040| 63 61 6e 20 62 65 20 66 | 6f 75 6e 64 20 69 6e 0a |can be f|ound in.|
|00005050| 09 58 2e 49 52 20 2f 75 | 73 72 2f 70 75 62 2f 74 |.X.IR /u|sr/pub/t|
|00005060| 65 6d 70 6c 61 74 65 2e | 63 20 2e 0a 09 58 2e 53 |emplate.|c ...X.S|
|00005070| 48 20 48 49 53 54 4f 52 | 59 0a 09 58 57 72 69 74 |H HISTOR|Y..XWrit|
|00005080| 74 65 6e 20 62 79 20 48 | 65 6e 72 79 20 53 70 65 |ten by H|enry Spe|
|00005090| 6e 63 65 72 2c 20 77 6f | 72 6b 69 6e 67 20 66 72 |ncer, wo|rking fr|
|000050a0| 6f 6d 20 61 20 42 65 6c | 6c 20 4c 61 62 73 20 6d |om a Bel|l Labs m|
|000050b0| 61 6e 75 61 6c 20 70 61 | 67 65 2e 0a 09 58 42 65 |anual pa|ge...XBe|
|000050c0| 68 61 76 69 6f 72 20 62 | 65 6c 69 65 76 65 64 20 |havior b|elieved |
|000050d0| 69 64 65 6e 74 69 63 61 | 6c 20 74 6f 20 74 68 65 |identica|l to the|
|000050e0| 20 42 65 6c 6c 20 76 65 | 72 73 69 6f 6e 2e 0a 09 | Bell ve|rsion...|
|000050f0| 58 2e 53 48 20 42 55 47 | 53 0a 09 58 49 74 20 69 |X.SH BUG|S..XIt i|
|00005100| 73 20 6e 6f 74 20 6f 62 | 76 69 6f 75 73 20 68 6f |s not ob|vious ho|
|00005110| 77 0a 09 58 60 5c 2d 27 | 0a 09 58 73 74 61 6e 64 |w..X`\-'|..Xstand|
|00005120| 69 6e 67 20 61 6c 6f 6e | 65 20 73 68 6f 75 6c 64 |ing alon|e should|
|00005130| 20 62 65 20 74 72 65 61 | 74 65 64 3b 20 20 74 68 | be trea|ted;  th|
|00005140| 69 73 20 76 65 72 73 69 | 6f 6e 20 74 72 65 61 74 |is versi|on treat|
|00005150| 73 20 69 74 20 61 73 0a | 09 58 61 20 6e 6f 6e 2d |s it as.|.Xa non-|
|00005160| 6f 70 74 69 6f 6e 20 61 | 72 67 75 6d 65 6e 74 2c |option a|rgument,|
|00005170| 20 77 68 69 63 68 20 69 | 73 20 6e 6f 74 20 61 6c | which i|s not al|
|00005180| 77 61 79 73 20 72 69 67 | 68 74 2e 0a 09 58 2e 50 |ways rig|ht...X.P|
|00005190| 50 0a 09 58 4f 70 74 69 | 6f 6e 20 61 72 67 75 6d |P..XOpti|on argum|
|000051a0| 65 6e 74 73 20 61 72 65 | 20 61 6c 6c 6f 77 65 64 |ents are| allowed|
|000051b0| 20 74 6f 20 62 65 67 69 | 6e 20 77 69 74 68 20 60 | to begi|n with `|
|000051c0| 5c 2d 27 3b 0a 09 58 74 | 68 69 73 20 69 73 20 72 |\-';..Xt|his is r|
|000051d0| 65 61 73 6f 6e 61 62 6c | 65 20 62 75 74 20 72 65 |easonabl|e but re|
|000051e0| 64 75 63 65 73 20 74 68 | 65 20 61 6d 6f 75 6e 74 |duces th|e amount|
|000051f0| 20 6f 66 20 65 72 72 6f | 72 20 63 68 65 63 6b 69 | of erro|r checki|
|00005200| 6e 67 20 70 6f 73 73 69 | 62 6c 65 2e 0a 09 58 2e |ng possi|ble...X.|
|00005210| 50 50 0a 09 58 2e 49 20 | 47 65 74 6f 70 74 0a 09 |PP..X.I |Getopt..|
|00005220| 58 69 73 20 71 75 69 74 | 65 20 66 6c 65 78 69 62 |Xis quit|e flexib|
|00005230| 6c 65 20 62 75 74 20 74 | 68 65 20 6f 62 76 69 6f |le but t|he obvio|
|00005240| 75 73 20 70 72 69 63 65 | 20 6d 75 73 74 20 62 65 |us price| must be|
|00005250| 20 70 61 69 64 3a 20 20 | 74 68 65 72 65 20 69 73 | paid:  |there is|
|00005260| 20 6d 75 63 68 0a 09 58 | 69 74 20 63 6f 75 6c 64 | much..X|it could|
|00005270| 20 64 6f 20 74 68 61 74 | 20 69 74 20 64 6f 65 73 | do that| it does|
|00005280| 6e 27 74 2c 20 6c 69 6b | 65 0a 09 58 63 68 65 63 |n't, lik|e..Xchec|
|00005290| 6b 69 6e 67 20 6d 75 74 | 75 61 6c 6c 79 20 65 78 |king mut|ually ex|
|000052a0| 63 6c 75 73 69 76 65 20 | 6f 70 74 69 6f 6e 73 2c |clusive |options,|
|000052b0| 20 63 68 65 63 6b 69 6e | 67 20 74 79 70 65 20 6f | checkin|g type o|
|000052c0| 66 0a 09 58 6f 70 74 69 | 6f 6e 20 61 72 67 75 6d |f..Xopti|on argum|
|000052d0| 65 6e 74 73 2c 20 65 74 | 63 2e 0a 53 48 41 52 5f |ents, et|c..SHAR_|
|000052e0| 45 4f 46 0a 69 66 20 74 | 65 73 74 20 32 37 35 35 |EOF.if t|est 2755|
|000052f0| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00005300| 67 65 74 6f 70 74 2e 33 | 27 60 22 0a 74 68 65 6e |getopt.3|'`".then|
|00005310| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|00005320| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|00005330| 22 27 67 65 74 6f 70 74 | 2e 33 27 22 20 27 28 73 |"'getopt|.3'" '(s|
|00005340| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|00005350| 32 37 35 35 20 63 68 61 | 72 61 63 74 65 72 73 29 |2755 cha|racters)|
|00005360| 27 0a 66 69 0a 66 69 20 | 23 20 65 6e 64 20 6f 66 |'.fi.fi |# end of|
|00005370| 20 6f 76 65 72 77 72 69 | 74 69 6e 67 20 63 68 65 | overwri|ting che|
|00005380| 63 6b 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 65 78 |ck.echo |shar: ex|
|00005390| 74 72 61 63 74 69 6e 67 | 20 22 27 67 65 74 6f 70 |tracting| "'getop|
|000053a0| 74 2e 63 27 22 20 27 28 | 31 34 33 37 20 63 68 61 |t.c'" '(|1437 cha|
|000053b0| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|000053c0| 74 20 2d 66 20 27 67 65 | 74 6f 70 74 2e 63 27 0a |t -f 'ge|topt.c'.|
|000053d0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|000053e0| 20 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | will no|t over-w|
|000053f0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|00005400| 6c 65 20 22 27 67 65 74 | 6f 70 74 2e 63 27 22 0a |le "'get|opt.c'".|
|00005410| 65 6c 73 65 0a 73 65 64 | 20 27 73 2f 5e 09 58 2f |else.sed| 's/^.X/|
|00005420| 2f 27 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |/' << \S|HAR_EOF |
|00005430| 3e 20 27 67 65 74 6f 70 | 74 2e 63 27 0a 09 58 2f |> 'getop|t.c'..X/|
|00005440| 2a 20 67 6f 74 20 74 68 | 69 73 20 6f 66 66 20 6e |* got th|is off n|
|00005450| 65 74 2e 73 6f 75 72 63 | 65 73 20 2a 2f 0a 09 58 |et.sourc|es */..X|
|00005460| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 69 6f 2e |#include| <stdio.|
|00005470| 68 3e 0a 09 58 0a 09 58 | 2f 2a 0a 09 58 20 2a 20 |h>..X..X|/*..X * |
|00005480| 67 65 74 20 6f 70 74 69 | 6f 6e 20 6c 65 74 74 65 |get opti|on lette|
|00005490| 72 20 66 72 6f 6d 20 61 | 72 67 75 6d 65 6e 74 20 |r from a|rgument |
|000054a0| 76 65 63 74 6f 72 0a 09 | 58 20 2a 2f 0a 09 58 69 |vector..|X */..Xi|
|000054b0| 6e 74 09 6f 70 74 65 72 | 72 20 3d 20 31 2c 09 09 |nt.opter|r = 1,..|
|000054c0| 2f 2a 20 75 73 65 6c 65 | 73 73 2c 20 6e 65 76 65 |/* usele|ss, neve|
|000054d0| 72 20 73 65 74 20 6f 72 | 20 75 73 65 64 20 2a 2f |r set or| used */|
|000054e0| 0a 09 58 09 6f 70 74 69 | 6e 64 20 3d 20 31 2c 09 |..X.opti|nd = 1,.|
|000054f0| 09 2f 2a 20 69 6e 64 65 | 78 20 69 6e 74 6f 20 70 |./* inde|x into p|
|00005500| 61 72 65 6e 74 20 61 72 | 67 76 20 76 65 63 74 6f |arent ar|gv vecto|
|00005510| 72 20 2a 2f 0a 09 58 09 | 6f 70 74 6f 70 74 3b 09 |r */..X.|optopt;.|
|00005520| 09 09 2f 2a 20 63 68 61 | 72 61 63 74 65 72 20 63 |../* cha|racter c|
|00005530| 68 65 63 6b 65 64 20 66 | 6f 72 20 76 61 6c 69 64 |hecked f|or valid|
|00005540| 69 74 79 20 2a 2f 0a 09 | 58 63 68 61 72 09 2a 6f |ity */..|Xchar.*o|
|00005550| 70 74 61 72 67 3b 09 09 | 2f 2a 20 61 72 67 75 6d |ptarg;..|/* argum|
|00005560| 65 6e 74 20 61 73 73 6f | 63 69 61 74 65 64 20 77 |ent asso|ciated w|
|00005570| 69 74 68 20 6f 70 74 69 | 6f 6e 20 2a 2f 0a 09 58 |ith opti|on */..X|
|00005580| 0a 09 58 23 64 65 66 69 | 6e 65 20 42 41 44 43 48 |..X#defi|ne BADCH|
|00005590| 09 28 69 6e 74 29 27 3f | 27 0a 09 58 23 64 65 66 |.(int)'?|'..X#def|
|000055a0| 69 6e 65 20 45 4d 53 47 | 09 22 22 0a 09 58 23 64 |ine EMSG|.""..X#d|
|000055b0| 65 66 69 6e 65 20 74 65 | 6c 6c 28 73 29 09 66 70 |efine te|ll(s).fp|
|000055c0| 75 74 73 28 2a 6e 61 72 | 67 76 2c 73 74 64 65 72 |uts(*nar|gv,stder|
|000055d0| 72 29 3b 66 70 75 74 73 | 28 73 2c 73 74 64 65 72 |r);fputs|(s,stder|
|000055e0| 72 29 3b 20 5c 0a 09 58 | 09 09 66 70 75 74 63 28 |r); \..X|..fputc(|
|000055f0| 6f 70 74 6f 70 74 2c 73 | 74 64 65 72 72 29 3b 66 |optopt,s|tderr);f|
|00005600| 70 75 74 63 28 27 5c 6e | 27 2c 73 74 64 65 72 72 |putc('\n|',stderr|
|00005610| 29 3b 72 65 74 75 72 6e | 28 42 41 44 43 48 29 3b |);return|(BADCH);|
|00005620| 0a 09 58 0a 09 58 67 65 | 74 6f 70 74 28 6e 61 72 |..X..Xge|topt(nar|
|00005630| 67 63 2c 6e 61 72 67 76 | 2c 6f 73 74 72 29 0a 09 |gc,nargv|,ostr)..|
|00005640| 58 69 6e 74 09 6e 61 72 | 67 63 3b 0a 09 58 63 68 |Xint.nar|gc;..Xch|
|00005650| 61 72 09 2a 2a 6e 61 72 | 67 76 2c 0a 09 58 09 2a |ar.**nar|gv,..X.*|
|00005660| 6f 73 74 72 3b 0a 09 58 | 7b 0a 09 58 09 73 74 61 |ostr;..X|{..X.sta|
|00005670| 74 69 63 20 63 68 61 72 | 09 2a 70 6c 61 63 65 20 |tic char|.*place |
|00005680| 3d 20 45 4d 53 47 3b 09 | 2f 2a 20 6f 70 74 69 6f |= EMSG;.|/* optio|
|00005690| 6e 20 6c 65 74 74 65 72 | 20 70 72 6f 63 65 73 73 |n letter| process|
|000056a0| 69 6e 67 20 2a 2f 0a 09 | 58 09 72 65 67 69 73 74 |ing */..|X.regist|
|000056b0| 65 72 20 63 68 61 72 09 | 2a 6f 6c 69 3b 09 09 2f |er char.|*oli;../|
|000056c0| 2a 20 6f 70 74 69 6f 6e | 20 6c 65 74 74 65 72 20 |* option| letter |
|000056d0| 6c 69 73 74 20 69 6e 64 | 65 78 20 2a 2f 0a 09 58 |list ind|ex */..X|
|000056e0| 09 63 68 61 72 09 2a 69 | 6e 64 65 78 28 29 3b 0a |.char.*i|ndex();.|
|000056f0| 09 58 0a 09 58 09 69 66 | 28 21 2a 70 6c 61 63 65 |.X..X.if|(!*place|
|00005700| 29 20 7b 09 09 09 2f 2a | 20 75 70 64 61 74 65 20 |) {.../*| update |
|00005710| 73 63 61 6e 6e 69 6e 67 | 20 70 6f 69 6e 74 65 72 |scanning| pointer|
|00005720| 20 2a 2f 0a 09 58 09 09 | 69 66 28 6f 70 74 69 6e | */..X..|if(optin|
|00005730| 64 20 3e 3d 20 6e 61 72 | 67 63 20 7c 7c 20 2a 28 |d >= nar|gc || *(|
|00005740| 70 6c 61 63 65 20 3d 20 | 6e 61 72 67 76 5b 6f 70 |place = |nargv[op|
|00005750| 74 69 6e 64 5d 29 20 21 | 3d 20 27 2d 27 20 7c 7c |tind]) !|= '-' |||
|00005760| 20 21 2a 2b 2b 70 6c 61 | 63 65 29 20 72 65 74 75 | !*++pla|ce) retu|
|00005770| 72 6e 28 45 4f 46 29 3b | 0a 09 58 09 09 69 66 20 |rn(EOF);|..X..if |
|00005780| 28 2a 70 6c 61 63 65 20 | 3d 3d 20 27 2d 27 29 20 |(*place |== '-') |
|00005790| 7b 09 2f 2a 20 66 6f 75 | 6e 64 20 22 2d 2d 22 20 |{./* fou|nd "--" |
|000057a0| 2a 2f 0a 09 58 09 09 09 | 2b 2b 6f 70 74 69 6e 64 |*/..X...|++optind|
|000057b0| 3b 0a 09 58 09 09 09 72 | 65 74 75 72 6e 28 45 4f |;..X...r|eturn(EO|
|000057c0| 46 29 3b 0a 09 58 09 09 | 7d 0a 09 58 09 7d 09 09 |F);..X..|}..X.}..|
|000057d0| 09 09 2f 2a 20 6f 70 74 | 69 6f 6e 20 6c 65 74 74 |../* opt|ion lett|
|000057e0| 65 72 20 6f 6b 61 79 3f | 20 2a 2f 0a 09 58 09 69 |er okay?| */..X.i|
|000057f0| 66 20 28 28 6f 70 74 6f | 70 74 20 3d 20 28 69 6e |f ((opto|pt = (in|
|00005800| 74 29 2a 70 6c 61 63 65 | 2b 2b 29 20 3d 3d 20 28 |t)*place|++) == (|
|00005810| 69 6e 74 29 27 3a 27 20 | 7c 7c 20 21 28 6f 6c 69 |int)':' ||| !(oli|
|00005820| 20 3d 20 69 6e 64 65 78 | 28 6f 73 74 72 2c 6f 70 | = index|(ostr,op|
|00005830| 74 6f 70 74 29 29 29 20 | 7b 0a 09 58 09 09 69 66 |topt))) |{..X..if|
|00005840| 28 21 2a 70 6c 61 63 65 | 29 20 2b 2b 6f 70 74 69 |(!*place|) ++opti|
|00005850| 6e 64 3b 0a 09 58 09 09 | 74 65 6c 6c 28 22 3a 20 |nd;..X..|tell(": |
|00005860| 69 6c 6c 65 67 61 6c 20 | 6f 70 74 69 6f 6e 20 2d |illegal |option -|
|00005870| 2d 20 22 29 3b 0a 09 58 | 09 7d 0a 09 58 09 69 66 |- ");..X|.}..X.if|
|00005880| 20 28 2a 2b 2b 6f 6c 69 | 20 21 3d 20 27 3a 27 29 | (*++oli| != ':')|
|00005890| 20 7b 09 09 2f 2a 20 64 | 6f 6e 27 74 20 6e 65 65 | {../* d|on't nee|
|000058a0| 64 20 61 72 67 75 6d 65 | 6e 74 20 2a 2f 0a 09 58 |d argume|nt */..X|
|000058b0| 09 09 6f 70 74 61 72 67 | 20 3d 20 4e 55 4c 4c 3b |..optarg| = NULL;|
|000058c0| 0a 09 58 09 09 69 66 20 | 28 21 2a 70 6c 61 63 65 |..X..if |(!*place|
|000058d0| 29 20 2b 2b 6f 70 74 69 | 6e 64 3b 0a 09 58 09 7d |) ++opti|nd;..X.}|
|000058e0| 0a 09 58 09 65 6c 73 65 | 20 7b 09 09 09 09 2f 2a |..X.else| {..../*|
|000058f0| 20 6e 65 65 64 20 61 6e | 20 61 72 67 75 6d 65 6e | need an| argumen|
|00005900| 74 20 2a 2f 0a 09 58 09 | 09 69 66 20 28 2a 70 6c |t */..X.|.if (*pl|
|00005910| 61 63 65 29 20 6f 70 74 | 61 72 67 20 3d 20 70 6c |ace) opt|arg = pl|
|00005920| 61 63 65 3b 09 2f 2a 20 | 6e 6f 20 77 68 69 74 65 |ace;./* |no white|
|00005930| 20 73 70 61 63 65 20 2a | 2f 0a 09 58 09 09 65 6c | space *|/..X..el|
|00005940| 73 65 20 69 66 20 28 6e | 61 72 67 63 20 3c 3d 20 |se if (n|argc <= |
|00005950| 2b 2b 6f 70 74 69 6e 64 | 29 20 7b 09 2f 2a 20 6e |++optind|) {./* n|
|00005960| 6f 20 61 72 67 20 2a 2f | 0a 09 58 09 09 09 70 6c |o arg */|..X...pl|
|00005970| 61 63 65 20 3d 20 45 4d | 53 47 3b 0a 09 58 09 09 |ace = EM|SG;..X..|
|00005980| 09 74 65 6c 6c 28 22 3a | 20 6f 70 74 69 6f 6e 20 |.tell(":| option |
|00005990| 72 65 71 75 69 72 65 73 | 20 61 6e 20 61 72 67 75 |requires| an argu|
|000059a0| 6d 65 6e 74 20 2d 2d 20 | 22 29 3b 0a 09 58 09 09 |ment -- |");..X..|
|000059b0| 7d 0a 09 58 09 20 09 65 | 6c 73 65 20 6f 70 74 61 |}..X. .e|lse opta|
|000059c0| 72 67 20 3d 20 6e 61 72 | 67 76 5b 6f 70 74 69 6e |rg = nar|gv[optin|
|000059d0| 64 5d 3b 09 2f 2a 20 77 | 68 69 74 65 20 73 70 61 |d];./* w|hite spa|
|000059e0| 63 65 20 2a 2f 0a 09 58 | 09 09 70 6c 61 63 65 20 |ce */..X|..place |
|000059f0| 3d 20 45 4d 53 47 3b 0a | 09 58 09 09 2b 2b 6f 70 |= EMSG;.|.X..++op|
|00005a00| 74 69 6e 64 3b 0a 09 58 | 09 7d 0a 09 58 09 72 65 |tind;..X|.}..X.re|
|00005a10| 74 75 72 6e 28 6f 70 74 | 6f 70 74 29 3b 09 09 09 |turn(opt|opt);...|
|00005a20| 2f 2a 20 64 75 6d 70 20 | 62 61 63 6b 20 6f 70 74 |/* dump |back opt|
|00005a30| 69 6f 6e 20 6c 65 74 74 | 65 72 20 2a 2f 0a 09 58 |ion lett|er */..X|
|00005a40| 7d 0a 53 48 41 52 5f 45 | 4f 46 0a 69 66 20 74 65 |}.SHAR_E|OF.if te|
|00005a50| 73 74 20 31 34 33 37 20 | 2d 6e 65 20 22 60 77 63 |st 1437 |-ne "`wc|
|00005a60| 20 2d 63 20 3c 20 27 67 | 65 74 6f 70 74 2e 63 27 | -c < 'g|etopt.c'|
|00005a70| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00005a80| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00005a90| 69 74 74 69 6e 67 20 22 | 27 67 65 74 6f 70 74 2e |itting "|'getopt.|
|00005aa0| 63 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |c'" '(sh|ould hav|
|00005ab0| 65 20 62 65 65 6e 20 31 | 34 33 37 20 63 68 61 72 |e been 1|437 char|
|00005ac0| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 20 23 |acters)'|.fi.fi #|
|00005ad0| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|00005ae0| 69 6e 67 20 63 68 65 63 | 6b 0a 65 63 68 6f 20 73 |ing chec|k.echo s|
|00005af0| 68 61 72 3a 20 65 78 74 | 72 61 63 74 69 6e 67 20 |har: ext|racting |
|00005b00| 22 27 4d 61 6b 65 66 69 | 6c 65 27 22 20 27 28 31 |"'Makefi|le'" '(1|
|00005b10| 34 32 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |42 chara|cters)'.|
|00005b20| 69 66 20 74 65 73 74 20 | 2d 66 20 27 4d 61 6b 65 |if test |-f 'Make|
|00005b30| 66 69 6c 65 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |file'.th|en..echo|
|00005b40| 20 73 68 61 72 3a 20 77 | 69 6c 6c 20 6e 6f 74 20 | shar: w|ill not |
|00005b50| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00005b60| 69 6e 67 20 66 69 6c 65 | 20 22 27 4d 61 6b 65 66 |ing file| "'Makef|
|00005b70| 69 6c 65 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |ile'".el|se.sed '|
|00005b80| 73 2f 5e 09 58 2f 2f 27 | 20 3c 3c 20 5c 53 48 41 |s/^.X//'| << \SHA|
|00005b90| 52 5f 45 4f 46 20 3e 20 | 27 4d 61 6b 65 66 69 6c |R_EOF > |'Makefil|
|00005ba0| 65 27 0a 09 58 43 46 4c | 41 47 53 3d 2d 4f 0a 09 |e'..XCFL|AGS=-O..|
|00005bb0| 58 73 68 61 72 3a 20 73 | 68 61 72 2e 6f 20 74 72 |Xshar: s|har.o tr|
|00005bc0| 61 76 65 72 73 65 2e 6f | 20 67 65 74 6f 70 74 2e |averse.o| getopt.|
|00005bd0| 6f 0a 09 58 09 63 63 20 | 24 28 43 46 4c 41 47 53 |o..X.cc |$(CFLAGS|
|00005be0| 29 20 2d 6f 20 73 68 61 | 72 20 73 68 61 72 2e 6f |) -o sha|r shar.o|
|00005bf0| 20 74 72 61 76 65 72 73 | 65 2e 6f 20 67 65 74 6f | travers|e.o geto|
|00005c00| 70 74 2e 6f 0a 09 58 74 | 72 61 76 65 72 73 65 3a |pt.o..Xt|raverse:|
|00005c10| 0a 09 58 09 63 63 20 2d | 6f 20 74 72 61 76 65 72 |..X.cc -|o traver|
|00005c20| 73 65 20 2d 44 53 54 41 | 4e 44 41 4c 4f 4e 45 20 |se -DSTA|NDALONE |
|00005c30| 74 72 61 76 65 72 73 65 | 2e 63 0a 53 48 41 52 5f |traverse|.c.SHAR_|
|00005c40| 45 4f 46 0a 69 66 20 74 | 65 73 74 20 31 34 32 20 |EOF.if t|est 142 |
|00005c50| 2d 6e 65 20 22 60 77 63 | 20 2d 63 20 3c 20 27 4d |-ne "`wc| -c < 'M|
|00005c60| 61 6b 65 66 69 6c 65 27 | 60 22 0a 74 68 65 6e 0a |akefile'|`".then.|
|00005c70| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 65 72 72 6f |.echo sh|ar: erro|
|00005c80| 72 20 74 72 61 6e 73 6d | 69 74 74 69 6e 67 20 22 |r transm|itting "|
|00005c90| 27 4d 61 6b 65 66 69 6c | 65 27 22 20 27 28 73 68 |'Makefil|e'" '(sh|
|00005ca0| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 31 |ould hav|e been 1|
|00005cb0| 34 32 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |42 chara|cters)'.|
|00005cc0| 66 69 0a 66 69 20 23 20 | 65 6e 64 20 6f 66 20 6f |fi.fi # |end of o|
|00005cd0| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00005ce0| 0a 23 09 45 6e 64 20 6f | 66 20 73 68 65 6c 6c 20 |.#.End o|f shell |
|00005cf0| 61 72 63 68 69 76 65 0a | 65 78 69 74 20 30 0a 0a |archive.|exit 0..|
+--------+-------------------------+-------------------------+--------+--------+