/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8708 / 24

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 53 74 | 75 61 72 74 2e 4c 79 6e |From: St|uart.Lyn|
|00000010| 6e 65 40 76 61 6e 2d 62 | 63 2e 55 55 43 50 20 28 |ne@van-b|c.UUCP (|
|00000020| 53 74 75 61 72 74 20 4c | 79 6e 6e 65 29 0a 4e 65 |Stuart L|ynne).Ne|
|00000030| 77 73 67 72 6f 75 70 73 | 3a 20 63 6f 6d 70 2e 73 |wsgroups|: comp.s|
|00000040| 6f 75 72 63 65 73 2e 6d | 69 73 63 0a 53 75 62 6a |ources.m|isc.Subj|
|00000050| 65 63 74 3a 20 75 75 70 | 63 2e 6d 61 63 6c 2e 38 |ect: uup|c.macl.8|
|00000060| 2e 38 0a 4d 65 73 73 61 | 67 65 2d 49 44 3a 20 3c |.8.Messa|ge-ID: <|
|00000070| 34 32 30 32 40 6e 63 6f | 61 73 74 2e 55 55 43 50 |4202@nco|ast.UUCP|
|00000080| 3e 0a 44 61 74 65 3a 20 | 31 37 20 41 75 67 20 38 |>.Date: |17 Aug 8|
|00000090| 37 20 30 31 3a 31 39 3a | 34 33 20 47 4d 54 0a 53 |7 01:19:|43 GMT.S|
|000000a0| 65 6e 64 65 72 3a 20 61 | 6c 6c 62 65 72 79 40 6e |ender: a|llbery@n|
|000000b0| 63 6f 61 73 74 2e 55 55 | 43 50 0a 4c 69 6e 65 73 |coast.UU|CP.Lines|
|000000c0| 3a 20 31 38 30 34 0a 41 | 70 70 72 6f 76 65 64 3a |: 1804.A|pproved:|
|000000d0| 20 61 6c 6c 62 65 72 79 | 40 6e 63 6f 61 73 74 2e | allbery|@ncoast.|
|000000e0| 55 55 43 50 0a 58 2d 41 | 72 63 68 69 76 65 3a 20 |UUCP.X-A|rchive: |
|000000f0| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 6d 69 73 |comp.sou|rces.mis|
|00000100| 63 2f 38 37 30 38 2f 32 | 34 0a 0a 3e 46 72 6f 6d |c/8708/2|4..>From|
|00000110| 20 75 75 63 70 20 57 65 | 64 20 41 75 67 20 31 32 | uucp We|d Aug 12|
|00000120| 20 30 32 3a 34 34 20 50 | 44 54 20 31 39 38 37 0a | 02:44 P|DT 1987.|
|00000130| 3e 46 72 6f 6d 20 73 6c | 79 6e 6e 65 20 20 57 65 |>From sl|ynne  We|
|00000140| 64 20 41 75 67 20 31 32 | 20 30 32 3a 34 33 3a 33 |d Aug 12| 02:43:3|
|00000150| 38 20 31 39 38 37 20 72 | 65 6d 6f 74 65 20 66 72 |8 1987 r|emote fr|
|00000160| 6f 6d 20 73 6c 6d 61 63 | 0a 52 65 63 65 69 76 65 |om slmac|.Receive|
|00000170| 64 3a 20 62 79 20 76 61 | 6e 2d 62 63 2e 75 75 63 |d: by va|n-bc.uuc|
|00000180| 70 20 28 73 6d 61 69 6c | 32 2e 33 29 0a 09 69 64 |p (smail|2.3)..id|
|00000190| 20 41 41 31 37 36 31 37 | 3b 20 31 32 20 41 75 67 | AA17617|; 12 Aug|
|000001a0| 20 38 37 20 30 32 3a 34 | 33 3a 33 38 20 50 44 54 | 87 02:4|3:38 PDT|
|000001b0| 20 28 57 65 64 29 0a 52 | 65 63 65 69 76 65 64 3a | (Wed).R|eceived:|
|000001c0| 20 62 79 20 73 6c 6d 61 | 63 2e 76 6e 65 74 2e 76 | by slma|c.vnet.v|
|000001d0| 61 6e 2d 62 63 2e 75 75 | 63 70 20 28 70 63 6d 61 |an-bc.uu|cp (pcma|
|000001e0| 69 6c 29 20 57 65 64 20 | 41 75 67 20 31 32 20 30 |il) Wed |Aug 12 0|
|000001f0| 32 3a 33 38 3a 32 30 20 | 31 39 38 37 0a 44 61 74 |2:38:20 |1987.Dat|
|00000200| 65 3a 20 57 65 64 20 41 | 75 67 20 31 32 20 30 32 |e: Wed A|ug 12 02|
|00000210| 3a 33 38 3a 32 30 20 31 | 39 38 37 0a 46 72 6f 6d |:38:20 1|987.From|
|00000220| 3a 20 53 74 75 61 72 74 | 20 4c 79 6e 6e 65 20 2d |: Stuart| Lynne -|
|00000230| 20 74 65 73 74 20 61 20 | 6d 61 63 20 3c 73 6c 79 | test a |mac <sly|
|00000240| 6e 6e 65 40 73 6c 6d 61 | 63 2e 76 6e 65 74 2e 76 |nne@slma|c.vnet.v|
|00000250| 61 6e 2d 62 63 2e 75 75 | 63 70 3e 0a 4d 65 73 73 |an-bc.uu|cp>.Mess|
|00000260| 61 67 65 2d 49 44 3a 20 | 3c 31 35 30 40 73 6c 6d |age-ID: |<150@slm|
|00000270| 61 63 2e 76 6e 65 74 2e | 76 61 6e 2d 62 63 2e 75 |ac.vnet.|van-bc.u|
|00000280| 75 63 70 3e 0a 54 6f 3a | 20 73 6c 40 76 61 6e 2d |ucp>.To:| sl@van-|
|00000290| 62 63 0a 53 75 62 6a 65 | 63 74 3a 20 73 68 61 72 |bc.Subje|ct: shar|
|000002a0| 2f 75 75 70 63 2e 6d 61 | 63 6c 2e 38 2e 38 0a 0a |/uupc.ma|cl.8.8..|
|000002b0| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|000002c0| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|000002d0| 68 69 76 65 2c 20 6d 65 | 61 6e 69 6e 67 3a 0a 23 |hive, me|aning:.#|
|000002e0| 20 31 2e 20 52 65 6d 6f | 76 65 20 65 76 65 72 79 | 1. Remo|ve every|
|000002f0| 74 68 69 6e 67 20 61 62 | 6f 76 65 20 74 68 65 20 |thing ab|ove the |
|00000300| 23 21 20 2f 62 69 6e 2f | 73 68 20 6c 69 6e 65 2e |#! /bin/|sh line.|
|00000310| 0a 23 20 32 2e 20 53 61 | 76 65 20 74 68 65 20 72 |.# 2. Sa|ve the r|
|00000320| 65 73 75 6c 74 69 6e 67 | 20 74 65 78 74 20 69 6e |esulting| text in|
|00000330| 20 61 20 66 69 6c 65 2e | 0a 23 20 33 2e 20 45 78 | a file.|.# 3. Ex|
|00000340| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 77 |ecute th|e file w|
|00000350| 69 74 68 20 2f 62 69 6e | 2f 73 68 20 28 6e 6f 74 |ith /bin|/sh (not|
|00000360| 20 63 73 68 29 20 74 6f | 20 63 72 65 61 74 65 20 | csh) to| create |
|00000370| 74 68 65 20 66 69 6c 65 | 73 3a 0a 23 09 52 45 41 |the file|s:.#.REA|
|00000380| 44 4d 45 2e 4d 41 43 0a | 23 09 4d 61 6b 65 66 69 |DME.MAC.|#.Makefi|
|00000390| 6c 65 0a 23 09 67 65 6e | 76 2e 68 0a 23 09 6e 64 |le.#.gen|v.h.#.nd|
|000003a0| 69 72 2e 68 0a 23 09 73 | 69 6f 2e 68 0a 23 09 72 |ir.h.#.s|io.h.#.r|
|000003b0| 65 6e 61 6d 65 2e 63 0a | 23 09 73 70 6c 69 74 6e |ename.c.|#.splitn|
|000003c0| 61 6d 65 2e 63 0a 23 09 | 73 63 61 6e 64 69 72 2e |ame.c.#.|scandir.|
|000003d0| 63 0a 23 09 6e 64 69 72 | 2e 63 0a 23 09 63 68 64 |c.#.ndir|.c.#.chd|
|000003e0| 69 72 2e 63 0a 23 09 67 | 65 74 63 77 64 2e 63 0a |ir.c.#.g|etcwd.c.|
|000003f0| 23 09 67 65 6e 76 2e 63 | 0a 23 09 73 69 6f 2e 63 |#.genv.c|.#.sio.c|
|00000400| 0a 23 09 67 65 74 61 72 | 67 73 2e 63 0a 23 09 6d |.#.getar|gs.c.#.m|
|00000410| 6b 64 69 72 2e 63 0a 23 | 09 68 66 69 78 6e 61 6d |kdir.c.#|.hfixnam|
|00000420| 2e 63 0a 23 09 6d 61 63 | 69 6e 69 74 2e 63 0a 23 |.c.#.mac|init.c.#|
|00000430| 20 54 68 69 73 20 61 72 | 63 68 69 76 65 20 63 72 | This ar|chive cr|
|00000440| 65 61 74 65 64 3a 20 53 | 75 6e 20 4a 75 6e 20 32 |eated: S|un Jun 2|
|00000450| 31 20 32 31 3a 35 39 3a | 35 39 20 31 39 38 37 0a |1 21:59:|59 1987.|
|00000460| 23 20 42 79 3a 09 53 74 | 75 61 72 74 20 4c 79 6e |# By:.St|uart Lyn|
|00000470| 6e 65 20 2d 20 74 65 73 | 74 20 61 20 6d 61 63 20 |ne - tes|t a mac |
|00000480| 28 29 0a 65 78 70 6f 72 | 74 20 50 41 54 48 3b 20 |().expor|t PATH; |
|00000490| 50 41 54 48 3d 2f 62 69 | 6e 3a 24 50 41 54 48 0a |PATH=/bi|n:$PATH.|
|000004a0| 69 66 20 74 65 73 74 20 | 2d 66 20 27 52 45 41 44 |if test |-f 'READ|
|000004b0| 4d 45 2e 4d 41 43 27 0a | 74 68 65 6e 0a 20 20 20 |ME.MAC'.|then.   |
|000004c0| 20 20 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 77 |    echo| shar: w|
|000004d0| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|000004e0| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000004f0| 20 22 27 52 45 41 44 4d | 45 2e 4d 41 43 27 22 0a | "'READM|E.MAC'".|
|00000500| 65 6c 73 65 0a 63 61 74 | 20 3c 3c 20 5c 53 48 41 |else.cat| << \SHA|
|00000510| 52 5f 45 4f 46 20 3e 20 | 27 52 45 41 44 4d 45 2e |R_EOF > |'README.|
|00000520| 4d 41 43 27 0a 0a 0a 6d | 61 63 20 6c 69 62 72 61 |MAC'...m|ac libra|
|00000530| 72 79 09 09 4d 61 79 20 | 32 31 2c 20 31 39 38 37 |ry..May |21, 1987|
|00000540| 09 09 53 74 75 61 72 74 | 20 4c 79 6e 6e 65 0a 0a |..Stuart| Lynne..|
|00000550| 54 68 65 73 65 20 66 69 | 6c 65 73 20 64 65 66 69 |These fi|les defi|
|00000560| 6e 65 20 76 61 72 69 6f | 75 73 20 6c 69 62 72 61 |ne vario|us libra|
|00000570| 72 79 20 72 6f 75 74 69 | 6e 65 73 20 74 68 61 74 |ry routi|nes that|
|00000580| 20 49 20 68 61 76 65 20 | 66 6f 75 6e 64 20 75 73 | I have |found us|
|00000590| 65 66 75 6c 0a 69 6e 20 | 70 6f 72 74 69 6e 67 20 |eful.in |porting |
|000005a0| 75 6e 69 78 20 73 6f 66 | 74 77 61 72 65 20 74 6f |unix sof|tware to|
|000005b0| 20 74 68 65 20 41 7a 74 | 65 63 20 6d 61 63 20 65 | the Azt|ec mac e|
|000005c0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 2e 0a 0a 48 61 76 |nvironme|nt...Hav|
|000005d0| 65 20 66 75 6e 21 0a 0a | 46 6f 72 20 6d 6f 72 65 |e fun!..|For more|
|000005e0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 2c 20 62 75 | informa|tion, bu|
|000005f0| 67 20 66 69 78 65 73 2c | 20 6d 6f 72 65 20 72 6f |g fixes,| more ro|
|00000600| 75 74 69 6e 65 73 3a 0a | 0a 09 09 53 74 75 61 72 |utines:.|...Stuar|
|00000610| 74 2e 4c 79 6e 6e 65 40 | 76 61 6e 2d 62 63 2e 75 |t.Lynne@|van-bc.u|
|00000620| 75 63 70 0a 09 09 36 30 | 34 2d 39 33 37 2d 37 35 |ucp...60|4-937-75|
|00000630| 33 32 0a 0a 53 48 41 52 | 5f 45 4f 46 0a 63 68 6d |32..SHAR|_EOF.chm|
|00000640| 6f 64 20 2b 78 20 27 52 | 45 41 44 4d 45 2e 4d 41 |od +x 'R|EADME.MA|
|00000650| 43 27 0a 66 69 20 23 20 | 65 6e 64 20 6f 66 20 6f |C'.fi # |end of o|
|00000660| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00000670| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 4d 61 6b |.if test| -f 'Mak|
|00000680| 65 66 69 6c 65 27 0a 74 | 68 65 6e 0a 20 20 20 20 |efile'.t|hen.    |
|00000690| 20 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 77 69 |   echo |shar: wi|
|000006a0| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|000006b0| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|000006c0| 22 27 4d 61 6b 65 66 69 | 6c 65 27 22 0a 65 6c 73 |"'Makefi|le'".els|
|000006d0| 65 0a 63 61 74 20 3c 3c | 20 5c 53 48 41 52 5f 45 |e.cat <<| \SHAR_E|
|000006e0| 4f 46 20 3e 20 27 4d 61 | 6b 65 66 69 6c 65 27 0a |OF > 'Ma|kefile'.|
|000006f0| 23 0a 23 09 09 6d 61 6b | 65 66 69 6c 65 20 66 6f |#.#..mak|efile fo|
|00000700| 72 20 72 7a 2f 73 7a 2f | 65 7a 6d 61 69 6c 2f 75 |r rz/sz/|ezmail/u|
|00000710| 75 73 6c 61 76 65 2f 70 | 63 6d 61 69 6c 2f 6d 61 |uslave/p|cmail/ma|
|00000720| 69 6c 0a 23 0a 23 0a 23 | 09 09 09 43 6f 70 79 72 |il.#.#.#|...Copyr|
|00000730| 69 67 68 74 20 28 63 29 | 20 31 39 38 36 20 53 74 |ight (c)| 1986 St|
|00000740| 75 61 72 74 20 4c 79 6e | 6e 65 0a 23 0a 0a 23 0a |uart Lyn|ne.#..#.|
|00000750| 23 09 52 75 6c 65 73 0a | 23 0a 0a 2e 63 2e 6f 3a |#.Rules.|#...c.o:|
|00000760| 0a 09 63 63 20 24 28 43 | 46 4c 41 47 53 29 20 24 |..cc $(C|FLAGS) $|
|00000770| 2a 2e 63 0a 0a 2e 61 73 | 6d 2e 6f 3a 0a 09 61 73 |*.c...as|m.o:..as|
|00000780| 09 24 28 41 46 4c 41 47 | 53 29 20 24 2a 2e 61 73 |.$(AFLAG|S) $*.as|
|00000790| 6d 0a 0a 2e 61 2e 6f 3a | 0a 09 61 73 09 24 28 41 |m...a.o:|..as.$(A|
|000007a0| 46 4c 41 47 53 29 20 24 | 2a 2e 61 0a 0a 0a 23 0a |FLAGS) $|*.a...#.|
|000007b0| 23 09 4d 61 63 72 6f 73 | 0a 23 0a 0a 43 46 4c 41 |#.Macros|.#..CFLA|
|000007c0| 47 53 3d 20 20 0a 41 46 | 4c 41 47 53 3d 0a 4c 46 |GS=  .AF|LAGS=.LF|
|000007d0| 4c 41 47 53 3d 20 2d 6c | 63 0a 4c 4c 49 42 3d 20 |LAGS= -l|c.LLIB= |
|000007e0| 0a 0a 53 46 69 6c 65 73 | 20 3d 20 72 65 6e 61 6d |..SFiles| = renam|
|000007f0| 65 2e 63 20 73 70 6c 69 | 74 6e 61 6d 65 2e 63 20 |e.c spli|tname.c |
|00000800| 73 63 61 6e 64 69 72 2e | 63 20 6e 64 69 72 2e 63 |scandir.|c ndir.c|
|00000810| 20 63 68 64 69 72 2e 63 | 20 67 65 74 63 77 64 2e | chdir.c| getcwd.|
|00000820| 63 20 5c 0a 09 09 67 65 | 6e 76 2e 63 20 73 69 6f |c \...ge|nv.c sio|
|00000830| 2e 63 20 67 65 74 61 72 | 67 73 2e 63 20 6d 6b 64 |.c getar|gs.c mkd|
|00000840| 69 72 2e 63 20 68 66 69 | 78 6e 61 6d 2e 63 20 6d |ir.c hfi|xnam.c m|
|00000850| 61 63 69 6e 69 74 2e 63 | 20 0a 09 09 0a 46 69 6c |acinit.c| ....Fil|
|00000860| 65 73 20 3d 20 72 65 6e | 61 6d 65 2e 6f 20 73 70 |es = ren|ame.o sp|
|00000870| 6c 69 74 6e 61 6d 65 2e | 6f 20 73 63 61 6e 64 69 |litname.|o scandi|
|00000880| 72 2e 6f 20 6e 64 69 72 | 2e 6f 20 63 68 64 69 72 |r.o ndir|.o chdir|
|00000890| 2e 6f 20 67 65 74 63 77 | 64 2e 6f 20 5c 0a 09 09 |.o getcw|d.o \...|
|000008a0| 67 65 6e 76 2e 6f 20 73 | 69 6f 2e 6f 20 67 65 74 |genv.o s|io.o get|
|000008b0| 61 72 67 73 2e 6f 20 6d | 6b 64 69 72 2e 6f 20 68 |args.o m|kdir.o h|
|000008c0| 66 69 78 6e 61 6d 2e 6f | 20 6d 61 63 69 6e 69 74 |fixnam.o| macinit|
|000008d0| 2e 6f 20 0a 0a 61 6c 6c | 3a 09 24 28 46 69 6c 65 |.o ..all|:.$(File|
|000008e0| 73 29 20 0a 09 6c 69 62 | 75 74 69 6c 20 2d 6f 20 |s) ..lib|util -o |
|000008f0| 22 24 24 43 4c 49 42 22 | 22 78 2e 6c 69 62 22 20 |"$$CLIB"|"x.lib" |
|00000900| 24 28 46 69 6c 65 73 29 | 0a 0a 2f 75 73 72 2f 69 |$(Files)|../usr/i|
|00000910| 6e 63 6c 75 64 65 2f 6c | 6f 63 61 6c 2f 67 65 6e |nclude/l|ocal/gen|
|00000920| 76 2e 68 3a 20 67 65 6e | 76 2e 68 0a 09 63 70 20 |v.h: gen|v.h..cp |
|00000930| 67 65 6e 76 2e 68 20 2f | 75 73 72 2f 69 6e 63 6c |genv.h /|usr/incl|
|00000940| 75 64 65 2f 6c 6f 63 61 | 6c 2f 67 65 6e 76 2e 68 |ude/loca|l/genv.h|
|00000950| 0a 0a 67 65 6e 76 2e 6f | 3a 20 67 65 6e 76 2e 63 |..genv.o|: genv.c|
|00000960| 20 67 65 6e 76 2e 68 0a | 09 63 63 20 2d 64 53 4c | genv.h.|.cc -dSL|
|00000970| 41 5a 54 45 43 4d 41 43 | 20 67 65 6e 76 2e 63 20 |AZTECMAC| genv.c |
|00000980| 2d 6f 20 67 65 6e 76 2e | 6f 0a 0a 73 70 6c 69 74 |-o genv.|o..split|
|00000990| 6e 61 6d 65 3a 20 73 70 | 6c 69 74 6e 61 6d 65 2e |name: sp|litname.|
|000009a0| 63 0a 09 63 63 20 2d 64 | 54 45 53 54 20 2d 6f 20 |c..cc -d|TEST -o |
|000009b0| 73 70 6c 69 74 6e 61 6d | 65 2e 6f 20 73 70 6c 69 |splitnam|e.o spli|
|000009c0| 74 6e 61 6d 65 2e 63 0a | 09 6c 6e 20 2d 6f 20 73 |tname.c.|.ln -o s|
|000009d0| 70 6c 69 74 6e 61 6d 65 | 20 73 70 6c 69 74 6e 61 |plitname| splitna|
|000009e0| 6d 65 2e 6f 20 24 28 4c | 46 4c 41 47 53 29 0a 09 |me.o $(L|FLAGS)..|
|000009f0| 72 6d 20 73 70 6c 69 74 | 6e 61 6d 65 2e 6f 0a 0a |rm split|name.o..|
|00000a00| 72 65 6e 61 6d 65 3a 20 | 72 65 6e 61 6d 65 2e 63 |rename: |rename.c|
|00000a10| 20 73 70 6c 69 74 6e 61 | 6d 65 2e 6f 20 68 66 69 | splitna|me.o hfi|
|00000a20| 78 6e 61 6d 2e 6f 0a 09 | 63 63 20 2d 64 54 45 53 |xnam.o..|cc -dTES|
|00000a30| 54 20 2d 6f 20 72 65 6e | 61 6d 65 2e 6f 20 72 65 |T -o ren|ame.o re|
|00000a40| 6e 61 6d 65 2e 63 0a 09 | 6c 6e 20 2d 6f 20 72 65 |name.c..|ln -o re|
|00000a50| 6e 61 6d 65 20 72 65 6e | 61 6d 65 2e 6f 20 73 70 |name ren|ame.o sp|
|00000a60| 6c 69 74 6e 61 6d 65 2e | 6f 20 68 66 69 78 6e 61 |litname.|o hfixna|
|00000a70| 6d 2e 6f 20 24 28 4c 46 | 4c 41 47 53 29 0a 09 72 |m.o $(LF|LAGS)..r|
|00000a80| 6d 20 72 65 6e 61 6d 65 | 2e 6f 0a 0a 6e 64 69 72 |m rename|.o..ndir|
|00000a90| 3a 20 6e 64 69 72 2e 63 | 20 68 66 69 78 6e 61 6d |: ndir.c| hfixnam|
|00000aa0| 2e 6f 0a 09 63 63 20 2d | 64 54 45 53 54 20 2d 6f |.o..cc -|dTEST -o|
|00000ab0| 20 6e 64 69 72 2e 6f 20 | 6e 64 69 72 2e 63 0a 09 | ndir.o |ndir.c..|
|00000ac0| 6c 6e 20 2d 6f 20 6e 64 | 69 72 20 6e 64 69 72 2e |ln -o nd|ir ndir.|
|00000ad0| 6f 20 68 66 69 78 6e 61 | 6d 2e 6f 20 24 28 4c 46 |o hfixna|m.o $(LF|
|00000ae0| 4c 41 47 53 29 0a 09 72 | 6d 20 64 69 72 2e 6f 0a |LAGS)..r|m dir.o.|
|00000af0| 0a 68 66 69 78 6e 61 6d | 3a 20 68 66 69 78 6e 61 |.hfixnam|: hfixna|
|00000b00| 6d 2e 63 0a 09 63 63 20 | 2d 64 54 45 53 54 20 2d |m.c..cc |-dTEST -|
|00000b10| 6f 20 68 66 69 78 6e 61 | 6d 2e 6f 20 68 66 69 78 |o hfixna|m.o hfix|
|00000b20| 6e 61 6d 2e 63 0a 09 6c | 6e 20 2d 6f 20 68 66 69 |nam.c..l|n -o hfi|
|00000b30| 78 6e 61 6d 20 68 66 69 | 78 6e 61 6d 2e 6f 20 24 |xnam hfi|xnam.o $|
|00000b40| 28 4c 46 4c 41 47 53 29 | 0a 09 72 6d 20 68 66 69 |(LFLAGS)|..rm hfi|
|00000b50| 78 6e 61 6d 2e 6f 0a 0a | 63 68 64 69 72 3a 20 63 |xnam.o..|chdir: c|
|00000b60| 68 64 69 72 2e 63 0a 09 | 63 63 20 2d 64 54 45 53 |hdir.c..|cc -dTES|
|00000b70| 54 20 2d 6f 20 63 68 64 | 69 72 2e 6f 20 63 68 64 |T -o chd|ir.o chd|
|00000b80| 69 72 2e 63 0a 09 6c 6e | 20 2d 6f 20 63 68 64 69 |ir.c..ln| -o chdi|
|00000b90| 72 20 63 68 64 69 72 2e | 6f 20 68 66 69 78 6e 61 |r chdir.|o hfixna|
|00000ba0| 6d 2e 6f 20 24 28 4c 46 | 4c 41 47 53 29 0a 09 72 |m.o $(LF|LAGS)..r|
|00000bb0| 6d 20 63 68 64 69 72 2e | 6f 0a 0a 6d 6b 64 69 72 |m chdir.|o..mkdir|
|00000bc0| 3a 20 6d 6b 64 69 72 2e | 63 0a 09 63 63 20 2d 64 |: mkdir.|c..cc -d|
|00000bd0| 54 45 53 54 20 2d 6f 20 | 6d 6b 64 69 72 2e 6f 20 |TEST -o |mkdir.o |
|00000be0| 6d 6b 64 69 72 2e 63 0a | 09 6c 6e 20 2d 6f 20 6d |mkdir.c.|.ln -o m|
|00000bf0| 6b 64 69 72 20 6d 6b 64 | 69 72 2e 6f 20 68 66 69 |kdir mkd|ir.o hfi|
|00000c00| 78 6e 61 6d 2e 6f 20 24 | 28 4c 46 4c 41 47 53 29 |xnam.o $|(LFLAGS)|
|00000c10| 0a 09 72 6d 20 6d 6b 64 | 69 72 2e 6f 0a 0a 67 65 |..rm mkd|ir.o..ge|
|00000c20| 74 63 77 64 3a 20 67 65 | 74 63 77 64 2e 63 0a 09 |tcwd: ge|tcwd.c..|
|00000c30| 63 63 20 2d 64 54 45 53 | 54 20 2d 6f 20 67 65 74 |cc -dTES|T -o get|
|00000c40| 63 77 64 2e 6f 20 67 65 | 74 63 77 64 2e 63 0a 09 |cwd.o ge|tcwd.c..|
|00000c50| 6c 6e 20 2d 6f 20 67 65 | 74 63 77 64 20 67 65 74 |ln -o ge|tcwd get|
|00000c60| 63 77 64 2e 6f 20 68 66 | 69 78 6e 61 6d 2e 6f 20 |cwd.o hf|ixnam.o |
|00000c70| 24 28 4c 46 4c 41 47 53 | 29 0a 09 72 6d 20 67 65 |$(LFLAGS|)..rm ge|
|00000c80| 74 63 77 64 2e 6f 0a 0a | 67 65 6e 76 3a 20 67 65 |tcwd.o..|genv: ge|
|00000c90| 6e 76 2e 63 0a 09 63 63 | 20 2d 64 53 4c 41 5a 54 |nv.c..cc| -dSLAZT|
|00000ca0| 45 43 4d 41 43 20 2d 64 | 54 45 53 54 20 2d 6f 20 |ECMAC -d|TEST -o |
|00000cb0| 67 65 6e 76 2e 6f 20 67 | 65 6e 76 2e 63 0a 09 6c |genv.o g|env.c..l|
|00000cc0| 6e 20 2d 6f 20 67 65 6e | 76 20 67 65 6e 76 2e 6f |n -o gen|v genv.o|
|00000cd0| 20 24 28 4c 46 4c 41 47 | 53 29 0a 09 72 6d 20 67 | $(LFLAG|S)..rm g|
|00000ce0| 65 6e 76 2e 6f 0a 0a 73 | 68 61 72 3a 0a 09 73 68 |env.o..s|har:..sh|
|00000cf0| 61 72 20 20 52 45 41 44 | 4d 45 2e 4d 41 43 20 4d |ar  READ|ME.MAC M|
|00000d00| 61 6b 65 66 69 6c 65 20 | 2a 2e 68 20 24 28 53 46 |akefile |*.h $(SF|
|00000d10| 69 6c 65 73 29 20 3e 20 | 73 68 61 72 2e 6d 61 63 |iles) > |shar.mac|
|00000d20| 6c 69 62 0a 53 48 41 52 | 5f 45 4f 46 0a 63 68 6d |lib.SHAR|_EOF.chm|
|00000d30| 6f 64 20 2b 78 20 27 4d | 61 6b 65 66 69 6c 65 27 |od +x 'M|akefile'|
|00000d40| 0a 66 69 20 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi # en|d of ove|
|00000d50| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 69 |rwriting| check.i|
|00000d60| 66 20 74 65 73 74 20 2d | 66 20 27 67 65 6e 76 2e |f test -|f 'genv.|
|00000d70| 68 27 0a 74 68 65 6e 0a | 20 20 20 20 20 20 20 65 |h'.then.|       e|
|00000d80| 63 68 6f 20 73 68 61 72 | 3a 20 77 69 6c 6c 20 6e |cho shar|: will n|
|00000d90| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00000da0| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 22 27 67 65 |isting f|ile "'ge|
|00000db0| 6e 76 2e 68 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |nv.h'".e|lse.cat |
|00000dc0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00000dd0| 67 65 6e 76 2e 68 27 0a | 2f 2a 20 09 09 67 65 6e |genv.h'.|/* ..gen|
|00000de0| 76 2e 63 0a 20 0a 20 0a | 20 0a 09 09 63 6f 70 79 |v.c. . .| ...copy|
|00000df0| 72 69 67 68 74 20 28 43 | 29 20 31 39 38 37 20 53 |right (C|) 1987 S|
|00000e00| 74 75 61 72 74 20 4c 79 | 6e 6e 65 0a 20 0a 09 09 |tuart Ly|nne. ...|
|00000e10| 43 6f 70 79 69 6e 67 20 | 61 6e 64 20 75 73 65 20 |Copying |and use |
|00000e20| 6f 66 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |of this |program |
|00000e30| 61 72 65 20 63 6f 6e 74 | 72 6f 6c 6c 65 64 20 62 |are cont|rolled b|
|00000e40| 79 20 74 68 65 20 74 65 | 72 6d 73 20 6f 66 20 74 |y the te|rms of t|
|00000e50| 68 65 0a 09 09 46 72 65 | 65 20 53 6f 66 74 77 61 |he...Fre|e Softwa|
|00000e60| 72 65 20 46 6f 75 6e 64 | 61 74 69 6f 6e 73 20 47 |re Found|ations G|
|00000e70| 4e 55 20 45 6d 61 63 73 | 20 47 65 6e 65 72 61 6c |NU Emacs| General|
|00000e80| 20 50 75 62 6c 69 63 20 | 4c 69 63 65 6e 73 65 2e | Public |License.|
|00000e90| 0a 20 0a 20 0a 09 09 76 | 65 72 73 69 6f 6e 09 09 |. . ...v|ersion..|
|00000ea0| 30 2e 31 09 09 4d 61 72 | 63 68 20 33 31 2f 31 39 |0.1..Mar|ch 31/19|
|00000eb0| 38 37 0a 20 0a 09 0a 20 | 0a 65 6e 76 69 72 6f 6e |87. ... |.environ|
|00000ec0| 6d 65 6e 74 20 76 61 72 | 69 61 62 6c 65 73 0a 20 |ment var|iables. |
|00000ed0| 0a 09 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |..The fo|llowing |
|00000ee0| 65 76 69 72 6f 6e 6d 65 | 6e 74 20 76 61 72 69 61 |evironme|nt varia|
|00000ef0| 62 6c 65 73 20 61 72 65 | 20 64 65 66 69 6e 65 64 |bles are| defined|
|00000f00| 3a 0a 20 0a 09 09 4d 41 | 49 4c 42 4f 58 09 09 63 |:. ...MA|ILBOX..c|
|00000f10| 75 72 72 65 6e 74 20 75 | 73 65 72 27 73 20 6d 61 |urrent u|ser's ma|
|00000f20| 69 6c 62 6f 78 2c 20 09 | 22 73 6c 22 0a 09 09 4e |ilbox, .|"sl"...N|
|00000f30| 41 4d 45 09 09 63 75 72 | 72 65 6e 74 20 75 73 65 |AME..cur|rent use|
|00000f40| 72 27 73 20 6e 61 6d 65 | 2c 20 09 09 22 53 74 75 |r's name|, .."Stu|
|00000f50| 61 72 74 20 4c 79 6e 6e | 65 22 0a 09 09 48 4f 4d |art Lynn|e"...HOM|
|00000f60| 45 09 09 63 75 72 72 65 | 6e 74 20 75 73 65 72 27 |E..curre|nt user'|
|00000f70| 73 20 68 6f 6d 65 20 64 | 69 72 09 09 22 2f 75 73 |s home d|ir.."/us|
|00000f80| 72 2f 73 6c 22 0a 09 09 | 44 4f 4d 41 49 4e 09 09 |r/sl"...|DOMAIN..|
|00000f90| 64 6f 6d 61 69 6e 20 6f | 66 20 74 68 69 73 20 6d |domain o|f this m|
|00000fa0| 61 63 68 69 6e 65 2c 20 | 09 22 6d 61 63 2e 76 61 |achine, |."mac.va|
|00000fb0| 6e 2d 62 63 2e 63 61 6e | 22 0a 09 09 4d 41 49 4c |n-bc.can|"...MAIL|
|00000fc0| 44 49 52 09 09 77 68 65 | 72 65 20 6d 61 69 6c 20 |DIR..whe|re mail |
|00000fd0| 69 73 20 6b 65 70 74 2c | 09 09 09 22 2f 75 73 72 |is kept,|..."/usr|
|00000fe0| 2f 6d 61 69 6c 22 0a 09 | 09 43 4f 4e 46 44 49 52 |/mail"..|.CONFDIR|
|00000ff0| 09 09 77 68 65 72 65 20 | 63 6f 6e 66 69 67 20 64 |..where |config d|
|00001000| 61 74 61 20 69 73 20 20 | 6b 65 70 74 2c 09 22 2f |ata is  |kept,."/|
|00001010| 75 73 72 2f 6c 69 62 2f | 75 75 63 70 22 0a 09 09 |usr/lib/|uucp"...|
|00001020| 53 50 4f 4f 4c 44 49 52 | 09 77 68 65 72 65 20 73 |SPOOLDIR|.where s|
|00001030| 70 6f 6f 6c 65 64 20 66 | 69 6c 65 73 20 61 72 65 |pooled f|iles are|
|00001040| 20 09 22 2f 75 73 72 2f | 73 70 6f 6f 6c 2f 75 75 | ."/usr/|spool/uu|
|00001050| 63 70 22 0a 09 09 50 55 | 42 44 49 52 09 09 70 75 |cp"...PU|BDIR..pu|
|00001060| 62 6c 69 63 20 73 70 6f | 6f 6c 20 64 69 72 65 63 |blic spo|ol direc|
|00001070| 74 6f 72 79 09 09 22 2f | 75 73 72 2f 73 70 6f 6f |tory.."/|usr/spoo|
|00001080| 6c 2f 75 75 63 70 70 75 | 62 6c 69 63 22 0a 20 09 |l/uucppu|blic". .|
|00001090| 09 4d 41 49 4c 53 45 52 | 56 49 43 45 09 77 68 6f |.MAILSER|VICE.who|
|000010a0| 20 64 6f 20 77 65 20 73 | 65 6e 64 20 72 65 6d 6f | do we s|end remo|
|000010b0| 74 65 20 6d 61 69 6c 09 | 22 76 61 6e 2d 62 63 22 |te mail.|"van-bc"|
|000010c0| 0a 20 09 09 4e 4f 44 45 | 4e 41 4d 45 09 77 68 61 |. ..NODE|NAME.wha|
|000010d0| 74 20 69 73 20 6f 75 72 | 20 6c 6f 63 61 6c 20 6e |t is our| local n|
|000010e0| 6f 64 65 6e 61 6d 65 09 | 22 73 6c 6d 61 63 22 0a |odename.|"slmac".|
|000010f0| 20 09 09 44 45 56 49 43 | 45 09 09 77 68 61 74 20 | ..DEVIC|E..what |
|00001100| 69 73 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 64 |is the d|efault d|
|00001110| 65 76 69 63 65 09 22 2e | 61 22 0a 20 09 09 53 50 |evice.".|a". ..SP|
|00001120| 45 45 44 09 09 77 68 61 | 74 20 69 73 20 74 68 65 |EED..wha|t is the|
|00001130| 20 64 65 66 61 75 6c 74 | 20 73 70 65 65 64 09 22 | default| speed."|
|00001140| 31 32 30 30 22 0a 20 09 | 09 54 45 4d 50 44 49 52 |1200". .|.TEMPDIR|
|00001150| 09 09 77 68 61 74 20 69 | 73 20 74 65 6d 70 20 64 |..what i|s temp d|
|00001160| 69 72 65 63 74 6f 72 79 | 09 09 22 2f 74 6d 70 22 |irectory|.."/tmp"|
|00001170| 0a 20 0a 2a 2f 0a 20 0a | 0a 23 64 65 66 69 6e 65 |. .*/. .|.#define|
|00001180| 09 4d 41 49 4c 42 4f 58 | 09 09 22 4d 41 49 4c 42 |.MAILBOX|.."MAILB|
|00001190| 4f 58 22 0a 23 64 65 66 | 69 6e 65 09 4e 41 4d 45 |OX".#def|ine.NAME|
|000011a0| 09 09 22 4e 41 4d 45 22 | 0a 23 64 65 66 69 6e 65 |.."NAME"|.#define|
|000011b0| 09 48 4f 4d 45 09 09 22 | 48 4f 4d 45 22 0a 23 64 |.HOME.."|HOME".#d|
|000011c0| 65 66 69 6e 65 09 44 4f | 4d 41 49 4e 09 09 22 44 |efine.DO|MAIN.."D|
|000011d0| 4f 4d 41 49 4e 22 0a 0a | 23 64 65 66 69 6e 65 09 |OMAIN"..|#define.|
|000011e0| 4d 41 49 4c 44 49 52 09 | 09 22 4d 41 49 4c 44 49 |MAILDIR.|."MAILDI|
|000011f0| 52 22 0a 23 64 65 66 69 | 6e 65 09 43 4f 4e 46 44 |R".#defi|ne.CONFD|
|00001200| 49 52 09 09 22 43 4f 4e | 46 44 49 52 22 0a 23 64 |IR.."CON|FDIR".#d|
|00001210| 65 66 69 6e 65 20 53 50 | 4f 4f 4c 44 49 52 09 22 |efine SP|OOLDIR."|
|00001220| 53 50 4f 4f 4c 44 49 52 | 22 0a 23 64 65 66 69 6e |SPOOLDIR|".#defin|
|00001230| 65 09 50 55 42 44 49 52 | 09 09 22 50 55 42 44 49 |e.PUBDIR|.."PUBDI|
|00001240| 52 22 0a 23 64 65 66 69 | 6e 65 09 4d 41 49 4c 53 |R".#defi|ne.MAILS|
|00001250| 45 52 56 49 43 45 09 22 | 4d 41 49 4c 53 45 52 56 |ERVICE."|MAILSERV|
|00001260| 49 43 45 22 0a 0a 23 64 | 65 66 69 6e 65 20 4e 4f |ICE"..#d|efine NO|
|00001270| 44 45 4e 41 4d 45 09 22 | 4e 4f 44 45 4e 41 4d 45 |DENAME."|NODENAME|
|00001280| 22 0a 23 64 65 66 69 6e | 65 09 44 45 56 49 43 45 |".#defin|e.DEVICE|
|00001290| 09 09 22 44 45 56 49 43 | 45 22 0a 23 64 65 66 69 |.."DEVIC|E".#defi|
|000012a0| 6e 65 09 53 50 45 45 44 | 09 09 22 53 50 45 45 44 |ne.SPEED|.."SPEED|
|000012b0| 22 0a 0a 23 64 65 66 69 | 6e 65 09 54 45 4d 50 44 |"..#defi|ne.TEMPD|
|000012c0| 49 52 09 09 22 54 45 4d | 50 44 49 52 22 0a 20 0a |IR.."TEM|PDIR". .|
|000012d0| 0a 20 0a 65 78 74 65 72 | 6e 20 63 68 61 72 09 2a |. .exter|n char.*|
|000012e0| 6d 61 69 6c 62 6f 78 3b | 0a 65 78 74 65 72 6e 20 |mailbox;|.extern |
|000012f0| 63 68 61 72 09 2a 6e 61 | 6d 65 3b 0a 65 78 74 65 |char.*na|me;.exte|
|00001300| 72 6e 20 63 68 61 72 20 | 2a 68 6f 6d 65 3b 0a 65 |rn char |*home;.e|
|00001310| 78 74 65 72 6e 20 63 68 | 61 72 09 2a 64 6f 6d 61 |xtern ch|ar.*doma|
|00001320| 69 6e 3b 0a 65 78 74 65 | 72 6e 20 63 68 61 72 09 |in;.exte|rn char.|
|00001330| 2a 6d 61 69 6c 64 69 72 | 3b 0a 65 78 74 65 72 6e |*maildir|;.extern|
|00001340| 20 63 68 61 72 09 2a 63 | 6f 6e 66 64 69 72 3b 0a | char.*c|onfdir;.|
|00001350| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 73 70 6f |extern c|har *spo|
|00001360| 6f 6c 64 69 72 3b 0a 65 | 78 74 65 72 6e 20 63 68 |oldir;.e|xtern ch|
|00001370| 61 72 20 2a 70 75 62 64 | 69 72 3b 0a 65 78 74 65 |ar *pubd|ir;.exte|
|00001380| 72 6e 20 63 68 61 72 09 | 2a 6d 61 69 6c 73 65 72 |rn char.|*mailser|
|00001390| 76 3b 0a 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |v;.exter|n char *|
|000013a0| 6e 6f 64 65 6e 61 6d 65 | 3b 0a 65 78 74 65 72 6e |nodename|;.extern|
|000013b0| 20 63 68 61 72 20 2a 64 | 65 76 69 63 65 3b 0a 65 | char *d|evice;.e|
|000013c0| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 73 70 65 65 |xtern ch|ar *spee|
|000013d0| 64 3b 0a 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |d;.exter|n char *|
|000013e0| 74 65 6d 70 64 69 72 3b | 0a 0a 20 0a 76 6f 69 64 |tempdir;|.. .void|
|000013f0| 20 6c 6f 61 64 65 6e 76 | 28 29 3b 0a 76 6f 69 64 | loadenv|();.void|
|00001400| 20 67 65 6e 76 28 29 3b | 0a 76 6f 69 64 20 6d 6b | genv();|.void mk|
|00001410| 66 69 6c 65 6e 61 6d 65 | 28 29 3b 0a 0a 53 48 41 |filename|();..SHA|
|00001420| 52 5f 45 4f 46 0a 63 68 | 6d 6f 64 20 2b 78 20 27 |R_EOF.ch|mod +x '|
|00001430| 67 65 6e 76 2e 68 27 0a | 66 69 20 23 20 65 6e 64 |genv.h'.|fi # end|
|00001440| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00001450| 63 68 65 63 6b 0a 69 66 | 20 74 65 73 74 20 2d 66 |check.if| test -f|
|00001460| 20 27 6e 64 69 72 2e 68 | 27 0a 74 68 65 6e 0a 20 | 'ndir.h|'.then. |
|00001470| 20 20 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |      ec|ho shar:|
|00001480| 20 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | will no|t over-w|
|00001490| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|000014a0| 6c 65 20 22 27 6e 64 69 | 72 2e 68 27 22 0a 65 6c |le "'ndi|r.h'".el|
|000014b0| 73 65 0a 63 61 74 20 3c | 3c 20 5c 53 48 41 52 5f |se.cat <|< \SHAR_|
|000014c0| 45 4f 46 20 3e 20 27 6e | 64 69 72 2e 68 27 0a 2f |EOF > 'n|dir.h'./|
|000014d0| 2a 20 40 28 23 29 6e 64 | 69 72 2e 68 09 31 2e 34 |* @(#)nd|ir.h.1.4|
|000014e0| 09 34 2f 31 36 2f 38 35 | 20 2a 2f 0a 23 69 66 6e |.4/16/85| */.#ifn|
|000014f0| 64 65 66 20 44 45 56 5f | 42 53 49 5a 45 0a 23 64 |def DEV_|BSIZE.#d|
|00001500| 65 66 69 6e 65 09 44 45 | 56 5f 42 53 49 5a 45 09 |efine.DE|V_BSIZE.|
|00001510| 35 31 32 0a 23 65 6e 64 | 69 66 0a 23 64 65 66 69 |512.#end|if.#defi|
|00001520| 6e 65 20 44 49 52 42 4c | 4b 53 49 5a 09 44 45 56 |ne DIRBL|KSIZ.DEV|
|00001530| 5f 42 53 49 5a 45 0a 23 | 64 65 66 69 6e 65 09 4d |_BSIZE.#|define.M|
|00001540| 41 58 4e 41 4d 4c 45 4e | 09 32 35 35 0a 0a 73 74 |AXNAMLEN|.255..st|
|00001550| 72 75 63 74 09 64 69 72 | 65 63 74 20 7b 0a 09 6c |ruct.dir|ect {..l|
|00001560| 6f 6e 67 09 64 5f 69 6e | 6f 3b 09 09 09 2f 2a 20 |ong.d_in|o;.../* |
|00001570| 69 6e 6f 64 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |inode nu|mber of |
|00001580| 65 6e 74 72 79 20 2a 2f | 0a 09 73 68 6f 72 74 09 |entry */|..short.|
|00001590| 64 5f 72 65 63 6c 65 6e | 3b 09 09 2f 2a 20 6c 65 |d_reclen|;../* le|
|000015a0| 6e 67 74 68 20 6f 66 20 | 74 68 69 73 20 72 65 63 |ngth of |this rec|
|000015b0| 6f 72 64 20 2a 2f 20 0a | 09 73 68 6f 72 74 09 64 |ord */ .|.short.d|
|000015c0| 5f 6e 61 6d 6c 65 6e 3b | 09 09 2f 2a 20 6c 65 6e |_namlen;|../* len|
|000015d0| 67 74 68 20 6f 66 20 73 | 74 72 69 6e 67 20 69 6e |gth of s|tring in|
|000015e0| 20 64 5f 6e 61 6d 65 20 | 2a 2f 0a 09 63 68 61 72 | d_name |*/..char|
|000015f0| 09 64 5f 6e 61 6d 65 5b | 4d 41 58 4e 41 4d 4c 45 |.d_name[|MAXNAMLE|
|00001600| 4e 20 2b 20 31 5d 3b 09 | 2f 2a 20 6e 61 6d 65 20 |N + 1];.|/* name |
|00001610| 6d 75 73 74 20 62 65 20 | 6e 6f 20 6c 6f 6e 67 65 |must be |no longe|
|00001620| 72 20 74 68 61 6e 20 74 | 68 69 73 20 2a 2f 0a 7d |r than t|his */.}|
|00001630| 3b 0a 0a 2f 2a 0a 20 2a | 20 54 68 65 20 44 49 52 |;../*. *| The DIR|
|00001640| 53 49 5a 20 6d 61 63 72 | 6f 20 67 69 76 65 73 20 |SIZ macr|o gives |
|00001650| 74 68 65 20 6d 69 6e 69 | 6d 75 6d 20 72 65 63 6f |the mini|mum reco|
|00001660| 72 64 20 6c 65 6e 67 74 | 68 20 77 68 69 63 68 20 |rd lengt|h which |
|00001670| 77 69 6c 6c 20 68 6f 6c | 64 0a 20 2a 20 74 68 65 |will hol|d. * the|
|00001680| 20 64 69 72 65 63 74 6f | 72 79 20 65 6e 74 72 79 | directo|ry entry|
|00001690| 2e 20 20 54 68 69 73 20 | 72 65 71 75 69 72 65 73 |.  This |requires|
|000016a0| 20 74 68 65 20 61 6d 6f | 75 6e 74 20 6f 66 20 73 | the amo|unt of s|
|000016b0| 70 61 63 65 20 69 6e 20 | 73 74 72 75 63 74 20 64 |pace in |struct d|
|000016c0| 69 72 65 63 74 0a 20 2a | 20 77 69 74 68 6f 75 74 |irect. *| without|
|000016d0| 20 74 68 65 20 64 5f 6e | 61 6d 65 20 66 69 65 6c | the d_n|ame fiel|
|000016e0| 64 2c 20 70 6c 75 73 20 | 65 6e 6f 75 67 68 20 73 |d, plus |enough s|
|000016f0| 70 61 63 65 20 66 6f 72 | 20 74 68 65 20 6e 61 6d |pace for| the nam|
|00001700| 65 20 77 69 74 68 20 61 | 20 74 65 72 6d 69 6e 61 |e with a| termina|
|00001710| 74 69 6e 67 0a 20 2a 20 | 6e 75 6c 6c 20 62 79 74 |ting. * |null byt|
|00001720| 65 20 28 64 70 2d 3e 64 | 5f 6e 61 6d 6c 65 6e 2b |e (dp->d|_namlen+|
|00001730| 31 29 2c 20 72 6f 75 6e | 64 65 64 20 75 70 20 74 |1), roun|ded up t|
|00001740| 6f 20 61 20 34 20 62 79 | 74 65 20 62 6f 75 6e 64 |o a 4 by|te bound|
|00001750| 61 72 79 2e 0a 20 2a 2f | 0a 0a 23 69 66 64 65 66 |ary.. */|..#ifdef|
|00001760| 20 44 49 52 53 49 5a 0a | 23 75 6e 64 65 66 20 44 | DIRSIZ.|#undef D|
|00001770| 49 52 53 49 5a 0a 23 65 | 6e 64 69 66 20 2f 2a 20 |IRSIZ.#e|ndif /* |
|00001780| 44 49 52 53 49 5a 20 2a | 2f 0a 23 64 65 66 69 6e |DIRSIZ *|/.#defin|
|00001790| 65 20 44 49 52 53 49 5a | 28 64 70 29 20 5c 0a 20 |e DIRSIZ|(dp) \. |
|000017a0| 20 20 20 28 28 73 69 7a | 65 6f 66 20 28 73 74 72 |   ((siz|eof (str|
|000017b0| 75 63 74 20 64 69 72 65 | 63 74 29 20 2d 20 28 4d |uct dire|ct) - (M|
|000017c0| 41 58 4e 41 4d 4c 45 4e | 2b 31 29 29 20 2b 20 28 |AXNAMLEN|+1)) + (|
|000017d0| 28 28 64 70 29 2d 3e 64 | 5f 6e 61 6d 6c 65 6e 2b |((dp)->d|_namlen+|
|000017e0| 31 20 2b 20 33 29 20 26 | 7e 20 33 29 29 0a 0a 2f |1 + 3) &|~ 3))../|
|000017f0| 2a 0a 20 2a 20 44 65 66 | 69 6e 69 74 69 6f 6e 73 |*. * Def|initions|
|00001800| 20 66 6f 72 20 6c 69 62 | 72 61 72 79 20 72 6f 75 | for lib|rary rou|
|00001810| 74 69 6e 65 73 20 6f 70 | 65 72 61 74 69 6e 67 20 |tines op|erating |
|00001820| 6f 6e 20 64 69 72 65 63 | 74 6f 72 69 65 73 2e 0a |on direc|tories..|
|00001830| 20 2a 2f 0a 2f 2a 0a 74 | 79 70 65 64 65 66 20 73 | */./*.t|ypedef s|
|00001840| 74 72 75 63 74 20 5f 64 | 69 72 64 65 73 63 20 7b |truct _d|irdesc {|
|00001850| 0a 09 69 6e 74 09 64 64 | 5f 66 64 3b 0a 09 6c 6f |..int.dd|_fd;..lo|
|00001860| 6e 67 09 64 64 5f 6c 6f | 63 3b 0a 09 6c 6f 6e 67 |ng.dd_lo|c;..long|
|00001870| 09 64 64 5f 73 69 7a 65 | 3b 0a 09 63 68 61 72 09 |.dd_size|;..char.|
|00001880| 64 64 5f 62 75 66 5b 44 | 49 52 42 4c 4b 53 49 5a |dd_buf[D|IRBLKSIZ|
|00001890| 5d 3b 0a 7d 20 44 49 52 | 3b 0a 2a 2f 0a 74 79 70 |];.} DIR|;.*/.typ|
|000018a0| 65 64 65 66 20 73 74 72 | 75 63 74 20 5f 64 69 72 |edef str|uct _dir|
|000018b0| 64 65 73 63 20 7b 0a 09 | 69 6e 74 20 09 69 6f 56 |desc {..|int .ioV|
|000018c0| 52 65 66 4e 75 6d 3b 0a | 09 6c 6f 6e 67 09 69 6f |RefNum;.|.long.io|
|000018d0| 44 72 44 69 72 49 44 3b | 0a 09 69 6e 74 09 09 69 |DrDirID;|..int..i|
|000018e0| 6f 46 44 69 72 49 6e 64 | 65 78 3b 0a 7d 20 44 49 |oFDirInd|ex;.} DI|
|000018f0| 52 3b 0a 23 69 66 6e 64 | 65 66 20 4e 55 4c 4c 0a |R;.#ifnd|ef NULL.|
|00001900| 23 64 65 66 69 6e 65 20 | 4e 55 4c 4c 20 30 4c 0a |#define |NULL 0L.|
|00001910| 23 65 6e 64 69 66 0a 65 | 78 74 65 72 6e 09 44 49 |#endif.e|xtern.DI|
|00001920| 52 20 2a 6f 70 65 6e 64 | 69 72 28 29 3b 0a 65 78 |R *opend|ir();.ex|
|00001930| 74 65 72 6e 09 73 74 72 | 75 63 74 20 64 69 72 65 |tern.str|uct dire|
|00001940| 63 74 20 2a 72 65 61 64 | 64 69 72 28 29 3b 0a 65 |ct *read|dir();.e|
|00001950| 78 74 65 72 6e 09 76 6f | 69 64 20 63 6c 6f 73 65 |xtern.vo|id close|
|00001960| 64 69 72 28 29 3b 0a 0a | 53 48 41 52 5f 45 4f 46 |dir();..|SHAR_EOF|
|00001970| 0a 63 68 6d 6f 64 20 2b | 78 20 27 6e 64 69 72 2e |.chmod +|x 'ndir.|
|00001980| 68 27 0a 66 69 20 23 20 | 65 6e 64 20 6f 66 20 6f |h'.fi # |end of o|
|00001990| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|000019a0| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 73 69 6f |.if test| -f 'sio|
|000019b0| 2e 68 27 0a 74 68 65 6e | 0a 20 20 20 20 20 20 20 |.h'.then|.       |
|000019c0| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|000019d0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000019e0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 73 |xisting |file "'s|
|000019f0| 69 6f 2e 68 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |io.h'".e|lse.cat |
|00001a00| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00001a10| 73 69 6f 2e 68 27 0a 2f | 2a 09 09 09 73 69 6f 2e |sio.h'./|*...sio.|
|00001a20| 68 0a 0a 0a 2a 2f 0a 0a | 23 69 6e 63 6c 75 64 65 |h...*/..|#include|
|00001a30| 09 3c 73 65 72 69 61 6c | 2e 68 3e 0a 0a 23 64 65 |.<serial|.h>..#de|
|00001a40| 66 69 6e 65 20 41 49 4e | 09 09 22 5c 50 2e 41 49 |fine AIN|.."\P.AI|
|00001a50| 4e 22 0a 23 64 65 66 69 | 6e 65 20 41 4f 55 54 09 |N".#defi|ne AOUT.|
|00001a60| 22 5c 50 2e 41 4f 55 54 | 22 0a 23 64 65 66 69 6e |"\P.AOUT|".#defin|
|00001a70| 65 20 42 49 4e 09 09 22 | 5c 50 2e 42 49 4e 22 0a |e BIN.."|\P.BIN".|
|00001a80| 23 64 65 66 69 6e 65 20 | 42 4f 55 54 09 22 5c 50 |#define |BOUT."\P|
|00001a90| 2e 42 4f 55 54 22 0a 0a | 74 79 70 65 64 65 66 20 |.BOUT"..|typedef |
|00001aa0| 73 74 72 75 63 74 20 53 | 49 4f 50 6f 72 74 20 7b |struct S|IOPort {|
|00001ab0| 0a 09 69 6e 74 20 72 65 | 66 69 6e 2c 20 72 65 66 |..int re|fin, ref|
|00001ac0| 6f 75 74 3b 0a 09 75 6e | 73 69 67 6e 65 64 20 73 |out;..un|signed s|
|00001ad0| 68 6f 72 74 20 62 61 75 | 64 2c 20 70 61 72 69 74 |hort bau|d, parit|
|00001ae0| 79 2c 20 73 74 6f 70 62 | 69 74 73 2c 20 64 61 74 |y, stopb|its, dat|
|00001af0| 61 62 69 74 73 3b 0a 09 | 53 65 72 53 68 6b 09 68 |abits;..|SerShk.h|
|00001b00| 61 6e 64 73 68 61 6b 65 | 3b 0a 09 63 68 61 72 20 |andshake|;..char |
|00001b10| 2a 20 6f 75 74 2c 20 2a | 20 69 6e 3b 0a 09 69 6e |* out, *| in;..in|
|00001b20| 74 20 69 6e 73 69 7a 65 | 2c 20 6f 75 74 73 69 7a |t insize|, outsiz|
|00001b30| 65 3b 0a 09 63 68 61 72 | 20 2a 20 69 6e 62 75 66 |e;..char| * inbuf|
|00001b40| 66 65 72 2c 20 2a 20 6f | 75 74 62 75 66 66 65 72 |fer, * o|utbuffer|
|00001b50| 3b 0a 7d 20 53 49 4f 50 | 6f 72 74 3b 0a 0a 0a 65 |;.} SIOP|ort;...e|
|00001b60| 78 74 65 72 6e 20 73 74 | 72 75 63 74 20 53 49 4f |xtern st|ruct SIO|
|00001b70| 50 6f 72 74 20 50 6f 72 | 74 41 2c 20 50 6f 72 74 |Port Por|tA, Port|
|00001b80| 42 2c 20 2a 50 6f 72 74 | 3b 0a 0a 65 78 74 65 72 |B, *Port|;..exter|
|00001b90| 6e 20 53 49 4f 49 6e 69 | 74 28 20 2f 2a 77 68 69 |n SIOIni|t( /*whi|
|00001ba0| 63 68 70 6f 72 74 2c 20 | 73 70 65 65 64 2a 2f 20 |chport, |speed*/ |
|00001bb0| 29 3b 0a 65 78 74 65 72 | 6e 20 53 49 4f 53 70 65 |);.exter|n SIOSpe|
|00001bc0| 65 64 28 20 2f 2a 73 70 | 65 65 64 2a 2f 20 29 3b |ed( /*sp|eed*/ );|
|00001bd0| 0a 65 78 74 65 72 6e 20 | 53 49 4f 48 61 6e 64 73 |.extern |SIOHands|
|00001be0| 68 61 6b 65 20 28 20 2f | 2a 66 49 6e 78 2c 20 66 |hake ( /|*fInx, f|
|00001bf0| 58 4f 6e 2c 20 66 43 54 | 53 2c 20 78 4f 6e 2c 20 |XOn, fCT|S, xOn, |
|00001c00| 78 4f 66 66 2a 2f 20 29 | 3b 0a 65 78 74 65 72 6e |xOff*/ )|;.extern|
|00001c10| 20 53 49 4f 53 65 74 74 | 69 6e 67 28 20 2f 2a 73 | SIOSett|ing( /*s|
|00001c20| 70 65 65 64 2c 20 70 61 | 72 69 74 79 2c 20 73 74 |peed, pa|rity, st|
|00001c30| 6f 70 62 69 74 73 2c 20 | 64 61 74 61 62 69 74 73 |opbits, |databits|
|00001c40| 2a 2f 20 29 3b 0a 65 78 | 74 65 72 6e 20 53 49 4f |*/ );.ex|tern SIO|
|00001c50| 49 6e 42 75 66 66 65 72 | 20 28 20 2f 2a 62 75 66 |InBuffer| ( /*buf|
|00001c60| 2c 20 73 69 7a 65 2a 2f | 20 29 3b 0a 65 78 74 65 |, size*/| );.exte|
|00001c70| 72 6e 20 53 49 4f 4f 75 | 74 42 75 66 66 65 72 20 |rn SIOOu|tBuffer |
|00001c80| 28 20 2f 2a 62 75 66 2c | 20 73 69 7a 65 2a 2f 20 |( /*buf,| size*/ |
|00001c90| 29 3b 0a 65 78 74 65 72 | 6e 20 53 49 4f 43 6c 6f |);.exter|n SIOClo|
|00001ca0| 73 65 20 28 20 2f 2a 64 | 74 72 2a 2f 20 29 3b 0a |se ( /*d|tr*/ );.|
|00001cb0| 65 78 74 65 72 6e 20 53 | 49 4f 50 75 72 67 65 20 |extern S|IOPurge |
|00001cc0| 28 29 3b 0a 65 78 74 65 | 72 6e 20 53 49 4f 50 75 |();.exte|rn SIOPu|
|00001cd0| 74 63 68 61 72 20 28 20 | 2f 2a 63 68 2a 2f 20 29 |tchar ( |/*ch*/ )|
|00001ce0| 3b 0a 65 78 74 65 72 6e | 20 53 49 4f 57 53 74 72 |;.extern| SIOWStr|
|00001cf0| 20 28 20 2f 2a 73 74 2a | 2f 20 29 3b 0a 0a 2f 2a | ( /*st*|/ );../*|
|00001d00| 20 74 69 6d 65 6f 75 74 | 20 69 73 20 69 6e 20 74 | timeout| is in t|
|00001d10| 65 6e 74 68 73 20 6f 66 | 20 61 20 73 65 63 6f 6e |enths of| a secon|
|00001d20| 64 20 2a 2f 0a 65 78 74 | 65 72 6e 20 69 6e 74 20 |d */.ext|ern int |
|00001d30| 53 49 4f 52 65 61 64 20 | 20 28 20 2f 2a 62 79 74 |SIORead | ( /*byt|
|00001d40| 2c 20 6d 61 78 63 6f 75 | 6e 74 2c 20 74 65 6e 74 |, maxcou|nt, tent|
|00001d50| 68 73 2a 2f 20 29 3b 0a | 0a 65 78 74 65 72 6e 20 |hs*/ );.|.extern |
|00001d60| 70 75 74 75 28 20 2f 2a | 63 2c 20 63 6f 75 6e 74 |putu( /*|c, count|
|00001d70| 2c 20 72 65 66 6f 75 74 | 2a 2f 20 29 3b 0a 65 78 |, refout|*/ );.ex|
|00001d80| 74 65 72 6e 20 69 6e 74 | 20 67 65 74 6e 20 28 20 |tern int| getn ( |
|00001d90| 2f 2a 63 70 2c 20 63 6d | 61 78 2c 20 63 6d 69 6e |/*cp, cm|ax, cmin|
|00001da0| 2c 20 72 65 66 69 6e 2a | 2f 20 29 3b 0a 0a 53 48 |, refin*|/ );..SH|
|00001db0| 41 52 5f 45 4f 46 0a 63 | 68 6d 6f 64 20 2b 78 20 |AR_EOF.c|hmod +x |
|00001dc0| 27 73 69 6f 2e 68 27 0a | 66 69 20 23 20 65 6e 64 |'sio.h'.|fi # end|
|00001dd0| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00001de0| 63 68 65 63 6b 0a 69 66 | 20 74 65 73 74 20 2d 66 |check.if| test -f|
|00001df0| 20 27 72 65 6e 61 6d 65 | 2e 63 27 0a 74 68 65 6e | 'rename|.c'.then|
|00001e00| 0a 20 20 20 20 20 20 20 | 65 63 68 6f 20 73 68 61 |.       |echo sha|
|00001e10| 72 3a 20 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: will |not over|
|00001e20| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00001e30| 66 69 6c 65 20 22 27 72 | 65 6e 61 6d 65 2e 63 27 |file "'r|ename.c'|
|00001e40| 22 0a 65 6c 73 65 0a 63 | 61 74 20 3c 3c 20 5c 53 |".else.c|at << \S|
|00001e50| 48 41 52 5f 45 4f 46 20 | 3e 20 27 72 65 6e 61 6d |HAR_EOF |> 'renam|
|00001e60| 65 2e 63 27 0a 2f 2a 20 | 43 6f 70 79 72 69 67 68 |e.c'./* |Copyrigh|
|00001e70| 74 20 28 43 29 20 31 39 | 38 34 20 62 79 20 4d 61 |t (C) 19|84 by Ma|
|00001e80| 6e 78 20 53 6f 66 74 77 | 61 72 65 20 53 79 73 74 |nx Softw|are Syst|
|00001e90| 65 6d 73 2c 20 49 6e 63 | 2e 20 2a 2f 0a 0a 23 69 |ems, Inc|. */..#i|
|00001ea0| 6e 63 6c 75 64 65 09 3c | 71 75 69 63 6b 64 72 61 |nclude.<|quickdra|
|00001eb0| 77 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 09 3c 70 |w.h>.#in|clude.<p|
|00001ec0| 62 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 09 3c 65 |b.h>.#in|clude.<e|
|00001ed0| 72 72 6e 6f 2e 68 3e 0a | 0a 23 64 65 66 69 6e 65 |rrno.h>.|.#define|
|00001ee0| 09 09 5f 44 45 42 55 47 | 0a 23 69 6e 63 6c 75 64 |.._DEBUG|.#includ|
|00001ef0| 65 09 3c 6d 61 78 2f 64 | 65 62 75 67 2e 68 3e 0a |e.<max/d|ebug.h>.|
|00001f00| 0a 23 69 66 64 65 66 20 | 54 45 53 54 0a 23 69 6e |.#ifdef |TEST.#in|
|00001f10| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00001f20| 23 65 6e 64 69 66 0a 0a | 6c 6f 6e 67 20 73 65 74 |#endif..|long set|
|00001f30| 64 69 72 28 20 70 61 74 | 68 2c 20 64 69 72 2c 20 |dir( pat|h, dir, |
|00001f40| 6e 61 6d 65 20 29 0a 63 | 68 61 72 20 2a 20 70 61 |name ).c|har * pa|
|00001f50| 74 68 3b 0a 63 68 61 72 | 20 2a 20 64 69 72 3b 0a |th;.char| * dir;.|
|00001f60| 63 68 61 72 20 2a 20 6e | 61 6d 65 3b 0a 7b 0a 09 |char * n|ame;.{..|
|00001f70| 43 49 6e 66 6f 50 42 52 | 65 63 20 63 70 62 3b 0a |CInfoPBR|ec cpb;.|
|00001f80| 09 69 6e 74 20 65 72 72 | 3b 0a 0a 09 73 70 6c 69 |.int err|;...spli|
|00001f90| 74 6e 61 6d 65 28 20 70 | 61 74 68 2c 20 64 69 72 |tname( p|ath, dir|
|00001fa0| 2c 20 6e 61 6d 65 20 29 | 3b 0a 09 0a 23 69 66 64 |, name )|;...#ifd|
|00001fb0| 65 66 20 54 45 53 54 0a | 09 66 70 72 69 6e 74 66 |ef TEST.|.fprintf|
|00001fc0| 28 20 73 74 64 65 72 72 | 2c 20 22 73 65 74 64 69 |( stderr|, "setdi|
|00001fd0| 72 3a 20 5c 22 25 73 5c | 22 20 5c 22 25 73 5c 22 |r: \"%s\|" \"%s\"|
|00001fe0| 20 5c 22 25 73 5c 22 5c | 6e 22 2c 20 6e 61 6d 65 | \"%s\"\|n", name|
|00001ff0| 2c 20 64 69 72 2c 20 70 | 61 74 68 20 29 3b 0a 23 |, dir, p|ath );.#|
|00002000| 65 6e 64 69 66 0a 0a 09 | 63 70 62 2e 69 6f 4e 61 |endif...|cpb.ioNa|
|00002010| 6d 65 50 74 72 20 3d 20 | 63 74 6f 70 28 20 64 69 |mePtr = |ctop( di|
|00002020| 72 20 29 3b 0a 09 0a 09 | 63 70 62 2e 69 6f 56 52 |r );....|cpb.ioVR|
|00002030| 65 66 4e 75 6d 20 3d 20 | 30 3b 0a 09 63 70 62 2e |efNum = |0;..cpb.|
|00002040| 69 6f 46 44 69 72 49 6e | 64 65 78 20 3d 20 30 3b |ioFDirIn|dex = 0;|
|00002050| 0a 09 63 70 62 2e 75 2e | 64 69 2e 69 6f 44 72 44 |..cpb.u.|di.ioDrD|
|00002060| 69 72 49 44 20 3d 20 30 | 4c 3b 0a 0a 09 69 66 20 |irID = 0|L;...if |
|00002070| 28 28 65 72 72 20 3d 20 | 50 42 47 65 74 43 61 74 |((err = |PBGetCat|
|00002080| 49 6e 66 6f 28 20 26 63 | 70 62 2c 20 30 20 29 29 |Info( &c|pb, 0 ))|
|00002090| 20 21 3d 20 30 20 29 20 | 7b 0a 0a 23 69 66 64 65 | != 0 ) |{..#ifde|
|000020a0| 66 20 54 45 53 54 0a 09 | 66 70 72 69 6e 74 66 28 |f TEST..|fprintf(|
|000020b0| 20 73 74 64 65 72 72 2c | 20 22 73 65 74 64 69 72 | stderr,| "setdir|
|000020c0| 3a 20 65 72 72 20 25 64 | 5c 6e 22 2c 20 65 72 72 |: err %d|\n", err|
|000020d0| 20 29 3b 0a 23 65 6e 64 | 69 66 0a 09 09 0a 09 7d | );.#end|if.....}|
|000020e0| 0a 0a 09 70 74 6f 63 28 | 20 64 69 72 20 29 3b 0a |...ptoc(| dir );.|
|000020f0| 0a 23 69 66 64 65 66 20 | 54 45 53 54 0a 09 66 70 |.#ifdef |TEST..fp|
|00002100| 72 69 6e 74 66 28 20 73 | 74 64 65 72 72 2c 20 22 |rintf( s|tderr, "|
|00002110| 73 65 74 64 69 72 3a 20 | 70 61 74 68 7c 25 73 20 |setdir: |path|%s |
|00002120| 64 69 72 7c 25 73 20 6e | 61 6d 65 7c 25 73 5c 6e |dir|%s n|ame|%s\n|
|00002130| 22 2c 0a 09 09 09 09 70 | 61 74 68 2c 20 64 69 72 |",.....p|ath, dir|
|00002140| 2c 20 6e 61 6d 65 20 29 | 3b 0a 23 65 6e 64 69 66 |, name )|;.#endif|
|00002150| 0a 0a 09 72 65 74 75 72 | 6e 28 20 63 70 62 2e 75 |...retur|n( cpb.u|
|00002160| 2e 64 69 2e 69 6f 44 72 | 44 69 72 49 44 20 29 3b |.di.ioDr|DirID );|
|00002170| 0a 0a 7d 0a 0a 72 65 6e | 61 6d 65 28 6f 6c 64 2c |..}..ren|ame(old,|
|00002180| 20 6e 65 77 29 0a 63 68 | 61 72 20 2a 6f 6c 64 2c | new).ch|ar *old,|
|00002190| 20 2a 6e 65 77 3b 0a 7b | 0a 09 72 65 67 69 73 74 | *new;.{|..regist|
|000021a0| 65 72 20 69 6e 74 20 69 | 2c 20 65 72 72 3b 0a 09 |er int i|, err;..|
|000021b0| 6c 6f 6e 67 20 69 6e 74 | 20 66 72 65 65 62 3b 0a |long int| freeb;.|
|000021c0| 09 69 6e 74 20 76 72 65 | 66 6e 75 6d 3b 0a 09 0a |.int vre|fnum;...|
|000021d0| 09 75 6e 69 6f 6e 20 7b | 0a 09 09 73 74 72 75 63 |.union {|...struc|
|000021e0| 74 20 48 50 72 6d 42 6c | 6b 52 65 63 20 70 62 3b |t HPrmBl|kRec pb;|
|000021f0| 0a 09 09 73 74 72 75 63 | 74 20 43 4d 6f 76 65 50 |...struc|t CMoveP|
|00002200| 42 52 65 63 20 63 6d 3b | 0a 09 7d 20 70 62 63 6d |BRec cm;|..} pbcm|
|00002210| 3b 0a 09 09 0a 09 63 68 | 61 72 20 6e 62 75 66 5b |;.....ch|ar nbuf[|
|00002220| 36 34 5d 2c 20 6e 64 69 | 72 5b 36 34 5d 2c 20 6e |64], ndi|r[64], n|
|00002230| 6e 61 6d 65 5b 33 32 5d | 3b 0a 09 63 68 61 72 20 |name[32]|;..char |
|00002240| 6f 62 75 66 5b 36 34 5d | 2c 20 6f 64 69 72 5b 36 |obuf[64]|, odir[6|
|00002250| 34 5d 2c 20 6f 6e 61 6d | 65 5b 33 32 5d 3b 0a 0a |4], onam|e[32];..|
|00002260| 0a 09 2f 2a 20 67 65 74 | 20 76 52 65 66 4e 75 6d |../* get| vRefNum|
|00002270| 20 2a 2f 0a 09 69 66 20 | 28 20 28 69 3d 68 66 69 | */..if |( (i=hfi|
|00002280| 78 6e 61 6d 28 6f 6c 64 | 2c 20 6f 62 75 66 29 29 |xnam(old|, obuf))|
|00002290| 20 3d 3d 20 30 20 7c 7c | 0a 09 09 09 20 09 28 70 | == 0 |||.... .(p|
|000022a0| 62 63 6d 2e 70 62 2e 69 | 6f 56 52 65 66 4e 75 6d |bcm.pb.i|oVRefNum|
|000022b0| 20 3d 20 68 66 69 78 6e | 61 6d 28 6e 65 77 2c 20 | = hfixn|am(new, |
|000022c0| 6e 62 75 66 29 29 20 3d | 3d 20 30 0a 09 09 09 29 |nbuf)) =|= 0....)|
|000022d0| 0a 09 09 72 65 74 75 72 | 6e 28 2d 31 29 3b 0a 09 |...retur|n(-1);..|
|000022e0| 69 66 20 28 69 20 21 3d | 20 70 62 63 6d 2e 70 62 |if (i !=| pbcm.pb|
|000022f0| 2e 69 6f 56 52 65 66 4e | 75 6d 29 20 7b 0a 09 09 |.ioVRefN|um) {...|
|00002300| 65 72 72 6e 6f 20 3d 20 | 45 49 4e 56 41 4c 3b 0a |errno = |EINVAL;.|
|00002310| 09 09 72 65 74 75 72 6e | 28 2d 31 29 3b 0a 09 7d |..return|(-1);..}|
|00002320| 0a 0a 09 0a 23 69 66 64 | 65 66 20 54 45 53 54 0a |....#ifd|ef TEST.|
|00002330| 09 66 70 72 69 6e 74 66 | 28 20 73 74 64 65 72 72 |.fprintf|( stderr|
|00002340| 2c 20 22 72 65 6e 61 6d | 65 3a 20 6f 62 75 66 7c |, "renam|e: obuf||
|00002350| 25 73 20 2d 3e 20 6e 62 | 75 66 7c 25 73 5c 6e 22 |%s -> nb|uf|%s\n"|
|00002360| 2c 20 6f 62 75 66 2c 20 | 6e 62 75 66 20 29 3b 0a |, obuf, |nbuf );.|
|00002370| 23 65 6e 64 69 66 0a 0a | 09 2f 2a 20 67 65 74 20 |#endif..|./* get |
|00002380| 64 69 72 20 72 65 66 6e | 75 6d 73 2c 20 66 69 78 |dir refn|ums, fix|
|00002390| 20 70 61 74 68 20 6e 61 | 6d 65 73 2c 20 67 65 74 | path na|mes, get|
|000023a0| 20 64 69 72 20 6e 61 6d | 65 2c 20 61 6e 64 20 6e | dir nam|e, and n|
|000023b0| 61 6d 65 20 2a 2f 0a 09 | 70 62 63 6d 2e 63 6d 2e |ame */..|pbcm.cm.|
|000023c0| 69 6f 4e 65 77 44 69 72 | 49 44 20 3d 20 73 65 74 |ioNewDir|ID = set|
|000023d0| 64 69 72 28 20 6e 62 75 | 66 2c 20 6e 64 69 72 2c |dir( nbu|f, ndir,|
|000023e0| 20 6e 6e 61 6d 65 20 29 | 3b 0a 09 70 62 63 6d 2e | nname )|;..pbcm.|
|000023f0| 63 6d 2e 69 6f 44 69 72 | 49 44 20 3d 20 73 65 74 |cm.ioDir|ID = set|
|00002400| 64 69 72 28 20 6f 62 75 | 66 2c 20 6f 64 69 72 2c |dir( obu|f, odir,|
|00002410| 20 6f 6e 61 6d 65 20 29 | 3b 09 0a 09 0a 09 2f 2a | oname )|;...../*|
|00002420| 20 75 73 65 20 6e 61 6d | 65 20 6f 6e 6c 79 20 2a | use nam|e only *|
|00002430| 2f 0a 09 69 66 20 28 20 | 70 62 63 6d 2e 63 6d 2e |/..if ( |pbcm.cm.|
|00002440| 69 6f 44 69 72 49 44 20 | 21 3d 20 70 62 63 6d 2e |ioDirID |!= pbcm.|
|00002450| 63 6d 2e 69 6f 4e 65 77 | 44 69 72 49 44 20 29 20 |cm.ioNew|DirID ) |
|00002460| 7b 0a 23 69 66 64 65 66 | 20 54 45 53 54 0a 09 09 |{.#ifdef| TEST...|
|00002470| 66 70 72 69 6e 74 66 28 | 20 73 74 64 65 72 72 2c |fprintf(| stderr,|
|00002480| 20 22 72 65 6e 61 6d 65 | 3a 20 63 61 74 6d 6f 76 | "rename|: catmov|
|00002490| 65 5c 6e 22 20 29 3b 0a | 09 09 66 70 72 69 6e 74 |e\n" );.|..fprint|
|000024a0| 66 28 20 73 74 64 65 72 | 72 2c 20 22 72 65 6e 61 |f( stder|r, "rena|
|000024b0| 6d 65 3a 20 25 6c 64 7c | 25 73 20 2d 3e 20 25 6c |me: %ld||%s -> %l|
|000024c0| 64 7c 25 73 5c 6e 22 2c | 20 0a 09 09 09 09 70 62 |d|%s\n",| .....pb|
|000024d0| 63 6d 2e 63 6d 2e 69 6f | 44 69 72 49 44 2c 20 6f |cm.cm.io|DirID, o|
|000024e0| 62 75 66 2c 20 70 62 63 | 6d 2e 63 6d 2e 69 6f 4e |buf, pbc|m.cm.ioN|
|000024f0| 65 77 44 69 72 49 44 2c | 20 6e 64 69 72 20 29 3b |ewDirID,| ndir );|
|00002500| 0a 23 65 6e 64 69 66 0a | 09 09 2f 2a 20 75 73 65 |.#endif.|../* use|
|00002510| 20 66 75 6c 6c 20 70 61 | 74 68 20 6e 61 6d 65 20 | full pa|th name |
|00002520| 69 6e 63 6c 75 64 69 6e | 67 20 76 6f 6c 75 6d 65 |includin|g volume|
|00002530| 20 6e 61 6d 65 20 2a 2f | 0a 09 09 70 62 63 6d 2e | name */|...pbcm.|
|00002540| 70 62 2e 69 6f 4e 61 6d | 65 50 74 72 20 3d 20 63 |pb.ioNam|ePtr = c|
|00002550| 74 6f 70 28 6f 62 75 66 | 29 3b 0a 09 09 70 62 63 |top(obuf|);...pbc|
|00002560| 6d 2e 63 6d 2e 69 6f 4e | 65 77 4e 61 6d 65 20 3d |m.cm.ioN|ewName =|
|00002570| 20 63 74 6f 70 28 6e 64 | 69 72 29 3b 0a 09 09 65 | ctop(nd|ir);...e|
|00002580| 72 72 20 3d 20 50 42 43 | 61 74 4d 6f 76 65 28 26 |rr = PBC|atMove(&|
|00002590| 70 62 63 6d 2c 20 30 29 | 3b 0a 09 7d 0a 09 65 6c |pbcm, 0)|;..}..el|
|000025a0| 73 65 0a 09 09 65 72 72 | 20 3d 20 30 3b 0a 09 69 |se...err| = 0;..i|
|000025b0| 66 20 28 65 72 72 29 20 | 7b 0a 09 09 69 66 20 28 |f (err) |{...if (|
|000025c0| 65 72 72 20 3d 3d 20 2d | 34 38 29 0a 09 09 09 65 |err == -|48)....e|
|000025d0| 72 72 20 3d 20 45 45 58 | 49 53 54 3b 0a 09 09 65 |rr = EEX|IST;...e|
|000025e0| 72 72 6e 6f 20 3d 20 65 | 72 72 3b 0a 09 09 72 65 |rrno = e|rr;...re|
|000025f0| 74 75 72 6e 28 2d 31 29 | 3b 0a 09 7d 0a 09 65 6c |turn(-1)|;..}..el|
|00002600| 73 65 20 7b 0a 23 69 66 | 64 65 66 20 54 45 53 54 |se {.#if|def TEST|
|00002610| 0a 09 66 70 72 69 6e 74 | 66 28 20 73 74 64 65 72 |..fprint|f( stder|
|00002620| 72 2c 20 22 72 65 6e 61 | 6d 65 3a 20 72 65 6e 61 |r, "rena|me: rena|
|00002630| 6d 65 5c 6e 22 20 29 3b | 0a 09 66 70 72 69 6e 74 |me\n" );|..fprint|
|00002640| 66 28 20 73 74 64 65 72 | 72 2c 20 22 72 65 6e 61 |f( stder|r, "rena|
|00002650| 6d 65 3a 20 25 6c 64 7c | 25 73 20 2d 3e 20 25 6c |me: %ld||%s -> %l|
|00002660| 64 7c 25 73 5c 6e 22 2c | 20 0a 09 09 09 70 62 63 |d|%s\n",| ....pbc|
|00002670| 6d 2e 63 6d 2e 69 6f 44 | 69 72 49 44 2c 20 6f 6e |m.cm.ioD|irID, on|
|00002680| 61 6d 65 2c 20 70 62 63 | 6d 2e 63 6d 2e 69 6f 4e |ame, pbc|m.cm.ioN|
|00002690| 65 77 44 69 72 49 44 2c | 20 6e 6e 61 6d 65 29 3b |ewDirID,| nname);|
|000026a0| 0a 23 65 6e 64 69 66 0a | 09 09 70 62 63 6d 2e 70 |.#endif.|..pbcm.p|
|000026b0| 62 2e 69 6f 4e 61 6d 65 | 50 74 72 20 3d 20 63 74 |b.ioName|Ptr = ct|
|000026c0| 6f 70 28 6f 6e 61 6d 65 | 29 3b 0a 09 09 70 62 63 |op(oname|);...pbc|
|000026d0| 6d 2e 70 62 2e 75 2e 69 | 6f 70 2e 69 6f 56 65 72 |m.pb.u.i|op.ioVer|
|000026e0| 73 4e 75 6d 20 3d 20 30 | 3b 0a 09 09 70 62 63 6d |sNum = 0|;...pbcm|
|000026f0| 2e 70 62 2e 75 2e 69 6f | 70 2e 69 6f 4d 69 73 63 |.pb.u.io|p.ioMisc|
|00002700| 20 3d 20 63 74 6f 70 28 | 6e 6e 61 6d 65 29 3b 0a | = ctop(|nname);.|
|00002710| 09 09 70 62 63 6d 2e 63 | 6d 2e 69 6f 44 69 72 49 |..pbcm.c|m.ioDirI|
|00002720| 44 20 3d 20 20 70 62 63 | 6d 2e 63 6d 2e 69 6f 4e |D =  pbc|m.cm.ioN|
|00002730| 65 77 44 69 72 49 44 3b | 0a 09 09 65 72 72 20 3d |ewDirID;|...err =|
|00002740| 20 50 42 48 52 65 6e 61 | 6d 65 28 26 70 62 63 6d | PBHRena|me(&pbcm|
|00002750| 2c 20 30 29 3b 0a 09 09 | 69 66 20 28 65 72 72 29 |, 0);...|if (err)|
|00002760| 20 7b 0a 09 09 09 69 66 | 20 28 65 72 72 20 3d 3d | {....if| (err ==|
|00002770| 20 2d 34 38 29 0a 09 09 | 09 09 65 72 72 20 3d 20 | -48)...|..err = |
|00002780| 45 45 58 49 53 54 3b 0a | 09 09 09 65 72 72 6e 6f |EEXIST;.|...errno|
|00002790| 20 3d 20 65 72 72 3b 0a | 09 09 09 72 65 74 75 72 | = err;.|...retur|
|000027a0| 6e 28 2d 31 29 3b 0a 09 | 09 7d 0a 09 09 65 6c 73 |n(-1);..|.}...els|
|000027b0| 65 0a 09 09 09 72 65 74 | 75 72 6e 28 30 29 3b 0a |e....ret|urn(0);.|
|000027c0| 09 7d 0a 7d 0a 0a 23 69 | 66 64 65 66 20 54 45 53 |.}.}..#i|fdef TES|
|000027d0| 54 0a 23 69 6e 63 6c 75 | 64 65 20 3c 65 72 72 6e |T.#inclu|de <errn|
|000027e0| 6f 2e 68 3e 0a 0a 6d 61 | 69 6e 28 29 0a 7b 0a 09 |o.h>..ma|in().{..|
|000027f0| 63 68 61 72 20 63 6f 6d | 6d 61 6e 64 5b 31 30 30 |char com|mand[100|
|00002800| 5d 3b 0a 0a 09 63 68 61 | 72 20 66 31 5b 31 30 30 |];...cha|r f1[100|
|00002810| 5d 2c 20 66 32 5b 31 30 | 30 5d 3b 0a 0a 09 77 68 |], f2[10|0];...wh|
|00002820| 69 6c 65 28 67 65 74 73 | 28 63 6f 6d 6d 61 6e 64 |ile(gets|(command|
|00002830| 29 20 21 3d 20 4e 55 4c | 4c 29 20 7b 0a 09 09 73 |) != NUL|L) {...s|
|00002840| 73 63 61 6e 66 28 20 63 | 6f 6d 6d 61 6e 64 2c 20 |scanf( c|ommand, |
|00002850| 22 25 73 25 73 22 2c 20 | 66 31 2c 20 66 32 20 29 |"%s%s", |f1, f2 )|
|00002860| 3b 0a 0a 09 09 66 70 72 | 69 6e 74 66 28 20 73 74 |;....fpr|intf( st|
|00002870| 64 65 72 72 2c 20 22 74 | 65 73 74 3a 20 25 73 20 |derr, "t|est: %s |
|00002880| 25 73 5c 6e 22 2c 20 66 | 31 2c 20 66 32 20 29 3b |%s\n", f|1, f2 );|
|00002890| 0a 0a 09 09 69 66 20 28 | 20 72 65 6e 61 6d 65 28 |....if (| rename(|
|000028a0| 20 66 31 2c 20 66 32 20 | 29 20 3d 3d 20 30 20 29 | f1, f2 |) == 0 )|
|000028b0| 0a 09 09 09 66 70 72 69 | 6e 74 66 28 20 73 74 64 |....fpri|ntf( std|
|000028c0| 65 72 72 2c 20 22 74 65 | 73 74 3a 20 4f 4b 5c 6e |err, "te|st: OK\n|
|000028d0| 5c 6e 22 20 29 3b 0a 09 | 09 65 6c 73 65 0a 09 09 |\n" );..|.else...|
|000028e0| 09 66 70 72 69 6e 74 66 | 28 20 73 74 64 65 72 72 |.fprintf|( stderr|
|000028f0| 2c 20 22 74 65 73 74 3a | 20 45 52 52 4f 52 20 25 |, "test:| ERROR %|
|00002900| 64 5c 6e 5c 6e 22 2c 20 | 65 72 72 6e 6f 20 29 3b |d\n\n", |errno );|
|00002910| 0a 09 7d 0a 7d 0a 23 65 | 6e 64 69 66 0a 53 48 41 |..}.}.#e|ndif.SHA|
|00002920| 52 5f 45 4f 46 0a 63 68 | 6d 6f 64 20 2b 78 20 27 |R_EOF.ch|mod +x '|
|00002930| 72 65 6e 61 6d 65 2e 63 | 27 0a 66 69 20 23 20 65 |rename.c|'.fi # e|
|00002940| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|00002950| 67 20 63 68 65 63 6b 0a | 69 66 20 74 65 73 74 20 |g check.|if test |
|00002960| 2d 66 20 27 73 70 6c 69 | 74 6e 61 6d 65 2e 63 27 |-f 'spli|tname.c'|
|00002970| 0a 74 68 65 6e 0a 20 20 | 20 20 20 20 20 65 63 68 |.then.  |     ech|
|00002980| 6f 20 73 68 61 72 3a 20 | 77 69 6c 6c 20 6e 6f 74 |o shar: |will not|
|00002990| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|000029a0| 74 69 6e 67 20 66 69 6c | 65 20 22 27 73 70 6c 69 |ting fil|e "'spli|
|000029b0| 74 6e 61 6d 65 2e 63 27 | 22 0a 65 6c 73 65 0a 63 |tname.c'|".else.c|
|000029c0| 61 74 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |at << \S|HAR_EOF |
|000029d0| 3e 20 27 73 70 6c 69 74 | 6e 61 6d 65 2e 63 27 0a |> 'split|name.c'.|
|000029e0| 0a 0a 2f 2a 20 73 70 6c | 69 74 6e 61 6d 65 0a 0a |../* spl|itname..|
|000029f0| 09 09 73 70 6c 69 74 20 | 61 6e 64 20 61 6e 64 20 |..split |and and |
|00002a00| 63 6f 70 79 20 64 69 72 | 65 63 74 6f 72 79 20 61 |copy dir|ectory a|
|00002a10| 6e 64 20 66 69 6c 65 6e | 61 6d 65 20 66 72 6f 6d |nd filen|ame from|
|00002a20| 20 0a 09 09 70 61 74 68 | 6e 61 6d 65 20 74 6f 20 | ...path|name to |
|00002a30| 64 69 72 20 61 6e 64 20 | 6e 61 6d 65 0a 2a 2f 0a |dir and |name.*/.|
|00002a40| 73 70 6c 69 74 6e 61 6d | 65 28 20 70 61 74 68 2c |splitnam|e( path,|
|00002a50| 20 64 69 72 2c 20 6e 61 | 6d 65 20 29 0a 63 68 61 | dir, na|me ).cha|
|00002a60| 72 20 2a 20 70 61 74 68 | 3b 0a 63 68 61 72 20 2a |r * path|;.char *|
|00002a70| 20 64 69 72 3b 0a 63 68 | 61 72 20 2a 20 6e 61 6d | dir;.ch|ar * nam|
|00002a80| 65 3b 0a 7b 0a 09 72 65 | 67 69 73 74 65 72 20 63 |e;.{..re|gister c|
|00002a90| 68 61 72 20 2a 63 70 3b | 0a 09 72 65 67 69 73 74 |har *cp;|..regist|
|00002aa0| 65 72 20 69 6e 74 20 69 | 3b 0a 0a 09 73 74 72 63 |er int i|;...strc|
|00002ab0| 70 79 28 20 64 69 72 2c | 20 70 61 74 68 20 29 3b |py( dir,| path );|
|00002ac0| 0a 09 69 20 3d 20 73 74 | 72 6c 65 6e 28 20 64 69 |..i = st|rlen( di|
|00002ad0| 72 29 3b 0a 09 63 70 20 | 3d 20 64 69 72 20 2b 20 |r);..cp |= dir + |
|00002ae0| 69 3b 0a 0a 0a 09 77 68 | 69 6c 65 20 28 28 69 2d |i;....wh|ile ((i-|
|00002af0| 2d 20 3e 20 30 29 20 26 | 26 20 28 2a 2d 2d 63 70 |- > 0) &|& (*--cp|
|00002b00| 20 21 3d 20 27 2f 27 29 | 20 26 26 20 28 2a 63 70 | != '/')| && (*cp|
|00002b10| 20 21 3d 20 27 3a 27 29 | 20 29 3b 0a 0a 09 69 66 | != ':')| );...if|
|00002b20| 20 28 2a 63 70 20 3d 3d | 20 27 2f 27 29 20 63 70 | (*cp ==| '/') cp|
|00002b30| 2b 2b 3b 0a 09 65 6c 73 | 65 20 69 66 20 28 2a 63 |++;..els|e if (*c|
|00002b40| 70 20 3d 3d 20 27 3a 27 | 29 20 63 70 2b 2b 3b 0a |p == ':'|) cp++;.|
|00002b50| 09 0a 09 73 74 72 63 70 | 79 28 20 6e 61 6d 65 2c |...strcp|y( name,|
|00002b60| 20 63 70 20 29 3b 0a 09 | 2a 63 70 20 3d 20 27 5c | cp );..|*cp = '\|
|00002b70| 30 27 3b 0a 0a 7d 0a 0a | 23 69 66 64 65 66 20 54 |0';..}..|#ifdef T|
|00002b80| 45 53 54 0a 23 69 6e 63 | 6c 75 64 65 20 3c 73 74 |EST.#inc|lude <st|
|00002b90| 64 69 6f 2e 68 3e 0a 0a | 6d 61 69 6e 20 28 29 0a |dio.h>..|main ().|
|00002ba0| 0a 7b 0a 09 63 68 61 72 | 20 62 75 66 5b 31 30 30 |.{..char| buf[100|
|00002bb0| 5d 3b 0a 09 63 68 61 72 | 20 64 69 72 5b 31 30 30 |];..char| dir[100|
|00002bc0| 5d 2c 20 6e 61 6d 65 5b | 31 30 30 5d 3b 0a 0a 09 |], name[|100];...|
|00002bd0| 77 68 69 6c 65 20 28 67 | 65 74 73 28 20 62 75 66 |while (g|ets( buf|
|00002be0| 20 29 20 21 3d 20 4e 55 | 4c 4c 20 29 20 7b 0a 09 | ) != NU|LL ) {..|
|00002bf0| 09 73 70 6c 69 74 6e 61 | 6d 65 28 20 62 75 66 2c |.splitna|me( buf,|
|00002c00| 20 64 69 72 2c 20 6e 61 | 6d 65 20 29 3b 0a 09 09 | dir, na|me );...|
|00002c10| 70 72 69 6e 74 66 28 20 | 22 25 73 20 2d 3e 20 5c |printf( |"%s -> \|
|00002c20| 22 25 73 5c 22 20 20 20 | 5c 22 25 73 5c 22 5c 6e |"%s\"   |\"%s\"\n|
|00002c30| 22 2c 20 62 75 66 2c 20 | 64 69 72 2c 20 6e 61 6d |", buf, |dir, nam|
|00002c40| 65 20 29 3b 0a 09 7d 0a | 7d 0a 0a 23 65 6e 64 69 |e );..}.|}..#endi|
|00002c50| 66 0a 53 48 41 52 5f 45 | 4f 46 0a 63 68 6d 6f 64 |f.SHAR_E|OF.chmod|
|00002c60| 20 2b 78 20 27 73 70 6c | 69 74 6e 61 6d 65 2e 63 | +x 'spl|itname.c|
|00002c70| 27 0a 66 69 20 23 20 65 | 6e 64 20 6f 66 20 6f 76 |'.fi # e|nd of ov|
|00002c80| 65 72 77 72 69 74 69 6e | 67 20 63 68 65 63 6b 0a |erwritin|g check.|
|00002c90| 69 66 20 74 65 73 74 20 | 2d 66 20 27 73 63 61 6e |if test |-f 'scan|
|00002ca0| 64 69 72 2e 63 27 0a 74 | 68 65 6e 0a 20 20 20 20 |dir.c'.t|hen.    |
|00002cb0| 20 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 77 69 |   echo |shar: wi|
|00002cc0| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|00002cd0| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|00002ce0| 22 27 73 63 61 6e 64 69 | 72 2e 63 27 22 0a 65 6c |"'scandi|r.c'".el|
|00002cf0| 73 65 0a 63 61 74 20 3c | 3c 20 5c 53 48 41 52 5f |se.cat <|< \SHAR_|
|00002d00| 45 4f 46 20 3e 20 27 73 | 63 61 6e 64 69 72 2e 63 |EOF > 's|candir.c|
|00002d10| 27 0a 2f 2a 0a 20 2a 09 | 73 63 61 6e 64 69 72 20 |'./*. *.|scandir |
|00002d20| 2d 20 61 20 53 79 73 56 | 20 6c 69 62 72 61 72 79 |- a SysV| library|
|00002d30| 20 72 6f 75 74 69 6e 65 | 20 74 68 61 74 20 73 69 | routine| that si|
|00002d40| 6d 75 6c 61 74 65 73 20 | 74 68 65 0a 20 2a 09 09 |mulates |the. *..|
|00002d50| 20 20 42 53 44 20 34 2e | 33 20 76 65 72 73 69 6f |  BSD 4.|3 versio|
|00002d60| 6e 2e 0a 20 2a 0a 20 2a | 09 72 65 74 75 72 6e 73 |n.. *. *|.returns|
|00002d70| 3a 0a 20 2a 09 09 2d 31 | 20 66 6f 72 20 66 61 69 |:. *..-1| for fai|
|00002d80| 6c 75 72 65 73 0a 20 2a | 09 09 23 20 6f 66 20 66 |lures. *|..# of f|
|00002d90| 69 6c 65 73 20 66 6f 75 | 6e 64 20 69 66 20 73 75 |iles fou|nd if su|
|00002da0| 63 63 65 73 73 66 75 6c | 0a 20 2a 0a 20 2a 09 50 |ccessful|. *. *.P|
|00002db0| 72 6f 64 75 63 65 73 20 | 61 20 6c 69 73 74 20 6f |roduces |a list o|
|00002dc0| 66 20 66 69 6c 65 73 20 | 77 68 69 63 68 20 61 72 |f files |which ar|
|00002dd0| 65 20 63 6f 6e 74 61 69 | 6e 65 64 20 69 6e 20 74 |e contai|ned in t|
|00002de0| 68 65 0a 20 2a 09 64 69 | 72 65 63 74 6f 72 79 20 |he. *.di|rectory |
|00002df0| 22 64 69 72 6e 61 6d 65 | 22 2e 0a 20 2a 0a 20 2a |"dirname|".. *. *|
|00002e00| 09 54 68 65 20 6c 69 73 | 74 20 69 73 20 72 65 74 |.The lis|t is ret|
|00002e10| 75 72 6e 65 64 20 74 68 | 72 6f 75 67 68 20 22 6e |urned th|rough "n|
|00002e20| 61 6d 65 6c 69 73 74 22 | 20 77 68 69 63 68 20 69 |amelist"| which i|
|00002e30| 73 20 61 6e 0a 20 2a 09 | 61 72 72 61 79 20 6f 66 |s an. *.|array of|
|00002e40| 20 70 6f 69 6e 74 65 72 | 73 20 74 6f 20 28 73 74 | pointer|s to (st|
|00002e50| 72 75 63 74 20 64 69 72 | 65 63 74 29 2e 20 20 54 |ruct dir|ect).  T|
|00002e60| 68 69 73 20 6c 69 73 74 | 20 6f 66 0a 20 2a 09 70 |his list| of. *.p|
|00002e70| 6f 69 6e 74 65 72 73 20 | 61 72 65 20 6d 61 6c 6c |ointers |are mall|
|00002e80| 6f 63 27 65 64 20 61 6e | 64 20 73 68 6f 75 6c 64 |oc'ed an|d should|
|00002e90| 20 62 65 20 66 72 65 65 | 64 20 77 68 65 6e 0a 20 | be free|d when. |
|00002ea0| 2a 09 64 6f 6e 65 20 77 | 69 74 68 2e 0a 20 2a 0a |*.done w|ith.. *.|
|00002eb0| 20 2a 09 54 68 65 20 70 | 61 73 73 65 64 20 66 75 | *.The p|assed fu|
|00002ec0| 6e 63 74 69 6f 6e 20 22 | 73 65 6c 65 63 74 22 20 |nction "|select" |
|00002ed0| 69 73 20 70 61 73 73 65 | 64 20 61 20 28 73 74 72 |is passe|d a (str|
|00002ee0| 75 63 74 20 64 69 72 65 | 63 74 29 0a 20 2a 09 70 |uct dire|ct). *.p|
|00002ef0| 6f 69 6e 74 65 72 20 66 | 6f 72 20 65 61 63 68 20 |ointer f|or each |
|00002f00| 64 69 72 65 63 74 6f 72 | 79 20 65 6e 74 72 79 2e |director|y entry.|
|00002f10| 20 20 49 66 20 22 73 65 | 6c 65 63 74 22 20 72 65 |  If "se|lect" re|
|00002f20| 74 75 72 6e 73 0a 20 2a | 09 6e 6f 6e 2d 7a 65 72 |turns. *|.non-zer|
|00002f30| 6f 20 74 68 65 20 65 6e | 74 72 79 20 69 73 20 69 |o the en|try is i|
|00002f40| 6e 63 6c 75 64 65 64 20 | 69 6e 20 22 6e 61 6d 65 |ncluded |in "name|
|00002f50| 6c 69 73 74 22 2c 20 6f | 74 68 65 72 77 69 73 65 |list", o|therwise|
|00002f60| 0a 20 2a 09 69 74 20 69 | 73 20 6e 6f 74 2e 20 20 |. *.it i|s not.  |
|00002f70| 49 66 20 22 73 65 6c 65 | 63 74 22 20 69 73 20 4e |If "sele|ct" is N|
|00002f80| 55 4c 4c 2c 20 61 6c 6c | 20 65 6e 74 72 69 65 73 |ULL, all| entries|
|00002f90| 20 61 72 65 20 72 65 74 | 75 72 6e 65 64 2e 0a 20 | are ret|urned.. |
|00002fa0| 2a 0a 20 2a 09 54 68 65 | 20 66 75 6e 63 74 69 6f |*. *.The| functio|
|00002fb0| 6e 20 22 63 6f 6d 70 61 | 72 22 20 69 73 20 70 61 |n "compa|r" is pa|
|00002fc0| 73 73 65 64 20 61 20 70 | 61 69 72 20 6f 66 20 70 |ssed a p|air of p|
|00002fd0| 6f 69 6e 74 65 72 73 20 | 74 6f 0a 20 2a 09 28 73 |ointers |to. *.(s|
|00002fe0| 74 72 75 63 74 20 64 69 | 72 65 63 74 29 20 61 6e |truct di|rect) an|
|00002ff0| 64 20 69 73 20 75 73 65 | 64 20 74 6f 20 73 6f 72 |d is use|d to sor|
|00003000| 74 20 22 6e 61 6d 65 6c | 69 73 74 22 20 76 69 61 |t "namel|ist" via|
|00003010| 20 71 73 6f 72 74 2e 0a | 20 2a 09 49 66 20 22 63 | qsort..| *.If "c|
|00003020| 6f 6d 70 61 72 22 20 69 | 73 20 4e 55 4c 4c 2c 20 |ompar" i|s NULL, |
|00003030| 74 68 65 20 6e 61 6d 65 | 73 20 61 72 65 20 75 6e |the name|s are un|
|00003040| 73 6f 72 74 65 64 2e 0a | 20 2a 0a 20 2a 09 54 68 |sorted..| *. *.Th|
|00003050| 69 73 20 73 6f 75 72 63 | 65 20 69 73 20 70 75 62 |is sourc|e is pub|
|00003060| 6c 69 63 20 64 6f 6d 61 | 69 6e 20 61 6e 64 20 74 |lic doma|in and t|
|00003070| 68 65 20 61 75 74 68 6f | 72 20 63 6c 61 69 6d 73 |he autho|r claims|
|00003080| 20 6e 6f 0a 20 2a 09 72 | 69 67 68 74 73 20 74 6f | no. *.r|ights to|
|00003090| 20 69 74 2e 20 20 49 74 | 20 6d 61 79 20 62 65 20 | it.  It| may be |
|000030a0| 63 6f 70 69 65 64 2c 20 | 73 70 69 6e 64 6c 65 64 |copied, |spindled|
|000030b0| 2c 20 6f 72 20 6d 75 74 | 69 6c 61 74 65 64 2e 0a |, or mut|ilated..|
|000030c0| 20 2a 0a 20 2a 09 52 2e | 4a 2e 20 45 73 70 6f 73 | *. *.R.|J. Espos|
|000030d0| 69 74 6f 20 2d 20 42 65 | 6c 6c 20 6f 66 20 50 65 |ito - Be|ll of Pe|
|000030e0| 6e 6e 73 79 6c 76 61 6e | 69 61 0a 20 2a 0a 20 2a |nnsylvan|ia. *. *|
|000030f0| 2f 0a 0a 23 69 6e 63 6c | 75 64 65 20 3c 73 74 64 |/..#incl|ude <std|
|00003100| 69 6f 2e 68 3e 0a 2f 2a | 23 69 6e 63 6c 75 64 65 |io.h>./*|#include|
|00003110| 20 3c 73 79 73 2f 74 79 | 70 65 73 2e 68 3e 2a 2f | <sys/ty|pes.h>*/|
|00003120| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 6e 64 69 72 2e |.#includ|e <ndir.|
|00003130| 68 3e 0a 0a 69 6e 74 0a | 73 63 61 6e 64 69 72 28 |h>..int.|scandir(|
|00003140| 64 69 72 6e 61 6d 65 2c | 20 6e 61 6d 65 6c 69 73 |dirname,| namelis|
|00003150| 74 2c 20 73 65 6c 65 63 | 74 2c 20 63 6f 6d 70 61 |t, selec|t, compa|
|00003160| 72 29 0a 63 68 61 72 09 | 09 2a 64 69 72 6e 61 6d |r).char.|.*dirnam|
|00003170| 65 3b 0a 73 74 72 75 63 | 74 20 64 69 72 65 63 74 |e;.struc|t direct|
|00003180| 09 2a 28 2a 6e 61 6d 65 | 6c 69 73 74 5b 5d 29 3b |.*(*name|list[]);|
|00003190| 0a 69 6e 74 09 09 28 2a | 73 65 6c 65 63 74 29 28 |.int..(*|select)(|
|000031a0| 29 3b 0a 69 6e 74 09 09 | 28 2a 63 6f 6d 70 61 72 |);.int..|(*compar|
|000031b0| 29 28 29 3b 0a 7b 0a 09 | 44 49 52 09 09 2a 64 66 |)();.{..|DIR..*df|
|000031c0| 70 3b 0a 09 73 74 72 75 | 63 74 20 64 69 72 65 63 |p;..stru|ct direc|
|000031d0| 74 09 2a 64 70 3b 0a 09 | 72 65 67 69 73 74 65 72 |t.*dp;..|register|
|000031e0| 20 69 6e 74 09 69 69 2c | 20 6e 66 3b 0a 09 63 68 | int.ii,| nf;..ch|
|000031f0| 61 72 09 09 2a 6d 61 6c | 6c 6f 63 28 29 3b 0a 0a |ar..*mal|loc();..|
|00003200| 09 69 66 20 28 28 64 66 | 70 20 3d 20 6f 70 65 6e |.if ((df|p = open|
|00003210| 64 69 72 28 64 69 72 6e | 61 6d 65 29 29 20 3d 3d |dir(dirn|ame)) ==|
|00003220| 20 4e 55 4c 4c 29 09 2f | 2a 20 63 61 6e 27 74 20 | NULL)./|* can't |
|00003230| 6f 70 65 6e 20 64 69 72 | 65 63 74 6f 72 79 20 2a |open dir|ectory *|
|00003240| 2f 0a 09 09 72 65 74 75 | 72 6e 28 2d 31 29 3b 0a |/...retu|rn(-1);.|
|00003250| 0a 09 6e 66 20 3d 20 30 | 3b 0a 09 77 68 69 6c 65 |..nf = 0|;..while|
|00003260| 20 28 28 64 70 20 3d 20 | 72 65 61 64 64 69 72 28 | ((dp = |readdir(|
|00003270| 64 66 70 29 29 20 21 3d | 20 4e 55 4c 4c 29 09 2f |dfp)) !=| NULL)./|
|00003280| 2a 20 72 65 61 64 20 74 | 68 72 75 20 64 69 72 65 |* read t|hru dire|
|00003290| 63 65 74 6f 72 79 20 2a | 2f 0a 09 09 69 66 20 28 |cetory *|/...if (|
|000032a0| 73 65 6c 65 63 74 20 3d | 3d 20 4e 55 4c 4c 20 7c |select =|= NULL ||
|000032b0| 7c 20 28 2a 73 65 6c 65 | 63 74 29 28 64 70 29 29 || (*sele|ct)(dp))|
|000032c0| 0a 09 09 09 6e 66 2b 2b | 3b 0a 0a 09 69 66 20 28 |....nf++|;...if (|
|000032d0| 21 6e 66 29 09 09 09 09 | 2f 2a 20 6e 6f 74 68 69 |!nf)....|/* nothi|
|000032e0| 6e 67 20 66 6f 75 6e 64 | 20 2a 2f 0a 09 09 72 65 |ng found| */...re|
|000032f0| 74 75 72 6e 28 30 29 3b | 0a 0a 09 2f 2a 20 6d 61 |turn(0);|.../* ma|
|00003300| 6c 6c 6f 63 20 6d 65 6d | 6f 72 79 20 66 6f 72 20 |lloc mem|ory for |
|00003310| 74 68 65 20 6e 61 6d 65 | 6c 69 73 74 20 61 72 72 |the name|list arr|
|00003320| 61 79 20 2a 2f 0a 0a 09 | 2a 6e 61 6d 65 6c 69 73 |ay */...|*namelis|
|00003330| 74 20 3d 20 28 73 74 72 | 75 63 74 20 64 69 72 65 |t = (str|uct dire|
|00003340| 63 74 20 2a 2a 29 6d 61 | 6c 6c 6f 63 28 28 6e 66 |ct **)ma|lloc((nf|
|00003350| 2b 31 29 2a 73 69 7a 65 | 6f 66 28 73 74 72 75 63 |+1)*size|of(struc|
|00003360| 74 20 64 69 72 65 63 74 | 20 2a 29 29 3b 0a 09 69 |t direct| *));..i|
|00003370| 66 20 28 2a 6e 61 6d 65 | 6c 69 73 74 20 3d 3d 20 |f (*name|list == |
|00003380| 4e 55 4c 4c 29 20 7b 0a | 09 09 66 70 72 69 6e 74 |NULL) {.|..fprint|
|00003390| 66 28 73 74 64 65 72 72 | 2c 20 22 73 63 61 6e 64 |f(stderr|, "scand|
|000033a0| 69 72 3a 20 6f 75 74 20 | 6f 66 20 6d 65 6d 6f 72 |ir: out |of memor|
|000033b0| 79 5c 6e 22 29 3b 0a 09 | 09 72 65 74 75 72 6e 28 |y\n");..|.return(|
|000033c0| 2d 31 29 3b 0a 09 7d 0a | 0a 09 66 6f 72 20 28 69 |-1);..}.|..for (i|
|000033d0| 69 20 3d 20 30 3b 20 69 | 69 20 3c 20 6e 66 3b 20 |i = 0; i|i < nf; |
|000033e0| 69 69 2b 2b 29 20 7b 0a | 09 09 28 2a 6e 61 6d 65 |ii++) {.|..(*name|
|000033f0| 6c 69 73 74 29 5b 69 69 | 5d 20 3d 20 28 73 74 72 |list)[ii|] = (str|
|00003400| 75 63 74 20 64 69 72 65 | 63 74 20 2a 29 6d 61 6c |uct dire|ct *)mal|
|00003410| 6c 6f 63 28 73 69 7a 65 | 6f 66 28 73 74 72 75 63 |loc(size|of(struc|
|00003420| 74 20 64 69 72 65 63 74 | 29 29 3b 0a 09 09 69 66 |t direct|));...if|
|00003430| 20 28 28 2a 6e 61 6d 65 | 6c 69 73 74 29 5b 69 69 | ((*name|list)[ii|
|00003440| 5d 20 3d 3d 20 4e 55 4c | 4c 29 20 7b 0a 09 09 09 |] == NUL|L) {....|
|00003450| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00003460| 22 73 63 61 6e 64 69 72 | 3a 20 6f 75 74 20 6f 66 |"scandir|: out of|
|00003470| 20 6d 65 6d 6f 72 79 5c | 6e 22 29 3b 0a 09 09 09 | memory\|n");....|
|00003480| 72 65 74 75 72 6e 28 2d | 31 29 3b 0a 09 09 7d 0a |return(-|1);...}.|
|00003490| 09 7d 0a 0a 09 2f 2a 20 | 6e 6f 77 20 72 65 2d 72 |.}.../* |now re-r|
|000034a0| 65 61 64 20 74 68 65 20 | 64 69 72 65 63 74 6f 72 |ead the |director|
|000034b0| 79 20 6c 6f 61 64 69 6e | 67 20 75 70 20 74 68 65 |y loadin|g up the|
|000034c0| 20 6e 61 6d 65 6c 69 73 | 74 20 61 72 72 61 79 20 | namelis|t array |
|000034d0| 2a 2f 0a 0a 09 63 6c 6f | 73 65 64 69 72 28 20 64 |*/...clo|sedir( d|
|000034e0| 66 70 20 29 3b 0a 09 69 | 66 20 28 28 64 66 70 20 |fp );..i|f ((dfp |
|000034f0| 3d 20 6f 70 65 6e 64 69 | 72 28 64 69 72 6e 61 6d |= opendi|r(dirnam|
|00003500| 65 29 29 20 3d 3d 20 4e | 55 4c 4c 29 09 2f 2a 20 |e)) == N|ULL)./* |
|00003510| 63 61 6e 27 74 20 6f 70 | 65 6e 20 64 69 72 65 63 |can't op|en direc|
|00003520| 74 6f 72 79 20 2a 2f 0a | 09 09 72 65 74 75 72 6e |tory */.|..return|
|00003530| 28 2d 31 29 3b 0a 0a 09 | 28 2a 6e 61 6d 65 6c 69 |(-1);...|(*nameli|
|00003540| 73 74 29 5b 69 69 5d 20 | 3d 20 30 3b 0a 09 2f 2a |st)[ii] |= 0;../*|
|00003550| 73 65 65 6b 64 69 72 28 | 64 66 70 2c 20 30 4c 29 |seekdir(|dfp, 0L)|
|00003560| 3b 2a 2f 0a 09 69 69 20 | 3d 20 30 3b 0a 0a 09 77 |;*/..ii |= 0;...w|
|00003570| 68 69 6c 65 20 28 28 64 | 70 20 3d 20 72 65 61 64 |hile ((d|p = read|
|00003580| 64 69 72 28 64 66 70 29 | 29 20 21 3d 20 4e 55 4c |dir(dfp)|) != NUL|
|00003590| 4c 29 20 7b 0a 09 09 69 | 66 20 28 73 65 6c 65 63 |L) {...i|f (selec|
|000035a0| 74 20 3d 3d 20 4e 55 4c | 4c 20 7c 7c 20 28 2a 73 |t == NUL|L || (*s|
|000035b0| 65 6c 65 63 74 29 28 64 | 70 29 29 20 7b 0a 09 09 |elect)(d|p)) {...|
|000035c0| 09 28 2a 6e 61 6d 65 6c | 69 73 74 29 5b 69 69 5d |.(*namel|ist)[ii]|
|000035d0| 2d 3e 64 5f 69 6e 6f 20 | 3d 20 64 70 2d 3e 64 5f |->d_ino |= dp->d_|
|000035e0| 69 6e 6f 3b 0a 09 09 09 | 28 2a 6e 61 6d 65 6c 69 |ino;....|(*nameli|
|000035f0| 73 74 29 5b 69 69 5d 2d | 3e 64 5f 72 65 63 6c 65 |st)[ii]-|>d_recle|
|00003600| 6e 20 3d 20 64 70 2d 3e | 64 5f 72 65 63 6c 65 6e |n = dp->|d_reclen|
|00003610| 3b 0a 09 09 09 28 2a 6e | 61 6d 65 6c 69 73 74 29 |;....(*n|amelist)|
|00003620| 5b 69 69 5d 2d 3e 64 5f | 6e 61 6d 6c 65 6e 20 3d |[ii]->d_|namlen =|
|00003630| 20 64 70 2d 3e 64 5f 6e | 61 6d 6c 65 6e 3b 0a 09 | dp->d_n|amlen;..|
|00003640| 09 09 73 74 72 63 70 79 | 28 28 2a 6e 61 6d 65 6c |..strcpy|((*namel|
|00003650| 69 73 74 29 5b 69 69 5d | 2d 3e 64 5f 6e 61 6d 65 |ist)[ii]|->d_name|
|00003660| 2c 20 64 70 2d 3e 64 5f | 6e 61 6d 65 29 3b 0a 09 |, dp->d_|name);..|
|00003670| 09 09 69 69 2b 2b 3b 0a | 09 09 7d 0a 09 7d 0a 0a |..ii++;.|..}..}..|
|00003680| 09 63 6c 6f 73 65 64 69 | 72 28 64 66 70 29 3b 0a |.closedi|r(dfp);.|
|00003690| 23 69 66 64 65 66 20 74 | 65 73 74 0a 09 69 66 20 |#ifdef t|est..if |
|000036a0| 28 63 6f 6d 70 61 72 20 | 21 3d 20 4e 55 4c 4c 29 |(compar |!= NULL)|
|000036b0| 09 09 2f 2a 20 73 6f 72 | 74 20 74 68 65 20 6c 69 |../* sor|t the li|
|000036c0| 73 74 20 69 66 20 72 65 | 71 75 69 72 65 64 20 2a |st if re|quired *|
|000036d0| 2f 0a 09 09 71 73 6f 72 | 74 28 28 63 68 61 72 20 |/...qsor|t((char |
|000036e0| 2a 2a 29 2a 6e 61 6d 65 | 6c 69 73 74 2c 20 6e 66 |**)*name|list, nf|
|000036f0| 2c 20 73 69 7a 65 6f 66 | 28 73 74 72 75 63 74 20 |, sizeof|(struct |
|00003700| 64 69 72 65 63 74 20 2a | 29 2c 20 63 6f 6d 70 61 |direct *|), compa|
|00003710| 72 29 3b 0a 23 65 6e 64 | 69 66 0a 0a 09 72 65 74 |r);.#end|if...ret|
|00003720| 75 72 6e 28 6e 66 29 3b | 0a 7d 0a 0a 53 48 41 52 |urn(nf);|.}..SHAR|
|00003730| 5f 45 4f 46 0a 63 68 6d | 6f 64 20 2b 78 20 27 73 |_EOF.chm|od +x 's|
|00003740| 63 61 6e 64 69 72 2e 63 | 27 0a 66 69 20 23 20 65 |candir.c|'.fi # e|
|00003750| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|00003760| 67 20 63 68 65 63 6b 0a | 69 66 20 74 65 73 74 20 |g check.|if test |
|00003770| 2d 66 20 27 6e 64 69 72 | 2e 63 27 0a 74 68 65 6e |-f 'ndir|.c'.then|
|00003780| 0a 20 20 20 20 20 20 20 | 65 63 68 6f 20 73 68 61 |.       |echo sha|
|00003790| 72 3a 20 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: will |not over|
|000037a0| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|000037b0| 66 69 6c 65 20 22 27 6e | 64 69 72 2e 63 27 22 0a |file "'n|dir.c'".|
|000037c0| 65 6c 73 65 0a 63 61 74 | 20 3c 3c 20 5c 53 48 41 |else.cat| << \SHA|
|000037d0| 52 5f 45 4f 46 20 3e 20 | 27 6e 64 69 72 2e 63 27 |R_EOF > |'ndir.c'|
|000037e0| 0a 0a 2f 2a 23 69 6e 63 | 6c 75 64 65 20 3c 6e 64 |../*#inc|lude <nd|
|000037f0| 69 72 2e 68 3e 2a 2f 0a | 23 69 6e 63 6c 75 64 65 |ir.h>*/.|#include|
|00003800| 20 3c 6c 6f 63 61 6c 2f | 6e 64 69 72 2e 68 3e 0a | <local/|ndir.h>.|
|00003810| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 70 62 2e 68 3e |.#includ|e <pb.h>|
|00003820| 0a 0a 23 69 66 64 65 66 | 20 54 45 53 54 0a 23 69 |..#ifdef| TEST.#i|
|00003830| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|00003840| 0a 23 64 65 66 69 6e 65 | 20 5f 44 45 42 55 47 0a |.#define| _DEBUG.|
|00003850| 23 69 6e 63 6c 75 64 65 | 20 3c 6d 61 78 2f 64 65 |#include| <max/de|
|00003860| 62 75 67 2e 68 3e 0a 23 | 65 6e 64 69 66 0a 0a 2f |bug.h>.#|endif../|
|00003870| 2a 0a 20 2a 20 73 75 70 | 70 6f 72 74 20 66 6f 72 |*. * sup|port for|
|00003880| 20 42 65 72 6b 65 6c 65 | 79 20 64 69 72 65 63 74 | Berkele|y direct|
|00003890| 6f 72 79 20 72 65 61 64 | 69 6e 67 20 72 6f 75 74 |ory read|ing rout|
|000038a0| 69 6e 65 20 6f 6e 20 61 | 20 56 37 20 66 69 6c 65 |ine on a| V7 file|
|000038b0| 20 73 79 73 74 65 6d 0a | 20 2a 2f 0a 0a 65 78 74 | system.| */..ext|
|000038c0| 65 72 6e 20 63 68 61 72 | 20 2a 6d 61 6c 6c 6f 63 |ern char| *malloc|
|000038d0| 28 29 3b 0a 0a 2f 2a 0a | 20 2a 20 6f 70 65 6e 20 |();../*.| * open |
|000038e0| 61 20 64 69 72 65 63 74 | 6f 72 79 2e 0a 20 2a 2f |a direct|ory.. */|
|000038f0| 0a 0a 44 49 52 20 2a 0a | 6f 70 65 6e 64 69 72 28 |..DIR *.|opendir(|
|00003900| 6e 61 6d 65 29 0a 63 68 | 61 72 20 2a 6e 61 6d 65 |name).ch|ar *name|
|00003910| 3b 0a 7b 0a 09 72 65 67 | 69 73 74 65 72 20 44 49 |;.{..reg|ister DI|
|00003920| 52 20 2a 64 69 72 70 3b | 0a 09 72 65 67 69 73 74 |R *dirp;|..regist|
|00003930| 65 72 20 69 6e 74 20 66 | 64 3b 0a 0a 09 63 68 61 |er int f|d;...cha|
|00003940| 72 20 62 75 66 5b 31 30 | 30 5d 3b 0a 09 43 49 6e |r buf[10|0];..CIn|
|00003950| 66 6f 50 42 52 65 63 20 | 63 70 62 3b 0a 09 69 6e |foPBRec |cpb;..in|
|00003960| 74 20 65 72 72 3b 0a 0a | 09 2f 2a 20 66 69 78 20 |t err;..|./* fix |
|00003970| 6e 61 6d 65 2c 20 61 6e | 64 20 67 65 74 20 76 6f |name, an|d get vo|
|00003980| 6c 75 6d 65 20 72 65 66 | 65 72 65 6e 63 65 20 6e |lume ref|erence n|
|00003990| 75 6d 62 65 72 20 2a 2f | 0a 0a 0a 09 63 70 62 2e |umber */|....cpb.|
|000039a0| 69 6f 56 52 65 66 4e 75 | 6d 20 3d 20 68 66 69 78 |ioVRefNu|m = hfix|
|000039b0| 6e 61 6d 28 20 6e 61 6d | 65 2c 20 62 75 66 20 29 |nam( nam|e, buf )|
|000039c0| 3b 0a 09 63 70 62 2e 69 | 6f 4e 61 6d 65 50 74 72 |;..cpb.i|oNamePtr|
|000039d0| 20 3d 20 63 74 6f 70 28 | 20 62 75 66 20 29 3b 0a | = ctop(| buf );.|
|000039e0| 09 63 70 62 2e 69 6f 46 | 44 69 72 49 6e 64 65 78 |.cpb.ioF|DirIndex|
|000039f0| 20 3d 20 30 3b 0a 09 63 | 70 62 2e 75 2e 64 69 2e | = 0;..c|pb.u.di.|
|00003a00| 69 6f 44 72 44 69 72 49 | 44 20 3d 20 30 4c 3b 0a |ioDrDirI|D = 0L;.|
|00003a10| 0a 23 69 66 64 65 66 20 | 54 45 53 54 0a 09 66 70 |.#ifdef |TEST..fp|
|00003a20| 72 69 6e 74 66 28 20 73 | 74 64 65 72 72 2c 20 22 |rintf( s|tderr, "|
|00003a30| 6f 70 65 6e 64 69 72 3a | 20 25 73 5c 6e 22 2c 20 |opendir:| %s\n", |
|00003a40| 62 75 66 20 29 3b 0a 23 | 65 6e 64 69 66 0a 0a 09 |buf );.#|endif...|
|00003a50| 69 66 20 28 28 65 72 72 | 20 3d 20 50 42 47 65 74 |if ((err| = PBGet|
|00003a60| 43 61 74 49 6e 66 6f 28 | 20 26 63 70 62 2c 20 30 |CatInfo(| &cpb, 0|
|00003a70| 20 29 29 20 21 3d 20 30 | 20 29 20 7b 0a 23 69 66 | )) != 0| ) {.#if|
|00003a80| 64 65 66 20 54 45 53 54 | 0a 09 09 66 70 72 69 6e |def TEST|...fprin|
|00003a90| 74 66 28 20 73 74 64 65 | 72 72 2c 20 22 73 65 74 |tf( stde|rr, "set|
|00003aa0| 64 69 72 3a 20 50 42 47 | 65 74 43 61 74 49 6e 66 |dir: PBG|etCatInf|
|00003ab0| 6f 20 25 64 5c 6e 22 2c | 20 65 72 72 20 29 3b 0a |o %d\n",| err );.|
|00003ac0| 23 65 6e 64 69 66 0a 09 | 09 72 65 74 75 72 6e 20 |#endif..|.return |
|00003ad0| 4e 55 4c 4c 3b 0a 09 7d | 0a 0a 09 69 66 20 28 28 |NULL;..}|...if ((|
|00003ae0| 64 69 72 70 20 3d 20 28 | 44 49 52 20 2a 29 6d 61 |dirp = (|DIR *)ma|
|00003af0| 6c 6c 6f 63 28 73 69 7a | 65 6f 66 28 44 49 52 29 |lloc(siz|eof(DIR)|
|00003b00| 29 29 20 3d 3d 20 4e 55 | 4c 4c 29 20 7b 0a 23 69 |)) == NU|LL) {.#i|
|00003b10| 66 64 65 66 20 54 45 53 | 54 0a 09 09 66 70 72 69 |fdef TES|T...fpri|
|00003b20| 6e 74 66 28 20 73 74 64 | 65 72 72 2c 20 22 6f 70 |ntf( std|err, "op|
|00003b30| 65 6e 64 69 72 3a 20 63 | 6f 75 6c 64 6e 27 74 20 |endir: c|ouldn't |
|00003b40| 6d 61 6c 6c 6f 63 20 25 | 64 5c 6e 22 2c 73 69 7a |malloc %|d\n",siz|
|00003b50| 65 6f 66 28 44 49 52 29 | 29 3b 0a 23 65 6e 64 69 |eof(DIR)|);.#endi|
|00003b60| 66 0a 09 09 72 65 74 75 | 72 6e 20 4e 55 4c 4c 3b |f...retu|rn NULL;|
|00003b70| 0a 09 7d 0a 09 64 69 72 | 70 2d 3e 69 6f 56 52 65 |..}..dir|p->ioVRe|
|00003b80| 66 4e 75 6d 20 3d 20 63 | 70 62 2e 69 6f 56 52 65 |fNum = c|pb.ioVRe|
|00003b90| 66 4e 75 6d 3b 0a 09 64 | 69 72 70 2d 3e 69 6f 44 |fNum;..d|irp->ioD|
|00003ba0| 72 44 69 72 49 44 20 3d | 20 63 70 62 2e 75 2e 64 |rDirID =| cpb.u.d|
|00003bb0| 69 2e 69 6f 44 72 44 69 | 72 49 44 3b 0a 09 64 69 |i.ioDrDi|rID;..di|
|00003bc0| 72 70 2d 3e 69 6f 46 44 | 69 72 49 6e 64 65 78 20 |rp->ioFD|irIndex |
|00003bd0| 3d 20 31 3b 0a 0a 23 69 | 66 64 65 66 20 54 45 53 |= 1;..#i|fdef TES|
|00003be0| 54 0a 09 66 70 72 69 6e | 74 66 28 20 73 74 64 65 |T..fprin|tf( stde|
|00003bf0| 72 72 2c 20 22 6f 70 65 | 6e 64 69 72 3a 20 23 20 |rr, "ope|ndir: # |
|00003c00| 25 6c 64 5c 6e 22 2c 20 | 63 70 62 2e 75 2e 64 69 |%ld\n", |cpb.u.di|
|00003c10| 2e 69 6f 44 72 44 69 72 | 49 44 20 29 3b 0a 23 65 |.ioDrDir|ID );.#e|
|00003c20| 6e 64 69 66 0a 0a 09 72 | 65 74 75 72 6e 20 64 69 |ndif...r|eturn di|
|00003c30| 72 70 3b 0a 7d 0a 0a 0a | 2f 2a 0a 20 2a 20 67 65 |rp;.}...|/*. * ge|
|00003c40| 74 20 6e 65 78 74 20 65 | 6e 74 72 79 20 69 6e 20 |t next e|ntry in |
|00003c50| 61 20 64 69 72 65 63 74 | 6f 72 79 2e 0a 20 2a 2f |a direct|ory.. */|
|00003c60| 0a 73 74 72 75 63 74 20 | 64 69 72 65 63 74 20 2a |.struct |direct *|
|00003c70| 0a 72 65 61 64 64 69 72 | 28 64 69 72 70 29 0a 72 |.readdir|(dirp).r|
|00003c80| 65 67 69 73 74 65 72 20 | 44 49 52 20 2a 64 69 72 |egister |DIR *dir|
|00003c90| 70 3b 0a 7b 0a 09 43 49 | 6e 66 6f 50 42 52 65 63 |p;.{..CI|nfoPBRec|
|00003ca0| 20 63 70 62 3b 0a 09 69 | 6e 74 20 65 72 72 3b 0a | cpb;..i|nt err;.|
|00003cb0| 09 73 74 61 74 69 63 20 | 73 74 72 75 63 74 20 64 |.static |struct d|
|00003cc0| 69 72 65 63 74 20 64 69 | 72 3b 0a 0a 23 69 66 64 |irect di|r;..#ifd|
|00003cd0| 65 66 20 54 45 53 54 0a | 09 66 70 72 69 6e 74 66 |ef TEST.|.fprintf|
|00003ce0| 28 20 73 74 64 65 72 72 | 2c 20 22 72 65 61 64 64 |( stderr|, "readd|
|00003cf0| 69 72 3a 20 76 3a 25 64 | 20 64 3a 25 6c 64 20 69 |ir: v:%d| d:%ld i|
|00003d00| 3a 25 64 5c 6e 22 2c 20 | 0a 09 09 09 64 69 72 70 |:%d\n", |....dirp|
|00003d10| 2d 3e 69 6f 56 52 65 66 | 4e 75 6d 2c 20 64 69 72 |->ioVRef|Num, dir|
|00003d20| 70 2d 3e 69 6f 44 72 44 | 69 72 49 44 2c 20 64 69 |p->ioDrD|irID, di|
|00003d30| 72 70 2d 3e 69 6f 46 44 | 69 72 49 6e 64 65 78 20 |rp->ioFD|irIndex |
|00003d40| 29 3b 0a 23 65 6e 64 69 | 66 0a 09 73 74 72 63 70 |);.#endi|f..strcp|
|00003d50| 79 28 20 64 69 72 2e 64 | 5f 6e 61 6d 65 2c 20 22 |y( dir.d|_name, "|
|00003d60| 22 20 29 3b 0a 09 63 70 | 62 2e 69 6f 4e 61 6d 65 |" );..cp|b.ioName|
|00003d70| 50 74 72 20 3d 20 64 69 | 72 2e 64 5f 6e 61 6d 65 |Ptr = di|r.d_name|
|00003d80| 3b 0a 09 63 70 62 2e 69 | 6f 56 52 65 66 4e 75 6d |;..cpb.i|oVRefNum|
|00003d90| 20 3d 20 64 69 72 70 2d | 3e 69 6f 56 52 65 66 4e | = dirp-|>ioVRefN|
|00003da0| 75 6d 3b 0a 09 63 70 62 | 2e 75 2e 64 69 2e 69 6f |um;..cpb|.u.di.io|
|00003db0| 44 72 44 69 72 49 44 20 | 3d 20 64 69 72 70 2d 3e |DrDirID |= dirp->|
|00003dc0| 69 6f 44 72 44 69 72 49 | 44 3b 0a 09 63 70 62 2e |ioDrDirI|D;..cpb.|
|00003dd0| 69 6f 46 44 69 72 49 6e | 64 65 78 20 3d 20 64 69 |ioFDirIn|dex = di|
|00003de0| 72 70 2d 3e 69 6f 46 44 | 69 72 49 6e 64 65 78 2b |rp->ioFD|irIndex+|
|00003df0| 2b 3b 0a 0a 09 69 66 20 | 28 28 65 72 72 20 3d 20 |+;...if |((err = |
|00003e00| 50 42 47 65 74 43 61 74 | 49 6e 66 6f 28 20 26 63 |PBGetCat|Info( &c|
|00003e10| 70 62 2c 20 30 20 29 29 | 20 21 3d 20 30 20 29 20 |pb, 0 ))| != 0 ) |
|00003e20| 7b 0a 23 69 66 64 65 66 | 20 54 45 53 54 0a 09 09 |{.#ifdef| TEST...|
|00003e30| 66 70 72 69 6e 74 66 28 | 20 73 74 64 65 72 72 2c |fprintf(| stderr,|
|00003e40| 20 22 72 65 61 64 64 69 | 72 3a 20 65 72 72 20 25 | "readdi|r: err %|
|00003e50| 64 5c 6e 22 2c 20 65 72 | 72 20 29 3b 0a 23 65 6e |d\n", er|r );.#en|
|00003e60| 64 69 66 0a 09 09 72 65 | 74 75 72 6e 20 4e 55 4c |dif...re|turn NUL|
|00003e70| 4c 3b 0a 09 7d 0a 0a 09 | 64 69 72 2e 64 5f 69 6e |L;..}...|dir.d_in|
|00003e80| 6f 20 3d 20 30 3b 0a 09 | 70 74 6f 63 28 20 64 69 |o = 0;..|ptoc( di|
|00003e90| 72 2e 64 5f 6e 61 6d 65 | 20 29 3b 0a 0a 23 69 66 |r.d_name| );..#if|
|00003ea0| 64 65 66 20 54 45 53 54 | 0a 09 66 70 72 69 6e 74 |def TEST|..fprint|
|00003eb0| 66 28 20 73 74 64 65 72 | 72 2c 20 22 72 65 61 64 |f( stder|r, "read|
|00003ec0| 64 69 72 3a 20 4f 4b 20 | 5c 22 25 73 5c 22 5c 6e |dir: OK |\"%s\"\n|
|00003ed0| 22 2c 20 20 64 69 72 2e | 64 5f 6e 61 6d 65 29 3b |",  dir.|d_name);|
|00003ee0| 0a 23 65 6e 64 69 66 0a | 0a 09 64 69 72 2e 64 5f |.#endif.|..dir.d_|
|00003ef0| 6e 61 6d 6c 65 6e 20 3d | 20 73 74 72 6c 65 6e 28 |namlen =| strlen(|
|00003f00| 64 69 72 2e 64 5f 6e 61 | 6d 65 29 3b 0a 09 64 69 |dir.d_na|me);..di|
|00003f10| 72 2e 64 5f 72 65 63 6c | 65 6e 20 3d 20 44 49 52 |r.d_recl|en = DIR|
|00003f20| 53 49 5a 28 26 64 69 72 | 29 3b 0a 09 72 65 74 75 |SIZ(&dir|);..retu|
|00003f30| 72 6e 20 28 26 64 69 72 | 29 3b 0a 09 0a 7d 0a 0a |rn (&dir|);...}..|
|00003f40| 2f 2a 0a 20 2a 20 63 6c | 6f 73 65 20 61 20 64 69 |/*. * cl|ose a di|
|00003f50| 72 65 63 74 6f 72 79 2e | 0a 20 2a 2f 0a 76 6f 69 |rectory.|. */.voi|
|00003f60| 64 0a 63 6c 6f 73 65 64 | 69 72 28 64 69 72 70 29 |d.closed|ir(dirp)|
|00003f70| 0a 72 65 67 69 73 74 65 | 72 20 44 49 52 20 2a 64 |.registe|r DIR *d|
|00003f80| 69 72 70 3b 0a 7b 0a 09 | 66 72 65 65 28 28 63 68 |irp;.{..|free((ch|
|00003f90| 61 72 20 2a 29 64 69 72 | 70 29 3b 0a 7d 0a 0a 0a |ar *)dir|p);.}...|
|00003fa0| 23 69 66 64 65 66 20 54 | 45 53 54 0a 23 69 6e 63 |#ifdef T|EST.#inc|
|00003fb0| 6c 75 64 65 20 3c 65 72 | 72 6e 6f 2e 68 3e 0a 0a |lude <er|rno.h>..|
|00003fc0| 6d 61 69 6e 28 29 0a 7b | 0a 09 63 68 61 72 20 63 |main().{|..char c|
|00003fd0| 6f 6d 6d 61 6e 64 5b 31 | 30 30 5d 3b 0a 0a 09 73 |ommand[1|00];...s|
|00003fe0| 74 72 75 63 74 20 44 49 | 52 20 2a 64 69 72 70 3b |truct DI|R *dirp;|
|00003ff0| 0a 09 73 74 72 75 63 74 | 20 64 69 72 65 63 74 20 |..struct| direct |
|00004000| 2a 64 70 3b 0a 09 0a 09 | 77 68 69 6c 65 28 67 65 |*dp;....|while(ge|
|00004010| 74 73 28 63 6f 6d 6d 61 | 6e 64 29 20 21 3d 20 4e |ts(comma|nd) != N|
|00004020| 55 4c 4c 29 20 7b 0a 0a | 09 09 66 70 72 69 6e 74 |ULL) {..|..fprint|
|00004030| 66 28 20 73 74 64 65 72 | 72 2c 20 22 74 65 73 74 |f( stder|r, "test|
|00004040| 3a 20 25 73 5c 6e 22 2c | 20 63 6f 6d 6d 61 6e 64 |: %s\n",| command|
|00004050| 20 29 3b 0a 0a 09 09 69 | 66 20 28 28 64 69 72 70 | );....i|f ((dirp|
|00004060| 20 3d 20 6f 70 65 6e 64 | 69 72 28 20 63 6f 6d 6d | = opend|ir( comm|
|00004070| 61 6e 64 20 29 29 20 3d | 3d 20 4e 55 4c 4c 20 29 |and )) =|= NULL )|
|00004080| 20 7b 0a 09 09 09 66 70 | 72 69 6e 74 66 28 20 73 | {....fp|rintf( s|
|00004090| 74 64 65 72 72 2c 20 22 | 63 6f 75 6c 64 6e 27 74 |tderr, "|couldn't|
|000040a0| 20 6f 70 65 6e 20 64 69 | 72 20 25 73 5c 6e 22 2c | open di|r %s\n",|
|000040b0| 20 63 6f 6d 6d 61 6e 64 | 20 29 3b 0a 09 09 7d 0a | command| );...}.|
|000040c0| 09 09 77 68 69 6c 65 20 | 28 28 64 70 20 3d 20 72 |..while |((dp = r|
|000040d0| 65 61 64 64 69 72 28 64 | 69 72 70 29 29 20 21 3d |eaddir(d|irp)) !=|
|000040e0| 20 4e 55 4c 4c 29 20 0a | 09 09 09 66 70 72 69 6e | NULL) .|...fprin|
|000040f0| 74 66 28 20 73 74 64 65 | 72 72 2c 20 22 25 73 22 |tf( stde|rr, "%s"|
|00004100| 2c 20 64 70 2d 3e 64 5f | 6e 61 6d 65 20 29 3b 0a |, dp->d_|name );.|
|00004110| 0a 09 09 63 6c 6f 73 65 | 64 69 72 28 20 64 69 72 |...close|dir( dir|
|00004120| 70 20 29 3b 0a 09 7d 0a | 7d 0a 23 65 6e 64 69 66 |p );..}.|}.#endif|
|00004130| 0a 53 48 41 52 5f 45 4f | 46 0a 63 68 6d 6f 64 20 |.SHAR_EO|F.chmod |
|00004140| 2b 78 20 27 6e 64 69 72 | 2e 63 27 0a 66 69 20 23 |+x 'ndir|.c'.fi #|
|00004150| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|00004160| 69 6e 67 20 63 68 65 63 | 6b 0a 69 66 20 74 65 73 |ing chec|k.if tes|
|00004170| 74 20 2d 66 20 27 63 68 | 64 69 72 2e 63 27 0a 74 |t -f 'ch|dir.c'.t|
|00004180| 68 65 6e 0a 20 20 20 20 | 20 20 20 65 63 68 6f 20 |hen.    |   echo |
|00004190| 73 68 61 72 3a 20 77 69 | 6c 6c 20 6e 6f 74 20 6f |shar: wi|ll not o|
|000041a0| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|000041b0| 6e 67 20 66 69 6c 65 20 | 22 27 63 68 64 69 72 2e |ng file |"'chdir.|
|000041c0| 63 27 22 0a 65 6c 73 65 | 0a 63 61 74 20 3c 3c 20 |c'".else|.cat << |
|000041d0| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 63 68 64 |\SHAR_EO|F > 'chd|
|000041e0| 69 72 2e 63 27 0a 0a 23 | 69 6e 63 6c 75 64 65 20 |ir.c'..#|include |
|000041f0| 3c 65 72 72 6e 6f 2e 68 | 3e 0a 23 69 6e 63 6c 75 |<errno.h|>.#inclu|
|00004200| 64 65 20 3c 6d 65 6d 6f | 72 79 2e 68 3e 0a 23 69 |de <memo|ry.h>.#i|
|00004210| 6e 63 6c 75 64 65 20 3c | 70 62 2e 68 3e 0a 23 69 |nclude <|pb.h>.#i|
|00004220| 6e 63 6c 75 64 65 20 3c | 61 7a 74 65 63 2f 73 68 |nclude <|aztec/sh|
|00004230| 65 6c 6c 2e 68 3e 0a 0a | 23 64 65 66 69 6e 65 20 |ell.h>..|#define |
|00004240| 5f 44 45 42 55 47 0a 23 | 69 6e 63 6c 75 64 65 20 |_DEBUG.#|include |
|00004250| 3c 6d 61 78 2f 64 65 62 | 75 67 2e 68 3e 0a 23 69 |<max/deb|ug.h>.#i|
|00004260| 66 64 65 66 20 54 45 53 | 54 0a 23 69 6e 63 6c 75 |fdef TES|T.#inclu|
|00004270| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 23 65 6e |de <stdi|o.h>.#en|
|00004280| 64 69 66 0a 0a 23 69 66 | 6e 64 65 66 20 4e 55 4c |dif..#if|ndef NUL|
|00004290| 4c 0a 23 64 65 66 69 6e | 65 20 4e 55 4c 4c 20 30 |L.#defin|e NULL 0|
|000042a0| 4c 0a 23 65 6e 64 69 66 | 0a 0a 63 68 64 69 72 28 |L.#endif|..chdir(|
|000042b0| 20 70 61 74 68 20 29 0a | 63 68 61 72 20 2a 20 70 | path ).|char * p|
|000042c0| 61 74 68 3b 0a 7b 0a 0a | 09 63 68 61 72 20 6e 70 |ath;.{..|.char np|
|000042d0| 61 74 68 5b 32 35 35 5d | 3b 0a 09 43 49 6e 66 6f |ath[255]|;..CInfo|
|000042e0| 50 42 52 65 63 20 63 70 | 62 3b 0a 09 69 6e 74 20 |PBRec cp|b;..int |
|000042f0| 65 72 72 3b 0a 09 72 65 | 67 69 73 74 65 72 20 63 |err;..re|gister c|
|00004300| 68 61 72 20 2a 20 63 70 | 3b 0a 0a 0a 09 2f 2a 20 |har * cp|;..../* |
|00004310| 66 69 78 20 6e 61 6d 65 | 2c 20 61 6e 64 20 67 65 |fix name|, and ge|
|00004320| 74 20 76 6f 6c 75 6d 65 | 20 72 65 66 65 72 65 6e |t volume| referen|
|00004330| 63 65 20 6e 75 6d 62 65 | 72 20 2a 2f 0a 0a 0a 09 |ce numbe|r */....|
|00004340| 63 70 62 2e 69 6f 56 52 | 65 66 4e 75 6d 20 3d 20 |cpb.ioVR|efNum = |
|00004350| 20 68 66 69 78 6e 61 6d | 28 20 70 61 74 68 2c 20 | hfixnam|( path, |
|00004360| 6e 70 61 74 68 20 29 3b | 0a 0a 23 69 66 64 65 66 |npath );|..#ifdef|
|00004370| 20 54 45 53 54 0a 09 66 | 70 72 69 6e 74 66 28 20 | TEST..f|printf( |
|00004380| 73 74 64 65 72 72 2c 20 | 22 6f 70 65 6e 64 69 72 |stderr, |"opendir|
|00004390| 3a 20 25 73 5c 6e 22 2c | 20 6e 70 61 74 68 20 29 |: %s\n",| npath )|
|000043a0| 3b 0a 23 65 6e 64 69 66 | 0a 0a 09 63 70 62 2e 69 |;.#endif|...cpb.i|
|000043b0| 6f 4e 61 6d 65 50 74 72 | 20 3d 20 63 74 6f 70 28 |oNamePtr| = ctop(|
|000043c0| 20 6e 70 61 74 68 20 29 | 3b 0a 09 63 70 62 2e 69 | npath )|;..cpb.i|
|000043d0| 6f 46 44 69 72 49 6e 64 | 65 78 20 3d 20 30 3b 0a |oFDirInd|ex = 0;.|
|000043e0| 09 63 70 62 2e 75 2e 64 | 69 2e 69 6f 44 72 44 69 |.cpb.u.d|i.ioDrDi|
|000043f0| 72 49 44 20 3d 20 30 4c | 3b 0a 09 69 66 20 28 28 |rID = 0L|;..if ((|
|00004400| 65 72 72 20 3d 20 50 42 | 47 65 74 43 61 74 49 6e |err = PB|GetCatIn|
|00004410| 66 6f 28 20 26 63 70 62 | 2c 20 30 20 29 29 20 21 |fo( &cpb|, 0 )) !|
|00004420| 3d 20 30 20 29 20 7b 0a | 23 69 66 64 65 66 20 54 |= 0 ) {.|#ifdef T|
|00004430| 45 53 54 0a 09 09 66 70 | 72 69 6e 74 66 28 20 73 |EST...fp|rintf( s|
|00004440| 74 64 65 72 72 2c 20 22 | 73 65 74 64 69 72 3a 20 |tderr, "|setdir: |
|00004450| 50 42 47 65 74 43 61 74 | 49 6e 66 6f 20 25 64 5c |PBGetCat|Info %d\|
|00004460| 6e 22 2c 20 65 72 72 20 | 29 3b 0a 23 65 6e 64 69 |n", err |);.#endi|
|00004470| 66 0a 09 09 72 65 74 75 | 72 6e 20 45 4e 4f 45 4e |f...retu|rn ENOEN|
|00004480| 54 3b 0a 09 7d 0a 0a 09 | 2f 2a 20 72 65 73 69 7a |T;..}...|/* resiz|
|00004490| 65 20 68 61 6e 64 6c 65 | 20 2a 2f 0a 0a 09 70 74 |e handle| */...pt|
|000044a0| 6f 63 28 20 6e 70 61 74 | 68 20 29 3b 0a 09 73 74 |oc( npat|h );..st|
|000044b0| 72 63 70 79 28 20 6e 70 | 61 74 68 2c 20 69 6e 64 |rcpy( np|ath, ind|
|000044c0| 65 78 28 20 6e 70 61 74 | 68 2c 20 27 3a 27 20 29 |ex( npat|h, ':' )|
|000044d0| 2b 31 20 29 3b 0a 0a 09 | 77 68 69 6c 65 20 28 28 |+1 );...|while ((|
|000044e0| 63 70 20 3d 20 69 6e 64 | 65 78 28 20 6e 70 61 74 |cp = ind|ex( npat|
|000044f0| 68 2c 20 27 3a 27 20 29 | 29 20 21 3d 20 4e 55 4c |h, ':' )|) != NUL|
|00004500| 4c 20 29 0a 09 09 2a 63 | 70 20 3d 20 27 2f 27 3b |L )...*c|p = '/';|
|00004510| 0a 0a 23 69 66 64 65 66 | 20 54 45 53 54 0a 09 66 |..#ifdef| TEST..f|
|00004520| 70 72 69 6e 74 66 28 20 | 73 74 64 65 72 72 2c 20 |printf( |stderr, |
|00004530| 22 63 68 64 69 72 3a 20 | 73 65 74 74 69 6e 67 20 |"chdir: |setting |
|00004540| 63 75 72 64 69 72 20 74 | 6f 20 5c 22 25 73 5c 22 |curdir t|o \"%s\"|
|00004550| 5c 6e 22 2c 20 6e 70 61 | 74 68 20 29 3b 0a 23 65 |\n", npa|th );.#e|
|00004560| 6e 64 69 66 0a 0a 09 53 | 65 74 48 61 6e 64 6c 65 |ndif...S|etHandle|
|00004570| 53 69 7a 65 28 20 53 70 | 2d 3e 63 75 72 64 69 72 |Size( Sp|->curdir|
|00004580| 2c 20 28 6c 6f 6e 67 29 | 28 73 74 72 6c 65 6e 28 |, (long)|(strlen(|
|00004590| 20 6e 70 61 74 68 20 29 | 2b 32 29 29 3b 0a 0a 09 | npath )|+2));...|
|000045a0| 69 66 20 28 4d 65 6d 45 | 72 72 6f 72 28 29 20 21 |if (MemE|rror() !|
|000045b0| 3d 20 30 29 0a 09 09 72 | 65 74 75 72 6e 20 45 4e |= 0)...r|eturn EN|
|000045c0| 4f 4d 45 4d 3b 0a 0a 09 | 73 74 72 63 70 79 28 20 |OMEM;...|strcpy( |
|000045d0| 2a 53 70 2d 3e 63 75 72 | 64 69 72 2c 20 6e 70 61 |*Sp->cur|dir, npa|
|000045e0| 74 68 20 29 3b 0a 0a 09 | 72 65 74 75 72 6e 20 30 |th );...|return 0|
|000045f0| 3b 0a 0a 7d 0a 0a 23 69 | 66 64 65 66 20 54 45 53 |;..}..#i|fdef TES|
|00004600| 54 0a 6d 61 69 6e 28 29 | 0a 7b 0a 09 63 68 61 72 |T.main()|.{..char|
|00004610| 20 63 6f 6d 6d 61 6e 64 | 5b 31 30 30 5d 3b 0a 0a | command|[100];..|
|00004620| 09 67 65 74 73 28 20 63 | 6f 6d 6d 61 6e 64 20 29 |.gets( c|ommand )|
|00004630| 3b 0a 09 66 70 72 69 6e | 74 66 28 20 73 74 64 65 |;..fprin|tf( stde|
|00004640| 72 72 2c 20 22 25 64 5c | 6e 22 2c 20 63 68 64 69 |rr, "%d\|n", chdi|
|00004650| 72 28 20 63 6f 6d 6d 61 | 6e 64 20 29 29 3b 0a 7d |r( comma|nd ));.}|
|00004660| 0a 0a 23 65 6e 64 69 66 | 0a 0a 53 48 41 52 5f 45 |..#endif|..SHAR_E|
|00004670| 4f 46 0a 63 68 6d 6f 64 | 20 2b 78 20 27 63 68 64 |OF.chmod| +x 'chd|
|00004680| 69 72 2e 63 27 0a 66 69 | 20 23 20 65 6e 64 20 6f |ir.c'.fi| # end o|
|00004690| 66 20 6f 76 65 72 77 72 | 69 74 69 6e 67 20 63 68 |f overwr|iting ch|
|000046a0| 65 63 6b 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |eck.if t|est -f '|
|000046b0| 67 65 74 63 77 64 2e 63 | 27 0a 74 68 65 6e 0a 20 |getcwd.c|'.then. |
|000046c0| 20 20 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |      ec|ho shar:|
|000046d0| 20 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | will no|t over-w|
|000046e0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|000046f0| 6c 65 20 22 27 67 65 74 | 63 77 64 2e 63 27 22 0a |le "'get|cwd.c'".|
|00004700| 65 6c 73 65 0a 63 61 74 | 20 3c 3c 20 5c 53 48 41 |else.cat| << \SHA|
|00004710| 52 5f 45 4f 46 20 3e 20 | 27 67 65 74 63 77 64 2e |R_EOF > |'getcwd.|
|00004720| 63 27 0a 0a 23 69 6e 63 | 6c 75 64 65 20 3c 65 72 |c'..#inc|lude <er|
|00004730| 72 6e 6f 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 20 |rno.h>.#|include |
|00004740| 3c 6d 65 6d 6f 72 79 2e | 68 3e 0a 23 69 6e 63 6c |<memory.|h>.#incl|
|00004750| 75 64 65 20 3c 61 7a 74 | 65 63 2f 73 68 65 6c 6c |ude <azt|ec/shell|
|00004760| 2e 68 3e 0a 0a 23 69 66 | 64 65 66 20 54 45 53 54 |.h>..#if|def TEST|
|00004770| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|00004780| 2e 68 3e 0a 23 64 65 66 | 69 6e 65 20 5f 44 45 42 |.h>.#def|ine _DEB|
|00004790| 55 47 0a 23 69 6e 63 6c | 75 64 65 20 3c 6d 61 78 |UG.#incl|ude <max|
|000047a0| 2f 64 65 62 75 67 2e 68 | 3e 0a 23 65 6e 64 69 66 |/debug.h|>.#endif|
|000047b0| 0a 0a 23 69 66 6e 64 65 | 66 20 4e 55 4c 4c 0a 23 |..#ifnde|f NULL.#|
|000047c0| 64 65 66 69 6e 65 20 4e | 55 4c 4c 20 30 4c 0a 23 |define N|ULL 0L.#|
|000047d0| 65 6e 64 69 66 0a 0a 63 | 68 61 72 20 2a 20 6d 61 |endif..c|har * ma|
|000047e0| 6c 6c 6f 63 28 29 3b 0a | 0a 63 68 61 72 20 2a 20 |lloc();.|.char * |
|000047f0| 67 65 74 63 77 64 28 20 | 70 61 74 68 2c 20 73 69 |getcwd( |path, si|
|00004800| 7a 65 20 29 0a 63 68 61 | 72 20 2a 20 70 61 74 68 |ze ).cha|r * path|
|00004810| 3b 0a 69 6e 74 20 73 69 | 7a 65 3b 0a 7b 0a 0a 09 |;.int si|ze;.{...|
|00004820| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 2a 20 |register| char * |
|00004830| 63 70 3b 0a 0a 09 63 70 | 20 3d 20 2a 53 70 2d 3e |cp;...cp| = *Sp->|
|00004840| 63 75 72 64 69 72 3b 0a | 09 0a 09 69 66 20 28 70 |curdir;.|...if (p|
|00004850| 61 74 68 20 3d 3d 20 4e | 55 4c 4c 29 20 7b 0a 09 |ath == N|ULL) {..|
|00004860| 09 69 66 20 28 73 69 7a | 65 20 3d 3d 20 30 29 0a |.if (siz|e == 0).|
|00004870| 09 09 09 73 69 7a 65 20 | 3d 20 73 74 72 6c 65 6e |...size |= strlen|
|00004880| 28 20 63 70 20 29 20 2b | 20 32 3b 0a 09 09 70 61 |( cp ) +| 2;...pa|
|00004890| 74 68 20 3d 20 6d 61 6c | 6c 6f 63 28 20 73 69 7a |th = mal|loc( siz|
|000048a0| 65 20 29 3b 0a 09 7d 0a | 09 69 66 20 28 73 69 7a |e );..}.|.if (siz|
|000048b0| 65 20 3c 3d 20 73 74 72 | 6c 65 6e 28 20 63 70 20 |e <= str|len( cp |
|000048c0| 29 29 20 7b 0a 09 09 73 | 74 72 63 70 79 28 20 70 |)) {...s|trcpy( p|
|000048d0| 61 74 68 2c 20 22 22 20 | 29 3b 0a 09 09 65 72 72 |ath, "" |);...err|
|000048e0| 6e 6f 20 3d 20 45 32 42 | 49 47 3b 0a 09 09 72 65 |no = E2B|IG;...re|
|000048f0| 74 75 72 6e 20 4e 55 4c | 4c 3b 0a 09 7d 0a 0a 09 |turn NUL|L;..}...|
|00004900| 73 74 72 63 70 79 28 20 | 70 61 74 68 2c 20 22 2f |strcpy( |path, "/|
|00004910| 22 20 29 3b 0a 09 73 74 | 72 63 61 74 28 20 70 61 |" );..st|rcat( pa|
|00004920| 74 68 2c 20 63 70 20 29 | 3b 0a 09 72 65 74 75 72 |th, cp )|;..retur|
|00004930| 6e 28 20 70 61 74 68 20 | 29 3b 0a 09 0a 7d 0a 0a |n( path |);...}..|
|00004940| 23 69 66 64 65 66 20 54 | 45 53 54 0a 6d 61 69 6e |#ifdef T|EST.main|
|00004950| 28 29 0a 7b 0a 0a 09 66 | 70 72 69 6e 74 66 28 20 |().{...f|printf( |
|00004960| 73 74 64 65 72 72 2c 20 | 22 25 73 5c 6e 22 2c 20 |stderr, |"%s\n", |
|00004970| 67 65 74 63 77 64 28 20 | 4e 55 4c 4c 2c 20 30 20 |getcwd( |NULL, 0 |
|00004980| 29 29 3b 0a 7d 0a 0a 23 | 65 6e 64 69 66 0a 0a 53 |));.}..#|endif..S|
|00004990| 48 41 52 5f 45 4f 46 0a | 63 68 6d 6f 64 20 2b 78 |HAR_EOF.|chmod +x|
|000049a0| 20 27 67 65 74 63 77 64 | 2e 63 27 0a 66 69 20 23 | 'getcwd|.c'.fi #|
|000049b0| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|000049c0| 69 6e 67 20 63 68 65 63 | 6b 0a 69 66 20 74 65 73 |ing chec|k.if tes|
|000049d0| 74 20 2d 66 20 27 67 65 | 6e 76 2e 63 27 0a 74 68 |t -f 'ge|nv.c'.th|
|000049e0| 65 6e 0a 20 20 20 20 20 | 20 20 65 63 68 6f 20 73 |en.     |  echo s|
|000049f0| 68 61 72 3a 20 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: wil|l not ov|
|00004a00| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00004a10| 67 20 66 69 6c 65 20 22 | 27 67 65 6e 76 2e 63 27 |g file "|'genv.c'|
|00004a20| 22 0a 65 6c 73 65 0a 63 | 61 74 20 3c 3c 20 5c 53 |".else.c|at << \S|
|00004a30| 48 41 52 5f 45 4f 46 20 | 3e 20 27 67 65 6e 76 2e |HAR_EOF |> 'genv.|
|00004a40| 63 27 0a 2f 2a 20 09 09 | 67 65 6e 76 2e 63 0a 20 |c'./* ..|genv.c. |
|00004a50| 0a 20 0a 20 0a 09 09 63 | 6f 70 79 72 69 67 68 74 |. . ...c|opyright|
|00004a60| 20 28 43 29 20 31 39 38 | 37 20 53 74 75 61 72 74 | (C) 198|7 Stuart|
|00004a70| 20 4c 79 6e 6e 65 0a 20 | 0a 09 09 43 6f 70 79 69 | Lynne. |...Copyi|
|00004a80| 6e 67 20 61 6e 64 20 75 | 73 65 20 6f 66 20 74 68 |ng and u|se of th|
|00004a90| 69 73 20 70 72 6f 67 72 | 61 6d 20 61 72 65 20 63 |is progr|am are c|
|00004aa0| 6f 6e 74 72 6f 6c 6c 65 | 64 20 62 79 20 74 68 65 |ontrolle|d by the|
|00004ab0| 20 74 65 72 6d 73 20 6f | 66 20 74 68 65 0a 09 09 | terms o|f the...|
|00004ac0| 46 72 65 65 20 53 6f 66 | 74 77 61 72 65 20 46 6f |Free Sof|tware Fo|
|00004ad0| 75 6e 64 61 74 69 6f 6e | 73 20 47 4e 55 20 45 6d |undation|s GNU Em|
|00004ae0| 61 63 73 20 47 65 6e 65 | 72 61 6c 20 50 75 62 6c |acs Gene|ral Publ|
|00004af0| 69 63 20 4c 69 63 65 6e | 73 65 2e 0a 20 0a 20 0a |ic Licen|se.. . .|
|00004b00| 09 09 76 65 72 73 69 6f | 6e 09 09 30 2e 31 09 09 |..versio|n..0.1..|
|00004b10| 4d 61 72 63 68 20 33 31 | 2f 31 39 38 37 0a 20 0a |March 31|/1987. .|
|00004b20| 20 0a 20 0a 2a 2f 0a 20 | 0a 23 69 66 64 65 66 20 | . .*/. |.#ifdef |
|00004b30| 55 4e 49 58 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |UNIX.#in|clude <s|
|00004b40| 79 73 2f 74 79 70 65 73 | 2e 68 3e 0a 23 65 6e 64 |ys/types|.h>.#end|
|00004b50| 69 66 0a 23 69 66 64 65 | 66 20 73 6c 6d 61 63 61 |if.#ifde|f slmaca|
|00004b60| 7a 74 65 63 0a 23 69 6e | 63 6c 75 64 65 20 3c 6d |ztec.#in|clude <m|
|00004b70| 61 63 2f 74 79 70 65 73 | 2e 68 3e 0a 23 65 6e 64 |ac/types|.h>.#end|
|00004b80| 69 66 0a 20 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |if. .#in|clude <s|
|00004b90| 74 64 69 6f 2e 68 3e 0a | 20 0a 23 69 6e 63 6c 75 |tdio.h>.| .#inclu|
|00004ba0| 64 65 20 22 67 65 6e 76 | 2e 68 22 0a 0a 23 64 65 |de "genv|.h"..#de|
|00004bb0| 66 69 6e 65 20 44 4d 41 | 49 4c 42 4f 58 09 22 6d |fine DMA|ILBOX."m|
|00004bc0| 61 69 6c 62 6f 78 22 0a | 23 64 65 66 69 6e 65 09 |ailbox".|#define.|
|00004bd0| 44 4e 41 4d 45 09 09 22 | 22 0a 23 64 65 66 69 6e |DNAME.."|".#defin|
|00004be0| 65 20 44 48 4f 4d 45 09 | 09 22 2f 75 73 72 2f 67 |e DHOME.|."/usr/g|
|00004bf0| 75 65 73 74 22 0a 23 64 | 65 66 69 6e 65 09 44 44 |uest".#d|efine.DD|
|00004c00| 4f 4d 41 49 4e 09 09 22 | 70 63 2e 75 75 63 70 22 |OMAIN.."|pc.uucp"|
|00004c10| 0a 23 64 65 66 69 6e 65 | 09 44 4d 41 49 4c 44 49 |.#define|.DMAILDI|
|00004c20| 52 09 22 2f 75 73 72 2f | 6d 61 69 6c 22 0a 23 64 |R."/usr/|mail".#d|
|00004c30| 65 66 69 6e 65 09 44 43 | 4f 4e 46 44 49 52 09 22 |efine.DC|ONFDIR."|
|00004c40| 2f 75 73 72 2f 6c 69 62 | 2f 75 75 63 70 22 0a 23 |/usr/lib|/uucp".#|
|00004c50| 64 65 66 69 6e 65 09 44 | 53 50 4f 4f 4c 44 49 52 |define.D|SPOOLDIR|
|00004c60| 09 22 2f 75 73 72 2f 73 | 70 6f 6f 6c 2f 75 75 63 |."/usr/s|pool/uuc|
|00004c70| 70 22 0a 23 64 65 66 69 | 6e 65 20 44 50 55 42 44 |p".#defi|ne DPUBD|
|00004c80| 49 52 09 09 22 2f 75 73 | 72 2f 73 70 6f 6f 6c 2f |IR.."/us|r/spool/|
|00004c90| 75 75 63 70 70 75 62 6c | 69 63 22 0a 23 64 65 66 |uucppubl|ic".#def|
|00004ca0| 69 6e 65 09 44 4d 41 49 | 4c 53 45 52 56 49 43 45 |ine.DMAI|LSERVICE|
|00004cb0| 09 22 68 6f 73 74 22 0a | 23 64 65 66 69 6e 65 09 |."host".|#define.|
|00004cc0| 44 4e 4f 44 45 4e 41 4d | 45 09 22 22 0a 23 64 65 |DNODENAM|E."".#de|
|00004cd0| 66 69 6e 65 09 44 44 45 | 56 49 43 45 09 09 22 2e |fine.DDE|VICE..".|
|00004ce0| 61 22 0a 23 64 65 66 69 | 6e 65 09 44 53 50 45 45 |a".#defi|ne.DSPEE|
|00004cf0| 44 09 09 22 31 32 30 30 | 22 0a 23 64 65 66 69 6e |D.."1200|".#defin|
|00004d00| 65 09 44 54 45 4d 50 44 | 49 52 09 22 2f 74 6d 70 |e.DTEMPD|IR."/tmp|
|00004d10| 22 0a 0a 20 0a 23 64 65 | 66 69 6e 65 09 54 46 49 |".. .#de|fine.TFI|
|00004d20| 4c 45 4e 41 4d 45 09 22 | 74 6d 70 66 69 6c 65 22 |LENAME."|tmpfile"|
|00004d30| 0a 23 64 65 66 69 6e 65 | 09 46 49 4c 45 4e 41 4d |.#define|.FILENAM|
|00004d40| 45 20 09 22 25 73 2f 25 | 73 22 0a 0a 63 68 61 72 |E ."%s/%|s"..char|
|00004d50| 20 2a 67 65 74 65 6e 76 | 28 29 3b 0a 20 0a 76 6f | *getenv|();. .vo|
|00004d60| 69 64 20 67 65 6e 76 28 | 29 3b 0a 0a 23 69 66 64 |id genv(|);..#ifd|
|00004d70| 65 66 20 53 4c 41 5a 54 | 45 43 4d 41 43 0a 20 0a |ef SLAZT|ECMAC. .|
|00004d80| 63 68 61 72 09 72 6d 61 | 69 6c 62 6f 78 5b 36 34 |char.rma|ilbox[64|
|00004d90| 5d 3b 0a 63 68 61 72 09 | 72 6e 61 6d 65 5b 36 34 |];.char.|rname[64|
|00004da0| 5d 3b 0a 63 68 61 72 09 | 72 68 6f 6d 65 5b 36 34 |];.char.|rhome[64|
|00004db0| 5d 3b 0a 63 68 61 72 09 | 72 64 6f 6d 61 69 6e 5b |];.char.|rdomain[|
|00004dc0| 36 34 5d 3b 0a 63 68 61 | 72 09 72 6d 61 69 6c 64 |64];.cha|r.rmaild|
|00004dd0| 69 72 5b 36 34 5d 3b 0a | 63 68 61 72 09 72 63 6f |ir[64];.|char.rco|
|00004de0| 6e 66 64 69 72 5b 36 34 | 5d 3b 0a 63 68 61 72 09 |nfdir[64|];.char.|
|00004df0| 72 73 70 6f 6f 6c 64 69 | 72 5b 36 34 5d 3b 0a 63 |rspooldi|r[64];.c|
|00004e00| 68 61 72 09 72 70 75 62 | 64 69 72 5b 36 34 5d 3b |har.rpub|dir[64];|
|00004e10| 0a 63 68 61 72 09 72 6d | 61 69 6c 73 65 72 76 5b |.char.rm|ailserv[|
|00004e20| 31 36 5d 3b 0a 63 68 61 | 72 20 09 72 6e 6f 64 65 |16];.cha|r .rnode|
|00004e30| 6e 61 6d 65 5b 31 36 5d | 3b 0a 63 68 61 72 20 09 |name[16]|;.char .|
|00004e40| 72 64 65 76 69 63 65 5b | 31 36 5d 3b 0a 63 68 61 |rdevice[|16];.cha|
|00004e50| 72 20 09 72 73 70 65 65 | 64 5b 38 5d 3b 0a 63 68 |r .rspee|d[8];.ch|
|00004e60| 61 72 09 72 74 65 6d 70 | 64 69 72 5b 36 34 5d 3b |ar.rtemp|dir[64];|
|00004e70| 0a 0a 63 68 61 72 09 2a | 6d 61 69 6c 62 6f 78 20 |..char.*|mailbox |
|00004e80| 3d 20 72 6d 61 69 6c 62 | 6f 78 3b 0a 63 68 61 72 |= rmailb|ox;.char|
|00004e90| 09 2a 6e 61 6d 65 20 3d | 20 72 6e 61 6d 65 3b 0a |.*name =| rname;.|
|00004ea0| 63 68 61 72 09 2a 68 6f | 6d 65 20 3d 20 72 68 6f |char.*ho|me = rho|
|00004eb0| 6d 65 3b 0a 63 68 61 72 | 09 2a 64 6f 6d 61 69 6e |me;.char|.*domain|
|00004ec0| 20 3d 20 72 64 6f 6d 61 | 69 6e 3b 0a 63 68 61 72 | = rdoma|in;.char|
|00004ed0| 09 2a 6d 61 69 6c 64 69 | 72 20 3d 20 72 6d 61 69 |.*maildi|r = rmai|
|00004ee0| 6c 64 69 72 3b 0a 63 68 | 61 72 09 2a 63 6f 6e 66 |ldir;.ch|ar.*conf|
|00004ef0| 64 69 72 20 3d 20 72 63 | 6f 6e 66 64 69 72 3b 0a |dir = rc|onfdir;.|
|00004f00| 63 68 61 72 09 2a 73 70 | 6f 6f 6c 64 69 72 20 3d |char.*sp|ooldir =|
|00004f10| 20 72 73 70 6f 6f 6c 64 | 69 72 3b 0a 63 68 61 72 | rspoold|ir;.char|
|00004f20| 09 2a 70 75 62 64 69 72 | 20 3d 20 72 70 75 62 64 |.*pubdir| = rpubd|
|00004f30| 69 72 3b 0a 63 68 61 72 | 09 2a 6d 61 69 6c 73 65 |ir;.char|.*mailse|
|00004f40| 72 76 20 3d 20 72 6d 61 | 69 6c 73 65 72 76 3b 0a |rv = rma|ilserv;.|
|00004f50| 63 68 61 72 20 09 2a 6e | 6f 64 65 6e 61 6d 65 20 |char .*n|odename |
|00004f60| 3d 20 72 6e 6f 64 65 6e | 61 6d 65 3b 0a 63 68 61 |= rnoden|ame;.cha|
|00004f70| 72 20 09 2a 64 65 76 69 | 63 65 20 3d 20 72 64 65 |r .*devi|ce = rde|
|00004f80| 76 69 63 65 3b 0a 63 68 | 61 72 20 09 2a 73 70 65 |vice;.ch|ar .*spe|
|00004f90| 65 64 20 3d 20 72 73 70 | 65 65 64 3b 0a 63 68 61 |ed = rsp|eed;.cha|
|00004fa0| 72 09 2a 74 65 6d 70 64 | 69 72 20 3d 20 72 74 65 |r.*tempd|ir = rte|
|00004fb0| 6d 70 64 69 72 3b 0a 0a | 20 0a 76 6f 69 64 20 67 |mpdir;..| .void g|
|00004fc0| 65 6e 76 28 74 68 65 6e | 61 6d 65 2c 20 65 6e 76 |env(then|ame, env|
|00004fd0| 6e 61 6d 65 2c 20 64 66 | 6c 74 29 0a 63 68 61 72 |name, df|lt).char|
|00004fe0| 20 2a 2a 74 68 65 6e 61 | 6d 65 3b 0a 63 68 61 72 | **thena|me;.char|
|00004ff0| 20 2a 65 6e 76 6e 61 6d | 65 3b 0a 63 68 61 72 20 | *envnam|e;.char |
|00005000| 2a 64 66 6c 74 3b 0a 7b | 0a 09 63 68 61 72 20 2a |*dflt;.{|..char *|
|00005010| 20 74 65 6d 70 3b 0a 09 | 0a 09 69 66 20 28 28 74 | temp;..|..if ((t|
|00005020| 65 6d 70 20 3d 20 67 65 | 74 65 6e 76 28 20 65 6e |emp = ge|tenv( en|
|00005030| 76 6e 61 6d 65 20 29 29 | 20 3d 3d 20 4e 55 4c 4c |vname ))| == NULL|
|00005040| 29 20 7b 0a 09 09 2f 2a | 20 66 70 72 69 6e 74 66 |) {.../*| fprintf|
|00005050| 28 20 73 74 64 65 72 72 | 2c 20 22 67 65 6e 76 3a |( stderr|, "genv:|
|00005060| 20 25 73 20 6e 6f 74 20 | 66 6f 75 6e 64 2c 20 75 | %s not |found, u|
|00005070| 73 69 6e 67 20 25 73 5c | 6e 22 2c 20 65 6e 76 6e |sing %s\|n", envn|
|00005080| 61 6d 65 2c 20 64 66 6c | 74 20 29 3b 20 2f 2a 20 |ame, dfl|t ); /* |
|00005090| 2a 2f 0a 09 09 74 65 6d | 70 20 3d 20 64 66 6c 74 |*/...tem|p = dflt|
|000050a0| 3b 0a 09 7d 0a 09 73 74 | 72 63 70 79 28 20 2a 74 |;..}..st|rcpy( *t|
|000050b0| 68 65 6e 61 6d 65 2c 20 | 74 65 6d 70 20 29 3b 0a |hename, |temp );.|
|000050c0| 09 2f 2a 20 20 66 70 72 | 69 6e 74 66 28 20 73 74 |./*  fpr|intf( st|
|000050d0| 64 65 72 72 2c 20 22 67 | 65 6e 76 3a 20 25 73 20 |derr, "g|env: %s |
|000050e0| 25 73 5c 6e 22 2c 20 65 | 6e 76 6e 61 6d 65 2c 20 |%s\n", e|nvname, |
|000050f0| 2a 74 68 65 6e 61 6d 65 | 20 29 3b 20 2f 2a 2a 2f |*thename| ); /**/|
|00005100| 0a 7d 0a 23 65 6c 73 65 | 0a 0a 63 68 61 72 09 2a |.}.#else|..char.*|
|00005110| 6d 61 69 6c 62 6f 78 3b | 0a 63 68 61 72 09 2a 6e |mailbox;|.char.*n|
|00005120| 61 6d 65 3b 0a 63 68 61 | 72 09 2a 64 6f 6d 61 69 |ame;.cha|r.*domai|
|00005130| 6e 3b 0a 63 68 61 72 09 | 2a 6d 61 69 6c 64 69 72 |n;.char.|*maildir|
|00005140| 3b 0a 63 68 61 72 20 09 | 2a 73 70 6f 6f 6c 64 69 |;.char .|*spooldi|
|00005150| 72 3b 0a 63 68 61 72 09 | 2a 70 75 62 64 69 72 3b |r;.char.|*pubdir;|
|00005160| 0a 63 68 61 72 09 2a 63 | 6f 6e 66 64 69 72 3b 0a |.char.*c|onfdir;.|
|00005170| 63 68 61 72 09 2a 6d 61 | 69 6c 73 65 72 76 3b 0a |char.*ma|ilserv;.|
|00005180| 0a 76 6f 69 64 20 67 65 | 6e 76 28 74 68 65 6e 61 |.void ge|nv(thena|
|00005190| 6d 65 2c 20 65 6e 76 6e | 61 6d 65 2c 20 64 66 6c |me, envn|ame, dfl|
|000051a0| 74 29 0a 63 68 61 72 20 | 2a 2a 74 68 65 6e 61 6d |t).char |**thenam|
|000051b0| 65 3b 0a 63 68 61 72 20 | 2a 65 6e 76 6e 61 6d 65 |e;.char |*envname|
|000051c0| 3b 0a 63 68 61 72 20 2a | 64 66 6c 74 3b 0a 7b 0a |;.char *|dflt;.{.|
|000051d0| 09 69 66 20 28 28 2a 74 | 68 65 6e 61 6d 65 20 3d |.if ((*t|hename =|
|000051e0| 20 67 65 74 65 6e 76 28 | 20 65 6e 76 6e 61 6d 65 | getenv(| envname|
|000051f0| 20 29 29 20 3d 3d 20 4e | 55 4c 4c 29 20 7b 0a 09 | )) == N|ULL) {..|
|00005200| 09 66 70 72 69 6e 74 66 | 28 20 73 74 64 65 72 72 |.fprintf|( stderr|
|00005210| 2c 20 22 67 65 6e 76 3a | 20 25 73 20 6e 6f 74 20 |, "genv:| %s not |
|00005220| 66 6f 75 6e 64 2c 20 75 | 73 69 6e 67 20 25 73 5c |found, u|sing %s\|
|00005230| 6e 22 2c 20 65 6e 76 6e | 61 6d 65 2c 20 64 66 6c |n", envn|ame, dfl|
|00005240| 74 20 29 3b 0a 09 09 2a | 74 68 65 6e 61 6d 65 20 |t );...*|thename |
|00005250| 3d 20 64 66 6c 74 3b 0a | 09 7d 0a 09 2f 2a 20 66 |= dflt;.|.}../* f|
|00005260| 70 72 69 6e 74 66 28 20 | 73 74 64 65 72 72 2c 20 |printf( |stderr, |
|00005270| 22 67 65 6e 76 3a 20 25 | 73 20 25 73 5c 6e 22 2c |"genv: %|s %s\n",|
|00005280| 20 65 6e 76 6e 61 6d 65 | 2c 20 2a 74 68 65 6e 61 | envname|, *thena|
|00005290| 6d 65 20 29 3b 20 2f 2a | 2a 2f 0a 7d 0a 23 65 6e |me ); /*|*/.}.#en|
|000052a0| 64 69 66 0a 0a 76 6f 69 | 64 20 6c 6f 61 64 65 6e |dif..voi|d loaden|
|000052b0| 76 28 29 0a 7b 0a 09 2f | 2a 20 67 65 74 20 65 6e |v().{../|* get en|
|000052c0| 76 69 72 6f 6e 6d 65 6e | 74 20 76 61 72 27 73 20 |vironmen|t var's |
|000052d0| 2a 2f 0a 09 67 65 6e 76 | 28 20 26 6e 61 6d 65 2c |*/..genv|( &name,|
|000052e0| 20 4e 41 4d 45 2c 20 44 | 4e 41 4d 45 20 29 3b 0a | NAME, D|NAME );.|
|000052f0| 09 67 65 6e 76 28 20 26 | 6d 61 69 6c 62 6f 78 2c |.genv( &|mailbox,|
|00005300| 20 4d 41 49 4c 42 4f 58 | 2c 20 44 4d 41 49 4c 42 | MAILBOX|, DMAILB|
|00005310| 4f 58 20 29 3b 0a 09 67 | 65 6e 76 28 20 26 68 6f |OX );..g|env( &ho|
|00005320| 6d 65 2c 20 48 4f 4d 45 | 2c 20 44 48 4f 4d 45 20 |me, HOME|, DHOME |
|00005330| 29 3b 0a 09 67 65 6e 76 | 28 20 26 64 6f 6d 61 69 |);..genv|( &domai|
|00005340| 6e 2c 20 44 4f 4d 41 49 | 4e 2c 20 44 44 4f 4d 41 |n, DOMAI|N, DDOMA|
|00005350| 49 4e 20 29 3b 0a 09 67 | 65 6e 76 28 20 26 6d 61 |IN );..g|env( &ma|
|00005360| 69 6c 64 69 72 2c 20 4d | 41 49 4c 44 49 52 2c 20 |ildir, M|AILDIR, |
|00005370| 44 4d 41 49 4c 44 49 52 | 20 29 3b 0a 09 67 65 6e |DMAILDIR| );..gen|
|00005380| 76 28 20 26 63 6f 6e 66 | 64 69 72 2c 20 43 4f 4e |v( &conf|dir, CON|
|00005390| 46 44 49 52 2c 20 44 43 | 4f 4e 46 44 49 52 20 29 |FDIR, DC|ONFDIR )|
|000053a0| 3b 0a 09 67 65 6e 76 28 | 20 26 73 70 6f 6f 6c 64 |;..genv(| &spoold|
|000053b0| 69 72 2c 20 53 50 4f 4f | 4c 44 49 52 2c 20 44 53 |ir, SPOO|LDIR, DS|
|000053c0| 50 4f 4f 4c 44 49 52 20 | 29 3b 0a 09 67 65 6e 76 |POOLDIR |);..genv|
|000053d0| 28 20 26 70 75 62 64 69 | 72 2c 20 50 55 42 44 49 |( &pubdi|r, PUBDI|
|000053e0| 52 2c 20 44 50 55 42 44 | 49 52 20 29 3b 0a 09 67 |R, DPUBD|IR );..g|
|000053f0| 65 6e 76 28 20 26 6d 61 | 69 6c 73 65 72 76 2c 20 |env( &ma|ilserv, |
|00005400| 4d 41 49 4c 53 45 52 56 | 49 43 45 2c 20 44 4d 41 |MAILSERV|ICE, DMA|
|00005410| 49 4c 53 45 52 56 49 43 | 45 20 29 3b 0a 09 67 65 |ILSERVIC|E );..ge|
|00005420| 6e 76 28 20 26 6e 6f 64 | 65 6e 61 6d 65 2c 20 4e |nv( &nod|ename, N|
|00005430| 4f 44 45 4e 41 4d 45 2c | 20 44 4e 4f 44 45 4e 41 |ODENAME,| DNODENA|
|00005440| 4d 45 20 29 3b 0a 09 67 | 65 6e 76 28 20 26 64 65 |ME );..g|env( &de|
|00005450| 76 69 63 65 2c 20 44 45 | 56 49 43 45 2c 20 44 44 |vice, DE|VICE, DD|
|00005460| 45 56 49 43 45 20 29 3b | 0a 09 67 65 6e 76 28 20 |EVICE );|..genv( |
|00005470| 26 73 70 65 65 64 2c 20 | 53 50 45 45 44 2c 20 44 |&speed, |SPEED, D|
|00005480| 53 50 45 45 44 20 29 3b | 0a 09 67 65 6e 76 28 20 |SPEED );|..genv( |
|00005490| 26 74 65 6d 70 64 69 72 | 2c 20 54 45 4d 50 44 49 |&tempdir|, TEMPDI|
|000054a0| 52 2c 20 44 54 45 4d 50 | 44 49 52 20 29 3b 0a 7d |R, DTEMP|DIR );.}|
|000054b0| 0a 20 0a 76 6f 69 64 20 | 6d 6b 66 69 6c 65 6e 61 |. .void |mkfilena|
|000054c0| 6d 65 28 20 66 69 6c 65 | 6e 61 6d 65 2c 20 64 69 |me( file|name, di|
|000054d0| 72 6e 61 6d 65 2c 20 6e | 61 6d 65 20 29 0a 63 68 |rname, n|ame ).ch|
|000054e0| 61 72 20 2a 20 66 69 6c | 65 6e 61 6d 65 3b 0a 63 |ar * fil|ename;.c|
|000054f0| 68 61 72 20 2a 20 64 69 | 72 6e 61 6d 65 3b 0a 63 |har * di|rname;.c|
|00005500| 68 61 72 20 2a 20 6e 61 | 6d 65 3b 0a 7b 0a 09 73 |har * na|me;.{..s|
|00005510| 70 72 69 6e 74 66 28 20 | 66 69 6c 65 6e 61 6d 65 |printf( |filename|
|00005520| 2c 20 46 49 4c 45 4e 41 | 4d 45 2c 20 64 69 72 6e |, FILENA|ME, dirn|
|00005530| 61 6d 65 2c 20 6e 61 6d | 65 20 29 3b 09 0a 09 2f |ame, nam|e );.../|
|00005540| 2a 20 66 70 72 69 6e 74 | 66 28 20 73 74 64 65 72 |* fprint|f( stder|
|00005550| 72 2c 20 22 4e 65 77 20 | 66 69 6c 65 6e 61 6d 65 |r, "New |filename|
|00005560| 20 25 73 5c 6e 22 2c 20 | 66 69 6c 65 6e 61 6d 65 | %s\n", |filename|
|00005570| 20 29 3b 20 20 2f 2a 2a | 2f 09 0a 7d 0a 0a 0a 23 | );  /**|/..}...#|
|00005580| 69 66 64 65 66 20 54 45 | 53 54 0a 6d 61 69 6e 28 |ifdef TE|ST.main(|
|00005590| 29 0a 7b 0a 09 6c 6f 61 | 64 65 6e 76 28 29 3b 0a |).{..loa|denv();.|
|000055a0| 7d 0a 23 65 6e 64 69 66 | 0a 0a 53 48 41 52 5f 45 |}.#endif|..SHAR_E|
|000055b0| 4f 46 0a 63 68 6d 6f 64 | 20 2b 78 20 27 67 65 6e |OF.chmod| +x 'gen|
|000055c0| 76 2e 63 27 0a 66 69 20 | 23 20 65 6e 64 20 6f 66 |v.c'.fi |# end of|
|000055d0| 20 6f 76 65 72 77 72 69 | 74 69 6e 67 20 63 68 65 | overwri|ting che|
|000055e0| 63 6b 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 73 |ck.if te|st -f 's|
|000055f0| 69 6f 2e 63 27 0a 74 68 | 65 6e 0a 20 20 20 20 20 |io.c'.th|en.     |
|00005600| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 77 69 6c |  echo s|har: wil|
|00005610| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00005620| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 22 | existin|g file "|
|00005630| 27 73 69 6f 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |'sio.c'"|.else.ca|
|00005640| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00005650| 20 27 73 69 6f 2e 63 27 | 0a 2f 2a 09 09 09 73 69 | 'sio.c'|./*...si|
|00005660| 6f 2e 63 0a 0a 0a 09 09 | 09 09 53 65 72 69 61 6c |o.c.....|..Serial|
|00005670| 20 49 2f 4f 20 66 6f 72 | 20 72 7a 2f 73 7a 0a 0a | I/O for| rz/sz..|
|00005680| 0a 09 09 09 09 43 6f 70 | 79 72 69 67 68 74 20 28 |.....Cop|yright (|
|00005690| 63 29 20 31 39 38 36 20 | 53 74 75 61 72 74 20 4c |c) 1986 |Stuart L|
|000056a0| 79 6e 6e 65 0a 0a 09 09 | 09 09 4a 75 6e 65 20 31 |ynne....|..June 1|
|000056b0| 39 38 36 0a 0a 09 09 09 | 09 0a 0a 2a 2f 0a 23 69 |986.....|...*/.#i|
|000056c0| 6e 63 6c 75 64 65 20 3c | 6c 6f 63 61 6c 2f 73 69 |nclude <|local/si|
|000056d0| 6f 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |o.h>.#in|clude <s|
|000056e0| 74 64 69 6f 2e 68 3e 0a | 0a 23 69 6e 63 6c 75 64 |tdio.h>.|.#includ|
|000056f0| 65 20 3c 70 62 2e 68 3e | 0a 0a 23 69 6e 63 6c 75 |e <pb.h>|..#inclu|
|00005700| 64 65 20 3c 6f 73 75 74 | 69 6c 2e 68 3e 0a 0a 2f |de <osut|il.h>../|
|00005710| 2a 20 23 69 6e 63 6c 75 | 64 65 20 3c 6d 61 78 2f |* #inclu|de <max/|
|00005720| 6d 61 63 67 6c 6f 62 61 | 6c 73 2e 68 3e 20 2a 2f |macgloba|ls.h> */|
|00005730| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 6d 61 78 2f 64 |.#includ|e <max/d|
|00005740| 65 62 75 67 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |ebug.h>.|#include|
|00005750| 20 3c 6d 61 78 2f 61 73 | 63 2e 68 3e 0a 0a 23 64 | <max/as|c.h>..#d|
|00005760| 65 66 69 6e 65 20 46 41 | 4c 53 45 20 30 0a 23 69 |efine FA|LSE 0.#i|
|00005770| 66 6e 64 65 66 20 54 52 | 55 45 0a 23 64 65 66 69 |fndef TR|UE.#defi|
|00005780| 6e 65 20 54 52 55 45 20 | 31 0a 23 65 6e 64 69 66 |ne TRUE |1.#endif|
|00005790| 0a 0a 0a 73 74 72 75 63 | 74 20 53 49 4f 50 6f 72 |...struc|t SIOPor|
|000057a0| 74 20 63 75 72 50 6f 72 | 74 3b 0a 0a 0a 73 74 72 |t curPor|t;...str|
|000057b0| 75 63 74 20 7b 0a 09 75 | 6e 73 69 67 6e 65 64 20 |uct {..u|nsigned |
|000057c0| 62 61 75 64 72 3b 0a 09 | 69 6e 74 20 73 70 65 65 |baudr;..|int spee|
|000057d0| 64 63 6f 64 65 3b 0a 7d | 20 73 70 65 65 64 73 5b |dcode;.}| speeds[|
|000057e0| 5d 20 3d 20 7b 0a 09 33 | 30 30 2c 09 62 61 75 64 |] = {..3|00,.baud|
|000057f0| 33 30 30 2c 0a 09 36 30 | 30 2c 09 62 61 75 64 36 |300,..60|0,.baud6|
|00005800| 30 30 2c 0a 09 31 32 30 | 30 2c 09 62 61 75 64 31 |00,..120|0,.baud1|
|00005810| 32 30 30 2c 0a 09 32 34 | 30 30 2c 09 62 61 75 64 |200,..24|00,.baud|
|00005820| 32 34 30 30 2c 0a 09 34 | 38 30 30 2c 09 62 61 75 |2400,..4|800,.bau|
|00005830| 64 34 38 30 30 2c 0a 09 | 39 36 30 30 2c 09 62 61 |d4800,..|9600,.ba|
|00005840| 75 64 39 36 30 30 2c 0a | 09 31 39 32 30 30 2c 09 |ud9600,.|.19200,.|
|00005850| 62 61 75 64 31 39 32 30 | 30 2c 0a 2f 2a 0a 09 33 |baud1920|0,./*..3|
|00005860| 38 34 30 30 2c 20 09 62 | 61 75 64 33 38 34 30 30 |8400, .b|aud38400|
|00005870| 2c 0a 2a 2f 0a 09 35 37 | 36 30 30 2c 20 09 62 61 |,.*/..57|600, .ba|
|00005880| 75 64 35 37 36 30 30 2c | 0a 09 39 36 30 30 2c 09 |ud57600,|..9600,.|
|00005890| 62 61 75 64 39 36 30 30 | 2c 0a 09 30 2c 0a 7d 3b |baud9600|,..0,.};|
|000058a0| 0a 0a 73 74 61 74 69 63 | 20 75 6e 73 69 67 6e 65 |..static| unsigne|
|000058b0| 64 0a 67 65 74 73 70 65 | 65 64 28 63 6f 64 65 29 |d.getspe|ed(code)|
|000058c0| 0a 7b 0a 09 72 65 67 69 | 73 74 65 72 20 6e 3b 0a |.{..regi|ster n;.|
|000058d0| 0a 09 66 6f 72 20 28 6e | 3d 30 3b 20 73 70 65 65 |..for (n|=0; spee|
|000058e0| 64 73 5b 6e 5d 2e 62 61 | 75 64 72 3b 20 2b 2b 6e |ds[n].ba|udr; ++n|
|000058f0| 29 0a 09 09 69 66 20 28 | 73 70 65 65 64 73 5b 6e |)...if (|speeds[n|
|00005900| 5d 2e 73 70 65 65 64 63 | 6f 64 65 20 3d 3d 20 63 |].speedc|ode == c|
|00005910| 6f 64 65 29 0a 09 09 09 | 72 65 74 75 72 6e 20 73 |ode)....|return s|
|00005920| 70 65 65 64 73 5b 6e 5d | 2e 62 61 75 64 72 3b 0a |peeds[n]|.baudr;.|
|00005930| 09 72 65 74 75 72 6e 20 | 30 3b 0a 7d 0a 0a 0a 73 |.return |0;.}...s|
|00005940| 74 61 74 69 63 20 75 6e | 73 69 67 6e 65 64 0a 67 |tatic un|signed.g|
|00005950| 65 74 62 61 75 64 28 63 | 6f 64 65 29 0a 63 68 61 |etbaud(c|ode).cha|
|00005960| 72 20 2a 63 6f 64 65 3b | 0a 7b 0a 09 72 65 67 69 |r *code;|.{..regi|
|00005970| 73 74 65 72 20 6e 3b 0a | 09 72 65 67 69 73 74 65 |ster n;.|.registe|
|00005980| 72 20 69 6e 74 20 42 61 | 75 64 72 61 74 65 3b 0a |r int Ba|udrate;.|
|00005990| 09 0a 09 42 61 75 64 72 | 61 74 65 20 3d 20 61 74 |...Baudr|ate = at|
|000059a0| 6f 69 28 63 6f 64 65 29 | 3b 0a 09 0a 09 66 6f 72 |oi(code)|;....for|
|000059b0| 20 28 6e 3d 30 3b 20 73 | 70 65 65 64 73 5b 6e 5d | (n=0; s|peeds[n]|
|000059c0| 2e 62 61 75 64 72 3b 20 | 2b 2b 6e 29 0a 09 09 69 |.baudr; |++n)...i|
|000059d0| 66 20 28 73 70 65 65 64 | 73 5b 6e 5d 2e 62 61 75 |f (speed|s[n].bau|
|000059e0| 64 72 20 3d 3d 20 42 61 | 75 64 72 61 74 65 29 0a |dr == Ba|udrate).|
|000059f0| 09 09 09 72 65 74 75 72 | 6e 20 73 70 65 65 64 73 |...retur|n speeds|
|00005a00| 5b 6e 5d 2e 73 70 65 65 | 64 63 6f 64 65 3b 0a 09 |[n].spee|dcode;..|
|00005a10| 72 65 74 75 72 6e 20 30 | 3b 0a 7d 0a 0a 0a 0a 53 |return 0|;.}....S|
|00005a20| 49 4f 49 6e 69 74 20 28 | 20 77 68 69 63 68 70 6f |IOInit (| whichpo|
|00005a30| 72 74 2c 20 73 70 65 65 | 64 20 29 0a 63 68 61 72 |rt, spee|d ).char|
|00005a40| 20 2a 20 77 68 69 63 68 | 70 6f 72 74 3b 0a 63 68 | * which|port;.ch|
|00005a50| 61 72 20 2a 20 73 70 65 | 65 64 3b 0a 7b 0a 09 63 |ar * spe|ed;.{..c|
|00005a60| 68 61 72 20 69 3b 0a 09 | 53 65 72 53 68 6b 09 68 |har i;..|SerShk.h|
|00005a70| 61 6e 64 73 68 61 6b 65 | 3b 0a 09 69 6e 74 20 73 |andshake|;..int s|
|00005a80| 65 74 74 69 6e 67 3b 0a | 09 69 6e 74 20 65 72 72 |etting;.|.int err|
|00005a90| 3b 0a 0a 09 2f 2a 20 20 | 66 70 72 69 6e 74 66 28 |;.../*  |fprintf(|
|00005aa0| 20 73 74 64 65 72 72 2c | 20 22 73 69 6f 69 6e 69 | stderr,| "sioini|
|00005ab0| 74 20 25 73 20 25 73 5c | 6e 22 2c 20 77 68 69 63 |t %s %s\|n", whic|
|00005ac0| 68 70 6f 72 74 2c 20 73 | 70 65 65 64 20 29 3b 20 |hport, s|peed ); |
|00005ad0| 2f 2a 20 2a 2f 0a 09 0a | 09 69 66 20 28 20 0a 09 |/* */...|.if ( ..|
|00005ae0| 09 73 74 72 6e 63 6d 70 | 28 20 77 68 69 63 68 70 |.strncmp|( whichp|
|00005af0| 6f 72 74 2c 20 22 2e 61 | 22 2c 20 32 20 29 20 3d |ort, ".a|", 2 ) =|
|00005b00| 3d 20 30 20 7c 7c 20 0a | 09 09 73 74 72 6e 63 6d |= 0 || .|..strncm|
|00005b10| 70 28 20 77 68 69 63 68 | 70 6f 72 74 2c 20 22 61 |p( which|port, "a|
|00005b20| 22 2c 31 20 29 20 3d 3d | 20 30 20 7c 7c 0a 09 09 |",1 ) ==| 0 ||...|
|00005b30| 73 74 72 63 6d 70 28 20 | 77 68 69 63 68 70 6f 72 |strcmp( |whichpor|
|00005b40| 74 2c 20 22 6d 6f 64 65 | 6d 22 29 20 3d 3d 20 30 |t, "mode|m") == 0|
|00005b50| 0a 09 09 29 20 0a 09 7b | 0a 09 09 63 75 72 50 6f |...) ..{|...curPo|
|00005b60| 72 74 2e 69 6e 20 3d 20 | 41 49 4e 3b 0a 09 09 63 |rt.in = |AIN;...c|
|00005b70| 75 72 50 6f 72 74 2e 6f | 75 74 20 3d 20 41 4f 55 |urPort.o|ut = AOU|
|00005b80| 54 3b 0a 09 7d 0a 09 65 | 6c 73 65 20 69 66 20 28 |T;..}..e|lse if (|
|00005b90| 0a 09 09 73 74 72 6e 63 | 6d 70 28 20 77 68 69 63 |...strnc|mp( whic|
|00005ba0| 68 70 6f 72 74 2c 20 22 | 2e 62 22 2c 20 32 20 29 |hport, "|.b", 2 )|
|00005bb0| 20 3d 3d 20 30 20 7c 7c | 20 0a 09 09 73 74 72 6e | == 0 ||| ...strn|
|00005bc0| 63 6d 70 28 20 77 68 69 | 63 68 70 6f 72 74 2c 20 |cmp( whi|chport, |
|00005bd0| 22 62 22 2c 20 31 20 29 | 20 3d 3d 20 30 20 7c 7c |"b", 1 )| == 0 |||
|00005be0| 0a 09 09 73 74 72 63 6d | 70 28 20 77 68 69 63 68 |...strcm|p( which|
|00005bf0| 70 6f 72 74 2c 20 22 70 | 72 69 6e 74 65 72 22 29 |port, "p|rinter")|
|00005c00| 20 3d 3d 20 30 20 0a 09 | 09 29 20 0a 09 7b 0a 09 | == 0 ..|.) ..{..|
|00005c10| 09 63 75 72 50 6f 72 74 | 2e 69 6e 20 3d 20 42 49 |.curPort|.in = BI|
|00005c20| 4e 3b 0a 09 09 63 75 72 | 50 6f 72 74 2e 6f 75 74 |N;...cur|Port.out|
|00005c30| 20 3d 20 42 4f 55 54 3b | 0a 09 7d 0a 09 65 6c 73 | = BOUT;|..}..els|
|00005c40| 65 0a 09 09 72 65 74 75 | 72 6e 28 20 2d 31 20 29 |e...retu|rn( -1 )|
|00005c50| 3b 0a 0a 09 69 66 20 28 | 28 65 72 72 20 3d 20 4f |;...if (|(err = O|
|00005c60| 70 65 6e 44 72 69 76 65 | 72 20 28 20 63 75 72 50 |penDrive|r ( curP|
|00005c70| 6f 72 74 2e 69 6e 2c 20 | 20 26 63 75 72 50 6f 72 |ort.in, | &curPor|
|00005c80| 74 2e 72 65 66 69 6e 20 | 29 29 20 21 3d 30 20 29 |t.refin |)) !=0 )|
|00005c90| 20 7b 0a 09 09 66 70 72 | 69 6e 74 66 28 20 73 74 | {...fpr|intf( st|
|00005ca0| 64 65 72 72 2c 20 22 45 | 72 72 3a 20 25 64 5c 6e |derr, "E|rr: %d\n|
|00005cb0| 22 2c 20 65 72 72 29 3b | 0a 09 09 64 65 62 75 67 |", err);|...debug|
|00005cc0| 4d 73 67 20 28 20 63 74 | 6f 70 28 20 63 75 72 50 |Msg ( ct|op( curP|
|00005cd0| 6f 72 74 2e 69 6e 20 29 | 20 29 3b 0a 09 09 53 79 |ort.in )| );...Sy|
|00005ce0| 73 42 65 65 70 20 28 32 | 30 29 3b 20 0a 09 09 72 |sBeep (2|0); ...r|
|00005cf0| 65 74 75 72 6e 28 20 2d | 31 20 29 3b 0a 09 7d 0a |eturn( -|1 );..}.|
|00005d00| 0a 09 0a 09 69 66 20 28 | 28 65 72 72 3d 4f 70 65 |....if (|(err=Ope|
|00005d10| 6e 44 72 69 76 65 72 20 | 28 20 63 75 72 50 6f 72 |nDriver |( curPor|
|00005d20| 74 2e 6f 75 74 2c 20 26 | 63 75 72 50 6f 72 74 2e |t.out, &|curPort.|
|00005d30| 72 65 66 6f 75 74 20 29 | 29 20 21 3d 30 20 29 20 |refout )|) !=0 ) |
|00005d40| 7b 0a 09 09 66 70 72 69 | 6e 74 66 28 20 73 74 64 |{...fpri|ntf( std|
|00005d50| 65 72 72 2c 20 22 45 72 | 72 3a 20 25 64 5c 6e 22 |err, "Er|r: %d\n"|
|00005d60| 2c 20 65 72 72 29 3b 0a | 09 09 64 65 62 75 67 4d |, err);.|..debugM|
|00005d70| 73 67 20 28 20 63 74 6f | 70 28 20 63 75 72 50 6f |sg ( cto|p( curPo|
|00005d80| 72 74 2e 6f 75 74 20 29 | 20 29 3b 0a 09 09 53 79 |rt.out )| );...Sy|
|00005d90| 73 42 65 65 70 20 28 32 | 30 29 3b 20 0a 09 09 72 |sBeep (2|0); ...r|
|00005da0| 65 74 75 72 6e 28 20 2d | 31 20 29 3b 0a 09 7d 0a |eturn( -|1 );..}.|
|00005db0| 09 0a 09 53 49 4f 48 61 | 6e 64 73 68 61 6b 65 28 |...SIOHa|ndshake(|
|00005dc0| 20 46 41 4c 53 45 2c 20 | 46 41 4c 53 45 2c 20 46 | FALSE, |FALSE, F|
|00005dd0| 41 4c 53 45 2c 20 58 4f | 4e 2c 20 58 4f 46 20 29 |ALSE, XO|N, XOF )|
|00005de0| 3b 0a 09 53 49 4f 53 65 | 74 74 69 6e 67 73 28 20 |;..SIOSe|ttings( |
|00005df0| 73 70 65 65 64 2c 20 6e | 6f 50 61 72 69 74 79 2c |speed, n|oParity,|
|00005e00| 20 73 74 6f 70 31 30 2c | 20 64 61 74 61 38 20 29 | stop10,| data8 )|
|00005e10| 3b 0a 09 72 65 74 75 72 | 6e 28 20 30 20 29 3b 0a |;..retur|n( 0 );.|
|00005e20| 7d 0a 0a 53 49 4f 53 70 | 65 65 64 28 20 73 70 65 |}..SIOSp|eed( spe|
|00005e30| 65 64 20 29 0a 63 68 61 | 72 20 2a 20 73 70 65 65 |ed ).cha|r * spee|
|00005e40| 64 3b 0a 7b 0a 09 53 49 | 4f 53 65 74 74 69 6e 67 |d;.{..SI|OSetting|
|00005e50| 28 20 73 70 65 65 64 2c | 20 63 75 72 50 6f 72 74 |( speed,| curPort|
|00005e60| 2e 70 61 72 69 74 79 2c | 20 63 75 72 50 6f 72 74 |.parity,| curPort|
|00005e70| 2e 73 74 6f 70 62 69 74 | 73 2c 20 63 75 72 50 6f |.stopbit|s, curPo|
|00005e80| 72 74 2e 64 61 74 61 62 | 69 74 73 20 29 3b 0a 7d |rt.datab|its );.}|
|00005e90| 0a 0a 53 49 4f 48 61 6e | 64 73 68 61 6b 65 20 28 |..SIOHan|dshake (|
|00005ea0| 20 66 49 6e 78 2c 20 66 | 58 4f 6e 2c 20 66 43 54 | fInx, f|XOn, fCT|
|00005eb0| 53 2c 20 78 4f 6e 2c 20 | 78 4f 66 66 20 29 0a 7b |S, xOn, |xOff ).{|
|00005ec0| 09 0a 09 69 6e 74 20 65 | 72 72 3b 0a 09 0a 09 63 |...int e|rr;....c|
|00005ed0| 75 72 50 6f 72 74 2e 68 | 61 6e 64 73 68 61 6b 65 |urPort.h|andshake|
|00005ee0| 2e 66 49 6e 58 20 3d 20 | 66 49 6e 78 3b 0a 09 63 |.fInX = |fInx;..c|
|00005ef0| 75 72 50 6f 72 74 2e 68 | 61 6e 64 73 68 61 6b 65 |urPort.h|andshake|
|00005f00| 2e 66 58 4f 6e 20 3d 20 | 66 58 4f 6e 3b 0a 09 63 |.fXOn = |fXOn;..c|
|00005f10| 75 72 50 6f 72 74 2e 68 | 61 6e 64 73 68 61 6b 65 |urPort.h|andshake|
|00005f20| 2e 66 43 54 53 20 3d 20 | 66 43 54 53 3b 0a 0a 09 |.fCTS = |fCTS;...|
|00005f30| 63 75 72 50 6f 72 74 2e | 68 61 6e 64 73 68 61 6b |curPort.|handshak|
|00005f40| 65 2e 78 4f 6e 20 3d 20 | 78 4f 6e 3b 0a 09 63 75 |e.xOn = |xOn;..cu|
|00005f50| 72 50 6f 72 74 2e 68 61 | 6e 64 73 68 61 6b 65 2e |rPort.ha|ndshake.|
|00005f60| 78 4f 66 66 20 3d 20 78 | 4f 66 66 3b 0a 09 2f 2a |xOff = x|Off;../*|
|00005f70| 20 68 61 6e 64 73 68 61 | 6b 65 2e 66 58 4f 6e 20 | handsha|ke.fXOn |
|00005f80| 3d 20 54 52 55 45 3b 20 | 2a 2f 0a 09 0a 09 63 75 |= TRUE; |*/....cu|
|00005f90| 72 50 6f 72 74 2e 68 61 | 6e 64 73 68 61 6b 65 2e |rPort.ha|ndshake.|
|00005fa0| 65 72 72 73 20 3d 20 30 | 3b 0a 09 63 75 72 50 6f |errs = 0|;..curPo|
|00005fb0| 72 74 2e 68 61 6e 64 73 | 68 61 6b 65 2e 65 76 74 |rt.hands|hake.evt|
|00005fc0| 73 20 3d 20 30 3b 0a 0a | 09 69 66 20 28 28 65 72 |s = 0;..|.if ((er|
|00005fd0| 72 3d 53 65 72 48 53 68 | 61 6b 65 20 28 63 75 72 |r=SerHSh|ake (cur|
|00005fe0| 50 6f 72 74 2e 72 65 66 | 69 6e 2c 20 26 63 75 72 |Port.ref|in, &cur|
|00005ff0| 50 6f 72 74 2e 68 61 6e | 64 73 68 61 6b 65 20 29 |Port.han|dshake )|
|00006000| 29 21 3d 30 20 29 20 7b | 0a 09 09 66 70 72 69 6e |)!=0 ) {|...fprin|
|00006010| 74 66 28 20 73 74 64 65 | 72 72 2c 20 22 45 72 72 |tf( stde|rr, "Err|
|00006020| 3a 20 25 64 5c 6e 22 2c | 20 65 72 72 29 3b 0a 09 |: %d\n",| err);..|
|00006030| 09 64 65 62 75 67 4d 73 | 67 20 28 22 5c 50 53 65 |.debugMs|g ("\PSe|
|00006040| 72 48 53 68 61 6b 65 20 | 65 72 72 6f 72 22 29 3b |rHShake |error");|
|00006050| 0a 09 09 53 79 73 42 65 | 65 70 20 28 32 30 29 3b |...SysBe|ep (20);|
|00006060| 20 0a 09 7d 0a 7d 0a 0a | 53 49 4f 53 65 74 74 69 | ..}.}..|SIOSetti|
|00006070| 6e 67 28 20 73 70 65 65 | 64 2c 20 70 61 72 69 74 |ng( spee|d, parit|
|00006080| 79 2c 20 73 74 6f 70 62 | 69 74 73 2c 20 64 61 74 |y, stopb|its, dat|
|00006090| 61 62 69 74 73 20 29 0a | 63 68 61 72 20 2a 20 73 |abits ).|char * s|
|000060a0| 70 65 65 64 3b 0a 7b 0a | 09 69 6e 74 20 65 72 72 |peed;.{.|.int err|
|000060b0| 3b 0a 09 69 6e 74 20 73 | 65 74 74 69 6e 67 3b 0a |;..int s|etting;.|
|000060c0| 09 0a 09 63 75 72 50 6f | 72 74 2e 62 61 75 64 20 |...curPo|rt.baud |
|000060d0| 3d 20 67 65 74 62 61 75 | 64 28 73 70 65 65 64 29 |= getbau|d(speed)|
|000060e0| 3b 0a 09 63 75 72 50 6f | 72 74 2e 70 61 72 69 74 |;..curPo|rt.parit|
|000060f0| 79 20 3d 20 70 61 72 69 | 74 79 3b 0a 09 63 75 72 |y = pari|ty;..cur|
|00006100| 50 6f 72 74 2e 73 74 6f | 70 62 69 74 73 20 3d 20 |Port.sto|pbits = |
|00006110| 73 74 6f 70 62 69 74 73 | 3b 0a 09 63 75 72 50 6f |stopbits|;..curPo|
|00006120| 72 74 2e 64 61 74 61 62 | 69 74 73 20 3d 20 64 61 |rt.datab|its = da|
|00006130| 74 61 62 69 74 73 3b 0a | 09 0a 09 73 65 74 74 69 |tabits;.|...setti|
|00006140| 6e 67 20 3d 20 63 75 72 | 50 6f 72 74 2e 62 61 75 |ng = cur|Port.bau|
|00006150| 64 20 2b 20 70 61 72 69 | 74 79 20 2b 20 73 74 6f |d + pari|ty + sto|
|00006160| 70 62 69 74 73 20 2b 20 | 64 61 74 61 62 69 74 73 |pbits + |databits|
|00006170| 3b 0a 0a 09 69 66 20 28 | 28 65 72 72 3d 53 65 72 |;...if (|(err=Ser|
|00006180| 52 65 73 65 74 28 63 75 | 72 50 6f 72 74 2e 72 65 |Reset(cu|rPort.re|
|00006190| 66 69 6e 2c 20 73 65 74 | 74 69 6e 67 29 29 21 3d |fin, set|ting))!=|
|000061a0| 30 20 29 20 20 7b 0a 09 | 09 66 70 72 69 6e 74 66 |0 )  {..|.fprintf|
|000061b0| 28 20 73 74 64 65 72 72 | 2c 20 22 45 72 72 3a 20 |( stderr|, "Err: |
|000061c0| 25 64 5c 6e 22 2c 20 65 | 72 72 29 3b 0a 09 09 64 |%d\n", e|rr);...d|
|000061d0| 65 62 75 67 4d 73 67 20 | 28 22 5c 50 53 65 72 52 |ebugMsg |("\PSerR|
|000061e0| 65 73 65 74 20 65 72 72 | 6f 72 22 29 3b 0a 09 09 |eset err|or");...|
|000061f0| 53 79 73 42 65 65 70 20 | 28 32 30 29 3b 0a 09 7d |SysBeep |(20);..}|
|00006200| 09 0a 7d 0a 0a 53 49 4f | 49 6e 42 75 66 66 65 72 |..}..SIO|InBuffer|
|00006210| 20 28 20 62 75 66 2c 20 | 73 69 7a 65 20 29 0a 63 | ( buf, |size ).c|
|00006220| 68 61 72 20 2a 20 62 75 | 66 3b 0a 69 6e 74 20 73 |har * bu|f;.int s|
|00006230| 69 7a 65 3b 0a 7b 0a 09 | 63 75 72 50 6f 72 74 2e |ize;.{..|curPort.|
|00006240| 69 6e 62 75 66 66 65 72 | 20 3d 20 62 75 66 3b 0a |inbuffer| = buf;.|
|00006250| 09 63 75 72 50 6f 72 74 | 2e 69 6e 73 69 7a 65 20 |.curPort|.insize |
|00006260| 3d 20 73 69 7a 65 3b 0a | 09 53 65 72 53 65 74 42 |= size;.|.SerSetB|
|00006270| 75 66 28 20 63 75 72 50 | 6f 72 74 2e 72 65 66 69 |uf( curP|ort.refi|
|00006280| 6e 2c 20 62 75 66 2c 20 | 73 69 7a 65 20 29 3b 20 |n, buf, |size ); |
|00006290| 0a 7d 0a 0a 53 49 4f 4f | 75 74 42 75 66 66 65 72 |.}..SIOO|utBuffer|
|000062a0| 20 28 20 62 75 66 2c 20 | 73 69 7a 65 20 29 0a 63 | ( buf, |size ).c|
|000062b0| 68 61 72 20 2a 20 62 75 | 66 3b 0a 69 6e 74 20 73 |har * bu|f;.int s|
|000062c0| 69 7a 65 3b 0a 7b 0a 09 | 63 75 72 50 6f 72 74 2e |ize;.{..|curPort.|
|000062d0| 6f 75 74 62 75 66 66 65 | 72 20 3d 20 62 75 66 3b |outbuffe|r = buf;|
|000062e0| 0a 09 63 75 72 50 6f 72 | 74 2e 6f 75 74 73 69 7a |..curPor|t.outsiz|
|000062f0| 65 20 3d 20 73 69 7a 65 | 3b 0a 09 53 65 72 53 65 |e = size|;..SerSe|
|00006300| 74 42 75 66 28 20 63 75 | 72 50 6f 72 74 2e 72 65 |tBuf( cu|rPort.re|
|00006310| 66 6f 75 74 2c 20 62 75 | 66 2c 20 73 69 7a 65 20 |fout, bu|f, size |
|00006320| 29 3b 20 0a 7d 0a 0a 0a | 53 49 4f 43 6c 6f 73 65 |); .}...|SIOClose|
|00006330| 20 28 20 64 74 72 20 29 | 0a 7b 0a 09 73 74 72 75 | ( dtr )|.{..stru|
|00006340| 63 74 20 50 61 72 61 6d | 42 6c 6b 52 65 63 20 53 |ct Param|BlkRec S|
|00006350| 49 4f 70 62 3b 0a 09 0a | 09 72 65 67 69 73 74 65 |IOpb;...|.registe|
|00006360| 72 20 50 74 72 20 2a 73 | 70 3b 0a 09 6c 6f 6e 67 |r Ptr *s|p;..long|
|00006370| 20 63 6f 75 6e 74 3b 0a | 0a 09 69 66 20 28 20 64 | count;.|..if ( d|
|00006380| 74 72 20 21 3d 20 30 29 | 20 7b 0a 09 09 2f 2a 20 |tr != 0)| {.../* |
|00006390| 64 72 6f 70 20 44 54 52 | 20 2a 2f 0a 09 09 53 49 |drop DTR| */...SI|
|000063a0| 4f 70 62 2e 69 6f 43 6f | 6d 70 6c 65 74 69 6f 6e |Opb.ioCo|mpletion|
|000063b0| 20 3d 20 4e 55 4c 4c 3b | 0a 09 09 53 49 4f 70 62 | = NULL;|...SIOpb|
|000063c0| 2e 75 2e 63 70 2e 63 73 | 52 65 66 4e 75 6d 20 3d |.u.cp.cs|RefNum =|
|000063d0| 20 63 75 72 50 6f 72 74 | 2e 72 65 66 69 6e 3b 0a | curPort|.refin;.|
|000063e0| 09 09 53 49 4f 70 62 2e | 75 2e 63 70 2e 63 73 43 |..SIOpb.|u.cp.csC|
|000063f0| 6f 64 65 20 3d 20 31 38 | 3b 0a 09 09 73 70 20 3d |ode = 18|;...sp =|
+--------+-------------------------+-------------------------+--------+--------+