/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume06 / compress.xnx

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 76 30 36 69 30 32 33 |Subject:| v06i023|
|00000010| 3a 20 20 58 65 6e 69 78 | 20 70 61 74 63 68 65 73 |:  Xenix| patches|
|00000020| 20 74 6f 20 63 6f 6d 70 | 72 65 73 73 34 2e 30 20 | to comp|ress4.0 |
|00000030| 28 63 6f 6d 70 72 65 73 | 73 2e 78 65 6e 69 78 29 |(compres|s.xenix)|
|00000040| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 6d 6f 64 |.Newsgro|ups: mod|
|00000050| 2e 73 6f 75 72 63 65 73 | 0a 41 70 70 72 6f 76 65 |.sources|.Approve|
|00000060| 64 3a 20 72 73 40 6d 69 | 72 72 6f 72 2e 55 55 43 |d: rs@mi|rror.UUC|
|00000070| 50 0a 0a 53 75 62 6d 69 | 74 74 65 64 20 62 79 3a |P..Submi|tted by:|
|00000080| 20 63 6f 6e 64 6f 72 21 | 67 65 6e 72 61 64 21 70 | condor!|genrad!p|
|00000090| 61 6e 64 61 21 74 61 6c | 63 6f 74 74 21 73 65 69 |anda!tal|cott!sei|
|000000a0| 73 6d 6f 21 76 72 64 78 | 68 71 21 42 4d 53 2d 41 |smo!vrdx|hq!BMS-A|
|000000b0| 54 21 73 74 75 61 72 74 | 0a 4d 6f 64 2e 73 6f 75 |T!stuart|.Mod.sou|
|000000c0| 72 63 65 73 3a 20 56 6f | 6c 75 6d 65 20 36 2c 20 |rces: Vo|lume 6, |
|000000d0| 49 73 73 75 65 20 32 33 | 0a 41 72 63 68 69 76 65 |Issue 23|.Archive|
|000000e0| 2d 6e 61 6d 65 3a 20 63 | 6f 6d 70 72 65 73 73 2e |-name: c|ompress.|
|000000f0| 78 65 6e 69 78 0a 0a 5b | 20 20 54 68 65 20 73 6f |xenix..[|  The so|
|00000100| 75 72 63 65 20 74 68 61 | 74 20 77 61 73 20 73 75 |urce tha|t was su|
|00000110| 62 6d 69 74 74 65 64 20 | 68 61 64 20 74 68 65 20 |bmitted |had the |
|00000120| 66 69 6e 61 6c 20 68 75 | 6e 6b 20 6c 6f 6f 6b 20 |final hu|nk look |
|00000130| 6c 69 6b 65 20 74 68 69 | 73 3a 0a 09 31 33 38 30 |like thi|s:..1380|
|00000140| 63 31 34 34 33 0a 09 3c | 20 6c 6f 6e 67 20 69 6e |c1443..<| long in|
|00000150| 74 20 6e 75 6d 2c 20 64 | 65 6e 3b 09 2f 2a 20 6e |t num, d|en;./* n|
|00000160| 65 76 65 72 20 77 61 6e | 74 20 31 36 2d 62 69 74 |ever wan|t 16-bit|
|00000170| 20 2a 2f 0a 09 2d 2d 2d | 0a 09 3e 20 63 6f 75 6e | */..---|..> coun|
|00000180| 74 5f 69 6e 74 20 6e 75 | 6d 2c 20 64 65 6e 3b 0a |t_int nu|m, den;.|
|00000190| 09 31 34 30 37 61 31 34 | 37 31 2c 31 34 37 33 0a |.1407a14|71,1473.|
|000001a0| 09 3e 20 23 65 6e 64 69 | 66 0a 09 3e 20 23 69 66 |.> #endi|f..> #if|
|000001b0| 64 65 66 20 58 45 4e 49 | 58 5f 31 36 0a 09 3e 20 |def XENI|X_16..> |
|000001c0| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|000001d0| 20 22 58 45 4e 49 58 5f | 31 36 2c 20 22 29 3b 0a | "XENIX_|16, ");.|
|000001e0| 20 20 20 4d 79 20 63 6f | 70 79 2c 20 61 6e 64 20 |   My co|py, and |
|000001f0| 74 68 65 20 6f 6e 65 20 | 69 6e 20 74 68 65 20 6d |the one |in the m|
|00000200| 6f 64 2e 73 6f 75 72 63 | 65 73 20 61 72 63 68 69 |od.sourc|es archi|
|00000210| 76 65 2c 20 64 6f 65 73 | 6e 27 74 20 68 61 76 65 |ve, does|n't have|
|00000220| 20 74 68 65 0a 20 20 20 | 22 6e 65 76 65 72 20 77 | the.   |"never w|
|00000230| 61 6e 74 22 20 63 6f 6d | 6d 65 6e 74 2e 0a 0a 20 |ant" com|ment... |
|00000240| 20 20 49 20 70 61 74 63 | 68 65 64 20 61 20 63 6f |  I patc|hed a co|
|00000250| 70 79 20 6f 66 20 74 68 | 65 20 73 6f 75 72 63 65 |py of th|e source|
|00000260| 20 61 6e 64 20 63 6f 6d | 70 69 6c 65 64 20 61 6e | and com|piled an|
|00000270| 64 20 72 61 6e 20 69 74 | 2e 20 20 42 6f 74 68 0a |d ran it|.  Both.|
|00000280| 20 20 20 74 68 65 20 70 | 61 74 63 68 65 64 20 76 |   the p|atched v|
|00000290| 65 72 73 69 6f 6e 20 61 | 6e 64 20 74 68 65 20 22 |ersion a|nd the "|
|000002a0| 6f 66 66 69 63 69 61 6c | 22 20 76 65 72 73 69 6f |official|" versio|
|000002b0| 6e 20 77 6f 72 6b 20 74 | 6f 67 65 74 68 65 72 2c |n work t|ogether,|
|000002c0| 0a 20 20 20 61 6e 64 20 | 67 65 6e 65 72 61 74 65 |.   and |generate|
|000002d0| 20 69 64 65 6e 74 69 63 | 61 6c 20 6f 75 74 70 75 | identic|al outpu|
|000002e0| 74 20 66 72 6f 6d 20 69 | 64 65 6e 74 69 63 61 6c |t from i|dentical|
|000002f0| 20 69 6e 70 75 74 2e 20 | 20 54 68 69 73 20 68 6f | input. | This ho|
|00000300| 6c 64 73 0a 20 20 20 66 | 6f 72 20 6d 79 20 34 2e |lds.   f|or my 4.|
|00000310| 32 42 53 44 20 56 61 78 | 37 35 30 3b 20 6e 6f 20 |2BSD Vax|750; no |
|00000320| 67 75 61 72 61 6e 74 65 | 65 73 20 6f 6e 20 6f 74 |guarante|es on ot|
|00000330| 68 65 72 20 6d 61 63 68 | 69 6e 65 73 2c 20 61 6e |her mach|ines, an|
|00000340| 64 20 49 0a 20 20 20 64 | 6f 6e 27 74 20 68 61 76 |d I.   d|on't hav|
|00000350| 65 20 58 65 6e 69 78 2e | 20 20 2d 2d 72 24 5d 0a |e Xenix.|  --r$].|
|00000360| 0a 09 49 20 72 65 63 65 | 6e 74 6c 79 20 72 65 63 |..I rece|ntly rec|
|00000370| 65 69 76 65 64 20 74 68 | 65 20 73 68 65 6c 6c 20 |eived th|e shell |
|00000380| 61 72 63 68 69 76 65 73 | 20 66 6f 72 20 63 6f 6d |archives| for com|
|00000390| 70 72 65 73 73 20 61 6e | 64 20 72 65 6c 61 74 65 |press an|d relate|
|000003a0| 64 0a 75 74 69 6c 69 74 | 69 65 73 2e 20 20 57 65 |d.utilit|ies.  We|
|000003b0| 20 61 72 65 20 72 75 6e | 6e 69 6e 67 20 61 20 31 | are run|ning a 1|
|000003c0| 36 2d 62 69 74 20 58 65 | 6e 69 78 20 6d 61 63 68 |6-bit Xe|nix mach|
|000003d0| 69 6e 65 20 61 73 20 77 | 65 6c 6c 20 61 73 20 61 |ine as w|ell as a|
|000003e0| 20 31 36 2f 33 32 20 62 | 69 74 0a 6d 6f 74 6f 72 | 16/32 b|it.motor|
|000003f0| 6f 6c 61 20 36 33 35 30 | 2e 20 20 54 68 65 20 58 |ola 6350|.  The X|
|00000400| 45 4e 49 58 5f 31 36 20 | 63 6f 64 65 20 66 6f 72 |ENIX_16 |code for|
|00000410| 20 63 6f 6d 70 72 65 73 | 73 20 64 69 64 20 6e 6f | compres|s did no|
|00000420| 74 20 77 6f 72 6b 2e 20 | 20 54 68 65 0a 70 72 6f |t work. | The.pro|
|00000430| 62 6c 65 6d 20 77 61 73 | 3a 0a 09 61 29 20 61 20 |blem was|:..a) a |
|00000440| 70 72 6f 62 6c 65 6d 20 | 77 69 74 68 20 74 68 65 |problem |with the|
|00000450| 20 6c 61 72 67 65 20 6d | 6f 64 65 6c 20 63 6f 64 | large m|odel cod|
|00000460| 65 20 6f 70 74 69 6d 69 | 7a 65 72 2e 0a 09 62 29 |e optimi|zer...b)|
|00000470| 20 74 68 65 20 63 6f 6e | 73 74 61 6e 74 20 28 31 | the con|stant (1|
|00000480| 3c 3c 31 36 29 20 61 73 | 20 61 73 73 69 67 6e 65 |<<16) as| assigne|
|00000490| 64 20 74 6f 20 6d 61 78 | 63 6f 64 65 20 65 76 61 |d to max|code eva|
|000004a0| 6c 75 61 74 65 73 0a 09 | 20 20 20 74 6f 20 7a 65 |luates..|   to ze|
|000004b0| 72 6f 20 6f 6e 20 61 20 | 31 36 20 62 69 74 20 6d |ro on a |16 bit m|
|000004c0| 61 63 68 69 6e 65 21 0a | 41 66 74 65 72 20 66 69 |achine!.|After fi|
|000004d0| 78 69 6e 67 20 70 72 6f | 62 6c 65 6d 20 62 2c 20 |xing pro|blem b, |
|000004e0| 49 20 72 65 6d 6f 76 65 | 64 20 74 68 65 20 58 45 |I remove|d the XE|
|000004f0| 4e 49 58 5f 31 36 20 63 | 6f 64 65 20 61 6e 64 20 |NIX_16 c|ode and |
|00000500| 69 6e 73 74 65 61 64 20 | 64 65 63 6c 61 72 65 64 |instead |declared|
|00000510| 0a 74 68 65 20 6c 61 72 | 67 65 20 61 72 72 61 79 |.the lar|ge array|
|00000520| 73 20 61 73 20 27 68 75 | 67 65 27 2e 20 20 54 68 |s as 'hu|ge'.  Th|
|00000530| 69 73 20 61 6c 6c 6f 77 | 73 20 61 20 73 6d 61 6c |is allow|s a smal|
|00000540| 6c 20 6d 6f 64 65 6c 20 | 70 72 6f 67 72 61 6d 20 |l model |program |
|00000550| 74 68 61 74 20 75 73 65 | 73 0a 33 32 2d 62 69 74 |that use|s.32-bit|
|00000560| 20 70 6f 69 6e 74 65 72 | 73 20 6f 6e 6c 79 20 66 | pointer|s only f|
|00000570| 6f 72 20 63 6f 64 65 74 | 61 62 20 61 6e 64 20 68 |or codet|ab and h|
|00000580| 74 61 62 2e 20 20 54 68 | 69 73 20 61 6c 73 6f 20 |tab.  Th|is also |
|00000590| 72 65 6d 6f 76 65 73 20 | 74 68 65 20 6b 6c 75 64 |removes |the klud|
|000005a0| 67 65 0a 63 6f 64 65 20 | 66 6f 72 20 6d 75 6c 74 |ge.code |for mult|
|000005b0| 69 70 6c 65 20 61 72 72 | 61 79 73 2e 20 20 44 65 |iple arr|ays.  De|
|000005c0| 66 69 6e 69 6e 67 20 74 | 68 65 20 62 69 67 20 63 |fining t|he big c|
|000005d0| 6f 6e 73 74 61 6e 74 73 | 20 61 73 20 6c 6f 6e 67 |onstants| as long|
|000005e0| 0a 69 73 20 6e 6f 74 20 | 6e 65 63 65 73 73 61 72 |.is not |necessar|
|000005f0| 79 20 6f 6e 20 6f 75 72 | 20 63 6f 6d 70 69 6c 65 |y on our| compile|
|00000600| 72 2c 20 62 75 74 20 64 | 6f 65 73 6e 27 74 20 68 |r, but d|oesn't h|
|00000610| 75 72 74 20 61 6e 64 20 | 6d 61 79 20 68 65 6c 70 |urt and |may help|
|00000620| 20 6f 74 68 65 72 0a 31 | 36 2d 62 69 74 20 63 6f | other.1|6-bit co|
|00000630| 6d 70 69 6c 65 72 73 2e | 20 20 49 20 63 68 61 6e |mpilers.|  I chan|
|00000640| 67 65 64 20 74 68 65 20 | 6c 6f 67 69 63 20 73 6c |ged the |logic sl|
|00000650| 69 67 68 74 6c 79 20 69 | 6e 20 63 6f 6d 70 72 65 |ightly i|n compre|
|00000660| 73 73 28 29 20 61 6e 64 | 0a 64 65 63 6f 6d 70 72 |ss() and|.decompr|
|00000670| 65 73 73 28 29 20 74 6f | 20 61 6c 6c 6f 77 20 74 |ess() to| allow t|
|00000680| 68 65 20 75 73 65 20 6f | 66 20 75 6e 73 69 67 6e |he use o|f unsign|
|00000690| 65 64 20 73 68 6f 72 74 | 20 66 6f 72 20 68 65 61 |ed short| for hea|
|000006a0| 76 69 6c 79 20 75 73 65 | 64 20 76 61 72 69 61 62 |vily use|d variab|
|000006b0| 6c 65 73 0a 63 6f 6e 74 | 61 69 6e 69 6e 67 20 63 |les.cont|aining c|
|000006c0| 6f 64 65 20 76 61 6c 75 | 65 73 2e 20 20 54 68 69 |ode valu|es.  Thi|
|000006d0| 73 20 6d 61 6b 65 73 20 | 74 68 69 6e 67 73 20 61 |s makes |things a|
|000006e0| 62 6f 75 74 20 35 25 20 | 66 61 73 74 65 72 20 6f |bout 5% |faster o|
|000006f0| 6e 20 61 20 31 36 2d 62 | 69 74 0a 6d 61 63 68 69 |n a 16-b|it.machi|
|00000700| 6e 65 2e 20 20 50 6c 65 | 61 73 65 20 6d 61 69 6c |ne.  Ple|ase mail|
|00000710| 20 6d 65 20 73 6f 6d 65 | 20 63 6f 6d 6d 65 6e 74 | me some| comment|
|00000720| 73 20 61 62 6f 75 74 20 | 77 68 65 74 68 65 72 20 |s about |whether |
|00000730| 79 6f 75 20 61 70 70 72 | 65 63 69 61 74 65 0a 74 |you appr|eciate.t|
|00000740| 68 69 73 20 6d 61 69 6c | 2e 0a 0a 09 53 74 75 61 |his mail|....Stua|
|00000750| 72 74 20 44 2e 20 47 61 | 74 68 6d 61 6e 20 3c 76 |rt D. Ga|thman <v|
|00000760| 72 64 78 68 71 21 42 4d | 53 2d 41 54 21 73 74 75 |rdxhq!BM|S-AT!stu|
|00000770| 61 72 74 3e 0a 0a 23 21 | 2f 62 69 6e 2f 73 68 0a |art>..#!|/bin/sh.|
|00000780| 23 20 54 68 69 73 20 69 | 73 20 61 20 73 68 65 6c |# This i|s a shel|
|00000790| 6c 20 61 72 63 68 69 76 | 65 2e 20 20 52 65 6d 6f |l archiv|e.  Remo|
|000007a0| 76 65 20 61 6e 79 74 68 | 69 6e 67 20 62 65 66 6f |ve anyth|ing befo|
|000007b0| 72 65 20 74 68 69 73 20 | 6c 69 6e 65 2c 0a 23 20 |re this |line,.# |
|000007c0| 74 68 65 6e 20 75 6e 70 | 61 63 6b 20 69 74 20 62 |then unp|ack it b|
|000007d0| 79 20 73 61 76 69 6e 67 | 20 69 74 20 69 6e 20 61 |y saving| it in a|
|000007e0| 20 66 69 6c 65 20 61 6e | 64 20 74 79 70 69 6e 67 | file an|d typing|
|000007f0| 20 22 73 68 20 66 69 6c | 65 22 2e 0a 23 20 43 6f | "sh fil|e"..# Co|
|00000800| 6e 74 65 6e 74 73 3a 20 | 20 63 6f 6d 70 72 65 73 |ntents: | compres|
|00000810| 73 2e 70 61 74 63 68 0a | 20 0a 65 63 68 6f 20 78 |s.patch.| .echo x|
|00000820| 20 2d 20 63 6f 6d 70 72 | 65 73 73 2e 70 61 74 63 | - compr|ess.patc|
|00000830| 68 0a 73 65 64 20 27 73 | 2f 5e 58 58 2f 2f 27 20 |h.sed 's|/^XX//' |
|00000840| 3e 20 22 63 6f 6d 70 72 | 65 73 73 2e 70 61 74 63 |> "compr|ess.patc|
|00000850| 68 22 20 3c 3c 27 40 2f | 2f 45 2a 4f 2a 46 20 63 |h" <<'@/|/E*O*F c|
|00000860| 6f 6d 70 72 65 73 73 2e | 70 61 74 63 68 2f 2f 27 |ompress.|patch//'|
|00000870| 0a 58 58 32 32 63 32 32 | 0a 58 58 3c 20 23 20 64 |.XX22c22|.XX< # d|
|00000880| 65 66 69 6e 65 20 55 53 | 45 52 4d 45 4d 20 09 34 |efine US|ERMEM .4|
|00000890| 35 30 30 30 30 4c 09 2f | 2a 20 64 65 66 61 75 6c |50000L./|* defaul|
|000008a0| 74 20 75 73 65 72 20 6d | 65 6d 6f 72 79 20 2a 2f |t user m|emory */|
|000008b0| 0a 58 58 2d 2d 2d 0a 58 | 58 3e 20 23 20 64 65 66 |.XX---.X|X> # def|
|000008c0| 69 6e 65 20 55 53 45 52 | 4d 45 4d 20 09 34 35 30 |ine USER|MEM .450|
|000008d0| 30 30 30 09 2f 2a 20 64 | 65 66 61 75 6c 74 20 75 |000./* d|efault u|
|000008e0| 73 65 72 20 6d 65 6d 6f | 72 79 20 2a 2f 0a 58 58 |ser memo|ry */.XX|
|000008f0| 34 36 2c 34 39 64 34 35 | 0a 58 58 3c 20 23 69 66 |46,49d45|.XX< #if|
|00000900| 6e 64 65 66 20 4d 5f 58 | 45 4e 49 58 0a 58 58 3c |ndef M_X|ENIX.XX<|
|00000910| 20 23 20 20 64 65 66 69 | 6e 65 20 68 75 67 65 09 | #  defi|ne huge.|
|00000920| 09 2f 2a 20 6e 65 65 64 | 65 64 20 6f 6e 6c 79 20 |./* need|ed only |
|00000930| 66 6f 72 20 31 36 2d 62 | 69 74 20 6d 61 63 68 69 |for 16-b|it machi|
|00000940| 6e 65 73 20 2a 2f 0a 58 | 58 3c 20 23 65 6e 64 69 |nes */.X|X< #endi|
|00000950| 66 0a 58 58 3c 20 0a 58 | 58 35 31 63 34 37 0a 58 |f.XX< .X|X51c47.X|
|00000960| 58 3c 20 23 20 69 66 20 | 55 53 45 52 4d 45 4d 20 |X< # if |USERMEM |
|00000970| 3e 3d 20 28 34 33 33 34 | 38 34 4c 2b 53 41 43 52 |>= (4334|84L+SACR|
|00000980| 45 44 4d 45 4d 29 0a 58 | 58 2d 2d 2d 0a 58 58 3e |EDMEM).X|X---.XX>|
|00000990| 20 23 20 69 66 20 55 53 | 45 52 4d 45 4d 20 3e 3d | # if US|ERMEM >=|
|000009a0| 20 28 34 33 33 34 38 34 | 2b 53 41 43 52 45 44 4d | (433484|+SACREDM|
|000009b0| 45 4d 29 0a 58 58 37 38 | 63 37 34 0a 58 58 3c 20 |EM).XX78|c74.XX< |
|000009c0| 23 20 64 65 66 69 6e 65 | 20 48 53 49 5a 45 09 36 |# define| HSIZE.6|
|000009d0| 39 30 30 31 4c 09 09 2f | 2a 20 39 35 25 20 6f 63 |9001L../|* 95% oc|
|000009e0| 63 75 70 61 6e 63 79 20 | 2a 2f 0a 58 58 2d 2d 2d |cupancy |*/.XX---|
|000009f0| 0a 58 58 3e 20 23 20 64 | 65 66 69 6e 65 20 48 53 |.XX> # d|efine HS|
|00000a00| 49 5a 45 09 36 39 30 30 | 31 09 09 2f 2a 20 39 35 |IZE.6900|1../* 95|
|00000a10| 25 20 6f 63 63 75 70 61 | 6e 63 79 20 2a 2f 0a 58 |% occupa|ncy */.X|
|00000a20| 58 38 31 63 37 37 0a 58 | 58 3c 20 23 20 64 65 66 |X81c77.X|X< # def|
|00000a30| 69 6e 65 20 48 53 49 5a | 45 09 33 35 30 32 33 4c |ine HSIZ|E.35023L|
|00000a40| 09 09 2f 2a 20 39 34 25 | 20 6f 63 63 75 70 61 6e |../* 94%| occupan|
|00000a50| 63 79 20 2a 2f 0a 58 58 | 2d 2d 2d 0a 58 58 3e 20 |cy */.XX|---.XX> |
|00000a60| 23 20 64 65 66 69 6e 65 | 20 48 53 49 5a 45 09 33 |# define| HSIZE.3|
|00000a70| 35 30 32 33 09 09 2f 2a | 20 39 34 25 20 6f 63 63 |5023../*| 94% occ|
|00000a80| 75 70 61 6e 63 79 20 2a | 2f 0a 58 58 39 32 61 38 |upancy *|/.XX92a8|
|00000a90| 39 2c 39 38 0a 58 58 3e | 20 23 69 66 64 65 66 20 |9,98.XX>| #ifdef |
|00000aa0| 4d 5f 58 45 4e 49 58 09 | 09 09 2f 2a 20 53 74 75 |M_XENIX.|../* Stu|
|00000ab0| 70 69 64 20 63 6f 6d 70 | 69 6c 65 72 20 63 61 6e |pid comp|iler can|
|00000ac0| 27 74 20 68 61 6e 64 6c | 65 20 61 72 72 61 79 73 |'t handl|e arrays|
|00000ad0| 20 77 69 74 68 20 2a 2f | 0a 58 58 3e 20 23 20 69 | with */|.XX> # i|
|00000ae0| 66 20 42 49 54 53 20 3d | 3d 20 31 36 09 09 09 2f |f BITS =|= 16.../|
|00000af0| 2a 20 6d 6f 72 65 20 74 | 68 61 6e 20 36 35 35 33 |* more t|han 6553|
|00000b00| 35 20 62 79 74 65 73 20 | 2d 20 73 6f 20 77 65 20 |5 bytes |- so we |
|00000b10| 66 61 6b 65 20 69 74 20 | 2a 2f 0a 58 58 3e 20 23 |fake it |*/.XX> #|
|00000b20| 20 20 64 65 66 69 6e 65 | 20 58 45 4e 49 58 5f 31 |  define| XENIX_1|
|00000b30| 36 0a 58 58 3e 20 23 20 | 65 6c 73 65 0a 58 58 3e |6.XX> # |else.XX>|
|00000b40| 20 23 20 20 69 66 20 42 | 49 54 53 20 3e 20 31 33 | #  if B|ITS > 13|
|00000b50| 09 09 09 2f 2a 20 43 6f | 64 65 20 6f 6e 6c 79 20 |.../* Co|de only |
|00000b60| 68 61 6e 64 6c 65 73 20 | 42 49 54 53 20 3d 20 31 |handles |BITS = 1|
|00000b70| 32 2c 20 31 33 2c 20 6f | 72 20 31 36 20 2a 2f 0a |2, 13, o|r 16 */.|
|00000b80| 58 58 3e 20 23 20 20 20 | 64 65 66 69 6e 65 20 42 |XX> #   |define B|
|00000b90| 49 54 53 09 31 33 0a 58 | 58 3e 20 23 20 20 65 6e |ITS.13.X|X> #  en|
|00000ba0| 64 69 66 0a 58 58 3e 20 | 23 20 65 6e 64 69 66 0a |dif.XX> |# endif.|
|00000bb0| 58 58 3e 20 23 65 6e 64 | 69 66 0a 58 58 3e 20 0a |XX> #end|if.XX> .|
|00000bc0| 58 58 32 35 39 63 32 36 | 35 0a 58 58 3c 20 63 6f |XX259c26|5.XX< co|
|00000bd0| 64 65 5f 69 6e 74 20 6d | 61 78 6d 61 78 63 6f 64 |de_int m|axmaxcod|
|00000be0| 65 3b 09 09 09 2f 2a 20 | 73 68 6f 75 6c 64 20 4e |e;.../* |should N|
|00000bf0| 45 56 45 52 20 67 65 6e | 65 72 61 74 65 20 74 68 |EVER gen|erate th|
|00000c00| 69 73 20 63 6f 64 65 20 | 2a 2f 0a 58 58 2d 2d 2d |is code |*/.XX---|
|00000c10| 0a 58 58 3e 20 63 6f 64 | 65 5f 69 6e 74 20 6d 61 |.XX> cod|e_int ma|
|00000c20| 78 6d 61 78 63 6f 64 65 | 20 3d 20 31 20 3c 3c 20 |xmaxcode| = 1 << |
|00000c30| 42 49 54 53 3b 09 2f 2a | 20 73 68 6f 75 6c 64 20 |BITS;./*| should |
|00000c40| 4e 45 56 45 52 20 67 65 | 6e 65 72 61 74 65 20 74 |NEVER ge|nerate t|
|00000c50| 68 69 73 20 63 6f 64 65 | 20 2a 2f 0a 58 58 32 36 |his code| */.XX26|
|00000c60| 31 63 32 36 37 0a 58 58 | 3c 20 23 20 64 65 66 69 |1c267.XX|< # defi|
|00000c70| 6e 65 20 4d 41 58 43 4f | 44 45 28 6e 5f 62 69 74 |ne MAXCO|DE(n_bit|
|00000c80| 73 29 09 28 28 63 6f 64 | 65 5f 69 6e 74 29 31 20 |s).((cod|e_int)1 |
|00000c90| 3c 3c 20 28 6e 5f 62 69 | 74 73 29 20 2d 20 31 29 |<< (n_bi|ts) - 1)|
|00000ca0| 0a 58 58 2d 2d 2d 0a 58 | 58 3e 20 23 20 64 65 66 |.XX---.X|X> # def|
|00000cb0| 69 6e 65 20 4d 41 58 43 | 4f 44 45 28 6e 5f 62 69 |ine MAXC|ODE(n_bi|
|00000cc0| 74 73 29 09 28 31 20 3c | 3c 20 28 6e 5f 62 69 74 |ts).(1 <|< (n_bit|
|00000cd0| 73 29 20 2d 20 31 29 0a | 58 58 32 36 33 63 32 36 |s) - 1).|XX263c26|
|00000ce0| 39 0a 58 58 3c 20 23 20 | 64 65 66 69 6e 65 20 4d |9.XX< # |define M|
|00000cf0| 41 58 43 4f 44 45 28 6e | 5f 62 69 74 73 29 09 28 |AXCODE(n|_bits).(|
|00000d00| 28 28 63 6f 64 65 5f 69 | 6e 74 29 31 20 3c 3c 20 |((code_i|nt)1 << |
|00000d10| 28 6e 5f 62 69 74 73 29 | 29 20 2d 20 31 29 0a 58 |(n_bits)|) - 1).X|
|00000d20| 58 2d 2d 2d 0a 58 58 3e | 20 23 20 64 65 66 69 6e |X---.XX>| # defin|
|00000d30| 65 20 4d 41 58 43 4f 44 | 45 28 6e 5f 62 69 74 73 |e MAXCOD|E(n_bits|
|00000d40| 29 09 28 28 31 20 3c 3c | 20 28 6e 5f 62 69 74 73 |).((1 <<| (n_bits|
|00000d50| 29 29 20 2d 20 31 29 0a | 58 58 32 36 36 2c 32 36 |)) - 1).|XX266,26|
|00000d60| 37 63 32 37 32 2c 32 39 | 38 0a 58 58 3c 20 63 6f |7c272,29|8.XX< co|
|00000d70| 75 6e 74 5f 69 6e 74 20 | 68 75 67 65 20 68 74 61 |unt_int |huge hta|
|00000d80| 62 20 5b 48 53 49 5a 45 | 5d 3b 0a 58 58 3c 20 75 |b [HSIZE|];.XX< u|
|00000d90| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 68 75 |nsigned |short hu|
|00000da0| 67 65 20 63 6f 64 65 74 | 61 62 20 5b 48 53 49 5a |ge codet|ab [HSIZ|
|00000db0| 45 5d 3b 0a 58 58 2d 2d | 2d 0a 58 58 3e 20 23 69 |E];.XX--|-.XX> #i|
|00000dc0| 66 64 65 66 20 58 45 4e | 49 58 5f 31 36 0a 58 58 |fdef XEN|IX_16.XX|
|00000dd0| 3e 20 63 6f 75 6e 74 5f | 69 6e 74 20 68 74 61 62 |> count_|int htab|
|00000de0| 30 5b 38 31 39 32 5d 3b | 0a 58 58 3e 20 63 6f 75 |0[8192];|.XX> cou|
|00000df0| 6e 74 5f 69 6e 74 20 68 | 74 61 62 31 5b 38 31 39 |nt_int h|tab1[819|
|00000e00| 32 5d 3b 0a 58 58 3e 20 | 63 6f 75 6e 74 5f 69 6e |2];.XX> |count_in|
|00000e10| 74 20 68 74 61 62 32 5b | 38 31 39 32 5d 3b 0a 58 |t htab2[|8192];.X|
|00000e20| 58 3e 20 63 6f 75 6e 74 | 5f 69 6e 74 20 68 74 61 |X> count|_int hta|
|00000e30| 62 33 5b 38 31 39 32 5d | 3b 0a 58 58 3e 20 63 6f |b3[8192]|;.XX> co|
|00000e40| 75 6e 74 5f 69 6e 74 20 | 68 74 61 62 34 5b 38 31 |unt_int |htab4[81|
|00000e50| 39 32 5d 3b 0a 58 58 3e | 20 63 6f 75 6e 74 5f 69 |92];.XX>| count_i|
|00000e60| 6e 74 20 68 74 61 62 35 | 5b 38 31 39 32 5d 3b 0a |nt htab5|[8192];.|
|00000e70| 58 58 3e 20 63 6f 75 6e | 74 5f 69 6e 74 20 68 74 |XX> coun|t_int ht|
|00000e80| 61 62 36 5b 38 31 39 32 | 5d 3b 0a 58 58 3e 20 63 |ab6[8192|];.XX> c|
|00000e90| 6f 75 6e 74 5f 69 6e 74 | 20 68 74 61 62 37 5b 38 |ount_int| htab7[8|
|00000ea0| 31 39 32 5d 3b 0a 58 58 | 3e 20 63 6f 75 6e 74 5f |192];.XX|> count_|
|00000eb0| 69 6e 74 20 68 74 61 62 | 38 5b 48 53 49 5a 45 2d |int htab|8[HSIZE-|
|00000ec0| 36 35 35 33 36 5d 3b 0a | 58 58 3e 20 63 6f 75 6e |65536];.|XX> coun|
|00000ed0| 74 5f 69 6e 74 20 2a 20 | 68 74 61 62 5b 39 5d 20 |t_int * |htab[9] |
|00000ee0| 3d 20 7b 0a 58 58 3e 20 | 09 68 74 61 62 30 2c 20 |= {.XX> |.htab0, |
|00000ef0| 68 74 61 62 31 2c 20 68 | 74 61 62 32 2c 20 68 74 |htab1, h|tab2, ht|
|00000f00| 61 62 33 2c 20 68 74 61 | 62 34 2c 20 68 74 61 62 |ab3, hta|b4, htab|
|00000f10| 35 2c 20 68 74 61 62 36 | 2c 20 68 74 61 62 37 2c |5, htab6|, htab7,|
|00000f20| 20 68 74 61 62 38 20 7d | 3b 0a 58 58 3e 20 0a 58 | htab8 }|;.XX> .X|
|00000f30| 58 3e 20 23 64 65 66 69 | 6e 65 20 68 74 61 62 6f |X> #defi|ne htabo|
|00000f40| 66 28 69 29 09 28 68 74 | 61 62 5b 28 69 29 20 3e |f(i).(ht|ab[(i) >|
|00000f50| 3e 20 31 33 5d 5b 28 69 | 29 20 26 20 30 78 31 66 |> 13][(i|) & 0x1f|
|00000f60| 66 66 5d 29 0a 58 58 3e | 20 75 6e 73 69 67 6e 65 |ff]).XX>| unsigne|
|00000f70| 64 20 73 68 6f 72 74 20 | 63 6f 64 65 30 74 61 62 |d short |code0tab|
|00000f80| 5b 31 36 33 38 34 5d 3b | 0a 58 58 3e 20 75 6e 73 |[16384];|.XX> uns|
|00000f90| 69 67 6e 65 64 20 73 68 | 6f 72 74 20 63 6f 64 65 |igned sh|ort code|
|00000fa0| 31 74 61 62 5b 31 36 33 | 38 34 5d 3b 0a 58 58 3e |1tab[163|84];.XX>|
|00000fb0| 20 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 20 | unsigne|d short |
|00000fc0| 63 6f 64 65 32 74 61 62 | 5b 31 36 33 38 34 5d 3b |code2tab|[16384];|
|00000fd0| 0a 58 58 3e 20 75 6e 73 | 69 67 6e 65 64 20 73 68 |.XX> uns|igned sh|
|00000fe0| 6f 72 74 20 63 6f 64 65 | 33 74 61 62 5b 31 36 33 |ort code|3tab[163|
|00000ff0| 38 34 5d 3b 0a 58 58 3e | 20 75 6e 73 69 67 6e 65 |84];.XX>| unsigne|
|00001000| 64 20 73 68 6f 72 74 20 | 63 6f 64 65 34 74 61 62 |d short |code4tab|
|00001010| 5b 31 36 33 38 34 5d 3b | 0a 58 58 3e 20 75 6e 73 |[16384];|.XX> uns|
|00001020| 69 67 6e 65 64 20 73 68 | 6f 72 74 20 2a 20 63 6f |igned sh|ort * co|
|00001030| 64 65 74 61 62 5b 35 5d | 20 3d 20 7b 0a 58 58 3e |detab[5]| = {.XX>|
|00001040| 20 09 63 6f 64 65 30 74 | 61 62 2c 20 63 6f 64 65 | .code0t|ab, code|
|00001050| 31 74 61 62 2c 20 63 6f | 64 65 32 74 61 62 2c 20 |1tab, co|de2tab, |
|00001060| 63 6f 64 65 33 74 61 62 | 2c 20 63 6f 64 65 34 74 |code3tab|, code4t|
|00001070| 61 62 20 7d 3b 0a 58 58 | 3e 20 0a 58 58 3e 20 23 |ab };.XX|> .XX> #|
|00001080| 64 65 66 69 6e 65 20 63 | 6f 64 65 74 61 62 6f 66 |define c|odetabof|
|00001090| 28 69 29 09 28 63 6f 64 | 65 74 61 62 5b 28 69 29 |(i).(cod|etab[(i)|
|000010a0| 20 3e 3e 20 31 34 5d 5b | 28 69 29 20 26 20 30 78 | >> 14][|(i) & 0x|
|000010b0| 33 66 66 66 5d 29 0a 58 | 58 3e 20 0a 58 58 3e 20 |3fff]).X|X> .XX> |
|000010c0| 23 65 6c 73 65 09 2f 2a | 20 4e 6f 72 6d 61 6c 20 |#else./*| Normal |
|000010d0| 6d 61 63 68 69 6e 65 20 | 2a 2f 0a 58 58 3e 20 63 |machine |*/.XX> c|
|000010e0| 6f 75 6e 74 5f 69 6e 74 | 20 68 74 61 62 20 5b 48 |ount_int| htab [H|
|000010f0| 53 49 5a 45 5d 3b 0a 58 | 58 3e 20 75 6e 73 69 67 |SIZE];.X|X> unsig|
|00001100| 6e 65 64 20 73 68 6f 72 | 74 20 63 6f 64 65 74 61 |ned shor|t codeta|
|00001110| 62 20 5b 48 53 49 5a 45 | 5d 3b 0a 58 58 32 36 39 |b [HSIZE|];.XX269|
|00001120| 61 33 30 31 0a 58 58 3e | 20 23 65 6e 64 69 66 09 |a301.XX>| #endif.|
|00001130| 2f 2a 20 58 45 4e 49 58 | 5f 31 36 20 2a 2f 0a 58 |/* XENIX|_16 */.X|
|00001140| 58 32 38 33 2c 32 38 34 | 63 33 31 35 2c 33 32 31 |X283,284|c315,321|
|00001150| 0a 58 58 3c 20 23 20 64 | 65 66 69 6e 65 20 74 61 |.XX< # d|efine ta|
|00001160| 62 5f 73 75 66 66 69 78 | 6f 66 28 69 29 09 28 28 |b_suffix|of(i).((|
|00001170| 63 68 61 72 5f 74 79 70 | 65 20 68 75 67 65 20 2a |char_typ|e huge *|
|00001180| 29 28 68 74 61 62 29 29 | 5b 69 5d 0a 58 58 3c 20 |)(htab))|[i].XX< |
|00001190| 23 20 64 65 66 69 6e 65 | 20 64 65 5f 73 74 61 63 |# define| de_stac|
|000011a0| 6b 09 09 28 28 63 68 61 | 72 5f 74 79 70 65 20 68 |k..((cha|r_type h|
|000011b0| 75 67 65 20 2a 29 26 74 | 61 62 5f 73 75 66 66 69 |uge *)&t|ab_suffi|
|000011c0| 78 6f 66 28 31 3c 3c 42 | 49 54 53 29 29 0a 58 58 |xof(1<<B|ITS)).XX|
|000011d0| 2d 2d 2d 0a 58 58 3e 20 | 23 69 66 64 65 66 20 58 |---.XX> |#ifdef X|
|000011e0| 45 4e 49 58 5f 31 36 0a | 58 58 3e 20 23 20 64 65 |ENIX_16.|XX> # de|
|000011f0| 66 69 6e 65 20 74 61 62 | 5f 73 75 66 66 69 78 6f |fine tab|_suffixo|
|00001200| 66 28 69 29 09 28 28 63 | 68 61 72 5f 74 79 70 65 |f(i).((c|har_type|
|00001210| 20 2a 29 68 74 61 62 5b | 28 69 29 3e 3e 31 35 5d | *)htab[|(i)>>15]|
|00001220| 29 5b 28 69 29 20 26 20 | 30 78 37 66 66 66 5d 0a |)[(i) & |0x7fff].|
|00001230| 58 58 3e 20 23 20 64 65 | 66 69 6e 65 20 64 65 5f |XX> # de|fine de_|
|00001240| 73 74 61 63 6b 09 09 28 | 28 63 68 61 72 5f 74 79 |stack..(|(char_ty|
|00001250| 70 65 20 2a 29 28 68 74 | 61 62 32 29 29 0a 58 58 |pe *)(ht|ab2)).XX|
|00001260| 3e 20 23 65 6c 73 65 09 | 2f 2a 20 4e 6f 72 6d 61 |> #else.|/* Norma|
|00001270| 6c 20 6d 61 63 68 69 6e | 65 20 2a 2f 0a 58 58 3e |l machin|e */.XX>|
|00001280| 20 23 20 64 65 66 69 6e | 65 20 74 61 62 5f 73 75 | # defin|e tab_su|
|00001290| 66 66 69 78 6f 66 28 69 | 29 09 28 28 63 68 61 72 |ffixof(i|).((char|
|000012a0| 5f 74 79 70 65 20 2a 29 | 28 68 74 61 62 29 29 5b |_type *)|(htab))[|
|000012b0| 69 5d 0a 58 58 3e 20 23 | 20 64 65 66 69 6e 65 20 |i].XX> #| define |
|000012c0| 64 65 5f 73 74 61 63 6b | 09 09 28 28 63 68 61 72 |de_stack|..((char|
|000012d0| 5f 74 79 70 65 20 2a 29 | 26 74 61 62 5f 73 75 66 |_type *)|&tab_suf|
|000012e0| 66 69 78 6f 66 28 31 3c | 3c 42 49 54 53 29 29 0a |fixof(1<|<BITS)).|
|000012f0| 58 58 3e 20 23 65 6e 64 | 69 66 09 2f 2a 20 58 45 |XX> #end|if./* XE|
|00001300| 4e 49 58 5f 31 36 20 2a | 2f 0a 58 58 34 38 35 63 |NIX_16 *|/.XX485c|
|00001310| 35 32 32 0a 58 58 3c 20 | 20 20 20 20 6d 61 78 6d |522.XX< |    maxm|
|00001320| 61 78 63 6f 64 65 20 3d | 20 28 63 6f 64 65 5f 69 |axcode =| (code_i|
|00001330| 6e 74 29 31 20 3c 3c 20 | 6d 61 78 62 69 74 73 3b |nt)1 << |maxbits;|
|00001340| 0a 58 58 2d 2d 2d 0a 58 | 58 3e 20 20 20 20 20 6d |.XX---.X|X>     m|
|00001350| 61 78 6d 61 78 63 6f 64 | 65 20 3d 20 31 20 3c 3c |axmaxcod|e = 1 <<|
|00001360| 20 6d 61 78 62 69 74 73 | 3b 0a 58 58 35 31 33 63 | maxbits|;.XX513c|
|00001370| 35 35 30 0a 58 58 3c 20 | 09 09 20 20 20 20 6d 61 |550.XX< |..    ma|
|00001380| 78 6d 61 78 63 6f 64 65 | 20 3d 20 28 63 6f 64 65 |xmaxcode| = (code|
|00001390| 5f 69 6e 74 29 31 20 3c | 3c 20 6d 61 78 62 69 74 |_int)1 <|< maxbit|
|000013a0| 73 3b 0a 58 58 2d 2d 2d | 0a 58 58 3e 20 09 09 20 |s;.XX---|.XX> .. |
|000013b0| 20 20 20 6d 61 78 6d 61 | 78 63 6f 64 65 20 3d 20 |   maxma|xcode = |
|000013c0| 31 20 3c 3c 20 6d 61 78 | 62 69 74 73 3b 0a 58 58 |1 << max|bits;.XX|
|000013d0| 36 33 31 63 36 36 38 0a | 58 58 3c 20 09 09 6d 61 |631c668.|XX< ..ma|
|000013e0| 78 6d 61 78 63 6f 64 65 | 20 3d 20 28 63 6f 64 65 |xmaxcode| = (code|
|000013f0| 5f 69 6e 74 29 31 20 3c | 3c 20 6d 61 78 62 69 74 |_int)1 <|< maxbit|
|00001400| 73 3b 0a 58 58 2d 2d 2d | 0a 58 58 3e 20 09 09 6d |s;.XX---|.XX> ..m|
|00001410| 61 78 6d 61 78 63 6f 64 | 65 20 3d 20 31 20 3c 3c |axmaxcod|e = 1 <<|
|00001420| 20 6d 61 78 62 69 74 73 | 3b 0a 58 58 36 37 35 63 | maxbits|;.XX675c|
|00001430| 37 31 32 0a 58 58 3c 20 | 20 20 20 20 72 65 67 69 |712.XX< |    regi|
|00001440| 73 74 65 72 20 63 6f 64 | 65 5f 69 6e 74 20 69 20 |ster cod|e_int i |
|00001450| 3d 20 30 3b 09 2f 2a 20 | 6d 75 73 74 20 68 6f 6c |= 0;./* |must hol|
|00001460| 64 20 48 53 49 5a 45 20 | 2a 2f 0a 58 58 2d 2d 2d |d HSIZE |*/.XX---|
|00001470| 0a 58 58 3e 20 20 20 20 | 20 72 65 67 69 73 74 65 |.XX>    | registe|
|00001480| 72 20 63 6f 64 65 5f 69 | 6e 74 20 69 20 3d 20 30 |r code_i|nt i = 0|
|00001490| 3b 0a 58 58 36 37 37 2c | 36 37 38 63 37 31 34 2c |;.XX677,|678c714,|
|000014a0| 37 31 39 0a 58 58 3c 20 | 20 20 20 20 72 65 67 69 |719.XX< |    regi|
|000014b0| 73 74 65 72 20 75 6e 73 | 69 67 6e 65 64 20 65 6e |ster uns|igned en|
|000014c0| 74 3b 09 2f 2a 20 6d 75 | 73 74 20 68 6f 6c 64 20 |t;./* mu|st hold |
|000014d0| 42 49 54 53 20 62 69 74 | 73 20 2a 2f 0a 58 58 3c |BITS bit|s */.XX<|
|000014e0| 20 20 20 20 20 72 65 67 | 69 73 74 65 72 20 63 6f |     reg|ister co|
|000014f0| 64 65 5f 69 6e 74 20 64 | 69 73 70 3b 09 2f 2a 20 |de_int d|isp;./* |
|00001500| 6d 75 73 74 20 68 6f 6c | 64 20 48 53 49 5a 45 20 |must hol|d HSIZE |
|00001510| 2a 2f 0a 58 58 2d 2d 2d | 0a 58 58 3e 20 20 20 20 |*/.XX---|.XX>    |
|00001520| 20 72 65 67 69 73 74 65 | 72 20 63 6f 64 65 5f 69 | registe|r code_i|
|00001530| 6e 74 20 65 6e 74 3b 0a | 58 58 3e 20 23 69 66 64 |nt ent;.|XX> #ifd|
|00001540| 65 66 20 58 45 4e 49 58 | 5f 31 36 0a 58 58 3e 20 |ef XENIX|_16.XX> |
|00001550| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 63 6f 64 |    regi|ster cod|
|00001560| 65 5f 69 6e 74 20 64 69 | 73 70 3b 0a 58 58 3e 20 |e_int di|sp;.XX> |
|00001570| 23 65 6c 73 65 09 2f 2a | 20 4e 6f 72 6d 61 6c 20 |#else./*| Normal |
|00001580| 6d 61 63 68 69 6e 65 20 | 2a 2f 0a 58 58 3e 20 20 |machine |*/.XX>  |
|00001590| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |   regis|ter int |
|000015a0| 64 69 73 70 3b 0a 58 58 | 3e 20 23 65 6e 64 69 66 |disp;.XX|> #endif|
|000015b0| 0a 58 58 38 30 39 2c 38 | 31 30 63 38 35 30 2c 38 |.XX809,8|10c850,8|
|000015c0| 35 31 0a 58 58 3c 20 6f | 75 74 70 75 74 28 20 69 |51.XX< o|utput( i|
|000015d0| 6e 63 6f 64 65 20 29 0a | 58 58 3c 20 20 20 63 6f |ncode ).|XX<   co|
|000015e0| 64 65 5f 69 6e 74 20 20 | 69 6e 63 6f 64 65 3b 0a |de_int  |incode;.|
|000015f0| 58 58 2d 2d 2d 0a 58 58 | 3e 20 6f 75 74 70 75 74 |XX---.XX|> output|
|00001600| 28 20 63 6f 64 65 20 29 | 0a 58 58 3e 20 63 6f 64 |( code )|.XX> cod|
|00001610| 65 5f 69 6e 74 20 20 63 | 6f 64 65 3b 0a 58 58 38 |e_int  c|ode;.XX8|
|00001620| 32 31 64 38 36 31 0a 58 | 58 3c 20 20 20 20 20 72 |21d861.X|X<     r|
|00001630| 65 67 69 73 74 65 72 20 | 75 6e 73 69 67 6e 65 64 |egister |unsigned|
|00001640| 20 73 68 6f 72 74 20 63 | 6f 64 65 3b 0a 58 58 38 | short c|ode;.XX8|
|00001650| 32 39 2c 38 33 30 63 38 | 36 39 0a 58 58 3c 20 20 |29,830c8|69.XX<  |
|00001660| 20 20 20 69 66 20 28 20 | 69 6e 63 6f 64 65 20 3e |   if ( |incode >|
|00001670| 3d 20 30 20 29 20 7b 0a | 58 58 3c 20 09 63 6f 64 |= 0 ) {.|XX< .cod|
|00001680| 65 20 3d 20 69 6e 63 6f | 64 65 3b 0a 58 58 2d 2d |e = inco|de;.XX--|
|00001690| 2d 0a 58 58 3e 20 20 20 | 20 20 69 66 20 28 20 63 |-.XX>   |  if ( c|
|000016a0| 6f 64 65 20 3e 3d 20 30 | 20 29 20 7b 0a 58 58 38 |ode >= 0| ) {.XX8|
|000016b0| 36 33 63 39 30 32 0a 58 | 58 3c 20 09 69 66 20 28 |63c902.X|X< .if (|
|000016c0| 62 69 74 73 29 0a 58 58 | 2d 2d 2d 0a 58 58 3e 20 |bits).XX|---.XX> |
|000016d0| 09 69 66 28 62 69 74 73 | 29 0a 58 58 39 33 38 63 |.if(bits|).XX938c|
|000016e0| 39 37 37 0a 58 58 3c 20 | 20 20 20 20 72 65 67 69 |977.XX< |    regi|
|000016f0| 73 74 65 72 20 63 68 61 | 72 5f 74 79 70 65 20 68 |ster cha|r_type h|
|00001700| 75 67 65 20 2a 73 74 61 | 63 6b 70 3b 0a 58 58 2d |uge *sta|ckp;.XX-|
|00001710| 2d 2d 0a 58 58 3e 20 20 | 20 20 20 72 65 67 69 73 |--.XX>  |   regis|
|00001720| 74 65 72 20 63 68 61 72 | 5f 74 79 70 65 20 2a 73 |ter char|_type *s|
|00001730| 74 61 63 6b 70 3b 0a 58 | 58 39 34 30 2c 39 34 31 |tackp;.X|X940,941|
|00001740| 63 39 37 39 0a 58 58 3c | 20 20 20 20 20 72 65 67 |c979.XX<|     reg|
|00001750| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 73 |ister un|signed s|
|00001760| 68 6f 72 74 20 63 6f 64 | 65 3b 0a 58 58 3c 20 20 |hort cod|e;.XX<  |
|00001770| 20 20 20 72 65 67 69 73 | 74 65 72 20 63 6f 64 65 |   regis|ter code|
|00001780| 5f 69 6e 74 20 6f 6c 64 | 63 6f 64 65 2c 20 69 6e |_int old|code, in|
|00001790| 63 6f 64 65 3b 0a 58 58 | 2d 2d 2d 0a 58 58 3e 20 |code;.XX|---.XX> |
|000017a0| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 63 6f 64 |    regi|ster cod|
|000017b0| 65 5f 69 6e 74 20 63 6f | 64 65 2c 20 6f 6c 64 63 |e_int co|de, oldc|
|000017c0| 6f 64 65 2c 20 69 6e 63 | 6f 64 65 3b 0a 58 58 39 |ode, inc|ode;.XX9|
|000017d0| 34 37 2c 39 34 39 63 39 | 38 35 2c 39 38 37 0a 58 |47,949c9|85,987.X|
|000017e0| 58 3c 20 20 20 20 20 66 | 6f 72 20 28 20 69 6e 63 |X<     f|or ( inc|
|000017f0| 6f 64 65 20 3d 20 32 35 | 35 3b 20 69 6e 63 6f 64 |ode = 25|5; incod|
|00001800| 65 20 3e 3d 20 30 3b 20 | 69 6e 63 6f 64 65 2d 2d |e >= 0; |incode--|
|00001810| 20 29 20 7b 0a 58 58 3c | 20 09 74 61 62 5f 70 72 | ) {.XX<| .tab_pr|
|00001820| 65 66 69 78 6f 66 28 69 | 6e 63 6f 64 65 29 20 3d |efixof(i|ncode) =|
|00001830| 20 30 3b 0a 58 58 3c 20 | 09 74 61 62 5f 73 75 66 | 0;.XX< |.tab_suf|
|00001840| 66 69 78 6f 66 28 69 6e | 63 6f 64 65 29 20 3d 20 |fixof(in|code) = |
|00001850| 28 63 68 61 72 5f 74 79 | 70 65 29 69 6e 63 6f 64 |(char_ty|pe)incod|
|00001860| 65 3b 0a 58 58 2d 2d 2d | 0a 58 58 3e 20 20 20 20 |e;.XX---|.XX>    |
|00001870| 20 66 6f 72 20 28 20 63 | 6f 64 65 20 3d 20 32 35 | for ( c|ode = 25|
|00001880| 35 3b 20 63 6f 64 65 20 | 3e 3d 20 30 3b 20 63 6f |5; code |>= 0; co|
|00001890| 64 65 2d 2d 20 29 20 7b | 0a 58 58 3e 20 09 74 61 |de-- ) {|.XX> .ta|
|000018a0| 62 5f 70 72 65 66 69 78 | 6f 66 28 63 6f 64 65 29 |b_prefix|of(code)|
|000018b0| 20 3d 20 30 3b 0a 58 58 | 3e 20 09 74 61 62 5f 73 | = 0;.XX|> .tab_s|
|000018c0| 75 66 66 69 78 6f 66 28 | 63 6f 64 65 29 20 3d 20 |uffixof(|code) = |
|000018d0| 28 63 68 61 72 5f 74 79 | 70 65 29 63 6f 64 65 3b |(char_ty|pe)code;|
|000018e0| 0a 58 58 39 35 36 63 39 | 39 34 0a 58 58 3c 20 20 |.XX956c9|94.XX<  |
|000018f0| 20 20 20 70 75 74 63 68 | 61 72 28 20 66 69 6e 63 |   putch|ar( finc|
|00001900| 68 61 72 20 29 3b 09 09 | 2f 2a 20 66 69 72 73 74 |har );..|/* first|
|00001910| 20 63 6f 64 65 20 6d 75 | 73 74 20 62 65 20 38 20 | code mu|st be 8 |
|00001920| 62 69 74 73 20 3d 20 63 | 68 61 72 20 2a 2f 0a 58 |bits = c|har */.X|
|00001930| 58 2d 2d 2d 0a 58 58 3e | 20 20 20 20 20 70 75 74 |X---.XX>|     put|
|00001940| 63 68 61 72 28 20 28 63 | 68 61 72 29 66 69 6e 63 |char( (c|har)finc|
|00001950| 68 61 72 20 29 3b 09 09 | 2f 2a 20 66 69 72 73 74 |har );..|/* first|
|00001960| 20 63 6f 64 65 20 6d 75 | 73 74 20 62 65 20 38 20 | code mu|st be 8 |
|00001970| 62 69 74 73 20 3d 20 63 | 68 61 72 20 2a 2f 0a 58 |bits = c|har */.X|
|00001980| 58 39 36 31 63 39 39 39 | 0a 58 58 3c 20 20 20 20 |X961c999|.XX<    |
|00001990| 20 77 68 69 6c 65 20 28 | 20 28 69 6e 63 6f 64 65 | while (| (incode|
|000019a0| 20 3d 20 67 65 74 63 6f | 64 65 28 29 29 20 3e 20 | = getco|de()) > |
|000019b0| 2d 31 20 29 20 7b 0a 58 | 58 2d 2d 2d 0a 58 58 3e |-1 ) {.X|X---.XX>|
|000019c0| 20 20 20 20 20 77 68 69 | 6c 65 20 28 20 28 63 6f |     whi|le ( (co|
|000019d0| 64 65 20 3d 20 67 65 74 | 63 6f 64 65 28 29 29 20 |de = get|code()) |
|000019e0| 3e 20 2d 31 20 29 20 7b | 0a 58 58 39 36 33 64 31 |> -1 ) {|.XX963d1|
|000019f0| 30 30 30 0a 58 58 3c 20 | 09 63 6f 64 65 20 3d 20 |000.XX< |.code = |
|00001a00| 69 6e 63 6f 64 65 3b 0a | 58 58 39 36 35 2c 39 36 |incode;.|XX965,96|
|00001a10| 36 63 31 30 30 32 2c 31 | 30 30 33 0a 58 58 3c 20 |6c1002,1|003.XX< |
|00001a20| 09 20 20 20 20 66 6f 72 | 20 28 20 69 6e 63 6f 64 |.    for| ( incod|
|00001a30| 65 20 3d 20 32 35 35 3b | 20 69 6e 63 6f 64 65 20 |e = 255;| incode |
|00001a40| 3e 3d 20 30 3b 20 69 6e | 63 6f 64 65 2d 2d 20 29 |>= 0; in|code-- )|
|00001a50| 0a 58 58 3c 20 09 09 74 | 61 62 5f 70 72 65 66 69 |.XX< ..t|ab_prefi|
|00001a60| 78 6f 66 28 69 6e 63 6f | 64 65 29 20 3d 20 30 3b |xof(inco|de) = 0;|
|00001a70| 0a 58 58 2d 2d 2d 0a 58 | 58 3e 20 09 20 20 20 20 |.XX---.X|X> .    |
|00001a80| 66 6f 72 20 28 20 63 6f | 64 65 20 3d 20 32 35 35 |for ( co|de = 255|
|00001a90| 3b 20 63 6f 64 65 20 3e | 3d 20 30 3b 20 63 6f 64 |; code >|= 0; cod|
|00001aa0| 65 2d 2d 20 29 0a 58 58 | 3e 20 09 09 74 61 62 5f |e-- ).XX|> ..tab_|
|00001ab0| 70 72 65 66 69 78 6f 66 | 28 63 6f 64 65 29 20 3d |prefixof|(code) =|
|00001ac0| 20 30 3b 0a 58 58 39 36 | 39 63 31 30 30 36 0a 58 | 0;.XX96|9c1006.X|
|00001ad0| 58 3c 20 09 20 20 20 20 | 69 66 20 28 20 28 69 6e |X< .    |if ( (in|
|00001ae0| 63 6f 64 65 20 3d 20 67 | 65 74 63 6f 64 65 20 28 |code = g|etcode (|
|00001af0| 29 29 20 3d 3d 20 2d 31 | 20 29 09 2f 2a 20 4f 2c |)) == -1| )./* O,|
|00001b00| 20 75 6e 74 69 6d 65 6c | 79 20 64 65 61 74 68 21 | untimel|y death!|
|00001b10| 20 2a 2f 0a 58 58 2d 2d | 2d 0a 58 58 3e 20 09 20 | */.XX--|-.XX> . |
|00001b20| 20 20 20 69 66 20 28 20 | 28 63 6f 64 65 20 3d 20 |   if ( |(code = |
|00001b30| 67 65 74 63 6f 64 65 20 | 28 29 29 20 3d 3d 20 2d |getcode |()) == -|
|00001b40| 31 20 29 09 2f 2a 20 4f | 2c 20 75 6e 74 69 6d 65 |1 )./* O|, untime|
|00001b50| 6c 79 20 64 65 61 74 68 | 21 20 2a 2f 0a 58 58 39 |ly death|! */.XX9|
|00001b60| 37 31 64 31 30 30 37 0a | 58 58 3c 20 09 20 20 20 |71d1007.|XX< .   |
|00001b70| 20 63 6f 64 65 20 3d 20 | 69 6e 63 6f 64 65 3b 0a | code = |incode;.|
|00001b80| 58 58 39 37 32 61 31 30 | 30 39 0a 58 58 3e 20 09 |XX972a10|09.XX> .|
|00001b90| 69 6e 63 6f 64 65 20 3d | 20 63 6f 64 65 3b 0a 58 |incode =| code;.X|
|00001ba0| 58 39 38 34 63 31 30 32 | 31 2c 31 30 32 35 0a 58 |X984c102|1,1025.X|
|00001bb0| 58 3c 20 09 77 68 69 6c | 65 20 28 20 63 6f 64 65 |X< .whil|e ( code|
|00001bc0| 20 3e 3d 20 32 35 36 20 | 29 20 7b 09 09 2f 2a 20 | >= 256 |) {../* |
|00001bd0| 61 6c 72 65 61 64 79 20 | 75 6e 73 69 67 6e 65 64 |already |unsigned|
|00001be0| 20 63 6f 6d 70 61 72 65 | 20 2a 2f 0a 58 58 2d 2d | compare| */.XX--|
|00001bf0| 2d 0a 58 58 3e 20 23 69 | 66 64 65 66 20 53 49 47 |-.XX> #i|fdef SIG|
|00001c00| 4e 45 44 5f 43 4f 4d 50 | 41 52 45 5f 53 4c 4f 57 |NED_COMP|ARE_SLOW|
|00001c10| 0a 58 58 3e 20 09 77 68 | 69 6c 65 20 28 20 28 28 |.XX> .wh|ile ( ((|
|00001c20| 75 6e 73 69 67 6e 65 64 | 20 6c 6f 6e 67 29 63 6f |unsigned| long)co|
|00001c30| 64 65 29 20 3e 3d 20 28 | 28 75 6e 73 69 67 6e 65 |de) >= (|(unsigne|
|00001c40| 64 20 6c 6f 6e 67 29 32 | 35 36 29 20 29 20 7b 0a |d long)2|56) ) {.|
|00001c50| 58 58 3e 20 23 65 6c 73 | 65 0a 58 58 3e 20 09 77 |XX> #els|e.XX> .w|
|00001c60| 68 69 6c 65 20 28 20 63 | 6f 64 65 20 3e 3d 20 32 |hile ( c|ode >= 2|
|00001c70| 35 36 20 29 20 7b 0a 58 | 58 3e 20 23 65 6e 64 69 |56 ) {.X|X> #endi|
|00001c80| 66 0a 58 58 31 30 30 30 | 2c 31 30 30 31 63 31 30 |f.XX1000|,1001c10|
|00001c90| 34 31 0a 58 58 3c 20 09 | 69 66 20 28 20 66 72 65 |41.XX< .|if ( fre|
|00001ca0| 65 5f 65 6e 74 20 3c 20 | 6d 61 78 6d 61 78 63 6f |e_ent < |maxmaxco|
|00001cb0| 64 65 20 29 20 7b 0a 58 | 58 3c 20 09 20 20 20 20 |de ) {.X|X< .    |
|00001cc0| 63 6f 64 65 20 3d 20 66 | 72 65 65 5f 65 6e 74 2b |code = f|ree_ent+|
|00001cd0| 2b 3b 0a 58 58 2d 2d 2d | 0a 58 58 3e 20 09 69 66 |+;.XX---|.XX> .if|
|00001ce0| 20 28 20 28 63 6f 64 65 | 3d 66 72 65 65 5f 65 6e | ( (code|=free_en|
|00001cf0| 74 29 20 3c 20 6d 61 78 | 6d 61 78 63 6f 64 65 20 |t) < max|maxcode |
|00001d00| 29 20 7b 0a 58 58 31 30 | 30 33 61 31 30 34 34 0a |) {.XX10|03a1044.|
|00001d10| 58 58 3e 20 09 20 20 20 | 20 66 72 65 65 5f 65 6e |XX> .   | free_en|
|00001d20| 74 20 3d 20 63 6f 64 65 | 2b 31 3b 0a 58 58 31 30 |t = code|+1;.XX10|
|00001d30| 32 35 63 31 30 36 36 2c | 31 30 36 37 0a 58 58 3c |25c1066,|1067.XX<|
|00001d40| 20 63 6f 64 65 5f 69 6e | 74 20 67 65 74 63 6f 64 | code_in|t getcod|
|00001d50| 65 28 29 20 7b 0a 58 58 | 2d 2d 2d 0a 58 58 3e 20 |e() {.XX|---.XX> |
|00001d60| 63 6f 64 65 5f 69 6e 74 | 0a 58 58 3e 20 67 65 74 |code_int|.XX> get|
|00001d70| 63 6f 64 65 28 29 20 7b | 0a 58 58 31 30 33 30 63 |code() {|.XX1030c|
|00001d80| 31 30 37 32 0a 58 58 3c | 20 20 20 20 20 72 65 67 |1072.XX<|     reg|
|00001d90| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 73 |ister un|signed s|
|00001da0| 68 6f 72 74 20 63 6f 64 | 65 3b 0a 58 58 2d 2d 2d |hort cod|e;.XX---|
|00001db0| 0a 58 58 3e 20 20 20 20 | 20 72 65 67 69 73 74 65 |.XX>    | registe|
|00001dc0| 72 20 63 6f 64 65 5f 69 | 6e 74 20 63 6f 64 65 3b |r code_i|nt code;|
|00001dd0| 0a 58 58 31 30 39 33 63 | 31 31 33 35 0a 58 58 3c |.XX1093c|1135.XX<|
|00001de0| 20 20 20 20 20 72 65 74 | 75 72 6e 20 28 63 6f 64 |     ret|urn (cod|
|00001df0| 65 5f 69 6e 74 29 63 6f | 64 65 3b 0a 58 58 2d 2d |e_int)co|de;.XX--|
|00001e00| 2d 0a 58 58 3e 20 20 20 | 20 20 72 65 74 75 72 6e |-.XX>   |  return|
|00001e10| 20 63 6f 64 65 3b 0a 58 | 58 31 31 38 35 2c 31 31 | code;.X|X1185,11|
|00001e20| 38 36 63 31 32 32 37 2c | 31 32 32 38 0a 58 58 3c |86c1227,|1228.XX<|
|00001e30| 20 09 20 20 20 66 6f 72 | 20 28 20 3b 20 65 6e 74 | .   for| ( ; ent|
|00001e40| 20 21 3d 20 30 3b 0a 58 | 58 3c 20 09 09 20 20 20 | != 0;.X|X< ..   |
|00001e50| 65 6e 74 20 3d 20 28 65 | 6e 74 20 3e 3d 20 46 49 |ent = (e|nt >= FI|
|00001e60| 52 53 54 20 3f 20 74 61 | 62 5f 70 72 65 66 69 78 |RST ? ta|b_prefix|
|00001e70| 6f 66 28 65 6e 74 29 20 | 3a 20 30 29 20 29 20 7b |of(ent) |: 0) ) {|
|00001e80| 0a 58 58 2d 2d 2d 0a 58 | 58 3e 20 09 20 20 20 66 |.XX---.X|X> .   f|
|00001e90| 6f 72 20 28 20 3b 20 65 | 6e 74 20 21 3d 20 4e 55 |or ( ; e|nt != NU|
|00001ea0| 4c 4c 3b 0a 58 58 3e 20 | 09 09 20 20 20 65 6e 74 |LL;.XX> |..   ent|
|00001eb0| 20 3d 20 28 65 6e 74 20 | 3e 3d 20 46 49 52 53 54 | = (ent |>= FIRST|
|00001ec0| 20 3f 20 74 61 62 5f 70 | 72 65 66 69 78 6f 66 28 | ? tab_p|refixof(|
|00001ed0| 65 6e 74 29 20 3a 20 4e | 55 4c 4c 29 20 29 20 7b |ent) : N|ULL) ) {|
|00001ee0| 0a 58 58 31 33 35 30 63 | 31 33 39 32 2c 31 33 39 |.XX1350c|1392,139|
|00001ef0| 38 0a 58 58 3c 20 09 72 | 65 67 69 73 74 65 72 20 |8.XX< .r|egister |
|00001f00| 63 6f 75 6e 74 5f 69 6e | 74 20 68 75 67 65 20 2a |count_in|t huge *|
|00001f10| 68 74 61 62 5f 70 20 3d | 20 68 74 61 62 2b 68 73 |htab_p =| htab+hs|
|00001f20| 69 7a 65 3b 0a 58 58 2d | 2d 2d 0a 58 58 3e 20 23 |ize;.XX-|--.XX> #|
|00001f30| 69 66 6e 64 65 66 20 58 | 45 4e 49 58 5f 31 36 09 |ifndef X|ENIX_16.|
|00001f40| 2f 2a 20 4e 6f 72 6d 61 | 6c 20 6d 61 63 68 69 6e |/* Norma|l machin|
|00001f50| 65 20 2a 2f 0a 58 58 3e | 20 09 72 65 67 69 73 74 |e */.XX>| .regist|
|00001f60| 65 72 20 63 6f 75 6e 74 | 5f 69 6e 74 20 2a 68 74 |er count|_int *ht|
|00001f70| 61 62 5f 70 20 3d 20 68 | 74 61 62 2b 68 73 69 7a |ab_p = h|tab+hsiz|
|00001f80| 65 3b 0a 58 58 3e 20 23 | 65 6c 73 65 0a 58 58 3e |e;.XX> #|else.XX>|
|00001f90| 20 09 72 65 67 69 73 74 | 65 72 20 6a 3b 0a 58 58 | .regist|er j;.XX|
|00001fa0| 3e 20 09 72 65 67 69 73 | 74 65 72 20 6c 6f 6e 67 |> .regis|ter long|
|00001fb0| 20 6b 20 3d 20 68 73 69 | 7a 65 3b 0a 58 58 3e 20 | k = hsi|ze;.XX> |
|00001fc0| 09 72 65 67 69 73 74 65 | 72 20 63 6f 75 6e 74 5f |.registe|r count_|
|00001fd0| 69 6e 74 20 2a 68 74 61 | 62 5f 70 3b 0a 58 58 3e |int *hta|b_p;.XX>|
|00001fe0| 20 23 65 6e 64 69 66 0a | 58 58 31 33 35 33 61 31 | #endif.|XX1353a1|
|00001ff0| 34 30 32 2c 31 34 31 31 | 0a 58 58 3e 20 23 69 66 |402,1411|.XX> #if|
|00002000| 64 65 66 20 58 45 4e 49 | 58 5f 31 36 0a 58 58 3e |def XENI|X_16.XX>|
|00002010| 20 20 20 20 20 66 6f 72 | 28 6a 3d 30 3b 20 6a 3c |     for|(j=0; j<|
|00002020| 3d 38 20 26 26 20 6b 3e | 3d 30 3b 20 6a 2b 2b 2c |=8 && k>|=0; j++,|
|00002030| 6b 2d 3d 38 31 39 32 29 | 20 7b 0a 58 58 3e 20 09 |k-=8192)| {.XX> .|
|00002040| 69 20 3d 20 38 31 39 32 | 3b 0a 58 58 3e 20 09 69 |i = 8192|;.XX> .i|
|00002050| 66 28 6b 20 3c 20 38 31 | 39 32 29 20 7b 0a 58 58 |f(k < 81|92) {.XX|
|00002060| 3e 20 09 09 69 20 3d 20 | 6b 3b 0a 58 58 3e 20 09 |> ..i = |k;.XX> .|
|00002070| 7d 0a 58 58 3e 20 09 68 | 74 61 62 5f 70 20 3d 20 |}.XX> .h|tab_p = |
|00002080| 26 28 68 74 61 62 5b 6a | 5d 5b 69 5d 29 3b 0a 58 |&(htab[j|][i]);.X|
|00002090| 58 3e 20 09 69 20 2d 3d | 20 31 36 3b 0a 58 58 3e |X> .i -=| 16;.XX>|
|000020a0| 20 09 69 66 28 69 20 3e | 20 30 29 20 7b 0a 58 58 | .if(i >| 0) {.XX|
|000020b0| 3e 20 23 65 6c 73 65 0a | 58 58 31 33 35 34 61 31 |> #else.|XX1354a1|
|000020c0| 34 31 33 0a 58 58 3e 20 | 23 65 6e 64 69 66 0a 58 |413.XX> |#endif.X|
|000020d0| 58 31 33 37 33 61 31 34 | 33 33 2c 31 34 33 36 0a |X1373a14|33,1436.|
|000020e0| 58 58 3e 20 23 69 66 64 | 65 66 20 58 45 4e 49 58 |XX> #ifd|ef XENIX|
|000020f0| 5f 31 36 0a 58 58 3e 20 | 09 7d 0a 58 58 3e 20 20 |_16.XX> |.}.XX>  |
|00002100| 20 20 20 7d 0a 58 58 3e | 20 23 65 6e 64 69 66 0a |   }.XX>| #endif.|
|00002110| 58 58 31 33 38 30 63 31 | 34 34 33 0a 58 58 3c 20 |XX1380c1|443.XX< |
|00002120| 6c 6f 6e 67 20 69 6e 74 | 20 6e 75 6d 2c 20 64 65 |long int| num, de|
|00002130| 6e 3b 0a 58 58 2d 2d 2d | 0a 58 58 3e 20 63 6f 75 |n;.XX---|.XX> cou|
|00002140| 6e 74 5f 69 6e 74 20 6e | 75 6d 2c 20 64 65 6e 3b |nt_int n|um, den;|
|00002150| 0a 58 58 31 34 30 37 61 | 31 34 37 31 2c 31 34 37 |.XX1407a|1471,147|
|00002160| 33 0a 58 58 3e 20 23 65 | 6e 64 69 66 0a 58 58 3e |3.XX> #e|ndif.XX>|
|00002170| 20 23 69 66 64 65 66 20 | 58 45 4e 49 58 5f 31 36 | #ifdef |XENIX_16|
|00002180| 0a 58 58 3e 20 09 66 70 | 72 69 6e 74 66 28 73 74 |.XX> .fp|rintf(st|
|00002190| 64 65 72 72 2c 20 22 58 | 45 4e 49 58 5f 31 36 2c |derr, "X|ENIX_16,|
|000021a0| 20 22 29 3b 0a 40 2f 2f | 45 2a 4f 2a 46 20 63 6f | ");.@//|E*O*F co|
|000021b0| 6d 70 72 65 73 73 2e 70 | 61 74 63 68 2f 2f 0a 63 |mpress.p|atch//.c|
|000021c0| 68 6d 6f 64 20 75 3d 72 | 77 2c 67 3d 72 77 2c 6f |hmod u=r|w,g=rw,o|
|000021d0| 3d 72 77 20 63 6f 6d 70 | 72 65 73 73 2e 70 61 74 |=rw comp|ress.pat|
|000021e0| 63 68 0a 20 0a 65 63 68 | 6f 20 49 6e 73 70 65 63 |ch. .ech|o Inspec|
|000021f0| 74 69 6e 67 20 66 6f 72 | 20 64 61 6d 61 67 65 20 |ting for| damage |
|00002200| 69 6e 20 74 72 61 6e 73 | 69 74 2e 2e 2e 0a 74 65 |in trans|it....te|
|00002210| 6d 70 3d 2f 74 6d 70 2f | 73 68 61 72 69 6e 24 24 |mp=/tmp/|sharin$$|
|00002220| 3b 20 64 74 65 6d 70 3d | 2f 74 6d 70 2f 73 68 61 |; dtemp=|/tmp/sha|
|00002230| 72 6f 75 74 24 24 0a 74 | 72 61 70 20 22 72 6d 20 |rout$$.t|rap "rm |
|00002240| 2d 66 20 24 74 65 6d 70 | 20 24 64 74 65 6d 70 3b |-f $temp| $dtemp;|
|00002250| 20 65 78 69 74 22 20 30 | 20 31 20 32 20 33 20 31 | exit" 0| 1 2 3 1|
|00002260| 35 0a 63 61 74 20 3e 20 | 24 74 65 6d 70 20 3c 3c |5.cat > |$temp <<|
|00002270| 5c 21 21 21 0a 20 20 20 | 20 20 32 34 32 20 20 20 |\!!!.   |  242   |
|00002280| 20 31 30 32 36 20 20 20 | 20 35 39 36 38 20 63 6f | 1026   | 5968 co|
|00002290| 6d 70 72 65 73 73 2e 70 | 61 74 63 68 0a 21 21 21 |mpress.p|atch.!!!|
|000022a0| 0a 77 63 20 20 63 6f 6d | 70 72 65 73 73 2e 70 61 |.wc  com|press.pa|
|000022b0| 74 63 68 20 7c 20 73 65 | 64 20 27 73 3d 5b 5e 20 |tch | se|d 's=[^ |
|000022c0| 5d 2a 2f 3d 3d 27 20 7c | 20 64 69 66 66 20 2d 62 |]*/==' || diff -b|
|000022d0| 20 24 74 65 6d 70 20 2d | 20 3e 24 64 74 65 6d 70 | $temp -| >$dtemp|
|000022e0| 0a 69 66 20 74 65 73 74 | 20 2d 73 20 24 64 74 65 |.if test| -s $dte|
|000022f0| 6d 70 0a 74 68 65 6e 20 | 65 63 68 6f 20 22 4f 75 |mp.then |echo "Ou|
|00002300| 63 68 20 5b 64 69 66 66 | 20 6f 66 20 77 63 20 6f |ch [diff| of wc o|
|00002310| 75 74 70 75 74 5d 3a 22 | 20 3b 20 63 61 74 20 24 |utput]:"| ; cat $|
|00002320| 64 74 65 6d 70 0a 65 6c | 73 65 20 65 63 68 6f 20 |dtemp.el|se echo |
|00002330| 22 4e 6f 20 70 72 6f 62 | 6c 65 6d 73 20 66 6f 75 |"No prob|lems fou|
|00002340| 6e 64 2e 22 0a 66 69 0a | 65 78 69 74 20 30 0a    |nd.".fi.|exit 0. |
+--------+-------------------------+-------------------------+--------+--------+