/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume10 / enh-spell

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 6d 69 73 63 0a 6f 72 |.sources|.misc.or|
|00000020| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 4d 65 67 61 |ganizati|on: Mega|
|00000030| 74 65 73 74 20 43 6f 72 | 70 6f 72 61 74 69 6f 6e |test Cor|poration|
|00000040| 2c 20 53 61 6e 20 4a 6f | 73 65 2c 20 43 61 0a 6b |, San Jo|se, Ca.k|
|00000050| 65 79 77 6f 72 64 73 3a | 20 73 70 65 6c 6c 20 73 |eywords:| spell s|
|00000060| 70 65 6c 6c 69 6e 20 73 | 70 65 6c 6c 6f 75 74 20 |pellin s|pellout |
|00000070| 68 6c 69 73 74 61 20 73 | 74 6f 70 61 0a 73 75 62 |hlista s|topa.sub|
|00000080| 6a 65 63 74 3a 20 76 31 | 30 69 30 38 30 3a 20 65 |ject: v1|0i080: e|
|00000090| 6e 68 61 6e 63 65 6d 65 | 6e 74 73 20 74 6f 20 55 |nhanceme|nts to U|
|000000a0| 6e 69 78 20 73 70 65 6c | 6c 0a 46 72 6f 6d 3a 20 |nix spel|l.From: |
|000000b0| 64 6a 6f 6e 65 73 40 75 | 75 6e 65 74 2e 75 75 2e |djones@u|unet.uu.|
|000000c0| 6e 65 74 40 6d 65 67 61 | 74 65 73 74 2e 55 55 43 |net@mega|test.UUC|
|000000d0| 50 20 28 44 61 76 65 20 | 4a 6f 6e 65 73 29 0a 53 |P (Dave |Jones).S|
|000000e0| 65 6e 64 65 72 3a 20 61 | 6c 6c 62 65 72 79 40 75 |ender: a|llbery@u|
|000000f0| 75 6e 65 74 2e 55 55 2e | 4e 45 54 20 28 42 72 61 |unet.UU.|NET (Bra|
|00000100| 6e 64 6f 6e 20 53 2e 20 | 41 6c 6c 62 65 72 79 20 |ndon S. |Allbery |
|00000110| 2d 20 63 6f 6d 70 2e 73 | 6f 75 72 63 65 73 2e 6d |- comp.s|ources.m|
|00000120| 69 73 63 29 0a 0a 50 6f | 73 74 69 6e 67 2d 6e 75 |isc)..Po|sting-nu|
|00000130| 6d 62 65 72 3a 20 56 6f | 6c 75 6d 65 20 31 30 2c |mber: Vo|lume 10,|
|00000140| 20 49 73 73 75 65 20 38 | 30 0a 53 75 62 6d 69 74 | Issue 8|0.Submit|
|00000150| 74 65 64 2d 62 79 3a 20 | 64 6a 6f 6e 65 73 40 75 |ted-by: |djones@u|
|00000160| 75 6e 65 74 2e 75 75 2e | 6e 65 74 40 6d 65 67 61 |unet.uu.|net@mega|
|00000170| 74 65 73 74 2e 55 55 43 | 50 20 28 44 61 76 65 20 |test.UUC|P (Dave |
|00000180| 4a 6f 6e 65 73 29 0a 41 | 72 63 68 69 76 65 2d 6e |Jones).A|rchive-n|
|00000190| 61 6d 65 3a 20 65 6e 68 | 2d 73 70 65 6c 6c 0a 0a |ame: enh|-spell..|
|000001a0| 55 6e 69 78 20 63 6f 6d | 65 73 20 77 69 74 68 20 |Unix com|es with |
|000001b0| 61 20 27 73 70 65 6c 6c | 27 20 75 74 69 6c 69 74 |a 'spell|' utilit|
|000001c0| 79 20 63 6f 6d 70 6c 65 | 74 65 20 77 69 74 68 20 |y comple|te with |
|000001d0| 61 20 66 69 6c 65 20 6f | 66 0a 63 6f 72 72 65 63 |a file o|f.correc|
|000001e0| 74 6c 79 20 73 70 65 6c | 6c 65 64 20 77 6f 72 64 |tly spel|led word|
|000001f0| 73 2c 20 61 6e 64 20 61 | 20 66 69 6c 65 20 6f 66 |s, and a| file of|
|00000200| 20 64 65 72 69 76 65 64 | 20 77 6f 72 64 73 20 77 | derived| words w|
|00000210| 68 69 63 68 0a 6c 6f 6f | 6b 20 70 6c 61 75 73 69 |hich.loo|k plausi|
|00000220| 62 6c 65 20 74 6f 20 74 | 68 65 20 27 73 70 65 6c |ble to t|he 'spel|
|00000230| 6c 27 20 70 72 6f 67 72 | 61 6d 2c 20 62 75 74 20 |l' progr|am, but |
|00000240| 61 72 65 20 6e 6f 74 2e | 20 42 75 74 0a 74 68 65 |are not.| But.the|
|00000250| 20 6c 69 73 74 73 20 61 | 72 65 20 6e 6f 74 20 61 | lists a|re not a|
|00000260| 73 20 63 6f 6d 70 6c 65 | 74 65 20 61 73 20 6f 6e |s comple|te as on|
|00000270| 65 20 77 6f 75 6c 64 20 | 6c 69 6b 65 2e 0a 0a 48 |e would |like...H|
|00000280| 65 72 65 20 61 72 65 20 | 73 6f 6d 65 20 72 6f 75 |ere are |some rou|
|00000290| 74 69 6e 65 73 20 66 6f | 72 20 61 75 67 6d 65 6e |tines fo|r augmen|
|000002a0| 74 69 6e 67 20 74 68 65 | 20 72 65 6c 65 61 73 65 |ting the| release|
|000002b0| 64 20 73 70 65 6c 6c 69 | 6e 67 20 6c 69 73 74 73 |d spelli|ng lists|
|000002c0| 2c 0a 61 6e 64 20 75 73 | 69 6e 67 20 74 68 65 6d |,.and us|ing them|
|000002d0| 20 77 69 74 68 20 74 68 | 65 20 73 70 65 6c 6c 2d | with th|e spell-|
|000002e0| 72 6f 75 74 69 6e 65 2e | 0a 0a 43 6f 6d 6d 61 6e |routine.|..Comman|
|000002f0| 64 73 3a 0a 0a 20 20 20 | 6c 65 61 72 6e 5f 77 6f |ds:..   |learn_wo|
|00000300| 72 64 20 20 20 2e 2e 2e | 20 4c 65 61 72 6e 20 63 |rd   ...| Learn c|
|00000310| 6f 72 72 65 63 74 20 73 | 70 65 6c 6c 69 6e 67 20 |orrect s|pelling |
|00000320| 6f 66 20 61 20 77 6f 72 | 64 20 6f 72 20 77 6f 72 |of a wor|d or wor|
|00000330| 64 73 2e 0a 20 20 20 62 | 61 64 5f 77 6f 72 64 20 |ds..   b|ad_word |
|00000340| 20 20 20 20 2e 2e 2e 20 | 4c 65 61 72 6e 20 74 68 |    ... |Learn th|
|00000350| 61 74 20 61 20 77 6f 72 | 64 20 77 68 69 63 68 20 |at a wor|d which |
|00000360| 6d 69 67 68 74 20 62 65 | 20 64 65 72 69 76 65 64 |might be| derived|
|00000370| 20 66 72 6f 6d 0a 20 20 | 20 20 20 20 20 20 20 20 | from.  |        |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 73 70 65 6c 6c 27 |        |  spell'|
|00000390| 73 20 73 70 65 6c 6c 69 | 6e 67 20 72 75 6c 65 73 |s spelli|ng rules|
|000003a0| 20 69 73 20 69 6e 20 66 | 61 63 74 20 6d 69 73 73 | is in f|act miss|
|000003b0| 70 65 6c 6c 65 64 2e 0a | 20 20 20 73 70 65 6c 6c |pelled..|   spell|
|000003c0| 20 20 20 20 20 20 20 20 | 2e 2e 2e 20 4c 69 6b 65 |        |... Like|
|000003d0| 20 73 70 65 6c 6c 2c 20 | 62 75 74 20 75 73 65 73 | spell, |but uses|
|000003e0| 20 74 68 65 20 61 75 67 | 6d 65 6e 74 65 64 20 6c | the aug|mented l|
|000003f0| 69 73 74 73 2e 0a 0a 0a | 49 27 76 65 20 61 6c 73 |ists....|I've als|
|00000400| 6f 20 69 6e 63 6c 75 64 | 65 64 20 27 77 6f 72 64 |o includ|ed 'word|
|00000410| 73 27 20 61 6e 64 20 27 | 73 74 6f 70 27 20 66 69 |s' and '|stop' fi|
|00000420| 6c 65 73 20 6f 66 20 77 | 6f 72 64 73 20 77 68 69 |les of w|ords whi|
|00000430| 63 68 20 68 61 76 65 20 | 63 6f 6d 65 0a 75 70 20 |ch have |come.up |
|00000440| 69 6e 20 6d 79 20 77 72 | 69 74 69 6e 67 20 6f 76 |in my wr|iting ov|
|00000450| 65 72 20 74 68 65 20 70 | 61 73 74 20 66 65 77 20 |er the p|ast few |
|00000460| 6d 6f 6e 74 68 73 2e 20 | 54 68 65 72 65 27 73 20 |months. |There's |
|00000470| 6f 6e 6c 79 20 6f 6e 65 | 20 77 6f 72 64 20 69 6e |only one| word in|
|00000480| 20 74 68 65 0a 73 74 6f | 70 2d 6c 69 73 74 3a 20 | the.sto|p-list: |
|00000490| 27 70 72 69 6d 61 74 69 | 76 65 27 2c 20 77 68 69 |'primati|ve', whi|
|000004a0| 63 68 20 49 20 73 75 70 | 70 6f 73 65 20 69 74 20 |ch I sup|pose it |
|000004b0| 64 65 72 69 76 65 73 20 | 61 73 20 27 70 72 69 6d |derives |as 'prim|
|000004c0| 61 27 20 2b 20 27 74 69 | 76 65 27 2e 0a 54 68 65 |a' + 'ti|ve'..The|
|000004d0| 20 63 6f 72 72 65 63 74 | 20 73 70 65 6c 6c 69 6e | correct| spellin|
|000004e0| 67 20 69 73 20 27 70 72 | 69 6d 69 74 69 76 65 27 |g is 'pr|imitive'|
|000004f0| 2c 20 77 68 69 63 68 20 | 69 73 20 69 6e 20 74 68 |, which |is in th|
|00000500| 65 20 73 74 61 6e 64 61 | 72 64 20 6c 69 73 74 2e |e standa|rd list.|
|00000510| 0a 0a 54 68 65 20 27 77 | 6f 72 64 73 27 20 6c 69 |..The 'w|ords' li|
|00000520| 73 74 20 68 61 73 20 73 | 65 76 65 6e 74 79 2d 65 |st has s|eventy-e|
|00000530| 69 67 68 74 20 73 6f 20 | 66 61 72 2c 20 73 6f 6d |ight so |far, som|
|00000540| 65 20 6f 66 20 77 68 69 | 63 68 20 6d 61 79 20 6e |e of whi|ch may n|
|00000550| 6f 74 20 62 65 20 73 75 | 69 74 61 62 6c 65 0a 74 |ot be su|itable.t|
|00000560| 6f 20 61 6c 6c 20 6f 63 | 63 61 73 69 6f 6e 73 2e |o all oc|casions.|
|00000570| 0a 0a 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |...#! /b|in/sh.# |
|00000580| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000590| 61 72 63 68 69 76 65 2e | 20 20 52 65 6d 6f 76 65 |archive.|  Remove|
|000005a0| 20 61 6e 79 74 68 69 6e | 67 20 62 65 66 6f 72 65 | anythin|g before|
|000005b0| 20 74 68 69 73 20 6c 69 | 6e 65 2c 20 74 68 65 6e | this li|ne, then|
|000005c0| 20 75 6e 70 61 63 6b 0a | 23 20 69 74 20 62 79 20 | unpack.|# it by |
|000005d0| 73 61 76 69 6e 67 20 69 | 74 20 69 6e 74 6f 20 61 |saving i|t into a|
|000005e0| 20 66 69 6c 65 20 61 6e | 64 20 74 79 70 69 6e 67 | file an|d typing|
|000005f0| 20 22 73 68 20 66 69 6c | 65 22 2e 20 20 54 6f 20 | "sh fil|e".  To |
|00000600| 6f 76 65 72 77 72 69 74 | 65 20 65 78 69 73 74 69 |overwrit|e existi|
|00000610| 6e 67 0a 23 20 66 69 6c | 65 73 2c 20 74 79 70 65 |ng.# fil|es, type|
|00000620| 20 22 73 68 20 66 69 6c | 65 20 2d 63 22 2e 20 20 | "sh fil|e -c".  |
|00000630| 59 6f 75 20 63 61 6e 20 | 61 6c 73 6f 20 66 65 65 |You can |also fee|
|00000640| 64 20 74 68 69 73 20 61 | 73 20 73 74 61 6e 64 61 |d this a|s standa|
|00000650| 72 64 20 69 6e 70 75 74 | 20 76 69 61 0a 23 20 75 |rd input| via.# u|
|00000660| 6e 73 68 61 72 2c 20 6f | 72 20 62 79 20 74 79 70 |nshar, o|r by typ|
|00000670| 69 6e 67 20 22 73 68 20 | 3c 66 69 6c 65 22 2c 20 |ing "sh |<file", |
|00000680| 65 2e 67 2e 2e 20 20 49 | 66 20 74 68 69 73 20 61 |e.g..  I|f this a|
|00000690| 72 63 68 69 76 65 20 69 | 73 20 63 6f 6d 70 6c 65 |rchive i|s comple|
|000006a0| 74 65 2c 20 79 6f 75 0a | 23 20 77 69 6c 6c 20 73 |te, you.|# will s|
|000006b0| 65 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ee the f|ollowing|
|000006c0| 20 6d 65 73 73 61 67 65 | 20 61 74 20 74 68 65 20 | message| at the |
|000006d0| 65 6e 64 3a 0a 23 09 09 | 22 45 6e 64 20 6f 66 20 |end:.#..|"End of |
|000006e0| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 22 0a |shell ar|chive.".|
|000006f0| 23 20 43 6f 6e 74 65 6e | 74 73 3a 20 20 52 45 41 |# Conten|ts:  REA|
|00000700| 44 4d 45 20 62 61 64 5f | 77 6f 72 64 20 6c 65 61 |DME bad_|word lea|
|00000710| 72 6e 5f 77 6f 72 64 20 | 73 70 65 6c 6c 20 73 74 |rn_word |spell st|
|00000720| 6f 70 20 77 6f 72 64 73 | 0a 23 20 57 72 61 70 70 |op words|.# Wrapp|
|00000730| 65 64 20 62 79 20 64 6a | 6f 6e 65 73 40 67 6f 6f |ed by dj|ones@goo|
|00000740| 66 79 20 6f 6e 20 54 68 | 75 20 46 65 62 20 31 35 |fy on Th|u Feb 15|
|00000750| 20 32 30 3a 35 36 3a 30 | 39 20 31 39 39 30 0a 50 | 20:56:0|9 1990.P|
|00000760| 41 54 48 3d 2f 62 69 6e | 3a 2f 75 73 72 2f 62 69 |ATH=/bin|:/usr/bi|
|00000770| 6e 3a 2f 75 73 72 2f 75 | 63 62 20 3b 20 65 78 70 |n:/usr/u|cb ; exp|
|00000780| 6f 72 74 20 50 41 54 48 | 0a 69 66 20 74 65 73 74 |ort PATH|.if test|
|00000790| 20 2d 66 20 52 45 41 44 | 4d 45 20 2d 61 20 22 24 | -f READ|ME -a "$|
|000007a0| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|000007b0| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen .  e|cho shar|
|000007c0| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: Will n|ot over-|
|000007d0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000007e0| 69 6c 65 20 5c 22 52 45 | 41 44 4d 45 5c 22 0a 65 |ile \"RE|ADME\".e|
|000007f0| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|00000800| 78 74 72 61 63 74 69 6e | 67 20 5c 22 52 45 41 44 |xtractin|g \"READ|
|00000810| 4d 45 5c 22 20 5c 28 39 | 37 37 20 63 68 61 72 61 |ME\" \(9|77 chara|
|00000820| 63 74 65 72 73 5c 29 0a | 73 65 64 20 22 73 2f 5e |cters\).|sed "s/^|
|00000830| 58 2f 2f 22 20 3e 52 45 | 41 44 4d 45 20 3c 3c 27 |X//" >RE|ADME <<'|
|00000840| 45 4e 44 5f 4f 46 5f 52 | 45 41 44 4d 45 27 0a 58 |END_OF_R|EADME'.X|
|00000850| 55 6e 69 78 20 63 6f 6d | 65 73 20 77 69 74 68 20 |Unix com|es with |
|00000860| 61 20 27 73 70 65 6c 6c | 27 20 75 74 69 6c 69 74 |a 'spell|' utilit|
|00000870| 79 20 63 6f 6d 70 6c 65 | 74 65 20 77 69 74 68 20 |y comple|te with |
|00000880| 61 20 66 69 6c 65 20 6f | 66 0a 58 63 6f 72 72 65 |a file o|f.Xcorre|
|00000890| 63 74 6c 79 20 73 70 65 | 6c 6c 65 64 20 77 6f 72 |ctly spe|lled wor|
|000008a0| 64 73 2c 20 61 6e 64 20 | 61 20 66 69 6c 65 20 6f |ds, and |a file o|
|000008b0| 66 20 64 65 72 69 76 65 | 64 20 77 6f 72 64 73 20 |f derive|d words |
|000008c0| 77 68 69 63 68 0a 58 6c | 6f 6f 6b 20 70 6c 61 75 |which.Xl|ook plau|
|000008d0| 73 69 62 6c 65 20 74 6f | 20 74 68 65 20 27 73 70 |sible to| the 'sp|
|000008e0| 65 6c 6c 27 20 70 72 6f | 67 72 61 6d 2c 20 62 75 |ell' pro|gram, bu|
|000008f0| 74 20 61 72 65 20 6e 6f | 74 2e 20 42 75 74 0a 58 |t are no|t. But.X|
|00000900| 74 68 65 20 6c 69 73 74 | 73 20 61 72 65 20 6e 6f |the list|s are no|
|00000910| 74 20 61 73 20 63 6f 6d | 70 6c 65 74 65 20 61 73 |t as com|plete as|
|00000920| 20 6f 6e 65 20 77 6f 75 | 6c 64 20 6c 69 6b 65 2e | one wou|ld like.|
|00000930| 0a 58 0a 58 48 65 72 65 | 20 61 72 65 20 73 6f 6d |.X.XHere| are som|
|00000940| 65 20 72 6f 75 74 69 6e | 65 73 20 66 6f 72 20 61 |e routin|es for a|
|00000950| 75 67 6d 65 6e 74 69 6e | 67 20 74 68 65 20 72 65 |ugmentin|g the re|
|00000960| 6c 65 61 73 65 64 20 73 | 70 65 6c 6c 69 6e 67 20 |leased s|pelling |
|00000970| 6c 69 73 74 73 2c 0a 58 | 61 6e 64 20 75 73 69 6e |lists,.X|and usin|
|00000980| 67 20 74 68 65 6d 20 77 | 69 74 68 20 74 68 65 20 |g them w|ith the |
|00000990| 73 70 65 6c 6c 2d 72 6f | 75 74 69 6e 65 2e 0a 58 |spell-ro|utine..X|
|000009a0| 0a 58 43 6f 6d 6d 61 6e | 64 73 3a 0a 58 0a 58 20 |.XComman|ds:.X.X |
|000009b0| 20 20 6c 65 61 72 6e 5f | 77 6f 72 64 20 20 20 2e |  learn_|word   .|
|000009c0| 2e 2e 20 4c 65 61 72 6e | 20 63 6f 72 72 65 63 74 |.. Learn| correct|
|000009d0| 20 73 70 65 6c 6c 69 6e | 67 20 6f 66 20 61 20 77 | spellin|g of a w|
|000009e0| 6f 72 64 20 6f 72 20 77 | 6f 72 64 73 2e 0a 58 20 |ord or w|ords..X |
|000009f0| 20 20 62 61 64 5f 77 6f | 72 64 20 20 20 20 20 2e |  bad_wo|rd     .|
|00000a00| 2e 2e 20 4c 65 61 72 6e | 20 74 68 61 74 20 61 20 |.. Learn| that a |
|00000a10| 77 6f 72 64 20 77 68 69 | 63 68 20 6d 69 67 68 74 |word whi|ch might|
|00000a20| 20 62 65 20 64 65 72 69 | 76 65 64 20 66 72 6f 6d | be deri|ved from|
|00000a30| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00000a40| 20 20 20 20 20 20 73 70 | 65 6c 6c 27 73 20 73 70 |      sp|ell's sp|
|00000a50| 65 6c 6c 69 6e 67 20 72 | 75 6c 65 73 20 69 73 20 |elling r|ules is |
|00000a60| 69 6e 20 66 61 63 74 20 | 6d 69 73 73 70 65 6c 6c |in fact |misspell|
|00000a70| 65 64 2e 0a 58 20 20 20 | 73 70 65 6c 6c 20 20 20 |ed..X   |spell   |
|00000a80| 20 20 20 20 20 2e 2e 2e | 20 4c 69 6b 65 20 73 70 |     ...| Like sp|
|00000a90| 65 6c 6c 2c 20 62 75 74 | 20 75 73 65 73 20 74 68 |ell, but| uses th|
|00000aa0| 65 20 61 75 67 6d 65 6e | 74 65 64 20 6c 69 73 74 |e augmen|ted list|
|00000ab0| 73 2e 0a 58 0a 58 0a 58 | 49 27 76 65 20 61 6c 73 |s..X.X.X|I've als|
|00000ac0| 6f 20 69 6e 63 6c 75 64 | 65 64 20 27 77 6f 72 64 |o includ|ed 'word|
|00000ad0| 73 27 20 61 6e 64 20 27 | 73 74 6f 70 27 20 66 69 |s' and '|stop' fi|
|00000ae0| 6c 65 73 20 6f 66 20 77 | 6f 72 64 73 20 77 68 69 |les of w|ords whi|
|00000af0| 63 68 20 68 61 76 65 20 | 63 6f 6d 65 0a 58 75 70 |ch have |come.Xup|
|00000b00| 20 69 6e 20 6d 79 20 77 | 72 69 74 69 6e 67 20 6f | in my w|riting o|
|00000b10| 76 65 72 20 74 68 65 20 | 70 61 73 74 20 66 65 77 |ver the |past few|
|00000b20| 20 6d 6f 6e 74 68 73 2e | 20 54 68 65 72 65 27 73 | months.| There's|
|00000b30| 20 6f 6e 6c 79 20 6f 6e | 65 20 77 6f 72 64 20 69 | only on|e word i|
|00000b40| 6e 20 74 68 65 0a 58 73 | 74 6f 70 2d 6c 69 73 74 |n the.Xs|top-list|
|00000b50| 3a 20 27 70 72 69 6d 61 | 74 69 76 65 27 2c 20 77 |: 'prima|tive', w|
|00000b60| 68 69 63 68 20 49 20 73 | 75 70 70 6f 73 65 20 69 |hich I s|uppose i|
|00000b70| 74 20 64 65 72 69 76 65 | 73 20 61 73 20 27 70 72 |t derive|s as 'pr|
|00000b80| 69 6d 61 27 20 2b 20 27 | 74 69 76 65 27 2e 0a 58 |ima' + '|tive'..X|
|00000b90| 54 68 65 20 63 6f 72 72 | 65 63 74 20 73 70 65 6c |The corr|ect spel|
|00000ba0| 6c 69 6e 67 20 69 73 20 | 27 70 72 69 6d 69 74 69 |ling is |'primiti|
|00000bb0| 76 65 27 2c 20 77 68 69 | 63 68 20 69 73 20 69 6e |ve', whi|ch is in|
|00000bc0| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 6c 69 | the sta|ndard li|
|00000bd0| 73 74 2e 0a 58 0a 58 54 | 68 65 20 27 77 6f 72 64 |st..X.XT|he 'word|
|00000be0| 73 27 20 6c 69 73 74 20 | 68 61 73 20 73 65 76 65 |s' list |has seve|
|00000bf0| 6e 74 79 2d 65 69 67 68 | 74 20 73 6f 20 66 61 72 |nty-eigh|t so far|
|00000c00| 2c 20 73 6f 6d 65 20 6f | 66 20 77 68 69 63 68 20 |, some o|f which |
|00000c10| 6d 61 79 20 6e 6f 74 20 | 62 65 20 73 75 69 74 61 |may not |be suita|
|00000c20| 62 6c 65 0a 58 74 6f 20 | 61 6c 6c 20 6f 63 63 61 |ble.Xto |all occa|
|00000c30| 73 69 6f 6e 73 2e 0a 45 | 4e 44 5f 4f 46 5f 52 45 |sions..E|ND_OF_RE|
|00000c40| 41 44 4d 45 0a 69 66 20 | 74 65 73 74 20 39 37 37 |ADME.if |test 977|
|00000c50| 20 2d 6e 65 20 60 77 63 | 20 2d 63 20 3c 52 45 41 | -ne `wc| -c <REA|
|00000c60| 44 4d 45 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |DME`; th|en.    e|
|00000c70| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 52 45 41 44 |cho shar|: \"READ|
|00000c80| 4d 45 5c 22 20 75 6e 70 | 61 63 6b 65 64 20 77 69 |ME\" unp|acked wi|
|00000c90| 74 68 20 77 72 6f 6e 67 | 20 73 69 7a 65 21 0a 66 |th wrong| size!.f|
|00000ca0| 69 0a 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |i.# end |of overw|
|00000cb0| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 66 69 0a |riting c|heck.fi.|
|00000cc0| 69 66 20 74 65 73 74 20 | 2d 66 20 62 61 64 5f 77 |if test |-f bad_w|
|00000cd0| 6f 72 64 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |ord -a "|${1}" !=|
|00000ce0| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then .  |
|00000cf0| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00000d00| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00000d10| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 62 |xisting |file \"b|
|00000d20| 61 64 5f 77 6f 72 64 5c | 22 0a 65 6c 73 65 0a 65 |ad_word\|".else.e|
|00000d30| 63 68 6f 20 73 68 61 72 | 3a 20 45 78 74 72 61 63 |cho shar|: Extrac|
|00000d40| 74 69 6e 67 20 5c 22 62 | 61 64 5f 77 6f 72 64 5c |ting \"b|ad_word\|
|00000d50| 22 20 5c 28 37 39 31 20 | 63 68 61 72 61 63 74 65 |" \(791 |characte|
|00000d60| 72 73 5c 29 0a 73 65 64 | 20 22 73 2f 5e 58 2f 2f |rs\).sed| "s/^X//|
|00000d70| 22 20 3e 62 61 64 5f 77 | 6f 72 64 20 3c 3c 27 45 |" >bad_w|ord <<'E|
|00000d80| 4e 44 5f 4f 46 5f 62 61 | 64 5f 77 6f 72 64 27 0a |ND_OF_ba|d_word'.|
|00000d90| 58 23 21 20 2f 62 69 6e | 2f 63 73 68 20 2d 66 0a |X#! /bin|/csh -f.|
|00000da0| 58 23 20 4c 65 61 72 6e | 20 61 6e 20 69 6e 63 6f |X# Learn| an inco|
|00000db0| 72 72 65 63 74 20 73 70 | 65 6c 6c 69 6e 67 20 6f |rrect sp|elling o|
|00000dc0| 66 20 61 20 77 6f 72 64 | 20 6f 72 20 77 6f 72 64 |f a word| or word|
|00000dd0| 73 2e 20 28 53 70 65 6c | 6c 69 6e 67 73 20 77 68 |s. (Spel|lings wh|
|00000de0| 69 63 68 0a 58 23 20 6d | 69 67 68 74 20 62 65 20 |ich.X# m|ight be |
|00000df0| 67 65 6e 65 72 61 74 65 | 64 20 66 72 6f 6d 20 67 |generate|d from g|
|00000e00| 65 6e 65 72 61 6c 20 73 | 70 65 6c 6c 69 6e 67 20 |eneral s|pelling |
|00000e10| 72 75 6c 65 73 2e 20 53 | 65 65 20 6d 61 6e 2d 70 |rules. S|ee man-p|
|00000e20| 61 67 65 20 66 6f 72 20 | 27 73 70 65 6c 6c 27 2e |age for |'spell'.|
|00000e30| 29 0a 58 23 0a 58 23 20 | 43 72 65 61 74 65 73 20 |).X#.X# |Creates |
|00000e40| 61 6e 64 20 6d 61 69 6e | 74 61 69 6e 73 20 66 69 |and main|tains fi|
|00000e50| 6c 65 73 0a 58 23 20 20 | 20 20 7e 2f 6c 69 62 2f |les.X#  |  ~/lib/|
|00000e60| 73 74 6f 70 20 20 20 20 | 2e 2e 2e 20 73 6f 72 74 |stop    |... sort|
|00000e70| 65 64 20 74 65 78 74 20 | 6f 66 20 77 6f 72 64 73 |ed text |of words|
|00000e80| 20 74 6f 20 73 75 70 70 | 6c 69 6d 65 6e 74 20 73 | to supp|liment s|
|00000e90| 74 61 6e 64 61 72 64 20 | 73 74 6f 70 2d 6c 69 73 |tandard |stop-lis|
|00000ea0| 74 0a 58 23 20 20 20 20 | 7e 2f 6c 69 62 2f 68 73 |t.X#    |~/lib/hs|
|00000eb0| 74 6f 70 20 20 20 2e 2e | 2e 20 73 75 70 70 6c 69 |top   ..|. suppli|
|00000ec0| 6d 65 6e 74 61 6c 20 61 | 6e 64 20 73 74 61 6e 64 |mental a|nd stand|
|00000ed0| 61 72 64 20 6c 69 73 74 | 73 2c 20 6d 65 72 67 65 |ard list|s, merge|
|00000ee0| 64 20 61 6e 64 20 68 61 | 73 68 65 64 0a 58 23 20 |d and ha|shed.X# |
|00000ef0| 20 20 20 7e 2f 6c 69 62 | 2f 73 74 6f 70 2e 74 65 |   ~/lib|/stop.te|
|00000f00| 6d 70 20 20 2e 2e 2e 20 | 73 63 72 61 74 63 68 20 |mp  ... |scratch |
|00000f10| 66 69 6c 65 0a 58 23 20 | 20 20 20 7e 2f 6c 69 62 |file.X# |   ~/lib|
|00000f20| 2f 68 73 74 6f 70 2e 74 | 65 6d 70 20 2e 2e 2e 20 |/hstop.t|emp ... |
|00000f30| 73 63 72 61 74 63 68 20 | 66 69 6c 65 0a 58 23 20 |scratch |file.X# |
|00000f40| 0a 58 23 20 49 20 64 6f | 6e 27 74 20 6b 6e 6f 77 |.X# I do|n't know|
|00000f50| 20 77 68 79 20 49 20 6e | 65 65 64 20 74 6f 20 6d | why I n|eed to m|
|00000f60| 61 6b 65 20 61 20 63 6f | 70 79 20 6f 66 20 2f 75 |ake a co|py of /u|
|00000f70| 73 72 2f 64 69 63 74 2f | 68 73 74 6f 70 2c 20 62 |sr/dict/|hstop, b|
|00000f80| 75 74 0a 58 23 20 74 68 | 61 74 27 73 20 74 68 65 |ut.X# th|at's the|
|00000f90| 20 6f 6e 6c 79 20 77 61 | 79 20 49 20 66 6f 75 6e | only wa|y I foun|
|00000fa0| 64 20 74 6f 20 6d 61 6b | 65 20 69 74 20 77 6f 72 |d to mak|e it wor|
|00000fb0| 6b 2e 20 2e 2e 20 64 6a | 6f 6e 65 73 0a 58 0a 58 |k. .. dj|ones.X.X|
|00000fc0| 23 20 53 65 65 20 61 6c | 73 6f 20 6c 65 61 72 6e |# See al|so learn|
|00000fd0| 5f 77 6f 72 64 0a 58 0a | 58 65 63 68 6f 20 24 2a |_word.X.|Xecho $*|
|00000fe0| 20 7c 20 74 72 20 27 20 | 27 20 27 5c 30 31 32 27 | | tr ' |' '\012'|
|00000ff0| 20 3e 3e 20 7e 2f 6c 69 | 62 2f 73 74 6f 70 0a 58 | >> ~/li|b/stop.X|
|00001000| 73 6f 72 74 20 2d 75 20 | 7e 2f 6c 69 62 2f 73 74 |sort -u |~/lib/st|
|00001010| 6f 70 20 3e 20 7e 2f 6c | 69 62 2f 73 74 6f 70 2e |op > ~/l|ib/stop.|
|00001020| 74 65 6d 70 0a 58 6d 76 | 20 7e 2f 6c 69 62 2f 73 |temp.Xmv| ~/lib/s|
|00001030| 74 6f 70 2e 74 65 6d 70 | 20 7e 2f 6c 69 62 2f 73 |top.temp| ~/lib/s|
|00001040| 74 6f 70 0a 58 63 70 20 | 2f 75 73 72 2f 64 69 63 |top.Xcp |/usr/dic|
|00001050| 74 2f 68 73 74 6f 70 20 | 7e 2f 6c 69 62 2f 68 73 |t/hstop |~/lib/hs|
|00001060| 74 6f 70 2e 74 65 6d 70 | 0a 58 2f 75 73 72 2f 62 |top.temp|.X/usr/b|
|00001070| 69 6e 2f 73 70 65 6c 6c | 69 6e 20 7e 2f 6c 69 62 |in/spell|in ~/lib|
|00001080| 2f 68 73 74 6f 70 2e 74 | 65 6d 70 20 3c 20 7e 2f |/hstop.t|emp < ~/|
|00001090| 6c 69 62 2f 73 74 6f 70 | 20 3e 20 7e 2f 6c 69 62 |lib/stop| > ~/lib|
|000010a0| 2f 68 73 74 6f 70 0a 58 | 72 6d 20 7e 2f 6c 69 62 |/hstop.X|rm ~/lib|
|000010b0| 2f 68 73 74 6f 70 2e 74 | 65 6d 70 0a 45 4e 44 5f |/hstop.t|emp.END_|
|000010c0| 4f 46 5f 62 61 64 5f 77 | 6f 72 64 0a 69 66 20 74 |OF_bad_w|ord.if t|
|000010d0| 65 73 74 20 37 39 31 20 | 2d 6e 65 20 60 77 63 20 |est 791 |-ne `wc |
|000010e0| 2d 63 20 3c 62 61 64 5f | 77 6f 72 64 60 3b 20 74 |-c <bad_|word`; t|
|000010f0| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen.    |echo sha|
|00001100| 72 3a 20 5c 22 62 61 64 | 5f 77 6f 72 64 5c 22 20 |r: \"bad|_word\" |
|00001110| 75 6e 70 61 63 6b 65 64 | 20 77 69 74 68 20 77 72 |unpacked| with wr|
|00001120| 6f 6e 67 20 73 69 7a 65 | 21 0a 66 69 0a 63 68 6d |ong size|!.fi.chm|
|00001130| 6f 64 20 2b 78 20 62 61 | 64 5f 77 6f 72 64 0a 23 |od +x ba|d_word.#|
|00001140| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|00001150| 69 6e 67 20 63 68 65 63 | 6b 0a 66 69 0a 69 66 20 |ing chec|k.fi.if |
|00001160| 74 65 73 74 20 2d 66 20 | 6c 65 61 72 6e 5f 77 6f |test -f |learn_wo|
|00001170| 72 64 20 2d 61 20 22 24 | 7b 31 7d 22 20 21 3d 20 |rd -a "$|{1}" != |
|00001180| 22 2d 63 22 20 3b 20 74 | 68 65 6e 20 0a 20 20 65 |"-c" ; t|hen .  e|
|00001190| 63 68 6f 20 73 68 61 72 | 3a 20 57 69 6c 6c 20 6e |cho shar|: Will n|
|000011a0| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|000011b0| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 6c 65 |isting f|ile \"le|
|000011c0| 61 72 6e 5f 77 6f 72 64 | 5c 22 0a 65 6c 73 65 0a |arn_word|\".else.|
|000011d0| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|000011e0| 63 74 69 6e 67 20 5c 22 | 6c 65 61 72 6e 5f 77 6f |cting \"|learn_wo|
|000011f0| 72 64 5c 22 20 5c 28 37 | 30 31 20 63 68 61 72 61 |rd\" \(7|01 chara|
|00001200| 63 74 65 72 73 5c 29 0a | 73 65 64 20 22 73 2f 5e |cters\).|sed "s/^|
|00001210| 58 2f 2f 22 20 3e 6c 65 | 61 72 6e 5f 77 6f 72 64 |X//" >le|arn_word|
|00001220| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 6c 65 61 72 6e | <<'END_|OF_learn|
|00001230| 5f 77 6f 72 64 27 0a 58 | 23 21 20 2f 62 69 6e 2f |_word'.X|#! /bin/|
|00001240| 63 73 68 20 2d 66 0a 58 | 23 20 4c 65 61 72 6e 20 |csh -f.X|# Learn |
|00001250| 74 68 65 20 63 6f 72 72 | 65 63 74 20 73 70 65 6c |the corr|ect spel|
|00001260| 6c 69 6e 67 20 6f 66 20 | 61 20 77 6f 72 64 20 6f |ling of |a word o|
|00001270| 72 20 77 6f 72 64 73 2e | 0a 58 23 20 43 72 65 61 |r words.|.X# Crea|
|00001280| 74 65 73 20 61 6e 64 20 | 6d 61 69 6e 74 61 69 6e |tes and |maintain|
|00001290| 73 20 66 69 6c 65 73 0a | 58 23 20 20 20 20 7e 2f |s files.|X#    ~/|
|000012a0| 6c 69 62 2f 77 6f 72 64 | 73 20 20 20 2e 2e 2e 20 |lib/word|s   ... |
|000012b0| 73 6f 72 74 65 64 20 74 | 65 78 74 20 6f 66 20 77 |sorted t|ext of w|
|000012c0| 6f 72 64 73 20 74 6f 20 | 73 75 70 70 6c 69 6d 65 |ords to |supplime|
|000012d0| 6e 74 20 73 74 61 6e 64 | 61 72 64 20 6c 69 73 74 |nt stand|ard list|
|000012e0| 0a 58 23 20 20 20 20 7e | 2f 6c 69 62 2f 68 6c 69 |.X#    ~|/lib/hli|
|000012f0| 73 74 61 20 20 2e 2e 2e | 20 73 75 70 70 6c 69 6d |sta  ...| supplim|
|00001300| 65 6e 74 61 6c 20 61 6e | 64 20 73 74 61 6e 64 61 |ental an|d standa|
|00001310| 72 64 20 6c 69 73 74 73 | 2c 20 6d 65 72 67 65 64 |rd lists|, merged|
|00001320| 20 61 6e 64 20 68 61 73 | 68 65 64 0a 58 23 20 20 | and has|hed.X#  |
|00001330| 20 20 7e 2f 6c 69 62 2f | 77 6f 72 64 73 2e 74 65 |  ~/lib/|words.te|
|00001340| 6d 70 20 20 2e 2e 2e 20 | 73 63 72 61 74 63 68 20 |mp  ... |scratch |
|00001350| 66 69 6c 65 0a 58 23 20 | 20 20 20 7e 2f 6c 69 62 |file.X# |   ~/lib|
|00001360| 2f 68 6c 69 73 74 61 2e | 74 65 6d 70 20 2e 2e 2e |/hlista.|temp ...|
|00001370| 20 73 63 72 61 74 63 68 | 20 66 69 6c 65 0a 58 23 | scratch| file.X#|
|00001380| 20 0a 58 23 20 49 20 64 | 6f 6e 27 74 20 6b 6e 6f | .X# I d|on't kno|
|00001390| 77 20 77 68 79 20 49 20 | 6e 65 65 64 20 74 6f 20 |w why I |need to |
|000013a0| 6d 61 6b 65 20 61 20 63 | 6f 70 79 20 6f 66 20 2f |make a c|opy of /|
|000013b0| 75 73 72 2f 64 69 63 74 | 2f 68 6c 69 73 74 61 2c |usr/dict|/hlista,|
|000013c0| 20 62 75 74 0a 58 23 20 | 74 68 61 74 27 73 20 74 | but.X# |that's t|
|000013d0| 68 65 20 6f 6e 6c 79 20 | 77 61 79 20 49 20 66 6f |he only |way I fo|
|000013e0| 75 6e 64 20 74 6f 20 6d | 61 6b 65 20 69 74 20 77 |und to m|ake it w|
|000013f0| 6f 72 6b 2e 20 2e 2e 20 | 64 6a 6f 6e 65 73 0a 58 |ork. .. |djones.X|
|00001400| 0a 58 23 20 53 65 65 20 | 61 6c 73 6f 20 62 61 64 |.X# See |also bad|
|00001410| 5f 77 6f 72 64 0a 58 0a | 58 65 63 68 6f 20 24 2a |_word.X.|Xecho $*|
|00001420| 20 7c 20 74 72 20 27 20 | 27 20 27 5c 30 31 32 27 | | tr ' |' '\012'|
|00001430| 20 3e 3e 20 7e 2f 6c 69 | 62 2f 77 6f 72 64 73 0a | >> ~/li|b/words.|
|00001440| 58 73 6f 72 74 20 2d 75 | 20 7e 2f 6c 69 62 2f 77 |Xsort -u| ~/lib/w|
|00001450| 6f 72 64 73 20 3e 20 7e | 2f 6c 69 62 2f 77 6f 72 |ords > ~|/lib/wor|
|00001460| 64 73 2e 74 65 6d 70 0a | 58 6d 76 20 7e 2f 6c 69 |ds.temp.|Xmv ~/li|
|00001470| 62 2f 77 6f 72 64 73 2e | 74 65 6d 70 20 7e 2f 6c |b/words.|temp ~/l|
|00001480| 69 62 2f 77 6f 72 64 73 | 0a 58 63 70 20 2f 75 73 |ib/words|.Xcp /us|
|00001490| 72 2f 64 69 63 74 2f 68 | 6c 69 73 74 61 20 7e 2f |r/dict/h|lista ~/|
|000014a0| 6c 69 62 2f 68 6c 69 73 | 74 61 2e 74 65 6d 70 0a |lib/hlis|ta.temp.|
|000014b0| 58 2f 75 73 72 2f 62 69 | 6e 2f 73 70 65 6c 6c 69 |X/usr/bi|n/spelli|
|000014c0| 6e 20 7e 2f 6c 69 62 2f | 68 6c 69 73 74 61 2e 74 |n ~/lib/|hlista.t|
|000014d0| 65 6d 70 20 3c 20 7e 2f | 6c 69 62 2f 77 6f 72 64 |emp < ~/|lib/word|
|000014e0| 73 20 3e 20 7e 2f 6c 69 | 62 2f 68 6c 69 73 74 61 |s > ~/li|b/hlista|
|000014f0| 0a 58 72 6d 20 7e 2f 6c | 69 62 2f 68 6c 69 73 74 |.Xrm ~/l|ib/hlist|
|00001500| 61 2e 74 65 6d 70 0a 45 | 4e 44 5f 4f 46 5f 6c 65 |a.temp.E|ND_OF_le|
|00001510| 61 72 6e 5f 77 6f 72 64 | 0a 69 66 20 74 65 73 74 |arn_word|.if test|
|00001520| 20 37 30 31 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 | 701 -ne| `wc -c |
|00001530| 3c 6c 65 61 72 6e 5f 77 | 6f 72 64 60 3b 20 74 68 |<learn_w|ord`; th|
|00001540| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en.    e|cho shar|
|00001550| 3a 20 5c 22 6c 65 61 72 | 6e 5f 77 6f 72 64 5c 22 |: \"lear|n_word\"|
|00001560| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|00001570| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 63 68 |rong siz|e!.fi.ch|
|00001580| 6d 6f 64 20 2b 78 20 6c | 65 61 72 6e 5f 77 6f 72 |mod +x l|earn_wor|
|00001590| 64 0a 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |d.# end |of overw|
|000015a0| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 66 69 0a |riting c|heck.fi.|
|000015b0| 69 66 20 74 65 73 74 20 | 2d 66 20 73 70 65 6c 6c |if test |-f spell|
|000015c0| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|000015d0| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n .  ech|
|000015e0| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|000015f0| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|00001600| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 73 70 65 6c |ting fil|e \"spel|
|00001610| 6c 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |l\".else|.echo sh|
|00001620| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00001630| 22 73 70 65 6c 6c 5c 22 | 20 5c 28 36 35 20 63 68 |"spell\"| \(65 ch|
|00001640| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00001650| 73 2f 5e 58 2f 2f 22 20 | 3e 73 70 65 6c 6c 20 3c |s/^X//" |>spell <|
|00001660| 3c 27 45 4e 44 5f 4f 46 | 5f 73 70 65 6c 6c 27 0a |<'END_OF|_spell'.|
|00001670| 58 23 21 20 2f 62 69 6e | 2f 63 73 68 20 2d 66 0a |X#! /bin|/csh -f.|
|00001680| 58 0a 58 2f 75 73 72 2f | 62 69 6e 2f 73 70 65 6c |X.X/usr/|bin/spel|
|00001690| 6c 20 2d 64 20 7e 2f 6c | 69 62 2f 68 6c 69 73 74 |l -d ~/l|ib/hlist|
|000016a0| 61 20 2d 73 20 7e 2f 6c | 69 62 2f 68 73 74 6f 70 |a -s ~/l|ib/hstop|
|000016b0| 20 24 2a 0a 45 4e 44 5f | 4f 46 5f 73 70 65 6c 6c | $*.END_|OF_spell|
|000016c0| 0a 69 66 20 74 65 73 74 | 20 36 35 20 2d 6e 65 20 |.if test| 65 -ne |
|000016d0| 60 77 63 20 2d 63 20 3c | 73 70 65 6c 6c 60 3b 20 |`wc -c <|spell`; |
|000016e0| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then.   | echo sh|
|000016f0| 61 72 3a 20 5c 22 73 70 | 65 6c 6c 5c 22 20 75 6e |ar: \"sp|ell\" un|
|00001700| 70 61 63 6b 65 64 20 77 | 69 74 68 20 77 72 6f 6e |packed w|ith wron|
|00001710| 67 20 73 69 7a 65 21 0a | 66 69 0a 63 68 6d 6f 64 |g size!.|fi.chmod|
|00001720| 20 2b 78 20 73 70 65 6c | 6c 0a 23 20 65 6e 64 20 | +x spel|l.# end |
|00001730| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00001740| 68 65 63 6b 0a 66 69 0a | 69 66 20 74 65 73 74 20 |heck.fi.|if test |
|00001750| 2d 66 20 73 74 6f 70 20 | 2d 61 20 22 24 7b 31 7d |-f stop |-a "${1}|
|00001760| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00001770| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | .  echo| shar: W|
|00001780| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00001790| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000017a0| 20 5c 22 73 74 6f 70 5c | 22 0a 65 6c 73 65 0a 65 | \"stop\|".else.e|
|000017b0| 63 68 6f 20 73 68 61 72 | 3a 20 45 78 74 72 61 63 |cho shar|: Extrac|
|000017c0| 74 69 6e 67 20 5c 22 73 | 74 6f 70 5c 22 20 5c 28 |ting \"s|top\" \(|
|000017d0| 31 30 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |10 chara|cters\).|
|000017e0| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 73 74 |sed "s/^|X//" >st|
|000017f0| 6f 70 20 3c 3c 27 45 4e | 44 5f 4f 46 5f 73 74 6f |op <<'EN|D_OF_sto|
|00001800| 70 27 0a 58 70 72 69 6d | 61 74 69 76 65 0a 45 4e |p'.Xprim|ative.EN|
|00001810| 44 5f 4f 46 5f 73 74 6f | 70 0a 69 66 20 74 65 73 |D_OF_sto|p.if tes|
|00001820| 74 20 31 30 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 |t 10 -ne| `wc -c |
|00001830| 3c 73 74 6f 70 60 3b 20 | 74 68 65 6e 0a 20 20 20 |<stop`; |then.   |
|00001840| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 5c 22 73 74 | echo sh|ar: \"st|
|00001850| 6f 70 5c 22 20 75 6e 70 | 61 63 6b 65 64 20 77 69 |op\" unp|acked wi|
|00001860| 74 68 20 77 72 6f 6e 67 | 20 73 69 7a 65 21 0a 66 |th wrong| size!.f|
|00001870| 69 0a 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |i.# end |of overw|
|00001880| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 66 69 0a |riting c|heck.fi.|
|00001890| 69 66 20 74 65 73 74 20 | 2d 66 20 77 6f 72 64 73 |if test |-f words|
|000018a0| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|000018b0| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n .  ech|
|000018c0| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|000018d0| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|000018e0| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 77 6f 72 64 |ting fil|e \"word|
|000018f0| 73 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |s\".else|.echo sh|
|00001900| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00001910| 22 77 6f 72 64 73 5c 22 | 20 5c 28 37 32 32 20 63 |"words\"| \(722 c|
|00001920| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 73 65 64 20 |haracter|s\).sed |
|00001930| 22 73 2f 5e 58 2f 2f 22 | 20 3e 77 6f 72 64 73 20 |"s/^X//"| >words |
|00001940| 3c 3c 27 45 4e 44 5f 4f | 46 5f 77 6f 72 64 73 27 |<<'END_O|F_words'|
|00001950| 0a 58 45 75 72 6f 70 65 | 61 6e 0a 58 4d 65 67 61 |.XEurope|an.XMega|
|00001960| 74 65 73 74 0a 58 4d 69 | 64 77 65 73 74 65 72 6e |test.XMi|dwestern|
|00001970| 0a 58 61 62 73 75 72 64 | 75 6d 0a 58 61 63 63 75 |.Xabsurd|um.Xaccu|
|00001980| 73 61 74 6f 72 79 0a 58 | 61 66 6f 75 6c 0a 58 61 |satory.X|afoul.Xa|
|00001990| 73 74 72 6f 6c 6f 67 79 | 0a 58 61 75 73 74 72 61 |strology|.Xaustra|
|000019a0| 6c 6f 70 69 74 68 65 63 | 69 6e 65 0a 58 61 77 65 |lopithec|ine.Xawe|
|000019b0| 73 74 72 69 63 6b 65 6e | 0a 58 61 77 65 73 74 72 |stricken|.Xawestr|
|000019c0| 75 63 6b 0a 58 62 61 6c | 6f 6e 65 79 0a 58 63 68 |uck.Xbal|oney.Xch|
|000019d0| 69 6d 70 0a 58 63 6c 61 | 6d 6f 72 0a 58 63 6f 6d |imp.Xcla|mor.Xcom|
|000019e0| 62 6f 0a 58 64 65 63 69 | 6d 61 74 65 0a 58 64 65 |bo.Xdeci|mate.Xde|
|000019f0| 66 61 6d 61 74 69 6f 6e | 0a 58 64 65 74 72 69 74 |famation|.Xdetrit|
|00001a00| 75 73 0a 58 64 69 6d 69 | 6e 75 65 6e 64 6f 0a 58 |us.Xdimi|nuendo.X|
|00001a10| 64 6f 67 67 65 72 65 6c | 0a 58 64 6f 69 6c 79 0a |doggerel|.Xdoily.|
|00001a20| 58 65 6d 62 6c 65 6d 0a | 58 65 6d 6f 74 65 0a 58 |Xemblem.|Xemote.X|
|00001a30| 65 6e 64 6f 72 70 68 69 | 6e 0a 58 65 72 73 74 77 |endorphi|n.Xerstw|
|00001a40| 68 69 6c 65 0a 58 65 75 | 70 68 6f 6e 79 0a 58 67 |hile.Xeu|phony.Xg|
|00001a50| 6f 6e 6f 72 72 68 65 61 | 0a 58 67 6f 6f 64 62 79 |onorrhea|.Xgoodby|
|00001a60| 65 0a 58 68 65 61 64 73 | 74 72 6f 6e 67 0a 58 68 |e.Xheads|trong.Xh|
|00001a70| 6f 6d 65 79 0a 58 68 6f | 6d 69 6e 65 6d 0a 58 68 |omey.Xho|minem.Xh|
|00001a80| 6f 6d 69 6e 69 64 0a 58 | 68 6f 6d 6f 70 68 6f 6e |ominid.X|homophon|
|00001a90| 65 0a 58 68 6f 72 72 69 | 66 69 63 0a 58 69 6d 70 |e.Xhorri|fic.Ximp|
|00001aa0| 61 6e 65 6c 0a 58 69 6e | 6e 6f 63 75 6f 75 73 0a |anel.Xin|nocuous.|
|00001ab0| 58 69 6e 73 74 61 6e 74 | 69 61 74 65 0a 58 6a 61 |Xinstant|iate.Xja|
|00001ac0| 63 6b 61 6c 0a 58 6b 65 | 79 73 74 72 6f 6b 65 0a |ckal.Xke|ystroke.|
|00001ad0| 58 6d 69 6c 6c 69 6f 6e | 0a 58 6d 69 74 6f 63 68 |Xmillion|.Xmitoch|
|00001ae0| 6f 6e 64 72 69 61 0a 58 | 6d 69 74 6f 63 68 6f 6e |ondria.X|mitochon|
|00001af0| 64 72 69 61 6c 0a 58 6d | 69 74 6f 63 68 6f 6e 64 |drial.Xm|itochond|
|00001b00| 72 69 6f 6e 0a 58 6e 61 | 75 73 65 6f 75 73 0a 58 |rion.Xna|useous.X|
|00001b10| 6e 65 63 72 6f 70 68 69 | 6c 69 61 0a 58 6f 62 74 |necrophi|lia.Xobt|
|00001b20| 75 73 65 0a 58 70 61 62 | 75 6c 75 6d 0a 58 70 65 |use.Xpab|ulum.Xpe|
|00001b30| 63 63 61 64 69 6c 6c 6f | 0a 58 70 65 6e 74 61 74 |ccadillo|.Xpentat|
|00001b40| 6f 6e 69 63 0a 58 70 65 | 72 69 74 6f 6e 65 61 6c |onic.Xpe|ritoneal|
|00001b50| 0a 58 70 68 6c 65 67 6d | 0a 58 70 69 6e 65 79 0a |.Xphlegm|.Xpiney.|
|00001b60| 58 70 69 73 63 69 6e 65 | 0a 58 70 69 74 74 61 6e |Xpiscine|.Xpittan|
|00001b70| 63 65 0a 58 70 6f 6c 79 | 6d 6f 72 68 69 73 6d 0a |ce.Xpoly|morhism.|
|00001b80| 58 70 6f 6e 74 69 66 69 | 63 61 74 65 0a 58 70 6f |Xpontifi|cate.Xpo|
|00001b90| 6e 74 69 66 69 63 61 74 | 69 6f 6e 0a 58 70 6f 6e |ntificat|ion.Xpon|
|00001ba0| 74 69 66 69 63 61 74 6f | 72 0a 58 70 6f 73 74 64 |tificato|r.Xpostd|
|00001bb0| 69 63 74 0a 58 70 72 65 | 76 61 72 69 63 61 74 65 |ict.Xpre|varicate|
|00001bc0| 0a 58 70 72 65 76 65 6e | 74 61 74 69 76 65 0a 58 |.Xpreven|tative.X|
|00001bd0| 70 72 6f 66 75 6e 64 6f | 0a 58 70 72 6f 67 72 61 |profundo|.Xprogra|
|00001be0| 6d 0a 58 70 72 6f 6c 6f | 67 0a 58 72 65 64 75 63 |m.Xprolo|g.Xreduc|
|00001bf0| 74 69 6f 0a 58 73 61 74 | 63 68 65 6c 0a 58 73 61 |tio.Xsat|chel.Xsa|
|00001c00| 76 61 6e 6e 61 0a 58 73 | 61 76 61 6e 6e 61 68 0a |vanna.Xs|avannah.|
|00001c10| 58 73 68 69 74 0a 58 73 | 6d 65 6c 6c 79 0a 58 73 |Xshit.Xs|melly.Xs|
|00001c20| 74 72 69 64 65 6e 74 0a | 58 74 69 6d 6f 72 6f 75 |trident.|Xtimorou|
|00001c30| 73 0a 58 74 69 6e 6e 69 | 74 75 73 0a 58 74 72 69 |s.Xtinni|tus.Xtri|
|00001c40| 63 68 6f 74 6f 6d 79 0a | 58 76 61 70 69 64 0a 58 |chotomy.|Xvapid.X|
|00001c50| 79 61 6e 6b 65 65 0a 58 | 79 6f 67 68 75 72 74 0a |yankee.X|yoghurt.|
|00001c60| 58 79 6f 67 75 72 74 0a | 58 7a 65 74 65 74 69 63 |Xyogurt.|Xzetetic|
|00001c70| 0a 45 4e 44 5f 4f 46 5f | 77 6f 72 64 73 0a 69 66 |.END_OF_|words.if|
|00001c80| 20 74 65 73 74 20 37 32 | 32 20 2d 6e 65 20 60 77 | test 72|2 -ne `w|
|00001c90| 63 20 2d 63 20 3c 77 6f | 72 64 73 60 3b 20 74 68 |c -c <wo|rds`; th|
|00001ca0| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en.    e|cho shar|
|00001cb0| 3a 20 5c 22 77 6f 72 64 | 73 5c 22 20 75 6e 70 61 |: \"word|s\" unpa|
|00001cc0| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|00001cd0| 73 69 7a 65 21 0a 66 69 | 0a 23 20 65 6e 64 20 6f |size!.fi|.# end o|
|00001ce0| 66 20 6f 76 65 72 77 72 | 69 74 69 6e 67 20 63 68 |f overwr|iting ch|
|00001cf0| 65 63 6b 0a 66 69 0a 65 | 63 68 6f 20 73 68 61 72 |eck.fi.e|cho shar|
|00001d00| 3a 20 45 6e 64 20 6f 66 | 20 73 68 65 6c 6c 20 61 |: End of| shell a|
|00001d10| 72 63 68 69 76 65 2e 0a | 65 78 69 74 20 30 0a 0a |rchive..|exit 0..|
|00001d20| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+