/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / games / volume02 / pig

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 6d 69 70 | 6f 73 33 21 6f 6d 65 70 |From mip|os3!omep|
|00000010| 64 21 6c 69 74 74 6c 65 | 69 21 72 65 65 64 21 74 |d!little|i!reed!t|
|00000020| 65 6b 74 72 6f 6e 69 78 | 21 74 65 6b 67 65 6e 21 |ektronix|!tekgen!|
|00000030| 74 65 6b 72 65 64 21 67 | 61 6d 65 73 2d 72 65 71 |tekred!g|ames-req|
|00000040| 75 65 73 74 20 53 61 74 | 20 41 75 67 20 32 39 20 |uest Sat| Aug 29 |
|00000050| 31 34 3a 32 35 3a 31 30 | 20 50 44 54 20 31 39 38 |14:25:10| PDT 198|
|00000060| 37 0a 41 72 74 69 63 6c | 65 20 38 36 20 6f 66 20 |7.Articl|e 86 of |
|00000070| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 67 61 6d |comp.sou|rces.gam|
|00000080| 65 73 3a 0a 50 61 74 68 | 3a 20 74 64 32 63 61 64 |es:.Path|: td2cad|
|00000090| 21 6d 69 70 6f 73 33 21 | 6f 6d 65 70 64 21 6c 69 |!mipos3!|omepd!li|
|000000a0| 74 74 6c 65 69 21 72 65 | 65 64 21 74 65 6b 74 72 |ttlei!re|ed!tektr|
|000000b0| 6f 6e 69 78 21 74 65 6b | 67 65 6e 21 74 65 6b 72 |onix!tek|gen!tekr|
|000000c0| 65 64 21 67 61 6d 65 73 | 2d 72 65 71 75 65 73 74 |ed!games|-request|
|000000d0| 0a 46 72 6f 6d 3a 20 67 | 61 6d 65 73 2d 72 65 71 |.From: g|ames-req|
|000000e0| 75 65 73 74 40 74 65 6b | 72 65 64 2e 54 45 4b 2e |uest@tek|red.TEK.|
|000000f0| 43 4f 4d 0a 4e 65 77 73 | 67 72 6f 75 70 73 3a 20 |COM.News|groups: |
|00000100| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 67 61 6d |comp.sou|rces.gam|
|00000110| 65 73 0a 53 75 62 6a 65 | 63 74 3a 20 76 30 32 69 |es.Subje|ct: v02i|
|00000120| 30 33 33 3a 20 20 70 69 | 67 20 2d 20 73 69 6d 70 |033:  pi|g - simp|
|00000130| 6c 65 20 70 69 67 2d 6c | 61 74 69 6e 20 74 72 61 |le pig-l|atin tra|
|00000140| 6e 73 6c 61 74 6f 72 0a | 4d 65 73 73 61 67 65 2d |nslator.|Message-|
|00000150| 49 44 3a 20 3c 31 35 34 | 36 40 74 65 6b 72 65 64 |ID: <154|6@tekred|
|00000160| 2e 54 45 4b 2e 43 4f 4d | 3e 0a 44 61 74 65 3a 20 |.TEK.COM|>.Date: |
|00000170| 32 39 20 41 75 67 20 38 | 37 20 30 30 3a 30 35 3a |29 Aug 8|7 00:05:|
|00000180| 32 37 20 47 4d 54 0a 53 | 65 6e 64 65 72 3a 20 62 |27 GMT.S|ender: b|
|00000190| 69 6c 6c 72 40 74 65 6b | 72 65 64 2e 54 45 4b 2e |illr@tek|red.TEK.|
|000001a0| 43 4f 4d 0a 4c 69 6e 65 | 73 3a 20 39 32 0a 41 70 |COM.Line|s: 92.Ap|
|000001b0| 70 72 6f 76 65 64 3a 20 | 62 69 6c 6c 72 40 74 65 |proved: |billr@te|
|000001c0| 6b 72 65 64 2e 54 45 4b | 2e 43 4f 4d 0a 0a 53 75 |kred.TEK|.COM..Su|
|000001d0| 62 6d 69 74 74 65 64 20 | 62 79 3a 20 72 6f 6f 74 |bmitted |by: root|
|000001e0| 20 3c 69 68 6e 70 34 21 | 6b 69 6c 6c 65 72 21 6f | <ihnp4!|killer!o|
|000001f0| 7a 64 61 6c 74 78 21 72 | 6f 6f 74 3e 0a 43 6f 6d |zdaltx!r|oot>.Com|
|00000200| 70 2e 73 6f 75 72 63 65 | 73 2e 67 61 6d 65 73 3a |p.source|s.games:|
|00000210| 20 56 6f 6c 75 6d 65 20 | 32 2c 20 49 73 73 75 65 | Volume |2, Issue|
|00000220| 20 33 33 0a 41 72 63 68 | 69 76 65 2d 6e 61 6d 65 | 33.Arch|ive-name|
|00000230| 3a 20 70 69 67 0a 0a 09 | 5b 48 65 72 65 27 73 20 |: pig...|[Here's |
|00000240| 61 20 73 69 6d 70 6c 65 | 20 70 69 67 2d 6c 61 74 |a simple| pig-lat|
|00000250| 69 6e 20 74 72 61 6e 73 | 6c 61 74 6f 72 20 69 6e |in trans|lator in|
|00000260| 20 6c 65 78 2e 20 20 49 | 20 61 64 64 65 64 0a 09 | lex.  I| added..|
|00000270| 20 74 68 65 20 4d 61 6b | 65 66 69 6c 65 20 61 6e | the Mak|efile an|
|00000280| 64 20 66 69 78 65 64 20 | 61 20 62 75 67 2e 20 20 |d fixed |a bug.  |
|00000290| 49 74 27 73 20 6d 79 20 | 72 65 63 6f 6c 6c 65 63 |It's my |recollec|
|000002a0| 74 69 6f 6e 20 74 68 61 | 74 0a 09 20 70 69 67 2d |tion tha|t.. pig-|
|000002b0| 6c 61 74 69 6e 20 69 73 | 20 61 63 74 75 61 6c 20 |latin is| actual |
|000002c0| 61 20 6c 69 74 74 6c 65 | 20 6d 6f 72 65 20 63 6f |a little| more co|
|000002d0| 6d 70 6c 65 78 20 74 68 | 61 6e 20 74 68 69 73 2c |mplex th|an this,|
|000002e0| 20 62 75 74 0a 09 20 68 | 65 79 2c 20 49 20 64 6f | but.. h|ey, I do|
|000002f0| 6e 27 74 20 77 72 69 74 | 65 20 27 65 6d 20 2d 20 |n't writ|e 'em - |
|00000300| 49 20 6a 75 73 74 20 70 | 6f 73 74 20 27 65 6d 2e |I just p|ost 'em.|
|00000310| 20 20 2d 62 72 5d 0a 09 | 5b 50 2e 53 2e 20 48 6f |  -br]..|[P.S. Ho|
|00000320| 77 20 61 62 6f 75 74 20 | 73 6f 6d 65 20 6d 6f 72 |w about |some mor|
|00000330| 65 20 67 61 6d 65 73 3f | 20 20 4d 79 20 71 75 65 |e games?|  My que|
|00000340| 75 65 20 69 73 20 65 6d | 70 74 79 2e 5d 0a 0a 5b |ue is em|pty.]..[|
|00000350| 5b 54 68 69 73 20 69 73 | 20 61 20 6c 65 78 20 66 |[This is| a lex f|
|00000360| 69 6c 65 20 66 6f 72 20 | 61 20 70 69 67 2d 6c 61 |ile for |a pig-la|
|00000370| 74 69 6e 20 74 72 61 6e | 73 6c 61 74 6f 72 2e 20 |tin tran|slator. |
|00000380| 49 66 20 79 6f 75 20 64 | 6f 6e 27 74 0a 6b 6e 6f |If you d|on't.kno|
|00000390| 77 20 77 68 61 74 20 70 | 69 67 2d 6c 61 74 69 6e |w what p|ig-latin|
|000003a0| 20 69 73 20 6f 72 20 61 | 72 65 20 74 6f 6f 20 79 | is or a|re too y|
|000003b0| 6f 75 6e 67 20 74 6f 20 | 72 65 6d 65 6d 62 65 72 |oung to |remember|
|000003c0| 2e 2e 2e 20 49 74 0a 77 | 61 73 20 61 20 22 6c 61 |... It.w|as a "la|
|000003d0| 6e 67 75 61 67 65 22 20 | 70 6f 70 75 6c 61 72 20 |nguage" |popular |
|000003e0| 69 6e 20 74 68 65 20 34 | 30 2d 35 30 27 73 2e 20 |in the 4|0-50's. |
|000003f0| 54 68 65 20 72 75 6c 65 | 73 20 61 72 65 0a 73 69 |The rule|s are.si|
|00000400| 6d 70 6c 65 2c 20 6d 6f | 76 65 20 74 68 65 20 66 |mple, mo|ve the f|
|00000410| 69 72 73 74 20 6c 65 74 | 74 65 72 20 6f 66 20 65 |irst let|ter of e|
|00000420| 61 63 68 20 77 6f 72 64 | 20 74 6f 20 74 68 65 20 |ach word| to the |
|00000430| 65 6e 64 20 6f 66 20 74 | 68 65 0a 77 6f 72 64 20 |end of t|he.word |
|00000440| 61 6e 64 20 61 64 64 20 | 61 6e 20 27 61 27 2e 20 |and add |an 'a'. |
|00000450| 46 6f 72 20 65 78 61 6d | 70 6c 65 3b 20 22 70 69 |For exam|ple; "pi|
|00000460| 67 2d 6c 61 74 69 6e 22 | 20 62 65 63 6f 6d 65 73 |g-latin"| becomes|
|00000470| 0a 22 69 67 70 61 2d 61 | 74 69 6e 6c 61 22 2e 20 |."igpa-a|tinla". |
|00000480| 49 20 77 72 6f 74 65 20 | 74 68 69 73 20 61 73 20 |I wrote |this as |
|00000490| 61 6e 20 65 78 65 72 63 | 69 73 65 20 74 72 79 69 |an exerc|ise tryi|
|000004a0| 6e 67 20 74 6f 20 6c 65 | 61 72 6e 0a 6c 65 78 2e |ng to le|arn.lex.|
|000004b0| 20 49 74 20 6e 65 65 64 | 73 20 73 6f 6d 65 20 63 | It need|s some c|
|000004c0| 6c 65 61 6e 69 6e 67 20 | 75 70 2c 20 62 75 74 20 |leaning |up, but |
|000004d0| 69 74 20 77 6f 72 6b 73 | 20 61 73 20 69 73 2e 20 |it works| as is. |
|000004e0| 57 6f 72 64 73 0a 74 68 | 61 74 20 61 72 65 20 61 |Words.th|at are a|
|000004f0| 6c 6c 20 63 61 70 69 74 | 61 6c 73 20 61 72 65 20 |ll capit|als are |
|00000500| 6e 6f 74 20 70 61 72 73 | 65 64 20 63 6f 72 72 65 |not pars|ed corre|
|00000510| 63 74 6c 79 2c 20 79 65 | 74 2e 20 41 6e 79 77 61 |ctly, ye|t. Anywa|
|00000520| 79 2c 0a 65 6e 6a 6f 79 | 2e 0a 0a 09 2a 2a 2a 2a |y,.enjoy|....****|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000540| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 09 2a 20 |********|****..* |
|00000560| 53 63 6f 74 74 79 20 20 | 20 20 20 20 20 20 20 20 |Scotty  |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 2a 20 20 41 64 |        |   *  Ad|
|00000580| 61 70 74 20 20 20 20 20 | 20 20 20 20 20 2a 0a 09 |apt     |     *..|
|00000590| 2a 20 69 68 6e 70 34 21 | 6b 69 6c 6c 65 72 21 6f |* ihnp4!|killer!o|
|000005a0| 7a 64 61 6c 74 78 21 73 | 79 73 6f 70 20 2a 20 20 |zdaltx!s|ysop *  |
|000005b0| 20 20 20 45 6e 6a 6f 79 | 20 20 20 20 20 20 20 2a |   Enjoy|       *|
|000005c0| 0a 09 2a 20 22 41 64 20 | 56 65 6e 65 72 65 6d 20 |..* "Ad |Venerem |
|000005d0| 53 65 63 75 72 69 6f 72 | 65 6d 22 20 20 20 20 2a |Securior|em"    *|
|000005e0| 20 20 20 20 20 20 20 20 | 53 75 72 76 69 76 65 20 |        |Survive |
|000005f0| 20 2a 5d 5d 0a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | *]].---|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0a 23 21 20 2f |--------|---.#! /|
|00000610| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|00000620| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000630| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 74 68 69 |.  Remov|e anythi|
|00000640| 6e 67 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 6c |ng befor|e this l|
|00000650| 69 6e 65 2c 20 74 68 65 | 6e 20 75 6e 70 61 63 6b |ine, the|n unpack|
|00000660| 0a 23 20 69 74 20 62 79 | 20 73 61 76 69 6e 67 20 |.# it by| saving |
|00000670| 69 74 20 69 6e 74 6f 20 | 61 20 66 69 6c 65 20 61 |it into |a file a|
|00000680| 6e 64 20 74 79 70 69 6e | 67 20 22 73 68 20 66 69 |nd typin|g "sh fi|
|00000690| 6c 65 22 2e 20 20 54 6f | 20 6f 76 65 72 77 72 69 |le".  To| overwri|
|000006a0| 74 65 20 65 78 69 73 74 | 69 6e 67 0a 23 20 66 69 |te exist|ing.# fi|
|000006b0| 6c 65 73 2c 20 74 79 70 | 65 20 22 73 68 20 66 69 |les, typ|e "sh fi|
|000006c0| 6c 65 20 2d 63 22 2e 20 | 20 59 6f 75 20 63 61 6e |le -c". | You can|
|000006d0| 20 61 6c 73 6f 20 66 65 | 65 64 20 74 68 69 73 20 | also fe|ed this |
|000006e0| 61 73 20 73 74 61 6e 64 | 61 72 64 20 69 6e 70 75 |as stand|ard inpu|
|000006f0| 74 20 76 69 61 0a 23 20 | 75 6e 73 68 61 72 2c 20 |t via.# |unshar, |
|00000700| 6f 72 20 62 79 20 74 79 | 70 69 6e 67 20 22 73 68 |or by ty|ping "sh|
|00000710| 20 3c 66 69 6c 65 22 2c | 20 65 2e 67 2e 2e 20 20 | <file",| e.g..  |
|00000720| 49 66 20 74 68 69 73 20 | 61 72 63 68 69 76 65 20 |If this |archive |
|00000730| 69 73 20 63 6f 6d 70 6c | 65 74 65 2c 20 79 6f 75 |is compl|ete, you|
|00000740| 0a 23 20 77 69 6c 6c 20 | 73 65 65 20 74 68 65 20 |.# will |see the |
|00000750| 66 6f 6c 6c 6f 77 69 6e | 67 20 6d 65 73 73 61 67 |followin|g messag|
|00000760| 65 20 61 74 20 74 68 65 | 20 65 6e 64 3a 0a 23 09 |e at the| end:.#.|
|00000770| 09 22 45 6e 64 20 6f 66 | 20 73 68 65 6c 6c 20 61 |."End of| shell a|
|00000780| 72 63 68 69 76 65 2e 22 | 0a 23 20 43 6f 6e 74 65 |rchive."|.# Conte|
|00000790| 6e 74 73 3a 20 20 4d 61 | 6b 65 66 69 6c 65 20 70 |nts:  Ma|kefile p|
|000007a0| 69 67 2e 6c 0a 23 20 57 | 72 61 70 70 65 64 20 62 |ig.l.# W|rapped b|
|000007b0| 79 20 62 69 6c 6c 72 40 | 74 65 6b 72 65 64 20 6f |y billr@|tekred o|
|000007c0| 6e 20 46 72 69 20 41 75 | 67 20 32 38 20 31 36 3a |n Fri Au|g 28 16:|
|000007d0| 35 36 3a 32 30 20 31 39 | 38 37 0a 50 41 54 48 3d |56:20 19|87.PATH=|
|000007e0| 2f 62 69 6e 3a 2f 75 73 | 72 2f 62 69 6e 3a 2f 75 |/bin:/us|r/bin:/u|
|000007f0| 73 72 2f 75 63 62 20 3b | 20 65 78 70 6f 72 74 20 |sr/ucb ;| export |
|00000800| 50 41 54 48 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |PATH.if |test -f |
|00000810| 4d 61 6b 65 66 69 6c 65 | 20 2d 61 20 22 24 7b 31 |Makefile| -a "${1|
|00000820| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00000830| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n .  ech|o shar: |
|00000840| 57 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |Will not| over-wr|
|00000850| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00000860| 65 20 5c 22 4d 61 6b 65 | 66 69 6c 65 5c 22 0a 65 |e \"Make|file\".e|
|00000870| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|00000880| 78 74 72 61 63 74 69 6e | 67 20 5c 22 4d 61 6b 65 |xtractin|g \"Make|
|00000890| 66 69 6c 65 5c 22 20 5c | 28 31 30 32 20 63 68 61 |file\" \|(102 cha|
|000008a0| 72 61 63 74 65 72 73 5c | 29 0a 73 65 64 20 22 73 |racters\|).sed "s|
|000008b0| 2f 5e 58 2f 2f 22 20 3e | 4d 61 6b 65 66 69 6c 65 |/^X//" >|Makefile|
|000008c0| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 4d 61 6b 65 66 | <<'END_|OF_Makef|
|000008d0| 69 6c 65 27 0a 58 23 20 | 4d 61 6b 65 66 69 6c 65 |ile'.X# |Makefile|
|000008e0| 20 66 6f 72 20 70 69 67 | 20 2d 20 50 69 67 2d 4c | for pig| - Pig-L|
|000008f0| 61 74 69 6e 20 74 72 61 | 6e 73 6c 61 74 6f 72 0a |atin tra|nslator.|
|00000900| 58 0a 58 70 69 67 3a 09 | 70 69 67 2e 6c 0a 58 09 |X.Xpig:.|pig.l.X.|
|00000910| 6c 65 78 20 70 69 67 2e | 6c 0a 58 09 63 63 20 2d |lex pig.|l.X.cc -|
|00000920| 6f 20 70 69 67 20 6c 65 | 78 2e 79 79 2e 63 20 2d |o pig le|x.yy.c -|
|00000930| 6c 6c 0a 58 09 72 6d 20 | 6c 65 78 2e 79 79 2e 63 |ll.X.rm |lex.yy.c|
|00000940| 0a 45 4e 44 5f 4f 46 5f | 4d 61 6b 65 66 69 6c 65 |.END_OF_|Makefile|
|00000950| 0a 69 66 20 74 65 73 74 | 20 31 30 32 20 2d 6e 65 |.if test| 102 -ne|
|00000960| 20 60 77 63 20 2d 63 20 | 3c 4d 61 6b 65 66 69 6c | `wc -c |<Makefil|
|00000970| 65 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |e`; then|.    ech|
|00000980| 6f 20 73 68 61 72 3a 20 | 5c 22 4d 61 6b 65 66 69 |o shar: |\"Makefi|
|00000990| 6c 65 5c 22 20 75 6e 70 | 61 63 6b 65 64 20 77 69 |le\" unp|acked wi|
|000009a0| 74 68 20 77 72 6f 6e 67 | 20 73 69 7a 65 21 0a 66 |th wrong| size!.f|
|000009b0| 69 0a 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |i.# end |of overw|
|000009c0| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 66 69 0a |riting c|heck.fi.|
|000009d0| 69 66 20 74 65 73 74 20 | 2d 66 20 70 69 67 2e 6c |if test |-f pig.l|
|000009e0| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|000009f0| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n .  ech|
|00000a00| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|00000a10| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|00000a20| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 70 69 67 2e |ting fil|e \"pig.|
|00000a30| 6c 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |l\".else|.echo sh|
|00000a40| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00000a50| 22 70 69 67 2e 6c 5c 22 | 20 5c 28 33 33 31 20 63 |"pig.l\"| \(331 c|
|00000a60| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 73 65 64 20 |haracter|s\).sed |
|00000a70| 22 73 2f 5e 58 2f 2f 22 | 20 3e 70 69 67 2e 6c 20 |"s/^X//"| >pig.l |
|00000a80| 3c 3c 27 45 4e 44 5f 4f | 46 5f 70 69 67 2e 6c 27 |<<'END_O|F_pig.l'|
|00000a90| 0a 58 2f 2a 20 50 49 47 | 20 2d 20 61 20 70 69 67 |.X/* PIG| - a pig|
|00000aa0| 2d 6c 61 74 69 6e 20 74 | 72 61 6e 73 6c 61 74 6f |-latin t|ranslato|
|00000ab0| 72 20 2a 2f 0a 58 0a 58 | 25 7b 0a 58 23 69 6e 63 |r */.X.X|%{.X#inc|
|00000ac0| 6c 75 64 65 20 3c 63 74 | 79 70 65 2e 68 3e 0a 58 |lude <ct|ype.h>.X|
|00000ad0| 63 68 61 72 20 2a 63 2c | 20 73 74 61 72 74 3b 0a |char *c,| start;.|
|00000ae0| 58 25 7d 0a 58 25 25 0a | 58 5b 41 2d 5a 61 2d 7a |X%}.X%%.|X[A-Za-z|
|00000af0| 5d 2b 09 7b 0a 58 09 69 | 66 28 79 79 6c 65 6e 67 |]+.{.X.i|f(yyleng|
|00000b00| 20 3e 3d 32 29 7b 0a 58 | 09 09 63 3d 79 79 74 65 | >=2){.X|..c=yyte|
|00000b10| 78 74 3b 0a 58 09 09 69 | 66 28 69 73 75 70 70 65 |xt;.X..i|f(isuppe|
|00000b20| 72 28 79 79 74 65 78 74 | 5b 30 5d 29 29 0a 58 09 |r(yytext|[0])).X.|
|00000b30| 09 09 73 74 61 72 74 20 | 3d 20 74 6f 6c 6f 77 65 |..start |= tolowe|
|00000b40| 72 28 79 79 74 65 78 74 | 5b 30 5d 29 3b 0a 58 09 |r(yytext|[0]);.X.|
|00000b50| 09 65 6c 73 65 0a 58 09 | 09 09 73 74 61 72 74 20 |.else.X.|..start |
|00000b60| 3d 20 79 79 74 65 78 74 | 5b 30 5d 3b 0a 58 09 09 |= yytext|[0];.X..|
|00000b70| 63 2b 2b 3b 0a 58 09 09 | 69 66 28 69 73 75 70 70 |c++;.X..|if(isupp|
|00000b80| 65 72 28 79 79 74 65 78 | 74 5b 30 5d 29 29 0a 58 |er(yytex|t[0])).X|
|00000b90| 09 09 09 2a 63 3d 74 6f | 75 70 70 65 72 28 2a 63 |...*c=to|upper(*c|
|00000ba0| 29 3b 0a 58 09 09 70 72 | 69 6e 74 66 28 22 25 73 |);.X..pr|intf("%s|
|00000bb0| 25 63 61 22 2c 63 2c 73 | 74 61 72 74 29 3b 0a 58 |%ca",c,s|tart);.X|
|00000bc0| 09 7d 20 65 6c 73 65 20 | 7b 0a 58 09 09 45 43 48 |.} else |{.X..ECH|
|00000bd0| 4f 3b 0a 58 09 7d 0a 58 | 7d 0a 58 25 25 0a 58 6d |O;.X.}.X|}.X%%.Xm|
|00000be0| 61 69 6e 28 29 0a 58 7b | 0a 58 09 79 79 6c 65 78 |ain().X{|.X.yylex|
|00000bf0| 28 29 3b 0a 58 7d 0a 45 | 4e 44 5f 4f 46 5f 70 69 |();.X}.E|ND_OF_pi|
|00000c00| 67 2e 6c 0a 69 66 20 74 | 65 73 74 20 33 33 31 20 |g.l.if t|est 331 |
|00000c10| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 70 69 67 2e |-ne `wc |-c <pig.|
|00000c20| 6c 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |l`; then|.    ech|
|00000c30| 6f 20 73 68 61 72 3a 20 | 5c 22 70 69 67 2e 6c 5c |o shar: |\"pig.l\|
|00000c40| 22 20 75 6e 70 61 63 6b | 65 64 20 77 69 74 68 20 |" unpack|ed with |
|00000c50| 77 72 6f 6e 67 20 73 69 | 7a 65 21 0a 66 69 0a 23 |wrong si|ze!.fi.#|
|00000c60| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|00000c70| 69 6e 67 20 63 68 65 63 | 6b 0a 66 69 0a 65 63 68 |ing chec|k.fi.ech|
|00000c80| 6f 20 73 68 61 72 3a 20 | 45 6e 64 20 6f 66 20 73 |o shar: |End of s|
|00000c90| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 0a 65 78 |hell arc|hive..ex|
|00000ca0| 69 74 20 30 0a 0a 0a    |                         |it 0... |        |
+--------+-------------------------+-------------------------+--------+--------+