/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume11 / soundsl.ike

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 52 65 74 75 72 6e 2d 50 | 61 74 68 3a 20 40 55 55 |Return-P|ath: @UU|
|00000010| 4e 45 54 2e 55 55 2e 4e | 45 54 3a 73 75 6e 21 70 |NET.UU.N|ET:sun!p|
|00000020| 79 72 61 6d 69 64 21 70 | 72 6c 73 21 67 6f 72 64 |yramid!p|rls!gord|
|00000030| 6f 6e 40 73 65 69 73 6d | 6f 2e 43 53 53 2e 47 4f |on@seism|o.CSS.GO|
|00000040| 56 0a 4d 65 73 73 61 67 | 65 2d 49 64 3a 20 3c 38 |V.Messag|e-Id: <8|
|00000050| 37 31 30 30 31 30 30 32 | 31 2e 41 41 31 30 39 37 |71001002|1.AA1097|
|00000060| 35 40 70 79 72 61 6d 69 | 64 2e 55 55 43 50 3e 0a |5@pyrami|d.UUCP>.|
|00000070| 44 61 74 65 3a 20 57 65 | 64 2c 20 33 30 20 53 65 |Date: We|d, 30 Se|
|00000080| 70 20 38 37 20 31 36 3a | 35 31 3a 34 35 20 70 64 |p 87 16:|51:45 pd|
|00000090| 74 0a 46 72 6f 6d 3a 20 | 47 6f 72 64 6f 6e 20 56 |t.From: |Gordon V|
|000000a0| 69 63 6b 65 72 73 20 3c | 73 75 6e 21 70 72 6c 73 |ickers <|sun!prls|
|000000b0| 21 67 6f 72 64 6f 6e 40 | 73 65 69 73 6d 6f 2e 43 |!gordon@|seismo.C|
|000000c0| 53 53 2e 47 4f 56 3e 0a | 54 6f 3a 20 73 6f 75 72 |SS.GOV>.|To: sour|
|000000d0| 63 65 73 40 73 65 69 73 | 6d 6f 2e 43 53 53 2e 47 |ces@seis|mo.CSS.G|
|000000e0| 4f 56 0a 53 75 62 6a 65 | 63 74 3a 20 73 6f 75 6e |OV.Subje|ct: soun|
|000000f0| 64 73 6c 69 6b 65 3b 20 | 4c 4f 4f 4b 28 31 29 20 |dslike; |LOOK(1) |
|00000100| 6c 69 6b 65 20 70 72 6f | 67 72 61 6d 20 77 69 74 |like pro|gram wit|
|00000110| 68 20 73 6f 75 6e 64 65 | 78 0a 0a 54 68 69 73 20 |h sounde|x..This |
|00000120| 69 73 20 61 6e 6f 74 68 | 65 72 20 61 69 64 20 74 |is anoth|er aid t|
|00000130| 6f 20 74 68 6f 73 65 20 | 77 68 6f 20 63 61 6e 27 |o those |who can'|
|00000140| 74 20 73 70 65 6c 6c 20 | 2e 20 20 49 74 20 69 73 |t spell |.  It is|
|00000150| 20 73 69 6d 69 6c 61 72 | 20 74 6f 20 74 68 65 20 | similar| to the |
|00000160| 62 61 73 69 63 0a 66 75 | 6e 63 74 69 6f 6e 20 6f |basic.fu|nction o|
|00000170| 66 20 4c 4f 4f 4b 28 31 | 29 20 62 75 74 20 75 73 |f LOOK(1|) but us|
|00000180| 65 73 20 77 68 61 74 20 | 49 20 62 65 6c 69 65 76 |es what |I believ|
|00000190| 65 20 69 73 20 74 68 65 | 20 22 73 6f 75 6e 64 65 |e is the| "sounde|
|000001a0| 78 22 20 61 6c 67 6f 72 | 69 74 68 6d 2e 0a 54 68 |x" algor|ithm..Th|
|000001b0| 65 20 63 6f 64 65 20 69 | 73 20 56 45 52 59 20 74 |e code i|s VERY t|
|000001c0| 61 6d 65 20 73 6f 20 49 | 20 77 6f 75 6c 64 20 65 |ame so I| would e|
|000001d0| 78 70 65 63 74 20 74 6f | 20 74 6f 20 70 6f 72 74 |xpect to| to port|
|000001e0| 20 65 61 73 69 6c 79 20 | 74 68 6f 75 67 68 20 49 | easily |though I|
|000001f0| 20 61 6d 20 6e 6f 0a 65 | 78 70 65 72 74 20 6f 6e | am no.e|xpert on|
|00000200| 20 73 75 63 68 20 6d 61 | 74 74 65 72 73 2e 20 20 | such ma|tters.  |
|00000210| 43 6f 6d 6d 65 6e 74 73 | 2c 20 73 75 67 67 65 73 |Comments|, sugges|
|00000220| 74 69 6f 6e 73 2c 20 65 | 74 63 20 61 72 65 20 77 |tions, e|tc are w|
|00000230| 65 6c 63 6f 6d 65 64 2e | 0a 0a 0a 47 6f 72 64 6f |elcomed.|...Gordo|
|00000240| 6e 20 50 2e 20 56 69 63 | 6b 65 72 73 2c 20 28 34 |n P. Vic|kers, (4|
|00000250| 30 38 29 20 39 39 31 2d | 35 33 37 30 2c 20 20 20 |08) 991-|5370,   |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 3d 3d 3d 3d 3d 3d |        |  ======|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 0a 53 69 67 6e 65 74 | 69 63 73 20 43 6f 72 70 |=.Signet|ics Corp|
|00000290| 2e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002b0| 20 7c 7c 20 55 6c 74 72 | 69 78 2d 33 32 20 76 65 | || Ultr|ix-32 ve|
|000002c0| 72 20 31 2e 32 20 7c 7c | 0a 50 4f 20 42 6f 78 20 |r 1.2 |||.PO Box |
|000002d0| 33 34 30 39 20 20 4d 2f | 53 20 36 39 20 20 20 20 |3409  M/|S 69    |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002f0| 20 20 20 20 20 20 20 20 | 7c 7c 20 20 20 20 20 56 |        |||     V|
|00000300| 41 58 20 31 31 2f 37 35 | 30 20 20 20 20 7c 7c 0a |AX 11/75|0    ||.|
|00000310| 53 75 6e 6e 79 76 61 6c | 65 2c 20 43 61 6c 69 66 |Sunnyval|e, Calif|
|00000320| 6f 72 6e 69 61 2c 20 20 | 55 53 41 20 20 39 34 30 |ornia,  |USA  940|
|00000330| 38 36 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d |86      |       =|
|00000340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000350| 3d 3d 3d 3d 3d 3d 0a 7b | 70 79 72 61 6d 69 64 2c |======.{|pyramid,|
|00000360| 20 70 68 69 6c 61 62 73 | 7d 21 70 72 6c 73 21 67 | philabs|}!prls!g|
|00000370| 6f 72 64 6f 6e 0a 0a 5b | 20 20 49 20 74 75 72 6e |ordon..[|  I turn|
|00000380| 65 64 20 74 68 65 20 66 | 6f 72 6d 61 74 74 65 64 |ed the f|ormatted|
|00000390| 20 6d 61 6e 70 61 67 65 | 20 69 6e 74 6f 20 61 6e | manpage| into an|
|000003a0| 20 75 6e 66 6f 72 6d 61 | 74 74 65 64 20 6f 6e 65 | unforma|tted one|
|000003b0| 2c 20 61 6c 6f 6e 67 20 | 77 69 74 68 0a 20 20 20 |, along |with.   |
|000003c0| 6c 69 67 68 74 20 65 64 | 69 74 69 6e 67 2c 20 61 |light ed|iting, a|
|000003d0| 6e 64 20 77 72 6f 74 65 | 20 61 20 4d 61 6b 65 66 |nd wrote| a Makef|
|000003e0| 69 6c 65 2e 20 20 46 65 | 65 6c 20 66 72 65 65 20 |ile.  Fe|el free |
|000003f0| 74 6f 20 74 61 6b 65 20 | 74 68 65 20 6c 61 74 74 |to take |the latt|
|00000400| 65 72 0a 20 20 20 61 73 | 20 61 20 70 72 6f 74 6f |er.   as| a proto|
|00000410| 74 79 70 65 20 6d 61 6b | 65 66 69 6c 65 20 66 6f |type mak|efile fo|
|00000420| 72 20 73 75 62 6d 69 73 | 73 69 6f 6e 73 2e 2e 2e |r submis|sions...|
|00000430| 20 20 41 6c 73 6f 2c 20 | 49 20 64 6f 6e 27 74 20 |  Also, |I don't |
|00000440| 6b 6e 6f 77 20 69 66 0a | 20 20 20 74 68 69 73 20 |know if.|   this |
|00000450| 69 73 20 74 72 75 65 20 | 22 73 6f 75 6e 64 65 78 |is true |"soundex|
|00000460| 22 20 6f 72 20 6e 6f 74 | 20 2d 2d 20 61 6e 64 20 |" or not| -- and |
|00000470| 49 20 64 6f 6e 27 74 20 | 63 61 72 65 20 2d 2d 20 |I don't |care -- |
|00000480| 69 74 20 77 6f 72 6b 73 | 20 6e 69 63 65 6c 79 2e |it works| nicely.|
|00000490| 0a 20 20 20 2d 2d 72 24 | 20 20 5d 0a 0a 23 21 20 |.   --r$|  ]..#! |
|000004a0| 2f 62 69 6e 2f 73 68 0a | 23 20 54 68 69 73 20 69 |/bin/sh.|# This i|
|000004b0| 73 20 61 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 |s a shel|l archiv|
|000004c0| 65 2e 20 20 52 65 6d 6f | 76 65 20 61 6e 79 74 68 |e.  Remo|ve anyth|
|000004d0| 69 6e 67 20 62 65 66 6f | 72 65 20 74 68 69 73 20 |ing befo|re this |
|000004e0| 6c 69 6e 65 2c 20 74 68 | 65 6e 20 75 6e 70 61 63 |line, th|en unpac|
|000004f0| 6b 0a 23 20 69 74 20 62 | 79 20 73 61 76 69 6e 67 |k.# it b|y saving|
|00000500| 20 69 74 20 69 6e 74 6f | 20 61 20 66 69 6c 65 20 | it into| a file |
|00000510| 61 6e 64 20 74 79 70 69 | 6e 67 20 22 73 68 20 66 |and typi|ng "sh f|
|00000520| 69 6c 65 22 2e 20 20 54 | 6f 20 6f 76 65 72 77 72 |ile".  T|o overwr|
|00000530| 69 74 65 20 65 78 69 73 | 74 69 6e 67 0a 23 20 66 |ite exis|ting.# f|
|00000540| 69 6c 65 73 2c 20 74 79 | 70 65 20 22 73 68 20 66 |iles, ty|pe "sh f|
|00000550| 69 6c 65 20 2d 63 22 2e | 20 20 59 6f 75 20 63 61 |ile -c".|  You ca|
|00000560| 6e 20 61 6c 73 6f 20 66 | 65 65 64 20 74 68 69 73 |n also f|eed this|
|00000570| 20 61 73 20 73 74 61 6e | 64 61 72 64 20 69 6e 70 | as stan|dard inp|
|00000580| 75 74 20 76 69 61 0a 23 | 20 75 6e 73 68 61 72 2c |ut via.#| unshar,|
|00000590| 20 6f 72 20 62 79 20 74 | 79 70 69 6e 67 20 22 73 | or by t|yping "s|
|000005a0| 68 20 3c 66 69 6c 65 22 | 2c 20 65 2e 67 2e 2e 20 |h <file"|, e.g.. |
|000005b0| 20 49 66 20 74 68 69 73 | 20 61 72 63 68 69 76 65 | If this| archive|
|000005c0| 20 69 73 20 63 6f 6d 70 | 6c 65 74 65 2c 20 79 6f | is comp|lete, yo|
|000005d0| 75 0a 23 20 77 69 6c 6c | 20 73 65 65 20 74 68 65 |u.# will| see the|
|000005e0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6d 65 73 73 61 | followi|ng messa|
|000005f0| 67 65 20 61 74 20 74 68 | 65 20 65 6e 64 3a 0a 23 |ge at th|e end:.#|
|00000600| 09 09 22 45 6e 64 20 6f | 66 20 73 68 65 6c 6c 20 |.."End o|f shell |
|00000610| 61 72 63 68 69 76 65 2e | 22 0a 23 20 43 6f 6e 74 |archive.|".# Cont|
|00000620| 65 6e 74 73 3a 20 20 4d | 61 6b 65 66 69 6c 65 20 |ents:  M|akefile |
|00000630| 73 6f 75 6e 64 73 6c 69 | 6b 65 2e 31 20 73 6f 75 |soundsli|ke.1 sou|
|00000640| 6e 64 73 6c 69 6b 65 2e | 63 0a 50 41 54 48 3d 2f |ndslike.|c.PATH=/|
|00000650| 62 69 6e 3a 2f 75 73 72 | 2f 62 69 6e 3a 2f 75 73 |bin:/usr|/bin:/us|
|00000660| 72 2f 75 63 62 20 3b 20 | 65 78 70 6f 72 74 20 50 |r/ucb ; |export P|
|00000670| 41 54 48 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |ATH.if t|est -f '|
|00000680| 4d 61 6b 65 66 69 6c 65 | 27 20 2d 61 20 22 24 7b |Makefile|' -a "${|
|00000690| 31 7d 22 20 21 3d 20 22 | 2d 63 22 20 3b 20 74 68 |1}" != "|-c" ; th|
|000006a0| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en .  ec|ho shar:|
|000006b0| 20 57 69 6c 6c 20 6e 6f | 74 20 63 6c 6f 62 62 65 | Will no|t clobbe|
|000006c0| 72 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |r existi|ng file |
|000006d0| 5c 22 27 4d 61 6b 65 66 | 69 6c 65 27 5c 22 0a 65 |\"'Makef|ile'\".e|
|000006e0| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|000006f0| 78 74 72 61 63 74 69 6e | 67 20 5c 22 27 4d 61 6b |xtractin|g \"'Mak|
|00000700| 65 66 69 6c 65 27 5c 22 | 20 5c 28 31 37 38 20 63 |efile'\"| \(178 c|
|00000710| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 73 65 64 20 |haracter|s\).sed |
|00000720| 22 73 2f 5e 58 2f 2f 22 | 20 3e 27 4d 61 6b 65 66 |"s/^X//"| >'Makef|
|00000730| 69 6c 65 27 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 46 |ile' <<'|END_OF_F|
|00000740| 49 4c 45 27 0a 58 23 20 | 4d 61 6b 65 66 69 6c 65 |ILE'.X# |Makefile|
|00000750| 20 66 6f 72 20 73 6f 75 | 6e 64 73 6c 69 6b 65 2e | for sou|ndslike.|
|00000760| 0a 58 43 46 4c 41 47 53 | 09 3d 20 2d 4f 0a 58 70 |.XCFLAGS|.= -O.Xp|
|00000770| 09 3d 20 73 6f 75 6e 64 | 73 6c 69 6b 65 0a 58 61 |.= sound|slike.Xa|
|00000780| 6c 6c 3a 09 09 24 70 20 | 24 70 2e 31 0a 58 69 6e |ll:..$p |$p.1.Xin|
|00000790| 73 74 61 6c 6c 3a 09 61 | 6c 6c 0a 58 09 40 65 63 |stall:.a|ll.X.@ec|
|000007a0| 68 6f 20 69 6e 73 74 61 | 6c 6c 20 24 70 20 61 6e |ho insta|ll $p an|
|000007b0| 64 20 24 70 2e 31 20 61 | 63 63 6f 72 64 69 6e 67 |d $p.1 a|ccording|
|000007c0| 20 74 6f 20 6c 6f 63 61 | 6c 20 63 6f 6e 76 65 6e | to loca|l conven|
|000007d0| 74 69 6f 6e 2e 0a 58 0a | 58 24 70 3a 09 09 24 70 |tion..X.|X$p:..$p|
|000007e0| 2e 63 0a 58 09 24 28 43 | 43 29 20 24 28 43 46 4c |.c.X.$(C|C) $(CFL|
|000007f0| 41 47 53 29 20 2d 6f 20 | 24 70 20 24 70 2e 63 0a |AGS) -o |$p $p.c.|
|00000800| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 0a 69 66 20 74 |END_OF_F|ILE.if t|
|00000810| 65 73 74 20 31 37 38 20 | 2d 6e 65 20 60 77 63 20 |est 178 |-ne `wc |
|00000820| 2d 63 20 3c 27 4d 61 6b | 65 66 69 6c 65 27 60 3b |-c <'Mak|efile'`;|
|00000830| 20 74 68 65 6e 0a 20 20 | 20 20 65 63 68 6f 20 73 | then.  |  echo s|
|00000840| 68 61 72 3a 20 5c 22 27 | 4d 61 6b 65 66 69 6c 65 |har: \"'|Makefile|
|00000850| 27 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |'\" unpa|cked wit|
|00000860| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|00000870| 0a 23 20 65 6e 64 20 6f | 66 20 27 4d 61 6b 65 66 |.# end o|f 'Makef|
|00000880| 69 6c 65 27 0a 66 69 0a | 69 66 20 74 65 73 74 20 |ile'.fi.|if test |
|00000890| 2d 66 20 27 73 6f 75 6e | 64 73 6c 69 6b 65 2e 31 |-f 'soun|dslike.1|
|000008a0| 27 20 2d 61 20 22 24 7b | 31 7d 22 20 21 3d 20 22 |' -a "${|1}" != "|
|000008b0| 2d 63 22 20 3b 20 74 68 | 65 6e 20 0a 20 20 65 63 |-c" ; th|en .  ec|
|000008c0| 68 6f 20 73 68 61 72 3a | 20 57 69 6c 6c 20 6e 6f |ho shar:| Will no|
|000008d0| 74 20 63 6c 6f 62 62 65 | 72 20 65 78 69 73 74 69 |t clobbe|r existi|
|000008e0| 6e 67 20 66 69 6c 65 20 | 5c 22 27 73 6f 75 6e 64 |ng file |\"'sound|
|000008f0| 73 6c 69 6b 65 2e 31 27 | 5c 22 0a 65 6c 73 65 0a |slike.1'|\".else.|
|00000900| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|00000910| 63 74 69 6e 67 20 5c 22 | 27 73 6f 75 6e 64 73 6c |cting \"|'soundsl|
|00000920| 69 6b 65 2e 31 27 5c 22 | 20 5c 28 39 32 38 20 63 |ike.1'\"| \(928 c|
|00000930| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 73 65 64 20 |haracter|s\).sed |
|00000940| 22 73 2f 5e 58 2f 2f 22 | 20 3e 27 73 6f 75 6e 64 |"s/^X//"| >'sound|
|00000950| 73 6c 69 6b 65 2e 31 27 | 20 3c 3c 27 45 4e 44 5f |slike.1'| <<'END_|
|00000960| 4f 46 5f 46 49 4c 45 27 | 0a 58 2e 54 48 20 53 4f |OF_FILE'|.X.TH SO|
|00000970| 55 4e 44 53 4c 49 4b 45 | 20 31 20 4c 4f 43 41 4c |UNDSLIKE| 1 LOCAL|
|00000980| 0a 58 2e 53 48 20 4e 41 | 4d 45 0a 58 73 6f 75 6e |.X.SH NA|ME.Xsoun|
|00000990| 64 73 6c 69 6b 65 20 5c | 2d 20 73 70 65 6c 6c 20 |dslike \|- spell |
|000009a0| 77 6f 72 64 20 62 61 73 | 65 64 20 6f 6e 20 77 68 |word bas|ed on wh|
|000009b0| 61 74 20 69 74 20 73 6f | 75 6e 64 73 20 6c 69 6b |at it so|unds lik|
|000009c0| 65 0a 58 2e 53 48 20 53 | 59 4e 4f 50 53 49 53 0a |e.X.SH S|YNOPSIS.|
|000009d0| 58 2e 42 20 73 6f 75 6e | 64 73 6c 69 6b 65 0a 58 |X.B soun|dslike.X|
|000009e0| 77 6f 72 64 0a 58 2e 62 | 72 0a 58 2e 42 20 73 6f |word.X.b|r.X.B so|
|000009f0| 75 6e 64 73 6c 69 6b 65 | 0a 58 2d 66 69 6c 65 6e |undslike|.X-filen|
|00000a00| 61 6d 65 20 77 6f 72 64 | 0a 58 2e 62 72 0a 58 2e |ame word|.X.br.X.|
|00000a10| 42 20 73 6f 75 6e 64 73 | 6c 69 6b 65 0a 58 77 6f |B sounds|like.Xwo|
|00000a20| 72 64 20 2d 66 69 6c 65 | 6e 61 6d 65 0a 58 2e 53 |rd -file|name.X.S|
|00000a30| 48 20 44 45 53 43 52 49 | 50 54 49 4f 4e 0a 58 2e |H DESCRI|PTION.X.|
|00000a40| 49 20 53 6f 75 6e 64 73 | 6c 69 6b 65 0a 58 75 73 |I Sounds|like.Xus|
|00000a50| 65 73 20 61 6e 20 69 6d | 70 6c 65 6d 65 6e 74 61 |es an im|plementa|
|00000a60| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 73 6f 75 6e |tion of |the soun|
|00000a70| 64 65 78 20 61 6c 67 6f | 72 69 74 68 6d 2e 0a 58 |dex algo|rithm..X|
|00000a80| 54 79 70 65 20 74 68 65 | 20 77 6f 72 64 20 69 6e |Type the| word in|
|00000a90| 20 71 75 65 73 74 69 6f | 6e 20 61 73 20 62 65 73 | questio|n as bes|
|00000aa0| 74 20 61 73 20 79 6f 75 | 20 63 61 6e 2c 0a 58 61 |t as you| can,.Xa|
|00000ab0| 6e 64 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 77 |nd the p|rogram w|
|00000ac0| 69 6c 6c 20 73 65 61 72 | 63 68 20 61 20 64 61 74 |ill sear|ch a dat|
|00000ad0| 61 62 61 73 65 20 66 6f | 72 20 73 69 6d 69 6c 61 |abase fo|r simila|
|00000ae0| 72 2d 73 6f 75 6e 64 69 | 6e 67 20 77 6f 72 64 73 |r-soundi|ng words|
|00000af0| 2e 0a 58 54 68 65 20 64 | 65 66 61 75 6c 74 20 64 |..XThe d|efault d|
|00000b00| 61 74 61 62 61 73 65 20 | 69 73 20 6e 6f 72 6d 61 |atabase |is norma|
|00000b10| 6c 6c 79 0a 58 2e 49 20 | 2f 75 73 72 2f 64 69 63 |lly.X.I |/usr/dic|
|00000b20| 74 2f 77 6f 72 64 73 0a | 58 62 75 74 20 74 68 65 |t/words.|Xbut the|
|00000b30| 20 75 73 65 72 20 6d 61 | 79 20 73 70 65 63 69 66 | user ma|y specif|
|00000b40| 79 20 61 6e 79 20 6f 74 | 68 65 72 20 66 69 6c 65 |y any ot|her file|
|00000b50| 2e 0a 58 2e 50 50 0a 58 | 52 65 67 61 72 64 6c 65 |..X.PP.X|Regardle|
|00000b60| 73 73 20 6f 66 20 77 68 | 69 63 68 20 66 69 6c 65 |ss of wh|ich file|
|00000b70| 20 69 73 20 73 70 65 63 | 69 66 69 65 64 20 61 73 | is spec|ified as|
|00000b80| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 2c 20 6f | the dat|abase, o|
|00000b90| 6e 6c 79 20 74 68 65 0a | 58 66 69 72 73 74 20 77 |nly the.|Xfirst w|
|00000ba0| 6f 72 64 20 6f 66 20 65 | 61 63 68 20 6c 69 6e 65 |ord of e|ach line|
|00000bb0| 20 69 73 20 74 65 73 74 | 65 64 20 61 67 61 69 6e | is test|ed again|
|00000bc0| 73 74 20 74 68 65 20 75 | 73 65 72 73 27 20 77 6f |st the u|sers' wo|
|00000bd0| 72 64 2e 0a 58 2e 50 50 | 0a 58 46 6f 72 20 65 78 |rd..X.PP|.XFor ex|
|00000be0| 61 6d 70 6c 65 2c 0a 58 | 2e 52 53 0a 58 73 6f 75 |ample,.X|.RS.Xsou|
|00000bf0| 6e 64 73 6c 69 6b 65 20 | 62 75 74 69 66 75 6c 0a |ndslike |butiful.|
|00000c00| 58 2e 52 45 0a 58 77 69 | 6c 6c 20 70 72 6f 64 75 |X.RE.Xwi|ll produ|
|00000c10| 63 65 3a 0a 58 2e 52 53 | 0a 58 62 65 61 75 74 69 |ce:.X.RS|.Xbeauti|
|00000c20| 66 75 6c 0a 58 62 69 64 | 64 61 62 6c 65 0a 58 62 |ful.Xbid|dable.Xb|
|00000c30| 6f 74 66 6c 79 0a 58 2e | 52 45 0a 58 61 6e 64 0a |otfly.X.|RE.Xand.|
|00000c40| 58 2e 52 53 0a 58 73 6f | 75 6e 64 73 6c 69 6b 65 |X.RS.Xso|undslike|
|00000c50| 20 6e 65 73 73 61 63 63 | 61 72 79 20 0a 58 2e 52 | nessacc|ary .X.R|
|00000c60| 45 0a 58 70 72 6f 64 75 | 63 65 73 3a 0a 58 2e 52 |E.Xprodu|ces:.X.R|
|00000c70| 53 0a 58 6e 65 63 65 73 | 73 61 72 79 0a 58 2e 52 |S.Xneces|sary.X.R|
|00000c80| 45 0a 58 2e 53 48 20 52 | 45 53 54 52 49 43 54 49 |E.X.SH R|ESTRICTI|
|00000c90| 4f 4e 53 0a 58 59 6f 75 | 20 6d 75 73 74 20 62 65 |ONS.XYou| must be|
|00000ca0| 20 61 62 6c 65 20 74 6f | 20 61 74 20 6c 65 61 73 | able to| at leas|
|00000cb0| 74 20 67 65 74 20 74 68 | 65 20 66 69 72 73 74 20 |t get th|e first |
|00000cc0| 6c 65 74 74 65 72 20 63 | 6f 72 72 65 63 74 2e 0a |letter c|orrect..|
|00000cd0| 58 2e 53 48 20 41 55 54 | 48 4f 52 0a 58 2e 6e 66 |X.SH AUT|HOR.X.nf|
|00000ce0| 0a 58 47 6f 72 64 6f 6e | 20 50 2e 20 56 69 63 6b |.XGordon| P. Vick|
|00000cf0| 65 72 73 0a 58 53 69 67 | 6e 65 74 69 63 73 20 43 |ers.XSig|netics C|
|00000d00| 6f 72 70 2e 20 2c 20 53 | 75 6e 6e 79 76 61 6c 65 |orp. , S|unnyvale|
|00000d10| 2c 20 43 61 2e 0a 58 7b | 70 79 72 61 6d 69 64 2c |, Ca..X{|pyramid,|
|00000d20| 20 70 68 69 6c 61 62 73 | 7d 21 70 72 6c 73 21 67 | philabs|}!prls!g|
|00000d30| 6f 72 64 6f 6e 0a 58 2e | 66 69 0a 45 4e 44 5f 4f |ordon.X.|fi.END_O|
|00000d40| 46 5f 46 49 4c 45 0a 69 | 66 20 74 65 73 74 20 39 |F_FILE.i|f test 9|
|00000d50| 32 38 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 27 |28 -ne `|wc -c <'|
|00000d60| 73 6f 75 6e 64 73 6c 69 | 6b 65 2e 31 27 60 3b 20 |soundsli|ke.1'`; |
|00000d70| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then.   | echo sh|
|00000d80| 61 72 3a 20 5c 22 27 73 | 6f 75 6e 64 73 6c 69 6b |ar: \"'s|oundslik|
|00000d90| 65 2e 31 27 5c 22 20 75 | 6e 70 61 63 6b 65 64 20 |e.1'\" u|npacked |
|00000da0| 77 69 74 68 20 77 72 6f | 6e 67 20 73 69 7a 65 21 |with wro|ng size!|
|00000db0| 0a 66 69 0a 23 20 65 6e | 64 20 6f 66 20 27 73 6f |.fi.# en|d of 'so|
|00000dc0| 75 6e 64 73 6c 69 6b 65 | 2e 31 27 0a 66 69 0a 69 |undslike|.1'.fi.i|
|00000dd0| 66 20 74 65 73 74 20 2d | 66 20 27 73 6f 75 6e 64 |f test -|f 'sound|
|00000de0| 73 6c 69 6b 65 2e 63 27 | 20 2d 61 20 22 24 7b 31 |slike.c'| -a "${1|
|00000df0| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00000e00| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n .  ech|o shar: |
|00000e10| 57 69 6c 6c 20 6e 6f 74 | 20 63 6c 6f 62 62 65 72 |Will not| clobber|
|00000e20| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00000e30| 22 27 73 6f 75 6e 64 73 | 6c 69 6b 65 2e 63 27 5c |"'sounds|like.c'\|
|00000e40| 22 0a 65 6c 73 65 0a 65 | 63 68 6f 20 73 68 61 72 |".else.e|cho shar|
|00000e50| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 27 |: Extrac|ting \"'|
|00000e60| 73 6f 75 6e 64 73 6c 69 | 6b 65 2e 63 27 5c 22 20 |soundsli|ke.c'\" |
|00000e70| 5c 28 33 35 35 37 20 63 | 68 61 72 61 63 74 65 72 |\(3557 c|haracter|
|00000e80| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00000e90| 20 3e 27 73 6f 75 6e 64 | 73 6c 69 6b 65 2e 63 27 | >'sound|slike.c'|
|00000ea0| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|00000eb0| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 69 |.X#inclu|de <stdi|
|00000ec0| 6f 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |o.h>.X#i|nclude <|
|00000ed0| 73 74 72 69 6e 67 73 2e | 68 3e 0a 58 0a 58 2f 2a |strings.|h>.X.X/*|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f10| 2a 2a 2a 2a 2a 2a 0a 58 | 20 2a 20 20 53 6f 75 6e |******.X| *  Soun|
|00000f20| 64 65 78 20 28 6c 69 6b | 65 29 20 66 69 6c 74 65 |dex (lik|e) filte|
|00000f30| 72 2e 20 20 44 65 66 61 | 75 6c 74 20 64 61 74 61 |r.  Defa|ult data|
|00000f40| 62 61 73 65 20 69 73 20 | 44 45 46 44 42 20 20 2a |base is |DEFDB  *|
|00000f50| 0a 58 20 2a 20 20 20 20 | 20 6f 72 20 75 73 65 72 |.X *    | or user|
|00000f60| 20 73 70 65 63 69 66 69 | 65 73 20 77 69 74 68 20 | specifi|es with |
|00000f70| 22 2d 66 69 6c 65 6e 61 | 6d 65 22 20 20 20 20 20 |"-filena|me"     |
|00000f80| 20 20 20 20 20 20 20 20 | 20 2a 0a 58 20 2a 20 20 |        | *.X *  |
|00000f90| 20 20 20 73 79 6e 74 65 | 78 3a 20 73 6f 75 6e 64 |   synte|x: sound|
|00000fa0| 65 78 20 77 6f 72 64 20 | 20 20 20 20 20 20 20 20 |ex word |        |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fc0| 20 20 20 2a 0a 58 20 2a | 20 20 20 20 20 20 20 20 |   *.X *|        |
|00000fd0| 20 20 20 20 20 73 6f 75 | 6e 64 65 78 20 2d 64 61 |     sou|ndex -da|
|00000fe0| 74 61 62 61 73 65 20 77 | 6f 72 64 20 20 20 20 20 |tabase w|ord     |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 0a 58 |        |     *.X|
|00001000| 20 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 | *      |       s|
|00001010| 6f 75 6e 64 65 78 20 77 | 6f 72 64 20 2d 64 61 74 |oundex w|ord -dat|
|00001020| 61 62 61 73 65 20 20 20 | 20 20 20 20 20 20 20 20 |abase   |        |
|00001030| 20 20 20 20 20 20 20 2a | 0a 58 20 2a 2a 2a 2a 2a |       *|.X *****|
|00001040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001070| 2a 2f 0a 58 0a 58 23 64 | 65 66 69 6e 65 20 44 45 |*/.X.X#d|efine DE|
|00001080| 46 44 42 20 20 22 2f 75 | 73 72 2f 64 69 63 74 2f |FDB  "/u|sr/dict/|
|00001090| 77 6f 72 64 73 22 20 20 | 20 2f 2a 20 64 65 66 61 |words"  | /* defa|
|000010a0| 75 6c 74 20 64 61 74 61 | 62 61 73 65 20 20 2a 2f |ult data|base  */|
|000010b0| 0a 58 0a 58 6d 61 69 6e | 28 61 72 67 63 2c 61 72 |.X.Xmain|(argc,ar|
|000010c0| 67 76 29 0a 58 20 20 69 | 6e 74 20 20 20 20 61 72 |gv).X  i|nt    ar|
|000010d0| 67 63 3b 0a 58 20 20 63 | 68 61 72 20 2a 2a 61 72 |gc;.X  c|har **ar|
|000010e0| 67 76 3b 0a 58 7b 0a 58 | 20 20 20 76 6f 69 64 20 |gv;.X{.X|   void |
|000010f0| 6d 6b 63 6f 64 65 28 29 | 2c 20 73 79 6e 74 65 78 |mkcode()|, syntex|
|00001100| 28 29 3b 0a 58 20 20 20 | 69 6e 74 20 69 3b 0a 58 |();.X   |int i;.X|
|00001110| 20 20 20 63 68 61 72 20 | 63 3b 0a 58 20 20 20 63 |   char |c;.X   c|
|00001120| 68 61 72 20 64 62 6e 61 | 6d 65 5b 42 55 46 53 49 |har dbna|me[BUFSI|
|00001130| 5a 5d 2c 20 77 6f 72 64 | 5b 42 55 46 53 49 5a 5d |Z], word|[BUFSIZ]|
|00001140| 2c 20 73 5b 42 55 46 53 | 49 5a 5d 3b 0a 58 20 20 |, s[BUFS|IZ];.X  |
|00001150| 20 63 68 61 72 20 64 62 | 77 6f 72 64 5b 42 55 46 | char db|word[BUF|
|00001160| 53 49 5a 5d 2c 20 64 62 | 63 6f 64 65 5b 42 55 46 |SIZ], db|code[BUF|
|00001170| 53 49 5a 5d 3b 0a 58 0a | 58 20 20 20 73 70 72 69 |SIZ];.X.|X   spri|
|00001180| 6e 74 66 28 64 62 6e 61 | 6d 65 2c 22 25 73 22 2c |ntf(dbna|me,"%s",|
|00001190| 44 45 46 44 42 29 3b 0a | 58 20 20 20 69 66 28 61 |DEFDB);.|X   if(a|
|000011a0| 72 67 63 20 3d 3d 20 31 | 29 20 0a 58 20 20 20 20 |rgc == 1|) .X    |
|000011b0| 20 20 73 79 6e 74 65 78 | 28 61 72 67 76 5b 30 5d |  syntex|(argv[0]|
|000011c0| 29 3b 20 20 2f 2a 20 70 | 72 69 6e 74 20 73 79 6e |);  /* p|rint syn|
|000011d0| 74 65 78 20 68 65 6c 70 | 20 74 68 65 6e 20 65 78 |tex help| then ex|
|000011e0| 69 74 20 2a 2f 0a 58 20 | 20 20 0a 58 0a 58 20 20 |it */.X |  .X.X  |
|000011f0| 20 66 6f 72 28 69 20 3d | 20 31 3b 20 61 72 67 76 | for(i =| 1; argv|
|00001200| 5b 69 5d 20 21 3d 20 4e | 55 4c 4c 3b 20 69 2b 2b |[i] != N|ULL; i++|
|00001210| 29 20 7b 20 20 20 2f 2a | 20 70 72 6f 63 65 73 73 |) {   /*| process|
|00001220| 20 61 72 67 75 6d 65 6e | 74 20 6c 69 6e 65 20 2a | argumen|t line *|
|00001230| 2f 0a 58 20 20 20 20 20 | 69 66 28 20 61 72 67 76 |/.X     |if( argv|
|00001240| 5b 69 5d 5b 30 5d 20 3d | 3d 20 27 2d 27 29 0a 58 |[i][0] =|= '-').X|
|00001250| 20 20 20 20 20 20 20 20 | 73 70 72 69 6e 74 66 28 |        |sprintf(|
|00001260| 64 62 6e 61 6d 65 2c 22 | 25 73 22 2c 61 72 67 76 |dbname,"|%s",argv|
|00001270| 5b 69 5d 29 3b 0a 58 20 | 20 20 20 20 65 6c 73 65 |[i]);.X |    else|
|00001280| 0a 58 20 20 20 20 20 20 | 20 20 73 70 72 69 6e 74 |.X      |  sprint|
|00001290| 66 28 77 6f 72 64 2c 22 | 25 73 22 2c 61 72 67 76 |f(word,"|%s",argv|
|000012a0| 5b 69 5d 29 3b 0a 58 20 | 20 20 7d 0a 58 0a 58 20 |[i]);.X |  }.X.X |
|000012b0| 20 20 69 66 28 20 21 73 | 74 72 6c 65 6e 28 77 6f |  if( !s|trlen(wo|
|000012c0| 72 64 29 20 29 0a 58 20 | 20 20 20 20 20 20 20 73 |rd) ).X |       s|
|000012d0| 79 6e 74 65 78 28 61 72 | 67 76 5b 30 5d 29 3b 0a |yntex(ar|gv[0]);.|
|000012e0| 58 0a 58 20 20 20 69 66 | 20 28 20 66 72 65 6f 70 |X.X   if| ( freop|
|000012f0| 65 6e 28 64 62 6e 61 6d | 65 2c 22 72 22 2c 73 74 |en(dbnam|e,"r",st|
|00001300| 64 69 6e 29 20 3d 3d 20 | 4e 55 4c 4c 20 29 20 7b |din) == |NULL ) {|
|00001310| 0a 58 20 20 20 20 20 20 | 70 65 72 72 6f 72 28 64 |.X      |perror(d|
|00001320| 62 6e 61 6d 65 29 3b 0a | 58 20 20 20 20 20 20 65 |bname);.|X      e|
|00001330| 78 69 74 28 30 29 3b 0a | 58 20 20 20 7d 0a 58 0a |xit(0);.|X   }.X.|
|00001340| 58 20 20 20 2f 2a 20 20 | 53 61 6e 69 74 79 20 63 |X   /*  |Sanity c|
|00001350| 68 65 63 6b 73 20 64 6f | 6e 65 2e 20 20 4e 6f 77 |hecks do|ne.  Now|
|00001360| 2c 20 64 6f 77 6e 20 74 | 6f 20 62 75 69 73 6e 65 |, down t|o buisne|
|00001370| 73 73 20 2a 2f 0a 58 0a | 58 20 20 20 63 20 3d 20 |ss */.X.|X   c = |
|00001380| 77 6f 72 64 5b 30 5d 3b | 20 0a 58 20 20 20 6d 6b |word[0];| .X   mk|
|00001390| 63 6f 64 65 28 77 6f 72 | 64 29 3b 0a 58 0a 58 20 |code(wor|d);.X.X |
|000013a0| 20 20 77 68 69 6c 65 28 | 20 28 67 65 74 73 28 64 |  while(| (gets(d|
|000013b0| 62 77 6f 72 64 29 20 29 | 20 21 3d 20 4e 55 4c 4c |bword) )| != NULL|
|000013c0| 20 29 20 7b 0a 58 20 20 | 20 20 20 20 20 69 66 28 | ) {.X  |     if(|
|000013d0| 20 63 20 3c 20 64 62 77 | 6f 72 64 5b 30 5d 20 29 | c < dbw|ord[0] )|
|000013e0| 20 20 20 20 2f 2a 20 61 | 73 73 75 6d 65 73 20 64 |    /* a|ssumes d|
|000013f0| 61 74 61 62 61 73 65 20 | 69 73 20 69 6e 20 61 6c |atabase |is in al|
|00001400| 70 68 61 62 65 74 69 63 | 61 6c 20 6f 72 64 65 72 |phabetic|al order|
|00001410| 20 2a 2f 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 | */.X   |        |
|00001420| 62 72 65 61 6b 3b 0a 58 | 20 20 20 20 20 20 20 65 |break;.X|       e|
|00001430| 6c 73 65 20 69 66 20 28 | 63 20 3e 20 64 62 77 6f |lse if (|c > dbwo|
|00001440| 72 64 5b 30 5d 29 0a 58 | 20 20 20 20 20 20 20 20 |rd[0]).X|        |
|00001450| 20 20 20 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 20 20 |   conti|nue;.X  |
|00001460| 20 20 20 20 20 65 6c 73 | 65 20 7b 0a 58 20 20 20 |     els|e {.X   |
|00001470| 20 20 20 20 20 20 20 73 | 73 63 61 6e 66 28 64 62 |       s|scanf(db|
|00001480| 77 6f 72 64 2c 22 25 73 | 25 2a 73 22 2c 64 62 63 |word,"%s|%*s",dbc|
|00001490| 6f 64 65 29 3b 20 2f 2a | 20 69 73 6f 6c 61 74 65 |ode); /*| isolate|
|000014a0| 20 6f 6e 6c 79 20 66 69 | 72 73 74 20 77 6f 72 64 | only fi|rst word|
|000014b0| 20 20 20 20 20 2a 2f 0a | 58 20 20 20 20 20 20 20 |     */.|X       |
|000014c0| 20 20 20 73 70 72 69 6e | 74 66 28 64 62 77 6f 72 |   sprin|tf(dbwor|
|000014d0| 64 2c 22 25 73 22 2c 64 | 62 63 6f 64 65 29 3b 20 |d,"%s",d|bcode); |
|000014e0| 20 20 2f 2a 20 74 72 75 | 6e 63 61 74 65 20 64 62 |  /* tru|ncate db|
|000014f0| 77 6f 72 64 20 74 6f 20 | 6f 6e 65 20 77 6f 72 64 |word to |one word|
|00001500| 20 2a 2f 0a 58 20 20 20 | 20 20 20 20 20 20 20 6d | */.X   |       m|
|00001510| 6b 63 6f 64 65 28 64 62 | 63 6f 64 65 29 3b 20 20 |kcode(db|code);  |
|00001520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a |        |      /*|
|00001530| 20 63 6f 6e 76 65 72 74 | 20 74 6f 20 63 6f 64 65 | convert| to code|
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2f 0a |        |     */.|
|00001550| 58 20 20 20 20 20 20 20 | 20 20 20 20 69 66 28 20 |X       |    if( |
|00001560| 21 73 74 72 63 6d 70 28 | 64 62 63 6f 64 65 2c 77 |!strcmp(|dbcode,w|
|00001570| 6f 72 64 29 20 29 20 20 | 20 20 2f 2a 20 63 68 65 |ord) )  |  /* che|
|00001580| 63 6b 20 66 6f 72 20 65 | 78 61 63 74 20 63 6f 64 |ck for e|xact cod|
|00001590| 65 20 6d 61 74 63 68 20 | 20 2a 2f 0a 58 20 20 20 |e match | */.X   |
|000015a0| 20 20 20 20 20 20 20 20 | 20 20 70 72 69 6e 74 66 |        |  printf|
|000015b0| 28 22 25 73 5c 6e 22 2c | 64 62 77 6f 72 64 29 3b |("%s\n",|dbword);|
|000015c0| 0a 58 20 20 20 20 20 20 | 20 7d 0a 58 20 20 20 7d |.X      | }.X   }|
|000015d0| 0a 58 7d 0a 58 0a 58 2f | 2a 2a 2a 2a 2a 2a 2a 2a |.X}.X.X/|********|
|000015e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 20 20 4d 4b 43 4f |********|*   MKCO|
|00001600| 44 45 28 29 20 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |DE()  **|********|
|00001610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001620| 2a 2a 2f 0a 58 76 6f 69 | 64 20 6d 6b 63 6f 64 65 |**/.Xvoi|d mkcode|
|00001630| 28 63 6f 64 65 77 6f 72 | 64 29 0a 58 20 20 20 63 |(codewor|d).X   c|
|00001640| 68 61 72 20 20 2a 63 6f | 64 65 77 6f 72 64 3b 0a |har  *co|deword;.|
|00001650| 58 7b 0a 58 20 20 20 20 | 69 6e 74 20 69 2c 20 6a |X{.X    |int i, j|
|00001660| 20 3d 20 30 3b 0a 58 20 | 20 20 20 69 6e 74 20 6c | = 0;.X |   int l|
|00001670| 3b 0a 58 0a 58 20 20 20 | 20 6c 20 3d 20 73 74 72 |;.X.X   | l = str|
|00001680| 6c 65 6e 28 63 6f 64 65 | 77 6f 72 64 29 3b 0a 58 |len(code|word);.X|
|00001690| 20 20 20 20 69 66 28 6c | 20 3c 3d 20 31 29 7b 20 |    if(l| <= 1){ |
|000016a0| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 74 68 69 |        |  /* thi|
|000016b0| 73 20 73 68 6f 75 6c 64 | 20 70 72 6f 62 61 62 6c |s should| probabl|
|000016c0| 79 20 72 65 74 75 72 6e | 20 73 6f 6d 65 20 73 6e |y return| some sn|
|000016d0| 69 64 65 20 72 65 6d 61 | 72 6b 20 2a 2f 0a 58 20 |ide rema|rk */.X |
|000016e0| 20 20 20 20 20 20 20 63 | 6f 64 65 77 6f 72 64 5b |       c|odeword[|
|000016f0| 6c 5d 20 3d 20 27 5c 30 | 27 3b 0a 58 20 20 20 20 |l] = '\0|';.X    |
|00001700| 20 20 20 20 72 65 74 75 | 72 6e 3b 0a 58 20 20 20 |    retu|rn;.X   |
|00001710| 20 7d 0a 58 0a 58 20 20 | 20 20 66 6f 72 28 69 20 | }.X.X  |  for(i |
|00001720| 3d 20 31 3b 20 63 6f 64 | 65 77 6f 72 64 5b 69 5d |= 1; cod|eword[i]|
|00001730| 20 21 3d 20 4e 55 4c 4c | 3b 20 69 2b 2b 29 20 7b | != NULL|; i++) {|
|00001740| 0a 58 20 20 20 20 20 20 | 20 20 20 69 66 28 63 6f |.X      |   if(co|
|00001750| 64 65 77 6f 72 64 5b 69 | 5d 20 3d 3d 20 63 6f 64 |deword[i|] == cod|
|00001760| 65 77 6f 72 64 5b 69 20 | 2d 20 31 5d 29 0a 58 20 |eword[i |- 1]).X |
|00001770| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6f 6e 74 |        |    cont|
|00001780| 69 6e 75 65 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |inue;.X |        |
|00001790| 73 77 69 74 63 68 20 28 | 63 6f 64 65 77 6f 72 64 |switch (|codeword|
|000017a0| 5b 69 5d 29 20 7b 0a 58 | 20 20 20 20 20 20 20 20 |[i]) {.X|        |
|000017b0| 20 20 20 20 20 63 61 73 | 65 20 27 62 27 3a 0a 58 |     cas|e 'b':.X|
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 61 73 |        |     cas|
|000017d0| 65 20 27 66 27 3a 0a 58 | 20 20 20 20 20 20 20 20 |e 'f':.X|        |
|000017e0| 20 20 20 20 20 63 61 73 | 65 20 27 70 27 3a 0a 58 |     cas|e 'p':.X|
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 61 73 |        |     cas|
|00001800| 65 20 27 76 27 3a 20 63 | 6f 64 65 77 6f 72 64 5b |e 'v': c|odeword[|
|00001810| 6a 5d 20 3d 20 27 31 27 | 3b 0a 58 20 20 20 20 20 |j] = '1'|;.X     |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001830| 20 20 6a 2b 2b 3b 0a 58 | 20 20 20 20 20 20 20 20 |  j++;.X|        |
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |        |       b|
|00001850| 72 65 61 6b 3b 0a 58 0a | 58 20 20 20 20 20 20 20 |reak;.X.|X       |
|00001860| 20 20 20 20 20 20 63 61 | 73 65 20 27 63 27 3a 0a |      ca|se 'c':.|
|00001870| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |X       |      ca|
|00001880| 73 65 20 27 67 27 3a 0a | 58 20 20 20 20 20 20 20 |se 'g':.|X       |
|00001890| 20 20 20 20 20 20 63 61 | 73 65 20 27 6a 27 3a 0a |      ca|se 'j':.|
|000018a0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |X       |      ca|
|000018b0| 73 65 20 27 6b 27 3a 0a | 58 20 20 20 20 20 20 20 |se 'k':.|X       |
|000018c0| 20 20 20 20 20 20 63 61 | 73 65 20 27 71 27 3a 0a |      ca|se 'q':.|
|000018d0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |X       |      ca|
|000018e0| 73 65 20 27 73 27 3a 0a | 58 20 20 20 20 20 20 20 |se 's':.|X       |
|000018f0| 20 20 20 20 20 20 63 61 | 73 65 20 27 78 27 3a 0a |      ca|se 'x':.|
|00001900| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |X       |      ca|
|00001910| 73 65 20 27 7a 27 3a 20 | 63 6f 64 65 77 6f 72 64 |se 'z': |codeword|
|00001920| 5b 6a 5d 20 3d 20 27 32 | 27 3b 0a 58 20 20 20 20 |[j] = '2|';.X    |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001940| 20 20 20 6a 2b 2b 3b 0a | 58 20 20 20 20 20 20 20 |   j++;.|X       |
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001960| 62 72 65 61 6b 3b 0a 58 | 0a 58 20 20 20 20 20 20 |break;.X|.X      |
|00001970| 20 20 20 20 20 20 20 63 | 61 73 65 20 27 64 27 3a |       c|ase 'd':|
|00001980| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |.X      |       c|
|00001990| 61 73 65 20 27 74 27 3a | 20 20 63 6f 64 65 77 6f |ase 't':|  codewo|
|000019a0| 72 64 5b 6a 5d 20 3d 20 | 27 33 27 3b 0a 58 20 20 |rd[j] = |'3';.X  |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019c0| 20 20 20 20 20 20 6a 2b | 2b 3b 0a 58 20 20 20 20 |      j+|+;.X    |
|000019d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019e0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 58 0a 58 20 20 |    brea|k;.X.X  |
|000019f0| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 73 65 20 |        |   case |
|00001a00| 27 6c 27 3a 20 20 63 6f | 64 65 77 6f 72 64 5b 6a |'l':  co|deword[j|
|00001a10| 5d 20 3d 20 27 34 27 3b | 0a 58 20 20 20 20 20 20 |] = '4';|.X      |
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a30| 20 20 6a 2b 2b 3b 0a 58 | 20 20 20 20 20 20 20 20 |  j++;.X|        |
|00001a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a50| 62 72 65 61 6b 3b 0a 58 | 0a 58 20 20 20 20 20 20 |break;.X|.X      |
|00001a60| 20 20 20 20 20 20 20 63 | 61 73 65 20 27 6d 27 3a |       c|ase 'm':|
|00001a70| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |.X      |       c|
|00001a80| 61 73 65 20 27 6e 27 3a | 20 20 63 6f 64 65 77 6f |ase 'n':|  codewo|
|00001a90| 72 64 5b 6a 5d 20 3d 20 | 27 35 27 3b 0a 58 20 20 |rd[j] = |'5';.X  |
|00001aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ab0| 20 20 20 20 20 20 6a 2b | 2b 3b 0a 58 20 20 20 20 |      j+|+;.X    |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ad0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 58 0a 58 20 20 |    brea|k;.X.X  |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 73 65 20 |        |   case |
|00001af0| 27 72 27 3a 20 20 63 6f | 64 65 77 6f 72 64 5b 6a |'r':  co|deword[j|
|00001b00| 5d 20 3d 20 27 36 27 3b | 0a 58 20 20 20 20 20 20 |] = '6';|.X      |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b20| 20 20 6a 2b 2b 3b 0a 58 | 20 20 20 20 20 20 20 20 |  j++;.X|        |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b40| 62 72 65 61 6b 3b 0a 58 | 0a 58 20 20 20 20 20 20 |break;.X|.X      |
|00001b50| 20 20 20 20 20 20 20 64 | 65 66 61 75 6c 74 20 3a |       d|efault :|
|00001b60| 20 20 62 72 65 61 6b 3b | 0a 58 20 20 20 20 20 20 |  break;|.X      |
|00001b70| 20 20 7d 0a 58 20 20 20 | 20 20 7d 0a 58 20 20 20 |  }.X   |  }.X   |
|00001b80| 20 20 63 6f 64 65 77 6f | 72 64 5b 6a 5d 20 3d 20 |  codewo|rd[j] = |
|00001b90| 27 5c 30 27 3b 0a 58 20 | 20 20 20 20 77 68 69 6c |'\0';.X |    whil|
|00001ba0| 65 28 20 73 74 72 6c 65 | 6e 28 63 6f 64 65 77 6f |e( strle|n(codewo|
|00001bb0| 72 64 29 20 3c 20 33 20 | 29 20 20 2f 2a 20 70 61 |rd) < 3 |)  /* pa|
|00001bc0| 64 20 77 69 74 68 20 7a | 65 72 6f 65 73 20 74 69 |d with z|eroes ti|
|00001bd0| 6c 20 6d 69 6e 69 6d 75 | 6d 20 6c 65 6e 67 74 68 |l minimu|m length|
|00001be0| 20 2a 2f 0a 58 20 20 20 | 20 20 20 20 20 73 74 72 | */.X   |     str|
|00001bf0| 63 61 74 28 63 6f 64 65 | 77 6f 72 64 2c 22 30 22 |cat(code|word,"0"|
|00001c00| 29 3b 0a 58 0a 58 0a 58 | 7d 0a 58 0a 58 2f 2a 2a |);.X.X.X|}.X.X/**|
|00001c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 20 20 20 |********|*****   |
|00001c30| 53 59 4e 54 45 58 28 29 | 20 20 20 2a 2a 2a 2a 2a |SYNTEX()|   *****|
|00001c40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c50| 2a 2a 2a 2a 2a 2f 0a 58 | 76 6f 69 64 20 73 79 6e |*****/.X|void syn|
|00001c60| 74 65 78 28 6e 61 6d 65 | 29 0a 58 20 20 63 68 61 |tex(name|).X  cha|
|00001c70| 72 20 2a 6e 61 6d 65 3b | 0a 58 7b 0a 58 20 20 20 |r *name;|.X{.X   |
|00001c80| 20 20 70 72 69 6e 74 66 | 28 22 73 79 6e 74 65 78 |  printf|("syntex|
|00001c90| 3a 20 20 25 73 20 77 6f | 72 64 5c 6e 22 2c 6e 61 |:  %s wo|rd\n",na|
|00001ca0| 6d 65 29 3b 0a 58 20 20 | 20 20 20 70 72 69 6e 74 |me);.X  |   print|
|00001cb0| 66 28 22 20 20 20 20 6f | 72 20 20 20 25 73 20 2d |f("    o|r   %s -|
|00001cc0| 64 61 74 61 62 61 73 65 | 20 77 6f 72 64 5c 6e 22 |database| word\n"|
|00001cd0| 2c 6e 61 6d 65 29 3b 0a | 58 20 20 20 20 20 70 72 |,name);.|X     pr|
|00001ce0| 69 6e 74 66 28 22 20 20 | 20 20 20 6f 72 20 20 25 |intf("  |   or  %|
|00001cf0| 73 20 77 6f 72 64 20 2d | 64 61 74 61 62 61 73 65 |s word -|database|
|00001d00| 5c 6e 22 2c 6e 61 6d 65 | 29 3b 0a 58 20 20 20 20 |\n",name|);.X    |
|00001d10| 20 65 78 69 74 28 30 29 | 3b 0a 58 7d 0a 45 4e 44 | exit(0)|;.X}.END|
|00001d20| 5f 4f 46 5f 46 49 4c 45 | 0a 69 66 20 74 65 73 74 |_OF_FILE|.if test|
|00001d30| 20 33 35 35 37 20 2d 6e | 65 20 60 77 63 20 2d 63 | 3557 -n|e `wc -c|
|00001d40| 20 3c 27 73 6f 75 6e 64 | 73 6c 69 6b 65 2e 63 27 | <'sound|slike.c'|
|00001d50| 60 3b 20 74 68 65 6e 0a | 20 20 20 20 65 63 68 6f |`; then.|    echo|
|00001d60| 20 73 68 61 72 3a 20 5c | 22 27 73 6f 75 6e 64 73 | shar: \|"'sounds|
|00001d70| 6c 69 6b 65 2e 63 27 5c | 22 20 75 6e 70 61 63 6b |like.c'\|" unpack|
|00001d80| 65 64 20 77 69 74 68 20 | 77 72 6f 6e 67 20 73 69 |ed with |wrong si|
|00001d90| 7a 65 21 0a 66 69 0a 23 | 20 65 6e 64 20 6f 66 20 |ze!.fi.#| end of |
|00001da0| 27 73 6f 75 6e 64 73 6c | 69 6b 65 2e 63 27 0a 66 |'soundsl|ike.c'.f|
|00001db0| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 6e 64 |i.echo s|har: End|
|00001dc0| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00001dd0| 65 2e 0a 65 78 69 74 20 | 30 0a                   |e..exit |0.      |
+--------+-------------------------+-------------------------+--------+--------+