/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3430

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 6b 65 | 6e 40 63 73 69 73 2e 64 |From: ke|n@csis.d|
|00000010| 69 74 2e 63 73 69 72 6f | 2e 61 75 20 28 4b 65 6e |it.csiro|.au (Ken|
|00000020| 20 59 61 70 29 0a 4e 65 | 77 73 67 72 6f 75 70 73 | Yap).Ne|wsgroups|
|00000030| 3a 20 61 6c 74 2e 73 6f | 75 72 63 65 73 0a 53 75 |: alt.so|urces.Su|
|00000040| 62 6a 65 63 74 3a 20 6c | 69 6e 65 70 72 69 6e 74 |bject: l|ineprint|
|00000050| 65 72 20 61 72 74 20 74 | 6f 20 67 72 61 79 6d 61 |er art t|o grayma|
|00000060| 70 20 28 6c 70 74 6f 70 | 67 6d 2e 5b 63 31 5d 29 |p (lptop|gm.[c1])|
|00000070| 0a 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 31 39 |.Message|-ID: <19|
|00000080| 39 31 4d 61 79 32 38 2e | 30 36 35 31 32 30 2e 32 |91May28.|065120.2|
|00000090| 30 35 34 34 40 63 73 69 | 73 2e 64 69 74 2e 63 73 |0544@csi|s.dit.cs|
|000000a0| 69 72 6f 2e 61 75 3e 0a | 44 61 74 65 3a 20 32 38 |iro.au>.|Date: 28|
|000000b0| 20 4d 61 79 20 39 31 20 | 30 36 3a 35 31 3a 32 30 | May 91 |06:51:20|
|000000c0| 20 47 4d 54 0a 0a 49 20 | 77 72 6f 74 65 20 74 68 | GMT..I |wrote th|
|000000d0| 69 73 20 66 6f 72 20 66 | 75 6e 20 61 20 77 68 69 |is for f|un a whi|
|000000e0| 6c 65 20 62 61 63 6b 2e | 20 49 74 20 63 6f 6e 76 |le back.| It conv|
|000000f0| 65 72 74 73 20 6c 69 6e | 65 70 72 69 6e 74 65 72 |erts lin|eprinter|
|00000100| 20 61 72 74 20 74 6f 0a | 50 42 4d 50 4c 55 53 20 | art to.|PBMPLUS |
|00000110| 67 72 61 79 6d 61 70 73 | 2e 20 59 6f 75 20 6e 65 |graymaps|. You ne|
|00000120| 65 64 20 6d 75 6c 74 69 | 70 61 72 74 20 61 6e 64 |ed multi|part and|
|00000130| 20 6d 75 6c 74 69 73 74 | 72 69 6b 65 20 70 69 63 | multist|rike pic|
|00000140| 74 75 72 65 73 20 74 6f | 20 67 65 74 0a 72 65 61 |tures to| get.rea|
|00000150| 73 6f 6e 61 62 6c 65 20 | 72 65 73 75 6c 74 73 2e |sonable |results.|
|00000160| 20 59 6f 75 20 61 6c 73 | 6f 20 6e 65 65 64 20 74 | You als|o need t|
|00000170| 68 65 20 72 65 73 74 20 | 6f 66 20 74 68 65 20 50 |he rest |of the P|
|00000180| 42 4d 50 4c 55 53 20 64 | 69 73 74 72 69 62 75 74 |BMPLUS d|istribut|
|00000190| 69 6f 6e 2c 0a 65 2e 67 | 2e 20 65 78 70 6f 72 74 |ion,.e.g|. export|
|000001a0| 2e 6c 63 73 2e 6d 69 74 | 2e 65 64 75 3a 63 6f 6e |.lcs.mit|.edu:con|
|000001b0| 74 72 69 62 20 69 73 20 | 6f 6e 65 20 61 72 63 68 |trib is |one arch|
|000001c0| 69 76 65 20 73 69 74 65 | 2e 0a 0a 54 61 6b 65 20 |ive site|...Take |
|000001d0| 69 74 20 66 6f 72 20 77 | 68 61 74 20 69 74 27 73 |it for w|hat it's|
|000001e0| 20 77 6f 72 74 68 20 61 | 6e 64 20 68 61 76 65 20 | worth a|nd have |
|000001f0| 66 75 6e 2e 0a 0a 23 21 | 20 2f 62 69 6e 2f 73 68 |fun...#!| /bin/sh|
|00000200| 0a 23 20 54 68 69 73 20 | 69 73 20 61 20 73 68 65 |.# This |is a she|
|00000210| 6c 6c 20 61 72 63 68 69 | 76 65 2c 20 6d 65 61 6e |ll archi|ve, mean|
|00000220| 69 6e 67 3a 0a 23 20 31 | 2e 20 52 65 6d 6f 76 65 |ing:.# 1|. Remove|
|00000230| 20 65 76 65 72 79 74 68 | 69 6e 67 20 61 62 6f 76 | everyth|ing abov|
|00000240| 65 20 74 68 65 20 23 21 | 20 2f 62 69 6e 2f 73 68 |e the #!| /bin/sh|
|00000250| 20 6c 69 6e 65 2e 0a 23 | 20 32 2e 20 53 61 76 65 | line..#| 2. Save|
|00000260| 20 74 68 65 20 72 65 73 | 75 6c 74 69 6e 67 20 74 | the res|ulting t|
|00000270| 65 78 74 20 69 6e 20 61 | 20 66 69 6c 65 2e 0a 23 |ext in a| file..#|
|00000280| 20 33 2e 20 45 78 65 63 | 75 74 65 20 74 68 65 20 | 3. Exec|ute the |
|00000290| 66 69 6c 65 20 77 69 74 | 68 20 2f 62 69 6e 2f 73 |file wit|h /bin/s|
|000002a0| 68 20 28 6e 6f 74 20 63 | 73 68 29 20 74 6f 20 63 |h (not c|sh) to c|
|000002b0| 72 65 61 74 65 3a 0a 23 | 09 6c 70 74 6f 70 67 6d |reate:.#|.lptopgm|
|000002c0| 2e 31 0a 23 09 6c 70 74 | 6f 70 67 6d 2e 63 0a 23 |.1.#.lpt|opgm.c.#|
|000002d0| 20 54 68 69 73 20 61 72 | 63 68 69 76 65 20 63 72 | This ar|chive cr|
|000002e0| 65 61 74 65 64 3a 20 54 | 75 65 20 4d 61 79 20 32 |eated: T|ue May 2|
|000002f0| 38 20 31 36 3a 34 37 3a | 32 34 20 31 39 39 31 0a |8 16:47:|24 1991.|
|00000300| 65 78 70 6f 72 74 20 50 | 41 54 48 3b 20 50 41 54 |export P|ATH; PAT|
|00000310| 48 3d 2f 62 69 6e 3a 2f | 75 73 72 2f 62 69 6e 3a |H=/bin:/|usr/bin:|
|00000320| 24 50 41 54 48 0a 65 63 | 68 6f 20 73 68 61 72 3a |$PATH.ec|ho shar:|
|00000330| 20 22 65 78 74 72 61 63 | 74 69 6e 67 20 27 6c 70 | "extrac|ting 'lp|
|00000340| 74 6f 70 67 6d 2e 31 27 | 22 20 27 28 32 31 34 38 |topgm.1'|" '(2148|
|00000350| 20 63 68 61 72 61 63 74 | 65 72 73 29 27 0a 69 66 | charact|ers)'.if|
|00000360| 20 74 65 73 74 20 2d 66 | 20 27 6c 70 74 6f 70 67 | test -f| 'lptopg|
|00000370| 6d 2e 31 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |m.1'.the|n..echo |
|00000380| 73 68 61 72 3a 20 22 77 | 69 6c 6c 20 6e 6f 74 20 |shar: "w|ill not |
|00000390| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|000003a0| 69 6e 67 20 66 69 6c 65 | 20 27 6c 70 74 6f 70 67 |ing file| 'lptopg|
|000003b0| 6d 2e 31 27 22 0a 65 6c | 73 65 0a 63 61 74 20 3c |m.1'".el|se.cat <|
|000003c0| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 6c |< \SHAR_|EOF > 'l|
|000003d0| 70 74 6f 70 67 6d 2e 31 | 27 0a 2e 54 48 20 4c 50 |ptopgm.1|'..TH LP|
|000003e0| 54 4f 50 47 4d 20 31 20 | 22 37 20 4d 61 79 20 39 |TOPGM 1 |"7 May 9|
|000003f0| 30 22 0a 2e 53 48 20 4e | 41 4d 45 0a 6c 70 74 6f |0"..SH N|AME.lpto|
|00000400| 70 67 6d 20 2d 20 63 6f | 6e 76 65 72 74 20 6c 69 |pgm - co|nvert li|
|00000410| 6e 65 20 70 72 69 6e 74 | 65 72 20 70 69 63 74 75 |ne print|er pictu|
|00000420| 72 65 20 69 6e 74 6f 20 | 61 20 70 6f 72 74 61 62 |re into |a portab|
|00000430| 6c 65 20 67 72 61 79 6d | 61 70 0a 2e 53 48 20 53 |le graym|ap..SH S|
|00000440| 59 4e 4f 50 53 49 53 0a | 6c 70 74 6f 70 67 6d 20 |YNOPSIS.|lptopgm |
|00000450| 5b 6c 70 70 69 63 5d 0a | 2e 53 48 20 44 45 53 43 |[lppic].|.SH DESC|
|00000460| 52 49 50 54 49 4f 4e 0a | 52 65 61 64 73 20 61 20 |RIPTION.|Reads a |
|00000470| 6c 69 6e 65 20 70 72 69 | 6e 74 65 72 20 70 69 63 |line pri|nter pic|
|00000480| 74 75 72 65 20 61 73 20 | 69 6e 70 75 74 2e 0a 50 |ture as |input..P|
|00000490| 72 6f 64 75 63 65 73 20 | 61 20 70 6f 72 74 61 62 |roduces |a portab|
|000004a0| 6c 65 20 67 72 61 79 6d | 61 70 20 61 73 20 6f 75 |le graym|ap as ou|
|000004b0| 74 70 75 74 2e 0a 4f 76 | 65 72 73 74 72 75 63 6b |tput..Ov|erstruck|
|000004c0| 20 6c 69 6e 65 73 20 63 | 72 65 61 74 65 64 20 77 | lines c|reated w|
|000004d0| 69 74 68 20 63 61 72 72 | 69 61 67 65 20 72 65 74 |ith carr|iage ret|
|000004e0| 75 72 6e 73 20 61 6e 64 | 2f 6f 72 20 62 61 63 6b |urns and|/or back|
|000004f0| 73 70 61 63 65 73 0a 61 | 72 65 20 68 61 6e 64 6c |spaces.a|re handl|
|00000500| 65 64 20 63 6f 72 72 65 | 63 74 6c 79 2e 0a 54 68 |ed corre|ctly..Th|
|00000510| 65 20 67 72 61 79 20 76 | 61 6c 75 65 73 20 61 72 |e gray v|alues ar|
|00000520| 65 20 62 61 73 65 64 20 | 6f 6e 20 61 20 64 6f 74 |e based |on a dot|
|00000530| 20 63 6f 75 6e 74 20 6f | 66 20 61 20 74 79 70 69 | count o|f a typi|
|00000540| 63 61 6c 20 64 6f 74 20 | 6d 61 74 72 69 78 20 66 |cal dot |matrix f|
|00000550| 6f 6e 74 2e 0a 2e 53 48 | 20 22 45 58 41 4d 50 4c |ont...SH| "EXAMPL|
|00000560| 45 22 0a 42 65 73 74 20 | 72 65 73 75 6c 74 73 20 |E".Best |results |
|00000570| 61 72 65 20 6f 62 74 61 | 69 6e 65 64 20 66 72 6f |are obta|ined fro|
|00000580| 6d 20 6c 61 72 67 65 2c | 20 6d 75 6c 74 69 70 6c |m large,| multipl|
|00000590| 65 20 73 74 72 69 6b 65 | 20 70 69 63 74 75 72 65 |e strike| picture|
|000005a0| 73 2e 0a 53 6d 61 6c 6c | 20 70 69 63 74 75 72 65 |s..Small| picture|
|000005b0| 73 20 77 69 6c 6c 20 6e | 6f 74 20 68 61 76 65 20 |s will n|ot have |
|000005c0| 73 75 66 66 69 63 69 65 | 6e 74 20 72 65 73 6f 6c |sufficie|nt resol|
|000005d0| 75 74 69 6f 6e 20 61 6e | 64 0a 73 69 6e 67 6c 65 |ution an|d.single|
|000005e0| 20 73 74 72 69 6b 65 20 | 70 69 63 74 75 72 65 73 | strike |pictures|
|000005f0| 20 77 69 6c 6c 20 6e 6f | 74 20 68 61 76 65 20 73 | will no|t have s|
|00000600| 75 66 66 69 63 69 65 6e | 74 20 67 72 61 79 20 6c |ufficien|t gray l|
|00000610| 65 76 65 6c 73 2e 0a 43 | 6f 6e 76 65 72 73 69 6f |evels..C|onversio|
|00000620| 6e 20 63 61 6e 20 62 65 | 20 64 69 76 69 64 65 64 |n can be| divided|
|00000630| 20 69 6e 74 6f 20 74 68 | 72 65 65 20 70 68 61 73 | into th|ree phas|
|00000640| 65 73 3a 0a 2e 50 50 0a | 49 6e 69 74 69 61 6c 20 |es:..PP.|Initial |
|00000650| 70 72 65 70 61 72 61 74 | 69 6f 6e 3a 0a 4d 75 6c |preparat|ion:.Mul|
|00000660| 74 69 70 61 72 74 20 70 | 69 63 74 75 72 65 73 20 |tipart p|ictures |
|00000670| 6d 75 73 74 20 62 65 20 | 64 69 76 69 64 65 64 20 |must be |divided |
|00000680| 69 6e 74 6f 20 6f 6e 65 | 20 66 69 6c 65 20 70 65 |into one| file pe|
|00000690| 72 20 70 61 72 74 2c 0a | 6a 75 6e 6b 20 6c 69 6e |r part,.|junk lin|
|000006a0| 65 73 20 73 68 6f 75 6c | 64 20 62 65 20 74 72 69 |es shoul|d be tri|
|000006b0| 6d 6d 65 64 2c 20 74 61 | 62 73 20 6d 75 73 74 20 |mmed, ta|bs must |
|000006c0| 62 65 20 65 78 70 61 6e | 64 65 64 2c 0a 61 6e 64 |be expan|ded,.and|
|000006d0| 20 46 6f 72 74 72 61 6e | 20 63 61 72 72 69 61 67 | Fortran| carriag|
|000006e0| 65 20 63 6f 6e 74 72 6f | 6c 20 6d 75 73 74 20 62 |e contro|l must b|
|000006f0| 65 20 63 6f 6e 76 65 72 | 74 65 64 20 74 6f 20 74 |e conver|ted to t|
|00000700| 68 65 20 61 70 70 72 6f | 70 72 69 61 74 65 0a 73 |he appro|priate.s|
|00000710| 65 71 75 65 6e 63 65 20 | 6f 66 20 6e 65 77 6c 69 |equence |of newli|
|00000720| 6e 65 73 20 61 6e 64 20 | 63 61 72 72 69 61 67 65 |nes and |carriage|
|00000730| 20 72 65 74 75 72 6e 73 | 2e 0a 2e 49 20 4c 70 74 | returns|...I Lpt|
|00000740| 6f 70 67 6d 0a 61 6c 73 | 6f 20 75 6e 64 65 72 73 |opgm.als|o unders|
|00000750| 74 61 6e 64 73 20 62 61 | 63 6b 73 70 61 63 65 73 |tands ba|ckspaces|
|00000760| 2e 0a 54 68 65 20 6f 6e | 6c 79 20 63 6f 6e 74 72 |..The on|ly contr|
|00000770| 6f 6c 20 63 68 61 72 61 | 63 74 65 72 73 20 6e 6f |ol chara|cters no|
|00000780| 74 20 69 67 6e 6f 72 65 | 64 20 61 72 65 20 62 61 |t ignore|d are ba|
|00000790| 63 6b 73 70 61 63 65 2c | 0a 6e 65 77 6c 69 6e 65 |ckspace,|.newline|
|000007a0| 20 61 6e 64 20 63 61 72 | 72 69 61 67 65 20 72 65 | and car|riage re|
|000007b0| 74 75 72 6e 2e 0a 2e 50 | 50 0a 43 6f 6e 76 65 72 |turn...P|P.Conver|
|000007c0| 73 69 6f 6e 3a 0a 2e 42 | 20 6c 70 74 6f 70 67 6d |sion:..B| lptopgm|
|000007d0| 0a 70 72 6f 64 75 63 65 | 73 20 61 20 67 72 61 79 |.produce|s a gray|
|000007e0| 6d 61 70 20 62 75 74 20 | 74 68 69 73 20 67 72 61 |map but |this gra|
|000007f0| 79 6d 61 70 20 6e 65 65 | 64 73 0a 74 6f 20 62 65 |ymap nee|ds.to be|
|00000800| 20 6e 6f 72 6d 61 6c 69 | 7a 65 64 20 61 6e 64 20 | normali|zed and |
|00000810| 69 6e 76 65 72 74 65 64 | 20 28 62 65 63 61 75 73 |inverted| (becaus|
|00000820| 65 20 70 69 63 74 75 72 | 65 73 20 61 72 65 20 62 |e pictur|es are b|
|00000830| 6c 61 63 6b 20 6f 6e 20 | 77 68 69 74 65 29 20 73 |lack on |white) s|
|00000840| 6f 0a 72 75 6e 20 74 68 | 65 20 72 65 73 75 6c 74 |o.run th|e result|
|00000850| 20 74 68 72 6f 75 67 68 | 0a 2e 42 20 70 67 6d 6e | through|..B pgmn|
|00000860| 6f 72 6d 0a 61 6e 64 0a | 2e 42 20 70 6e 6d 69 6e |orm.and.|.B pnmin|
|00000870| 76 65 72 74 0a 61 6c 73 | 6f 2e 0a 2e 50 50 0a 46 |vert.als|o...PP.F|
|00000880| 69 6e 61 6c 20 63 6c 65 | 61 6e 75 70 3a 0a 50 75 |inal cle|anup:.Pu|
|00000890| 74 20 6d 75 6c 74 69 2d | 70 61 72 74 20 70 69 63 |t multi-|part pic|
|000008a0| 74 75 72 65 73 20 62 61 | 63 6b 20 74 6f 67 65 74 |tures ba|ck toget|
|000008b0| 68 65 72 20 77 69 74 68 | 0a 2e 42 52 20 70 6e 6d |her with|..BR pnm|
|000008c0| 63 61 74 20 2e 0a 47 72 | 61 79 6d 61 70 73 20 70 |cat ..Gr|aymaps p|
|000008d0| 72 6f 64 75 63 65 64 20 | 66 72 6f 6d 20 6c 69 6e |roduced |from lin|
|000008e0| 65 20 70 72 69 6e 74 65 | 72 20 70 69 63 74 75 72 |e printe|r pictur|
|000008f0| 65 73 0a 6c 6f 6f 6b 20 | 63 6f 6d 70 72 65 73 73 |es.look |compress|
|00000900| 65 64 20 69 6e 20 74 68 | 65 20 76 65 72 74 69 63 |ed in th|e vertic|
|00000910| 61 6c 20 64 69 72 65 63 | 74 69 6f 6e 20 62 65 63 |al direc|tion bec|
|00000920| 61 75 73 65 20 6f 66 20 | 74 68 65 20 64 69 6d 65 |ause of |the dime|
|00000930| 6e 73 69 6f 6e 73 20 6f | 66 20 74 68 65 0a 63 68 |nsions o|f the.ch|
|00000940| 61 72 61 63 74 65 72 73 | 20 69 6e 20 70 72 69 6e |aracters| in prin|
|00000950| 74 20 63 68 61 69 6e 73 | 2e 20 52 75 6e 20 74 68 |t chains|. Run th|
|00000960| 65 20 70 69 63 74 75 72 | 65 20 74 68 72 6f 75 67 |e pictur|e throug|
|00000970| 68 0a 2e 42 20 70 6d 73 | 63 61 6c 65 0a 74 6f 20 |h..B pms|cale.to |
|00000980| 65 78 70 61 6e 64 20 74 | 68 65 20 76 65 72 74 69 |expand t|he verti|
|00000990| 63 61 6c 20 73 63 61 6c | 65 2e 20 41 20 72 61 74 |cal scal|e. A rat|
|000009a0| 69 6f 20 6f 66 20 31 2e | 32 35 20 69 73 20 61 62 |io of 1.|25 is ab|
|000009b0| 6f 75 74 20 72 69 67 68 | 74 2e 0a 2e 53 48 20 42 |out righ|t...SH B|
|000009c0| 55 47 53 0a 49 66 20 74 | 68 65 20 70 69 63 74 75 |UGS.If t|he pictu|
|000009d0| 72 65 20 68 61 73 20 74 | 6f 6f 20 6d 61 6e 79 20 |re has t|oo many |
|000009e0| 6f 76 65 72 73 74 72 69 | 6b 65 73 2c 20 74 68 65 |overstri|kes, the|
|000009f0| 20 67 72 61 79 20 76 61 | 6c 75 65 20 70 65 72 20 | gray va|lue per |
|00000a00| 63 65 6c 6c 0a 6d 61 79 | 20 65 78 63 65 65 64 20 |cell.may| exceed |
|00000a10| 32 35 35 20 61 6e 64 20 | 63 6c 69 70 70 69 6e 67 |255 and |clipping|
|00000a20| 20 61 74 20 32 35 35 20 | 77 69 6c 6c 20 6f 63 63 | at 255 |will occ|
|00000a30| 75 72 2e 0a 54 68 69 73 | 20 68 61 73 20 6e 65 76 |ur..This| has nev|
|00000a40| 65 72 20 68 61 70 70 65 | 6e 65 64 20 77 69 74 68 |er happe|ned with|
|00000a50| 20 72 65 61 6c 20 70 69 | 63 74 75 72 65 73 3b 20 | real pi|ctures; |
|00000a60| 74 68 65 20 6d 6f 73 74 | 20 49 20 65 76 65 72 20 |the most| I ever |
|00000a70| 67 6f 74 0a 77 61 73 20 | 61 20 67 72 61 79 20 76 |got.was |a gray v|
|00000a80| 61 6c 75 65 20 6f 66 20 | 31 32 39 2e 0a 2e 53 48 |alue of |129...SH|
|00000a90| 20 22 53 45 45 20 41 4c | 53 4f 22 0a 70 67 6d 28 | "SEE AL|SO".pgm(|
|00000aa0| 35 29 0a 2e 53 48 20 41 | 55 54 48 4f 52 0a 43 6f |5)..SH A|UTHOR.Co|
|00000ab0| 70 79 72 69 67 68 74 20 | 28 43 29 20 31 39 39 30 |pyright |(C) 1990|
|00000ac0| 20 62 79 20 4b 65 6e 20 | 59 61 70 2e 0a 0a 50 65 | by Ken |Yap...Pe|
|00000ad0| 72 6d 69 73 73 69 6f 6e | 20 74 6f 20 75 73 65 2c |rmission| to use,|
|00000ae0| 20 63 6f 70 79 2c 20 6d | 6f 64 69 66 79 2c 20 61 | copy, m|odify, a|
|00000af0| 6e 64 20 64 69 73 74 72 | 69 62 75 74 65 20 74 68 |nd distr|ibute th|
|00000b00| 69 73 20 73 6f 66 74 77 | 61 72 65 20 61 6e 64 20 |is softw|are and |
|00000b10| 69 74 73 0a 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |its.docu|mentatio|
|00000b20| 6e 20 66 6f 72 20 61 6e | 79 20 70 75 72 70 6f 73 |n for an|y purpos|
|00000b30| 65 20 61 6e 64 20 77 69 | 74 68 6f 75 74 20 66 65 |e and wi|thout fe|
|00000b40| 65 20 69 73 20 68 65 72 | 65 62 79 20 67 72 61 6e |e is her|eby gran|
|00000b50| 74 65 64 2c 20 70 72 6f | 76 69 64 65 64 0a 74 68 |ted, pro|vided.th|
|00000b60| 61 74 20 74 68 65 20 61 | 62 6f 76 65 20 63 6f 70 |at the a|bove cop|
|00000b70| 79 72 69 67 68 74 20 6e | 6f 74 69 63 65 20 61 70 |yright n|otice ap|
|00000b80| 70 65 61 72 20 69 6e 20 | 61 6c 6c 20 63 6f 70 69 |pear in |all copi|
|00000b90| 65 73 20 61 6e 64 20 74 | 68 61 74 20 62 6f 74 68 |es and t|hat both|
|00000ba0| 20 74 68 61 74 0a 63 6f | 70 79 72 69 67 68 74 20 | that.co|pyright |
|00000bb0| 6e 6f 74 69 63 65 20 61 | 6e 64 20 74 68 69 73 20 |notice a|nd this |
|00000bc0| 70 65 72 6d 69 73 73 69 | 6f 6e 20 6e 6f 74 69 63 |permissi|on notic|
|00000bd0| 65 20 61 70 70 65 61 72 | 20 69 6e 20 73 75 70 70 |e appear| in supp|
|00000be0| 6f 72 74 69 6e 67 0a 64 | 6f 63 75 6d 65 6e 74 61 |orting.d|ocumenta|
|00000bf0| 74 69 6f 6e 2e 20 20 54 | 68 69 73 20 73 6f 66 74 |tion.  T|his soft|
|00000c00| 77 61 72 65 20 69 73 20 | 70 72 6f 76 69 64 65 64 |ware is |provided|
|00000c10| 20 22 61 73 20 69 73 22 | 20 77 69 74 68 6f 75 74 | "as is"| without|
|00000c20| 20 65 78 70 72 65 73 73 | 20 6f 72 0a 69 6d 70 6c | express| or.impl|
|00000c30| 69 65 64 20 77 61 72 72 | 61 6e 74 79 2e 0a 53 48 |ied warr|anty..SH|
|00000c40| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 32 |AR_EOF.i|f test 2|
|00000c50| 31 34 38 20 2d 6e 65 20 | 22 60 77 63 20 2d 63 20 |148 -ne |"`wc -c |
|00000c60| 3c 20 27 6c 70 74 6f 70 | 67 6d 2e 31 27 60 22 0a |< 'lptop|gm.1'`".|
|00000c70| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|00000c80| 20 22 65 72 72 6f 72 20 | 74 72 61 6e 73 6d 69 74 | "error |transmit|
|00000c90| 74 69 6e 67 20 27 6c 70 | 74 6f 70 67 6d 2e 31 27 |ting 'lp|topgm.1'|
|00000ca0| 22 20 27 28 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |" '(shou|ld have |
|00000cb0| 62 65 65 6e 20 32 31 34 | 38 20 63 68 61 72 61 63 |been 214|8 charac|
|00000cc0| 74 65 72 73 29 27 0a 66 | 69 0a 66 69 0a 65 63 68 |ters)'.f|i.fi.ech|
|00000cd0| 6f 20 73 68 61 72 3a 20 | 22 65 78 74 72 61 63 74 |o shar: |"extract|
|00000ce0| 69 6e 67 20 27 6c 70 74 | 6f 70 67 6d 2e 63 27 22 |ing 'lpt|opgm.c'"|
|00000cf0| 20 27 28 33 33 37 34 20 | 63 68 61 72 61 63 74 65 | '(3374 |characte|
|00000d00| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|00000d10| 27 6c 70 74 6f 70 67 6d | 2e 63 27 0a 74 68 65 6e |'lptopgm|.c'.then|
|00000d20| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 22 77 69 |..echo s|har: "wi|
|00000d30| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|00000d40| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|00000d50| 27 6c 70 74 6f 70 67 6d | 2e 63 27 22 0a 65 6c 73 |'lptopgm|.c'".els|
|00000d60| 65 0a 63 61 74 20 3c 3c | 20 5c 53 48 41 52 5f 45 |e.cat <<| \SHAR_E|
|00000d70| 4f 46 20 3e 20 27 6c 70 | 74 6f 70 67 6d 2e 63 27 |OF > 'lp|topgm.c'|
|00000d80| 0a 2f 2a 20 6c 70 74 70 | 70 67 6d 2e 63 20 2d 20 |./* lptp|pgm.c - |
|00000d90| 63 6f 6e 76 65 72 74 20 | 6c 69 6e 65 20 70 72 69 |convert |line pri|
|00000da0| 6e 74 65 72 20 70 69 63 | 74 75 72 65 20 69 6e 74 |nter pic|ture int|
|00000db0| 6f 20 61 20 70 6f 72 74 | 61 62 6c 65 20 67 72 61 |o a port|able gra|
|00000dc0| 79 6d 61 70 0a 2a 2a 0a | 2a 2a 20 43 6f 70 79 72 |ymap.**.|** Copyr|
|00000dd0| 69 67 68 74 20 28 43 29 | 20 31 39 39 30 20 62 79 |ight (C)| 1990 by|
|00000de0| 20 4b 65 6e 20 59 61 70 | 2e 0a 2a 2a 0a 2a 2a 20 | Ken Yap|..**.** |
|00000df0| 50 65 72 6d 69 73 73 69 | 6f 6e 20 74 6f 20 75 73 |Permissi|on to us|
|00000e00| 65 2c 20 63 6f 70 79 2c | 20 6d 6f 64 69 66 79 2c |e, copy,| modify,|
|00000e10| 20 61 6e 64 20 64 69 73 | 74 72 69 62 75 74 65 20 | and dis|tribute |
|00000e20| 74 68 69 73 20 73 6f 66 | 74 77 61 72 65 20 61 6e |this sof|tware an|
|00000e30| 64 20 69 74 73 0a 2a 2a | 20 64 6f 63 75 6d 65 6e |d its.**| documen|
|00000e40| 74 61 74 69 6f 6e 20 66 | 6f 72 20 61 6e 79 20 70 |tation f|or any p|
|00000e50| 75 72 70 6f 73 65 20 61 | 6e 64 20 77 69 74 68 6f |urpose a|nd witho|
|00000e60| 75 74 20 66 65 65 20 69 | 73 20 68 65 72 65 62 79 |ut fee i|s hereby|
|00000e70| 20 67 72 61 6e 74 65 64 | 2c 20 70 72 6f 76 69 64 | granted|, provid|
|00000e80| 65 64 0a 2a 2a 20 74 68 | 61 74 20 74 68 65 20 61 |ed.** th|at the a|
|00000e90| 62 6f 76 65 20 63 6f 70 | 79 72 69 67 68 74 20 6e |bove cop|yright n|
|00000ea0| 6f 74 69 63 65 20 61 70 | 70 65 61 72 20 69 6e 20 |otice ap|pear in |
|00000eb0| 61 6c 6c 20 63 6f 70 69 | 65 73 20 61 6e 64 20 74 |all copi|es and t|
|00000ec0| 68 61 74 20 62 6f 74 68 | 20 74 68 61 74 0a 2a 2a |hat both| that.**|
|00000ed0| 20 63 6f 70 79 72 69 67 | 68 74 20 6e 6f 74 69 63 | copyrig|ht notic|
|00000ee0| 65 20 61 6e 64 20 74 68 | 69 73 20 70 65 72 6d 69 |e and th|is permi|
|00000ef0| 73 73 69 6f 6e 20 6e 6f | 74 69 63 65 20 61 70 70 |ssion no|tice app|
|00000f00| 65 61 72 20 69 6e 20 73 | 75 70 70 6f 72 74 69 6e |ear in s|upportin|
|00000f10| 67 0a 2a 2a 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |g.** doc|umentati|
|00000f20| 6f 6e 2e 20 20 54 68 69 | 73 20 73 6f 66 74 77 61 |on.  Thi|s softwa|
|00000f30| 72 65 20 69 73 20 70 72 | 6f 76 69 64 65 64 20 22 |re is pr|ovided "|
|00000f40| 61 73 20 69 73 22 20 77 | 69 74 68 6f 75 74 20 65 |as is" w|ithout e|
|00000f50| 78 70 72 65 73 73 20 6f | 72 0a 2a 2a 20 69 6d 70 |xpress o|r.** imp|
|00000f60| 6c 69 65 64 20 77 61 72 | 72 61 6e 74 79 2e 0a 2a |lied war|ranty..*|
|00000f70| 2f 0a 0a 23 69 6e 63 6c | 75 64 65 20 3c 73 74 64 |/..#incl|ude <std|
|00000f80| 69 6f 2e 68 3e 0a 23 69 | 6e 63 6c 75 64 65 20 22 |io.h>.#i|nclude "|
|00000f90| 70 67 6d 2e 68 22 0a 23 | 69 66 64 65 66 20 53 59 |pgm.h".#|ifdef SY|
|00000fa0| 53 56 0a 23 69 6e 63 6c | 75 64 65 20 3c 73 74 72 |SV.#incl|ude <str|
|00000fb0| 69 6e 67 2e 68 3e 0a 23 | 65 6c 73 65 20 2f 2a 53 |ing.h>.#|else /*S|
|00000fc0| 59 53 56 2a 2f 0a 23 69 | 6e 63 6c 75 64 65 20 3c |YSV*/.#i|nclude <|
|00000fd0| 73 74 72 69 6e 67 73 2e | 68 3e 0a 23 65 6e 64 69 |strings.|h>.#endi|
|00000fe0| 66 20 2f 2a 53 59 53 56 | 2a 2f 0a 0a 23 64 65 66 |f /*SYSV|*/..#def|
|00000ff0| 69 6e 65 09 54 45 4d 50 | 4c 41 54 45 09 22 2f 74 |ine.TEMP|LATE."/t|
|00001000| 6d 70 2f 6c 70 58 58 58 | 58 58 58 22 0a 0a 63 68 |mp/lpXXX|XXX"..ch|
|00001010| 61 72 09 67 72 61 79 76 | 61 6c 73 5b 31 32 38 5d |ar.grayv|als[128]|
|00001020| 20 3d 20 7b 0a 09 20 30 | 2c 20 20 30 2c 20 20 30 | = {.. 0|,  0,  0|
|00001030| 2c 20 20 30 2c 20 20 30 | 2c 20 20 30 2c 20 20 30 |,  0,  0|,  0,  0|
|00001040| 2c 20 20 30 2c 0a 09 20 | 30 2c 20 20 30 2c 20 20 |,  0,.. |0,  0,  |
|00001050| 30 2c 20 20 30 2c 20 20 | 30 2c 20 20 30 2c 20 20 |0,  0,  |0,  0,  |
|00001060| 30 2c 20 20 30 2c 0a 09 | 20 30 2c 20 20 30 2c 20 |0,  0,..| 0,  0, |
|00001070| 20 30 2c 20 20 30 2c 20 | 20 30 2c 20 20 30 2c 20 | 0,  0, | 0,  0, |
|00001080| 20 30 2c 20 20 30 2c 0a | 09 20 30 2c 20 20 30 2c | 0,  0,.|. 0,  0,|
|00001090| 20 20 30 2c 20 20 30 2c | 20 20 30 2c 20 20 30 2c |  0,  0,|  0,  0,|
|000010a0| 20 20 30 2c 20 20 30 2c | 0a 09 20 30 2c 20 20 36 |  0,  0,|.. 0,  6|
|000010b0| 2c 20 20 36 2c 20 32 32 | 2c 20 31 39 2c 20 31 37 |,  6, 22|, 19, 17|
|000010c0| 2c 20 31 35 2c 20 20 33 | 2c 0a 09 31 31 2c 20 31 |, 15,  3|,..11, 1|
|000010d0| 31 2c 20 31 31 2c 20 20 | 39 2c 20 20 36 2c 20 20 |1, 11,  |9,  6,  |
|000010e0| 35 2c 20 20 34 2c 20 31 | 30 2c 0a 09 31 36 2c 20 |5,  4, 1|0,..16, |
|000010f0| 31 31 2c 20 31 35 2c 20 | 31 34 2c 20 31 38 2c 20 |11, 15, |14, 18, |
|00001100| 31 35 2c 20 31 35 2c 20 | 31 32 2c 0a 09 31 36 2c |15, 15, |12,..16,|
|00001110| 20 31 35 2c 20 20 38 2c | 20 31 30 2c 20 20 37 2c | 15,  8,| 10,  7,|
|00001120| 20 20 38 2c 20 20 37 2c | 20 20 39 2c 0a 09 31 39 |  8,  7,|  9,..19|
|00001130| 2c 20 31 39 2c 20 32 31 | 2c 20 31 35 2c 20 32 30 |, 19, 21|, 15, 20|
|00001140| 2c 20 32 30 2c 20 31 37 | 2c 20 31 38 2c 0a 09 32 |, 20, 17|, 18,..2|
|00001150| 34 2c 20 31 36 2c 20 31 | 34 2c 20 32 30 2c 20 31 |4, 16, 1|4, 20, 1|
|00001160| 35 2c 20 32 34 2c 20 32 | 35 2c 20 32 30 2c 0a 09 |5, 24, 2|5, 20,..|
|00001170| 31 38 2c 20 32 33 2c 20 | 32 30 2c 20 31 37 2c 20 |18, 23, |20, 17, |
|00001180| 31 36 2c 20 31 39 2c 20 | 31 37 2c 20 32 31 2c 0a |16, 19, |17, 21,.|
|00001190| 09 31 38 2c 20 31 37 2c | 20 31 38 2c 20 31 35 2c |.18, 17,| 18, 15,|
|000011a0| 20 31 30 2c 20 31 35 2c | 20 20 35 2c 20 20 35 2c | 10, 15,|  5,  5,|
|000011b0| 0a 09 20 33 2c 20 31 33 | 2c 20 31 37 2c 20 31 30 |.. 3, 13|, 17, 10|
|000011c0| 2c 20 31 37 2c 20 31 33 | 2c 20 31 35 2c 20 31 38 |, 17, 13|, 15, 18|
|000011d0| 2c 0a 09 31 39 2c 20 31 | 33 2c 20 31 32 2c 20 31 |,..19, 1|3, 12, 1|
|000011e0| 36 2c 20 31 34 2c 20 31 | 38 2c 20 31 36 2c 20 31 |6, 14, 1|8, 16, 1|
|000011f0| 32 2c 0a 09 31 38 2c 20 | 31 38 2c 20 31 33 2c 20 |2,..18, |18, 13, |
|00001200| 31 32 2c 20 31 32 2c 20 | 31 35 2c 20 31 32 2c 20 |12, 12, |15, 12, |
|00001210| 31 37 2c 0a 09 31 34 2c | 20 31 37 2c 20 31 34 2c |17,..14,| 17, 14,|
|00001220| 20 31 33 2c 20 31 30 2c | 20 31 33 2c 20 20 37 2c | 13, 10,| 13,  7,|
|00001230| 20 20 30 0a 7d 3b 0a 0a | 46 49 4c 45 20 2a 70 72 |  0.};..|FILE *pr|
|00001240| 65 70 61 73 73 28 69 66 | 64 2c 20 63 6f 6c 73 2c |epass(if|d, cols,|
|00001250| 20 72 6f 77 73 29 0a 46 | 49 4c 45 20 2a 69 66 64 | rows).F|ILE *ifd|
|00001260| 3b 0a 69 6e 74 20 2a 63 | 6f 6c 73 2c 20 2a 72 6f |;.int *c|ols, *ro|
|00001270| 77 73 3b 0a 7b 0a 09 72 | 65 67 69 73 74 65 72 20 |ws;.{..r|egister |
|00001280| 69 6e 74 20 63 2c 20 63 | 6f 6c 3b 0a 09 72 65 67 |int c, c|ol;..reg|
|00001290| 69 73 74 65 72 20 46 49 | 4c 45 20 2a 74 66 64 3b |ister FI|LE *tfd;|
|000012a0| 0a 09 63 68 61 72 20 74 | 65 6d 70 6e 61 6d 65 5b |..char t|empname[|
|000012b0| 73 69 7a 65 6f 66 28 54 | 45 4d 50 4c 41 54 45 29 |sizeof(T|EMPLATE)|
|000012c0| 5d 3b 0a 09 63 68 61 72 | 20 2a 6d 6b 74 65 6d 70 |];..char| *mktemp|
|000012d0| 28 29 3b 0a 0a 09 28 76 | 6f 69 64 29 73 74 72 63 |();...(v|oid)strc|
|000012e0| 70 79 28 74 65 6d 70 6e | 61 6d 65 2c 20 54 45 4d |py(tempn|ame, TEM|
|000012f0| 50 4c 41 54 45 29 3b 0a | 09 28 76 6f 69 64 29 6d |PLATE);.|.(void)m|
|00001300| 6b 74 65 6d 70 28 74 65 | 6d 70 6e 61 6d 65 29 3b |ktemp(te|mpname);|
|00001310| 0a 09 69 66 20 28 28 74 | 66 64 20 3d 20 66 6f 70 |..if ((t|fd = fop|
|00001320| 65 6e 28 74 65 6d 70 6e | 61 6d 65 2c 20 22 77 2b |en(tempn|ame, "w+|
|00001330| 22 29 29 20 3d 3d 20 4e | 55 4c 4c 29 0a 09 09 72 |")) == N|ULL)...r|
|00001340| 65 74 75 72 6e 20 28 4e | 55 4c 4c 29 3b 0a 09 28 |eturn (N|ULL);..(|
|00001350| 76 6f 69 64 29 75 6e 6c | 69 6e 6b 28 74 65 6d 70 |void)unl|ink(temp|
|00001360| 6e 61 6d 65 29 3b 0a 09 | 2a 72 6f 77 73 20 3d 20 |name);..|*rows = |
|00001370| 30 3b 0a 09 2a 63 6f 6c | 73 20 3d 20 30 3b 0a 09 |0;..*col|s = 0;..|
|00001380| 63 6f 6c 20 3d 20 30 3b | 0a 09 77 68 69 6c 65 20 |col = 0;|..while |
|00001390| 28 28 63 20 3d 20 67 65 | 74 63 28 69 66 64 29 29 |((c = ge|tc(ifd))|
|000013a0| 20 21 3d 20 45 4f 46 29 | 0a 09 7b 0a 09 09 70 75 | != EOF)|..{...pu|
|000013b0| 74 63 28 63 2c 20 74 66 | 64 29 3b 0a 09 09 63 20 |tc(c, tf|d);...c |
|000013c0| 26 3d 20 30 78 66 66 3b | 0a 09 09 73 77 69 74 63 |&= 0xff;|...switc|
|000013d0| 68 20 28 63 29 0a 09 09 | 7b 0a 09 09 63 61 73 65 |h (c)...|{...case|
|000013e0| 20 27 5c 62 27 3a 0a 09 | 09 09 69 66 20 28 63 6f | '\b':..|..if (co|
|000013f0| 6c 73 20 3e 20 30 29 0a | 09 09 09 09 2d 2d 63 6f |ls > 0).|....--co|
|00001400| 6c 73 3b 0a 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |ls;....b|reak;...|
|00001410| 63 61 73 65 20 27 5c 6e | 27 3a 0a 09 09 09 2b 2b |case '\n|':....++|
|00001420| 2a 72 6f 77 73 3b 0a 09 | 09 09 69 66 20 28 63 6f |*rows;..|..if (co|
|00001430| 6c 20 3e 20 2a 63 6f 6c | 73 29 0a 09 09 09 09 2a |l > *col|s).....*|
|00001440| 63 6f 6c 73 20 3d 20 63 | 6f 6c 3b 0a 09 09 09 63 |cols = c|ol;....c|
|00001450| 6f 6c 20 3d 20 30 3b 0a | 09 09 09 62 72 65 61 6b |ol = 0;.|...break|
|00001460| 3b 0a 09 09 63 61 73 65 | 20 27 5c 72 27 3a 0a 09 |;...case| '\r':..|
|00001470| 09 09 69 66 20 28 63 6f | 6c 20 3e 20 2a 63 6f 6c |..if (co|l > *col|
|00001480| 73 29 0a 09 09 09 09 2a | 63 6f 6c 73 20 3d 20 63 |s).....*|cols = c|
|00001490| 6f 6c 3b 0a 09 09 09 63 | 6f 6c 20 3d 20 30 3b 0a |ol;....c|ol = 0;.|
|000014a0| 09 09 09 62 72 65 61 6b | 3b 0a 09 09 64 65 66 61 |...break|;...defa|
|000014b0| 75 6c 74 3a 0a 09 09 09 | 69 66 20 28 63 20 3e 3d |ult:....|if (c >=|
|000014c0| 20 27 20 27 20 26 26 20 | 63 20 3c 3d 20 27 7e 27 | ' ' && |c <= '~'|
|000014d0| 29 0a 09 09 09 09 2b 2b | 63 6f 6c 3b 0a 09 09 09 |).....++|col;....|
|000014e0| 62 72 65 61 6b 3b 0a 09 | 09 7d 0a 09 7d 0a 09 28 |break;..|.}..}..(|
|000014f0| 76 6f 69 64 29 66 63 6c | 6f 73 65 28 69 66 64 29 |void)fcl|ose(ifd)|
|00001500| 3b 0a 09 28 76 6f 69 64 | 29 66 73 65 65 6b 28 74 |;..(void|)fseek(t|
|00001510| 66 64 2c 20 30 4c 2c 20 | 30 29 3b 0a 09 72 65 74 |fd, 0L, |0);..ret|
|00001520| 75 72 6e 20 28 74 66 64 | 29 3b 0a 7d 0a 0a 70 6f |urn (tfd|);.}..po|
|00001530| 73 74 70 61 73 73 28 69 | 66 64 2c 20 63 6f 6c 73 |stpass(i|fd, cols|
|00001540| 2c 20 72 6f 77 73 29 0a | 46 49 4c 45 20 2a 69 66 |, rows).|FILE *if|
|00001550| 64 3b 0a 69 6e 74 20 63 | 6f 6c 73 2c 20 72 6f 77 |d;.int c|ols, row|
|00001560| 73 3b 0a 7b 0a 09 72 65 | 67 69 73 74 65 72 20 69 |s;.{..re|gister i|
|00001570| 6e 74 20 63 2c 20 6d 61 | 78 76 61 6c 2c 20 69 3b |nt c, ma|xval, i;|
|00001580| 0a 09 72 65 67 69 73 74 | 65 72 20 67 72 61 79 20 |..regist|er gray |
|00001590| 2a 67 72 61 79 72 6f 77 | 2c 20 2a 67 50 3b 0a 0a |*grayrow|, *gP;..|
|000015a0| 09 6d 61 78 76 61 6c 20 | 3d 20 32 35 35 3b 0a 09 |.maxval |= 255;..|
|000015b0| 69 66 20 28 6d 61 78 76 | 61 6c 20 3e 20 50 47 4d |if (maxv|al > PGM|
|000015c0| 5f 4d 41 58 4d 41 58 56 | 41 4c 29 0a 09 09 70 6d |_MAXMAXV|AL)...pm|
|000015d0| 5f 65 72 72 6f 72 28 22 | 6d 61 78 76 61 6c 20 6f |_error("|maxval o|
|000015e0| 66 20 32 35 35 20 69 73 | 20 74 6f 6f 20 6c 61 72 |f 255 is| too lar|
|000015f0| 67 65 20 2d 20 74 72 79 | 20 72 65 63 6f 6d 70 69 |ge - try| recompi|
|00001600| 6c 69 6e 67 20 77 69 74 | 68 20 61 20 6c 61 72 67 |ling wit|h a larg|
|00001610| 65 72 20 67 72 61 79 20 | 74 79 70 65 22 29 3b 0a |er gray |type");.|
|00001620| 09 70 67 6d 5f 77 72 69 | 74 65 70 67 6d 69 6e 69 |.pgm_wri|tepgmini|
|00001630| 74 28 73 74 64 6f 75 74 | 2c 20 63 6f 6c 73 2c 20 |t(stdout|, cols, |
|00001640| 72 6f 77 73 2c 20 28 67 | 72 61 79 29 6d 61 78 76 |rows, (g|ray)maxv|
|00001650| 61 6c 29 3b 0a 09 67 50 | 20 3d 20 67 72 61 79 72 |al);..gP| = grayr|
|00001660| 6f 77 20 3d 20 70 67 6d | 5f 61 6c 6c 6f 63 72 6f |ow = pgm|_allocro|
|00001670| 77 28 63 6f 6c 73 29 3b | 0a 09 2f 2a 20 63 6c 65 |w(cols);|../* cle|
|00001680| 61 72 20 6f 75 74 20 72 | 6f 77 20 2a 2f 0a 09 66 |ar out r|ow */..f|
|00001690| 6f 72 20 28 69 20 3d 20 | 30 2c 20 67 50 20 3d 20 |or (i = |0, gP = |
|000016a0| 67 72 61 79 72 6f 77 3b | 20 69 20 3c 20 63 6f 6c |grayrow;| i < col|
|000016b0| 73 3b 20 2b 2b 69 29 0a | 09 09 2a 67 50 2b 2b 20 |s; ++i).|..*gP++ |
|000016c0| 3d 20 28 67 72 61 79 29 | 30 3b 0a 09 77 68 69 6c |= (gray)|0;..whil|
|000016d0| 65 20 28 28 63 20 3d 20 | 67 65 74 63 28 69 66 64 |e ((c = |getc(ifd|
|000016e0| 29 29 20 21 3d 20 45 4f | 46 29 0a 09 7b 0a 09 09 |)) != EO|F)..{...|
|000016f0| 63 20 26 3d 20 30 78 66 | 66 3b 0a 09 09 73 77 69 |c &= 0xf|f;...swi|
|00001700| 74 63 68 20 28 63 29 0a | 09 09 7b 0a 09 09 63 61 |tch (c).|..{...ca|
|00001710| 73 65 20 27 5c 62 27 3a | 0a 09 09 09 69 66 20 28 |se '\b':|....if (|
|00001720| 67 50 20 21 3d 20 67 72 | 61 79 72 6f 77 29 0a 09 |gP != gr|ayrow)..|
|00001730| 09 09 09 2d 2d 67 50 3b | 0a 09 09 09 62 72 65 61 |...--gP;|....brea|
|00001740| 6b 3b 0a 09 09 63 61 73 | 65 20 27 5c 6e 27 3a 0a |k;...cas|e '\n':.|
|00001750| 09 09 09 70 67 6d 5f 77 | 72 69 74 65 70 67 6d 72 |...pgm_w|ritepgmr|
|00001760| 6f 77 28 73 74 64 6f 75 | 74 2c 20 67 72 61 79 72 |ow(stdou|t, grayr|
|00001770| 6f 77 2c 20 63 6f 6c 73 | 2c 20 28 67 72 61 79 29 |ow, cols|, (gray)|
|00001780| 6d 61 78 76 61 6c 29 3b | 0a 09 09 09 2f 2a 20 63 |maxval);|..../* c|
|00001790| 6c 65 61 72 20 6f 75 74 | 20 72 6f 77 20 2a 2f 0a |lear out| row */.|
|000017a0| 09 09 09 66 6f 72 20 28 | 69 20 3d 20 30 2c 20 67 |...for (|i = 0, g|
|000017b0| 50 20 3d 20 67 72 61 79 | 72 6f 77 3b 20 69 20 3c |P = gray|row; i <|
|000017c0| 20 63 6f 6c 73 3b 20 2b | 2b 69 29 0a 09 09 09 09 | cols; +|+i).....|
|000017d0| 2a 67 50 2b 2b 20 3d 20 | 28 67 72 61 79 29 30 3b |*gP++ = |(gray)0;|
|000017e0| 0a 09 09 09 67 50 20 3d | 20 67 72 61 79 72 6f 77 |....gP =| grayrow|
|000017f0| 3b 0a 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 63 61 |;....bre|ak;...ca|
|00001800| 73 65 20 27 5c 72 27 3a | 0a 09 09 09 67 50 20 3d |se '\r':|....gP =|
|00001810| 20 67 72 61 79 72 6f 77 | 3b 0a 09 09 09 62 72 65 | grayrow|;....bre|
|00001820| 61 6b 3b 0a 09 09 64 65 | 66 61 75 6c 74 3a 0a 09 |ak;...de|fault:..|
|00001830| 09 09 69 66 20 28 63 20 | 3e 3d 20 27 20 27 20 26 |..if (c |>= ' ' &|
|00001840| 26 20 63 20 3c 3d 20 27 | 7e 27 29 0a 09 09 09 7b |& c <= '|~')....{|
|00001850| 0a 09 09 09 09 2a 67 50 | 20 2b 3d 20 67 72 61 79 |.....*gP| += gray|
|00001860| 76 61 6c 73 5b 63 5d 3b | 0a 09 09 09 09 69 66 20 |vals[c];|.....if |
|00001870| 28 2a 67 50 20 3e 20 6d | 61 78 76 61 6c 29 0a 09 |(*gP > m|axval)..|
|00001880| 09 09 09 09 2a 67 50 20 | 3d 20 6d 61 78 76 61 6c |....*gP |= maxval|
|00001890| 3b 0a 09 09 09 09 2b 2b | 67 50 3b 0a 09 09 09 7d |;.....++|gP;....}|
|000018a0| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 09 09 7d 0a 09 |....brea|k;...}..|
|000018b0| 7d 0a 09 70 6d 5f 63 6c | 6f 73 65 28 69 66 64 29 |}..pm_cl|ose(ifd)|
|000018c0| 3b 0a 7d 0a 0a 6d 61 69 | 6e 28 61 72 67 63 2c 20 |;.}..mai|n(argc, |
|000018d0| 61 72 67 76 29 0a 69 6e | 74 20 61 72 67 63 3b 0a |argv).in|t argc;.|
|000018e0| 63 68 61 72 20 2a 61 72 | 67 76 5b 5d 3b 0a 7b 0a |char *ar|gv[];.{.|
|000018f0| 09 72 65 67 69 73 74 65 | 72 20 46 49 4c 45 20 2a |.registe|r FILE *|
|00001900| 69 66 64 3b 0a 09 72 65 | 67 69 73 74 65 72 20 69 |ifd;..re|gister i|
|00001910| 6e 74 20 61 72 67 6e 3b | 0a 09 69 6e 74 20 63 6f |nt argn;|..int co|
|00001920| 6c 73 2c 20 72 6f 77 73 | 3b 0a 09 63 68 61 72 20 |ls, rows|;..char |
|00001930| 2a 75 73 61 67 65 20 3d | 20 22 5b 6c 70 70 69 63 |*usage =| "[lppic|
|00001940| 5d 22 3b 0a 0a 09 70 6d | 5f 70 72 6f 67 6e 61 6d |]";...pm|_prognam|
|00001950| 65 20 3d 20 61 72 67 76 | 5b 30 5d 3b 0a 09 61 72 |e = argv|[0];..ar|
|00001960| 67 6e 20 3d 20 31 3b 0a | 09 69 66 20 28 61 72 67 |gn = 1;.|.if (arg|
|00001970| 6e 20 3c 20 61 72 67 63 | 29 0a 09 7b 0a 09 09 69 |n < argc|)..{...i|
|00001980| 66 64 20 3d 20 70 6d 5f | 6f 70 65 6e 72 28 61 72 |fd = pm_|openr(ar|
|00001990| 67 76 5b 61 72 67 6e 5d | 29 3b 0a 09 09 61 72 67 |gv[argn]|);...arg|
|000019a0| 6e 2b 2b 3b 0a 09 7d 0a | 09 65 6c 73 65 0a 09 09 |n++;..}.|.else...|
|000019b0| 69 66 64 20 3d 20 73 74 | 64 69 6e 3b 0a 09 69 66 |ifd = st|din;..if|
|000019c0| 20 28 61 72 67 6e 20 21 | 3d 20 61 72 67 63 29 0a | (argn !|= argc).|
|000019d0| 09 09 70 6d 5f 75 73 61 | 67 65 28 75 73 61 67 65 |..pm_usa|ge(usage|
|000019e0| 29 3b 0a 0a 09 69 66 20 | 28 28 69 66 64 20 3d 20 |);...if |((ifd = |
|000019f0| 70 72 65 70 61 73 73 28 | 69 66 64 2c 20 26 63 6f |prepass(|ifd, &co|
|00001a00| 6c 73 2c 20 26 72 6f 77 | 73 29 29 20 3d 3d 20 4e |ls, &row|s)) == N|
|00001a10| 55 4c 4c 29 0a 09 09 70 | 6d 5f 65 72 72 6f 72 28 |ULL)...p|m_error(|
|00001a20| 22 70 72 6f 62 6c 65 6d | 73 20 72 65 61 64 69 6e |"problem|s readin|
|00001a30| 67 20 6c 69 6e 65 20 70 | 72 69 6e 74 65 72 20 70 |g line p|rinter p|
|00001a40| 69 63 74 75 72 65 22 29 | 3b 0a 09 28 76 6f 69 64 |icture")|;..(void|
|00001a50| 29 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |)fprintf|(stderr,|
|00001a60| 20 22 25 64 20 63 6f 6c | 75 6d 6e 73 2c 20 25 64 | "%d col|umns, %d|
|00001a70| 20 72 6f 77 73 5c 6e 22 | 2c 20 63 6f 6c 73 2c 20 | rows\n"|, cols, |
|00001a80| 72 6f 77 73 29 3b 0a 09 | 70 6f 73 74 70 61 73 73 |rows);..|postpass|
|00001a90| 28 69 66 64 2c 20 63 6f | 6c 73 2c 20 72 6f 77 73 |(ifd, co|ls, rows|
|00001aa0| 29 3b 0a 09 65 78 69 74 | 28 30 29 3b 0a 7d 0a 53 |);..exit|(0);.}.S|
|00001ab0| 48 41 52 5f 45 4f 46 0a | 69 66 20 74 65 73 74 20 |HAR_EOF.|if test |
|00001ac0| 33 33 37 34 20 2d 6e 65 | 20 22 60 77 63 20 2d 63 |3374 -ne| "`wc -c|
|00001ad0| 20 3c 20 27 6c 70 74 6f | 70 67 6d 2e 63 27 60 22 | < 'lpto|pgm.c'`"|
|00001ae0| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00001af0| 3a 20 22 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |: "error| transmi|
|00001b00| 74 74 69 6e 67 20 27 6c | 70 74 6f 70 67 6d 2e 63 |tting 'l|ptopgm.c|
|00001b10| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00001b20| 20 62 65 65 6e 20 33 33 | 37 34 20 63 68 61 72 61 | been 33|74 chara|
|00001b30| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 0a 65 78 |cters)'.|fi.fi.ex|
|00001b40| 69 74 20 30 0a 23 09 45 | 6e 64 20 6f 66 20 73 68 |it 0.#.E|nd of sh|
|00001b50| 65 6c 6c 20 61 72 63 68 | 69 76 65 0a             |ell arch|ive.    |
+--------+-------------------------+-------------------------+--------+--------+