/ Oakland CPM Archive / oakcpm.iso / sigm / vol149 / unix-lu.lbr

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 01 00 |.       |    ....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 4c 41 52 20 20 20 20 | 20 31 20 20 01 00 12 00 |.LAR    | 1  ....|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 4c 41 52 20 20 20 20 | 20 43 20 20 13 00 75 00 |.LAR    | C  ..u.|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2e 54 48 20 4c 41 52 20 | 6c 69 6e 75 73 0a 2e 53 |.TH LAR |linus..S|
|00000090| 48 20 4e 41 4d 45 0a 4c | 41 52 20 5c 2d 20 43 50 |H NAME.L|AR \- CP|
|000000a0| 2f 4d 20 6c 75 20 63 6f | 6d 70 61 74 69 62 6c 65 |/M lu co|mpatible|
|000000b0| 20 66 69 6c 65 20 61 72 | 63 68 69 76 65 72 0a 2e | file ar|chiver..|
|000000c0| 53 48 20 53 59 4e 4f 50 | 53 49 53 0a 2e 42 20 6c |SH SYNOP|SIS..B l|
|000000d0| 61 72 0a 6b 65 79 20 6c | 69 62 72 61 72 79 20 5b |ar.key l|ibrary [|
|000000e0| 20 66 69 6c 65 20 2e 2e | 2e 20 5d 0a 2e 53 48 20 | file ..|. ]..SH |
|000000f0| 44 45 53 43 52 49 50 54 | 49 4f 4e 0a 4c 61 72 20 |DESCRIPT|ION.Lar |
|00000100| 69 73 20 61 20 55 6e 69 | 78 20 70 72 6f 67 72 61 |is a Uni|x progra|
|00000110| 6d 20 74 6f 20 6d 61 6e | 69 70 75 6c 61 74 65 20 |m to man|ipulate |
|00000120| 43 50 2f 4d 20 4c 55 20 | 66 6f 72 6d 61 74 20 6c |CP/M LU |format l|
|00000130| 69 62 72 61 72 69 65 73 | 2e 0a 54 68 65 20 70 72 |ibraries|..The pr|
|00000140| 69 6d 61 72 79 20 75 73 | 65 20 6f 66 20 6c 61 72 |imary us|e of lar|
|00000150| 20 69 73 20 74 6f 20 63 | 6f 6d 62 69 6e 65 20 73 | is to c|ombine s|
|00000160| 65 76 65 72 61 6c 0a 66 | 69 6c 65 73 20 74 6f 67 |everal.f|iles tog|
|00000170| 65 74 68 65 72 20 66 6f | 72 20 75 70 6c 6f 61 64 |ether fo|r upload|
|00000180| 2f 64 6f 77 6e 6c 6f 61 | 64 20 74 6f 20 61 20 70 |/downloa|d to a p|
|00000190| 65 72 73 6f 6e 61 6c 20 | 63 6f 6d 70 75 74 65 72 |ersonal |computer|
|000001a0| 2e 0a 0a 49 74 73 20 61 | 63 74 69 6f 6e 73 20 61 |...Its a|ctions a|
|000001b0| 72 65 20 63 6f 6e 74 72 | 6f 6c 6c 65 64 20 62 79 |re contr|olled by|
|000001c0| 20 74 68 65 0a 2e 49 20 | 6b 65 79 5c 5e 0a 61 72 | the..I |key\^.ar|
|000001d0| 67 75 6d 65 6e 74 2e 0a | 54 68 65 0a 2e 49 20 6b |gument..|The..I k|
|000001e0| 65 79 5c 5e 0a 69 73 20 | 61 20 73 74 72 69 6e 67 |ey\^.is |a string|
|000001f0| 20 6f 66 20 63 68 61 72 | 61 63 74 65 72 73 20 63 | of char|acters c|
|00000200| 6f 6e 74 61 69 6e 69 6e | 67 0a 61 74 20 6d 6f 73 |ontainin|g.at mos|
|00000210| 74 20 6f 6e 65 20 66 75 | 6e 63 74 69 6f 6e 20 6c |t one fu|nction l|
|00000220| 65 74 74 65 72 20 61 6e | 64 20 70 6f 73 73 69 62 |etter an|d possib|
|00000230| 6c 79 0a 6f 6e 65 20 6f | 72 20 6d 6f 72 65 20 66 |ly.one o|r more f|
|00000240| 75 6e 63 74 69 6f 6e 20 | 6d 6f 64 69 66 69 65 72 |unction |modifier|
|00000250| 73 2e 0a 4f 74 68 65 72 | 20 61 72 67 75 6d 65 6e |s..Other| argumen|
|00000260| 74 73 20 74 6f 20 74 68 | 65 20 63 6f 6d 6d 61 6e |ts to th|e comman|
|00000270| 64 20 61 72 65 0a 2e 49 | 20 66 69 6c 65 73 5c 5e |d are..I| files\^|
|00000280| 0a 73 70 65 63 69 66 79 | 69 6e 67 20 77 68 69 63 |.specify|ing whic|
|00000290| 68 20 66 69 6c 65 73 20 | 61 72 65 20 74 6f 20 62 |h files |are to b|
|000002a0| 65 20 64 75 6d 70 65 64 | 20 6f 72 20 72 65 73 74 |e dumped| or rest|
|000002b0| 6f 72 65 64 2e 0a 2e 50 | 50 0a 54 68 65 20 66 75 |ored...P|P.The fu|
|000002c0| 6e 63 74 69 6f 6e 20 70 | 6f 72 74 69 6f 6e 20 6f |nction p|ortion o|
|000002d0| 66 0a 74 68 65 20 6b 65 | 79 20 69 73 20 73 70 65 |f.the ke|y is spe|
|000002e0| 63 69 66 69 65 64 20 62 | 79 20 6f 6e 65 20 6f 66 |cified b|y one of|
|000002f0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 6c | the fol|lowing l|
|00000300| 65 74 74 65 72 73 3a 0a | 2e 50 50 0a 2e 50 44 20 |etters:.|.PP..PD |
|00000310| 30 0a 2e 54 50 20 38 0a | 2e 42 20 75 0a 54 68 65 |0..TP 8.|.B u.The|
|00000320| 20 6e 61 6d 65 64 0a 2e | 49 20 66 69 6c 65 73 5c | named..|I files\|
|00000330| 5e 0a 61 72 65 20 61 64 | 64 65 64 20 74 6f 20 74 |^.are ad|ded to t|
|00000340| 68 65 20 6c 69 62 72 61 | 72 79 2e 0a 2e 54 50 0a |he libra|ry...TP.|
|00000350| 2e 42 20 65 0a 54 68 65 | 20 6e 61 6d 65 64 0a 2e |.B e.The| named..|
|00000360| 49 20 66 69 6c 65 73 5c | 5e 0a 61 72 65 20 65 78 |I files\|^.are ex|
|00000370| 74 72 61 63 74 65 64 20 | 66 72 6f 6d 20 74 68 65 |tracted |from the|
|00000380| 20 74 61 70 65 2e 0a 2e | 54 50 0a 2e 42 20 70 0a | tape...|TP..B p.|
|00000390| 50 72 69 6e 74 20 66 69 | 6c 65 73 20 69 6e 20 6c |Print fi|les in l|
|000003a0| 69 62 72 61 72 79 2e 0a | 2e 54 50 0a 2e 42 20 64 |ibrary..|.TP..B d|
|000003b0| 0a 44 65 6c 65 74 65 20 | 66 69 6c 65 73 20 69 6e |.Delete |files in|
|000003c0| 20 6c 69 62 72 61 72 79 | 2e 0a 2e 54 50 0a 2e 42 | library|...TP..B|
|000003d0| 20 72 0a 52 65 6f 72 67 | 61 6e 69 7a 65 20 6c 69 | r.Reorg|anize li|
|000003e0| 62 72 61 72 79 2e 0a 2e | 54 50 0a 2e 42 20 74 0a |brary...|TP..B t.|
|000003f0| 54 68 65 20 6e 61 6d 65 | 73 20 6f 66 20 74 68 65 |The name|s of the|
|00000400| 20 73 70 65 63 69 66 69 | 65 64 20 66 69 6c 65 73 | specifi|ed files|
|00000410| 20 61 72 65 20 6c 69 73 | 74 65 64 20 65 61 63 68 | are lis|ted each|
|00000420| 20 74 69 6d 65 20 74 68 | 61 74 20 74 68 65 79 20 | time th|at they |
|00000430| 6f 63 63 75 72 0a 6f 6e | 20 74 68 65 20 6c 69 62 |occur.on| the lib|
|00000440| 72 61 72 79 2e 0a 49 66 | 20 6e 6f 0a 2e 49 20 66 |rary..If| no..I f|
|00000450| 69 6c 65 73 5c 5e 0a 61 | 72 67 75 6d 65 6e 74 20 |iles\^.a|rgument |
|00000460| 69 73 20 67 69 76 65 6e | 2c 0a 61 6c 6c 20 74 68 |is given|,.all th|
|00000470| 65 20 6e 61 6d 65 73 0a | 6f 6e 20 74 68 65 20 74 |e names.|on the t|
|00000480| 61 70 65 20 61 72 65 20 | 6c 69 73 74 65 64 2e 0a |ape are |listed..|
|00000490| 2e 50 44 0a 2e 50 50 0a | 54 68 65 20 66 6f 6c 6c |.PD..PP.|The foll|
|000004a0| 6f 77 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 73 |owing ch|aracters|
|000004b0| 20 6d 61 79 20 62 65 20 | 75 73 65 64 20 69 6e 20 | may be |used in |
|000004c0| 61 64 64 69 74 69 6f 6e | 20 74 6f 20 74 68 65 20 |addition| to the |
|000004d0| 6c 65 74 74 65 72 0a 74 | 68 61 74 20 73 65 6c 65 |letter.t|hat sele|
|000004e0| 63 74 73 20 74 68 65 20 | 64 65 73 69 72 65 64 20 |cts the |desired |
|000004f0| 66 75 6e 63 74 69 6f 6e | 3a 0a 2e 50 50 0a 2e 50 |function|:..PP..P|
|00000500| 44 20 30 0a 2e 54 50 20 | 38 0a 2e 54 50 0a 2e 42 |D 0..TP |8..TP..B|
|00000510| 20 76 0a 4e 6f 72 6d 61 | 6c 6c 79 2c 0a 2e 49 20 | v.Norma|lly,..I |
|00000520| 4c 61 72 5c 5e 0a 64 6f | 65 73 20 69 74 73 20 77 |Lar\^.do|es its w|
|00000530| 6f 72 6b 20 73 69 6c 65 | 6e 74 6c 79 2e 0a 54 68 |ork sile|ntly..Th|
|00000540| 65 0a 2e 42 20 76 0a 28 | 76 65 72 62 6f 73 65 29 |e..B v.(|verbose)|
|00000550| 0a 6f 70 74 69 6f 6e 20 | 63 61 75 73 65 73 20 69 |.option |causes i|
|00000560| 74 20 74 6f 20 74 79 70 | 65 20 74 68 65 20 6e 61 |t to typ|e the na|
|00000570| 6d 65 20 6f 66 20 65 61 | 63 68 20 66 69 6c 65 20 |me of ea|ch file |
|00000580| 69 74 20 74 72 65 61 74 | 73 2c 0a 70 72 65 63 65 |it treat|s,.prece|
|00000590| 64 65 64 20 62 79 20 74 | 68 65 20 66 75 6e 63 74 |ded by t|he funct|
|000005a0| 69 6f 6e 20 6c 65 74 74 | 65 72 2e 0a 57 69 74 68 |ion lett|er..With|
|000005b0| 20 74 68 65 0a 2e 42 20 | 74 0a 66 75 6e 63 74 69 | the..B |t.functi|
|000005c0| 6f 6e 2c 0a 2e 42 20 76 | 0a 67 69 76 65 73 20 6d |on,..B v|.gives m|
|000005d0| 6f 72 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ore info|rmation |
|000005e0| 61 62 6f 75 74 20 74 68 | 65 0a 6c 69 62 72 61 72 |about th|e.librar|
|000005f0| 79 20 65 6e 74 72 69 65 | 73 20 74 68 61 6e 20 6a |y entrie|s than j|
|00000600| 75 73 74 20 74 68 65 20 | 6e 61 6d 65 2e 0a 2e 53 |ust the |name...S|
|00000610| 48 20 44 49 41 47 4e 4f | 53 54 49 43 53 0a 49 6e |H DIAGNO|STICS.In|
|00000620| 76 6f 6b 69 6e 67 20 6c | 61 72 20 77 69 74 68 6f |voking l|ar witho|
|00000630| 75 74 20 61 72 67 75 6d | 65 6e 74 73 20 70 72 69 |ut argum|ents pri|
|00000640| 6e 74 73 20 61 20 68 65 | 6c 70 20 6d 65 73 73 61 |nts a he|lp messa|
|00000650| 67 65 2e 0a 2e 53 48 20 | 41 55 54 48 4f 52 0a 54 |ge...SH |AUTHOR.T|
|00000660| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 43 50 2f 4d |he origi|nal CP/M|
|00000670| 20 6c 69 62 72 61 72 79 | 20 70 72 6f 67 72 61 6d | library| program|
|00000680| 20 4c 55 20 69 73 20 74 | 68 65 20 70 72 6f 64 75 | LU is t|he produ|
|00000690| 63 74 20 6f 66 20 47 61 | 72 79 20 50 2e 20 4e 6f |ct of Ga|ry P. No|
|000006a0| 76 6f 73 69 65 6c 73 6b | 69 2e 0a 55 6e 69 78 20 |vosielsk|i..Unix |
|000006b0| 76 65 72 73 69 6f 6e 20 | 62 79 20 53 74 65 70 68 |version |by Steph|
|000006c0| 65 6e 20 48 65 6d 6d 69 | 6e 67 65 72 2c 20 20 4d |en Hemmi|nger,  M|
|000006d0| 69 74 72 65 20 43 6f 72 | 70 2e 20 42 65 64 66 6f |itre Cor|p. Bedfo|
|000006e0| 72 64 20 4d 41 2e 0a 2e | 53 48 20 42 55 47 53 0a |rd MA...|SH BUGS.|
|000006f0| 50 61 74 68 6e 61 6d 65 | 73 20 61 72 65 20 73 74 |Pathname|s are st|
|00000700| 6f 72 65 64 20 69 6e 20 | 43 50 2f 4d 20 66 6f 72 |ored in |CP/M for|
|00000710| 6d 61 74 20 28 58 58 58 | 58 58 58 58 58 2e 58 58 |mat (XXX|XXXXX.XX|
|00000720| 58 29 2e 0a 2e 62 72 0a | 4c 61 72 20 74 72 69 65 |X)...br.|Lar trie|
|00000730| 73 20 74 6f 20 64 65 74 | 65 63 74 0a 74 65 78 74 |s to det|ect.text|
|00000740| 20 66 69 6c 65 73 20 76 | 73 2e 20 62 69 6e 61 72 | files v|s. binar|
|00000750| 69 65 73 20 62 79 20 63 | 68 65 63 6b 69 6e 67 20 |ies by c|hecking |
|00000760| 66 6f 72 20 6e 6f 6e 2d | 41 73 63 69 69 20 28 38 |for non-|Ascii (8|
|00000770| 74 68 20 62 69 74 20 73 | 65 74 29 20 63 68 61 72 |th bit s|et) char|
|00000780| 73 2e 0a 49 66 20 74 68 | 65 20 66 69 6c 65 20 69 |s..If th|e file i|
|00000790| 73 20 74 65 78 74 20 6c | 61 72 20 77 69 6c 6c 20 |s text l|ar will |
|000007a0| 74 68 72 6f 77 20 61 77 | 61 79 20 43 6f 6e 74 72 |throw aw|ay Contr|
|000007b0| 6f 6c 2d 5a 20 63 68 61 | 72 73 20 77 68 69 63 68 |ol-Z cha|rs which|
|000007c0| 0a 43 50 2f 4d 20 70 75 | 74 73 20 6f 6e 20 74 68 |.CP/M pu|ts on th|
|000007d0| 65 20 65 6e 64 2e 0a 41 | 6c 6c 20 66 69 6c 65 73 |e end..A|ll files|
|000007e0| 20 69 6e 20 74 68 65 20 | 6c 69 62 72 61 72 79 20 | in the |library |
|000007f0| 61 72 65 20 70 61 64 64 | 65 64 20 77 69 74 68 20 |are padd|ed with |
|00000800| 43 6f 6e 74 72 6f 6c 2d | 5a 0a 75 70 20 74 6f 20 |Control-|Z.up to |
|00000810| 74 68 65 20 65 6e 64 20 | 74 6f 20 74 68 65 20 43 |the end |to the C|
|00000820| 50 2f 4d 20 73 65 63 74 | 6f 72 20 73 69 7a 65 20 |P/M sect|or size |
|00000830| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 0a 0a 4e |if neces|sary...N|
|00000840| 6f 20 65 66 66 6f 72 74 | 20 69 73 20 6d 61 64 65 |o effort| is made|
|00000850| 20 74 6f 20 68 61 6e 64 | 6c 65 20 74 68 65 20 64 | to hand|le the d|
|00000860| 69 66 66 65 72 65 6e 63 | 65 20 62 65 74 77 65 65 |ifferenc|e betwee|
|00000870| 6e 20 43 50 2f 4d 20 61 | 6e 64 20 55 6e 69 78 0a |n CP/M a|nd Unix.|
|00000880| 65 6e 64 20 6f 66 20 6c | 69 6e 65 20 63 68 61 72 |end of l|ine char|
|00000890| 73 2e 0a 43 50 2f 4d 20 | 75 73 65 73 20 43 72 2f |s..CP/M |uses Cr/|
|000008a0| 4c 66 20 61 6e 64 20 55 | 6e 69 78 20 6a 75 73 74 |Lf and U|nix just|
|000008b0| 20 75 73 65 73 20 4c 66 | 2e 0a 2e 53 48 20 53 45 | uses Lf|...SH SE|
|000008c0| 45 20 41 4c 53 4f 0a 63 | 6f 6d 68 65 78 28 31 29 |E ALSO.c|omhex(1)|
|000008d0| 2c 20 63 68 65 6b 28 31 | 29 2c 20 63 70 6d 63 61 |, chek(1|), cpmca|
|000008e0| 74 28 31 29 2c 20 63 72 | 63 6b 28 31 29 2c 20 6d |t(1), cr|ck(1), m|
|000008f0| 6b 62 69 6e 28 31 29 2c | 20 73 75 6d 28 31 29 2c |kbin(1),| sum(1),|
|00000900| 20 77 63 28 31 29 2e 0a | 1a 1a 1a 1a 1a 1a 1a 1a | wc(1)..|........|
|00000910| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000920| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000930| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000940| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000950| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000960| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000970| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000980| 2f 2a 25 20 2f 62 69 6e | 2f 65 6e 76 20 2d 20 2f |/*% /bin|/env - /|
|00000990| 62 69 6e 2f 6e 63 63 20 | 2d 4f 20 6c 61 72 2e 63 |bin/ncc |-O lar.c|
|000009a0| 20 2d 6f 20 6c 61 72 0a | 46 72 6f 6d 20 6c 69 6e | -o lar.|From lin|
|000009b0| 75 73 21 73 63 68 20 54 | 75 65 20 4a 75 6c 20 32 |us!sch T|ue Jul 2|
|000009c0| 36 20 30 38 3a 30 37 3a | 33 37 20 31 39 38 33 0a |6 08:07:|37 1983.|
|000009d0| 53 75 62 6a 65 63 74 3a | 20 43 50 2f 4d 20 4c 75 |Subject:| CP/M Lu|
|000009e0| 20 6c 69 62 72 61 72 79 | 20 6d 61 69 6e 74 61 69 | library| maintai|
|000009f0| 6e 65 72 0a 0a 57 68 65 | 6e 20 74 72 61 6e 73 66 |ner..Whe|n transf|
|00000a00| 65 72 69 6e 67 20 66 69 | 6c 65 73 20 74 6f 20 6d |ering fi|les to m|
|00000a10| 79 20 70 65 72 73 6f 6e | 61 6c 20 63 6f 6d 70 75 |y person|al compu|
|00000a20| 74 65 72 2c 20 49 20 6f | 66 74 65 6e 20 77 61 6e |ter, I o|ften wan|
|00000a30| 74 20 74 6f 20 74 72 61 | 6e 73 66 65 72 0a 73 65 |t to tra|nsfer.se|
|00000a40| 76 65 72 61 6c 20 66 69 | 6c 65 73 20 61 74 20 6f |veral fi|les at o|
|00000a50| 6e 63 65 20 75 73 69 6e | 67 20 74 68 65 20 55 6d |nce usin|g the Um|
|00000a60| 6f 64 65 6d 20 70 72 6f | 67 72 61 6d 2e 20 20 54 |odem pro|gram.  T|
|00000a70| 6f 20 64 6f 20 74 68 69 | 73 20 49 20 77 72 6f 74 |o do thi|s I wrot|
|00000a80| 65 0a 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e.the fo|llowing |
|00000a90| 73 6d 61 6c 6c 20 70 72 | 6f 67 72 61 6d 20 74 6f |small pr|ogram to|
|00000aa0| 20 63 6f 6d 62 69 6e 65 | 20 66 69 6c 65 73 20 66 | combine| files f|
|00000ab0| 6f 72 20 74 68 65 20 43 | 50 2f 4d 20 4c 55 20 70 |or the C|P/M LU p|
|00000ac0| 72 6f 67 72 61 6d 2e 0a | 0a 4e 6f 20 73 70 65 63 |rogram..|.No spec|
|00000ad0| 69 61 6c 20 74 72 65 61 | 74 6d 65 6e 74 20 6e 65 |ial trea|tment ne|
|00000ae0| 63 65 73 73 61 72 79 2c | 20 6a 75 73 74 3a 0a 09 |cessary,| just:..|
|00000af0| 63 63 20 2d 4f 20 6c 61 | 72 2e 63 20 2d 6f 20 6c |cc -O la|r.c -o l|
|00000b00| 61 72 0a 74 6f 20 6d 61 | 6b 65 20 69 74 2e 0a 0a |ar.to ma|ke it...|
|00000b10| 2d 2d 20 0a 53 74 65 70 | 68 65 6e 20 48 65 6d 6d |-- .Step|hen Hemm|
|00000b20| 69 6e 67 65 72 2c 20 20 | 4d 69 74 72 65 20 43 6f |inger,  |Mitre Co|
|00000b30| 72 70 2e 20 42 65 64 66 | 6f 72 64 20 4d 41 20 0a |rp. Bedf|ord MA .|
|00000b40| 09 7b 61 6c 6c 65 67 72 | 61 2c 67 65 6e 72 61 64 |.{allegr|a,genrad|
|00000b50| 2c 69 68 6e 70 34 2c 20 | 75 74 7a 6f 6f 7d 21 6c |,ihnp4, |utzoo}!l|
|00000b60| 69 6e 75 73 21 73 63 68 | 09 28 55 55 43 50 29 0a |inus!sch|.(UUCP).|
|00000b70| 09 6c 69 6e 75 73 21 73 | 63 68 40 6d 69 74 72 65 |.linus!s|ch@mitre|
|00000b80| 2d 62 65 64 66 6f 72 64 | 09 09 09 28 41 52 50 41 |-bedford|...(ARPA|
|00000b90| 29 0a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |).------|--------|
|00000ba0| 2d 2d 2d 20 6c 61 72 2e | 63 20 2d 2d 2d 2d 2d 2d |--- lar.|c ------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 0a 2a 2f 0a 0a 2f 2a 0a | 20 2a 20 4c 61 72 20 2d |.*/../*.| * Lar -|
|00000bd0| 20 4c 55 20 66 6f 72 6d | 61 74 20 6c 69 62 72 61 | LU form|at libra|
|00000be0| 72 79 20 66 69 6c 65 20 | 6d 61 69 6e 74 61 69 6e |ry file |maintain|
|00000bf0| 65 72 0a 20 2a 20 62 79 | 20 53 74 65 70 68 65 6e |er. * by| Stephen|
|00000c00| 20 43 2e 20 48 65 6d 6d | 69 6e 67 65 72 0a 20 2a | C. Hemm|inger. *|
|00000c10| 09 6c 69 6e 75 73 21 73 | 63 68 09 6f 72 09 73 63 |.linus!s|ch.or.sc|
|00000c20| 68 40 4d 69 74 72 65 2d | 42 65 64 66 6f 72 64 0a |h@Mitre-|Bedford.|
|00000c30| 20 2a 0a 20 2a 20 20 55 | 73 61 67 65 3a 20 6c 61 | *. *  U|sage: la|
|00000c40| 72 20 6b 65 79 20 6c 69 | 62 72 61 72 79 20 5b 66 |r key li|brary [f|
|00000c50| 69 6c 65 73 5d 20 2e 2e | 2e 0a 20 2a 0a 20 2a 20 |iles] ..|.. *. * |
|00000c60| 20 4b 65 79 20 66 75 6e | 63 74 69 6f 6e 73 20 61 | Key fun|ctions a|
|00000c70| 72 65 3a 0a 20 2a 09 75 | 20 2d 20 55 70 64 61 74 |re:. *.u| - Updat|
|00000c80| 65 2c 20 61 64 64 20 66 | 69 6c 65 73 20 74 6f 20 |e, add f|iles to |
|00000c90| 6c 69 62 72 61 72 79 0a | 20 2a 09 74 20 2d 20 54 |library.| *.t - T|
|00000ca0| 61 62 6c 65 20 6f 66 20 | 63 6f 6e 74 65 6e 74 73 |able of |contents|
|00000cb0| 0a 20 2a 09 65 20 2d 20 | 45 78 74 72 61 63 74 20 |. *.e - |Extract |
|00000cc0| 66 69 6c 65 73 20 66 72 | 6f 6d 20 6c 69 62 72 61 |files fr|om libra|
|00000cd0| 72 79 0a 20 2a 09 70 20 | 2d 20 50 72 69 6e 74 20 |ry. *.p |- Print |
|00000ce0| 66 69 6c 65 73 20 69 6e | 20 6c 69 62 72 61 72 79 |files in| library|
|00000cf0| 0a 20 2a 09 64 20 2d 20 | 44 65 6c 65 74 65 20 66 |. *.d - |Delete f|
|00000d00| 69 6c 65 73 20 69 6e 20 | 6c 69 62 72 61 72 79 0a |iles in |library.|
|00000d10| 20 2a 09 72 20 2d 20 52 | 65 6f 72 67 69 6e 69 7a | *.r - R|eorginiz|
|00000d20| 65 20 6c 69 62 72 61 72 | 79 0a 20 2a 20 20 4f 74 |e librar|y. *  Ot|
|00000d30| 68 65 72 20 6b 65 79 73 | 3a 0a 20 2a 09 76 20 2d |her keys|:. *.v -|
|00000d40| 20 56 65 72 62 6f 73 65 | 0a 20 2a 0a 20 2a 20 20 | Verbose|. *. *  |
|00000d50| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 69 73 20 |This pro|gram is |
|00000d60| 70 75 62 6c 69 63 20 64 | 6f 6d 61 69 6e 20 73 6f |public d|omain so|
|00000d70| 66 74 77 61 72 65 2c 20 | 6e 6f 20 77 61 72 72 61 |ftware, |no warra|
|00000d80| 6e 74 79 20 69 6e 74 65 | 6e 64 65 64 20 6f 72 0a |nty inte|nded or.|
|00000d90| 20 2a 20 20 69 6d 70 6c | 69 65 64 2e 0a 20 2a 0a | *  impl|ied.. *.|
|00000da0| 20 2a 20 20 44 45 53 43 | 52 50 54 49 4f 4e 0a 20 | *  DESC|RPTION. |
|00000db0| 2a 20 20 20 20 20 4c 61 | 72 20 69 73 20 61 20 55 |*     La|r is a U|
|00000dc0| 6e 69 78 20 70 72 6f 67 | 72 61 6d 20 74 6f 20 6d |nix prog|ram to m|
|00000dd0| 61 6e 69 70 75 6c 61 74 | 65 20 43 50 2f 4d 20 4c |anipulat|e CP/M L|
|00000de0| 55 20 66 6f 72 6d 61 74 | 20 6c 69 62 72 61 72 69 |U format| librari|
|00000df0| 65 73 2e 0a 20 2a 20 20 | 20 20 20 54 68 65 20 6f |es.. *  |   The o|
|00000e00| 72 69 67 69 6e 61 6c 20 | 43 50 2f 4d 20 6c 69 62 |riginal |CP/M lib|
|00000e10| 72 61 72 79 20 70 72 6f | 67 72 61 6d 20 4c 55 20 |rary pro|gram LU |
|00000e20| 69 73 20 74 68 65 20 70 | 72 6f 64 75 63 74 0a 20 |is the p|roduct. |
|00000e30| 2a 20 20 20 20 20 6f 66 | 20 47 61 72 79 20 50 2e |*     of| Gary P.|
|00000e40| 20 4e 6f 76 6f 73 69 65 | 6c 73 6b 69 2e 20 54 68 | Novosie|lski. Th|
|00000e50| 65 20 70 72 69 6d 61 72 | 79 20 75 73 65 20 6f 66 |e primar|y use of|
|00000e60| 20 6c 61 72 20 69 73 20 | 74 6f 20 63 6f 6d 62 69 | lar is |to combi|
|00000e70| 6e 65 20 73 65 76 65 72 | 61 6c 0a 20 2a 20 20 20 |ne sever|al. *   |
|00000e80| 20 20 66 69 6c 65 73 20 | 74 6f 67 65 74 68 65 72 |  files |together|
|00000e90| 20 66 6f 72 20 75 70 6c | 6f 61 64 2f 64 6f 77 6e | for upl|oad/down|
|00000ea0| 6c 6f 61 64 20 74 6f 20 | 61 20 70 65 72 73 6f 6e |load to |a person|
|00000eb0| 61 6c 20 63 6f 6d 70 75 | 74 65 72 2e 0a 20 2a 0a |al compu|ter.. *.|
|00000ec0| 20 2a 20 20 50 4f 52 54 | 41 42 49 4c 49 54 59 0a | *  PORT|ABILITY.|
|00000ed0| 20 2a 20 20 20 20 20 54 | 68 65 20 63 6f 64 65 20 | *     T|he code |
|00000ee0| 69 73 20 6d 6f 64 65 6c | 65 64 20 61 66 74 65 72 |is model|ed after|
|00000ef0| 20 74 68 65 20 53 6f 66 | 74 77 61 72 65 20 74 6f | the Sof|tware to|
|00000f00| 6f 6c 73 20 61 72 63 68 | 69 76 65 20 70 72 6f 67 |ols arch|ive prog|
|00000f10| 72 61 6d 2c 0a 20 2a 20 | 20 20 20 20 61 6e 64 20 |ram,. * |    and |
|00000f20| 69 73 20 73 65 74 75 70 | 20 66 6f 72 20 56 65 72 |is setup| for Ver|
|00000f30| 73 69 6f 6e 20 37 20 55 | 6e 69 78 2e 20 20 49 74 |sion 7 U|nix.  It|
|00000f40| 20 64 6f 65 73 20 6e 6f | 74 20 6d 61 6b 65 20 61 | does no|t make a|
|00000f50| 6e 79 20 61 73 73 75 6d | 70 74 69 6f 6e 73 0a 20 |ny assum|ptions. |
|00000f60| 2a 20 20 20 20 20 61 62 | 6f 75 74 20 62 79 74 65 |*     ab|out byte|
|00000f70| 20 6f 72 64 65 72 69 6e | 67 2c 20 65 78 70 6c 69 | orderin|g, expli|
|00000f80| 63 74 20 61 6e 64 27 73 | 20 61 6e 64 20 73 68 69 |ct and's| and shi|
|00000f90| 66 74 27 73 20 61 72 65 | 20 75 73 65 64 2e 0a 20 |ft's are| used.. |
|00000fa0| 2a 20 20 20 20 20 49 66 | 20 79 6f 75 20 68 61 76 |*     If| you hav|
|00000fb0| 65 20 61 20 64 75 6d 62 | 65 72 20 43 20 63 6f 6d |e a dumb|er C com|
|00000fc0| 70 69 6c 65 72 2c 20 79 | 6f 75 20 6d 61 79 20 68 |piler, y|ou may h|
|00000fd0| 61 76 65 20 74 6f 20 72 | 65 63 6f 64 65 20 6e 65 |ave to r|ecode ne|
|00000fe0| 77 20 66 65 61 74 75 72 | 65 73 0a 20 2a 20 20 20 |w featur|es. *   |
|00000ff0| 20 20 6c 69 6b 65 20 73 | 74 72 75 63 74 75 72 65 |  like s|tructure|
|00001000| 20 61 73 73 69 67 6e 6d | 65 6e 74 2c 20 74 79 70 | assignm|ent, typ|
|00001010| 65 64 65 66 27 73 20 61 | 6e 64 20 65 6e 75 6d 65 |edef's a|nd enume|
|00001020| 72 61 74 65 64 20 74 79 | 70 65 73 2e 0a 20 2a 0a |rated ty|pes.. *.|
|00001030| 20 2a 20 20 42 55 47 53 | 2f 4d 49 53 46 45 41 54 | *  BUGS|/MISFEAT|
|00001040| 55 52 45 53 0a 20 2a 20 | 20 20 20 20 54 68 65 20 |URES. * |    The |
|00001050| 62 69 67 67 65 73 74 20 | 70 72 6f 62 6c 65 6d 20 |biggest |problem |
|00001060| 69 73 20 74 65 78 74 20 | 66 69 6c 65 73 2c 20 74 |is text |files, t|
|00001070| 68 65 20 70 72 6f 67 72 | 61 6d 73 20 74 72 69 65 |he progr|ams trie|
|00001080| 73 20 74 6f 20 64 65 74 | 65 63 74 0a 20 2a 20 20 |s to det|ect. *  |
|00001090| 20 20 20 74 65 78 74 20 | 66 69 6c 65 73 20 76 73 |   text |files vs|
|000010a0| 2e 20 62 69 6e 61 72 69 | 65 73 20 62 79 20 63 68 |. binari|es by ch|
|000010b0| 65 63 6b 69 6e 67 20 66 | 6f 72 20 6e 6f 6e 2d 41 |ecking f|or non-A|
|000010c0| 73 63 69 69 20 28 38 74 | 68 20 62 69 74 20 73 65 |scii (8t|h bit se|
|000010d0| 74 29 20 63 68 61 72 73 | 2e 0a 20 2a 20 20 20 20 |t) chars|.. *    |
|000010e0| 20 49 66 20 74 68 65 20 | 66 69 6c 65 20 69 73 20 | If the |file is |
|000010f0| 74 65 78 74 20 74 68 65 | 6e 20 69 74 20 77 69 6c |text the|n it wil|
|00001100| 6c 20 74 68 72 6f 77 20 | 61 77 61 79 20 43 6f 6e |l throw |away Con|
|00001110| 74 72 6f 6c 2d 5a 20 63 | 68 61 72 73 20 77 68 69 |trol-Z c|hars whi|
|00001120| 63 68 0a 20 2a 20 20 20 | 20 20 43 50 2f 4d 20 70 |ch. *   |  CP/M p|
|00001130| 75 74 73 20 6f 6e 20 74 | 68 65 20 65 6e 64 2e 20 |uts on t|he end. |
|00001140| 20 41 6c 6c 20 66 69 6c | 65 73 20 69 6e 20 6c 69 | All fil|es in li|
|00001150| 62 72 61 72 79 20 61 72 | 65 20 70 61 64 64 65 64 |brary ar|e padded|
|00001160| 20 77 69 74 68 20 43 6f | 6e 74 72 6f 6c 2d 5a 0a | with Co|ntrol-Z.|
|00001170| 20 2a 20 20 20 20 20 61 | 74 20 74 68 65 20 65 6e | *     a|t the en|
|00001180| 64 20 74 6f 20 74 68 65 | 20 43 50 2f 4d 20 73 65 |d to the| CP/M se|
|00001190| 63 74 6f 72 20 73 69 7a | 65 20 69 66 20 6e 65 63 |ctor siz|e if nec|
|000011a0| 65 73 73 61 72 79 2e 0a | 20 2a 0a 20 2a 20 20 20 |essary..| *. *   |
|000011b0| 20 20 4e 6f 20 65 66 66 | 6f 72 74 20 69 73 20 6d |  No eff|ort is m|
|000011c0| 61 64 65 20 74 6f 20 68 | 61 6e 64 6c 65 20 74 68 |ade to h|andle th|
|000011d0| 65 20 64 69 66 66 65 72 | 65 6e 63 65 20 62 65 74 |e differ|ence bet|
|000011e0| 77 65 65 6e 20 43 50 2f | 4d 20 61 6e 64 20 55 6e |ween CP/|M and Un|
|000011f0| 69 78 0a 20 2a 20 20 20 | 20 20 65 6e 64 20 6f 66 |ix. *   |  end of|
|00001200| 20 6c 69 6e 65 20 63 68 | 61 72 73 2e 20 20 43 50 | line ch|ars.  CP|
|00001210| 2f 4d 20 75 73 65 73 20 | 43 72 2f 4c 66 20 61 6e |/M uses |Cr/Lf an|
|00001220| 64 20 55 6e 69 78 20 6a | 75 73 74 20 75 73 65 73 |d Unix j|ust uses|
|00001230| 20 4c 66 2e 0a 20 2a 20 | 20 20 20 20 54 68 65 20 | Lf.. * |    The |
|00001240| 73 6f 6c 75 74 69 6f 6e | 20 69 73 20 6a 75 73 74 |solution| is just|
|00001250| 20 74 6f 20 75 73 65 20 | 74 68 65 20 55 6e 69 78 | to use |the Unix|
|00001260| 20 63 6f 6d 6d 61 6e 64 | 20 73 65 64 20 77 68 65 | command| sed whe|
|00001270| 6e 20 6e 65 63 65 73 73 | 61 72 79 2e 0a 20 2a 0a |n necess|ary.. *.|
|00001280| 20 2a 20 20 2a 20 55 6e | 69 78 20 69 73 20 61 20 | *  * Un|ix is a |
|00001290| 74 72 61 64 65 6d 61 72 | 6b 20 6f 66 20 42 65 6c |trademar|k of Bel|
|000012a0| 6c 20 4c 61 62 73 2e 0a | 20 2a 20 20 2a 2a 20 43 |l Labs..| *  ** C|
|000012b0| 50 2f 4d 20 69 73 20 61 | 20 74 72 61 64 65 6d 61 |P/M is a| tradema|
|000012c0| 72 6b 20 6f 66 20 44 69 | 67 69 74 61 6c 20 52 65 |rk of Di|gital Re|
|000012d0| 73 65 61 72 63 68 2e 0a | 20 2a 2f 0a 0a 23 69 6e |search..| */..#in|
|000012e0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|000012f0| 23 69 6e 63 6c 75 64 65 | 20 3c 63 74 79 70 65 2e |#include| <ctype.|
|00001300| 68 3e 0a 0a 23 64 65 66 | 69 6e 65 20 41 43 54 49 |h>..#def|ine ACTI|
|00001310| 56 45 09 30 30 0a 23 64 | 65 66 69 6e 65 20 55 4e |VE.00.#d|efine UN|
|00001320| 55 53 45 44 09 30 78 66 | 66 0a 23 64 65 66 69 6e |USED.0xf|f.#defin|
|00001330| 65 20 44 45 4c 45 54 45 | 44 20 30 78 66 65 0a 23 |e DELETE|D 0xfe.#|
|00001340| 64 65 66 69 6e 65 20 43 | 54 52 4c 5a 09 30 78 31 |define C|TRLZ.0x1|
|00001350| 61 0a 0a 23 64 65 66 69 | 6e 65 20 4d 41 58 46 49 |a..#defi|ne MAXFI|
|00001360| 4c 45 53 20 32 35 36 0a | 23 64 65 66 69 6e 65 20 |LES 256.|#define |
|00001370| 53 45 43 54 4f 52 09 20 | 31 32 38 0a 23 64 65 66 |SECTOR. |128.#def|
|00001380| 69 6e 65 20 44 53 49 5a | 45 09 28 20 73 69 7a 65 |ine DSIZ|E.( size|
|00001390| 6f 66 28 73 74 72 75 63 | 74 20 6c 75 64 69 72 29 |of(struc|t ludir)|
|000013a0| 20 29 0a 23 64 65 66 69 | 6e 65 20 53 4c 4f 54 53 | ).#defi|ne SLOTS|
|000013b0| 5f 53 45 43 20 28 53 45 | 43 54 4f 52 2f 44 53 49 |_SEC (SE|CTOR/DSI|
|000013c0| 5a 45 29 0a 23 64 65 66 | 69 6e 65 20 65 71 75 61 |ZE).#def|ine equa|
|000013d0| 6c 28 73 31 2c 20 73 32 | 29 20 28 20 73 74 72 63 |l(s1, s2|) ( strc|
|000013e0| 6d 70 28 73 31 2c 73 32 | 29 20 3d 3d 20 30 20 29 |mp(s1,s2|) == 0 )|
|000013f0| 0a 2f 2a 20 69 66 20 79 | 6f 75 20 64 6f 6e 27 74 |./* if y|ou don't|
|00001400| 20 68 61 76 65 20 76 6f | 69 64 20 74 79 70 65 20 | have vo|id type |
|00001410| 6a 75 73 74 20 64 65 66 | 69 6e 65 20 61 73 20 62 |just def|ine as b|
|00001420| 6c 61 6e 6b 20 2a 2f 0a | 23 64 65 66 69 6e 65 20 |lank */.|#define |
|00001430| 56 4f 49 44 09 28 76 6f | 69 64 29 0a 0a 2f 2a 20 |VOID.(vo|id)../* |
|00001440| 69 66 20 6e 6f 20 65 6e | 75 6d 27 73 20 74 68 65 |if no en|um's the|
|00001450| 6e 20 64 65 66 69 6e 65 | 20 66 61 6c 73 65 20 61 |n define| false a|
|00001460| 73 20 30 20 61 6e 64 20 | 74 72 75 65 20 61 73 20 |s 0 and |true as |
|00001470| 31 20 61 6e 64 20 62 6f | 6f 6c 20 61 73 20 69 6e |1 and bo|ol as in|
|00001480| 74 20 2a 2f 0a 74 79 70 | 65 64 65 66 20 65 6e 75 |t */.typ|edef enu|
|00001490| 6d 20 7b 66 61 6c 73 65 | 3d 30 2c 20 74 72 75 65 |m {false|=0, true|
|000014a0| 3d 31 7d 20 62 6f 6f 6c | 3b 0a 0a 2f 2a 20 47 6c |=1} bool|;../* Gl|
|000014b0| 6f 62 61 6c 73 20 2a 2f | 0a 63 68 61 72 20 20 20 |obals */|.char   |
|000014c0| 2a 66 6e 61 6d 65 5b 4d | 41 58 46 49 4c 45 53 5d |*fname[M|AXFILES]|
|000014d0| 3b 0a 62 6f 6f 6c 20 66 | 74 6f 75 63 68 65 64 5b |;.bool f|touched[|
|000014e0| 4d 41 58 46 49 4c 45 53 | 5d 3b 0a 0a 74 79 70 65 |MAXFILES|];..type|
|000014f0| 64 65 66 20 73 74 72 75 | 63 74 20 7b 0a 20 20 20 |def stru|ct {.   |
|00001500| 20 75 6e 73 69 67 6e 65 | 64 20 63 68 61 72 20 20 | unsigne|d char  |
|00001510| 20 6c 6f 62 79 74 65 3b | 0a 20 20 20 20 75 6e 73 | lobyte;|.    uns|
|00001520| 69 67 6e 65 64 20 63 68 | 61 72 20 20 20 68 69 62 |igned ch|ar   hib|
|00001530| 79 74 65 3b 0a 7d 20 77 | 6f 72 64 3b 0a 0a 2f 2a |yte;.} w|ord;../*|
|00001540| 20 63 6f 6e 76 65 72 74 | 20 77 6f 72 64 20 74 6f | convert| word to|
|00001550| 20 69 6e 74 20 2a 2f 0a | 23 64 65 66 69 6e 65 20 | int */.|#define |
|00001560| 77 74 6f 69 28 77 29 20 | 28 20 28 77 2e 68 69 62 |wtoi(w) |( (w.hib|
|00001570| 79 74 65 3c 3c 38 29 20 | 2b 20 77 2e 6c 6f 62 79 |yte<<8) |+ w.loby|
|00001580| 74 65 29 0a 23 64 65 66 | 69 6e 65 20 69 74 6f 77 |te).#def|ine itow|
|00001590| 28 64 73 74 2c 73 72 63 | 29 09 64 73 74 2e 68 69 |(dst,src|).dst.hi|
|000015a0| 62 79 74 65 20 3d 20 28 | 73 72 63 20 26 20 30 78 |byte = (|src & 0x|
|000015b0| 66 66 30 30 29 20 3e 3e | 20 38 3b 5c 0a 09 09 09 |ff00) >>| 8;\....|
|000015c0| 09 64 73 74 2e 6c 6f 62 | 79 74 65 20 3d 20 73 72 |.dst.lob|yte = sr|
|000015d0| 63 20 26 20 30 78 66 66 | 3b 0a 0a 73 74 72 75 63 |c & 0xff|;..struc|
|000015e0| 74 20 6c 75 64 69 72 20 | 7b 09 09 09 2f 2a 20 49 |t ludir |{.../* I|
|000015f0| 6e 74 65 72 6e 61 6c 20 | 6c 69 62 72 61 72 79 20 |nternal |library |
|00001600| 6c 64 69 72 20 73 74 72 | 75 63 74 75 72 65 20 2a |ldir str|ucture *|
|00001610| 2f 0a 20 20 20 20 75 6e | 73 69 67 6e 65 64 20 63 |/.    un|signed c|
|00001620| 68 61 72 20 20 20 6c 5f | 73 74 61 74 3b 09 2f 2a |har   l_|stat;./*|
|00001630| 20 20 73 74 61 74 75 73 | 20 6f 66 20 66 69 6c 65 |  status| of file|
|00001640| 20 2a 2f 0a 20 20 20 20 | 63 68 61 72 20 20 20 20 | */.    |char    |
|00001650| 6c 5f 6e 61 6d 65 5b 38 | 5d 3b 09 09 2f 2a 20 20 |l_name[8|];../*  |
|00001660| 6e 61 6d 65 20 2a 2f 0a | 20 20 20 20 63 68 61 72 |name */.|    char|
|00001670| 20 20 20 20 6c 5f 65 78 | 74 5b 33 5d 3b 09 09 2f |    l_ex|t[3];../|
|00001680| 2a 20 20 65 78 74 65 6e | 73 69 6f 6e 20 2a 2f 0a |*  exten|sion */.|
|00001690| 20 20 20 20 77 6f 72 64 | 20 20 20 20 6c 5f 6f 66 |    word|    l_of|
|000016a0| 66 3b 09 09 2f 2a 20 20 | 6f 66 66 73 65 74 20 69 |f;../*  |offset i|
|000016b0| 6e 20 6c 69 62 72 61 72 | 79 20 2a 2f 0a 20 20 20 |n librar|y */.   |
|000016c0| 20 77 6f 72 64 20 20 20 | 20 6c 5f 6c 65 6e 3b 09 | word   | l_len;.|
|000016d0| 09 2f 2a 20 20 6c 65 6e | 67 74 79 20 6f 66 20 66 |./*  len|gty of f|
|000016e0| 69 6c 65 20 2a 2f 0a 20 | 20 20 20 63 68 61 72 20 |ile */. |   char |
|000016f0| 20 20 20 6c 5f 66 69 6c | 6c 5b 31 36 5d 3b 09 09 |   l_fil|l[16];..|
|00001700| 2f 2a 20 20 70 61 64 20 | 74 6f 20 33 32 20 62 79 |/*  pad |to 32 by|
|00001710| 74 65 73 20 2a 2f 0a 7d | 20 6c 64 69 72 5b 4d 41 |tes */.}| ldir[MA|
|00001720| 58 46 49 4c 45 53 5d 3b | 0a 0a 69 6e 74 20 20 20 |XFILES];|..int   |
|00001730| 20 20 65 72 72 63 6e 74 | 2c 20 6e 66 69 6c 65 73 |  errcnt|, nfiles|
|00001740| 2c 20 6e 73 6c 6f 74 73 | 3b 0a 62 6f 6f 6c 09 76 |, nslots|;.bool.v|
|00001750| 65 72 62 6f 73 65 20 3d | 20 66 61 6c 73 65 3b 0a |erbose =| false;.|
|00001760| 63 68 61 72 09 2a 63 6d | 64 6e 61 6d 65 3b 0a 0a |char.*cm|dname;..|
|00001770| 63 68 61 72 20 20 20 2a | 67 65 74 6e 61 6d 65 28 |char   *|getname(|
|00001780| 29 2c 20 2a 73 70 72 69 | 6e 74 66 28 29 3b 0a 69 |), *spri|ntf();.i|
|00001790| 6e 74 09 75 70 64 61 74 | 65 28 29 2c 20 72 65 6f |nt.updat|e(), reo|
|000017a0| 72 67 28 29 2c 20 74 61 | 62 6c 65 28 29 2c 20 65 |rg(), ta|ble(), e|
|000017b0| 78 74 72 61 63 74 28 29 | 2c 20 70 72 69 6e 74 28 |xtract()|, print(|
|000017c0| 29 2c 20 64 65 6c 65 74 | 65 28 29 3b 0a 0a 6d 61 |), delet|e();..ma|
|000017d0| 69 6e 20 28 61 72 67 63 | 2c 20 61 72 67 76 29 0a |in (argc|, argv).|
|000017e0| 69 6e 74 09 61 72 67 63 | 3b 0a 63 68 61 72 20 20 |int.argc|;.char  |
|000017f0| 2a 2a 61 72 67 76 3b 0a | 7b 0a 20 20 20 20 72 65 |**argv;.|{.    re|
|00001800| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 66 6c 61 |gister c|har *fla|
|00001810| 67 70 3b 0a 20 20 20 20 | 63 68 61 72 20 20 20 2a |gp;.    |char   *|
|00001820| 61 6e 61 6d 65 3b 09 09 | 09 2f 2a 20 6e 61 6d 65 |aname;..|./* name|
|00001830| 20 6f 66 20 6c 69 62 72 | 61 72 79 20 66 69 6c 65 | of libr|ary file|
|00001840| 20 2a 2f 0a 20 20 20 20 | 69 6e 74 09 20 20 20 28 | */.    |int.   (|
|00001850| 2a 66 75 6e 63 74 69 6f | 6e 29 28 29 20 3d 20 4e |*functio|n)() = N|
|00001860| 55 4c 4c 3b 09 2f 2a 20 | 66 75 6e 63 74 69 6f 6e |ULL;./* |function|
|00001870| 20 74 6f 20 64 6f 20 6f | 6e 20 6c 69 62 72 61 72 | to do o|n librar|
|00001880| 79 20 2a 2f 0a 2f 2a 20 | 73 65 74 20 74 68 65 20 |y */./* |set the |
|00001890| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 62 65 20 70 |function| to be p|
|000018a0| 65 72 66 6f 72 6d 65 64 | 2c 20 62 75 74 20 64 65 |erformed|, but de|
|000018b0| 74 65 63 74 20 63 6f 6e | 66 6c 69 63 74 73 20 2a |tect con|flicts *|
|000018c0| 2f 0a 23 64 65 66 69 6e | 65 20 73 65 74 66 75 6e |/.#defin|e setfun|
|000018d0| 63 28 76 61 6c 29 09 69 | 66 28 66 75 6e 63 74 69 |c(val).i|f(functi|
|000018e0| 6f 6e 20 21 3d 20 4e 55 | 4c 4c 29 20 63 6f 6e 66 |on != NU|LL) conf|
|000018f0| 6c 69 63 74 28 29 3b 20 | 65 6c 73 65 20 66 75 6e |lict(); |else fun|
|00001900| 63 74 69 6f 6e 20 3d 20 | 76 61 6c 0a 0a 20 20 20 |ction = |val..   |
|00001910| 20 63 6d 64 6e 61 6d 65 | 20 3d 20 61 72 67 76 5b | cmdname| = argv[|
|00001920| 30 5d 3b 0a 20 20 20 20 | 69 66 20 28 61 72 67 63 |0];.    |if (argc|
|00001930| 20 3c 20 33 29 0a 09 68 | 65 6c 70 20 28 29 3b 0a | < 3)..h|elp ();.|
|00001940| 0a 20 20 20 20 61 6e 61 | 6d 65 20 3d 20 61 72 67 |.    ana|me = arg|
|00001950| 76 5b 32 5d 3b 0a 20 20 | 20 20 66 69 6c 65 6e 61 |v[2];.  |  filena|
|00001960| 6d 65 73 20 28 61 72 67 | 63 2c 20 61 72 67 76 29 |mes (arg|c, argv)|
|00001970| 3b 0a 0a 20 20 20 20 66 | 6f 72 28 66 6c 61 67 70 |;..    f|or(flagp|
|00001980| 20 3d 20 61 72 67 76 5b | 31 5d 3b 20 2a 66 6c 61 | = argv[|1]; *fla|
|00001990| 67 70 3b 20 66 6c 61 67 | 70 2b 2b 29 0a 09 73 77 |gp; flag|p++)..sw|
|000019a0| 69 74 63 68 20 28 2a 66 | 6c 61 67 70 29 20 7b 0a |itch (*f|lagp) {.|
|000019b0| 09 63 61 73 65 20 27 2d | 27 3a 0a 09 09 62 72 65 |.case '-|':...bre|
|000019c0| 61 6b 3b 0a 09 63 61 73 | 65 20 27 75 27 3a 20 0a |ak;..cas|e 'u': .|
|000019d0| 09 20 20 20 20 73 65 74 | 66 75 6e 63 28 75 70 64 |.    set|func(upd|
|000019e0| 61 74 65 29 3b 0a 09 20 | 20 20 20 62 72 65 61 6b |ate);.. |   break|
|000019f0| 3b 0a 09 63 61 73 65 20 | 27 74 27 3a 20 0a 09 20 |;..case |'t': .. |
|00001a00| 20 20 20 73 65 74 66 75 | 6e 63 28 74 61 62 6c 65 |   setfu|nc(table|
|00001a10| 29 3b 0a 09 20 20 20 20 | 62 72 65 61 6b 3b 0a 09 |);..    |break;..|
|00001a20| 63 61 73 65 20 27 65 27 | 3a 20 0a 09 20 20 20 20 |case 'e'|: ..    |
|00001a30| 73 65 74 66 75 6e 63 28 | 65 78 74 72 61 63 74 29 |setfunc(|extract)|
|00001a40| 3b 0a 09 20 20 20 20 62 | 72 65 61 6b 3b 0a 09 63 |;..    b|reak;..c|
|00001a50| 61 73 65 20 27 70 27 3a | 20 0a 09 20 20 20 20 73 |ase 'p':| ..    s|
|00001a60| 65 74 66 75 6e 63 28 70 | 72 69 6e 74 29 3b 0a 09 |etfunc(p|rint);..|
|00001a70| 20 20 20 20 62 72 65 61 | 6b 3b 0a 09 63 61 73 65 |    brea|k;..case|
|00001a80| 20 27 64 27 3a 20 0a 09 | 20 20 20 20 73 65 74 66 | 'd': ..|    setf|
|00001a90| 75 6e 63 28 64 65 6c 65 | 74 65 29 3b 0a 09 20 20 |unc(dele|te);..  |
|00001aa0| 20 20 62 72 65 61 6b 3b | 0a 09 63 61 73 65 20 27 |  break;|..case '|
|00001ab0| 72 27 3a 20 0a 09 20 20 | 20 20 73 65 74 66 75 6e |r': ..  |  setfun|
|00001ac0| 63 28 72 65 6f 72 67 29 | 3b 0a 09 20 20 20 20 62 |c(reorg)|;..    b|
|00001ad0| 72 65 61 6b 3b 0a 09 63 | 61 73 65 20 27 76 27 3a |reak;..c|ase 'v':|
|00001ae0| 0a 09 20 20 20 20 76 65 | 72 62 6f 73 65 20 3d 20 |..    ve|rbose = |
|00001af0| 74 72 75 65 3b 0a 09 20 | 20 20 20 62 72 65 61 6b |true;.. |   break|
|00001b00| 3b 0a 09 64 65 66 61 75 | 6c 74 3a 20 0a 09 20 20 |;..defau|lt: ..  |
|00001b10| 20 20 68 65 6c 70 20 28 | 29 3b 0a 20 20 20 20 7d |  help (|);.    }|
|00001b20| 0a 0a 20 20 20 20 69 66 | 28 66 75 6e 63 74 69 6f |..    if|(functio|
|00001b30| 6e 20 3d 3d 20 4e 55 4c | 4c 29 20 7b 0a 09 66 70 |n == NUL|L) {..fp|
|00001b40| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 22 4e 6f |rintf(st|derr,"No|
|00001b50| 20 66 75 6e 63 74 69 6f | 6e 20 6b 65 79 20 6c 65 | functio|n key le|
|00001b60| 74 74 65 72 20 73 70 65 | 63 69 66 69 65 64 5c 6e |tter spe|cified\n|
|00001b70| 22 29 3b 0a 09 68 65 6c | 70 28 29 3b 0a 20 20 20 |");..hel|p();.   |
|00001b80| 20 7d 0a 0a 20 20 20 20 | 28 2a 66 75 6e 63 74 69 | }..    |(*functi|
|00001b90| 6f 6e 29 28 61 6e 61 6d | 65 29 3b 0a 7d 0a 0a 2f |on)(anam|e);.}../|
|00001ba0| 2a 20 70 72 69 6e 74 20 | 65 72 72 6f 72 20 6d 65 |* print |error me|
|00001bb0| 73 73 61 67 65 20 61 6e | 64 20 65 78 69 74 20 2a |ssage an|d exit *|
|00001bc0| 2f 0a 68 65 6c 70 20 28 | 29 20 7b 0a 20 20 20 20 |/.help (|) {.    |
|00001bd0| 66 70 72 69 6e 74 66 20 | 28 73 74 64 65 72 72 2c |fprintf |(stderr,|
|00001be0| 20 22 55 73 61 67 65 3a | 20 25 73 20 7b 75 74 65 | "Usage:| %s {ute|
|00001bf0| 70 64 72 7d 5b 76 5d 20 | 6c 69 62 72 61 72 79 20 |pdr}[v] |library |
|00001c00| 5b 66 69 6c 65 73 5d 20 | 2e 2e 2e 5c 6e 22 2c 20 |[files] |...\n", |
|00001c10| 63 6d 64 6e 61 6d 65 29 | 3b 0a 20 20 20 20 66 70 |cmdname)|;.    fp|
|00001c20| 72 69 6e 74 66 20 28 73 | 74 64 65 72 72 2c 20 22 |rintf (s|tderr, "|
|00001c30| 46 75 6e 63 74 69 6f 6e | 73 20 61 72 65 3a 5c 6e |Function|s are:\n|
|00001c40| 5c 74 75 20 2d 20 55 70 | 64 61 74 65 2c 20 61 64 |\tu - Up|date, ad|
|00001c50| 64 20 66 69 6c 65 73 20 | 74 6f 20 6c 69 62 72 61 |d files |to libra|
|00001c60| 72 79 5c 6e 22 29 3b 0a | 20 20 20 20 66 70 72 69 |ry\n");.|    fpri|
|00001c70| 6e 74 66 20 28 73 74 64 | 65 72 72 2c 20 22 5c 74 |ntf (std|err, "\t|
|00001c80| 74 20 2d 20 54 61 62 6c | 65 20 6f 66 20 63 6f 6e |t - Tabl|e of con|
|00001c90| 74 65 6e 74 73 5c 6e 22 | 29 3b 0a 20 20 20 20 66 |tents\n"|);.    f|
|00001ca0| 70 72 69 6e 74 66 20 28 | 73 74 64 65 72 72 2c 20 |printf (|stderr, |
|00001cb0| 22 5c 74 65 20 2d 20 45 | 78 74 72 61 63 74 20 66 |"\te - E|xtract f|
|00001cc0| 69 6c 65 73 20 66 72 6f | 6d 20 6c 69 62 72 61 72 |iles fro|m librar|
|00001cd0| 79 5c 6e 22 29 3b 0a 20 | 20 20 20 66 70 72 69 6e |y\n");. |   fprin|
|00001ce0| 74 66 20 28 73 74 64 65 | 72 72 2c 20 22 5c 74 70 |tf (stde|rr, "\tp|
|00001cf0| 20 2d 20 50 72 69 6e 74 | 20 66 69 6c 65 73 20 69 | - Print| files i|
|00001d00| 6e 20 6c 69 62 72 61 72 | 79 5c 6e 22 29 3b 0a 20 |n librar|y\n");. |
|00001d10| 20 20 20 66 70 72 69 6e | 74 66 20 28 73 74 64 65 |   fprin|tf (stde|
|00001d20| 72 72 2c 20 22 5c 74 64 | 20 2d 20 44 65 6c 65 74 |rr, "\td| - Delet|
|00001d30| 65 20 66 69 6c 65 73 20 | 69 6e 20 6c 69 62 72 61 |e files |in libra|
|00001d40| 72 79 5c 6e 22 29 3b 0a | 20 20 20 20 66 70 72 69 |ry\n");.|    fpri|
|00001d50| 6e 74 66 20 28 73 74 64 | 65 72 72 2c 20 22 5c 74 |ntf (std|err, "\t|
|00001d60| 72 20 2d 20 52 65 6f 72 | 67 69 6e 69 7a 65 20 6c |r - Reor|ginize l|
|00001d70| 69 62 72 61 72 79 5c 6e | 22 29 3b 0a 0a 20 20 20 |ibrary\n|");..   |
|00001d80| 20 66 70 72 69 6e 74 66 | 20 28 73 74 64 65 72 72 | fprintf| (stderr|
|00001d90| 2c 20 22 46 6c 61 67 73 | 20 61 72 65 3a 5c 6e 5c |, "Flags| are:\n\|
|00001da0| 74 76 20 2d 20 56 65 72 | 62 6f 73 65 5c 6e 22 29 |tv - Ver|bose\n")|
|00001db0| 3b 0a 20 20 20 20 65 78 | 69 74 20 28 31 29 3b 0a |;.    ex|it (1);.|
|00001dc0| 7d 0a 0a 63 6f 6e 66 6c | 69 63 74 28 29 20 7b 0a |}..confl|ict() {.|
|00001dd0| 20 20 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |   fprin|tf(stder|
|00001de0| 72 2c 22 43 6f 6e 66 69 | 63 74 69 6e 67 20 6b 65 |r,"Confi|cting ke|
|00001df0| 79 73 5c 6e 22 29 3b 0a | 20 20 20 68 65 6c 70 28 |ys\n");.|   help(|
|00001e00| 29 3b 0a 7d 0a 0a 65 72 | 72 6f 72 20 28 73 74 72 |);.}..er|ror (str|
|00001e10| 29 0a 63 68 61 72 20 20 | 20 2a 73 74 72 3b 0a 7b |).char  | *str;.{|
|00001e20| 0a 20 20 20 20 66 70 72 | 69 6e 74 66 20 28 73 74 |.    fpr|intf (st|
|00001e30| 64 65 72 72 2c 20 22 25 | 73 3a 20 25 73 5c 6e 22 |derr, "%|s: %s\n"|
|00001e40| 2c 20 63 6d 64 6e 61 6d | 65 2c 20 73 74 72 29 3b |, cmdnam|e, str);|
|00001e50| 0a 20 20 20 20 65 78 69 | 74 20 28 31 29 3b 0a 7d |.    exi|t (1);.}|
|00001e60| 0a 0a 63 61 6e 74 20 28 | 6e 61 6d 65 29 0a 63 68 |..cant (|name).ch|
|00001e70| 61 72 20 20 20 2a 6e 61 | 6d 65 3b 0a 7b 0a 20 20 |ar   *na|me;.{.  |
|00001e80| 20 20 65 78 74 65 72 6e | 20 69 6e 74 20 20 65 72 |  extern| int  er|
|00001e90| 72 6e 6f 3b 0a 20 20 20 | 20 65 78 74 65 72 6e 20 |rno;.   | extern |
|00001ea0| 63 68 61 72 20 2a 73 79 | 73 5f 65 72 72 6c 69 73 |char *sy|s_errlis|
|00001eb0| 74 5b 5d 3b 0a 0a 20 20 | 20 20 66 70 72 69 6e 74 |t[];..  |  fprint|
|00001ec0| 66 20 28 73 74 64 65 72 | 72 2c 20 22 25 73 3a 20 |f (stder|r, "%s: |
|00001ed0| 25 73 5c 6e 22 2c 20 6e | 61 6d 65 2c 20 73 79 73 |%s\n", n|ame, sys|
|00001ee0| 5f 65 72 72 6c 69 73 74 | 5b 65 72 72 6e 6f 5d 29 |_errlist|[errno])|
|00001ef0| 3b 0a 20 20 20 20 65 78 | 69 74 20 28 31 29 3b 0a |;.    ex|it (1);.|
|00001f00| 7d 0a 0a 2f 2a 20 47 65 | 74 20 66 69 6c 65 20 6e |}../* Ge|t file n|
|00001f10| 61 6d 65 73 2c 20 63 68 | 65 63 6b 20 66 6f 72 20 |ames, ch|eck for |
|00001f20| 64 75 70 73 2c 20 61 6e | 64 20 69 6e 69 74 69 61 |dups, an|d initia|
|00001f30| 6c 69 7a 65 20 2a 2f 0a | 66 69 6c 65 6e 61 6d 65 |lize */.|filename|
|00001f40| 73 20 28 61 63 2c 20 61 | 76 29 0a 63 68 61 72 20 |s (ac, a|v).char |
|00001f50| 20 2a 2a 61 76 3b 0a 7b | 0a 20 20 20 20 72 65 67 | **av;.{|.    reg|
|00001f60| 69 73 74 65 72 20 69 6e | 74 20 20 20 20 69 2c 20 |ister in|t    i, |
|00001f70| 6a 3b 0a 0a 20 20 20 20 | 65 72 72 63 6e 74 20 3d |j;..    |errcnt =|
|00001f80| 20 30 3b 0a 20 20 20 20 | 66 6f 72 20 28 69 20 3d | 0;.    |for (i =|
|00001f90| 20 30 3b 20 69 20 3c 20 | 61 63 20 2d 20 33 3b 20 | 0; i < |ac - 3; |
|00001fa0| 69 2b 2b 29 20 7b 0a 09 | 66 6e 61 6d 65 5b 69 5d |i++) {..|fname[i]|
|00001fb0| 20 3d 20 61 76 5b 69 20 | 2b 20 33 5d 3b 0a 09 66 | = av[i |+ 3];..f|
|00001fc0| 74 6f 75 63 68 65 64 5b | 69 5d 20 3d 20 66 61 6c |touched[|i] = fal|
|00001fd0| 73 65 3b 0a 09 69 66 20 | 28 69 20 3d 3d 20 4d 41 |se;..if |(i == MA|
|00001fe0| 58 46 49 4c 45 53 29 0a | 09 20 20 20 20 65 72 72 |XFILES).|.    err|
|00001ff0| 6f 72 20 28 22 54 6f 6f | 20 6d 61 6e 79 20 66 69 |or ("Too| many fi|
|00002000| 6c 65 20 6e 61 6d 65 73 | 2e 22 29 3b 0a 20 20 20 |le names|.");.   |
|00002010| 20 7d 0a 20 20 20 20 66 | 6e 61 6d 65 5b 69 5d 20 | }.    f|name[i] |
|00002020| 3d 20 4e 55 4c 4c 3b 0a | 20 20 20 20 6e 66 69 6c |= NULL;.|    nfil|
|00002030| 65 73 20 3d 20 69 3b 0a | 20 20 20 20 66 6f 72 20 |es = i;.|    for |
|00002040| 28 69 20 3d 20 30 3b 20 | 69 20 3c 20 6e 66 69 6c |(i = 0; |i < nfil|
|00002050| 65 73 3b 20 69 2b 2b 29 | 0a 09 66 6f 72 20 28 6a |es; i++)|..for (j|
|00002060| 20 3d 20 69 20 2b 20 31 | 3b 20 6a 20 3c 20 6e 66 | = i + 1|; j < nf|
|00002070| 69 6c 65 73 3b 20 6a 2b | 2b 29 0a 09 20 20 20 20 |iles; j+|+)..    |
|00002080| 69 66 20 28 65 71 75 61 | 6c 20 28 66 6e 61 6d 65 |if (equa|l (fname|
|00002090| 5b 69 5d 2c 20 66 6e 61 | 6d 65 5b 6a 5d 29 29 20 |[i], fna|me[j])) |
|000020a0| 7b 0a 09 09 66 70 72 69 | 6e 74 66 20 28 73 74 64 |{...fpri|ntf (std|
|000020b0| 65 72 72 2c 20 22 25 73 | 22 2c 20 66 6e 61 6d 65 |err, "%s|", fname|
|000020c0| 5b 69 5d 29 3b 0a 09 09 | 65 72 72 6f 72 20 28 22 |[i]);...|error ("|
|000020d0| 3a 20 64 75 70 6c 69 63 | 61 74 65 20 66 69 6c 65 |: duplic|ate file|
|000020e0| 20 6e 61 6d 65 22 29 3b | 0a 09 20 20 20 20 7d 0a | name");|..    }.|
|000020f0| 7d 0a 0a 74 61 62 6c 65 | 20 28 6c 69 62 29 0a 63 |}..table| (lib).c|
|00002100| 68 61 72 20 20 20 2a 6c | 69 62 3b 0a 7b 0a 20 20 |har   *l|ib;.{.  |
|00002110| 20 20 46 49 4c 45 20 20 | 20 2a 6c 66 64 3b 0a 20 |  FILE  | *lfd;. |
|00002120| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |   regis|ter int |
|00002130| 20 20 20 69 2c 20 74 6f | 74 61 6c 3b 0a 20 20 20 |   i, to|tal;.   |
|00002140| 20 69 6e 74 20 61 63 74 | 69 76 65 20 3d 20 30 2c | int act|ive = 0,|
|00002150| 20 75 6e 75 73 65 64 20 | 3d 20 30 2c 20 64 65 6c | unused |= 0, del|
|00002160| 65 74 65 64 20 3d 20 30 | 3b 0a 20 20 20 20 63 68 |eted = 0|;.    ch|
|00002170| 61 72 20 2a 75 6e 61 6d | 65 3b 0a 0a 20 20 20 20 |ar *unam|e;..    |
|00002180| 69 66 20 28 28 6c 66 64 | 20 3d 20 66 6f 70 65 6e |if ((lfd| = fopen|
|00002190| 20 28 6c 69 62 2c 20 22 | 72 22 29 29 20 3d 3d 20 | (lib, "|r")) == |
|000021a0| 4e 55 4c 4c 29 0a 09 63 | 61 6e 74 20 28 6c 69 62 |NULL)..c|ant (lib|
|000021b0| 29 3b 0a 0a 20 20 20 20 | 67 65 74 64 69 72 20 28 |);..    |getdir (|
|000021c0| 6c 66 64 29 3b 0a 20 20 | 20 20 74 6f 74 61 6c 20 |lfd);.  |  total |
|000021d0| 3d 20 77 74 6f 69 28 6c | 64 69 72 5b 30 5d 2e 6c |= wtoi(l|dir[0].l|
|000021e0| 5f 6c 65 6e 29 3b 0a 20 | 20 20 20 69 66 28 76 65 |_len);. |   if(ve|
|000021f0| 72 62 6f 73 65 29 20 7b | 0a 20 09 70 72 69 6e 74 |rbose) {|. .print|
|00002200| 66 28 22 4e 61 6d 65 20 | 20 20 20 20 20 20 20 20 |f("Name |        |
|00002210| 20 49 6e 64 65 78 20 4c | 65 6e 67 74 68 5c 6e 22 | Index L|ength\n"|
|00002220| 29 3b 0a 09 70 72 69 6e | 74 66 28 22 44 69 72 65 |);..prin|tf("Dire|
|00002230| 63 74 6f 72 79 20 20 20 | 20 20 20 20 20 20 20 20 |ctory   |        |
|00002240| 25 34 64 5c 6e 22 2c 20 | 74 6f 74 61 6c 29 3b 0a |%4d\n", |total);.|
|00002250| 20 20 20 20 7d 0a 0a 20 | 20 20 20 66 6f 72 20 28 |    }.. |   for (|
|00002260| 69 20 3d 20 31 3b 20 69 | 20 3c 20 6e 73 6c 6f 74 |i = 1; i| < nslot|
|00002270| 73 3b 20 69 2b 2b 29 0a | 09 73 77 69 74 63 68 28 |s; i++).|.switch(|
|00002280| 6c 64 69 72 5b 69 5d 2e | 6c 5f 73 74 61 74 29 20 |ldir[i].|l_stat) |
|00002290| 7b 0a 09 63 61 73 65 20 | 41 43 54 49 56 45 3a 0a |{..case |ACTIVE:.|
|000022a0| 09 09 61 63 74 69 76 65 | 2b 2b 3b 0a 09 09 75 6e |..active|++;...un|
|000022b0| 61 6d 65 20 3d 20 67 65 | 74 6e 61 6d 65 28 6c 64 |ame = ge|tname(ld|
|000022c0| 69 72 5b 69 5d 2e 6c 5f | 6e 61 6d 65 2c 20 6c 64 |ir[i].l_|name, ld|
|000022d0| 69 72 5b 69 5d 2e 6c 5f | 65 78 74 29 3b 0a 09 09 |ir[i].l_|ext);...|
|000022e0| 69 66 20 28 66 69 6c 61 | 72 67 20 28 75 6e 61 6d |if (fila|rg (unam|
|000022f0| 65 29 29 0a 09 09 20 20 | 20 20 69 66 28 76 65 72 |e))...  |  if(ver|
|00002300| 62 6f 73 65 29 0a 09 09 | 09 70 72 69 6e 74 66 20 |bose)...|.printf |
|00002310| 28 22 25 2d 31 32 73 20 | 20 20 25 34 64 20 25 34 |("%-12s |  %4d %4|
|00002320| 64 5c 6e 22 2c 20 75 6e | 61 6d 65 2c 0a 09 09 09 |d\n", un|ame,....|
|00002330| 20 20 20 20 77 74 6f 69 | 20 28 6c 64 69 72 5b 69 |    wtoi| (ldir[i|
|00002340| 5d 2e 6c 5f 6f 66 66 29 | 2c 20 77 74 6f 69 20 28 |].l_off)|, wtoi (|
|00002350| 6c 64 69 72 5b 69 5d 2e | 6c 5f 6c 65 6e 29 29 3b |ldir[i].|l_len));|
|00002360| 0a 09 09 20 20 20 20 65 | 6c 73 65 0a 09 09 09 70 |...    e|lse....p|
|00002370| 72 69 6e 74 66 20 28 22 | 25 73 5c 6e 22 2c 20 75 |rintf ("|%s\n", u|
|00002380| 6e 61 6d 65 29 3b 0a 09 | 09 74 6f 74 61 6c 20 2b |name);..|.total +|
|00002390| 3d 20 77 74 6f 69 28 6c | 64 69 72 5b 69 5d 2e 6c |= wtoi(l|dir[i].l|
|000023a0| 5f 6c 65 6e 29 3b 0a 09 | 09 62 72 65 61 6b 3b 0a |_len);..|.break;.|
|000023b0| 09 63 61 73 65 20 55 4e | 55 53 45 44 3a 0a 09 09 |.case UN|USED:...|
|000023c0| 75 6e 75 73 65 64 2b 2b | 3b 0a 09 09 62 72 65 61 |unused++|;...brea|
|000023d0| 6b 3b 0a 09 64 65 66 61 | 75 6c 74 3a 0a 09 09 64 |k;..defa|ult:...d|
|000023e0| 65 6c 65 74 65 64 2b 2b | 3b 0a 09 7d 0a 20 20 20 |eleted++|;..}.   |
|000023f0| 20 69 66 28 76 65 72 62 | 6f 73 65 29 20 7b 0a 09 | if(verb|ose) {..|
|00002400| 70 72 69 6e 74 66 28 22 | 2d 2d 2d 2d 2d 2d 2d 2d |printf("|--------|
|00002410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002420| 2d 2d 5c 6e 22 29 3b 0a | 09 70 72 69 6e 74 66 28 |--\n");.|.printf(|
|00002430| 22 54 6f 74 61 6c 20 73 | 65 63 74 6f 72 73 20 20 |"Total s|ectors  |
|00002440| 20 20 20 20 20 25 34 64 | 5c 6e 22 2c 20 74 6f 74 |     %4d|\n", tot|
|00002450| 61 6c 29 3b 0a 09 70 72 | 69 6e 74 66 28 22 5c 6e |al);..pr|intf("\n|
|00002460| 4c 69 62 72 61 72 79 20 | 25 73 20 68 61 73 20 25 |Library |%s has %|
|00002470| 64 20 73 6c 6f 74 73 2c | 20 25 64 20 64 65 6c 65 |d slots,| %d dele|
|00002480| 74 65 64 20 25 64 20 61 | 63 74 69 76 65 2c 20 25 |ted %d a|ctive, %|
|00002490| 64 20 75 6e 75 73 65 64 | 5c 6e 22 2c 0a 09 09 6c |d unused|\n",...l|
|000024a0| 69 62 2c 20 6e 73 6c 6f | 74 73 2c 20 64 65 6c 65 |ib, nslo|ts, dele|
|000024b0| 74 65 64 2c 20 61 63 74 | 69 76 65 2c 20 75 6e 75 |ted, act|ive, unu|
|000024c0| 73 65 64 29 3b 0a 20 20 | 20 20 7d 0a 0a 20 20 20 |sed);.  |  }..   |
|000024d0| 20 56 4f 49 44 20 66 63 | 6c 6f 73 65 20 28 6c 66 | VOID fc|lose (lf|
|000024e0| 64 29 3b 0a 20 20 20 20 | 6e 6f 74 5f 66 6f 75 6e |d);.    |not_foun|
|000024f0| 64 20 28 29 3b 0a 7d 0a | 0a 67 65 74 64 69 72 20 |d ();.}.|.getdir |
|00002500| 28 66 29 0a 46 49 4c 45 | 20 2a 66 3b 0a 7b 0a 0a |(f).FILE| *f;.{..|
|00002510| 20 20 20 20 72 65 77 69 | 6e 64 28 66 29 3b 0a 0a |    rewi|nd(f);..|
|00002520| 20 20 20 20 69 66 20 28 | 66 72 65 61 64 20 28 28 |    if (|fread ((|
|00002530| 63 68 61 72 20 2a 29 20 | 26 20 6c 64 69 72 5b 30 |char *) |& ldir[0|
|00002540| 5d 2c 20 44 53 49 5a 45 | 2c 20 31 2c 20 66 29 20 |], DSIZE|, 1, f) |
|00002550| 21 3d 20 31 29 0a 09 65 | 72 72 6f 72 20 28 22 4e |!= 1)..e|rror ("N|
|00002560| 6f 20 64 69 72 65 63 74 | 6f 72 79 5c 6e 22 29 3b |o direct|ory\n");|
|00002570| 0a 0a 20 20 20 20 6e 73 | 6c 6f 74 73 20 3d 20 77 |..    ns|lots = w|
|00002580| 74 6f 69 20 28 6c 64 69 | 72 5b 30 5d 2e 6c 5f 6c |toi (ldi|r[0].l_l|
|00002590| 65 6e 29 20 2a 20 53 4c | 4f 54 53 5f 53 45 43 3b |en) * SL|OTS_SEC;|
|000025a0| 0a 0a 20 20 20 20 69 66 | 20 28 66 72 65 61 64 20 |..    if| (fread |
|000025b0| 28 28 63 68 61 72 20 2a | 29 20 26 20 6c 64 69 72 |((char *|) & ldir|
|000025c0| 5b 31 5d 2c 20 44 53 49 | 5a 45 2c 20 6e 73 6c 6f |[1], DSI|ZE, nslo|
|000025d0| 74 73 2c 20 66 29 20 21 | 3d 20 6e 73 6c 6f 74 73 |ts, f) !|= nslots|
|000025e0| 29 0a 09 65 72 72 6f 72 | 20 28 22 43 61 6e 27 74 |)..error| ("Can't|
|000025f0| 20 72 65 61 64 20 64 69 | 72 65 63 74 6f 72 79 20 | read di|rectory |
|00002600| 2d 20 69 73 20 69 74 20 | 61 20 6c 69 62 72 61 72 |- is it |a librar|
|00002610| 79 3f 22 29 3b 0a 7d 0a | 0a 70 75 74 64 69 72 20 |y?");.}.|.putdir |
|00002620| 28 66 29 0a 46 49 4c 45 | 20 2a 66 3b 0a 7b 0a 0a |(f).FILE| *f;.{..|
|00002630| 20 20 20 20 72 65 77 69 | 6e 64 28 66 29 3b 0a 20 |    rewi|nd(f);. |
|00002640| 20 20 20 69 66 20 28 66 | 77 72 69 74 65 20 28 28 |   if (f|write ((|
|00002650| 63 68 61 72 20 2a 29 20 | 6c 64 69 72 2c 20 44 53 |char *) |ldir, DS|
|00002660| 49 5a 45 2c 20 6e 73 6c | 6f 74 73 2c 20 66 29 20 |IZE, nsl|ots, f) |
|00002670| 21 3d 20 6e 73 6c 6f 74 | 73 29 0a 09 65 72 72 6f |!= nslot|s)..erro|
|00002680| 72 20 28 22 43 61 6e 27 | 74 20 77 72 69 74 65 20 |r ("Can'|t write |
|00002690| 64 69 72 65 63 74 6f 72 | 79 20 2d 20 6c 69 62 72 |director|y - libr|
|000026a0| 61 72 79 20 6d 61 79 20 | 62 65 20 62 6f 74 63 68 |ary may |be botch|
|000026b0| 65 64 22 29 3b 0a 7d 0a | 0a 69 6e 69 74 64 69 72 |ed");.}.|.initdir|
|000026c0| 20 28 66 29 0a 46 49 4c | 45 20 2a 66 3b 0a 7b 0a | (f).FIL|E *f;.{.|
|000026d0| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 69 6e 74 |    regi|ster int|
|000026e0| 20 20 20 20 69 3b 0a 20 | 20 20 20 69 6e 74 20 20 |    i;. |   int  |
|000026f0| 20 20 20 6e 75 6d 73 65 | 63 73 3b 0a 20 20 20 20 |   numse|cs;.    |
|00002700| 63 68 61 72 20 20 20 20 | 6c 69 6e 65 5b 38 30 5d |char    |line[80]|
|00002710| 3b 0a 20 20 20 20 73 74 | 61 74 69 63 20 73 74 72 |;.    st|atic str|
|00002720| 75 63 74 20 6c 75 64 69 | 72 20 62 6c 61 6e 6b 65 |uct ludi|r blanke|
|00002730| 6e 74 72 79 20 3d 20 7b | 0a 09 55 4e 55 53 45 44 |ntry = {|..UNUSED|
|00002740| 2c 0a 09 7b 20 27 20 27 | 2c 20 27 20 27 2c 20 27 |,..{ ' '|, ' ', '|
|00002750| 20 27 2c 20 27 20 27 2c | 20 27 20 27 2c 20 27 20 | ', ' ',| ' ', ' |
|00002760| 27 2c 20 27 20 27 2c 20 | 27 20 27 20 7d 2c 0a 09 |', ' ', |' ' },..|
|00002770| 7b 20 27 20 27 2c 20 27 | 20 27 2c 20 27 20 27 20 |{ ' ', '| ', ' ' |
|00002780| 7d 2c 0a 20 20 20 20 7d | 3b 0a 0a 20 20 20 20 66 |},.    }|;..    f|
|00002790| 6f 72 20 28 3b 3b 29 20 | 7b 0a 09 70 72 69 6e 74 |or (;;) |{..print|
|000027a0| 66 20 28 22 4e 75 6d 62 | 65 72 20 6f 66 20 73 6c |f ("Numb|er of sl|
|000027b0| 6f 74 73 20 74 6f 20 61 | 6c 6c 6f 63 61 74 65 3a |ots to a|llocate:|
|000027c0| 20 22 29 3b 0a 09 69 66 | 20 28 66 67 65 74 73 20 | ");..if| (fgets |
|000027d0| 28 6c 69 6e 65 2c 20 38 | 30 2c 20 73 74 64 69 6e |(line, 8|0, stdin|
|000027e0| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 09 20 20 20 20 |) == NUL|L)..    |
|000027f0| 65 72 72 6f 72 20 28 22 | 45 6f 66 20 77 68 65 6e |error ("|Eof when|
|00002800| 20 72 65 61 64 69 6e 67 | 20 69 6e 70 75 74 22 29 | reading| input")|
|00002810| 3b 0a 09 6e 73 6c 6f 74 | 73 20 3d 20 61 74 6f 69 |;..nslot|s = atoi|
|00002820| 20 28 6c 69 6e 65 29 3b | 0a 09 69 66 20 28 6e 73 | (line);|..if (ns|
|00002830| 6c 6f 74 73 20 3c 20 31 | 29 0a 09 20 20 20 20 70 |lots < 1|)..    p|
|00002840| 72 69 6e 74 66 20 28 22 | 4d 75 73 74 20 68 61 76 |rintf ("|Must hav|
|00002850| 65 20 61 74 20 6c 65 61 | 73 74 20 6f 6e 65 21 5c |e at lea|st one!\|
|00002860| 6e 22 29 3b 0a 09 65 6c | 73 65 20 69 66 20 28 6e |n");..el|se if (n|
|00002870| 73 6c 6f 74 73 20 3e 20 | 4d 41 58 46 49 4c 45 53 |slots > |MAXFILES|
|00002880| 29 0a 09 20 20 20 20 70 | 72 69 6e 74 66 20 28 22 |)..    p|rintf ("|
|00002890| 54 6f 6f 20 6d 61 6e 79 | 20 73 6c 6f 74 73 5c 6e |Too many| slots\n|
|000028a0| 22 29 3b 0a 09 65 6c 73 | 65 0a 09 20 20 20 20 62 |");..els|e..    b|
|000028b0| 72 65 61 6b 3b 0a 20 20 | 20 20 7d 0a 0a 20 20 20 |reak;.  |  }..   |
|000028c0| 20 6e 75 6d 73 65 63 73 | 20 3d 20 6e 73 6c 6f 74 | numsecs| = nslot|
|000028d0| 73 20 2f 20 53 4c 4f 54 | 53 5f 53 45 43 3b 0a 20 |s / SLOT|S_SEC;. |
|000028e0| 20 20 20 6e 73 6c 6f 74 | 73 20 3d 20 6e 75 6d 73 |   nslot|s = nums|
|000028f0| 65 63 73 20 2a 20 53 4c | 4f 54 53 5f 53 45 43 3b |ecs * SL|OTS_SEC;|
|00002900| 0a 0a 20 20 20 20 66 6f | 72 20 28 69 20 3d 20 30 |..    fo|r (i = 0|
|00002910| 3b 20 69 20 3c 20 6e 73 | 6c 6f 74 73 3b 20 69 2b |; i < ns|lots; i+|
|00002920| 2b 29 0a 09 6c 64 69 72 | 5b 69 5d 20 3d 20 62 6c |+)..ldir|[i] = bl|
|00002930| 61 6e 6b 65 6e 74 72 79 | 3b 0a 20 20 20 20 6c 64 |ankentry|;.    ld|
|00002940| 69 72 5b 30 5d 2e 6c 5f | 73 74 61 74 20 3d 20 41 |ir[0].l_|stat = A|
|00002950| 43 54 49 56 45 3b 0a 20 | 20 20 20 69 74 6f 77 20 |CTIVE;. |   itow |
|00002960| 28 6c 64 69 72 5b 30 5d | 2e 6c 5f 6c 65 6e 2c 20 |(ldir[0]|.l_len, |
|00002970| 6e 75 6d 73 65 63 73 29 | 3b 0a 0a 20 20 20 20 70 |numsecs)|;..    p|
|00002980| 75 74 64 69 72 20 28 66 | 29 3b 0a 7d 0a 0a 2f 2a |utdir (f|);.}../*|
|00002990| 20 63 6f 6e 76 65 72 74 | 20 6e 6d 2e 65 78 20 74 | convert| nm.ex t|
|000029a0| 6f 20 61 20 55 6e 69 78 | 20 73 74 79 6c 65 20 73 |o a Unix| style s|
|000029b0| 74 72 69 6e 67 20 2a 2f | 0a 63 68 61 72 20 20 20 |tring */|.char   |
|000029c0| 2a 67 65 74 6e 61 6d 65 | 20 28 6e 6d 2c 20 65 78 |*getname| (nm, ex|
|000029d0| 29 0a 63 68 61 72 20 20 | 20 2a 6e 6d 2c 20 2a 65 |).char  | *nm, *e|
|000029e0| 78 3b 0a 7b 0a 20 20 20 | 20 73 74 61 74 69 63 20 |x;.{.   | static |
|000029f0| 63 68 61 72 20 6e 61 6d | 65 62 75 66 5b 31 34 5d |char nam|ebuf[14]|
|00002a00| 3b 0a 20 20 20 20 72 65 | 67 69 73 74 65 72 20 63 |;.    re|gister c|
|00002a10| 68 61 72 20 20 2a 63 70 | 2c 20 2a 64 70 3b 0a 0a |har  *cp|, *dp;..|
|00002a20| 20 20 20 20 66 6f 72 20 | 28 63 70 20 3d 20 6e 61 |    for |(cp = na|
|00002a30| 6d 65 62 75 66 2c 20 64 | 70 20 3d 20 6e 6d 3b 20 |mebuf, d|p = nm; |
|00002a40| 2a 64 70 20 21 3d 20 27 | 20 27 20 26 26 20 64 70 |*dp != '| ' && dp|
|00002a50| 20 21 3d 20 26 6e 6d 5b | 38 5d 3b 29 20 7b 0a 09 | != &nm[|8];) {..|
|00002a60| 2a 63 70 2b 2b 20 3d 20 | 69 73 75 70 70 65 72 20 |*cp++ = |isupper |
|00002a70| 28 2a 64 70 29 20 3f 20 | 74 6f 6c 6f 77 65 72 20 |(*dp) ? |tolower |
|00002a80| 28 2a 64 70 29 20 3a 20 | 2a 64 70 3b 0a 09 2b 2b |(*dp) : |*dp;..++|
|00002a90| 64 70 3b 0a 20 20 20 20 | 7d 0a 20 20 20 20 2a 63 |dp;.    |}.    *c|
|00002aa0| 70 2b 2b 20 3d 20 27 2e | 27 3b 0a 0a 20 20 20 20 |p++ = '.|';..    |
|00002ab0| 66 6f 72 20 28 64 70 20 | 3d 20 65 78 3b 20 2a 64 |for (dp |= ex; *d|
|00002ac0| 70 20 21 3d 20 27 20 27 | 20 26 26 20 64 70 20 21 |p != ' '| && dp !|
|00002ad0| 3d 20 26 65 78 5b 33 5d | 3b 29 20 7b 0a 09 2a 63 |= &ex[3]|;) {..*c|
|00002ae0| 70 2b 2b 20 3d 20 69 73 | 75 70 70 65 72 20 28 2a |p++ = is|upper (*|
|00002af0| 64 70 29 20 3f 20 74 6f | 6c 6f 77 65 72 20 28 2a |dp) ? to|lower (*|
|00002b00| 64 70 29 20 3a 20 2a 64 | 70 3b 0a 09 2b 2b 64 70 |dp) : *d|p;..++dp|
|00002b10| 3b 0a 20 20 20 20 7d 0a | 0a 20 20 20 20 2a 63 70 |;.    }.|.    *cp|
|00002b20| 20 3d 20 27 5c 30 27 3b | 0a 20 20 20 20 72 65 74 | = '\0';|.    ret|
|00002b30| 75 72 6e 20 6e 61 6d 65 | 62 75 66 3b 0a 7d 0a 0a |urn name|buf;.}..|
|00002b40| 70 75 74 6e 61 6d 65 20 | 28 63 70 6d 6e 61 6d 65 |putname |(cpmname|
|00002b50| 2c 20 75 6e 69 78 6e 61 | 6d 65 29 0a 63 68 61 72 |, unixna|me).char|
|00002b60| 20 20 20 2a 63 70 6d 6e | 61 6d 65 2c 20 2a 75 6e |   *cpmn|ame, *un|
|00002b70| 69 78 6e 61 6d 65 3b 0a | 7b 0a 20 20 20 20 72 65 |ixname;.|{.    re|
|00002b80| 67 69 73 74 65 72 20 63 | 68 61 72 20 20 2a 70 31 |gister c|har  *p1|
|00002b90| 2c 20 2a 70 32 3b 0a 0a | 20 20 20 20 66 6f 72 20 |, *p2;..|    for |
|00002ba0| 28 70 31 20 3d 20 75 6e | 69 78 6e 61 6d 65 2c 20 |(p1 = un|ixname, |
|00002bb0| 70 32 20 3d 20 63 70 6d | 6e 61 6d 65 3b 20 2a 70 |p2 = cpm|name; *p|
|00002bc0| 31 3b 20 70 31 2b 2b 2c | 20 70 32 2b 2b 29 20 7b |1; p1++,| p2++) {|
|00002bd0| 0a 09 77 68 69 6c 65 20 | 28 2a 70 31 20 3d 3d 20 |..while |(*p1 == |
|00002be0| 27 2e 27 29 20 7b 0a 09 | 20 20 20 20 70 32 20 3d |'.') {..|    p2 =|
|00002bf0| 20 63 70 6d 6e 61 6d 65 | 20 2b 20 38 3b 0a 09 20 | cpmname| + 8;.. |
|00002c00| 20 20 20 70 31 2b 2b 3b | 0a 09 7d 0a 09 69 66 20 |   p1++;|..}..if |
|00002c10| 28 70 32 20 2d 20 63 70 | 6d 6e 61 6d 65 20 3c 20 |(p2 - cp|mname < |
|00002c20| 31 31 29 0a 09 20 20 20 | 20 2a 70 32 20 3d 20 69 |11)..   | *p2 = i|
|00002c30| 73 6c 6f 77 65 72 28 2a | 70 31 29 20 3f 20 74 6f |slower(*|p1) ? to|
|00002c40| 75 70 70 65 72 28 2a 70 | 31 29 20 3a 20 2a 70 31 |upper(*p|1) : *p1|
|00002c50| 3b 0a 09 65 6c 73 65 20 | 7b 0a 09 20 20 20 20 66 |;..else |{..    f|
|00002c60| 70 72 69 6e 74 66 20 28 | 73 74 64 65 72 72 2c 20 |printf (|stderr, |
|00002c70| 22 25 73 3a 20 6e 61 6d | 65 20 74 72 75 6e 63 61 |"%s: nam|e trunca|
|00002c80| 74 65 64 5c 6e 22 2c 20 | 75 6e 69 78 6e 61 6d 65 |ted\n", |unixname|
|00002c90| 29 3b 0a 09 20 20 20 20 | 62 72 65 61 6b 3b 0a 09 |);..    |break;..|
|00002ca0| 7d 0a 20 20 20 20 7d 0a | 20 20 20 20 77 68 69 6c |}.    }.|    whil|
|00002cb0| 65 20 28 70 32 20 2d 20 | 63 70 6d 6e 61 6d 65 20 |e (p2 - |cpmname |
|00002cc0| 3c 20 31 31 29 0a 09 2a | 70 32 2b 2b 20 3d 20 27 |< 11)..*|p2++ = '|
|00002cd0| 20 27 3b 0a 7d 0a 0a 2f | 2a 20 66 69 6c 61 72 67 | ';.}../|* filarg|
|00002ce0| 20 2d 20 63 68 65 63 6b | 20 69 66 20 6e 61 6d 65 | - check| if name|
|00002cf0| 20 6d 61 74 63 68 65 73 | 20 61 72 67 75 6d 65 6e | matches| argumen|
|00002d00| 74 20 6c 69 73 74 20 2a | 2f 0a 66 69 6c 61 72 67 |t list *|/.filarg|
|00002d10| 20 28 6e 61 6d 65 29 0a | 63 68 61 72 20 20 20 2a | (name).|char   *|
|00002d20| 6e 61 6d 65 3b 0a 7b 0a | 20 20 20 20 72 65 67 69 |name;.{.|    regi|
|00002d30| 73 74 65 72 20 69 6e 74 | 20 20 20 20 69 3b 0a 0a |ster int|    i;..|
|00002d40| 20 20 20 20 69 66 20 28 | 6e 66 69 6c 65 73 20 3c |    if (|nfiles <|
|00002d50| 3d 20 30 29 0a 09 72 65 | 74 75 72 6e 20 31 3b 0a |= 0)..re|turn 1;.|
|00002d60| 0a 20 20 20 20 66 6f 72 | 20 28 69 20 3d 20 30 3b |.    for| (i = 0;|
|00002d70| 20 69 20 3c 20 6e 66 69 | 6c 65 73 3b 20 69 2b 2b | i < nfi|les; i++|
|00002d80| 29 0a 09 69 66 20 28 65 | 71 75 61 6c 20 28 6e 61 |)..if (e|qual (na|
|00002d90| 6d 65 2c 20 66 6e 61 6d | 65 5b 69 5d 29 29 20 7b |me, fnam|e[i])) {|
|00002da0| 0a 09 20 20 20 20 66 74 | 6f 75 63 68 65 64 5b 69 |..    ft|ouched[i|
|00002db0| 5d 20 3d 20 74 72 75 65 | 3b 0a 09 20 20 20 20 72 |] = true|;..    r|
|00002dc0| 65 74 75 72 6e 20 31 3b | 0a 09 7d 0a 0a 20 20 20 |eturn 1;|..}..   |
|00002dd0| 20 72 65 74 75 72 6e 20 | 30 3b 0a 7d 0a 0a 6e 6f | return |0;.}..no|
|00002de0| 74 5f 66 6f 75 6e 64 20 | 28 29 20 7b 0a 20 20 20 |t_found |() {.   |
|00002df0| 20 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 20 20 | registe|r int   |
|00002e00| 20 69 3b 0a 0a 20 20 20 | 20 66 6f 72 20 28 69 20 | i;..   | for (i |
|00002e10| 3d 20 30 3b 20 69 20 3c | 20 6e 66 69 6c 65 73 3b |= 0; i <| nfiles;|
|00002e20| 20 69 2b 2b 29 0a 09 69 | 66 20 28 21 66 74 6f 75 | i++)..i|f (!ftou|
|00002e30| 63 68 65 64 5b 69 5d 29 | 20 7b 0a 09 20 20 20 20 |ched[i])| {..    |
|00002e40| 66 70 72 69 6e 74 66 20 | 28 73 74 64 65 72 72 2c |fprintf |(stderr,|
|00002e50| 20 22 25 73 3a 20 6e 6f | 74 20 69 6e 20 6c 69 62 | "%s: no|t in lib|
|00002e60| 72 61 72 79 2e 5c 6e 22 | 2c 20 66 6e 61 6d 65 5b |rary.\n"|, fname[|
|00002e70| 69 5d 29 3b 0a 09 20 20 | 20 20 65 72 72 63 6e 74 |i]);..  |  errcnt|
|00002e80| 2b 2b 3b 0a 09 7d 0a 7d | 0a 0a 0c 0a 65 78 74 72 |++;..}.}|....extr|
|00002e90| 61 63 74 28 6e 61 6d 65 | 29 0a 63 68 61 72 20 2a |act(name|).char *|
|00002ea0| 6e 61 6d 65 3b 0a 7b 0a | 09 67 65 74 66 69 6c 65 |name;.{.|.getfile|
|00002eb0| 73 28 6e 61 6d 65 2c 20 | 66 61 6c 73 65 29 3b 0a |s(name, |false);.|
|00002ec0| 7d 0a 0a 70 72 69 6e 74 | 28 6e 61 6d 65 29 0a 63 |}..print|(name).c|
|00002ed0| 68 61 72 20 2a 6e 61 6d | 65 3b 0a 7b 0a 09 67 65 |har *nam|e;.{..ge|
|00002ee0| 74 66 69 6c 65 73 28 6e | 61 6d 65 2c 20 74 72 75 |tfiles(n|ame, tru|
|00002ef0| 65 29 3b 0a 7d 0a 0a 67 | 65 74 66 69 6c 65 73 20 |e);.}..g|etfiles |
|00002f00| 28 6e 61 6d 65 2c 20 70 | 66 6c 61 67 29 0a 63 68 |(name, p|flag).ch|
|00002f10| 61 72 20 20 20 2a 6e 61 | 6d 65 3b 0a 62 6f 6f 6c |ar   *na|me;.bool|
|00002f20| 09 70 66 6c 61 67 3b 0a | 7b 0a 20 20 20 20 46 49 |.pflag;.|{.    FI|
|00002f30| 4c 45 20 2a 6c 66 64 2c | 20 2a 6f 66 64 3b 0a 20 |LE *lfd,| *ofd;. |
|00002f40| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |   regis|ter int |
|00002f50| 20 20 20 69 3b 0a 20 20 | 20 20 63 68 61 72 20 20 |   i;.  |  char  |
|00002f60| 20 2a 75 6e 69 78 6e 61 | 6d 65 3b 0a 0a 20 20 20 | *unixna|me;..   |
|00002f70| 20 69 66 20 28 28 6c 66 | 64 20 3d 20 66 6f 70 65 | if ((lf|d = fope|
|00002f80| 6e 20 28 6e 61 6d 65 2c | 20 22 72 22 29 29 20 20 |n (name,| "r"))  |
|00002f90| 3d 3d 20 4e 55 4c 4c 29 | 0a 09 63 61 6e 74 20 28 |== NULL)|..cant (|
|00002fa0| 6e 61 6d 65 29 3b 0a 0a | 20 20 20 20 6f 66 64 20 |name);..|    ofd |
|00002fb0| 3d 20 70 66 6c 61 67 20 | 3f 20 73 74 64 6f 75 74 |= pflag |? stdout|
|00002fc0| 20 3a 20 4e 55 4c 4c 3b | 0a 20 20 20 20 67 65 74 | : NULL;|.    get|
|00002fd0| 64 69 72 20 28 6c 66 64 | 29 3b 0a 0a 20 20 20 20 |dir (lfd|);..    |
|00002fe0| 66 6f 72 20 28 69 20 3d | 20 31 3b 20 69 20 3c 20 |for (i =| 1; i < |
|00002ff0| 6e 73 6c 6f 74 73 3b 20 | 69 2b 2b 29 20 7b 0a 09 |nslots; |i++) {..|
|00003000| 69 66 28 6c 64 69 72 5b | 69 5d 2e 6c 5f 73 74 61 |if(ldir[|i].l_sta|
|00003010| 74 20 21 3d 20 41 43 54 | 49 56 45 29 0a 09 09 63 |t != ACT|IVE)...c|
|00003020| 6f 6e 74 69 6e 75 65 3b | 0a 09 75 6e 69 78 6e 61 |ontinue;|..unixna|
|00003030| 6d 65 20 3d 20 67 65 74 | 6e 61 6d 65 20 28 6c 64 |me = get|name (ld|
|00003040| 69 72 5b 69 5d 2e 6c 5f | 6e 61 6d 65 2c 20 6c 64 |ir[i].l_|name, ld|
|00003050| 69 72 5b 69 5d 2e 6c 5f | 65 78 74 29 3b 0a 09 69 |ir[i].l_|ext);..i|
|00003060| 66 20 28 21 66 69 6c 61 | 72 67 20 28 75 6e 69 78 |f (!fila|rg (unix|
|00003070| 6e 61 6d 65 29 29 0a 09 | 20 20 20 20 63 6f 6e 74 |name))..|    cont|
|00003080| 69 6e 75 65 3b 0a 09 66 | 70 72 69 6e 74 66 28 73 |inue;..f|printf(s|
|00003090| 74 64 65 72 72 2c 22 25 | 73 22 2c 20 75 6e 69 78 |tderr,"%|s", unix|
|000030a0| 6e 61 6d 65 29 3b 0a 09 | 69 66 20 28 6f 66 64 20 |name);..|if (ofd |
|000030b0| 21 3d 20 73 74 64 6f 75 | 74 29 0a 09 20 20 20 20 |!= stdou|t)..    |
|000030c0| 6f 66 64 20 3d 20 66 6f | 70 65 6e 20 28 75 6e 69 |ofd = fo|pen (uni|
|000030d0| 78 6e 61 6d 65 2c 20 22 | 77 22 29 3b 0a 09 69 66 |xname, "|w");..if|
|000030e0| 20 28 6f 66 64 20 3d 3d | 20 4e 55 4c 4c 29 20 7b | (ofd ==| NULL) {|
|000030f0| 0a 09 20 20 20 20 66 70 | 72 69 6e 74 66 20 28 73 |..    fp|rintf (s|
|00003100| 74 64 65 72 72 2c 20 22 | 20 20 2d 20 63 61 6e 27 |tderr, "|  - can'|
|00003110| 74 20 63 72 65 61 74 65 | 22 29 3b 0a 09 20 20 20 |t create|");..   |
|00003120| 20 65 72 72 63 6e 74 2b | 2b 3b 0a 09 7d 0a 09 65 | errcnt+|+;..}..e|
|00003130| 6c 73 65 20 7b 0a 09 20 | 20 20 20 56 4f 49 44 20 |lse {.. |   VOID |
|00003140| 66 73 65 65 6b 20 28 6c | 66 64 2c 20 28 6c 6f 6e |fseek (l|fd, (lon|
|00003150| 67 29 20 77 74 6f 69 20 | 28 6c 64 69 72 5b 69 5d |g) wtoi |(ldir[i]|
|00003160| 2e 6c 5f 6f 66 66 29 20 | 2a 20 53 45 43 54 4f 52 |.l_off) |* SECTOR|
|00003170| 2c 20 30 29 3b 0a 09 20 | 20 20 20 61 63 6f 70 79 |, 0);.. |   acopy|
|00003180| 20 28 6c 66 64 2c 20 6f | 66 64 2c 20 77 74 6f 69 | (lfd, o|fd, wtoi|
|00003190| 20 28 6c 64 69 72 5b 69 | 5d 2e 6c 5f 6c 65 6e 29 | (ldir[i|].l_len)|
|000031a0| 29 3b 0a 09 20 20 20 20 | 69 66 20 28 6f 66 64 20 |);..    |if (ofd |
|000031b0| 21 3d 20 73 74 64 6f 75 | 74 29 0a 09 09 56 4f 49 |!= stdou|t)...VOI|
|000031c0| 44 20 66 63 6c 6f 73 65 | 20 28 6f 66 64 29 3b 0a |D fclose| (ofd);.|
|000031d0| 09 7d 0a 09 70 75 74 63 | 28 27 5c 6e 27 2c 20 73 |.}..putc|('\n', s|
|000031e0| 74 64 65 72 72 29 3b 0a | 20 20 20 20 7d 0a 20 20 |tderr);.|    }.  |
|000031f0| 20 20 56 4f 49 44 20 66 | 63 6c 6f 73 65 20 28 6c |  VOID f|close (l|
|00003200| 66 64 29 3b 0a 20 20 20 | 20 6e 6f 74 5f 66 6f 75 |fd);.   | not_fou|
|00003210| 6e 64 20 28 29 3b 0a 7d | 0a 0a 61 63 6f 70 79 20 |nd ();.}|..acopy |
|00003220| 28 66 64 69 2c 20 66 64 | 6f 2c 20 6e 73 65 63 73 |(fdi, fd|o, nsecs|
|00003230| 29 0a 46 49 4c 45 20 2a | 66 64 69 2c 20 2a 66 64 |).FILE *|fdi, *fd|
|00003240| 6f 3b 0a 72 65 67 69 73 | 74 65 72 20 75 6e 73 69 |o;.regis|ter unsi|
|00003250| 67 6e 65 64 20 69 6e 74 | 20 6e 73 65 63 73 3b 0a |gned int| nsecs;.|
|00003260| 7b 0a 20 20 20 20 72 65 | 67 69 73 74 65 72 20 69 |{.    re|gister i|
|00003270| 6e 74 20 20 20 20 69 2c | 20 63 3b 0a 20 20 20 20 |nt    i,| c;.    |
|00003280| 69 6e 74 09 20 20 20 20 | 74 65 78 74 66 69 6c 65 |int.    |textfile|
|00003290| 20 3d 20 31 3b 0a 0a 20 | 20 20 20 77 68 69 6c 65 | = 1;.. |   while|
|000032a0| 28 20 6e 73 65 63 73 2d | 2d 20 21 3d 20 30 29 20 |( nsecs-|- != 0) |
|000032b0| 0a 09 66 6f 72 28 69 3d | 30 3b 20 69 3c 53 45 43 |..for(i=|0; i<SEC|
|000032c0| 54 4f 52 3b 20 69 2b 2b | 29 20 7b 0a 09 09 63 20 |TOR; i++|) {...c |
|000032d0| 3d 20 67 65 74 63 28 66 | 64 69 29 3b 0a 09 09 69 |= getc(f|di);...i|
|000032e0| 66 28 20 66 65 6f 66 28 | 66 64 69 29 20 29 20 0a |f( feof(|fdi) ) .|
|000032f0| 09 09 09 65 72 72 6f 72 | 28 22 50 72 65 6d 61 74 |...error|("Premat|
|00003300| 75 72 65 20 45 4f 46 5c | 6e 22 29 3b 0a 09 09 69 |ure EOF\|n");...i|
|00003310| 66 28 20 66 65 72 72 6f | 72 28 66 64 69 29 20 29 |f( ferro|r(fdi) )|
|00003320| 0a 09 09 20 20 20 20 65 | 72 72 6f 72 20 28 22 43 |...    e|rror ("C|
|00003330| 61 6e 27 74 20 72 65 61 | 64 22 29 3b 0a 09 09 69 |an't rea|d");...i|
|00003340| 66 28 20 21 69 73 61 73 | 63 69 69 28 63 29 20 29 |f( !isas|cii(c) )|
|00003350| 0a 09 09 20 20 20 20 74 | 65 78 74 66 69 6c 65 20 |...    t|extfile |
|00003360| 3d 20 30 3b 0a 09 09 69 | 66 28 20 6e 73 65 63 73 |= 0;...i|f( nsecs|
|00003370| 20 21 3d 20 30 20 7c 7c | 20 21 74 65 78 74 66 69 | != 0 ||| !textfi|
|00003380| 6c 65 20 7c 7c 20 63 20 | 21 3d 20 43 54 52 4c 5a |le || c |!= CTRLZ|
|00003390| 29 20 7b 0a 09 09 09 70 | 75 74 63 28 63 2c 20 66 |) {....p|utc(c, f|
|000033a0| 64 6f 29 3b 0a 09 09 09 | 69 66 20 28 20 66 65 72 |do);....|if ( fer|
|000033b0| 72 6f 72 28 66 64 6f 29 | 20 29 0a 09 09 09 20 20 |ror(fdo)| )....  |
|000033c0| 20 20 65 72 72 6f 72 20 | 28 22 77 72 69 74 65 20 |  error |("write |
|000033d0| 65 72 72 6f 72 22 29 3b | 0a 09 09 7d 0a 09 20 7d |error");|...}.. }|
|000033e0| 0a 7d 0a 0a 75 70 64 61 | 74 65 20 28 6e 61 6d 65 |.}..upda|te (name|
|000033f0| 29 0a 63 68 61 72 20 20 | 20 2a 6e 61 6d 65 3b 0a |).char  | *name;.|
|00003400| 7b 0a 20 20 20 20 46 49 | 4c 45 20 2a 6c 66 64 3b |{.    FI|LE *lfd;|
|00003410| 0a 20 20 20 20 72 65 67 | 69 73 74 65 72 20 69 6e |.    reg|ister in|
|00003420| 74 20 20 20 20 69 3b 0a | 0a 20 20 20 20 69 66 20 |t    i;.|.    if |
|00003430| 28 28 6c 66 64 20 3d 20 | 66 6f 70 65 6e 20 28 6e |((lfd = |fopen (n|
|00003440| 61 6d 65 2c 20 22 72 2b | 22 29 29 20 3d 3d 20 4e |ame, "r+|")) == N|
|00003450| 55 4c 4c 29 20 7b 0a 09 | 69 66 20 28 28 6c 66 64 |ULL) {..|if ((lfd|
|00003460| 20 3d 20 66 6f 70 65 6e | 20 28 6e 61 6d 65 2c 20 | = fopen| (name, |
|00003470| 22 77 2b 22 29 29 20 3d | 3d 20 4e 55 4c 4c 29 0a |"w+")) =|= NULL).|
|00003480| 09 20 20 20 20 63 61 6e | 74 20 28 6e 61 6d 65 29 |.    can|t (name)|
|00003490| 3b 0a 09 69 6e 69 74 64 | 69 72 20 28 6c 66 64 29 |;..initd|ir (lfd)|
|000034a0| 3b 0a 20 20 20 20 7d 0a | 20 20 20 20 65 6c 73 65 |;.    }.|    else|
|000034b0| 0a 09 67 65 74 64 69 72 | 20 28 6c 66 64 29 3b 09 |..getdir| (lfd);.|
|000034c0| 09 2f 2a 20 72 65 61 64 | 20 6f 6c 64 20 64 69 72 |./* read| old dir|
|000034d0| 65 63 74 6f 72 79 20 2a | 2f 0a 0a 20 20 20 20 69 |ectory *|/..    i|
|000034e0| 66 28 76 65 72 62 6f 73 | 65 29 0a 09 20 20 20 20 |f(verbos|e)..    |
|000034f0| 66 70 72 69 6e 74 66 20 | 28 73 74 64 65 72 72 2c |fprintf |(stderr,|
|00003500| 22 55 70 64 61 74 69 6e | 67 20 66 69 6c 65 73 3a |"Updatin|g files:|
|00003510| 5c 6e 22 29 3b 0a 20 20 | 20 20 66 6f 72 20 28 69 |\n");.  |  for (i|
|00003520| 20 3d 20 30 3b 20 69 20 | 3c 20 6e 66 69 6c 65 73 | = 0; i |< nfiles|
|00003530| 3b 20 69 2b 2b 29 0a 09 | 61 64 64 66 69 6c 20 28 |; i++)..|addfil (|
|00003540| 66 6e 61 6d 65 5b 69 5d | 2c 20 6c 66 64 29 3b 0a |fname[i]|, lfd);.|
|00003550| 20 20 20 20 69 66 20 28 | 65 72 72 63 6e 74 20 3d |    if (|errcnt =|
|00003560| 3d 20 30 29 0a 09 70 75 | 74 64 69 72 20 28 6c 66 |= 0)..pu|tdir (lf|
|00003570| 64 29 3b 0a 20 20 20 20 | 65 6c 73 65 0a 09 66 70 |d);.    |else..fp|
|00003580| 72 69 6e 74 66 20 28 73 | 74 64 65 72 72 2c 20 22 |rintf (s|tderr, "|
|00003590| 66 61 74 61 6c 20 65 72 | 72 6f 72 73 20 2d 20 6c |fatal er|rors - l|
|000035a0| 69 62 72 61 72 79 20 6e | 6f 74 20 63 68 61 6e 67 |ibrary n|ot chang|
|000035b0| 65 64 5c 6e 22 29 3b 0a | 20 20 20 20 56 4f 49 44 |ed\n");.|    VOID|
|000035c0| 20 66 63 6c 6f 73 65 20 | 28 6c 66 64 29 3b 0a 7d | fclose |(lfd);.}|
|000035d0| 0a 0a 61 64 64 66 69 6c | 20 28 6e 61 6d 65 2c 20 |..addfil| (name, |
|000035e0| 6c 66 64 29 0a 63 68 61 | 72 20 20 20 2a 6e 61 6d |lfd).cha|r   *nam|
|000035f0| 65 3b 0a 46 49 4c 45 20 | 2a 6c 66 64 3b 0a 7b 0a |e;.FILE |*lfd;.{.|
|00003600| 20 20 20 20 46 49 4c 45 | 09 2a 69 66 64 3b 0a 20 |    FILE|.*ifd;. |
|00003610| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |   regis|ter int |
|00003620| 73 65 63 6f 66 66 73 2c | 20 6e 75 6d 73 65 63 73 |secoffs,| numsecs|
|00003630| 3b 0a 20 20 20 20 72 65 | 67 69 73 74 65 72 20 69 |;.    re|gister i|
|00003640| 6e 74 20 69 3b 0a 0a 20 | 20 20 20 69 66 20 28 28 |nt i;.. |   if ((|
|00003650| 69 66 64 20 3d 20 66 6f | 70 65 6e 20 28 6e 61 6d |ifd = fo|pen (nam|
|00003660| 65 2c 20 22 72 22 29 29 | 20 3d 3d 20 4e 55 4c 4c |e, "r"))| == NULL|
|00003670| 29 20 7b 0a 09 66 70 72 | 69 6e 74 66 20 28 73 74 |) {..fpr|intf (st|
|00003680| 64 65 72 72 2c 20 22 25 | 73 3a 20 63 61 6e 27 74 |derr, "%|s: can't|
|00003690| 20 66 69 6e 64 20 74 6f | 20 61 64 64 5c 6e 22 2c | find to| add\n",|
|000036a0| 6e 61 6d 65 29 3b 0a 09 | 65 72 72 63 6e 74 2b 2b |name);..|errcnt++|
|000036b0| 3b 0a 09 72 65 74 75 72 | 6e 3b 0a 20 20 20 20 7d |;..retur|n;.    }|
|000036c0| 0a 20 20 20 20 69 66 28 | 76 65 72 62 6f 73 65 29 |.    if(|verbose)|
|000036d0| 0a 20 20 20 20 20 20 20 | 20 66 70 72 69 6e 74 66 |.       | fprintf|
|000036e0| 28 73 74 64 65 72 72 2c | 20 22 25 73 5c 6e 22 2c |(stderr,| "%s\n",|
|000036f0| 20 6e 61 6d 65 29 3b 0a | 20 20 20 20 66 6f 72 20 | name);.|    for |
|00003700| 28 69 20 3d 20 30 3b 20 | 69 20 3c 20 6e 73 6c 6f |(i = 0; |i < nslo|
|00003710| 74 73 3b 20 69 2b 2b 29 | 20 7b 0a 09 69 66 20 28 |ts; i++)| {..if (|
|00003720| 65 71 75 61 6c 28 20 67 | 65 74 6e 61 6d 65 20 28 |equal( g|etname (|
|00003730| 6c 64 69 72 5b 69 5d 2e | 6c 5f 6e 61 6d 65 2c 20 |ldir[i].|l_name, |
|00003740| 6c 64 69 72 5b 69 5d 2e | 6c 5f 65 78 74 29 2c 20 |ldir[i].|l_ext), |
|00003750| 6e 61 6d 65 29 20 29 20 | 2f 2a 20 75 70 64 61 74 |name) ) |/* updat|
|00003760| 65 20 2a 2f 0a 09 20 20 | 20 20 62 72 65 61 6b 3b |e */..  |  break;|
|00003770| 0a 09 69 66 20 28 6c 64 | 69 72 5b 69 5d 2e 6c 5f |..if (ld|ir[i].l_|
|00003780| 73 74 61 74 20 21 3d 20 | 41 43 54 49 56 45 29 0a |stat != |ACTIVE).|
|00003790| 09 09 62 72 65 61 6b 3b | 0a 20 20 20 20 7d 0a 20 |..break;|.    }. |
|000037a0| 20 20 20 69 66 20 28 69 | 20 3e 3d 20 6e 73 6c 6f |   if (i| >= nslo|
|000037b0| 74 73 29 20 7b 0a 09 66 | 70 72 69 6e 74 66 20 28 |ts) {..f|printf (|
|000037c0| 73 74 64 65 72 72 2c 20 | 22 25 73 3a 20 63 61 6e |stderr, |"%s: can|
|000037d0| 27 74 20 61 64 64 20 6c | 69 62 72 61 72 79 20 69 |'t add l|ibrary i|
|000037e0| 73 20 66 75 6c 6c 5c 6e | 22 2c 6e 61 6d 65 29 3b |s full\n|",name);|
|000037f0| 0a 09 65 72 72 63 6e 74 | 2b 2b 3b 0a 09 72 65 74 |..errcnt|++;..ret|
|00003800| 75 72 6e 3b 0a 20 20 20 | 20 7d 0a 0a 20 20 20 20 |urn;.   | }..    |
|00003810| 6c 64 69 72 5b 69 5d 2e | 6c 5f 73 74 61 74 20 3d |ldir[i].|l_stat =|
|00003820| 20 41 43 54 49 56 45 3b | 0a 20 20 20 20 70 75 74 | ACTIVE;|.    put|
|00003830| 6e 61 6d 65 20 28 6c 64 | 69 72 5b 69 5d 2e 6c 5f |name (ld|ir[i].l_|
|00003840| 6e 61 6d 65 2c 20 6e 61 | 6d 65 29 3b 0a 20 20 20 |name, na|me);.   |
|00003850| 20 56 4f 49 44 20 66 73 | 65 65 6b 28 6c 66 64 2c | VOID fs|eek(lfd,|
|00003860| 20 30 4c 2c 20 32 29 3b | 09 09 2f 2a 20 61 70 70 | 0L, 2);|../* app|
|00003870| 65 6e 64 20 74 6f 20 65 | 6e 64 20 2a 2f 0a 20 20 |end to e|nd */.  |
|00003880| 20 20 73 65 63 6f 66 66 | 73 20 3d 20 66 74 65 6c |  secoff|s = ftel|
|00003890| 6c 28 6c 66 64 29 20 2f | 20 53 45 43 54 4f 52 3b |l(lfd) /| SECTOR;|
|000038a0| 0a 0a 20 20 20 20 69 74 | 6f 77 20 28 6c 64 69 72 |..    it|ow (ldir|
|000038b0| 5b 69 5d 2e 6c 5f 6f 66 | 66 2c 20 73 65 63 6f 66 |[i].l_of|f, secof|
|000038c0| 66 73 29 3b 0a 20 20 20 | 20 6e 75 6d 73 65 63 73 |fs);.   | numsecs|
|000038d0| 20 3d 20 66 63 6f 70 79 | 20 28 69 66 64 2c 20 6c | = fcopy| (ifd, l|
|000038e0| 66 64 29 3b 0a 20 20 20 | 20 69 74 6f 77 20 28 6c |fd);.   | itow (l|
|000038f0| 64 69 72 5b 69 5d 2e 6c | 5f 6c 65 6e 2c 20 6e 75 |dir[i].l|_len, nu|
|00003900| 6d 73 65 63 73 29 3b 0a | 20 20 20 20 56 4f 49 44 |msecs);.|    VOID|
|00003910| 20 66 63 6c 6f 73 65 20 | 28 69 66 64 29 3b 0a 7d | fclose |(ifd);.}|
|00003920| 0a 0a 66 63 6f 70 79 20 | 28 69 66 64 2c 20 6f 66 |..fcopy |(ifd, of|
|00003930| 64 29 0a 46 49 4c 45 20 | 2a 69 66 64 2c 20 2a 6f |d).FILE |*ifd, *o|
|00003940| 66 64 3b 0a 7b 0a 20 20 | 20 20 72 65 67 69 73 74 |fd;.{.  |  regist|
|00003950| 65 72 20 69 6e 74 20 74 | 6f 74 61 6c 20 3d 20 30 |er int t|otal = 0|
|00003960| 3b 0a 20 20 20 20 72 65 | 67 69 73 74 65 72 20 69 |;.    re|gister i|
|00003970| 6e 74 20 69 2c 20 6e 3b | 0a 20 20 20 20 63 68 61 |nt i, n;|.    cha|
|00003980| 72 20 73 65 63 74 6f 72 | 62 75 66 5b 53 45 43 54 |r sector|buf[SECT|
|00003990| 4f 52 5d 3b 0a 0a 0a 20 | 20 20 20 77 68 69 6c 65 |OR];... |   while|
|000039a0| 20 28 20 28 6e 20 3d 20 | 66 72 65 61 64 28 20 73 | ( (n = |fread( s|
|000039b0| 65 63 74 6f 72 62 75 66 | 2c 20 31 2c 20 53 45 43 |ectorbuf|, 1, SEC|
|000039c0| 54 4f 52 2c 20 69 66 64 | 29 29 20 21 3d 20 30 29 |TOR, ifd|)) != 0)|
|000039d0| 20 7b 0a 09 69 66 20 28 | 6e 20 21 3d 20 53 45 43 | {..if (|n != SEC|
|000039e0| 54 4f 52 29 0a 09 20 20 | 20 20 66 6f 72 20 28 69 |TOR)..  |  for (i|
|000039f0| 20 3d 20 6e 3b 20 69 20 | 3c 20 53 45 43 54 4f 52 | = n; i |< SECTOR|
|00003a00| 3b 20 69 2b 2b 29 0a 09 | 09 73 65 63 74 6f 72 62 |; i++)..|.sectorb|
|00003a10| 75 66 5b 69 5d 20 3d 20 | 43 54 52 4c 5a 3b 0a 09 |uf[i] = |CTRLZ;..|
|00003a20| 69 66 20 28 66 77 72 69 | 74 65 28 20 73 65 63 74 |if (fwri|te( sect|
|00003a30| 6f 72 62 75 66 2c 20 31 | 2c 20 53 45 43 54 4f 52 |orbuf, 1|, SECTOR|
|00003a40| 2c 20 6f 66 64 20 29 20 | 21 3d 20 53 45 43 54 4f |, ofd ) |!= SECTO|
|00003a50| 52 29 0a 09 09 65 72 72 | 6f 72 28 22 77 72 69 74 |R)...err|or("writ|
|00003a60| 65 20 65 72 72 6f 72 22 | 29 3b 0a 09 2b 2b 74 6f |e error"|);..++to|
|00003a70| 74 61 6c 3b 0a 20 20 20 | 20 7d 0a 20 20 20 20 72 |tal;.   | }.    r|
|00003a80| 65 74 75 72 6e 20 74 6f | 74 61 6c 3b 0a 7d 0a 0a |eturn to|tal;.}..|
|00003a90| 64 65 6c 65 74 65 20 28 | 6c 6e 61 6d 65 29 0a 63 |delete (|lname).c|
|00003aa0| 68 61 72 20 20 20 2a 6c | 6e 61 6d 65 3b 0a 7b 0a |har   *l|name;.{.|
|00003ab0| 20 20 20 20 46 49 4c 45 | 20 2a 66 3b 0a 20 20 20 |    FILE| *f;.   |
|00003ac0| 20 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 20 20 | registe|r int   |
|00003ad0| 20 69 3b 0a 0a 20 20 20 | 20 69 66 20 28 28 66 20 | i;..   | if ((f |
|00003ae0| 3d 20 66 6f 70 65 6e 20 | 28 6c 6e 61 6d 65 2c 20 |= fopen |(lname, |
|00003af0| 22 72 2b 22 29 29 20 3d | 3d 20 4e 55 4c 4c 29 0a |"r+")) =|= NULL).|
|00003b00| 09 63 61 6e 74 20 28 6c | 6e 61 6d 65 29 3b 0a 0a |.cant (l|name);..|
|00003b10| 20 20 20 20 69 66 20 28 | 6e 66 69 6c 65 73 20 3c |    if (|nfiles <|
|00003b20| 3d 20 30 29 0a 09 65 72 | 72 6f 72 28 22 64 65 6c |= 0)..er|ror("del|
|00003b30| 65 74 65 20 62 79 20 6e | 61 6d 65 20 6f 6e 6c 79 |ete by n|ame only|
|00003b40| 22 29 3b 0a 0a 20 20 20 | 20 67 65 74 64 69 72 20 |");..   | getdir |
|00003b50| 28 66 29 3b 0a 20 20 20 | 20 66 6f 72 20 28 69 20 |(f);.   | for (i |
|00003b60| 3d 20 30 3b 20 69 20 3c | 20 6e 73 6c 6f 74 73 3b |= 0; i <| nslots;|
|00003b70| 20 69 2b 2b 29 20 7b 0a | 09 69 66 20 28 21 66 69 | i++) {.|.if (!fi|
|00003b80| 6c 61 72 67 20 28 20 67 | 65 74 6e 61 6d 65 20 28 |larg ( g|etname (|
|00003b90| 6c 64 69 72 5b 69 5d 2e | 6c 5f 6e 61 6d 65 2c 20 |ldir[i].|l_name, |
|00003ba0| 6c 64 69 72 5b 69 5d 2e | 6c 5f 65 78 74 29 29 29 |ldir[i].|l_ext)))|
|00003bb0| 0a 09 20 20 20 20 63 6f | 6e 74 69 6e 75 65 3b 0a |..    co|ntinue;.|
|00003bc0| 09 6c 64 69 72 5b 69 5d | 2e 6c 5f 73 74 61 74 20 |.ldir[i]|.l_stat |
|00003bd0| 3d 20 44 45 4c 45 54 45 | 44 3b 0a 20 20 20 20 7d |= DELETE|D;.    }|
|00003be0| 0a 0a 20 20 20 20 6e 6f | 74 5f 66 6f 75 6e 64 28 |..    no|t_found(|
|00003bf0| 29 3b 0a 20 20 20 20 69 | 66 20 28 65 72 72 63 6e |);.    i|f (errcn|
|00003c00| 74 20 3e 20 30 29 0a 09 | 66 70 72 69 6e 74 66 20 |t > 0)..|fprintf |
|00003c10| 28 73 74 64 65 72 72 2c | 20 22 65 72 72 6f 72 73 |(stderr,| "errors|
|00003c20| 20 2d 20 6c 69 62 72 61 | 72 79 20 6e 6f 74 20 75 | - libra|ry not u|
|00003c30| 70 64 61 74 65 64 5c 6e | 22 29 3b 0a 20 20 20 20 |pdated\n|");.    |
|00003c40| 65 6c 73 65 0a 09 70 75 | 74 64 69 72 20 28 66 29 |else..pu|tdir (f)|
|00003c50| 3b 0a 20 20 20 20 56 4f | 49 44 20 66 63 6c 6f 73 |;.    VO|ID fclos|
|00003c60| 65 20 28 66 29 3b 0a 7d | 0a 0a 72 65 6f 72 67 20 |e (f);.}|..reorg |
|00003c70| 28 6e 61 6d 65 29 0a 63 | 68 61 72 20 20 2a 6e 61 |(name).c|har  *na|
|00003c80| 6d 65 3b 0a 7b 0a 20 20 | 20 20 46 49 4c 45 20 2a |me;.{.  |  FILE *|
|00003c90| 6f 6c 69 62 2c 20 2a 6e | 6c 69 62 3b 0a 20 20 20 |olib, *n|lib;.   |
|00003ca0| 20 69 6e 74 20 6f 6c 64 | 73 69 7a 65 3b 0a 20 20 | int old|size;.  |
|00003cb0| 20 20 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 69 |  regist|er int i|
|00003cc0| 2c 20 6a 3b 0a 20 20 20 | 20 73 74 72 75 63 74 20 |, j;.   | struct |
|00003cd0| 6c 75 64 69 72 20 6f 64 | 69 72 5b 4d 41 58 46 49 |ludir od|ir[MAXFI|
|00003ce0| 4c 45 53 5d 3b 0a 20 20 | 20 20 63 68 61 72 20 74 |LES];.  |  char t|
|00003cf0| 6d 70 6e 61 6d 65 5b 53 | 45 43 54 4f 52 5d 3b 0a |mpname[S|ECTOR];.|
|00003d00| 0a 20 20 20 20 56 4f 49 | 44 20 73 70 72 69 6e 74 |.    VOI|D sprint|
|00003d10| 66 28 74 6d 70 6e 61 6d | 65 2c 22 25 2d 31 30 2e |f(tmpnam|e,"%-10.|
|00003d20| 31 30 73 2e 54 4d 50 22 | 2c 20 6e 61 6d 65 29 3b |10s.TMP"|, name);|
|00003d30| 0a 0a 20 20 20 20 69 66 | 28 20 28 6f 6c 69 62 20 |..    if|( (olib |
|00003d40| 3d 20 66 6f 70 65 6e 28 | 6e 61 6d 65 2c 22 72 22 |= fopen(|name,"r"|
|00003d50| 29 29 20 3d 3d 20 4e 55 | 4c 4c 29 0a 09 63 61 6e |)) == NU|LL)..can|
|00003d60| 74 28 6e 61 6d 65 29 3b | 0a 0a 20 20 20 20 69 66 |t(name);|..    if|
|00003d70| 28 20 28 6e 6c 69 62 20 | 3d 20 66 6f 70 65 6e 28 |( (nlib |= fopen(|
|00003d80| 74 6d 70 6e 61 6d 65 2c | 20 22 77 22 29 29 20 3d |tmpname,| "w")) =|
|00003d90| 3d 20 4e 55 4c 4c 29 0a | 09 63 61 6e 74 28 74 6d |= NULL).|.cant(tm|
|00003da0| 70 6e 61 6d 65 29 3b 0a | 0a 20 20 20 20 67 65 74 |pname);.|.    get|
|00003db0| 64 69 72 28 6f 6c 69 62 | 29 3b 0a 20 20 20 20 70 |dir(olib|);.    p|
|00003dc0| 72 69 6e 74 66 28 22 4f | 6c 64 20 6c 69 62 72 61 |rintf("O|ld libra|
|00003dd0| 72 79 20 68 61 73 20 25 | 64 20 73 6c 6f 74 73 5c |ry has %|d slots\|
|00003de0| 6e 22 2c 20 6f 6c 64 73 | 69 7a 65 20 3d 20 6e 73 |n", olds|ize = ns|
|00003df0| 6c 6f 74 73 29 3b 0a 20 | 20 20 20 66 6f 72 28 69 |lots);. |   for(i|
|00003e00| 20 3d 20 30 3b 20 69 20 | 3c 20 6e 73 6c 6f 74 73 | = 0; i |< nslots|
|00003e10| 20 3b 20 69 2b 2b 29 0a | 09 20 20 20 20 63 6f 70 | ; i++).|.    cop|
|00003e20| 79 6d 65 6d 28 20 28 63 | 68 61 72 20 2a 29 20 26 |ymem( (c|har *) &|
|00003e30| 6f 64 69 72 5b 69 5d 2c | 20 28 63 68 61 72 20 2a |odir[i],| (char *|
|00003e40| 29 20 26 6c 64 69 72 5b | 69 5d 2c 0a 09 09 09 73 |) &ldir[|i],....s|
|00003e50| 69 7a 65 6f 66 28 73 74 | 72 75 63 74 20 6c 75 64 |izeof(st|ruct lud|
|00003e60| 69 72 29 29 3b 0a 20 20 | 20 20 69 6e 69 74 64 69 |ir));.  |  initdi|
|00003e70| 72 28 6e 6c 69 62 29 3b | 0a 20 20 20 20 65 72 72 |r(nlib);|.    err|
|00003e80| 63 6e 74 20 3d 20 30 3b | 0a 0a 20 20 20 20 66 6f |cnt = 0;|..    fo|
|00003e90| 72 20 28 69 20 3d 20 6a | 20 3d 20 31 3b 20 69 20 |r (i = j| = 1; i |
|00003ea0| 3c 20 6f 6c 64 73 69 7a | 65 3b 20 69 2b 2b 29 0a |< oldsiz|e; i++).|
|00003eb0| 09 69 66 28 20 6f 64 69 | 72 5b 69 5d 2e 6c 5f 73 |.if( odi|r[i].l_s|
|00003ec0| 74 61 74 20 3d 3d 20 41 | 43 54 49 56 45 20 29 20 |tat == A|CTIVE ) |
|00003ed0| 7b 0a 09 20 20 20 20 69 | 66 28 76 65 72 62 6f 73 |{..    i|f(verbos|
|00003ee0| 65 29 0a 09 09 66 70 72 | 69 6e 74 66 28 73 74 64 |e)...fpr|intf(std|
|00003ef0| 65 72 72 2c 20 22 43 6f | 70 79 69 6e 67 3a 20 25 |err, "Co|pying: %|
|00003f00| 2d 38 2e 38 73 2e 25 33 | 2e 33 73 5c 6e 22 2c 0a |-8.8s.%3|.3s\n",.|
|00003f10| 09 09 09 6f 64 69 72 5b | 69 5d 2e 6c 5f 6e 61 6d |...odir[|i].l_nam|
|00003f20| 65 2c 20 6f 64 69 72 5b | 69 5d 2e 6c 5f 65 78 74 |e, odir[|i].l_ext|
|00003f30| 29 3b 0a 09 20 20 20 20 | 63 6f 70 79 65 6e 74 72 |);..    |copyentr|
|00003f40| 79 28 20 26 6f 64 69 72 | 5b 69 5d 2c 20 6f 6c 69 |y( &odir|[i], oli|
|00003f50| 62 2c 20 20 26 6c 64 69 | 72 5b 6a 5d 2c 20 6e 6c |b,  &ldi|r[j], nl|
|00003f60| 69 62 29 3b 0a 09 20 20 | 20 20 69 66 20 28 2b 2b |ib);..  |  if (++|
|00003f70| 6a 20 3e 3d 20 6e 73 6c | 6f 74 73 29 20 7b 0a 09 |j >= nsl|ots) {..|
|00003f80| 09 65 72 72 63 6e 74 2b | 2b 3b 0a 09 09 66 70 72 |.errcnt+|+;...fpr|
|00003f90| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 20 22 4e 6f |intf(std|err, "No|
|00003fa0| 74 20 65 6e 6f 75 67 68 | 20 72 6f 6f 6d 20 69 6e |t enough| room in|
|00003fb0| 20 6e 65 77 20 6c 69 62 | 72 61 72 79 5c 6e 22 29 | new lib|rary\n")|
|00003fc0| 3b 0a 09 09 62 72 65 61 | 6b 3b 0a 09 20 20 20 20 |;...brea|k;..    |
|00003fd0| 7d 0a 20 20 20 20 20 20 | 20 20 7d 0a 0a 20 20 20 |}.      |  }..   |
|00003fe0| 20 56 4f 49 44 20 66 63 | 6c 6f 73 65 28 6f 6c 69 | VOID fc|lose(oli|
|00003ff0| 62 29 3b 0a 20 20 20 20 | 70 75 74 64 69 72 28 6e |b);.    |putdir(n|
|00004000| 6c 69 62 29 3b 0a 20 20 | 20 20 56 4f 49 44 20 66 |lib);.  |  VOID f|
|00004010| 63 6c 6f 73 65 20 28 6e | 6c 69 62 29 3b 0a 0a 20 |close (n|lib);.. |
|00004020| 20 20 20 69 66 28 65 72 | 72 63 6e 74 20 3d 3d 20 |   if(er|rcnt == |
|00004030| 30 29 20 7b 0a 09 69 66 | 20 28 20 75 6e 6c 69 6e |0) {..if| ( unlin|
|00004040| 6b 28 6e 61 6d 65 29 20 | 3c 20 30 20 7c 7c 20 6c |k(name) |< 0 || l|
|00004050| 69 6e 6b 28 74 6d 70 6e | 61 6d 65 2c 20 6e 61 6d |ink(tmpn|ame, nam|
|00004060| 65 29 20 3c 20 30 29 20 | 7b 0a 09 20 20 20 20 56 |e) < 0) |{..    V|
|00004070| 4f 49 44 20 75 6e 6c 69 | 6e 6b 28 74 6d 70 6e 61 |OID unli|nk(tmpna|
|00004080| 6d 65 29 3b 0a 09 20 20 | 20 20 63 61 6e 74 28 6e |me);..  |  cant(n|
|00004090| 61 6d 65 29 3b 0a 20 20 | 20 20 20 20 20 20 7d 0a |ame);.  |      }.|
|000040a0| 20 20 20 20 7d 0a 20 20 | 20 20 65 6c 73 65 0a 09 |    }.  |  else..|
|000040b0| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 22 |fprintf(|stderr,"|
|000040c0| 45 72 72 6f 72 73 2c 20 | 6c 69 62 72 61 72 79 20 |Errors, |library |
|000040d0| 6e 6f 74 20 75 70 64 61 | 74 65 64 5c 6e 22 29 3b |not upda|ted\n");|
|000040e0| 0a 20 20 20 20 56 4f 49 | 44 20 75 6e 6c 69 6e 6b |.    VOI|D unlink|
|000040f0| 28 74 6d 70 6e 61 6d 65 | 29 3b 0a 0a 7d 0a 0a 63 |(tmpname|);..}..c|
|00004100| 6f 70 79 65 6e 74 72 79 | 28 20 6f 6c 64 2c 20 6f |opyentry|( old, o|
|00004110| 66 2c 20 6e 65 77 2c 20 | 6e 66 20 29 0a 73 74 72 |f, new, |nf ).str|
|00004120| 75 63 74 20 6c 75 64 69 | 72 20 2a 6f 6c 64 2c 20 |uct ludi|r *old, |
|00004130| 2a 6e 65 77 3b 0a 46 49 | 4c 45 20 2a 6f 66 2c 20 |*new;.FI|LE *of, |
|00004140| 2a 6e 66 3b 0a 7b 0a 20 | 20 20 20 72 65 67 69 73 |*nf;.{. |   regis|
|00004150| 74 65 72 20 69 6e 74 20 | 73 65 63 6f 66 66 73 2c |ter int |secoffs,|
|00004160| 20 6e 75 6d 73 65 63 73 | 3b 0a 20 20 20 20 63 68 | numsecs|;.    ch|
|00004170| 61 72 20 62 75 66 5b 53 | 45 43 54 4f 52 5d 3b 0a |ar buf[S|ECTOR];.|
|00004180| 0a 20 20 20 20 6e 65 77 | 2d 3e 6c 5f 73 74 61 74 |.    new|->l_stat|
|00004190| 20 3d 20 41 43 54 49 56 | 45 3b 0a 20 20 20 20 63 | = ACTIV|E;.    c|
|000041a0| 6f 70 79 6d 65 6d 28 6e | 65 77 2d 3e 6c 5f 6e 61 |opymem(n|ew->l_na|
|000041b0| 6d 65 2c 20 6f 6c 64 2d | 3e 6c 5f 6e 61 6d 65 2c |me, old-|>l_name,|
|000041c0| 20 38 29 3b 0a 20 20 20 | 20 63 6f 70 79 6d 65 6d | 8);.   | copymem|
|000041d0| 28 6e 65 77 2d 3e 6c 5f | 65 78 74 2c 20 6f 6c 64 |(new->l_|ext, old|
|000041e0| 2d 3e 6c 5f 65 78 74 2c | 20 33 29 3b 0a 20 20 20 |->l_ext,| 3);.   |
|000041f0| 20 56 4f 49 44 20 66 73 | 65 65 6b 28 6f 66 2c 20 | VOID fs|eek(of, |
|00004200| 28 6c 6f 6e 67 29 20 77 | 74 6f 69 28 6f 6c 64 2d |(long) w|toi(old-|
|00004210| 3e 6c 5f 6f 66 66 29 2a | 53 45 43 54 4f 52 2c 20 |>l_off)*|SECTOR, |
|00004220| 30 29 3b 0a 20 20 20 20 | 56 4f 49 44 20 66 73 65 |0);.    |VOID fse|
|00004230| 65 6b 28 6e 66 2c 20 30 | 4c 2c 20 32 29 3b 0a 20 |ek(nf, 0|L, 2);. |
|00004240| 20 20 20 73 65 63 6f 66 | 66 73 20 3d 20 66 74 65 |   secof|fs = fte|
|00004250| 6c 6c 28 6e 66 29 20 2f | 20 53 45 43 54 4f 52 3b |ll(nf) /| SECTOR;|
|00004260| 0a 0a 20 20 20 20 69 74 | 6f 77 20 28 6e 65 77 2d |..    it|ow (new-|
|00004270| 3e 6c 5f 6f 66 66 2c 20 | 73 65 63 6f 66 66 73 29 |>l_off, |secoffs)|
|00004280| 3b 0a 20 20 20 20 6e 75 | 6d 73 65 63 73 20 3d 20 |;.    nu|msecs = |
|00004290| 77 74 6f 69 28 6f 6c 64 | 2d 3e 6c 5f 6c 65 6e 29 |wtoi(old|->l_len)|
|000042a0| 3b 0a 20 20 20 20 69 74 | 6f 77 20 28 6e 65 77 2d |;.    it|ow (new-|
|000042b0| 3e 6c 5f 6c 65 6e 2c 20 | 6e 75 6d 73 65 63 73 29 |>l_len, |numsecs)|
|000042c0| 3b 0a 0a 20 20 20 20 77 | 68 69 6c 65 28 6e 75 6d |;..    w|hile(num|
|000042d0| 73 65 63 73 2d 2d 20 21 | 3d 20 30 29 20 7b 0a 09 |secs-- !|= 0) {..|
|000042e0| 69 66 28 20 66 72 65 61 | 64 28 20 62 75 66 2c 20 |if( frea|d( buf, |
|000042f0| 31 2c 20 53 45 43 54 4f | 52 2c 20 6f 66 29 20 21 |1, SECTO|R, of) !|
|00004300| 3d 20 53 45 43 54 4f 52 | 29 0a 09 20 20 20 20 65 |= SECTOR|)..    e|
|00004310| 72 72 6f 72 28 22 72 65 | 61 64 20 65 72 72 6f 72 |rror("re|ad error|
|00004320| 22 29 3b 0a 09 69 66 28 | 20 66 77 72 69 74 65 28 |");..if(| fwrite(|
|00004330| 20 62 75 66 2c 20 31 2c | 20 53 45 43 54 4f 52 2c | buf, 1,| SECTOR,|
|00004340| 20 6e 66 29 20 21 3d 20 | 53 45 43 54 4f 52 29 0a | nf) != |SECTOR).|
|00004350| 09 20 20 20 20 65 72 72 | 6f 72 28 22 77 72 69 74 |.    err|or("writ|
|00004360| 65 20 65 72 72 6f 72 22 | 29 3b 0a 20 20 20 20 7d |e error"|);.    }|
|00004370| 0a 7d 0a 0a 63 6f 70 79 | 6d 65 6d 28 64 73 74 2c |.}..copy|mem(dst,|
|00004380| 20 73 72 63 2c 20 6e 29 | 0a 72 65 67 69 73 74 65 | src, n)|.registe|
|00004390| 72 20 63 68 61 72 20 2a | 64 73 74 2c 20 2a 73 72 |r char *|dst, *sr|
|000043a0| 63 3b 0a 72 65 67 69 73 | 74 65 72 20 75 6e 73 69 |c;.regis|ter unsi|
|000043b0| 67 6e 65 64 20 69 6e 74 | 20 6e 3b 0a 7b 0a 09 77 |gned int| n;.{..w|
|000043c0| 68 69 6c 65 28 6e 2d 2d | 20 21 3d 20 30 29 0a 09 |hile(n--| != 0)..|
|000043d0| 09 2a 64 73 74 2b 2b 20 | 3d 20 2a 73 72 63 2b 2b |.*dst++ |= *src++|
|000043e0| 3b 0a 7d 0a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |;.}.....|........|
|000043f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+