(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "16-Nov-93 17:13:34" ("compiled on " {DSK}export>lispcore>lispusers>ANALYZER.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED " 9-Mar-89 15:24:58" {ERINYES}MEDLEY>ANALYZER.;9 86708 changes to%: (FNS Analyzer.ReadWordList) previous date%: "13-Jan-89 15:50:22" {ERINYES}MEDLEY>ANALYZER.;8) AnalyzerFromName :D8 (P 3 i P 1 COLONPOS P 0 analyzer I 1 remoteName I 0 dictName) o @``J0hRo@ YD@kIk @Ilm @KAKg KiJZH(95 Analyzer.Prop 68 AnalyzerFromName 63 SUBATOM 51 SUBATOM 38 STRPOS) (90 RemoteDict 78 Morphalyzer 16 Analyzer.List 9 Analyzer.List) ( 32 ":") Analyzer.CountWordsA0002 :D8 (L (4 entries 3 length 2 start 1 stream 0 analyzer) F 0 n) PkchNIL NIL () Analyzer.CountWords :D8 (P 1 FN P 0 n I 3 length I 2 start I 1 stream I 0 analyzer) 6j@g I@ABClI@@ABCghlJH(11 Analyzer.Prop) (44 Analyzer.CountWordsA0002 32 Morphalyzer 6 CountWords) () Analyzer.DefaultCorrections :D8 (P 26 c P 24 temp P 23 tail P 19 i P 5 periods P 4 caps P 3 wordList P 2 word P 1 form P 0 userDict I 3 length I 2 start I 1 stream I 0 analyzer) @g  A =AB Ck2O&O$O(ZkA _,O*O,h_*_(O&k_&O,&_*A @A k2O&O$*AO& _,O*O,h_*_(O&k_&O,&_*O(ZJRJdn!dnplA:JlZ3J(Jdn!npJlAJlZggh\l.J]J!O,_.O.dcJd@_@JhdlO7H+J!O,_.O.dlAJZLdgXJ J K_0O.dO.O0LgO.dJ@@JhdlN!HO.O.O.O0O.KJ J K_0O.d@_@JhdlOHO.O0O.:J J KgMlZlAO4O2O.O4@_@JhdlOH O4k_4J J KMlzlaO4O2>O.O4@_@JhdlOH O4k_4J J KM#O.l.@_@JhdlO3H(O.d!J!O,_.!K [d`J J K_0LgLdg[O.JSlZlAO4O2DO0O4"O.O4@_@JhdlOH O4k_4J J KL+O0 l__lAOOlZLgYO.JSlzlaO4O2DO0O4"O.O4@_ @JhdlO H O4k_4J J KM"O.l.@_"@JhdlO"HO.O0O.J J KdO&O& O&dK(1269 STREQUAL 1248 CONCATCODES 1240 SimpleDict.Lookup 1181 CONCATCODES 1173 SimpleDict.Lookup 1072 CHCON1 1056 CONCATCODES 1048 SimpleDict.Lookup 946 CONCATCODES 938 SimpleDict.Lookup 927 SORT 852 CONCATCODES 844 SimpleDict.Lookup 775 CONCATCODES 767 SimpleDict.Lookup 670 CONCATCODES 662 SimpleDict.Lookup 595 CONCATCODES 587 SimpleDict.Lookup 515 CONCATCODES 507 SimpleDict.Lookup 447 CONCATCODES 439 SimpleDict.Lookup 351 CONCATCODES 342 SimpleDict.Lookup 116 NTHCHARCODE 97 NCHARS 89 STRINGP 31 SETFILEPTR 22 STREAMP 10 Analyzer.Prop) (1202 Morphalyzer 1139 Morphalyzer 1097 FIRST 1014 Morphalyzer 971 FIRST 961 ALL 874 Morphalyzer 810 Morphalyzer 733 Morphalyzer 703 ALL 628 Morphalyzer 553 Morphalyzer 525 ALL 469 Morphalyzer 396 Morphalyzer 380 FIRST 326 FIRST 273 Morphalyzer 235 FIRST 229 ALL 5 UserDict) () Analyzer.DefaultNextWord :D8 (P 9 quote P 8 value P 7 start P 6 length P 5 word P 4 endPtr P 3 end P 2 char P 1 EOFPtr P 0 filePtr I 4 NWFn I 3 searchLength I 2 startPtr I 1 stream I 0 analyzer) ABjb A A  CBC؀I\IIA LA Z7OzA [OپJNmԾD@AONlD_DOdi?ON3lJJlJl__llAOOlZOA kٌOAK h_Jrh(174 SETFILEPTR 160 GETFILEPTR 65 GETFILEPTR 45 GETFILEPTR 23 GETEOFPTR 17 GETFILEPTR 11 SETFILEPTR) NIL () Analyzer.Name :D8 (I 0 analyzer) :@g %@o@g @(46 MKATOM 41 CONCAT 36 Analyzer.Prop 10 Analyzer.Prop) (53 Morphalyzer 31 RemoteDict 18 Morphalyzer 5 RemoteDict) ( 25 ": ") Analyzer.DefaultAddEntry :D8 (P 0 userDict I 4 errorStream I 3 dontRecord I 2 entry I 1 lemma I 0 analyzer) H@g H@gH HHABhlIC@gA A(68 Analyzer.PushProp 34 Analyzer.Prop 21 SimpleDict.New 10 Analyzer.Prop) (62 WordList 41 Dict 28 UserDict 5 UserDict) () Analyzer.DefaultAnalyze :D8 (I 5 allowWildCards I 4 NWFn I 3 searchLength I 2 startPtr I 1 stream I 0 analyzer) <A A bABjb @g @g o@g ldl BCA BC_dOOA Lk\dNhA OMd3lMKLOM MqMd3)lM!Ml)Ml__llAOOlZMJE>Mdl*8OXOLl_KkO h_Lk_KLOM )M,M3'l0M!Ml9OM_hKLOM OMOOLILO_LO_h_"_ O jO _"hO _"O _ O"Ok_@_@KjOlO HdKO _$OOk Kk lsg_DOdgOOOg@AOOOlD_2LOOkOOؼAL ih___Ml'_M:h(544 SETFILEPTR 461 NTHCHARCODE 452 EQP 436 SimpleDict.Lookup 310 RPLCHARCODE 265 RPLCHARCODE 242 RPLCHARCODE 153 RPLCHARCODE 110 GETEOFPTR 89 GETEOFPTR 76 ALLOCSTRING 67 Analyzer.Prop 49 Analyzer.Prop 38 Analyzer.Prop 27 SETFILEPTR 12 OPENSTRINGSTREAM 5 STRINGP) (501 possessive 485 possessive 471 possessive 407 Morphalyzer 62 ADD-ALPHA-CHAR-CODES 44 OPT-SEPR-CODES 33 UserDict) ( 56 (39 46 45 47)) Analyzer.DefaultProofreadA0002 :D8 (L (4 entries 3 length 2 start 1 stream 0 analyzer) F 0 n) PkcDBChNIL NIL () Analyzer.DefaultProofread :D8 (P 10 fn P 8 word P 5 char P 4 stopTime P 3 startTime P 2 correction P 1 start.length P 0 n I 3 length I 2 begin I 1 stream I 0 analyzer)  jqAoi j [A BjbC,A b"ABjbCA BbAB CjA ]3Q@_@ABCghlOY`j \`;AoLKoo nl_lANNlZBjBmbCkbAB `rAII ` Od6XgZgJdgCBIIbIIb5O_hO_O_OkOOiAIkIgi Ah A Ai `A@i Zp CBIbJ IbIbIAo GABCkjg Ah A Ai AHjoHo i h(533 TEDIT.PROMPTPRINT 527 CONCAT 504 TEDIT.SHOWSEL 496 TEDIT.NORMALIZECARET 489 TEDIT.SHOWSEL 481 TEDIT.SETSEL 462 TEDIT.PROMPTPRINT 445 SHOULDNT 425 NCHARS 409 STRINGP 394 TEdit.Correct 376 TEDIT.SHOWSEL 368 TEDIT.NORMALIZECARET 361 TEDIT.SHOWSEL 353 TEDIT.SETSEL 232 STREAM.FETCHSTRING 211 SETFILEPTR 167 TEDIT.PROMPTPRINT 162 CONCAT 127 CLOCK 79 SETFILEPTR 67 GETEOFPTR 45 NCHARS 28 STRINGP 21 CLOCK 15 TEDIT.PROMPTPRINT) (476 RIGHT 382 Proofreader.AutoCorrect 346 RIGHT 268 *INSERT* 259 *SKIP* 253 *SKIP* 237 Proofreader.UserFns 220 Proofreader.UserFns 133 Analyzer.TimeProofreader 111 Analyzer.DefaultProofreadA0002 97 Morphalyzer) ( 522 " words proofread." 515 "No Errors." 457 "Error found." 157 " seconds." 151 1000.0 143 "Elapsed Time: " 9 "Proofreading . . . ") Analyzer.DefaultLoadWordList :D8 (P 2 i P 0 wordList I 1 file I 0 analyzer) 8 A Xdd@@JidlI@gA h(52 Analyzer.PushProp 8 Analyzer.ReadWordList) (46 WordListFile 23 Morphalyzer) () Analyzer.DefaultStoreWordList :D8 (P 0 wordList I 1 file I 0 analyzer) F@g XA HA XHA @gA @gh h(66 Analyzer.Prop 54 Analyzer.PushProp 42 Analyzer.WriteWordList 33 \APPEND2 28 Analyzer.ReadWordList 20 DIRECTORY 13 Analyzer.Prop) (60 WordList 48 WordListFile 8 WordList) () Analyzer.ReadWordList :D8 (P 3 stream P 2 words P 1 word P 0 firstWord I 0 file) t@@g [dj K XKj HK `K` K` Y jK IJZK J(112 CLOSEF 93 NCHARS 87 RSTRING 74 SKIPSEPRCODES 57 CREATEWORDLISTRDTBL 44 READFILE 35 SETFILEPTR 27 READ 21 SETFILEPTR 13 OPENSTREAM) (82 WORDLISTRDTBL 69 WORDLISTRDTBL 62 WORDLISTRDTBL 51 WORDLISTRDTBL 8 INPUT) () Analyzer.WriteWordList :D8 (P 1 word P 0 stream I 1 file I 0 wordList) :Ag Xdj @dIH H H h(54 CLOSEF 43 TERPRI 36 PRIN1 21 SETFILEPTR 13 OPENSTREAM) (8 OUTPUT) () CREATEWORDLISTRDTBL :D8 (P 2 BREAK P 1 SEPR P 0 RDTBL) ig Xd dI gH H dJ gH l gH H(101 SETSYNTAX 90 CHARACTER 78 SETSYNTAX 67 CHARACTER 54 GETBRK 43 SETSYNTAX 32 CHARACTER 19 GETSEPR 12 COPYREADTABLE) (95 SEPR 72 OTHER 37 OTHER 7 ORIG) () Analyzer.Prop :D8 (P 3 p P 2 prop P 1 analyzer P 0 a) Gekala"JI[HldKIJlaI\LKlaNIL (50 Morphalyzer 39 Morphalyzer 18 Morphalyzer) () Analyzer.PushProp :D8 (P 0 prop.values I 2 value I 1 prop I 0 analyzer) BA@!H$@ABh@ZBJiIYhHBHBNIL (32 Morphalyzer 21 Morphalyzer 6 Morphalyzer) () STREAM.FETCHSTRING :D8 (P 2 i P 0 pos I 4 restorePtr I 3 buffer I 2 length I 1 start I 0 stream) UD@ CBC B b@A BkJICJ@ JkZD@H CkB (82 SUBSTRING 73 SETFILEPTR 56 RPLCHARCODE 38 SETFILEPTR 28 ALLOCSTRING 20 NCHARS 10 GETFILEPTR) NIL () Analyzer.CorruptWord :D8 (P 22 c P 20 temp P 19 tail P 15 i P 3 caps P 2 wordList P 1 word P 0 form I 3 length I 2 start I 1 stream I 0 analyzer)  Ck2OOYO Ydzddn!dnpIlA`IlZYINIdn!npIlA3IlZ+g+A _$O"O$h_"_ Ok_O$&_"gh[I!O$_&O&d!Idv@@IhdlMU]_(O&dO&O(KgO&dI!@@IhdlLI JO&O&O&O(O&I JI!O$_&O&dgIYKdg8_(O&d@@IhdlNI JO&O(O&g?lZlAO,O*.IO,@_@IhdlOI JO,k_,=lzlaO,O*.IO,@_@IhdlOI JO,k_,IYddO&gO&KgAlZlAO,O*0O&O,@_@IhdlOI JO,k_,?lzlaO,O*0O&O,@_@IhdlOI JO,k_,O&d^I!O$_&J Zd_(KgKdgMO&IElZlAO,O*6O&O,O(O,!@_@IhdlOI JO,k_,K)O(l__lAOOlZKgRO&dIMlzlaO,O*;O&O,O(O, !@_@IhdlOI JO,k_,O&O(O&dOO OdJ(933 STREQUAL 893 CONCATCODES 862 CHARACTER 779 CONCATCODES 689 SORT 644 CONCATCODES 581 CONCATCODES 487 CONCATCODES 426 CONCATCODES 357 CONCATCODES 278 CONCATCODES 249 CONCATCODES) (871 Morphalyzer 822 FIRST 757 Morphalyzer 714 FIRST 704 ALL 622 Morphalyzer 559 Morphalyzer 529 ALL 517 A 465 Morphalyzer 404 Morphalyzer 376 ALL 338 Morphalyzer 314 FIRST 304 A 230 Morphalyzer 214 FIRST 173 Morphalyzer 140 FIRST 99 ALL) () Analyzer.Establish :D8 (P 2 tail P 1 analyzerName I 0 analyzer) M@3g `@HZh@`IJJ@iJ(12 BOUNDP) (60 Morphalyzer 51 Analyzer.List 45 Analyzer.List 25 Morphalyzer 19 Analyzer.List 7 Analyzer.List) () AnalyzerForStream :D8 (I 0 stream) @g @ (18 TEdit.SetAnalyzer 10 STREAMPROP) (5 analyzer) () Analyzer.QuitFn :D8 (P 0 analyzer I 2 textObj I 1 stream I 0 window) >A Hd1g %oAoo A h(58 TEdit.StoreWordList 50 STREQUAL 45 TEDIT.GETINPUT 22 Analyzer.Prop 5 AnalyzerForStream) (17 WordList) ( 40 "yes" 35 "Do you want to save the word list? " 29 "yes") Analyzer.BeforeLogoutA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 file F 1 SI::*RESETFORMS* F 2 analyzer) MoPo i RP oi g hhQcPo (74 DIRECTORY 54 TTYDISPLAYSTREAM 49 OPENTEXTSTREAM 39 PRIN1 28 Analyzer.DefaultStoreWordList 21 PRIN1 15 CONCAT) (44 TTYDISPLAYSTREAM) ( 69 (DELVER) 33 "Deleting old version..." 10 "..." 4 "Storing word list on ") Analyzer.BeforeLogout :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 file P 1 analyzer F 6 LISPXHIST) `!HhYg ul goIo gJoIg  Zo$V!g $oi HXw(141 PRIN1 125 SI::RESETUNWIND 120 \MVLIST 115 Analyzer.BeforeLogoutA0001 92 PROMPTFORWORD 86 Analyzer.Prop 62 ASKUSER 57 CONCAT 25 Analyzer.Prop) (110 SI::RESETUNWIND 81 WordListFile 67 Y 45 Morphalyzer 34 N 20 WordList 4 Analyzer.List) ( 135 "done." 99 "Aborted." 75 "Store word list on file:" 52 "? " 39 "Do you want to save the word list for ") TEdit.ProofreadMenu :D8 (P 3 W P 2 analyzer P 1 menu P 0 menuWindow I 0 stream) `@ [dg Xde`dodi dldgdg dgjdndhdL Yi KgH H H !HK`gg H @ ZH J@d khdlM(196 TEDIT.GETPOINT 175 AnalyzerForStream 168 OPENW 161 ATTACHWINDOW 136 OPENWP 129 CLOSEW 122 PUTWINDOWPROP 109 MENUWINDOW 28 GETWINDOWUSERPROP 8 TEXTOBJ) (185 Morphalyzer 155 LOCALCLOSE 150 TOP 145 Proofreader.MenuEdge 116 Proofreader.Menu 82 DEFAULTMENUHELDFN 73 CLRPROMPT 64 PROOFREADER.WHENSELECTEDFN 37 |MENUTYPE#| 23 Proofreader.Menu 13 TEXTOBJ) ( 44 (("Proofread" Proofread "looks for the next spelling error starting from the caret.") ("Correct" Correct "generates a list of possible corrections for the current selection.") ("Insert" Insert "inserts the selected word into the analyzer's word list.") ("CountWords" Countwords "counts the words in the current selection."))) PROOFREADER.WHENSELECTEDFN :D8 (P 0 W I 2 BUTTON I 1 MENU I 0 ITEM) eA @dgHg dgHg dgHg g Hg (98 WITH-TEDIT 78 WITH-TEDIT 57 WITH-TEDIT 36 WITH-TEDIT 10 MAINWINDOW 5 WFROMMENU) (93 TEdit.CountWords 84 Countwords 73 TEdit.AddEntry 64 Insert 52 TEdit.Correct 43 Correct 31 TEdit.Proofread 22 Proofread) () WITH-TEDITA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTOBJ F 1 SI::*RESETFORMS* F 2 FUNCTION) "oP hQcPR>PkR(10 \TEDIT.MARKACTIVE) (23 TEXTOBJ) ( 4 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) WITH-TEDIT :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 EDITOP I 1 FUNCTION I 0 TEXTOBJ F 4 LISPXHIST) X@ @ b@>X@Hdioo T!g $(81 SI::RESETUNWIND 76 \MVLIST 71 WITH-TEDITA0001 56 TEDIT.PROMPTPRINT 51 CONCAT 15 TEXTOBJ 8 WINDOWP) (66 SI::RESETUNWIND 24 TEXTOBJ) ( 46 " in progress; please wait." 41 "Edit operation") TEdit.Correct :D8 (P 5 menuWindow P 4 items P 3 length P 2 start P 1 correction P 0 selection I 2 autoCorrect I 1 analyzer I 0 stream) r @ @g @ b-@@ b@ g A@ b@oi h@ XdZH J[@o@JkK o i AA@JkKlN\Bdo L`dLdi ld_dOdodg dgjdndh_dO Ydg@A gI@ @I @o@o@JkK o i I(366 TEDIT.PROMPTPRINT 360 CONCAT 350 STREAM.FETCHSTRING 325 TEDIT.INSERT 317 TEDIT.DELETE 299 TEdit.AddEntry 282 MENU 195 \APPEND2 161 TEDIT.PROMPTPRINT 155 CONCAT 145 STREAM.FETCHSTRING 108 TEDIT.GETSEL 100 TEDIT.PROMPTPRINT 85 AnalyzerForStream 75 GETWINDOWUSERPROP 57 TEXTOBJ 46 TEXTSTREAM 28 TEXTSTREAM 21 GETWINDOWUSERPROP 8 WINDOWP) (306 *SKIP* 289 *INSERT* 254 DEFAULTMENUHELDFN 245 CLRPROMPT 206 |MENUTYPE#| 167 Morphalyzer 124 SELECTION 115 SELECTION 70 Proofreader.Menu 62 TEXTOBJ 39 TEXTOBJ 16 Proofreader.Menu) ( 355 "%"." 340 "No corrections for the word %"" 332 "" 236 "corrections" 190 (*INSERT* *SKIP*) 150 "%" . . . " 135 "Looking for corrections for %"" 94 "No analyzer selected.") TEdit.CountWords :D8 (P 1 n P 0 selection I 0 stream) z @ @@ b@ X@oi @ @HkH H Yd @Ii @Io I(118 TEDIT.PROMPTPRINT 113 CONCAT 99 TEDIT.PROMPTPRINT 90 STRINGP 83 Analyzer.CountWords 50 AnalyzerForStream 44 TEDIT.PROMPTPRINT 31 TEDIT.GETSEL 22 TEXTSTREAM 8 WINDOWP) (75 SELECTION 67 SELECTION 57 SELECTION 15 TEXTOBJ) ( 108 " words counted." 38 "Counting words in selection . . . ") TEdit.AddEntry :D8 (P 0 word I 1 analyzer I 0 stream) q @ @@ bA@ b@ XA@oi hAHihlI@oHoo @o(101 CONCAT 58 TEDIT.PROMPTPRINT 42 TEDIT.SEL.AS.STRING 33 AnalyzerForStream 22 TEXTSTREAM 8 WINDOWP) (65 Morphalyzer 15 TEXTOBJ) ( 109 "Insert not implemented for this analyzer." 96 " inserted into local word list." 91 "%"" 85 "%"" 52 "No analyzer selected.") TEdit.Proofread :D8 (P 2 string P 1 sel P 0 stream I 0 W) @ AH YHIkI ZoJ 0H  H HIkI hlKH  H Hd khdlL(126 TEDIT.GETPOINT 119 AnalyzerForStream 105 AnalyzerForStream 73 AnalyzerForStream 59 AnalyzerForStream 51 STRPOS 39 STREAM.FETCHSTRING 14 TEDIT.GETSEL 5 TEXTSTREAM) (110 Morphalyzer 90 SELECTION 80 SELECTION 64 Morphalyzer 32 SELECTION 22 SELECTION) ( 45 " ") TEdit.SetAnalyzer :D8 (P 9 $$PROPLST$$ P 8 $$TEXTOBJ$$ P 7 i P 1 menuItems P 0 quitFn I 1 analyzer I 0 stream)  @A@`9d_ gOhOg ohMLh^L&NYYI k`bG`dIdodi dg dgjdndhdJ bA1@g b@oAd o i @oA o i AAkK@gA @ Fg'XggH|HF@ OF OOgghFFgg @ OF O)OggHhF@o AggH (465 LISTPUT 446 TEDIT.PROMPTPRINT 390 TEXTOBJ 382 LISTPUT 322 TEXTOBJ 280 TEXTOBJ 273 STREAMPROP 245 TEDIT.PROMPTPRINT 239 CONCAT 229 Analyzer.Name 214 TEDIT.PROMPTPRINT 208 CONCAT 198 Analyzer.Name 181 STREAMPROP 164 MENU 86 LENGTH 48 Analyzer.Prop 26 Analyzer.Name) (458 Analyzer.QuitFn 453 QUITFN 426 Analyzer.QuitFn 421 QUITFN 416 TEXTOBJ 400 TEXTOBJ 377 Analyzer.QuitFn 372 QUITFN 358 Analyzer.QuitFn 353 QUITFN 348 TEXTOBJ 332 TEXTOBJ 309 Analyzer.QuitFn 299 Analyzer.QuitFn 292 QUITFN 285 TEXTOBJ 267 analyzer 252 Morphalyzer 176 analyzer 139 DEFAULTMENUHELDFN 130 CLRPROMPT 104 |MENUTYPE#| 94 Analyzer.List 43 RemoteDict 31 QUOTE 15 Analyzer.List) ( 441 "done." 234 "..." 223 "Setting proofreader to " 203 "." 190 "Proofreader is " 116 "analyzers" 55 "Calls the remote dictionary server") TEdit.LoadWordList :D8 (P 1 file P 0 analyzer I 0 stream) b@ H@oi H@o Y@oi -@oIo i HI @o h(94 TEDIT.PROMPTPRINT 82 Analyzer.DefaultLoadWordList 74 TEDIT.PROMPTPRINT 68 CONCAT 49 TEDIT.PROMPTPRINT 35 TEDIT.GETINPUT 22 TEDIT.PROMPTPRINT 5 AnalyzerForStream) NIL ( 89 "done." 63 "..." 57 "Reading " 43 "Aborted." 30 "Fetch word list on file: " 16 "Please select a proofreader.") TEdit.StoreWordListA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 stream F 1 file F 2 SI::*RESETFORMS* F 3 analyzer) cg hhRcPoQo i SQ `Poi Qo Po (96 TEDIT.PROMPTPRINT 84 DIRECTORY 72 TEDIT.PROMPTPRINT 53 Analyzer.DefaultStoreWordList 46 TEDIT.PROMPTPRINT 40 CONCAT 14 TTYDISPLAYSTREAM 9 OPENTEXTSTREAM) (58 Proofreader.AutoDelete 4 TTYDISPLAYSTREAM) ( 91 "done." 79 (DELVER) 66 "Deleting old version..." 35 "..." 29 "Storing word list on ") TEdit.StoreWordList :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 file P 0 analyzer I 0 stream F 5 LISPXHIST) |@ H@oi `g @oi F@oHg  Y@oi U!g $h(116 SI::RESETUNWIND 111 \MVLIST 106 TEdit.StoreWordListA0001 89 TEDIT.PROMPTPRINT 75 TEDIT.GETINPUT 69 Analyzer.Prop 49 TEDIT.PROMPTPRINT 36 Analyzer.Prop 23 TEDIT.PROMPTPRINT 5 AnalyzerForStream) (101 SI::RESETUNWIND 64 WordListFile 31 WordList) ( 83 "Aborted." 58 "Store word list on file: " 43 "No words to be stored." 17 "Please select a proofreader.") Analyzer.TEditMenuItems :D8 (F 0 TEDIT.DEFAULT.MENU) g Po (22 TEDIT.ADD.MENUITEM 9 BOUNDP) (4 TEDIT.DEFAULT.MENU) ( 17 (Proofread (FUNCTION TEdit.ProofreadMenu) "Looks for the next spelling error after the caret." (SUBITEMS (Proofread (FUNCTION TEdit.ProofreadMenu) "Looks for the next spelling error after the caret." (SUBITEMS (SetProofreader (FUNCTION TEdit.SetAnalyzer) "Gives a menu of possible proofreaders to use.") (LoadWordList (FUNCTION TEdit.LoadWordList) "Loads a file of words into the proofreader.") (StoreWordList (FUNCTION TEdit.StoreWordList) "Stores the words added to the proofreader by the user on a remote file.") (AutoCorrect (FUNCTION (LAMBDA (stream) (SETQ Proofreader.AutoCorrect T) (TEDIT.PROMPTPRINT stream "AutoCorrection is ON." T))) "The proofreader automatically generates a menu of corrections for the user.") (ManualCorrect (FUNCTION (LAMBDA (stream) (SETQ Proofreader.AutoCorrect) (TEDIT.PROMPTPRINT stream "AutoCorrection is OFF." T))) "The user must ask for a menu of corrections from the proofreader if he wants one."))) (Correct (FUNCTION TEdit.Correct) "generates a list of possible corrections for the current selection.") (Insert (FUNCTION TEdit.AddEntry) "inserts the selected word into the analyzer's word list.") (CountWords (FUNCTION TEdit.CountWords) "Counts the number of words in the currect selection.")))) DictFromName :D8 (P 3 i P 1 COLONPOS P 0 dict I 1 remoteName I 0 dictName)  @``JDh`JXho@ Yq@kIk @Ilm @KAKg KiJZ@K AKg Kg XiJZ}H(161 InvertedDict.Prop 148 InvertedDict.Prop 115 Dict.Prop 88 DictFromName 83 SUBATOM 71 SUBATOM 58 STRPOS) (156 DICTIONARY 143 RemoteDict 110 RemoteDict 98 Dict 34 InvertedDict.List 16 Dict.DictionaryList 9 Dict.DictionaryList) ( 52 ":") Dict.Establish :D8 (P 2 tail P 1 dictName I 0 dict) Jg `@HZh@`IJJ@iJ(9 BOUNDP) (57 Dict 48 Dict.DictionaryList 42 Dict.DictionaryList 22 Dict 16 Dict.DictionaryList 4 Dict.DictionaryList) () Dict.Prop :D8 (P 3 p P 2 prop P 1 dict P 0 a) Gekala"JI[HldKIJlaI\LKlaNIL (50 Dict 39 Dict 18 Dict) () Dict.Name :D8 (I 0 dict) :@g %@o@g @(46 MKATOM 41 CONCAT 36 Dict.Prop 10 Dict.Prop) (53 Dict 31 RemoteDict 18 Dict 5 RemoteDict) ( 25 ": ") SimpleDict.New :D8 (I 0 name) R`d@dgdgdghddHdIdgdg dg NIL (76 NILL 67 NILL 58 NILL 34 SimpleDict.MapEntries 25 SimpleDict.PutEntry 16 SimpleDict.Lookup 4 |DictTYPE#|) () SimpleDict.PutEntry :D8 (P 4 char P 3 i P 1 subNode P 0 node I 2 value I 1 entry I 0 dict) @Ad3@A bA >A kKJ(AK \HYLhdHIHIKk[HBA$BdLHYLhdHIHIXHB(55 NTHCHAR 39 NCHARS 31 STRINGP 22 MKSTRING) (5 Dict) () SimpleDict.Lookup :D8 (P 2 i P 0 node I 2 length I 1 entry I 0 dict) @A Ad3@/BA kJIAJ HXJkZHdAAI HdZd3dl HXHXIY(105 CHARACTER 49 NTHCHAR 33 NCHARS 16 STRINGP) (5 Dict) () SimpleDict.MapEntries :D8 (P 0 i I 3 path I 2 node I 1 fn I 0 dict) >B @b@CBlABd@AHCHh h(53 SimpleDict.MapEntries 48 \APPEND2) (8 Dict) () SimpleDict.PrintEntriesA0002 :D8 (L (2 value 1 entry 0 dict) F 0 stream F 1 noValues) 8QA P P A P kP BP P (53 TERPRI 47 PRIN1 40 SPACES 33 PRIN1 27 CONCATLIST 20 TERPRI 14 PRIN1 8 CONCATLIST) NIL () SimpleDict.PrintEntries :D8 (I 2 noValues I 1 stream I 0 dict) @@ghdlH@NIL (16 SimpleDict.PrintEntriesA0002 5 Dict) () SimpleDict.TestA0003 :D8 (L (2 value 1 entry 0 dict)) Ai ki Bi i (26 TERPRI 20 PRIN1 13 SPACES 6 PRIN1) NIL () SimpleDict.Test :D8 (P 3 i P 0 dict) Ig !odHHKdhlIHHghdlJH(9 SimpleDict.New) (62 SimpleDict.TestA0003 53 Dict 30 Dict 4 test) ( 17 (asdf asd asdfg asde bfdas)) InvertedDictFromName :D8 (P 3 i P 1 COLONPOS P 0 dict I 1 remoteName I 0 dictName) j @``J0hMo@ Y?@kIk @Ilm @KAKg KiJZH(90 InvertedDict.Prop 68 InvertedDictFromName 63 SUBATOM 51 SUBATOM 38 STRPOS) (85 RemoteDict 16 InvertedDict.List 9 InvertedDict.List) ( 32 ":") InvertedDict.Establish :D8 (L (0 dict)) 4`@HZh@`IJJ@iJNIL (31 InvertedDict.List 25 InvertedDict.List 4 InvertedDict.List) () InvertedDict.Prop :D8 (P 3 p P 2 prop P 1 dict P 0 a) Fekala"JI[HldKI\JlaLKlaNIL NIL () InvertedDict.Name :D8 (I 0 dict) 0@g @o@g @(41 MKATOM 36 CONCAT 31 InvertedDict.Prop 10 InvertedDict.Prop) (26 RemoteDict 5 RemoteDict) ( 20 ": ") InvertedDict.Open :D8 (P 0 OPENFN I 0 invertedDict) @g H@kH(10 InvertedDict.Prop) (5 OPENFN) () (PRETTYCOMPRINT ANALYZERCOMS) (RPAQQ ANALYZERCOMS ((COMS (* ;;; "THE ANALYZER CLASS") (RECORDS Morphalyzer) (* ;; "renamed record to avoid a conflict.") (MACROS Analyzer.Open Analyzer.Close Analyzer.Corrections Analyzer.Proofread Analyzer.Analyze Analyzer.Lookup Analyzer.FindWord Analyzer.AddEntry Dict.DisplayEntry) (* ;; "MACROS that call apply the methods of the analyzer class.") (FNS AnalyzerFromName Analyzer.CountWords Analyzer.DefaultCorrections Analyzer.DefaultNextWord Analyzer.Name Analyzer.DefaultAddEntry Analyzer.DefaultAnalyze Analyzer.DefaultProofread) (* ;; "Functions implementing the default case for various methods of the analyzer class.") (FNS Analyzer.DefaultLoadWordList Analyzer.DefaultStoreWordList Analyzer.ReadWordList Analyzer.WriteWordList CREATEWORDLISTRDTBL) (INITVARS WORDLISTRDTBL) (FNS Analyzer.Prop Analyzer.PushProp) (MACROS Analyzer.AlphaCharP \Analyzer.TestCorruption Analyzer.Capitalization Analyzer.UCaseP) (* ;; "Service MACROS.") (FNS STREAM.FETCHSTRING) (MACROS Stream.Init Stream.NextChar ) (FNS Analyzer.CorruptWord) (GLOBALVARS WORDLISTRDTBL)) (COMS (* ;;; "TEDIT interface to analyzer.") (FNS Analyzer.Establish AnalyzerForStream Analyzer.QuitFn Analyzer.BeforeLogout) (FNS TEdit.ProofreadMenu PROOFREADER.WHENSELECTEDFN WITH-TEDIT TEdit.Correct TEdit.CountWords TEdit.AddEntry TEdit.Proofread TEdit.SetAnalyzer TEdit.LoadWordList TEdit.StoreWordList Analyzer.TEditMenuItems) (INITVARS Analyzer.List Proofreader.AutoCorrect (Proofreader.AutoDelete T) ( Proofreader.MenuEdge (QUOTE LEFT)) Analyzer.TimeProofreader Proofreader.UserFns) (GLOBALVARS Analyzer.List Proofreader.AutoCorrect Proofreader.AutoDelete Proofreader.MenuEdge Analyzer.TimeProofreader Proofreader.UserFns) (P (Analyzer.TEditMenuItems) (COND ((NOT (FASSOC (QUOTE Analyzer.BeforeLogout) BEFORELOGOUTFORMS)) (push BEFORELOGOUTFORMS (QUOTE (Analyzer.BeforeLogout)))))) ) (COMS (* ;;; "THE Dict CLASS") (RECORDS Dict) (MACROS Dict.Open Dict.Close Dict.GetEntry Dict.PutEntry Dict.PrintEntry Dict.MapEntries) (* ;;; "utility functions") (FNS DictFromName Dict.Establish Dict.Prop Dict.Name) (INITVARS Dict.DictionaryList) (GLOBALVARS Dict.DictionaryList) (* ;;; "a simple dictionary.") (FNS SimpleDict.New SimpleDict.PutEntry SimpleDict.Lookup SimpleDict.MapEntries SimpleDict.PrintEntries SimpleDict.Test) (RECORDS SimpleDict.Node)) (COMS (* ;;; "the INVERTEDDICT class") (RECORDS INVERTEDDICT) (FNS InvertedDictFromName InvertedDict.Establish InvertedDict.Prop InvertedDict.Name InvertedDict.Open) (INITVARS InvertedDict.List) (GLOBALVARS InvertedDict.List)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA InvertedDict.Prop Dict.Prop Analyzer.Prop))))) (DATATYPE Morphalyzer (analyzerName grammar index analyzerProps openFn closeFn proofreadFn analyzeFn lookupFn correctionsFn generateFn conjugateFn findWordFn addEntryFn) openFn _ (FUNCTION NILL) closeFn _ (FUNCTION NILL) proofreadFn _ (FUNCTION Analyzer.DefaultProofread) analyzeFn _ (FUNCTION Analyzer.DefaultAnalyze) lookupFn _ (FUNCTION NILL) correctionsFn _ (FUNCTION Analyzer.DefaultCorrections) generateFn _ (FUNCTION NILL) conjugateFn _ (FUNCTION NILL) findWordFn _ ( FUNCTION NILL) addEntryFn _ (FUNCTION Analyzer.DefaultAddEntry)) (/DECLAREDATATYPE (QUOTE Morphalyzer) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((Morphalyzer 0 POINTER) (Morphalyzer 2 POINTER) (Morphalyzer 4 POINTER) (Morphalyzer 6 POINTER) (Morphalyzer 8 POINTER) (Morphalyzer 10 POINTER) (Morphalyzer 12 POINTER) (Morphalyzer 14 POINTER) (Morphalyzer 16 POINTER) (Morphalyzer 18 POINTER) (Morphalyzer 20 POINTER) (Morphalyzer 22 POINTER) (Morphalyzer 24 POINTER) (Morphalyzer 26 POINTER))) (QUOTE 28)) (PUTPROPS Analyzer.Open MACRO ((analyzer) (APPLY* (fetch (Morphalyzer openFn) of analyzer) analyzer))) (PUTPROPS Analyzer.Close MACRO ((analyzer) (APPLY* (fetch (Morphalyzer closeFn) of analyzer) analyzer) )) (PUTPROPS Analyzer.Corrections MACRO ((analyzer stream start length) (* * returns a list of possible corrections for the string starting at "start" that is "length" characters long.) (APPLY* (fetch ( Morphalyzer correctionsFn) of analyzer) analyzer stream start length))) (PUTPROPS Analyzer.Proofread MACRO ((analyzer stream start length prFn) (* * The user interface to Analyzer.Analyze.) (APPLY* (fetch (Morphalyzer proofreadFn) of analyzer) analyzer stream start length prFn))) (PUTPROPS Analyzer.Analyze MACRO ((analyzer stream start length analFn allowWildCards) (* * break up the stream into legal lexical items. calls analFn (analyzer stream start len entries) on each item, where "entries" is the analysis of that item. If "entries" is NIL, then the item could not be analyzed.) (APPLY* (fetch (Morphalyzer analyzeFn) of analyzer) analyzer stream start length analFn allowWildCards))) (PUTPROPS Analyzer.Lookup MACRO ((analyzer stream start length) (* * Look up the substring of stream between start and length in dict. "stream" can be a stream, a string, or a list of characters.) ( APPLY* (fetch (Morphalyzer lookupFn) of analyzer) analyzer stream start length))) (PUTPROPS Analyzer.FindWord MACRO ((analyzer word stream start length) (APPLY* (fetch (Morphalyzer findWordFn) of analyzer) analyzer word stream start length))) (PUTPROPS Analyzer.AddEntry MACRO ((analyzer lemma entry dontRecord) (* * add lemma to the dictionary with entry "entry" %. If dontRecord is non-NIL, don't worry about keeping track of this word for the word list.) (APPLY* (fetch (Morphalyzer addEntryFn) of analyzer) analyzer lemma entry dontRecord))) (PUTPROPS Dict.DisplayEntry MACRO ((dict entry newwindowflg) (APPLY* (OR (COND ((type? Dict dict) ( Dict.Prop dict (QUOTE DISPLAYENTRYFN))) ((type? INVERTEDDICT dict) (InvertedDict.Prop dict (QUOTE DISPLAYENTRYFN)))) (QUOTE NILL)) dict entry newwindowflg))) (RPAQ? WORDLISTRDTBL NIL) (PUTPROPS Analyzer.AlphaCharP MACRO ((CHAR) (OR (EQ (LRSH CHAR 8) 241) ((LAMBDA (UCHAR) (DECLARE ( LOCALVARS UCHAR)) (OR (EQ (LRSH UCHAR 8) 241) (AND (IGEQ UCHAR (CHARCODE A)) (ILEQ UCHAR (CHARCODE Z)) ))) (LOGAND CHAR 95))))) (PUTPROPS \Analyzer.TestCorruption MACRO ((analyzer word wordList userDict) (COND ((OR ( Analyzer.Lookup analyzer word) (AND userDict (SimpleDict.Lookup userDict word))) (push wordList ( CONCATCODES word)))))) (PUTPROPS Analyzer.Capitalization MACRO ((word) (* * returns NIL, ALL or FIRST) (COND ((AND (CAR word) (Analyzer.UCaseP (CAR word))) (COND ((AND (CADR word) (Analyzer.UCaseP (CADR word))) (QUOTE ALL)) (T (QUOTE FIRST))))))) (PUTPROPS Analyzer.UCaseP MACRO ((UCHAR) (OR (AND (IGEQ UCHAR (CHARCODE 361,041)) (ILEQ UCHAR ( CHARCODE 361,160))) (AND (IGEQ UCHAR (CHARCODE A)) (ILEQ UCHAR (CHARCODE Z)))))) (PUTPROPS Stream.Init MACRO ((stream start length) (COND ((STRINGP stream) (OR start (SETQ start 0)) ( OR length (SETQ length (NCHARS stream)))) ((NOT (LISTP stream)) (COND ((NULL start) (SETQ start 0))) ( COND ((NULL length) (SETQ length (IDIFFERENCE (GETEOFPTR stream) start)))) (SETFILEPTR stream start))) )) (PUTPROPS Stream.NextChar MACRO ((stream length index) (COND ((LISTP stream) (pop stream)) ((OR (NULL stream) (ILEQ length 0)) NIL) ((STRINGP stream) (add length -1) (add index 1) (NTHCHARCODE stream index)) (T (add length -1) (BIN stream))))) (RPAQ? Analyzer.List NIL) (RPAQ? Proofreader.AutoCorrect NIL) (RPAQ? Proofreader.AutoDelete T) (RPAQ? Proofreader.MenuEdge (QUOTE LEFT)) (RPAQ? Analyzer.TimeProofreader NIL) (RPAQ? Proofreader.UserFns NIL) (Analyzer.TEditMenuItems) (COND ((NOT (FASSOC (QUOTE Analyzer.BeforeLogout) BEFORELOGOUTFORMS)) (push BEFORELOGOUTFORMS (QUOTE ( Analyzer.BeforeLogout))))) (DATATYPE Dict (dictName contents analyzer dictProps subDictionaries openFn closeFn getEntryFn putEntryFn mapFn printEntryFn) openFn _ (FUNCTION NILL) closeFn _ (FUNCTION NILL) getEntryFn _ ( FUNCTION NILL) putEntryFn _ (FUNCTION NILL) mapFn _ (FUNCTION NILL) printEntryFn _ (FUNCTION NILL)) (/DECLAREDATATYPE (QUOTE Dict) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((Dict 0 POINTER) (Dict 2 POINTER) (Dict 4 POINTER) (Dict 6 POINTER) (Dict 8 POINTER) (Dict 10 POINTER) (Dict 12 POINTER) (Dict 14 POINTER) (Dict 16 POINTER) (Dict 18 POINTER) (Dict 20 POINTER))) (QUOTE 22)) (PUTPROPS Dict.Open MACRO ((dict) (APPLY* (fetch (Dict openFn) of dict) dict))) (PUTPROPS Dict.Close MACRO ((dict) (APPLY* (fetch (Dict closeFn) of dict) dict))) (PUTPROPS Dict.GetEntry MACRO ((dict uniqueID prop) (APPLY* (fetch (Dict getEntryFn) of dict) dict uniqueID prop))) (PUTPROPS Dict.PutEntry MACRO ((dict uniqueID entry prop) (APPLY* (fetch putEntryFn of dict) dict uniqueID entry prop))) (PUTPROPS Dict.PrintEntry MACRO ((dict entry stream) (APPLY* (COND ((type? Dict dict) (fetch (Dict printEntryFn) of dict)) ((type? INVERTEDDICT dict) (InvertedDict.Prop dict (QUOTE PRINTENTRYFN)))) dict entry stream))) (PUTPROPS Dict.MapEntries MACRO ((dict MpFn prop topOnly) (* MpFn (dict uniqueId entry prop)) (APPLY* (fetch (Dict mapFn) of dict) dict MpFn prop topOnly))) (RPAQ? Dict.DictionaryList NIL) (RECORD SimpleDict.Node (char value . subnodes)) (TYPERECORD INVERTEDDICT (INVERTEDDICTNAME HEADERINDEX KEYINDEX INDEXFILE FILEDIR FILENAME FILEEXT FILEARRAY INVERTEDDICTPROPS)) (RPAQ? InvertedDict.List NIL) (PUTPROPS ANALYZER COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1989)) NIL