home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 13.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 35 3a 33 31 20 |Feb 1 1|9:05:31 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 63 6f |lisp/pac|kages/co|
|00000080| 6e 78 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |nx.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 34 2e 31 33 20 |version |19.4.13 |
|000000a0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 31 30 |omp vers|ion 2.10|
|000000c0| 3b 20 20 31 2d 66 65 62 | 2d 39 33 2e 0a 3b 3b 3b |; 1-feb|-93..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000f0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000100| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000110| 73 74 20 69 6e 20 45 6d | 61 63 73 31 38 2e 0a 0a |st in Em|acs18...|
|00000120| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000130| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000140| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000150| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000160| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000170| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|00000180| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000190| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001a0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 | (erro|r "This |
|000001b0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 31 39 2e 22 29 |d for Em|acs19.")|
|000001d0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|000001e0| 11 c2 c3 21 ac 82 c4 13 | c2 c5 21 ac 82 c6 15 c7 |...!....|..!.....|
|000001f0| 16 08 c7 16 09 ca 16 0b | c7 16 0c c7 87 22 20 5b |........|....." [|
|00000200| 22 31 2e 34 2c 20 32 38 | 2d 64 65 63 2d 39 32 2e |"1.4, 28|-dec-92.|
|00000210| 22 20 63 6f 6e 78 2d 76 | 65 72 73 69 6f 6e 20 62 |" conx-v|ersion b|
|00000220| 6f 75 6e 64 70 20 63 6f | 6e 78 2d 62 6f 75 6e 63 |oundp co|nx-bounc|
|00000230| 65 20 31 30 20 63 6f 6e | 78 2d 68 61 73 68 74 61 |e 10 con|x-hashta|
|00000240| 62 6c 65 2d 73 69 7a 65 | 20 39 39 32 33 20 6e 69 |ble-size| 9923 ni|
|00000250| 6c 20 63 6f 6e 78 2d 77 | 6f 72 64 73 2d 68 61 73 |l conx-w|ords-has|
|00000260| 68 74 61 62 6c 65 20 63 | 6f 6e 78 2d 77 6f 72 64 |htable c|onx-word|
|00000270| 73 2d 76 65 63 74 6f 72 | 20 30 20 63 6f 6e 78 2d |s-vector| 0 conx-|
|00000280| 77 6f 72 64 73 2d 76 65 | 63 74 6f 72 2d 66 70 20 |words-ve|ctor-fp |
|00000290| 63 6f 6e 78 2d 6c 61 73 | 74 2d 77 6f 72 64 5d 20 |conx-las|t-word] |
|000002a0| 32 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6e 78 2d |2).(defv|ar conx-|
|000002b0| 66 69 6c 65 73 20 6e 69 | 6c 20 22 5c 0a 46 59 49 |files ni|l "\.FYI|
|000002c0| 22 29 0a 28 66 73 65 74 | 20 27 63 6f 6e 78 2d 69 |").(fset| 'conx-i|
|000002d0| 6e 69 74 20 23 5b 6e 69 | 6c 20 22 08 ab 8d 08 47 |nit #[ni|l "....G|
|000002e0| 09 59 ab 87 c2 08 c3 5c | 22 88 aa 85 c4 09 c3 5c |.Y.....\|"......\|
|000002f0| 22 10 0d ab 87 c2 0d c6 | 5c 22 88 aa 85 c4 c7 c6 |".......|\"......|
|00000300| 5c 22 15 c3 16 08 c6 16 | 09 c6 89 16 5c 6e 87 22 |\"......|....\n."|
|00000310| 20 5b 63 6f 6e 78 2d 77 | 6f 72 64 73 2d 68 61 73 | [conx-w|ords-has|
|00000320| 68 74 61 62 6c 65 20 63 | 6f 6e 78 2d 68 61 73 68 |htable c|onx-hash|
|00000330| 74 61 62 6c 65 2d 73 69 | 7a 65 20 66 69 6c 6c 61 |table-si|ze filla|
|00000340| 72 72 61 79 20 30 20 6d | 61 6b 65 2d 76 65 63 74 |rray 0 m|ake-vect|
|00000350| 6f 72 20 63 6f 6e 78 2d | 77 6f 72 64 73 2d 76 65 |or conx-|words-ve|
|00000360| 63 74 6f 72 20 6e 69 6c | 20 31 30 30 30 20 63 6f |ctor nil| 1000 co|
|00000370| 6e 78 2d 77 6f 72 64 73 | 2d 76 65 63 74 6f 72 2d |nx-words|-vector-|
|00000380| 66 70 20 63 6f 6e 78 2d | 6c 61 73 74 2d 77 6f 72 |fp conx-|last-wor|
|00000390| 64 20 63 6f 6e 78 2d 66 | 69 6c 65 73 5d 20 33 20 |d conx-f|iles] 3 |
|000003a0| 22 5c 0a 46 6f 72 67 65 | 74 20 74 68 65 20 63 75 |"\.Forge|t the cu|
|000003b0| 72 72 65 6e 74 20 77 6f | 72 64 2d 66 72 65 71 75 |rrent wo|rd-frequ|
|000003c0| 65 6e 63 79 20 74 72 65 | 65 2e 22 20 6e 69 6c 5d |ency tre|e." nil]|
|000003d0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|000003e0| 4d 88 c2 c3 4d 88 c4 c5 | 4d 88 c6 c7 4d 88 c8 c9 |M...M...|M...M...|
|000003f0| 4d 88 ca cb 4d 88 cc cd | 4d 88 ce cf 4d 88 d0 d1 |M...M...|M...M...|
|00000400| 4d 88 d2 d3 4d 88 d4 d5 | 4d 88 d6 16 17 d8 d9 4d |M...M...|M......M|
|00000410| 88 da db 4d 88 dc dd 4d | 87 22 20 5b 63 6f 6e 78 |...M...M|." [conx|
|00000420| 2d 72 65 68 61 73 68 20 | 23 5b 6e 69 6c 20 22 c0 |-rehash |#[nil ".|
|00000430| c1 21 88 5c 6e 47 1b c4 | 0b 89 5c 5c c5 5c 22 1e |.!.\nG..|..\\.\".|
|00000440| 06 c7 0b 57 ab 8e 0e 06 | 0b 53 5c 6e 0b 53 89 13 |...W....|.S\n.S..|
|00000450| 48 49 88 aa 6d 0e 06 12 | 2a c0 c8 21 87 22 20 5b |HI..m...|*..!." [|
|00000460| 6d 65 73 73 61 67 65 20 | 22 52 65 68 61 73 68 69 |message |"Rehashi|
|00000470| 6e 67 2e 2e 2e 22 20 63 | 6f 6e 78 2d 77 6f 72 64 |ng..." c|onx-word|
|00000480| 73 2d 76 65 63 74 6f 72 | 20 4c 20 6d 61 6b 65 2d |s-vector| L make-|
|00000490| 76 65 63 74 6f 72 20 6e | 69 6c 20 76 32 20 30 20 |vector n|il v2 0 |
|000004a0| 22 52 65 68 61 73 68 69 | 6e 67 2e 2e 2e 64 6f 6e |"Rehashi|ng...don|
|000004b0| 65 22 5d 20 35 5d 20 63 | 6f 6e 78 2d 63 6f 75 6e |e"] 5] c|onx-coun|
|000004c0| 74 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 77 6f |t (macro| . #[(wo|
|000004d0| 72 64 29 20 22 c0 09 c2 | 45 87 22 20 5b 61 72 65 |rd) "...|E." [are|
|000004e0| 66 20 77 6f 72 64 20 30 | 5d 20 33 5d 29 20 63 6f |f word 0|] 3]) co|
|000004f0| 6e 78 2d 63 61 70 20 28 | 6d 61 63 72 6f 20 2e 20 |nx-cap (|macro . |
|00000500| 23 5b 28 77 6f 72 64 29 | 20 22 c0 09 c2 45 87 22 |#[(word)| "...E."|
|00000510| 20 5b 61 72 65 66 20 77 | 6f 72 64 20 31 5d 20 33 | [aref w|ord 1] 3|
|00000520| 5d 29 20 63 6f 6e 78 2d | 63 6f 6d 6d 61 20 28 6d |]) conx-|comma (m|
|00000530| 61 63 72 6f 20 2e 20 23 | 5b 28 77 6f 72 64 29 20 |acro . #|[(word) |
|00000540| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 77 6f |"...E." |[aref wo|
|00000550| 72 64 20 32 5d 20 33 5d | 29 20 63 6f 6e 78 2d 70 |rd 2] 3]|) conx-p|
|00000560| 65 72 69 6f 64 20 28 6d | 61 63 72 6f 20 2e 20 23 |eriod (m|acro . #|
|00000570| 5b 28 77 6f 72 64 29 20 | 22 c0 09 c2 45 87 22 20 |[(word) |"...E." |
|00000580| 5b 61 72 65 66 20 77 6f | 72 64 20 33 5d 20 33 5d |[aref wo|rd 3] 3]|
|00000590| 29 20 63 6f 6e 78 2d 71 | 75 65 6d 20 28 6d 61 63 |) conx-q|uem (mac|
|000005a0| 72 6f 20 2e 20 23 5b 28 | 77 6f 72 64 29 20 22 c0 |ro . #[(|word) ".|
|000005b0| 09 c2 45 87 22 20 5b 61 | 72 65 66 20 77 6f 72 64 |..E." [a|ref word|
|000005c0| 20 34 5d 20 33 5d 29 20 | 63 6f 6e 78 2d 62 61 6e | 4] 3]) |conx-ban|
|000005d0| 67 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 77 6f |g (macro| . #[(wo|
|000005e0| 72 64 29 20 22 c0 09 c2 | 45 87 22 20 5b 61 72 65 |rd) "...|E." [are|
|000005f0| 66 20 77 6f 72 64 20 35 | 5d 20 33 5d 29 20 63 6f |f word 5|] 3]) co|
|00000600| 6e 78 2d 73 75 63 63 20 | 28 6d 61 63 72 6f 20 2e |nx-succ |(macro .|
|00000610| 20 23 5b 28 77 6f 72 64 | 29 20 22 c0 09 c2 45 87 | #[(word|) "...E.|
|00000620| 22 20 5b 61 72 65 66 20 | 77 6f 72 64 20 36 5d 20 |" [aref |word 6] |
|00000630| 33 5d 29 20 63 6f 6e 78 | 2d 70 72 65 64 20 28 6d |3]) conx|-pred (m|
|00000640| 61 63 72 6f 20 2e 20 23 | 5b 28 77 6f 72 64 29 20 |acro . #|[(word) |
|00000650| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 77 6f |"...E." |[aref wo|
|00000660| 72 64 20 37 5d 20 33 5d | 29 20 63 6f 6e 78 2d 73 |rd 7] 3]|) conx-s|
|00000670| 75 63 63 2d 63 20 28 6d | 61 63 72 6f 20 2e 20 23 |ucc-c (m|acro . #|
|00000680| 5b 28 77 6f 72 64 29 20 | 22 c0 09 c2 45 87 22 20 |[(word) |"...E." |
|00000690| 5b 61 72 65 66 20 77 6f | 72 64 20 38 5d 20 33 5d |[aref wo|rd 8] 3]|
|000006a0| 29 20 63 6f 6e 78 2d 70 | 72 65 64 2d 63 20 28 6d |) conx-p|red-c (m|
|000006b0| 61 63 72 6f 20 2e 20 23 | 5b 28 77 6f 72 64 29 20 |acro . #|[(word) |
|000006c0| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 77 6f |"...E." |[aref wo|
|000006d0| 72 64 20 39 5d 20 33 5d | 29 20 31 30 20 63 6f 6e |rd 9] 3]|) 10 con|
|000006e0| 78 2d 6c 65 6e 67 74 68 | 20 63 6f 6e 78 2d 6d 61 |x-length| conx-ma|
|000006f0| 6b 65 2d 77 6f 72 64 20 | 28 6d 61 63 72 6f 20 2e |ke-word |(macro .|
|00000700| 20 23 5b 6e 69 6c 20 22 | c0 87 22 20 5b 28 63 6f | #[nil "|.." [(co|
|00000710| 70 79 2d 73 65 71 75 65 | 6e 63 65 20 27 5b 31 20 |py-seque|nce '[1 |
|00000720| 30 20 30 20 30 20 30 20 | 30 20 6e 69 6c 20 6e 69 |0 0 0 0 |0 nil ni|
|00000730| 6c 20 30 20 30 5d 29 5d | 20 31 5d 29 20 63 6f 6e |l 0 0])]| 1]) con|
|00000740| 78 2d 73 65 74 66 20 28 | 6d 61 63 72 6f 20 2e 20 |x-setf (|macro . |
|00000750| 23 5b 28 66 6f 72 6d 20 | 76 61 6c 29 20 22 c0 09 |#[(form |val) "..|
|00000760| c2 c3 21 ad 81 0b 5c 22 | 89 11 39 ab 85 c4 09 0d |..!...\"|..9.....|
|00000770| 45 87 09 40 c6 3d ab 89 | c7 c8 09 41 0d 43 5c 22 |E..@.=..|...A.C\"|
|00000780| 42 87 09 40 c9 3d ab 87 | ca 09 41 40 0d 45 87 09 |B..@.=..|..A@.E..|
|00000790| 40 cb 3d ab 87 cc 09 41 | 40 0d 45 87 cd ce 09 5c |@.=....A|@.E....\|
|000007a0| 22 87 22 20 5b 6d 61 63 | 72 6f 65 78 70 61 6e 64 |"." [mac|roexpand|
|000007b0| 20 66 6f 72 6d 20 62 6f | 75 6e 64 70 20 62 79 74 | form bo|undp byt|
|000007c0| 65 2d 63 6f 6d 70 69 6c | 65 2d 6d 61 63 72 6f 2d |e-compil|e-macro-|
|000007d0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 73 65 74 71 |environm|ent setq|
|000007e0| 20 76 61 6c 20 61 72 65 | 66 20 61 73 65 74 20 61 | val are|f aset a|
|000007f0| 70 70 65 6e 64 20 63 64 | 72 20 73 65 74 63 64 72 |ppend cd|r setcdr|
|00000800| 20 63 61 72 20 73 65 74 | 63 61 72 20 65 72 72 6f | car set|car erro|
|00000810| 72 20 22 63 61 6e 27 74 | 20 73 65 74 66 20 25 73 |r "can't| setf %s|
|00000820| 22 5d 20 35 5d 29 20 63 | 6f 6e 78 2d 70 75 73 68 |"] 5]) c|onx-push|
|00000830| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 74 68 69 | (macro |. #[(thi|
|00000840| 6e 67 20 6c 69 73 74 29 | 20 22 c0 09 c2 0b 09 45 |ng list)| ".....E|
|00000850| 45 87 22 20 5b 63 6f 6e | 78 2d 73 65 74 66 20 6c |E." [con|x-setf l|
|00000860| 69 73 74 20 63 6f 6e 73 | 20 74 68 69 6e 67 5d 20 |ist cons| thing] |
|00000870| 35 5d 29 5d 20 32 29 0a | 28 64 65 66 63 6f 6e 73 |5])] 2).|(defcons|
|00000880| 74 20 63 6f 6e 78 2d 6d | 6f 73 74 2d 70 6f 73 69 |t conx-m|ost-posi|
|00000890| 74 69 76 65 2d 66 69 78 | 6e 75 6d 20 28 62 79 74 |tive-fix|num (byt|
|000008a0| 65 2d 63 6f 64 65 20 22 | c0 c1 89 5c 22 87 22 20 |e-code "|...\"." |
|000008b0| 5b 6c 73 68 20 2d 31 5d | 20 33 29 20 22 5c 0a 54 |[lsh -1]| 3) "\.T|
|000008c0| 68 65 20 6c 61 72 67 65 | 73 74 20 70 6f 73 69 74 |he large|st posit|
|000008d0| 69 76 65 20 69 6e 74 65 | 67 65 72 20 74 68 61 74 |ive inte|ger that|
|000008e0| 20 63 61 6e 20 62 65 20 | 72 65 70 72 65 73 65 6e | can be |represen|
|000008f0| 74 65 64 20 69 6e 20 74 | 68 69 73 20 65 6d 61 63 |ted in t|his emac|
|00000900| 73 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |s.").(by|te-code |
|00000910| 22 c0 c1 4d 88 c2 c3 4d | 88 c4 c5 4d 88 c6 c7 4d |"..M...M|...M...M|
|00000920| 88 c8 c9 4d 88 ca cb 4d | 87 22 20 5b 63 6f 6e 78 |...M...M|." [conx|
|00000930| 2d 72 61 6e 64 20 28 6d | 61 63 72 6f 20 2e 20 23 |-rand (m|acro . #|
|00000940| 5b 28 6e 29 20 22 c0 c1 | c2 c3 45 0c 45 87 22 20 |[(n) "..|..E.E." |
|00000950| 5b 25 20 6c 6f 67 61 6e | 64 20 63 6f 6e 78 2d 6d |[% logan|d conx-m|
|00000960| 6f 73 74 2d 70 6f 73 69 | 74 69 76 65 2d 66 69 78 |ost-posi|tive-fix|
|00000970| 6e 75 6d 20 28 72 61 6e | 64 6f 6d 29 20 6e 5d 20 |num (ran|dom) n] |
|00000980| 34 5d 29 20 63 6f 6e 78 | 2d 72 65 6c 61 74 65 2d |4]) conx|-relate-|
|00000990| 73 75 63 63 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |succ (ma|cro . #[|
|000009a0| 28 77 6f 72 64 20 72 65 | 6c 61 74 65 64 29 20 22 |(word re|lated) "|
|000009b0| c0 c1 c2 0b 44 44 43 c4 | c0 c5 c6 0e 07 c8 45 44 |....DDC.|......ED|
|000009c0| 43 c9 c5 ca cb cc 0e 07 | cd 45 ce 45 46 45 46 87 |C.......|.E.EFEF.|
|000009d0| 22 20 5b 6c 65 74 20 76 | 65 63 20 73 79 6d 62 6f |" [let v|ec symbo|
|000009e0| 6c 2d 76 61 6c 75 65 20 | 77 6f 72 64 20 28 63 6f |l-value |word (co|
|000009f0| 6e 78 2d 73 65 74 66 20 | 28 63 6f 6e 78 2d 73 75 |nx-setf |(conx-su|
|00000a00| 63 63 2d 63 20 76 65 63 | 29 20 28 31 2b 20 28 63 |cc-c vec|) (1+ (c|
|00000a10| 6f 6e 78 2d 73 75 63 63 | 2d 63 20 76 65 63 29 29 |onx-succ|-c vec))|
|00000a20| 29 20 72 65 6c 20 61 73 | 73 71 20 72 65 6c 61 74 |) rel as|sq relat|
|00000a30| 65 64 20 28 63 6f 6e 78 | 2d 73 75 63 63 20 76 65 |ed (conx|-succ ve|
|00000a40| 63 29 20 69 66 20 28 73 | 65 74 63 64 72 20 72 65 |c) if (s|etcdr re|
|00000a50| 6c 20 28 31 2b 20 28 63 | 64 72 20 72 65 6c 29 29 |l (1+ (c|dr rel))|
|00000a60| 29 20 63 6f 6e 78 2d 70 | 75 73 68 20 63 6f 6e 73 |) conx-p|ush cons|
|00000a70| 20 31 20 28 63 6f 6e 78 | 2d 73 75 63 63 20 76 65 | 1 (conx|-succ ve|
|00000a80| 63 29 5d 20 31 32 5d 29 | 20 63 6f 6e 78 2d 72 65 |c)] 12])| conx-re|
|00000a90| 6c 61 74 65 2d 70 72 65 | 64 20 28 6d 61 63 72 6f |late-pre|d (macro|
|00000aa0| 20 2e 20 23 5b 28 77 6f | 72 64 20 72 65 6c 61 74 | . #[(wo|rd relat|
|00000ab0| 65 64 29 20 22 c0 c1 c2 | 0b 44 44 43 c4 c0 c5 c6 |ed) "...|.DDC....|
|00000ac0| 0e 07 c8 45 44 43 c9 c5 | ca cb cc 0e 07 cd 45 ce |...EDC..|......E.|
|00000ad0| 45 46 45 46 87 22 20 5b | 6c 65 74 20 76 65 63 20 |EFEF." [|let vec |
|00000ae0| 73 79 6d 62 6f 6c 2d 76 | 61 6c 75 65 20 77 6f 72 |symbol-v|alue wor|
|00000af0| 64 20 28 63 6f 6e 78 2d | 73 65 74 66 20 28 63 6f |d (conx-|setf (co|
|00000b00| 6e 78 2d 70 72 65 64 2d | 63 20 76 65 63 29 20 28 |nx-pred-|c vec) (|
|00000b10| 31 2b 20 28 63 6f 6e 78 | 2d 70 72 65 64 2d 63 20 |1+ (conx|-pred-c |
|00000b20| 76 65 63 29 29 29 20 72 | 65 6c 20 61 73 73 71 20 |vec))) r|el assq |
|00000b30| 72 65 6c 61 74 65 64 20 | 28 63 6f 6e 78 2d 70 72 |related |(conx-pr|
|00000b40| 65 64 20 76 65 63 29 20 | 69 66 20 28 73 65 74 63 |ed vec) |if (setc|
|00000b50| 64 72 20 72 65 6c 20 28 | 31 2b 20 28 63 64 72 20 |dr rel (|1+ (cdr |
|00000b60| 72 65 6c 29 29 29 20 63 | 6f 6e 78 2d 70 75 73 68 |rel))) c|onx-push|
|00000b70| 20 63 6f 6e 73 20 31 20 | 28 63 6f 6e 78 2d 70 72 | cons 1 |(conx-pr|
|00000b80| 65 64 20 76 65 63 29 5d | 20 31 32 5d 29 20 63 6f |ed vec)]| 12]) co|
|00000b90| 6e 78 2d 61 64 64 2d 77 | 6f 72 64 20 28 6d 61 63 |nx-add-w|ord (mac|
|00000ba0| 72 6f 20 2e 20 23 5b 28 | 77 6f 72 64 29 20 22 c0 |ro . #[(|word) ".|
|00000bb0| c1 c2 5c 6e 44 c3 44 43 | c4 23 87 22 20 5b 61 70 |..\nD.DC|.#." [ap|
|00000bc0| 70 65 6e 64 20 28 6c 65 | 74 2a 29 20 77 6f 72 64 |pend (le|t*) word|
|00000bd0| 20 28 66 63 20 28 61 72 | 65 66 20 77 6f 72 64 20 | (fc (ar|ef word |
|00000be0| 30 29 29 20 28 28 73 65 | 74 71 20 77 6f 72 64 20 |0)) ((se|tq word |
|00000bf0| 28 69 6e 74 65 72 6e 20 | 28 64 6f 77 6e 63 61 73 |(intern |(downcas|
|00000c00| 65 20 77 6f 72 64 29 20 | 63 6f 6e 78 2d 77 6f 72 |e word) |conx-wor|
|00000c10| 64 73 2d 68 61 73 68 74 | 61 62 6c 65 29 29 20 28 |ds-hasht|able)) (|
|00000c20| 6c 65 74 20 28 28 76 65 | 63 20 28 61 6e 64 20 28 |let ((ve|c (and (|
|00000c30| 62 6f 75 6e 64 70 20 77 | 6f 72 64 29 20 28 73 79 |boundp w|ord) (sy|
|00000c40| 6d 62 6f 6c 2d 76 61 6c | 75 65 20 77 6f 72 64 29 |mbol-val|ue word)|
|00000c50| 29 29 29 20 28 69 66 20 | 76 65 63 20 28 63 6f 6e |))) (if |vec (con|
|00000c60| 78 2d 73 65 74 66 20 28 | 63 6f 6e 78 2d 63 6f 75 |x-setf (|conx-cou|
|00000c70| 6e 74 20 76 65 63 29 20 | 28 31 2b 20 28 63 6f 6e |nt vec) |(1+ (con|
|00000c80| 78 2d 63 6f 75 6e 74 20 | 76 65 63 29 29 29 20 28 |x-count |vec))) (|
|00000c90| 69 66 20 28 3d 20 63 6f | 6e 78 2d 77 6f 72 64 73 |if (= co|nx-words|
|00000ca0| 2d 76 65 63 74 6f 72 2d | 66 70 20 28 6c 65 6e 67 |-vector-|fp (leng|
|00000cb0| 74 68 20 63 6f 6e 78 2d | 77 6f 72 64 73 2d 76 65 |th conx-|words-ve|
|00000cc0| 63 74 6f 72 29 29 20 28 | 63 6f 6e 78 2d 72 65 68 |ctor)) (|conx-reh|
|00000cd0| 61 73 68 29 29 20 28 73 | 65 74 20 77 6f 72 64 20 |ash)) (s|et word |
|00000ce0| 28 73 65 74 71 20 76 65 | 63 20 28 63 6f 6e 78 2d |(setq ve|c (conx-|
|00000cf0| 6d 61 6b 65 2d 77 6f 72 | 64 29 29 29 20 28 61 73 |make-wor|d))) (as|
|00000d00| 65 74 20 63 6f 6e 78 2d | 77 6f 72 64 73 2d 76 65 |et conx-|words-ve|
|00000d10| 63 74 6f 72 20 63 6f 6e | 78 2d 77 6f 72 64 73 2d |ctor con|x-words-|
|00000d20| 76 65 63 74 6f 72 2d 66 | 70 20 77 6f 72 64 29 20 |vector-f|p word) |
|00000d30| 28 73 65 74 71 20 63 6f | 6e 78 2d 77 6f 72 64 73 |(setq co|nx-words|
|00000d40| 2d 76 65 63 74 6f 72 2d | 66 70 20 28 31 2b 20 63 |-vector-|fp (1+ c|
|00000d50| 6f 6e 78 2d 77 6f 72 64 | 73 2d 76 65 63 74 6f 72 |onx-word|s-vector|
|00000d60| 2d 66 70 29 29 29 20 28 | 6f 72 20 28 3c 20 66 63 |-fp))) (|or (< fc|
|00000d70| 20 36 35 29 20 28 3e 20 | 66 63 20 39 30 29 20 28 | 65) (> |fc 90) (|
|00000d80| 63 6f 6e 78 2d 73 65 74 | 66 20 28 63 6f 6e 78 2d |conx-set|f (conx-|
|00000d90| 63 61 70 20 76 65 63 29 | 20 28 31 2b 20 28 63 6f |cap vec)| (1+ (co|
|00000da0| 6e 78 2d 63 61 70 20 76 | 65 63 29 29 29 29 29 20 |nx-cap v|ec))))) |
|00000db0| 28 69 66 20 63 6f 6e 78 | 2d 6c 61 73 74 2d 77 6f |(if conx|-last-wo|
|00000dc0| 72 64 20 28 70 72 6f 67 | 6e 20 28 63 6f 6e 78 2d |rd (prog|n (conx-|
|00000dd0| 72 65 6c 61 74 65 2d 73 | 75 63 63 20 63 6f 6e 78 |relate-s|ucc conx|
|00000de0| 2d 6c 61 73 74 2d 77 6f | 72 64 20 77 6f 72 64 29 |-last-wo|rd word)|
|00000df0| 20 28 63 6f 6e 78 2d 72 | 65 6c 61 74 65 2d 70 72 | (conx-r|elate-pr|
|00000e00| 65 64 20 77 6f 72 64 20 | 63 6f 6e 78 2d 6c 61 73 |ed word |conx-las|
|00000e10| 74 2d 77 6f 72 64 29 29 | 29 20 28 73 65 74 71 20 |t-word))|) (setq |
|00000e20| 63 6f 6e 78 2d 6c 61 73 | 74 2d 77 6f 72 64 20 77 |conx-las|t-word w|
|00000e30| 6f 72 64 29 29 5d 20 34 | 5d 29 20 63 6f 6e 78 2d |ord))] 4|]) conx-|
|00000e40| 70 75 6e 78 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |punx (ma|cro . #[|
|00000e50| 28 63 68 61 72 29 20 22 | c0 c1 c2 c3 0b 44 c4 44 |(char) "|.....D.D|
|00000e60| c5 45 45 87 22 20 5b 69 | 66 20 63 6f 6e 78 2d 6c |.EE." [i|f conx-l|
|00000e70| 61 73 74 2d 77 6f 72 64 | 20 6c 65 74 20 63 68 61 |ast-word| let cha|
|00000e80| 72 20 28 76 65 63 20 28 | 73 79 6d 62 6f 6c 2d 76 |r (vec (|symbol-v|
|00000e90| 61 6c 75 65 20 63 6f 6e | 78 2d 6c 61 73 74 2d 77 |alue con|x-last-w|
|00000ea0| 6f 72 64 29 29 20 28 63 | 6f 6e 64 20 28 28 65 71 |ord)) (c|ond ((eq|
|00000eb0| 20 63 68 61 72 20 34 34 | 29 20 28 63 6f 6e 78 2d | char 44|) (conx-|
|00000ec0| 73 65 74 66 20 28 63 6f | 6e 78 2d 63 6f 6d 6d 61 |setf (co|nx-comma|
|00000ed0| 20 76 65 63 29 20 28 31 | 2b 20 28 63 6f 6e 78 2d | vec) (1|+ (conx-|
|00000ee0| 63 6f 6d 6d 61 20 76 65 | 63 29 29 29 29 20 28 28 |comma ve|c)))) ((|
|00000ef0| 6f 72 20 28 65 71 20 63 | 68 61 72 20 34 36 29 20 |or (eq c|har 46) |
|00000f00| 28 65 71 20 63 68 61 72 | 20 35 39 29 29 20 28 63 |(eq char| 59)) (c|
|00000f10| 6f 6e 78 2d 73 65 74 66 | 20 28 63 6f 6e 78 2d 70 |onx-setf| (conx-p|
|00000f20| 65 72 69 6f 64 20 76 65 | 63 29 20 28 31 2b 20 28 |eriod ve|c) (1+ (|
|00000f30| 63 6f 6e 78 2d 70 65 72 | 69 6f 64 20 76 65 63 29 |conx-per|iod vec)|
|00000f40| 29 29 20 28 73 65 74 71 | 20 63 6f 6e 78 2d 6c 61 |)) (setq| conx-la|
|00000f50| 73 74 2d 77 6f 72 64 20 | 6e 69 6c 29 29 20 28 28 |st-word |nil)) ((|
|00000f60| 65 71 20 63 68 61 72 20 | 36 33 29 20 28 63 6f 6e |eq char |63) (con|
|00000f70| 78 2d 73 65 74 66 20 28 | 63 6f 6e 78 2d 71 75 65 |x-setf (|conx-que|
|00000f80| 6d 20 76 65 63 29 20 28 | 31 2b 20 28 63 6f 6e 78 |m vec) (|1+ (conx|
|00000f90| 2d 71 75 65 6d 20 76 65 | 63 29 29 29 20 28 73 65 |-quem ve|c))) (se|
|00000fa0| 74 71 20 63 6f 6e 78 2d | 6c 61 73 74 2d 77 6f 72 |tq conx-|last-wor|
|00000fb0| 64 20 6e 69 6c 29 29 20 | 28 28 65 71 20 63 68 61 |d nil)) |((eq cha|
|00000fc0| 72 20 33 33 29 20 28 63 | 6f 6e 78 2d 73 65 74 66 |r 33) (c|onx-setf|
|00000fd0| 20 28 63 6f 6e 78 2d 62 | 61 6e 67 20 76 65 63 29 | (conx-b|ang vec)|
|00000fe0| 20 28 31 2b 20 28 63 6f | 6e 78 2d 62 61 6e 67 20 | (1+ (co|nx-bang |
|00000ff0| 76 65 63 29 29 29 20 28 | 73 65 74 71 20 63 6f 6e |vec))) (|setq con|
|00001000| 78 2d 6c 61 73 74 2d 77 | 6f 72 64 20 6e 69 6c 29 |x-last-w|ord nil)|
|00001010| 29 29 5d 20 35 5d 29 20 | 63 6f 6e 78 69 66 79 2d |))] 5]) |conxify-|
|00001020| 69 6e 74 65 72 6e 61 6c | 20 23 5b 6e 69 6c 20 22 |internal| #[nil "|
|00001030| c0 89 19 1a 6d 3f 85 7f | 01 c3 c0 77 88 67 c4 3e |....m?..|...w.g.>|
|00001040| ab 8a c5 c0 77 88 c3 c0 | 77 88 aa 71 60 12 c5 c0 |....w...|w..q`...|
|00001050| 77 88 68 c6 55 ab 83 c7 | 75 88 5c 6e 60 3d ac 55 |w.h.U...|u.\n`=.U|
|00001060| 5c 6e 60 7b 89 11 c8 9a | ac 4c 09 89 1e 09 ca 48 |\n`{....|.L.....H|
|00001070| 1e 0b cc 0e 09 97 0e 0d | 5c 22 16 09 ce 0e 09 21 |........|\".....!|
|00001080| ad 83 0e 09 4a 89 1e 0f | ab 8c 0e 0f ca 0e 0f ca |....J...|........|
|00001090| 48 54 49 88 aa a2 0e 10 | 0e 11 47 55 ab 83 d2 20 |HTI.....|..GU... |
|000010a0| 88 0e 09 d3 d4 21 89 16 | 0f 4c 88 0e 11 0e 10 0e |.....!..|.L......|
|000010b0| 09 49 88 0e 10 54 16 10 | 0e 0b d5 57 ac 90 0e 0b |.I...T..|...W....|
|000010c0| d6 56 ac 8a 0e 0f d7 0e | 0f d7 48 54 49 88 29 0e |.V......|..HTI.).|
|000010d0| 18 ab e4 0e 18 4a 89 1e | 0f d9 0e 0f d9 48 54 49 |.....J..|.....HTI|
|000010e0| 88 0e 09 0e 0f da 48 9e | 89 1e 1b ab 89 0e 1b 89 |......H.|........|
|000010f0| 41 54 a1 88 aa 8e 0e 0f | da 0e 09 d7 42 0e 0f da |AT......|....B...|
|00001100| 48 42 49 88 2a 0e 09 4a | 89 1e 0f dc 0e 0f dc 48 |HBI.*..J|.......H|
|00001110| 54 49 88 0e 18 0e 0f dd | 48 9e 89 1e 1b ab 89 0e |TI......|H.......|
|00001120| 1b 89 41 54 a1 88 aa 8e | 0e 0f dd 0e 18 d7 42 0e |..AT....|......B.|
|00001130| 0f dd 48 42 49 88 2a 0e | 09 16 18 2a 0e 1e 54 16 |..HBI.*.|...*..T.|
|00001140| 1e df c0 77 88 67 89 12 | e0 3e 83 04 00 0e 18 83 |...w.g..|.>......|
|00001150| 04 00 5c 6e 0e 18 4a 1e | 0f 89 1e 21 e2 3d ab 8c |..\n..J.|...!.=..|
|00001160| 0e 0f e3 0e 0f e3 48 54 | 49 88 aa c3 0e 21 e4 3d |......HT|I....!.=|
|00001170| ac 86 0e 21 e5 3d ab 8f | 0e 0f e6 0e 0f e6 48 54 |...!.=..|......HT|
|00001180| 49 88 c0 16 18 aa a8 0e | 21 e7 3d ab 8f 0e 0f e8 |I.......|!.=.....|
|00001190| 0e 0f e8 48 54 49 88 c0 | 16 18 aa 93 0e 21 e9 3d |...HTI..|.....!.=|
|000011a0| ab 8d 0e 0f ea 0e 0f ea | 48 54 49 88 c0 16 18 2a |........|HTI....*|
|000011b0| 82 04 00 2a 87 22 20 5b | 6e 69 6c 20 77 20 70 20 |...*." [|nil w p |
|000011c0| 22 5e 41 2d 5a 61 2d 7a | 30 2d 39 27 22 20 28 34 |"^A-Za-z|0-9'" (4|
|000011d0| 38 20 34 39 20 35 30 20 | 35 31 20 35 32 20 35 33 |8 49 50 |51 52 53|
|000011e0| 20 35 34 20 35 35 20 35 | 36 20 35 37 20 33 39 29 | 54 55 5|6 57 39)|
|000011f0| 20 22 41 2d 5a 61 2d 7a | 30 2d 39 27 22 20 33 39 | "A-Za-z|0-9'" 39|
|00001200| 20 2d 31 20 22 6e 69 6c | 22 20 77 6f 72 64 20 30 | -1 "nil|" word 0|
|00001210| 20 66 63 20 69 6e 74 65 | 72 6e 20 63 6f 6e 78 2d | fc inte|rn conx-|
|00001220| 77 6f 72 64 73 2d 68 61 | 73 68 74 61 62 6c 65 20 |words-ha|shtable |
|00001230| 62 6f 75 6e 64 70 20 76 | 65 63 20 63 6f 6e 78 2d |boundp v|ec conx-|
|00001240| 77 6f 72 64 73 2d 76 65 | 63 74 6f 72 2d 66 70 20 |words-ve|ctor-fp |
|00001250| 63 6f 6e 78 2d 77 6f 72 | 64 73 2d 76 65 63 74 6f |conx-wor|ds-vecto|
|00001260| 72 20 63 6f 6e 78 2d 72 | 65 68 61 73 68 20 63 6f |r conx-r|ehash co|
|00001270| 70 79 2d 73 65 71 75 65 | 6e 63 65 20 5b 31 20 30 |py-seque|nce [1 0|
|00001280| 20 30 20 30 20 30 20 30 | 20 6e 69 6c 20 6e 69 6c | 0 0 0 0| nil nil|
|00001290| 20 30 20 30 5d 20 36 35 | 20 39 30 20 31 20 63 6f | 0 0] 65| 90 1 co|
|000012a0| 6e 78 2d 6c 61 73 74 2d | 77 6f 72 64 20 38 20 36 |nx-last-|word 8 6|
|000012b0| 20 72 65 6c 20 39 20 37 | 20 6e 20 22 20 09 5c 6e | rel 9 7| n " .\n|
|000012c0| 0d 22 20 28 34 34 20 34 | 36 20 33 33 20 36 33 20 |." (44 4|6 33 63 |
|000012d0| 35 39 29 20 63 68 61 72 | 20 34 34 20 32 20 34 36 |59) char| 44 2 46|
|000012e0| 20 35 39 20 33 20 36 33 | 20 34 20 33 33 20 35 5d | 59 3 63| 4 33 5]|
|000012f0| 20 36 5d 5d 20 32 29 0a | 28 66 73 65 74 20 27 63 | 6]] 2).|(fset 'c|
|00001300| 6f 6e 78 2d 62 75 66 66 | 65 72 20 23 5b 6e 69 6c |onx-buff|er #[nil|
|00001310| 20 22 08 ac 83 c1 20 88 | 5c 6e c3 64 1c 1d 1e 06 | ".... .|\n.d....|
|00001320| 8a 65 62 88 8c 7e 88 60 | 89 16 07 0c 57 ab a3 c8 |.eb..~.`|....W...|
|00001330| c9 0c c3 23 88 0e 07 60 | 7d 88 0e 07 60 16 07 62 |...#...`|}...`..b|
|00001340| 88 ca 20 88 7e 88 cb cc | 0e 07 cd 5f 64 a5 5c 22 |.. .~...|..._d.\"|
|00001350| 88 aa 55 2a 0e 0e ab 88 | 0e 0f 0e 0e 43 a4 16 0f |..U*....|....C...|
|00001360| cb d0 0d 5c 6e 0e 06 5a | 23 2b 87 22 20 5b 63 6f |...\n..Z|#+." [co|
|00001370| 6e 78 2d 77 6f 72 64 73 | 2d 76 65 63 74 6f 72 20 |nx-words|-vector |
|00001380| 63 6f 6e 78 2d 69 6e 69 | 74 20 63 6f 6e 78 2d 77 |conx-ini|t conx-w|
|00001390| 6f 72 64 73 2d 76 65 63 | 74 6f 72 2d 66 70 20 30 |ords-vec|tor-fp 0|
|000013a0| 20 70 6d 20 6e 20 69 20 | 70 20 73 65 61 72 63 68 | pm n i |p search|
|000013b0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 5c 6e 22 20 |-forward| "\n\n" |
|000013c0| 63 6f 6e 78 69 66 79 2d | 69 6e 74 65 72 6e 61 6c |conxify-|internal|
|000013d0| 20 6d 65 73 73 61 67 65 | 20 22 25 64 25 25 2e 2e | message| "%d%%..|
|000013e0| 2e 22 20 31 30 30 20 62 | 75 66 66 65 72 2d 66 69 |." 100 b|uffer-fi|
|000013f0| 6c 65 2d 6e 61 6d 65 20 | 63 6f 6e 78 2d 66 69 6c |le-name |conx-fil|
|00001400| 65 73 20 22 25 73 20 77 | 6f 72 64 73 2c 20 25 64 |es "%s w|ords, %d|
|00001410| 20 75 6e 69 71 75 65 22 | 5d 20 35 20 22 5c 0a 41 | unique"|] 5 "\.A|
|00001420| 62 73 6f 72 62 20 74 68 | 65 20 74 65 78 74 20 69 |bsorb th|e text i|
|00001430| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|00001440| 66 66 65 72 20 69 6e 74 | 6f 20 74 68 65 20 74 72 |ffer int|o the tr|
|00001450| 65 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ee." nil|]).(fset|
|00001460| 20 27 63 6f 6e 78 2d 72 | 65 67 69 6f 6e 20 23 5b | 'conx-r|egion #[|
|00001470| 28 70 20 6d 29 20 22 8c | 7e 88 08 09 7d 88 c2 20 |(p m) ".|~...}.. |
|00001480| 29 87 22 20 5b 70 20 6d | 20 63 6f 6e 78 2d 62 75 |)." [p m| conx-bu|
|00001490| 66 66 65 72 5d 20 32 20 | 22 5c 0a 41 62 73 6f 72 |ffer] 2 |"\.Absor|
|000014a0| 62 20 74 68 65 20 74 65 | 78 74 20 69 6e 20 74 68 |b the te|xt in th|
|000014b0| 65 20 63 75 72 72 65 6e | 74 20 72 65 67 69 6f 6e |e curren|t region|
|000014c0| 20 69 6e 74 6f 20 74 68 | 65 20 74 72 65 65 2e 22 | into th|e tree."|
|000014d0| 20 22 72 22 5d 29 0a 28 | 66 73 65 74 20 27 63 6f | "r"]).(|fset 'co|
|000014e0| 6e 78 2d 6d 61 69 6c 2d | 62 75 66 66 65 72 20 23 |nx-mail-|buffer #|
|000014f0| 5b 6e 69 6c 20 22 8a 65 | 62 88 c0 c1 77 88 c1 89 |[nil ".e|b...w...|
|00001500| 89 89 89 1a 1b 1c 1d 1e | 06 c7 c8 21 ac 84 c9 ca |........|...!....|
|00001510| 21 88 6d ac ad cb cc c1 | cd 23 88 60 14 cb ce c1 |!.m.....|.#.`....|
|00001520| cd 23 88 60 89 13 12 cf | d0 c1 d1 23 ab 8a d2 60 |.#.`....|...#...`|
|00001530| 0b 5c 22 d3 57 ab 82 60 | 13 d4 0c 60 5c 22 88 5c |.\".W..`|...`\".\|
|00001540| 6e 62 88 aa 50 2d 0d ad | 88 0e 15 0d 43 a4 89 16 |nb..P-..|....C...|
|00001550| 15 29 87 22 20 5b 22 5c | 6e 20 09 22 20 6e 69 6c |.)." ["\|n ." nil|
|00001560| 20 70 33 20 70 32 20 70 | 20 62 75 66 66 65 72 2d | p3 p2 p| buffer-|
|00001570| 66 69 6c 65 2d 6e 61 6d | 65 20 63 61 73 65 2d 66 |file-nam|e case-f|
|00001580| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6c 6f 6f 6b 69 |old-sear|ch looki|
|00001590| 6e 67 2d 61 74 20 22 5e | 46 72 6f 6d 20 22 20 65 |ng-at "^|From " e|
|000015a0| 72 72 6f 72 20 22 6e 6f | 74 20 69 6e 20 2f 62 69 |rror "no|t in /bi|
|000015b0| 6e 2f 6d 61 69 6c 20 66 | 6f 72 6d 61 74 22 20 73 |n/mail f|ormat" s|
|000015c0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5c |earch-fo|rward "\|
|000015d0| 6e 5c 6e 22 20 30 20 22 | 5c 6e 46 72 6f 6d 20 22 |n\n" 0 "|\nFrom "|
|000015e0| 20 72 65 2d 73 65 61 72 | 63 68 2d 62 61 63 6b 77 | re-sear|ch-backw|
|000015f0| 61 72 64 20 22 5c 6e 2d | 2d 2b 5c 6e 22 20 74 20 |ard "\n-|-+\n" t |
|00001600| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 20 39 20 63 6f |count-li|nes 9 co|
|00001610| 6e 78 2d 72 65 67 69 6f | 6e 20 63 6f 6e 78 2d 66 |nx-regio|n conx-f|
|00001620| 69 6c 65 73 5d 20 35 20 | 22 5c 0a 43 6f 6e 78 69 |iles] 5 |"\.Conxi|
|00001630| 66 79 20 61 20 62 75 66 | 66 65 72 20 69 6e 20 2f |fy a buf|fer in /|
|00001640| 62 69 6e 2f 6d 61 69 6c | 20 66 6f 72 6d 61 74 2e |bin/mail| format.|
|00001650| 22 20 6e 69 6c 5d 29 0a | 28 62 79 74 65 2d 63 6f |" nil]).|(byte-co|
|00001660| 64 65 20 22 c0 c1 4d 88 | c2 c3 4d 88 c4 c5 4d 87 |de "..M.|..M...M.|
|00001670| 22 20 5b 63 6f 6e 78 2d | 72 61 6e 64 6f 6d 2d 72 |" [conx-|random-r|
|00001680| 65 6c 61 74 65 64 20 23 | 5b 28 63 6f 75 6e 74 20 |elated #|[(count |
|00001690| 6c 69 73 74 29 20 22 08 | c1 55 ab 83 c1 aa 87 c2 |list) ".|.U......|
|000016a0| 0b c4 20 5c 22 08 a6 c5 | 1e 06 1e 07 0e 08 ab a6 |.. \"...|........|
|000016b0| 0e 07 0e 08 40 41 58 ab | 8c 0e 08 40 40 16 06 c5 |....@AX.|...@@...|
|000016c0| 89 16 08 aa 69 0e 07 0e | 08 40 41 5a 16 07 0e 08 |....i...|.@AZ....|
|000016d0| 41 89 16 08 ac 5a 0e 06 | 2a 87 22 20 5b 63 6f 75 |A....Z..|*." [cou|
|000016e0| 6e 74 20 30 20 6c 6f 67 | 61 6e 64 20 63 6f 6e 78 |nt 0 log|and conx|
|000016f0| 2d 6d 6f 73 74 2d 70 6f | 73 69 74 69 76 65 2d 66 |-most-po|sitive-f|
|00001700| 69 78 6e 75 6d 20 72 61 | 6e 64 6f 6d 20 6e 69 6c |ixnum ra|ndom nil|
|00001710| 20 61 6e 73 20 66 6f 6c | 6c 20 6c 69 73 74 5d 20 | ans fol|l list] |
|00001720| 34 5d 20 63 6f 6e 78 2d | 72 61 6e 64 6f 6d 2d 73 |4] conx-|random-s|
|00001730| 75 63 63 20 23 5b 28 77 | 6f 72 64 29 20 22 08 4a |ucc #[(w|ord) ".J|
|00001740| c1 48 c2 55 ab 82 08 87 | c3 08 4a c1 48 08 4a c4 |.H.U....|..J.H.J.|
|00001750| 48 5c 22 1d c6 0e 07 c8 | 20 5c 22 0e 09 a6 c2 55 |H\".....| \"....U|
|00001760| ab 8e ca c3 0d 4a cb 48 | 0d 4a cc 48 5c 22 21 aa |.....J.H|.J.H\"!.|
|00001770| 81 0d 29 87 22 20 5b 77 | 6f 72 64 20 38 20 30 20 |..)." [w|ord 8 0 |
|00001780| 63 6f 6e 78 2d 72 61 6e | 64 6f 6d 2d 72 65 6c 61 |conx-ran|dom-rela|
|00001790| 74 65 64 20 36 20 6e 65 | 78 74 20 6c 6f 67 61 6e |ted 6 ne|xt logan|
|000017a0| 64 20 63 6f 6e 78 2d 6d | 6f 73 74 2d 70 6f 73 69 |d conx-m|ost-posi|
|000017b0| 74 69 76 65 2d 66 69 78 | 6e 75 6d 20 72 61 6e 64 |tive-fix|num rand|
|000017c0| 6f 6d 20 63 6f 6e 78 2d | 62 6f 75 6e 63 65 20 63 |om conx-|bounce c|
|000017d0| 6f 6e 78 2d 72 61 6e 64 | 6f 6d 2d 73 75 63 63 20 |onx-rand|om-succ |
|000017e0| 39 20 37 5d 20 35 5d 20 | 63 6f 6e 78 2d 73 65 6e |9 7] 5] |conx-sen|
|000017f0| 74 65 6e 63 65 20 23 5b | 6e 69 6c 20 22 08 c1 5c |tence #[|nil "..\|
|00001800| 6e c3 20 5c 22 0c a6 48 | 1d c6 1e 07 60 1e 08 c9 |n. \"..H|....`...|
|00001810| 1e 5c 6e c9 1e 0b c9 1e | 0c 0d 83 e7 00 c1 5c 6e |.\n.....|......\n|
|00001820| c3 20 5c 22 0d 4a 89 16 | 5c 6e cd 48 a6 16 0b 0e |. \".J..|\n.H....|
|00001830| 07 ac 8b 0e 5c 6e cd 48 | 0e 5c 6e ce 48 55 ab 98 |....\n.H|.\n.HU..|
|00001840| c9 16 07 cf 0d 21 89 16 | 0c cd 48 d0 5c 5c 63 88 |.....!..|..H.\\c.|
|00001850| 0e 0c ce c9 4f 63 88 aa | 85 cf 0d 21 63 88 0e 0b |....Oc..|...!c...|
|00001860| 0e 5c 6e d1 48 57 ab 85 | d2 63 88 aa f5 0e 0b 0e |.\n.HW..|.c......|
|00001870| 5c 6e d1 48 5a 89 16 0b | 0e 5c 6e d3 48 57 ab a7 |\n.HZ...|.\n.HW..|
|00001880| c9 15 c1 5c 6e c3 20 5c | 22 d4 a6 cd 55 ab 95 c1 |...\n. \|"...U...|
|00001890| 5c 6e c3 20 5c 22 d5 a6 | cd 55 ab 85 d6 63 88 aa |\n. \"..|.U...c..|
|000018a0| c7 d7 63 88 aa c2 d8 63 | 88 aa bd 0e 0b 0e 5c 6e |..c....c|......\n|
|000018b0| d3 48 5a 89 16 0b 0e 5c | 6e d5 48 57 ab 87 c9 15 |.HZ....\|n.HW....|
|000018c0| d9 63 88 aa a5 0e 0b 0e | 5c 6e d5 48 5a 89 16 0b |.c......|\n.HZ...|
|000018d0| 0e 5c 6e d4 48 57 ab 87 | c9 15 da 63 88 aa 8d db |.\n.HW..|...c....|
|000018e0| 63 88 0e 5c 6e dc 48 cd | 55 ab 82 c9 15 0d 83 19 |c..\n.H.|U.......|
|000018f0| 00 dd 0d 21 89 15 84 1d | 00 de 8a 0e 08 62 88 cd |...!....|.....b..|
|00001900| 79 88 60 29 60 5c 22 88 | 68 df 55 ab 97 c1 5c 6e |y.`)`\".|h.U...\n|
|00001910| c3 20 5c 22 d5 a6 cd 55 | ab 85 e0 63 88 aa 87 e1 |. \"...U|...c....|
|00001920| e2 21 88 e3 63 88 2e 06 | c9 87 22 20 5b 63 6f 6e |.!..c...|.." [con|
|00001930| 78 2d 77 6f 72 64 73 2d | 76 65 63 74 6f 72 20 6c |x-words-|vector l|
|00001940| 6f 67 61 6e 64 20 63 6f | 6e 78 2d 6d 6f 73 74 2d |ogand co|nx-most-|
|00001950| 70 6f 73 69 74 69 76 65 | 2d 66 69 78 6e 75 6d 20 |positive|-fixnum |
|00001960| 72 61 6e 64 6f 6d 20 63 | 6f 6e 78 2d 77 6f 72 64 |random c|onx-word|
|00001970| 73 2d 76 65 63 74 6f 72 | 2d 66 70 20 77 6f 72 64 |s-vector|-fp word|
|00001980| 20 74 20 66 69 72 73 74 | 2d 70 20 70 20 6e 69 6c | t first|-p p nil|
|00001990| 20 76 65 63 20 70 75 6e | 63 20 73 74 72 20 30 20 | vec pun|c str 0 |
|000019a0| 31 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 2d 33 |1 symbol|-name -3|
|000019b0| 32 20 32 20 22 2c 20 22 | 20 33 20 35 20 34 20 22 |2 2 ", "| 3 5 4 "|
|000019c0| 3a 20 22 20 22 3b 20 22 | 20 22 2e 20 20 22 20 22 |: " "; "| ". " "|
|000019d0| 3f 20 20 22 20 22 21 20 | 20 22 20 22 20 22 20 38 |? " "! | " " " 8|
|000019e0| 20 63 6f 6e 78 2d 72 61 | 6e 64 6f 6d 2d 73 75 63 | conx-ra|ndom-suc|
|000019f0| 63 20 66 69 6c 6c 2d 72 | 65 67 69 6f 6e 2d 61 73 |c fill-r|egion-as|
|00001a00| 2d 70 61 72 61 67 72 61 | 70 68 20 31 30 20 22 5c |-paragra|ph 10 "\|
|00001a10| 6e 22 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d |n" delet|e-char -|
|00001a20| 31 20 22 20 20 22 5d 20 | 35 5d 5d 20 32 29 0a 28 |1 " "] |5]] 2).(|
|00001a30| 66 73 65 74 20 27 63 6f | 6e 78 20 23 5b 6e 69 6c |fset 'co|nx #[nil|
|00001a40| 20 22 c0 c1 c2 21 71 21 | 88 c3 c4 c2 21 21 88 c5 | "...!q!|....!!..|
|00001a50| c6 21 88 64 62 88 c7 68 | c8 55 ab 83 c9 aa 81 ca |.!.db..h|.U......|
|00001a60| 21 88 cb 20 88 aa 6c 22 | 20 5b 64 69 73 70 6c 61 |!.. ..l"| [displa|
|00001a70| 79 2d 62 75 66 66 65 72 | 20 67 65 74 2d 62 75 66 |y-buffer| get-buf|
|00001a80| 66 65 72 2d 63 72 65 61 | 74 65 20 22 2a 63 6f 6e |fer-crea|te "*con|
|00001a90| 78 2a 22 20 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |x*" sele|ct-windo|
|00001aa0| 77 20 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e |w get-bu|ffer-win|
|00001ab0| 64 6f 77 20 6d 65 73 73 | 61 67 65 20 22 74 79 70 |dow mess|age "typ|
|00001ac0| 65 20 5e 47 20 74 6f 20 | 73 74 6f 70 2e 22 20 73 |e ^G to |stop." s|
|00001ad0| 69 74 2d 66 6f 72 20 31 | 30 20 32 20 30 20 63 6f |it-for 1|0 2 0 co|
|00001ae0| 6e 78 2d 73 65 6e 74 65 | 6e 63 65 5d 20 33 20 22 |nx-sente|nce] 3 "|
|00001af0| 5c 0a 47 65 6e 65 72 61 | 74 65 20 73 6f 6d 65 20 |\.Genera|te some |
|00001b00| 72 61 6e 64 6f 6d 20 73 | 65 6e 74 65 6e 63 65 73 |random s|entences|
|00001b10| 20 69 6e 20 74 68 65 20 | 2a 63 6f 6e 78 2a 20 62 | in the |*conx* b|
|00001b20| 75 66 66 65 72 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |uffer." |nil]).(f|
|00001b30| 73 65 74 20 27 63 6f 6e | 78 2d 67 6e 75 73 2d 73 |set 'con|x-gnus-s|
|00001b40| 6e 61 72 66 20 23 5b 6e | 69 6c 20 22 08 71 88 8a |narf #[n|il ".q..|
|00001b50| 8c 7e 88 65 62 88 c1 c2 | c3 c4 23 88 c5 60 64 5c |.~.eb...|..#..`d\|
|00001b60| 22 2a 87 22 20 5b 67 6e | 75 73 2d 41 72 74 69 63 |"*." [gn|us-Artic|
|00001b70| 6c 65 2d 62 75 66 66 65 | 72 20 73 65 61 72 63 68 |le-buffe|r search|
|00001b80| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 5c 6e 22 20 |-forward| "\n\n" |
|00001b90| 6e 69 6c 20 74 20 63 6f | 6e 78 2d 72 65 67 69 6f |nil t co|nx-regio|
|00001ba0| 6e 5d 20 34 20 22 5c 0a | 46 6f 72 20 75 73 65 20 |n] 4 "\.|For use |
|00001bb0| 61 73 20 61 20 67 6e 75 | 73 2d 53 65 6c 65 63 74 |as a gnu|s-Select|
|00001bc0| 2d 61 72 74 69 63 6c 65 | 2d 68 6f 6f 6b 2e 22 5d |-article|-hook."]|
|00001bd0| 29 0a 28 66 73 65 74 20 | 27 63 6f 6e 78 2d 73 61 |).(fset |'conx-sa|
|00001be0| 76 65 20 23 5b 28 66 69 | 6c 65 29 20 22 8a c0 19 |ve #[(fi|le) "...|
|00001bf0| c0 8e c2 c3 21 89 11 71 | 88 65 64 7c 88 c4 63 88 |....!..q|.ed|..c.|
|00001c00| c5 63 88 0e 06 ab 8b c7 | c8 c9 0e 06 ca 23 cb b1 |.c......|.....#..|
|00001c10| 03 88 cc cd 20 ce b1 03 | 88 60 cf d0 d1 1e 12 1e |.... ...|.`......|
|00001c20| 13 1e 14 1e 15 d6 63 88 | 0e 12 0e 17 57 ab 94 d8 |......c.|....W...|
|00001c30| 0e 19 0e 12 48 70 5c 22 | 88 da 63 88 0e 12 54 89 |....Hp\"|..c...T.|
|00001c40| 16 12 aa 67 db 63 88 dc | 0e 15 60 5c 22 88 cb 63 |...g.c..|..`\"..c|
|00001c50| 88 2c dd de 0e 1f 5c 22 | 88 65 62 88 e0 e1 c0 e2 |.,....\"|.eb.....|
|00001c60| 23 ab 86 e3 e4 21 88 aa | 73 e5 0e 26 21 88 e7 20 |#....!..|s..&!.. |
|00001c70| 88 29 09 ad 83 e8 09 21 | 2a 87 22 20 5b 6e 69 6c |.).....!|*." [nil|
|00001c80| 20 62 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 | b get-b|uffer-cr|
|00001c90| 65 61 74 65 20 22 2a 63 | 6f 6e 78 2d 73 61 76 65 |eate "*c|onx-save|
|00001ca0| 2d 74 6d 70 2a 22 20 22 | 3b 3b 3b 20 2d 2a 2d 20 |-tmp*" "|;;; -*- |
|00001cb0| 4d 6f 64 65 3a 45 6d 61 | 63 73 2d 4c 69 73 70 20 |Mode:Ema|cs-Lisp |
|00001cc0| 2d 2a 2d 5c 6e 22 20 22 | 3b 3b 3b 20 54 68 69 73 |-*-\n" "|;;; This|
|00001cd0| 20 69 73 20 61 20 43 4f | 4e 58 20 64 61 74 61 62 | is a CO|NX datab|
|00001ce0| 61 73 65 20 66 69 6c 65 | 2e 20 20 4c 6f 61 64 20 |ase file|. Load |
|00001cf0| 69 74 20 77 69 74 68 20 | 60 63 6f 6e 78 2d 6c 6f |it with |`conx-lo|
|00001d00| 61 64 27 2e 5c 6e 22 20 | 63 6f 6e 78 2d 66 69 6c |ad'.\n" |conx-fil|
|00001d10| 65 73 20 22 3b 3b 3b 20 | 43 6f 72 70 75 73 3a 20 |es ";;; |Corpus: |
|00001d20| 22 20 6d 61 70 63 6f 6e | 63 61 74 20 69 64 65 6e |" mapcon|cat iden|
|00001d30| 74 69 74 79 20 22 2c 20 | 22 20 22 5c 6e 22 20 22 |tity ", |" "\n" "|
|00001d40| 3b 3b 3b 20 44 61 74 65 | 3a 20 22 20 63 75 72 72 |;;; Date|: " curr|
|00001d50| 65 6e 74 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 20 |ent-time|-string |
|00001d60| 22 5c 6e 5c 6e 22 20 37 | 38 20 22 09 22 20 30 20 |"\n\n" 7|8 "." 0 |
|00001d70| 69 20 66 69 6c 6c 2d 70 | 72 65 66 69 78 20 66 69 |i fill-p|refix fi|
|00001d80| 6c 6c 2d 63 6f 6c 75 6d | 6e 20 70 20 22 28 21 21 |ll-colum|n p "(!!|
|00001d90| 20 5b 09 22 20 63 6f 6e | 78 2d 77 6f 72 64 73 2d | [." con|x-words-|
|00001da0| 76 65 63 74 6f 72 2d 66 | 70 20 70 72 69 6e 31 20 |vector-f|p prin1 |
|00001db0| 63 6f 6e 78 2d 77 6f 72 | 64 73 2d 76 65 63 74 6f |conx-wor|ds-vecto|
|00001dc0| 72 20 22 20 22 20 22 5d | 29 5c 6e 22 20 66 69 6c |r " " "]|)\n" fil|
|00001dd0| 6c 2d 72 65 67 69 6f 6e | 2d 61 73 2d 70 61 72 61 |l-region|-as-para|
|00001de0| 67 72 61 70 68 20 6d 61 | 70 61 74 6f 6d 73 20 23 |graph ma|patoms #|
|00001df0| 5b 28 73 79 6d 29 20 22 | c0 09 21 3f 3f ad 93 c2 |[(sym) "|..!??...|
|00001e00| 63 88 c3 09 70 5c 22 88 | c4 63 88 c3 09 4a 70 5c |c...p\".|.c...Jp\|
|00001e10| 22 88 c5 63 87 22 20 5b | 62 6f 75 6e 64 70 20 73 |"..c." [|boundp s|
|00001e20| 79 6d 20 22 28 21 20 22 | 20 70 72 69 6e 31 20 22 |ym "(! "| prin1 "|
|00001e30| 20 22 20 22 29 5c 6e 22 | 5d 20 33 5d 20 63 6f 6e | " ")\n"|] 3] con|
|00001e40| 78 2d 77 6f 72 64 73 2d | 68 61 73 68 74 61 62 6c |x-words-|hashtabl|
|00001e50| 65 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |e re-sea|rch-forw|
|00001e60| 61 72 64 20 22 5c 5c 62 | 6e 69 6c 5c 5c 62 22 20 |ard "\\b|nil\\b" |
|00001e70| 74 20 72 65 70 6c 61 63 | 65 2d 6d 61 74 63 68 20 |t replac|e-match |
|00001e80| 22 28 29 22 20 73 65 74 | 2d 76 69 73 69 74 65 64 |"()" set|-visited|
|00001e90| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 20 |-file-na|me file |
|00001ea0| 73 61 76 65 2d 62 75 66 | 66 65 72 20 6b 69 6c 6c |save-buf|fer kill|
|00001eb0| 2d 62 75 66 66 65 72 5d | 20 36 20 22 5c 0a 53 61 |-buffer]| 6 "\.Sa|
|00001ec0| 76 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 43 |ve the c|urrent C|
|00001ed0| 4f 4e 58 20 64 61 74 61 | 62 61 73 65 20 74 6f 20 |ONX data|base to |
|00001ee0| 61 20 66 69 6c 65 20 66 | 6f 72 20 66 75 74 75 72 |a file f|or futur|
|00001ef0| 65 20 72 65 74 72 69 65 | 76 61 6c 2e 0a 59 6f 75 |e retrie|val..You|
|00001f00| 20 63 61 6e 20 72 65 2d | 6c 6f 61 64 20 74 68 69 | can re-|load thi|
|00001f10| 73 20 64 61 74 61 62 61 | 73 65 20 77 69 74 68 20 |s databa|se with |
|00001f20| 74 68 65 20 5c 5c 5b 63 | 6f 6e 78 2d 6c 6f 61 64 |the \\[c|onx-load|
|00001f30| 5d 20 63 6f 6d 6d 61 6e | 64 2e 22 20 22 46 53 61 |] comman|d." "FSa|
|00001f40| 76 65 20 43 4f 4e 58 20 | 63 6f 72 70 75 73 20 74 |ve CONX |corpus t|
|00001f50| 6f 20 66 69 6c 65 3a 20 | 22 5d 29 0a 28 66 73 65 |o file: |"]).(fse|
|00001f60| 74 20 27 63 6f 6e 78 2d | 6c 6f 61 64 20 23 5b 28 |t 'conx-|load #[(|
|00001f70| 66 69 6c 65 29 20 22 c0 | 20 88 c1 c2 0b 5c 22 c4 |file) ".| ....\".|
|00001f80| 4d 88 c1 c5 0b 5c 22 c6 | 4d 88 0b 1e 07 c8 0e 09 |M....\".|M.......|
|00001f90| 21 29 87 22 20 5b 63 6f | 6e 78 2d 69 6e 69 74 20 |!)." [co|nx-init |
|00001fa0| 69 6e 74 65 72 6e 20 22 | 21 21 22 20 63 6f 6e 78 |intern "|!!" conx|
|00001fb0| 2d 77 6f 72 64 73 2d 68 | 61 73 68 74 61 62 6c 65 |-words-h|ashtable|
|00001fc0| 20 23 5b 28 76 65 63 29 | 20 22 08 11 08 47 89 12 | #[(vec)| "...G..|
|00001fd0| 87 22 20 5b 76 65 63 20 | 63 6f 6e 78 2d 77 6f 72 |." [vec |conx-wor|
|00001fe0| 64 73 2d 76 65 63 74 6f | 72 20 63 6f 6e 78 2d 77 |ds-vecto|r conx-w|
|00001ff0| 6f 72 64 73 2d 76 65 63 | 74 6f 72 2d 66 70 5d 20 |ords-vec|tor-fp] |
|00002000| 32 5d 20 22 21 22 20 73 | 65 74 71 20 6f 62 61 72 |2] "!" s|etq obar|
|00002010| 72 61 79 20 6c 6f 61 64 | 20 66 69 6c 65 5d 20 33 |ray load| file] 3|
|00002020| 20 22 5c 0a 4c 6f 61 64 | 20 69 6e 20 61 20 43 4f | "\.Load| in a CO|
|00002030| 4e 58 20 64 61 74 61 62 | 61 73 65 20 77 72 69 74 |NX datab|ase writ|
|00002040| 74 65 6e 20 62 79 20 74 | 68 65 20 5c 5c 5b 63 6f |ten by t|he \\[co|
|00002050| 6e 78 2d 73 61 76 65 5d | 20 63 6f 6d 6d 61 6e 64 |nx-save]| command|
|00002060| 2e 0a 54 68 69 73 20 63 | 6c 65 61 72 73 20 74 68 |..This c|lears th|
|00002070| 65 20 64 61 74 61 62 61 | 73 65 20 63 75 72 72 65 |e databa|se curre|
|00002080| 6e 74 6c 79 20 69 6e 20 | 6d 65 6d 6f 72 79 2e 22 |ntly in |memory."|
|00002090| 20 22 66 4c 6f 61 64 20 | 43 4f 4e 58 20 63 6f 72 | "fLoad |CONX cor|
|000020a0| 70 75 73 20 66 72 6f 6d | 20 66 69 6c 65 3a 20 22 |pus from| file: "|
|000020b0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|000020c0| c1 4d 88 c2 c3 21 ac 82 | c4 13 c2 c5 21 ac 82 c6 |.M...!..|....!...|
|000020d0| 15 c7 c8 4d 88 c9 ca 4d | 87 22 20 5b 63 6f 6e 78 |...M...M|." [conx|
|000020e0| 2d 65 6d 69 74 2d 63 2d | 64 61 74 61 20 23 5b 6e |-emit-c-|data #[n|
|000020f0| 69 6c 20 22 c0 70 c1 c0 | 89 89 1a 1b 1c 1d 1e 06 |il ".p..|........|
|00002100| 1e 07 0e 08 ac 84 c9 ca | 21 88 cb 1e 0c cd ce 0e |........|!.......|
|00002110| 08 5c 22 88 29 0e 07 9f | 89 16 07 47 cf 5f 13 d0 |.\".)...|...G._..|
|00002120| d1 d2 21 ab 87 d3 0b 21 | d4 a5 aa 83 0b d4 a5 5d |..!....!|.......]|
|00002130| 12 cb 14 0e 07 d5 c0 89 | 1e 16 1e 17 1e 0c 1e 18 |........|........|
|00002140| d9 da 21 88 0e 18 83 f5 | 00 0e 18 40 41 4a 89 16 |..!.....|...@AJ..|
|00002150| 16 db 48 16 17 0c 54 14 | 0e 17 ab b4 d9 0e 17 40 |..H...T.|.......@|
|00002160| 41 21 88 d9 dc 21 88 d9 | dd 0e 17 40 40 0e 07 5c |A!...!..|...@@..\|
|00002170| 22 40 21 88 d9 dc 21 88 | 0e 0c 54 89 16 0c de 56 |"@!...!.|..T....V|
|00002180| ab 87 d9 df 21 88 cb 16 | 0c 0e 17 41 89 16 17 ac |....!...|...A....|
|00002190| 4c e0 e1 0c 5c 6e a5 5c | 22 88 0c 54 14 0e 16 e2 |L...\n.\|"..T....|
|000021a0| 48 89 16 17 ab b4 d9 0e | 17 40 41 21 88 d9 dc 21 |H.......|.@A!...!|
|000021b0| 88 d9 dd 0e 17 40 40 0e | 07 5c 22 40 21 88 d9 dc |.....@@.|.\"@!...|
|000021c0| 21 88 0e 0c 54 89 16 0c | de 56 ab 87 d9 df 21 88 |!...T...|.V....!.|
|000021d0| cb 16 0c 0e 17 41 89 16 | 17 ac 4c e0 e1 0c 5c 6e |.....A..|..L...\n|
|000021e0| a5 5c 22 88 0c 54 14 0e | 18 41 89 16 18 84 54 00 |.\"..T..|.A....T.|
|000021f0| 2c d9 e3 21 88 0e 07 cb | e4 c0 89 1e 16 1e 25 1e |,..!....|......%.|
|00002200| 26 1e 0c 89 1e 18 ab c7 | e7 0e 18 40 41 21 89 16 |&.......|...@A!..|
|00002210| 16 47 54 16 25 0e 0c 0e | 25 5c 5c 16 0c 0e 26 0e |.GT.%...|%\\...&.|
|00002220| 25 e8 5c 5c 5c 5c 89 16 | 26 e9 56 ab 8a d9 ea 21 |%.\\\\..|&.V....!|
|00002230| 88 0e 25 e8 5c 5c 16 26 | d9 0e 16 21 88 d9 eb 21 |..%.\\.&|...!...!|
|00002240| 88 e0 e1 0c 5c 6e a5 5c | 22 88 0c 54 14 0e 18 41 |....\n.\|"..T...A|
|00002250| 89 16 18 ac 39 2d d9 ec | 21 88 0e 07 cb 89 c0 89 |....9-..|!.......|
|00002260| 89 1e 16 1e 2d 1e 2e 1e | 26 1e 0c 89 1e 18 83 5a |....-...|&......Z|
|00002270| 02 0e 18 40 16 2e e7 0e | 2e 41 21 16 2d 0e 2e 41 |...@....|.A!.-..A|
|00002280| 4a 16 16 d9 ef 21 88 d9 | 0e 16 cb 48 21 88 d9 dc |J....!..|...H!...|
|00002290| 21 88 d9 0e 16 d0 48 21 | 88 d9 dc 21 88 d9 0e 16 |!.....H!|...!....|
|000022a0| f0 48 21 88 d9 dc 21 88 | d9 0e 16 e8 48 21 88 d9 |.H!...!.|....H!..|
|000022b0| dc 21 88 d9 0e 16 cf 48 | 21 88 d9 dc 21 88 d9 0e |.!.....H|!...!...|
|000022c0| 16 d5 48 21 88 0e 16 db | 48 ac 86 d9 f1 21 88 aa |..H!....|H....!..|
|000022d0| 95 d9 dc 21 88 d9 0e 0c | 21 88 0e 0c 0e 16 db 48 |...!....|!......H|
|000022e0| 47 f0 5f 5c 5c 16 0c 0e | 16 e2 48 ac 86 d9 f2 21 |G._\\...|..H....!|
|000022f0| 88 aa 99 d9 dc 21 88 d9 | 0e 0c 21 88 d9 dc 21 88 |.....!..|..!...!.|
|00002300| 0e 0c 0e 16 e2 48 47 f0 | 5f 5c 5c 16 0c d9 0e 16 |.....HG.|_\\.....|
|00002310| f3 48 21 88 d9 dc 21 88 | d9 0e 16 f4 48 21 88 d9 |.H!...!.|....H!..|
|00002320| dc 21 88 d9 0e 26 21 88 | 0e 26 0e 2d 47 d0 5c 5c |.!...&!.|.&.-G.\\|
|00002330| 5c 5c 16 26 d9 0e 18 41 | ab 8f 0e 2e 40 f0 a6 cb |\\.&...A|....@...|
|00002340| 55 ab 83 f5 aa 84 f6 aa | 81 f7 21 88 e0 e1 0c 5c |U.......|..!....\|
|00002350| 6e a5 5c 22 88 0c 54 14 | 0e 18 41 89 16 18 84 70 |n.\"..T.|..A....p|
|00002360| 01 2e 06 d9 f8 21 88 d9 | 0e 39 21 88 d9 df 21 88 |.....!..|.9!...!.|
|00002370| e0 fa 21 2e 06 87 22 20 | 5b 6e 69 6c 20 22 25 2e |..!..." |[nil "%.|
|00002380| 32 66 22 20 74 6f 74 61 | 6c 31 30 30 20 74 6f 74 |2f" tota|l100 tot|
|00002390| 61 6c 20 63 6f 75 6e 74 | 20 66 6c 6f 61 74 2d 6f |al count| float-o|
|000023a0| 75 74 70 75 74 2d 66 6f | 72 6d 61 74 20 73 74 61 |utput-fo|rmat sta|
|000023b0| 6e 64 61 72 64 2d 6f 75 | 74 70 75 74 20 61 6c 6c |ndard-ou|tput all|
|000023c0| 20 63 6f 6e 78 2d 77 6f | 72 64 73 2d 68 61 73 68 | conx-wo|rds-hash|
|000023d0| 74 61 62 6c 65 20 65 72 | 72 6f 72 20 22 6e 6f 20 |table er|ror "no |
|000023e0| 77 6f 72 64 73 22 20 30 | 20 69 20 6d 61 70 61 74 |words" 0| i mapat|
|000023f0| 6f 6d 73 20 23 5b 28 78 | 29 20 22 c0 09 21 ad 8a |oms #[(x|) "..!..|
|00002400| 5c 6e 09 42 0b 42 13 5c | 6e 54 89 12 87 22 20 5b |\n.B.B.\|nT..." [|
|00002410| 62 6f 75 6e 64 70 20 78 | 20 69 20 61 6c 6c 5d 20 |boundp x| i all] |
|00002420| 32 5d 20 34 20 31 20 66 | 65 61 74 75 72 65 70 20 |2] 4 1 f|eaturep |
|00002430| 6c 69 73 70 2d 66 6c 6f | 61 74 2d 74 79 70 65 20 |lisp-flo|at-type |
|00002440| 66 6c 6f 61 74 20 31 30 | 30 20 35 20 77 6f 72 64 |float 10|0 5 word|
|00002450| 20 72 65 73 74 32 20 72 | 65 73 74 20 70 72 69 6e | rest2 r|est prin|
|00002460| 63 20 22 73 74 61 74 69 | 63 20 75 6e 73 69 67 6e |c "stati|c unsign|
|00002470| 65 64 20 73 68 6f 72 74 | 20 44 5b 5d 20 3d 20 7b |ed short| D[] = {|
|00002480| 22 20 37 20 22 2c 22 20 | 72 61 73 73 71 20 31 30 |" 7 "," |rassq 10|
|00002490| 20 22 5c 6e 22 20 6d 65 | 73 73 61 67 65 20 22 57 | "\n" me|ssage "W|
|000024a0| 72 69 74 69 6e 67 20 43 | 20 63 6f 64 65 2e 2e 2e |riting C| code...|
|000024b0| 20 25 73 25 25 22 20 36 | 20 22 30 7d 3b 5c 6e 73 | %s%%" 6| "0};\ns|
|000024c0| 74 61 74 69 63 20 63 68 | 61 72 20 54 5b 5d 20 3d |tatic ch|ar T[] =|
|000024d0| 20 5c 22 22 20 32 30 20 | 6b 20 6a 20 73 79 6d 62 | \"" 20 |k j symb|
|000024e0| 6f 6c 2d 6e 61 6d 65 20 | 33 20 37 38 20 22 5c 5c |ol-name |3 78 "\\|
|000024f0| 5c 6e 22 20 22 5c 5c 30 | 30 30 22 20 22 5c 22 3b |\n" "\\0|00" "\";|
|00002500| 5c 6e 73 74 61 74 69 63 | 20 73 74 72 75 63 74 20 |\nstatic| struct |
|00002510| 63 6f 6e 78 5f 77 6f 72 | 64 20 77 6f 72 64 73 20 |conx_wor|d words |
|00002520| 5b 5d 20 3d 20 7b 22 20 | 6e 61 6d 65 20 63 6f 6e |[] = {" |name con|
|00002530| 73 20 22 7b 22 20 32 20 | 22 2c 30 22 20 22 2c 30 |s "{" 2 |",0" ",0|
|00002540| 2c 22 20 39 20 38 20 22 | 7d 2c 5c 6e 22 20 22 7d |," 9 8 "|},\n" "}|
|00002550| 2c 22 20 22 7d 22 20 22 | 7d 3b 5c 6e 23 64 65 66 |," "}" "|};\n#def|
|00002560| 69 6e 65 20 63 6f 6e 78 | 5f 62 6f 75 6e 63 65 20 |ine conx|_bounce |
|00002570| 22 20 63 6f 6e 78 2d 62 | 6f 75 6e 63 65 20 22 57 |" conx-b|ounce "W|
|00002580| 72 69 74 69 6e 67 20 43 | 20 63 6f 64 65 2e 2e 2e |riting C| code...|
|00002590| 20 64 6f 6e 65 2e 22 5d | 20 37 5d 20 62 6f 75 6e | done."]| 7] boun|
|000025a0| 64 70 20 63 6f 6e 78 2d | 63 2d 70 72 6f 6c 6f 67 |dp conx-|c-prolog|
|000025b0| 20 22 23 69 66 20 5f 5f | 53 54 44 43 5f 5f 5c 6e | "#if __|STDC__\n|
|000025c0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 64 65 66 |#include| <stddef|
|000025d0| 2e 68 3e 5c 6e 23 69 6e | 63 6c 75 64 65 20 3c 75 |.h>\n#in|clude <u|
|000025e0| 6e 69 73 74 64 2e 68 3e | 5c 6e 65 78 74 65 72 6e |nistd.h>|\nextern|
|000025f0| 20 6c 6f 6e 67 20 72 61 | 6e 64 6f 6d 20 28 76 6f | long ra|ndom (vo|
|00002600| 69 64 29 3b 5c 6e 65 78 | 74 65 72 6e 20 76 6f 69 |id);\nex|tern voi|
|00002610| 64 20 73 72 61 6e 64 6f | 6d 20 28 69 6e 74 29 3b |d srando|m (int);|
|00002620| 5c 6e 65 78 74 65 72 6e | 20 76 6f 69 64 20 61 62 |\nextern| void ab|
|00002630| 6f 72 74 20 28 76 6f 69 | 64 29 3b 5c 6e 23 65 6e |ort (voi|d);\n#en|
|00002640| 64 69 66 5c 6e 23 69 6e | 63 6c 75 64 65 20 3c 73 |dif\n#in|clude <s|
|00002650| 74 64 69 6f 2e 68 3e 5c | 6e 23 69 6e 63 6c 75 64 |tdio.h>\|n#includ|
|00002660| 65 20 3c 74 69 6d 65 2e | 68 3e 5c 6e 5c 6e 73 74 |e <time.|h>\n\nst|
|00002670| 72 75 63 74 20 63 6f 6e | 78 5f 77 6f 72 64 20 7b |ruct con|x_word {|
|00002680| 5c 6e 20 20 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |\n unsi|gned sho|
|00002690| 72 74 20 63 6f 75 6e 74 | 3b 5c 6e 20 20 75 6e 73 |rt count|;\n uns|
|000026a0| 69 67 6e 65 64 20 73 68 | 6f 72 74 20 63 61 70 3b |igned sh|ort cap;|
|000026b0| 5c 6e 20 20 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |\n unsi|gned sho|
|000026c0| 72 74 20 63 6f 6d 6d 61 | 3b 5c 6e 20 20 75 6e 73 |rt comma|;\n uns|
|000026d0| 69 67 6e 65 64 20 73 68 | 6f 72 74 20 70 65 72 69 |igned sh|ort peri|
|000026e0| 6f 64 3b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |od;\n u|nsigned |
|000026f0| 73 68 6f 72 74 20 71 75 | 65 6d 3b 5c 6e 20 20 75 |short qu|em;\n u|
|00002700| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 62 61 |nsigned |short ba|
|00002710| 6e 67 3b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |ng;\n u|nsigned |
|00002720| 73 68 6f 72 74 20 70 72 | 65 64 3b 5c 6e 20 20 75 |short pr|ed;\n u|
|00002730| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 73 75 |nsigned |short su|
|00002740| 63 63 3b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |cc;\n u|nsigned |
|00002750| 73 68 6f 72 74 20 6e 70 | 72 65 64 3b 5c 6e 20 20 |short np|red;\n |
|00002760| 75 6e 73 69 67 6e 65 64 | 20 73 68 6f 72 74 20 6e |unsigned| short n|
|00002770| 73 75 63 63 3b 5c 6e 20 | 20 75 6e 73 69 67 6e 65 |succ;\n | unsigne|
|00002780| 64 20 73 68 6f 72 74 20 | 74 65 78 74 3b 5c 6e 7d |d short |text;\n}|
|00002790| 3b 5c 6e 22 20 63 6f 6e | 78 2d 63 2d 63 6f 64 65 |;\n" con|x-c-code|
|000027a0| 20 22 23 64 65 66 69 6e | 65 20 63 6f 75 6e 74 6f | "#defin|e counto|
|000027b0| 66 28 78 29 20 28 73 69 | 7a 65 6f 66 28 28 78 29 |f(x) (si|zeof((x)|
|000027c0| 29 20 2f 20 73 69 7a 65 | 6f 66 28 2a 28 78 29 29 |) / size|of(*(x))|
|000027d0| 29 5c 6e 23 64 65 66 69 | 6e 65 20 63 6f 6e 78 5f |)\n#defi|ne conx_|
|000027e0| 72 61 6e 64 28 6e 29 20 | 28 72 61 6e 64 6f 6d 28 |rand(n) |(random(|
|000027f0| 29 25 28 6e 29 29 5c 6e | 5c 6e 73 74 61 74 69 63 |)%(n))\n|\nstatic|
|00002800| 20 73 74 72 75 63 74 20 | 63 6f 6e 78 5f 77 6f 72 | struct |conx_wor|
|00002810| 64 20 2a 5c 6e 63 6f 6e | 78 5f 72 61 6e 64 6f 6d |d *\ncon|x_random|
|00002820| 5f 72 65 6c 61 74 65 64 | 20 28 63 6f 75 6e 74 2c |_related| (count,|
|00002830| 20 77 68 69 63 68 5f 6c | 69 73 74 29 5c 6e 20 20 | which_l|ist)\n |
|00002840| 20 20 20 75 6e 73 69 67 | 6e 65 64 20 73 68 6f 72 | unsig|ned shor|
|00002850| 74 20 63 6f 75 6e 74 2c | 20 77 68 69 63 68 5f 6c |t count,| which_l|
|00002860| 69 73 74 3b 5c 6e 7b 5c | 6e 20 20 75 6e 73 69 67 |ist;\n{\|n unsig|
|00002870| 6e 65 64 20 73 68 6f 72 | 74 20 2a 6c 69 73 74 20 |ned shor|t *list |
|00002880| 3d 20 44 20 2b 20 77 68 | 69 63 68 5f 6c 69 73 74 |= D + wh|ich_list|
|00002890| 3b 5c 6e 20 20 69 6e 74 | 20 69 20 3d 20 30 3b 5c |;\n int| i = 0;\|
|000028a0| 6e 20 20 75 6e 73 69 67 | 6e 65 64 20 73 68 6f 72 |n unsig|ned shor|
|000028b0| 74 20 66 6f 6c 6c 20 3d | 20 28 63 6f 75 6e 74 20 |t foll =| (count |
|000028c0| 3d 3d 20 30 20 3f 20 30 | 20 3a 20 63 6f 6e 78 5f |== 0 ? 0| : conx_|
|000028d0| 72 61 6e 64 20 28 63 6f | 75 6e 74 29 29 3b 5c 6e |rand (co|unt));\n|
|000028e0| 20 20 77 68 69 6c 65 20 | 28 31 29 5c 6e 20 20 20 | while |(1)\n |
|000028f0| 20 7b 5c 6e 20 20 20 20 | 20 20 69 66 20 28 66 6f | {\n | if (fo|
|00002900| 6c 6c 20 3c 3d 20 6c 69 | 73 74 20 5b 69 20 2a 20 |ll <= li|st [i * |
|00002910| 32 5d 29 5c 6e 09 7b 5c | 6e 09 20 20 69 66 20 28 |2])\n.{\|n. if (|
|00002920| 28 6c 69 73 74 20 5b 69 | 20 2a 20 32 20 2b 20 31 |(list [i| * 2 + 1|
|00002930| 5d 29 20 3e 20 63 6f 75 | 6e 74 6f 66 20 28 77 6f |]) > cou|ntof (wo|
|00002940| 72 64 73 29 29 5c 6e 09 | 20 20 20 20 61 62 6f 72 |rds))\n.| abor|
|00002950| 74 20 28 29 3b 5c 6e 09 | 20 20 72 65 74 75 72 6e |t ();\n.| return|
|00002960| 20 26 77 6f 72 64 73 20 | 5b 6c 69 73 74 20 5b 69 | &words |[list [i|
|00002970| 20 2a 20 32 20 2b 20 31 | 5d 5d 3b 5c 6e 09 7d 5c | * 2 + 1|]];\n.}\|
|00002980| 6e 20 20 20 20 20 20 66 | 6f 6c 6c 20 2d 3d 20 6c |n f|oll -= l|
|00002990| 69 73 74 20 5b 69 20 2a | 20 32 5d 3b 5c 6e 20 20 |ist [i *| 2];\n |
|000029a0| 20 20 20 20 69 2b 2b 3b | 5c 6e 20 20 20 20 7d 5c | i++;|\n }\|
|000029b0| 6e 7d 5c 6e 5c 6e 73 74 | 61 74 69 63 20 73 74 72 |n}\n\nst|atic str|
|000029c0| 75 63 74 20 63 6f 6e 78 | 5f 77 6f 72 64 20 2a 5c |uct conx|_word *\|
|000029d0| 6e 63 6f 6e 78 5f 72 61 | 6e 64 6f 6d 5f 73 75 63 |nconx_ra|ndom_suc|
|000029e0| 63 20 28 77 6f 72 64 29 | 5c 6e 20 20 20 20 20 73 |c (word)|\n s|
|000029f0| 74 72 75 63 74 20 63 6f | 6e 78 5f 77 6f 72 64 20 |truct co|nx_word |
|00002a00| 2a 77 6f 72 64 3b 5c 6e | 7b 5c 6e 20 20 69 66 20 |*word;\n|{\n if |
|00002a10| 28 77 6f 72 64 2d 3e 6e | 73 75 63 63 20 3d 3d 20 |(word->n|succ == |
|00002a20| 30 29 5c 6e 20 20 20 20 | 72 65 74 75 72 6e 20 77 |0)\n |return w|
|00002a30| 6f 72 64 3b 5c 6e 20 20 | 65 6c 73 65 5c 6e 20 20 |ord;\n |else\n |
|00002a40| 20 20 7b 5c 6e 20 20 20 | 20 20 20 73 74 72 75 63 | {\n | struc|
|00002a50| 74 20 63 6f 6e 78 5f 77 | 6f 72 64 20 2a 6e 65 78 |t conx_w|ord *nex|
|00002a60| 74 20 3d 20 63 6f 6e 78 | 5f 72 61 6e 64 6f 6d 5f |t = conx|_random_|
|00002a70| 72 65 6c 61 74 65 64 20 | 28 77 6f 72 64 2d 3e 6e |related |(word->n|
|00002a80| 73 75 63 63 2c 20 77 6f | 72 64 2d 3e 73 75 63 63 |succ, wo|rd->succ|
|00002a90| 29 3b 5c 6e 20 20 20 20 | 20 20 69 66 20 28 63 6f |);\n | if (co|
|00002aa0| 6e 78 5f 72 61 6e 64 20 | 28 63 6f 6e 78 5f 62 6f |nx_rand |(conx_bo|
|00002ab0| 75 6e 63 65 29 20 21 3d | 20 30 29 5c 6e 09 72 65 |unce) !=| 0)\n.re|
|00002ac0| 74 75 72 6e 20 6e 65 78 | 74 3b 5c 6e 20 20 20 20 |turn nex|t;\n |
|00002ad0| 20 20 72 65 74 75 72 6e | 20 63 6f 6e 78 5f 72 61 | return| conx_ra|
|00002ae0| 6e 64 6f 6d 5f 73 75 63 | 63 20 28 63 6f 6e 78 5f |ndom_suc|c (conx_|
|00002af0| 72 61 6e 64 6f 6d 5f 72 | 65 6c 61 74 65 64 20 28 |random_r|elated (|
|00002b00| 6e 65 78 74 2d 3e 6e 70 | 72 65 64 2c 20 6e 65 78 |next->np|red, nex|
|00002b10| 74 2d 3e 70 72 65 64 29 | 29 3b 5c 6e 20 20 20 20 |t->pred)|);\n |
|00002b20| 7d 5c 6e 7d 5c 6e 5c 6e | 73 74 61 74 69 63 20 76 |}\n}\n\n|static v|
|00002b30| 6f 69 64 5c 6e 63 6f 6e | 78 5f 73 65 6e 74 65 6e |oid\ncon|x_senten|
|00002b40| 63 65 20 28 29 5c 6e 7b | 5c 6e 20 20 73 74 61 74 |ce ()\n{|\n stat|
|00002b50| 69 63 20 69 6e 74 20 78 | 20 3d 20 30 3b 5c 6e 20 |ic int x| = 0;\n |
|00002b60| 20 73 74 72 75 63 74 20 | 63 6f 6e 78 5f 77 6f 72 | struct |conx_wor|
|00002b70| 64 20 2a 77 6f 72 64 20 | 3d 20 30 3b 5c 6e 20 20 |d *word |= 0;\n |
|00002b80| 69 6e 74 20 66 69 72 73 | 74 5f 70 20 3d 20 31 3b |int firs|t_p = 1;|
|00002b90| 5c 6e 20 20 69 6e 74 20 | 64 6f 6e 65 20 3d 20 30 |\n int |done = 0|
|00002ba0| 3b 5c 6e 20 20 69 6e 74 | 20 63 6f 75 6e 74 20 3d |;\n int| count =|
|00002bb0| 20 30 3b 5c 6e 20 20 77 | 68 69 6c 65 20 28 21 64 | 0;\n w|hile (!d|
|00002bc0| 6f 6e 65 29 5c 6e 20 20 | 20 20 7b 5c 6e 20 20 20 |one)\n | {\n |
|00002bd0| 20 20 20 69 6e 74 20 70 | 75 6e 63 3b 5c 6e 20 20 | int p|unc;\n |
|00002be0| 20 20 20 20 63 68 61 72 | 20 2a 74 65 78 74 3b 5c | char| *text;\|
|00002bf0| 6e 20 20 20 20 20 20 69 | 6e 74 20 4c 3b 5c 6e 20 |n i|nt L;\n |
|00002c00| 20 20 20 20 20 69 66 20 | 28 77 6f 72 64 29 5c 6e | if |(word)\n|
|00002c10| 09 77 6f 72 64 20 3d 20 | 63 6f 6e 78 5f 72 61 6e |.word = |conx_ran|
|00002c20| 64 6f 6d 5f 73 75 63 63 | 20 28 77 6f 72 64 29 3b |dom_succ| (word);|
|00002c30| 5c 6e 20 20 20 20 20 20 | 65 6c 73 65 5c 6e 09 77 |\n |else\n.w|
|00002c40| 6f 72 64 20 3d 20 26 77 | 6f 72 64 73 20 5b 63 6f |ord = &w|ords [co|
|00002c50| 6e 78 5f 72 61 6e 64 20 | 28 63 6f 75 6e 74 6f 66 |nx_rand |(countof|
|00002c60| 20 28 77 6f 72 64 73 29 | 29 5d 3b 5c 6e 20 20 20 | (words)|)];\n |
|00002c70| 20 20 20 63 6f 75 6e 74 | 2b 2b 3b 5c 6e 20 20 20 | count|++;\n |
|00002c80| 20 20 20 70 75 6e 63 20 | 3d 20 63 6f 6e 78 5f 72 | punc |= conx_r|
|00002c90| 61 6e 64 20 28 77 6f 72 | 64 2d 3e 63 6f 75 6e 74 |and (wor|d->count|
|00002ca0| 29 3b 5c 6e 20 20 20 20 | 20 20 74 65 78 74 20 3d |);\n | text =|
|00002cb0| 20 54 20 2b 20 77 6f 72 | 64 2d 3e 74 65 78 74 3b | T + wor|d->text;|
|00002cc0| 5c 6e 20 20 20 20 20 20 | 4c 20 3d 20 73 74 72 6c |\n |L = strl|
|00002cd0| 65 6e 20 28 74 65 78 74 | 29 3b 5c 6e 20 20 20 20 |en (text|);\n |
|00002ce0| 20 20 69 66 20 28 78 20 | 2b 20 4c 20 3e 20 37 30 | if (x |+ L > 70|
|00002cf0| 29 5c 6e 09 7b 5c 6e 09 | 20 20 70 75 74 63 68 61 |)\n.{\n.| putcha|
|00002d00| 72 20 28 27 5c 5c 6e 27 | 29 3b 5c 6e 09 20 20 78 |r ('\\n'|);\n. x|
|00002d10| 20 3d 20 30 3b 5c 6e 09 | 7d 5c 6e 20 20 20 20 20 | = 0;\n.|}\n |
|00002d20| 20 78 20 2b 3d 20 4c 2b | 31 3b 5c 6e 5c 6e 20 20 | x += L+|1;\n\n |
|00002d30| 20 20 20 20 69 66 20 28 | 66 69 72 73 74 5f 70 20 | if (|first_p |
|00002d40| 7c 7c 20 28 77 6f 72 64 | 2d 3e 63 6f 75 6e 74 20 ||| (word|->count |
|00002d50| 3d 3d 20 77 6f 72 64 2d | 3e 63 61 70 29 29 5c 6e |== word-|>cap))\n|
|00002d60| 09 7b 5c 6e 09 20 20 70 | 75 74 63 68 61 72 20 28 |.{\n. p|utchar (|
|00002d70| 28 2a 74 65 78 74 20 3e | 3d 20 27 61 27 20 26 26 |(*text >|= 'a' &&|
|00002d80| 20 2a 74 65 78 74 20 3c | 3d 20 27 7a 27 29 20 3f | *text <|= 'z') ?|
|00002d90| 20 2a 74 65 78 74 20 2b | 20 28 27 41 27 2d 27 61 | *text +| ('A'-'a|
|00002da0| 27 29 20 3a 20 2a 74 65 | 78 74 29 3b 5c 6e 09 20 |') : *te|xt);\n. |
|00002db0| 20 66 70 75 74 73 20 28 | 74 65 78 74 2b 31 2c 20 | fputs (|text+1, |
|00002dc0| 73 74 64 6f 75 74 29 3b | 5c 6e 09 20 20 66 69 72 |stdout);|\n. fir|
|00002dd0| 73 74 5f 70 20 3d 20 30 | 3b 5c 6e 09 7d 5c 6e 20 |st_p = 0|;\n.}\n |
|00002de0| 20 20 20 20 20 65 6c 73 | 65 5c 6e 09 66 70 75 74 | els|e\n.fput|
|00002df0| 73 20 28 74 65 78 74 2c | 20 73 74 64 6f 75 74 29 |s (text,| stdout)|
|00002e00| 3b 5c 6e 5c 6e 20 20 20 | 20 20 20 69 66 20 28 70 |;\n\n | if (p|
|00002e10| 75 6e 63 20 3c 20 77 6f | 72 64 2d 3e 63 6f 6d 6d |unc < wo|rd->comm|
|00002e20| 61 29 5c 6e 09 7b 5c 6e | 09 20 20 66 70 75 74 73 |a)\n.{\n|. fputs|
|00002e30| 20 28 5c 22 2c 20 5c 22 | 2c 20 73 74 64 6f 75 74 | (\", \"|, stdout|
|00002e40| 29 3b 5c 6e 09 20 20 78 | 2b 2b 3b 5c 6e 09 7d 5c |);\n. x|++;\n.}\|
|00002e50| 6e 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 |n e|lse if (|
|00002e60| 28 70 75 6e 63 20 2d 3d | 20 77 6f 72 64 2d 3e 63 |(punc -=| word->c|
|00002e70| 6f 6d 6d 61 29 20 3c 20 | 77 6f 72 64 2d 3e 70 65 |omma) < |word->pe|
|00002e80| 72 69 6f 64 29 5c 6e 09 | 7b 5c 6e 09 20 20 78 2b |riod)\n.|{\n. x+|
|00002e90| 2b 3b 5c 6e 09 20 20 69 | 66 20 28 63 6f 75 6e 74 |+;\n. i|f (count|
|00002ea0| 20 3e 20 31 32 30 20 7c | 7c 20 63 6f 6e 78 5f 72 | > 120 ||| conx_r|
|00002eb0| 61 6e 64 20 28 35 29 20 | 21 3d 20 30 29 5c 6e 09 |and (5) |!= 0)\n.|
|00002ec0| 20 20 20 20 7b 5c 6e 09 | 20 20 20 20 20 20 64 6f | {\n.| do|
|00002ed0| 6e 65 20 3d 20 31 3b 5c | 6e 09 20 20 20 20 20 20 |ne = 1;\|n. |
|00002ee0| 66 70 75 74 73 20 28 5c | 22 2e 20 20 5c 22 2c 20 |fputs (\|". \", |
|00002ef0| 73 74 64 6f 75 74 29 3b | 5c 6e 09 20 20 20 20 20 |stdout);|\n. |
|00002f00| 20 78 2b 2b 3b 5c 6e 09 | 20 20 20 20 7d 5c 6e 09 | x++;\n.| }\n.|
|00002f10| 20 20 65 6c 73 65 5c 6e | 09 20 20 20 20 7b 5c 6e | else\n|. {\n|
|00002f20| 09 20 20 20 20 20 20 77 | 6f 72 64 20 3d 20 30 3b |. w|ord = 0;|
|00002f30| 5c 6e 09 20 20 20 20 20 | 20 69 66 20 28 63 6f 6e |\n. | if (con|
|00002f40| 78 5f 72 61 6e 64 20 28 | 34 29 20 3d 3d 20 30 29 |x_rand (|4) == 0)|
|00002f50| 5c 6e 09 09 66 70 75 74 | 73 20 28 5c 22 3a 20 5c |\n..fput|s (\": \|
|00002f60| 22 2c 20 73 74 64 6f 75 | 74 29 3b 5c 6e 09 20 20 |", stdou|t);\n. |
|00002f70| 20 20 20 20 65 6c 73 65 | 5c 6e 09 09 66 70 75 74 | else|\n..fput|
|00002f80| 73 20 28 5c 22 3b 20 5c | 22 2c 20 73 74 64 6f 75 |s (\"; \|", stdou|
|00002f90| 74 29 3b 5c 6e 09 20 20 | 20 20 7d 5c 6e 09 7d 5c |t);\n. | }\n.}\|
|00002fa0| 6e 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 |n e|lse if (|
|00002fb0| 28 70 75 6e 63 20 2d 3d | 20 77 6f 72 64 2d 3e 70 |(punc -=| word->p|
|00002fc0| 65 72 69 6f 64 29 20 3c | 20 77 6f 72 64 2d 3e 71 |eriod) <| word->q|
|00002fd0| 75 65 6d 29 5c 6e 09 7b | 5c 6e 09 20 20 64 6f 6e |uem)\n.{|\n. don|
|00002fe0| 65 20 3d 20 31 3b 5c 6e | 09 20 20 66 70 75 74 73 |e = 1;\n|. fputs|
|00002ff0| 20 28 5c 22 3f 20 20 5c | 22 2c 20 73 74 64 6f 75 | (\"? \|", stdou|
|00003000| 74 29 3b 5c 6e 09 20 20 | 78 20 2b 3d 20 32 3b 5c |t);\n. |x += 2;\|
|00003010| 6e 09 7d 5c 6e 20 20 20 | 20 20 20 65 6c 73 65 20 |n.}\n | else |
|00003020| 69 66 20 28 28 70 75 6e | 63 20 2d 3d 20 77 6f 72 |if ((pun|c -= wor|
|00003030| 64 2d 3e 71 75 65 6d 29 | 20 3c 20 77 6f 72 64 2d |d->quem)| < word-|
|00003040| 3e 62 61 6e 67 29 5c 6e | 09 7b 5c 6e 09 20 20 64 |>bang)\n|.{\n. d|
|00003050| 6f 6e 65 20 3d 20 31 3b | 5c 6e 09 20 20 66 70 75 |one = 1;|\n. fpu|
|00003060| 74 73 20 28 5c 22 21 20 | 20 5c 22 2c 20 73 74 64 |ts (\"! | \", std|
|00003070| 6f 75 74 29 3b 5c 6e 09 | 20 20 78 20 2b 3d 20 32 |out);\n.| x += 2|
|00003080| 3b 5c 6e 09 7d 5c 6e 20 | 20 20 20 20 20 65 6c 73 |;\n.}\n | els|
|00003090| 65 5c 6e 09 7b 5c 6e 09 | 20 20 69 66 20 28 77 6f |e\n.{\n.| if (wo|
|000030a0| 72 64 2d 3e 6e 73 75 63 | 63 20 3d 3d 20 30 29 5c |rd->nsuc|c == 0)\|
|000030b0| 6e 09 20 20 20 20 7b 5c | 6e 09 20 20 20 20 20 20 |n. {\|n. |
|000030c0| 66 70 75 74 73 20 28 5c | 22 2e 20 20 5c 22 2c 20 |fputs (\|". \", |
|000030d0| 73 74 64 6f 75 74 29 3b | 5c 6e 09 20 20 20 20 20 |stdout);|\n. |
|000030e0| 20 78 20 2b 3d 20 32 3b | 5c 6e 09 20 20 20 20 20 | x += 2;|\n. |
|000030f0| 20 64 6f 6e 65 20 3d 20 | 31 3b 5c 6e 09 20 20 20 | done = |1;\n. |
|00003100| 20 7d 5c 6e 09 20 20 65 | 6c 73 65 5c 6e 09 20 20 | }\n. e|lse\n. |
|00003110| 20 20 70 75 74 63 68 61 | 72 20 28 27 20 27 29 3b | putcha|r (' ');|
|00003120| 5c 6e 09 7d 5c 6e 20 20 | 20 20 7d 5c 6e 20 20 69 |\n.}\n | }\n i|
|00003130| 66 20 28 63 6f 6e 78 5f | 72 61 6e 64 20 28 33 29 |f (conx_|rand (3)|
|00003140| 20 3d 3d 20 30 29 5c 6e | 20 20 20 20 7b 5c 6e 20 | == 0)\n| {\n |
|00003150| 20 20 20 20 20 66 70 75 | 74 73 20 28 5c 22 5c 5c | fpu|ts (\"\\|
|00003160| 6e 5c 5c 6e 5c 22 2c 20 | 73 74 64 6f 75 74 29 3b |n\\n\", |stdout);|
|00003170| 5c 6e 20 20 20 20 20 20 | 78 20 3d 20 30 3b 5c 6e |\n |x = 0;\n|
|00003180| 20 20 20 20 7d 5c 6e 7d | 5c 6e 5c 6e 6d 61 69 6e | }\n}|\n\nmain|
|00003190| 20 28 61 72 67 63 2c 20 | 61 72 67 76 29 5c 6e 20 | (argc, |argv)\n |
|000031a0| 20 20 20 20 69 6e 74 20 | 61 72 67 63 3b 5c 6e 20 | int |argc;\n |
|000031b0| 20 20 20 20 63 68 61 72 | 20 2a 2a 61 72 67 76 3b | char| **argv;|
|000031c0| 5c 6e 7b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |\n{\n u|nsigned |
|000031d0| 69 6e 74 20 68 6f 77 6d | 61 6e 79 2c 20 64 65 6c |int howm|any, del|
|000031e0| 61 79 3b 5c 6e 20 20 63 | 68 61 72 20 64 75 6d 6d |ay;\n c|har dumm|
|000031f0| 79 3b 5c 6e 20 20 69 66 | 20 28 61 72 67 63 20 3d |y;\n if| (argc =|
|00003200| 3d 20 31 29 5c 6e 20 20 | 20 20 7b 5c 6e 20 20 20 |= 1)\n | {\n |
|00003210| 20 20 20 68 6f 77 6d 61 | 6e 79 20 3d 20 31 3b 5c | howma|ny = 1;\|
|00003220| 6e 20 20 20 20 20 20 64 | 65 6c 61 79 20 3d 20 30 |n d|elay = 0|
|00003230| 3b 5c 6e 20 20 20 20 7d | 5c 6e 20 20 65 6c 73 65 |;\n }|\n else|
|00003240| 20 69 66 20 28 61 72 67 | 63 20 3d 3d 20 32 20 26 | if (arg|c == 2 &|
|00003250| 26 5c 6e 20 20 20 20 20 | 20 31 20 3d 3d 20 73 73 |&\n | 1 == ss|
|00003260| 63 61 6e 66 20 28 61 72 | 67 76 5b 31 5d 2c 20 5c |canf (ar|gv[1], \|
|00003270| 22 25 75 64 25 63 5c 22 | 2c 20 26 68 6f 77 6d 61 |"%ud%c\"|, &howma|
|00003280| 6e 79 2c 20 26 64 75 6d | 6d 79 29 29 5c 6e 20 20 |ny, &dum|my))\n |
|00003290| 20 20 64 65 6c 61 79 20 | 3d 20 30 3b 5c 6e 20 20 | delay |= 0;\n |
|000032a0| 65 6c 73 65 20 69 66 20 | 28 61 72 67 63 20 3d 3d |else if |(argc ==|
|000032b0| 20 33 20 26 26 5c 6e 09 | 20 20 20 31 20 3d 3d 20 | 3 &&\n.| 1 == |
|000032c0| 73 73 63 61 6e 66 20 28 | 61 72 67 76 5b 31 5d 2c |sscanf (|argv[1],|
|000032d0| 20 5c 22 25 75 64 25 63 | 5c 22 2c 20 26 68 6f 77 | \"%ud%c|\", &how|
|000032e0| 6d 61 6e 79 2c 20 26 64 | 75 6d 6d 79 29 20 26 26 |many, &d|ummy) &&|
|000032f0| 5c 6e 09 20 20 20 31 20 | 3d 3d 20 73 73 63 61 6e |\n. 1 |== sscan|
|00003300| 66 20 28 61 72 67 76 5b | 32 5d 2c 20 5c 22 25 75 |f (argv[|2], \"%u|
|00003310| 64 25 63 5c 22 2c 20 26 | 64 65 6c 61 79 2c 20 26 |d%c\", &|delay, &|
|00003320| 64 75 6d 6d 79 29 29 5c | 6e 20 20 20 20 3b 5c 6e |dummy))\|n ;\n|
|00003330| 20 20 65 6c 73 65 5c 6e | 20 20 20 20 7b 5c 6e 20 | else\n| {\n |
|00003340| 20 20 20 20 20 66 70 72 | 69 6e 74 66 20 28 73 74 | fpr|intf (st|
|00003350| 64 65 72 72 2c 20 5c 22 | 75 73 61 67 65 3a 20 25 |derr, \"|usage: %|
|00003360| 73 20 5b 63 6f 75 6e 74 | 20 5b 64 65 6c 61 79 5d |s [count| [delay]|
|00003370| 5d 5c 5c 6e 5c 22 2c 20 | 61 72 67 76 20 5b 30 5d |]\\n\", |argv [0]|
|00003380| 29 3b 5c 6e 20 20 20 20 | 20 20 65 78 69 74 20 28 |);\n | exit (|
|00003390| 31 29 3b 5c 6e 20 20 20 | 20 7d 5c 6e 5c 6e 20 20 |1);\n | }\n\n |
|000033a0| 73 72 61 6e 64 6f 6d 20 | 28 74 69 6d 65 20 28 30 |srandom |(time (0|
|000033b0| 29 29 3b 5c 6e 20 20 69 | 66 20 28 68 6f 77 6d 61 |));\n i|f (howma|
|000033c0| 6e 79 20 3d 3d 20 30 29 | 5c 6e 20 20 20 20 68 6f |ny == 0)|\n ho|
|000033d0| 77 6d 61 6e 79 20 3d 20 | 7e 30 3b 5c 6e 20 20 77 |wmany = |~0;\n w|
|000033e0| 68 69 6c 65 20 28 68 6f | 77 6d 61 6e 79 20 3e 20 |hile (ho|wmany > |
|000033f0| 30 29 5c 6e 20 20 20 20 | 7b 5c 6e 20 20 20 20 20 |0)\n |{\n |
|00003400| 20 63 6f 6e 78 5f 73 65 | 6e 74 65 6e 63 65 20 28 | conx_se|ntence (|
|00003410| 29 3b 5c 6e 20 20 20 20 | 20 20 66 66 6c 75 73 68 |);\n | fflush|
|00003420| 20 28 73 74 64 6f 75 74 | 29 3b 5c 6e 20 20 20 20 | (stdout|);\n |
|00003430| 20 20 68 6f 77 6d 61 6e | 79 2d 2d 3b 5c 6e 20 20 | howman|y--;\n |
|00003440| 20 20 20 20 69 66 20 28 | 64 65 6c 61 79 29 20 73 | if (|delay) s|
|00003450| 6c 65 65 70 20 28 64 65 | 6c 61 79 29 3b 5c 6e 20 |leep (de|lay);\n |
|00003460| 20 20 20 7d 5c 6e 20 20 | 70 75 74 63 68 61 72 20 | }\n |putchar |
|00003470| 28 27 5c 5c 6e 27 29 3b | 5c 6e 20 20 65 78 69 74 |('\\n');|\n exit|
|00003480| 20 28 30 29 3b 5c 6e 7d | 5c 6e 22 20 63 6f 6e 78 | (0);\n}|\n" conx|
|00003490| 2d 65 6d 69 74 2d 63 20 | 23 5b 28 66 69 6c 65 29 |-emit-c |#[(file)|
|000034a0| 20 22 c0 09 21 88 c2 20 | 88 c3 1c 0d 63 88 c6 20 | "..!.. |....c.. |
|000034b0| 88 0e 07 63 88 29 65 62 | 87 22 20 5b 66 69 6e 64 |...c.)eb|." [find|
|000034c0| 2d 66 69 6c 65 20 66 69 | 6c 65 20 65 72 61 73 65 |-file fi|le erase|
|000034d0| 2d 62 75 66 66 65 72 20 | 74 20 62 75 66 66 65 72 |-buffer |t buffer|
|000034e0| 2d 75 6e 64 6f 2d 6c 69 | 73 74 20 63 6f 6e 78 2d |-undo-li|st conx-|
|000034f0| 63 2d 70 72 6f 6c 6f 67 | 20 63 6f 6e 78 2d 65 6d |c-prolog| conx-em|
|00003500| 69 74 2d 63 2d 64 61 74 | 61 20 63 6f 6e 78 2d 63 |it-c-dat|a conx-c|
|00003510| 2d 63 6f 64 65 5d 20 32 | 20 6e 69 6c 20 22 46 57 |-code] 2| nil "FW|
|00003520| 72 69 74 65 20 43 20 66 | 69 6c 65 3a 20 22 5d 20 |rite C f|ile: "] |
|00003530| 63 6f 6e 78 2d 73 74 61 | 74 73 20 23 5b 6e 69 6c |conx-sta|ts #[nil|
|00003540| 20 22 c0 c1 21 71 88 65 | 64 7c 88 c2 c3 0c 5c 22 | "..!q.e|d|....\"|
|00003550| 88 c5 c6 65 64 23 87 22 | 20 5b 67 65 74 2d 62 75 |...ed#."| [get-bu|
|00003560| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 63 6f |ffer-cre|ate "*co|
|00003570| 6e 78 2d 73 74 61 74 73 | 2a 22 20 6d 61 70 61 74 |nx-stats|*" mapat|
|00003580| 6f 6d 73 20 23 5b 28 78 | 29 20 22 c0 09 21 3f ae |oms #[(x|) "..!?.|
|00003590| 93 c2 c3 09 4a c4 48 5c | 22 63 88 c5 63 88 c6 09 |....J.H\|"c..c...|
|000035a0| 21 63 88 c7 63 87 22 20 | 5b 62 6f 75 6e 64 70 20 |!c..c." |[boundp |
|000035b0| 78 20 66 6f 72 6d 61 74 | 20 22 25 73 22 20 30 20 |x format| "%s" 0 |
|000035c0| 22 09 09 22 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |".." sym|bol-name|
|000035d0| 20 22 5c 6e 22 5d 20 34 | 5d 20 63 6f 6e 78 2d 77 | "\n"] 4|] conx-w|
|000035e0| 6f 72 64 73 2d 68 61 73 | 68 74 61 62 6c 65 20 73 |ords-has|htable s|
|000035f0| 6f 72 74 2d 6e 75 6d 65 | 72 69 63 2d 66 69 65 6c |ort-nume|ric-fiel|
|00003600| 64 73 20 2d 31 5d 20 34 | 5d 5d 20 32 29 0a |ds -1] 4|]] 2). |
+--------+-------------------------+-------------------------+--------+--------+
