(FILECREATED "17-Aug-88 16:09:07" ("compiled on " {QV}WEINER>WORDFNS.;196) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 25-Feb-88 ..." dated "25-Feb-88 23:33:32") (FILECREATED "17-Aug-88 16:08:21" {QV}WEINER>WORDFNS.;196 59270 changes to: (VARS WORDFNSCOMS) previous date: "19-Jul-88 14:27:59" {QV}WEINER>WORDFNS.;195) COMMONSORTEDFILESA0001 D1 (NAME ERRORSET P 10Q w2 P 7 w1 P 6 string2 P 5 string1 P 4 col2 P 3 f2-1 P 2 f1-2 P 1 c2 P 0 c1 F 11Q COMMENTFILE F 12Q file1 F 13Q file2 F 14Q ofile F 15Q RESETY) é Wi c¿Wi c¿W c¿Wdið’¿h‡¡i„W c¿oW ¿W W ¿lojhdW ¿W W ¿lojhdW ¿W W ¿W ¿jddddld ld 'WM _“HkÔ¸WN _“IkÔ¹O’±ÉO²KkÔ»WN _•IkÔY³ïW ¿oHW¿oW ¿W W ¿W ¿oIW¿oW ¿W W ¿W ¿oJW¿oW ¿W ¿oKW¿oW ¿W ¿oHJÙW¿oW ¿W ¿W ciO³!O¢±ÿJJkÔºWM _¢±ÿ:HkÔX³ì±ÿ1OO dgð²¿OW ¿W ¿±þÚgð²WM _“HkÔ¸JkÔº±þÚWN _“IkÔ¹KkÔ»±þÆ(731Q DREADLINE 705Q DREADLINE 665Q TERPRI 657Q PRIN1 640Q ALPHORDER 612Q DREADLINE 561Q FULLNAME 553Q TERPRI 545Q PRIN1 533Q PRINTNUM 516Q TERPRI 510Q PRIN1 476Q PRINTNUM 463Q TERPRI 455Q PRIN1 443Q PRINTNUM 430Q TERPRI 422Q PRIN1 415Q FULLNAME 407Q PRIN1 375Q PRINTNUM 362Q TERPRI 354Q PRIN1 347Q FULLNAME 341Q PRIN1 327Q PRINTNUM 314Q TERPRI 276Q DREADLINE 243Q DREADLINE 226Q DREADLINE 215Q ALLOCSTRING 210Q ALLOCSTRING 175Q TERPRI 167Q PRIN1 162Q FULLNAME 154Q FLUSHRIGHT 134Q PRIN1 127Q FULLNAME 121Q FLUSHRIGHT 101Q PRIN1 74Q FULLNAME 66Q PRIN1 52Q OUTPUTWORDSTREAM 26Q OUTPUTWORDSTREAM 16Q INPUTWORDSTREAM 5 INPUTWORDSTREAM) (674Q LESSP 644Q EQUAL) ( 540Q " strings in common" 523Q (FIX 7) 503Q " strings in file 2 but not 1" 470Q (FIX 7) 450Q " strings in file 1 but not 2" 435Q (FIX 7) 402Q " strings read from file 2: " 367Q (FIX 7) 334Q " strings read from file 1: " 321Q (FIX 7) 143Q " to " 110Q " and " 61Q "Common words in ") COMMONSORTEDFILES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 COMMENTFILE I 2 ofile I 1 file2 I 0 file1 F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q COMMONSORTEDFILESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COMMONSORTEDFILESA0001)) COMPARESORTEDFILESA0001A0002 D1 (NAME ERRORSET F 0 COMMENTFILE F 1 POS F 2 COMMENT F 3 MACROY F 4 file1 F 5 file2 F 6 ofile) `RµoP ¿oP ¿c¿T P ¿QojhdP ¿U P ¿QojhdP ¿V P ¿P ¿P ci(132Q TERPRI 125Q TERPRI 120Q PRIN1 114Q FULLNAME 107Q FLUSHRIGHT 71Q PRIN1 65Q FULLNAME 60Q FLUSHRIGHT 42Q PRIN1 36Q FULLNAME 27Q POSITION 23Q PRIN1 12Q PRIN1) NIL ( 77Q " to " 50Q " and " 17Q " of " 6 "Comparison") COMPARESORTEDFILESA0001 D1 (NAME ERRORSET P 15Q w2 P 14Q w1 P 13Q string2 P 12Q string1 P 11Q col2 P 10Q f2-1 P 7 f1-2 P 6 c2 P 5 c1 P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 POS F 16Q COMMENTFILE F 17Q ofile F 20Q file1 F 21Q file2 F 22Q 1MINUS2 F 23Q 2MINUS1 F 24Q RESETVARSLST F 25Q RESETY) jW i c ¿W"i c"¿W c¿WµW‚ c¿W 1gIhhW(c(ºog £g¼Jc(¿gJ ¿L“¿W$¨W&¥ic&c$¿jdddW$’l€jld ld ' W O _“MkÔ½W"O _“NkÔ¾O’±÷O²4OkÔ_¿W&²OjW¿OW ¿W ¿W"O _•NkÔ^³ÐW ¿oMW¿oW ¿W W ¿W ¿oNW¿oW ¿W" W ¿W ¿oOW¿oW ¿W ¿oOW¿oW ¿W ¿oMOÙW¿oW ¿W ¿Ojð¢±¼Ojð¢±´g±±O³6O¢±ÿ;OkÔ_¿W$OW ¿W ¿W O _¢±ÿMkÔ]³×±ÿ OO dgð“¿±þ¤gð²+W$OW ¿W ¿W O _“MkÔ½OkÔ_¿±þ‘W&²OjW¿OW ¿W ¿W"O _“NkÔ¾OkÔ_¿±þ^gW W" W hc*i(1136Q FULLNAME 1131Q FULLNAME 1124Q FULLNAME 1073Q DREADLINE 1063Q TERPRI 1055Q PRIN1 1045Q TAB 1010Q DREADLINE 1000Q TERPRI 772Q PRIN1 740Q ALPHORDER 712Q DREADLINE 702Q TERPRI 674Q PRIN1 612Q TERPRI 604Q PRIN1 572Q PRINTNUM 554Q TERPRI 546Q PRIN1 534Q PRINTNUM 520Q TERPRI 512Q PRIN1 500Q PRINTNUM 464Q TERPRI 456Q PRIN1 451Q FULLNAME 443Q PRIN1 431Q PRINTNUM 416Q TERPRI 410Q PRIN1 403Q FULLNAME 375Q PRIN1 363Q PRINTNUM 350Q TERPRI 332Q DREADLINE 322Q TERPRI 314Q PRIN1 304Q TAB 240Q DREADLINE 222Q DREADLINE 210Q ALLOCSTRING 203Q ALLOCSTRING 144Q ERROR! 136Q APPLY 112Q COMPARESORTEDFILESA0001A0002 56Q OUTPUT 43Q OUTPUTWORDSTREAM 26Q OUTPUTWORDSTREAM 16Q INPUTWORDSTREAM 5 INPUTWORDSTREAM) (1117Q DIFFERENT 755Q LESSP 744Q EQUAL 636Q SAME 127Q OUTPUT 116Q ERROR 107Q INTERNAL 64Q OUTPUT) ( 577Q " strings in common" 561Q (FIX 7) 541Q " strings in file 2 but not 1" 525Q (FIX 7) 505Q " strings in file 1 but not 2" 471Q (FIX 7) 436Q " strings read from file 2: " 423Q (FIX 7) 370Q " strings read from file 1: " 355Q (FIX 7) 104Q (COMPARESORTEDFILESA0001A0002)) COMPARESORTEDFILES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 COMMENT I 5 COMMENTFILE I 4 2MINUS1 I 3 1MINUS2 I 2 ofile I 1 file2 I 0 file1 F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q COMPARESORTEDFILESA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COMPARESORTEDFILESA0001)) DIFFSORTEDFILES D1 (I 3 COMMENTFILE I 2 OUTFILE I 1 FILE2 I 0 FILE1) @ABihCdið’¿dƒ¡i€Co (30Q COMPARESORTEDFILES) NIL ( 24Q "Difference") DREADLINE D1 (P 2 NC P 1 C P 0 PC I 2 skipsemicolons I 1 string I 0 stream) ð@ Xlÿådl ð³dl ð®dl ð©dl ð¤dlð—¿i³ÜH¯hjð²ú@ ²ñhX°îB²,Hl;ð²&@ Xlÿådl ðdl ð¨dlð£djð’¿i¿h²à°Aµ8l b¿HjB²8Idl;ð²2¿@ Ylÿådl ðdl ð¨dlð£djð—¿i† °Î¿h²ÛAJ AIlÿådl ð®dl ð©dlð¤djð²¿AJ)o ²ÖJkÙZ°ï¿JkÔºAJI¿@ ¹°‹(353Q READCCODE 346Q !RPLCHARCODE 323Q MEMB 256Q SETSTRINGLENGTH 243Q MAXIMALSTRING 206Q READCCODE 157Q ALLOCSTRING 107Q READCCODE 64Q EOFP 6 READCCODE) NIL ( 320Q (40Q 11Q)) DREADLINESKIPSC D1 (I 1 string I 0 stream) @Ai(5 DREADLINE) NIL () DREADWORD D1 (P 2 NC P 1 C P 0 PC I 1 string I 0 stream) ì@ Xlÿådl ð³dl ð¯dl ðªdl ð¥dlð²0¿i³ÛHd¢±€l;ð²5@ Xlÿådl ð®dl ð©dlð¤djð²¿ijð²Ô@ ²ËhX°È¿h²Ñ°Aµ5l b¿HjIdl;ð²1¿@ Ylÿådl ðdl ð¨dlð£djð—¿i† °Ñ¿h²ÛAJ Alÿådl ð³dl ð³dl ðdl ð¨dlð£djð—¿AJ A¿JkÔºAJI¿@ Y°(347Q READCCODE 342Q !RPLCHARCODE 325Q SETSTRINGLENGTH 253Q SETSTRINGLENGTH 240Q MAXIMALSTRING 203Q READCCODE 157Q ALLOCSTRING 133Q EOFP 70Q READCCODE 6 READCCODE) NIL () INPUTWORDSTREAM D1 (I 1 NOPRINT I 0 FILE F 0 RESETVARSLST F 1 WORDFNS.SEQUENTIAL) Ä@’±™@˜@ b±‚@ gð™o@ °c@g ²C@g b jð³g@d hhhPc¿@j ¿g@g@g hh°o@gghQ´o bhPc¿@gg¿A³$lhi¿@d•¿o‚ i ¿oi @(300Q PRIN1 267Q PRIN1 263Q FULLNAME 245Q TAB 232Q SETFILEINFO 206Q OPENSTREAM 147Q GETFILEINFO 130Q SETFILEPTR 106Q GETFILEPTR 72Q GETFILEPTR 65Q GETSTREAM 54Q OPENP 43Q OPENTEXTSTREAM 26Q PRINTFILETYPE 15Q OPENSTRINGSTREAM) (227Q ZERO 224Q ENDOFSTREAMOP 172Q OLD 167Q INPUT 144Q ENDOFSTREAMOP 140Q ENDOFSTREAMOP 134Q SETFILEINFO 101Q SETFILEPTR 62Q INPUT 51Q INPUT 31Q TEDIT) ( 274Q ": " 257Q "List..." 202Q ((SEQUENTIAL T)) 163Q (PROGN (CLOSEF? OLDVALUE)) 37Q (PROGN (CLOSEF? OLDVALUE))) LONGESTWORDSA0001 D1 (NAME ERRORSET P 36Q LEN P 35Q W P 34Q NC P 33Q WORD P 31Q INPUTWORD P 30Q READWORDS P 27Q W P 26Q #SWORDS P 25Q #READWORDS P 24Q FILEREADFN P 23Q TRANSFNS P 22Q LEAVEINPUTOPEN P 21Q TSTRPTRS P 20Q IFILE P 17Q X P 16Q #SKIPPEDWORDS P 15Q TOTAL#WORDS P 14Q READSTR P 13Q MAXSTRLENGTH P 11Q IFILELIST P 10Q LEAVEOUTPUTOPEN P 7 DONTPRINT P 6 RDFN P 5 DEFFNS P 4 COMFNS P 3 IFILES P 1 MAXWORDS P 0 MAXLENGTH F 37Q FILES F 40Q COMMONTRANSFNS F 41Q DEFAULTTRANSFNS F 42Q RESETY F 43Q READFN F 44Q DONTPRINT) mÿ!W>W@ WBd£d‘h WFWHKLM Ojld jdeOµaO³OOi ¿oi ¿OOÙi ¿oi ¿Oi ¿oi ¿i ¿oi ¿Oi ¿i ¿HI cDi__ ¿O_&gð›O&O&_&¿ˆO “g€N_(¿O&O" _"¿O dlð¦ ´ O g _$¿O O _ ¿jd2O ¿O(šO OlO(†O O _0µoO³YOO*Ô_¿OO,Ô_¿O*i ¿oi ¿O,jñ².oi ¿O*O,Ùi ¿oi ¿O,i ¿oi ¿i ¿O$¥O ¿O_±þººJµ±ÿp¥J_2¿h†J_2¿JºO*kÔ_*¿O2O&O"_.µO,kÔ_,¿°Ï!O4µ°Å¦O4_6¿hˆO4_6¿O4_4¿O6 _8Oñ”O8_¿O6O: Od£d‘h WBWDKLM Ojld jdeOµfO³OOi ¿oi ¿OOÙi ¿oi ¿Oi ¿oi ¿i ¿oi ¿Oi ¿i ¿HnÿÿÚnÿÿIÙØc@i__ ¿O_&gð›O&O&_&¿ˆO “g€N_(¿O&O" _"¿O dlð¦ ´ O g _$¿O O _ ¿jd2O ¿O(šO OlO(†O O _0µoO³YOO*Ô_¿OO,Ô_¿O*i ¿oi ¿O,jñ².oi ¿O*O,Ùi ¿oi ¿O,i ¿oi ¿i ¿O$¥O ¿O_±þµºJµ±ÿp¥J_2¿h†J_2¿JºO*kÔ_*¿O2O&O"_.µO,kÔ_,¿°Ï!O4µ°Å¦O4_6¿hˆO4_6¿O4_4¿O6 _8Oñ”O8_¿IkÙYjð²ÎHkÔ¸nÿÿ¹°Ä(736Q NCHARS 655Q DOTRANSFNS 575Q CLOSEF? 563Q TERPRI 556Q PRIN1 545Q PRIN1 536Q PRIN1 525Q PRIN1 513Q PRIN1 474Q PRIN1 463Q PRIN1 425Q DREADWORD 377Q MAXIMALSTRING 362Q INPUTWORDSTREAM 350Q OPENP 336Q STREAMP 320Q ALLOCTPTRS 213Q TERPRI 206Q PRIN1 177Q PRIN1 166Q TERPRI 161Q PRIN1 150Q PRIN1 141Q PRIN1 130Q PRIN1 116Q PRIN1 105Q PRIN1 61Q ALLOCSTRING 46Q MAPWORDFILEMAC.CHECKFILES 31Q CHECKTRANSFNS 15Q CHECKTRANSFNS) (345Q INPUT 304Q MAPWORDFILEMAC.POPIFILE 257Q READFN) ( 552Q " skipped" 532Q " kept, " 507Q ", " 470Q " read" 173Q "Maximum string length = " 155Q " skipped. " 135Q " kept, " 112Q " total words read, ") WORDCOUNT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DONTPRINT I 3 READFN I 2 DEFAULTTRANSFNS I 1 COMMONTRANSFNS I 0 IFILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q WORDCOUNTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (WORDCOUNTA0001)) SORTWORDFILE.NOFSMA0001 D1 (NAME ERRORSET L (0 NIL) P 2 W P 1 STRM F 3 WORDLIST F 4 REVERSEORDERFLG F 5 OFILE F 6 RESETY) .T”S €SU HµI ciZI ¿I ¿HX°å(46Q TERPRI 41Q PRIN1 26Q CLOSEF 13Q OUTPUTWORDSTREAM 5 DREVERSE) NIL () SORTWORDFILE.NOFSM D1 (P 31Q RESETZ P 30Q RESETY P 27Q LISPXHIST P 26Q PREV P 25Q WTAIL P 24Q GCCNT P 22Q TAIL P 21Q GCCNT P 17Q TAIL P 16Q COMPAREFNS P 15Q WORDLIST P 14Q SEPARATOR P 13Q S P 11Q FIELDS P 10Q FieldCompareFn P 7 FieldType P 6 FieldNumber P 5 FIELD P 0 COMMONCOMPAREFN I 13Q FASTFLG I 12Q DONTPRINT I 11Q REVERSEORDERFLG I 10Q SEPARATOR I 7 FIELDS I 6 KEEPDUPLICATES I 5 COMMONCOMPAREFN I 4 READFN I 3 DEFAULTTRANSFNS I 2 COMMONTRANSFNS I 1 OFILE I 0 IFILES F 32Q LISPXHIST F 33Q RESETVARSLST) @EµgGd²tqIµJ°s½g_¿H_¿Md3’^°:²6Md3ª¿oM ¿M¾Md•_¿M”M‰Ogð•g_¿NOOh¼KµLh[ºIY°™L&»°øgHhh G˜Gdgð•¿`°kgð”`°aGd²DOµ G °K_dlð˜ kð³O3 ›jOñ¦nÿÿOñ©oO ¿O_°Å§G`ð’GˆoG @BCDµgG G¢±ž0O°d¹JµIh[I&ºµíK_¿O°;dO0O°"dOMOM¹JµIh[I&ºµßKOµÆOg ¿On¸O _$²"O"djð˜¿¿n¸kÙ_"¿O$d¿O$°ÝˆOg ¿F³On¸"O&_*–O*d³¿W4!W6og ²=h°=O* ¥O*_,°"O(djð˜¿¿n¸kÙ_(¿O,µ O_¿O*°®O*°ög_2 O2“O0(1072Q ERROR! 1064Q RESETRESTORE 1015Q RECLAIM 774Q STREQUAL 757Q SORTWORDFILE.NOFSMA0001 704Q SORT 644Q RECLAIM 612Q SORT 545Q GETNTHFIELD 430Q COLLECTWORDFILE 406Q ERROR 347Q ERROR 311Q NCHARS 273Q MAKEBITTABLE 76Q ERROR) (1057Q ERROR 754Q INTERNAL 701Q SORTWORDFILE.COMPAREFN 607Q SORTWORDFILE.FASTCOMPAREFN 422Q DREADLINE 370Q CHARTABLETYPE# 245Q TABBITTABLE 240Q TAB 233Q WHITESPACEBITTABLE 225Q WHITESPACE 202Q STRING 140Q NUMORDER 133Q NUMBER 35Q STRING 5 ALPHORDER) ( 751Q (SORTWORDFILE.NOFSMA0001) 401Q "Separator Invalid " 342Q "Separator Invalid " 72Q "Invalid Field Specifier") SORTWORDFILE.COMPAREFN D1 (P 2 CompareResult P 1 FIELD I 1 String2 I 0 String1 F 4 SEPARATOR F 5 FIELDS) 8U1HµJY»@ITIAITIlKZdgð²Ú¿HX°Ð(43Q GETNTHFIELD 31Q GETNTHFIELD) (55Q EQUAL) () SORTWORDFILE.FASTCOMPAREFN D1 (P 6 String2Field P 5 String1Field P 4 CompareResult P 3 COMPAREFN I 1 Item2 I 0 Item1 F 7 COMPAREFNS) ;A@WCJµŒ»Iµ…½HµL¾MNlK\dgð²ð¿JºI¹H¸°ÑNIL (52Q EQUAL) () GETNTHFIELD D1 (P 2 FieldEnd P 1 SepStart P 0 FieldStart I 3 FieldType I 2 Separator I 1 N I 0 String) kaA¡@B²6B@kYºAkÙ»k\Kó³UJ²RB@Ihdi ¸B@HZ–B@J¹LkÔ°ÛB@kYºAkÙ½k^Mó³!J²B@Ii¸B@HZ–B@J¹NkÔ°ÞCgðš@HJd‘kÙ@HJd‘kÙ(214Q SUBSTRING 201Q SUBATOM 153Q STRPOSL 143Q STRPOSL 134Q STRPOSL 106Q STRPOSL 72Q STRPOS 62Q STRPOS 53Q STRPOS 22Q STRPOS) (165Q NUMBER) () NUMORDER D1 (L (1 NUMBER2 0 NUMBER1)) @A “gA@ñ(4 EQP) (10Q EQUAL) () ALPHABETHISTA0001 D1 (NAME ERRORSET P 45Q CSELT P 44Q C P 43Q I P 42Q W P 41Q NC P 40Q WORD P 36Q INPUTWORD P 35Q READWORDS P 34Q W P 33Q #SWORDS P 32Q #READWORDS P 31Q CSARR P 27Q CS P 25Q FILEREADFN P 24Q TRANSFNS P 23Q LEAVEINPUTOPEN P 22Q TSTRPTRS P 21Q IFILE P 20Q X P 17Q #SKIPPEDWORDS P 16Q TOTAL#WORDS P 15Q READSTR P 14Q MAXSTRLENGTH P 12Q IFILELIST P 11Q LEAVEOUTPUTOPEN P 10Q DONTPRINT P 7 RDFN P 6 DEFFNS P 5 COMFNS P 4 IFILES P 0 CHARSETARR F 54Q IFILES F 55Q COMMONTRANSFNS F 56Q DEFAULTTRANSFNS F 57Q RESETY F 60Q READFN F 61Q DONTPRINT) ™,nhdj1WXWZ W\d£d‘h W`Wb LMN Ojld jdeOµmO³OOi ¿oi ¿OOÙi ¿oi ¿Oi ¿oi ¿i ¿oi ¿Oi ¿i ¿lÿj"O.O,ó¢±˜O0c^i_ _"¿O _(gð›O(O(_(¿‰O"“gO_*¿O(O$ _$¿O"dlð¦ ´ O"g _&¿O"O _"¿jd2O ¿O*šO"OlO*†O"O _:µoO³YOO4Ô_¿OO6Ô_¿O4i ¿oi ¿O6jñ².oi ¿O4O6Ùi ¿oi ¿O6i ¿oi ¿i ¿O&¥O" ¿O_±þ»Kµ±ÿp¥K_<¿h†K_<¿K»O4kÔ_4¿Oµ°Å¦O>_@¿hˆO>_@¿O>_>¿O@ _BOñ”OB_¿O@"k!%ODOF)µ°Â_HlÿåHOHã(µHOHãnhjd*º¹JIJI(kÔ*¿OFkÔ_F¿°ÉHO.(_2²PO0lÿjB+ONOLó³8O2ON(_Vjð³O.áONäOVh_T¿ORµOTh_R_P¿ONkÔ_N°ÏOT&_R¿°òOP _0¿O.kÔ_.±þ(1213Q \NCONC2 1043Q ARRAY 753Q NCHARS 672Q DOTRANSFNS 612Q CLOSEF? 600Q TERPRI 573Q PRIN1 562Q PRIN1 553Q PRIN1 542Q PRIN1 530Q PRIN1 511Q PRIN1 500Q PRIN1 442Q DREADWORD 414Q MAXIMALSTRING 377Q INPUTWORDSTREAM 365Q OPENP 353Q STREAMP 335Q ALLOCTPTRS 220Q TERPRI 213Q PRIN1 204Q PRIN1 173Q TERPRI 166Q PRIN1 155Q PRIN1 146Q PRIN1 135Q PRIN1 123Q PRIN1 112Q PRIN1 66Q ALLOCSTRING 53Q MAPWORDFILEMAC.CHECKFILES 36Q CHECKTRANSFNS 22Q CHECKTRANSFNS 10Q ARRAY) (362Q INPUT 320Q MAPWORDFILEMAC.POPIFILE 273Q READFN) ( 567Q " skipped" 547Q " kept, " 524Q ", " 505Q " read" 200Q "Maximum string length = " 162Q " skipped. " 142Q " kept, " 117Q " total words read, ") ALPHABETHIST D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DONTPRINT I 3 READFN I 2 DEFAULTTRANSFNS I 1 COMMONTRANSFNS I 0 IFILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q ALPHABETHISTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (ALPHABETHISTA0001)) COLLECTWORDFILEA0001 D1 (NAME ERRORSET P 35Q W P 34Q NC P 33Q WORD P 31Q INPUTWORD P 30Q READWORDS P 27Q W P 26Q #SWORDS P 25Q #READWORDS P 24Q FILEREADFN P 23Q TRANSFNS P 22Q LEAVEINPUTOPEN P 21Q TSTRPTRS P 20Q IFILE P 17Q X P 16Q #SKIPPEDWORDS P 15Q TOTAL#WORDS P 14Q READSTR P 13Q MAXSTRLENGTH P 11Q IFILELIST P 10Q LEAVEOUTPUTOPEN P 7 DONTPRINT P 6 RDFN P 5 DEFFNS P 4 COMFNS P 3 IFILES P 1 END P 0 LST F 36Q IFILES F 37Q COMMONTRANSFNS F 40Q DEFAULTTRANSFNS F 41Q RESETY F 42Q READFN F 43Q DONTPRINT) ú0W W@d£d‘h WDWFKLM Ojld jdeOµ\O³OOi ¿oi ¿OOÙi ¿oi ¿Oi ¿oi ¿i ¿oi ¿Oi ¿i ¿HcBi__ ¿O_&gð›O&O&_&¿ˆO “g€N_(¿O&O" _"¿O dlð¦ ´ O g _$¿O O _ ¿jd2O ¿O(šO OlO(†O O _0µoO³YOO*Ô_¿OO,Ô_¿O*i ¿oi ¿O,jñ².oi ¿O*O,Ùi ¿oi ¿O,i ¿oi ¿i ¿O$¥O ¿O_±þ¿ºJµ±ÿp¥J_2¿h†J_2¿JºO*kÔ_*¿O2O&O"_.µO,kÔ_,¿°Ï!O4µ°Å¦O4_6¿hˆO4_6¿O4_4¿O6 _8Oñ”O8_¿O6IµO: hY¸°ÂO: &¹°ö(764Q CONCAT 750Q CONCAT 720Q NCHARS 637Q DOTRANSFNS 557Q CLOSEF? 545Q TERPRI 540Q PRIN1 527Q PRIN1 520Q PRIN1 507Q PRIN1 475Q PRIN1 456Q PRIN1 445Q PRIN1 407Q DREADWORD 361Q MAXIMALSTRING 344Q INPUTWORDSTREAM 332Q OPENP 320Q STREAMP 302Q ALLOCTPTRS 207Q TERPRI 202Q PRIN1 173Q PRIN1 162Q TERPRI 155Q PRIN1 144Q PRIN1 135Q PRIN1 124Q PRIN1 112Q PRIN1 101Q PRIN1 55Q ALLOCSTRING 42Q MAPWORDFILEMAC.CHECKFILES 25Q CHECKTRANSFNS 11Q CHECKTRANSFNS) (327Q INPUT 266Q MAPWORDFILEMAC.POPIFILE 241Q READFN) ( 534Q " skipped" 514Q " kept, " 471Q ", " 452Q " read" 167Q "Maximum string length = " 151Q " skipped. " 131Q " kept, " 106Q " total words read, ") COLLECTWORDFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DONTPRINT I 3 READFN I 2 DEFAULTTRANSFNS I 1 COMMONTRANSFNS I 0 IFILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q COLLECTWORDFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COLLECTWORDFILEA0001)) MAPWORDFILEA0001 D1 (NAME ERRORSET P 34Q NC P 33Q WORD P 31Q INPUTWORD P 30Q READWORDS P 27Q W P 26Q #SWORDS P 25Q #READWORDS P 24Q FILEREADFN P 23Q TRANSFNS P 22Q LEAVEINPUTOPEN P 21Q TSTRPTRS P 20Q IFILE P 17Q X P 16Q #SKIPPEDWORDS P 15Q TOTAL#WORDS P 14Q READSTR P 13Q MAXSTRLENGTH P 11Q IFILELIST P 7 LEAVEOUTPUTOPEN P 6 DONTPRINT P 5 MAPSTR P 4 RDFN P 3 MAPFN P 2 DEFFNS P 1 COMFNS P 0 IFILES F 35Q IFILES F 36Q COMMONTRANSFNS F 37Q DEFAULTTRANSFNS F 40Q RESETY F 41Q MAPFN F 42Q READFN F 43Q DONTPRINT) õW:W< W>d£d‘h WBWDld WF'HIJ Ojld jdeOµZN³OOi ¿oi ¿OOÙi ¿oi ¿Oi ¿oi ¿i ¿oi ¿Oi ¿i ¿hc@i__ ¿O_&gð›O&O&_&¿ˆO “g€L_(¿O&O" _"¿O dlð¦ ´ O g _$¿O N _ ¿jd2O ¿O(šO OlO(†O O _0µnN³YOO*Ô_¿OO,Ô_¿O*i ¿oi ¿O,jñ².oi ¿O*O,Ùi ¿oi ¿O,i ¿oi ¿i ¿O$¥O ¿O_±þÃ_¿Oµ±ÿn¦O_2¿hˆO_2¿O_¿O*kÔ_*¿O2O&O"_.µO,kÔ_,¿°É!O4µ°¿¦O4_6¿hˆO4_6¿O4_4¿O6 _8Oñ”O8_¿M ¿O6MlK¿°Æ(747Q MAXIMALSTRING 730Q NCHARS 647Q DOTRANSFNS 557Q CLOSEF? 545Q TERPRI 540Q PRIN1 527Q PRIN1 520Q PRIN1 507Q PRIN1 475Q PRIN1 456Q PRIN1 445Q PRIN1 410Q DREADWORD 362Q MAXIMALSTRING 345Q INPUTWORDSTREAM 334Q OPENP 322Q STREAMP 304Q ALLOCTPTRS 212Q TERPRI 205Q PRIN1 176Q PRIN1 165Q TERPRI 160Q PRIN1 147Q PRIN1 140Q PRIN1 127Q PRIN1 115Q PRIN1 104Q PRIN1 61Q ALLOCSTRING 46Q MAPWORDFILEMAC.CHECKFILES 33Q ALLOCSTRING 22Q CHECKTRANSFNS 6 CHECKTRANSFNS) (331Q INPUT 270Q MAPWORDFILEMAC.POPIFILE 243Q READFN) ( 534Q " skipped" 514Q " kept, " 471Q ", " 452Q " read" 172Q "Maximum string length = " 154Q " skipped. " 134Q " kept, " 111Q " total words read, ") MAPWORDFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 DONTPRINT I 4 READFN I 3 MAPFN I 2 DEFAULTTRANSFNS I 1 COMMONTRANSFNS I 0 IFILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAPWORDFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (MAPWORDFILEA0001)) SUBSTITUTEWORDFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 67Q SUFF P 66Q PREF P 65Q S P 63Q WI P 61Q WI P 57Q NEXTWPOS P 56Q #CONTEXTCHARS P 55Q CHANGEDP P 54Q LOGP P 53Q WNC P 52Q SPOS P 51Q WPOS P 50Q STR P 47Q W P 46Q NC P 45Q WORD P 43Q INPUTWORD P 42Q READWORDS P 41Q W P 40Q #SWORDS P 37Q #READWORDS P 36Q FILEREADFN P 35Q TRANSFNS P 34Q LEAVEINPUTOPEN P 33Q TSTRPTRS P 32Q IFILE P 31Q X P 30Q #SKIPPEDWORDS P 27Q TOTAL#WORDS P 26Q READSTR P 25Q MAXSTRLENGTH P 23Q OLDPRIMOUT P 22Q IFILELIST P 21Q DONTPRINT P 20Q LEAVEOUTPUTOPEN P 17Q MAPSTR P 16Q RDFN P 15Q DEFFNS P 14Q COMFNS P 13Q OFILE P 12Q IFILES P 10Q BITTABLE P 7 ASKALLP P 6 LOGALLP P 5 LOGSTREAM P 4 #CHANGEDSTRINGS P 3 S F 70Q MODES F 71Q SUBSTITUTIONS F 72Q LOGFILE F 73Q RESETVARSLST F 74Q RESETY F 75Q IFILES F 76Q OFILE F 77Q COMMONTRANSFNS F 100Q DEFAULTTRANSFNS F 101Q READFN) 88 jWtd›ið§Wt ct€hWpgðµWp´gWp´iWpgðµWp´gWp´i0Wr°dK ¸IµHhZH&¹µçJ WzW|µW~ W€d£d‘h W‚ld &OOOOg “i_ ¿O _¿gO _&hhWvcv¿O$jld jdeO(µgO"³OO.i ¿oi ¿O.O0Ùi ¿oi ¿O0i ¿oi ¿i ¿oi ¿O*i ¿i ¿O& ¿O ¢±ÓO ±Ð_2_4¿O2_:gð›O:O:_:¿‰O4“gO_<¿O:O6 _6¿O4dlð¦ ´ O4g _8¿O4O" _4¿jd2#O, ¿O<šO4O,lO<†O4O, _DµoO"³YO.O>Ô_.¿O0O@Ô_0¿O>i ¿oi ¿O@jñ².oi ¿O>O@Ùi ¿oi ¿O@i ¿oi ¿i ¿O8¥O4 ¿O(_(±þ³_¿Oµ±ÿm¦O_F¿hˆO_F¿O_¿O>kÔ_>¿OFO:O6_BµO@kÔ_@¿°É!&OHµ°¿¦OH_J¿hˆOH_J¿OH_H¿OJ _LO*ñ”OL_*¿O ¿OJO(kdON C/OONOR_^³vOVOR1ObO`ó³OPOTONOb)¿OTkÔ_T¿ObkÔ_b°áOPOTkÙ ¿OZ²+LkÔ¼M²$OX¢N²ONM ¿oM ¿OPM ¿M ¿OPO ¿O ±ÿ?ORO^ð³4O^kÙOR3OfOdó³OPOTONOf)¿OTkÔ_T¿OfkÔ_f°áO^_R¿Wr17Ohµ OPOTONOR)¿OTkÔ_T¿ORkÔ_R±ÿ!_jONORhi ¢±eOj3 µj_\¿OœgOj hð‰gOj ¢±øOPkOTkÙµo_l¿ONOROj Ø µo_n¿Oli ¿oi ¿Oji ¿oi ¿Oni ¿oi ¿Oli ¿oi ¿Oji ¿O\jð”o‰OjjO\Ù i ¿oi ¿Oni ¿hdoodgð³Edgð“¿h°=gð²sOjOjO²gOj gh ‰gOj OjWrcr¿i²AOPOTOj¿i_Z¿gOj “i_X¿OTOj Ô_T¿OROj O\Ù±þ°ÁOh_h±þfO Li ¿oi ¿i ¿M´LM ¿oM ¿M cxi(2461Q TERPRI 2454Q PRIN1 2443Q PRIN1 2432Q TERPRI 2425Q PRIN1 2414Q PRIN1 2404Q CLOSEF 2365Q SHOULDNT 2354Q NCHARS 2340Q NCHARS 2322Q MEMB 2303Q !RPLSTRING 2262Q SUBST 2251Q REMOVE 2236Q \NCONC2 2226Q REMOVE 2152Q ASKUSER 2134Q PRIN1 2125Q PRIN1 2114Q PRIN1 2110Q SUBSTRING 2063Q PRIN1 2052Q PRIN1 2041Q PRIN1 2032Q PRIN1 2021Q PRIN1 2012Q PRIN1 2001Q PRIN1 1771Q PRIN1 1760Q PRIN1 1741Q SUBSTRING 1735Q NCHARS 1712Q SUBSTRING 1674Q MEMB 1657Q MEMB 1621Q STRPOS 1561Q !RPLCHARCODE 1505Q !RPLCHARCODE 1435Q TERPRI 1427Q PRIN1 1417Q TERPRI 1412Q PRIN1 1403Q PRIN1 1372Q PRIN1 1342Q SETSTRINGLENGTH 1310Q !RPLCHARCODE 1252Q STRPOSL 1236Q NCHARS 1217Q MAXIMALSTRING 1177Q NCHARS 1116Q DOTRANSFNS 1026Q CLOSEF? 1014Q TERPRI 1007Q PRIN1 776Q PRIN1 767Q PRIN1 756Q PRIN1 744Q PRIN1 725Q PRIN1 714Q PRIN1 656Q DREADWORD 630Q MAXIMALSTRING 613Q INPUTWORDSTREAM 601Q OPENP 567Q STREAMP 551Q ALLOCTPTRS 464Q FULLNAME 450Q OUTPUT 442Q TERPRI 435Q PRIN1 426Q PRIN1 415Q TERPRI 410Q PRIN1 377Q PRIN1 370Q PRIN1 357Q PRIN1 345Q PRIN1 334Q PRIN1 310Q ALLOCSTRING 263Q OUTPUT 250Q OUTPUTWORDSTREAM 236Q OPENP 223Q MAPWORDFILEMAC.CHECKFILES 207Q ALLOCSTRING 200Q CHECKTRANSFNS 164Q CHECKTRANSFNS 157Q OUTPUT 143Q MAKEBITTABLE 115Q CHCON1 14Q OUTPUTWORDSTREAM) (2313Q LOG 2242Q ASK 2231Q DON'TASK 2217Q ASK 2176Q D 2165Q N 2156Q Y 1665Q ASK 1650Q DON'TASK 576Q INPUT 534Q MAPWORDFILEMAC.POPIFILE 507Q READFN 256Q OUTPUT 233Q OUTPUT 66Q ASK 53Q ASK 40Q LOG 25Q LOG) ( 2450Q " strings changed" 2421Q " strings changed" 2147Q ((Y es) (N o) (D . "on't ask anymore")) 2143Q " ? " 2121Q "|" 2075Q "" 2046Q "|" 2026Q " => " 2006Q "|" 1765Q "|" 1747Q "" 1720Q "" 1377Q " => " 1003Q " skipped" 763Q " kept, " 740Q ", " 721Q " read" 422Q "Maximum string length = " 404Q " skipped. " 364Q " kept, " 341Q " total words read, ") SUBSTITUTEWORDFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 7 READFN I 6 DEFAULTTRANSFNS I 5 COMMONTRANSFNS I 4 MODES I 3 LOGFILE I 2 SUBSTITUTIONS I 1 OFILE I 0 IFILES F 3 LISPXHIST F 4 RESETVARSLST) 9BµoB ¿B¥Bhb¿S!Tog ‘h‚gZ J“I(64Q ERROR! 57Q RESETRESTORE 45Q SUBSTITUTEWORDFILEA0001 13Q ERROR) (53Q ERROR 42Q INTERNAL) ( 37Q (SUBSTITUTEWORDFILEA0001) 7 "non-list SUBSTITUTIONS") TRANSLATEWORDFILEA0001 D1 (NAME ERRORSET P 35Q W P 34Q NC P 33Q WORD P 31Q INPUTWORD P 30Q READWORDS P 27Q W P 26Q #SWORDS P 25Q #READWORDS P 24Q FILEREADFN P 23Q TRANSFNS P 22Q LEAVEINPUTOPEN P 21Q TSTRPTRS P 20Q IFILE P 17Q X P 16Q #SKIPPEDWORDS P 15Q TOTAL#WORDS P 14Q READSTR P 13Q MAXSTRLENGTH P 11Q OLDPRIMOUT P 10Q IFILELIST P 6 LEAVEOUTPUTOPEN P 5 DONTPRINT P 4 RDFN P 3 DEFFNS P 2 COMFNS P 1 OFILE P 0 IFILES F 36Q RESETVARSLST F 37Q IFILES F 40Q OFILE F 41Q COMMONTRANSFNS F 42Q DEFAULTTRANSFNS F 43Q READFN F 44Q DONTPRINT F 45Q RESETY) 0W>W@µWB WDd£d‘h WFWH&HJK Ig ‘i¾I ¹gI _hhW<c<¿Ojld jdeOµdM³OOi ¿oi ¿OOÙi ¿oi ¿Oi ¿oi ¿i ¿oi ¿Oi ¿i ¿O ¿N¢±mI ±j__ ¿O_&gð›O&O&_&¿ˆO “g€L_(¿O&O" _"¿O dlð¦ ´ O g _$¿O M _ ¿jd2O ¿O(šO OlO(†O O _0µnM³YOO*Ô_¿OO,Ô_¿O*i ¿oi ¿O,jñ².oi ¿O*O,Ùi ¿oi ¿O,i ¿oi ¿i ¿O$¥O ¿O_±þ¹_¿Oµ±ÿn¦O_2¿hˆO_2¿O_¿O*kÔ_*¿O2O&O"_.µO,kÔ_,¿°É!O4µ°¿¦O4_6¿hˆO4_6¿O4_4¿O6 _8Oñ”O8_¿O6O:I ¿I °ÃI cJi(1047Q CLOSEF 1040Q TERPRI 1033Q PRIN1 1005Q NCHARS 724Q DOTRANSFNS 634Q CLOSEF? 622Q TERPRI 615Q PRIN1 604Q PRIN1 575Q PRIN1 564Q PRIN1 552Q PRIN1 533Q PRIN1 522Q PRIN1 465Q DREADWORD 437Q MAXIMALSTRING 422Q INPUTWORDSTREAM 411Q OPENP 377Q STREAMP 361Q ALLOCTPTRS 275Q FULLNAME 263Q OUTPUT 255Q TERPRI 250Q PRIN1 241Q PRIN1 230Q TERPRI 223Q PRIN1 212Q PRIN1 203Q PRIN1 172Q PRIN1 160Q PRIN1 147Q PRIN1 124Q ALLOCSTRING 77Q OUTPUT 67Q OUTPUTWORDSTREAM 60Q OPENP 46Q MAPWORDFILEMAC.CHECKFILES 31Q CHECKTRANSFNS 15Q CHECKTRANSFNS 10Q OUTPUT) (406Q INPUT 345Q MAPWORDFILEMAC.POPIFILE 320Q READFN 73Q OUTPUT 55Q OUTPUT) ( 611Q " skipped" 571Q " kept, " 546Q ", " 527Q " read" 235Q "Maximum string length = " 217Q " skipped. " 177Q " kept, " 154Q " total words read, ") TRANSLATEWORDFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 DONTPRINT I 4 READFN I 3 DEFAULTTRANSFNS I 2 COMMONTRANSFNS I 1 OFILE I 0 IFILES F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q TRANSLATEWORDFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TRANSLATEWORDFILEA0001)) ALLOCTPTRS D1 (P 1 I I 1 OLDTPTRS I 0 TRANSFNS) $@ A ÙjIHó¯ld Ab¿IkÔY°ïA(25Q ALLOCSTRING 7 LENGTH 3 LENGTH) NIL () CHECKTRANSFNS D1 (P 5 PRIORREADFNFLAG P 4 TR I 0 TRANSFNS) _@d² @gghh@QHµI£H¼h„H¼H¸Ld² ²M’h°Lggh†Lgð½L»Jµ KhZ¹°ÄK&º°¿(63Q FNTYP 7 FNTYP) (112Q READFN 101Q STR 76Q WORD 17Q STR 14Q WORD) () DOTRANSFNS D1 (P 11Q TTW P 7 STR P 5 STR P 4 WORD P 3 VAL P 2 FN P 1 TW I 2 STRPTRS I 1 TRANSFNS I 0 INPUTWORD) ± A@"HµIºI´üJ¢±˜Iµ2B ¿J²IBBb¿J ŒIBBb¿lJ[ið³fK°bBBb¿" Nµ Od²L°K_¿O ¿JšOJ ˆOOlJ[²!OKdið“¿O‹µ KdOð’ h _¿N^°¯¹HX±ÿY(236Q \NCONC2 231Q CONCAT 164Q EVAL 147Q MAXIMALSTRING 61Q EVAL 35Q MAXIMALSTRING) NIL () MAPWORDFILEMAC.CHECKFILES D1 (P 5 NOTFOUNDERROR P 4 FNS P 3 FF P 2 F I 2 DEFFNS I 1 COMFNS I 0 IFILES) ¤ @QHµI£Hºh„HºH¸Ii½Jµ,B¼LA ¼Jd¨µJi [µJ²F0J °5Lh°Xdgð”¿h½J ¼Jº°ÂdL¾OµNh_N&_¿µêOµ#M™oJ °oi ¿Ji ¿i ¿h ¹±ÿd(236Q \NCONC2 231Q TERPRI 224Q PRIN1 216Q PRIN1 204Q ERROR 127Q CHECKTRANSFNS 75Q FILDIR 60Q FINDFILE 42Q \APPEND2) (114Q ?) ( 212Q "FILE NOT FOUND: " 200Q "FILE NOT FOUND") MAPWORDFILEMAC.POPIFILE D1 (P 1 I P 0 W I 1 STR I 0 LST F 2 IFILE) (RRc¿H´k¹AIHI)µ AIkÙ ¿IkÔ°é(40Q !RPLCHARCODE 34Q SETSTRINGLENGTH) NIL () DCOPYSTRING D1 (P 0 I I 1 STR I 0 W) -A¤@ @Að‘@A@ kAH@H)µA¿HkÔ¸°ï(44Q !RPLCHARCODE 24Q SETSTRINGLENGTH 21Q NCHARS 5 CONCAT) NIL () DCOPYSUBSTRING D1 (P 3 SI P 2 DI P 0 SNC I 3 SEND I 2 SSTART I 1 DEST I 0 SOURCE) …@ B¡kˆjBñ—BHkØØb¿C¡HˆjCñ—CHkØØb¿A©BCñ²j @Að²Bdkð—¿CHð‘@BCñ³ç@BCBCñ³+ACBÙkØ CkBKIó³AJ@K)¿JkÔºKkÔ[°ëAAj (202Q SETSTRINGLENGTH 160Q !RPLCHARCODE 135Q SETSTRINGLENGTH 116Q SUBSTRING 61Q ALLOCSTRING 3 NCHARS) NIL () FINDPREFIXESA0001 D1 (I 0 W F 0 PREFIXES F 1 BUTNOT) @PQ(5 MATCHPREFIXES) NIL () FINDPREFIXES D1 (I 4 READFN I 3 BUTNOT I 2 PREFIXES I 1 OFILE I 0 IFILES) @AghD (12Q TRANSLATEWORDFILE) (4 FINDPREFIXESA0001) () FINDSUBSTRINGSA0001 D1 (I 0 W F 0 SUBSTRINGS) @P (4 MATCHSUBSTRINGS) NIL () FINDSUBSTRINGS D1 (I 3 READFN I 2 SUBSTRINGS I 1 OFILE I 0 IFILES) @AghC (12Q TRANSLATEWORDFILE) (4 FINDSUBSTRINGSA0001) () FINDSUFFIXESA0001 D1 (I 0 W F 0 SUFFIXES F 1 BUTNOT) @PQ(5 MATCHSUFFIXES) NIL () FINDSUFFIXES D1 (I 5 READFN I 4 NOCAPS I 3 BUTNOT I 2 SUFFIXES I 1 OFILE I 0 IFILES) @AD´ghgh hE (27Q TRANSLATEWORDFILE 21Q \APPEND2) (14Q FINDSUFFIXESA0001 7 NOTPROPERP) () MATCHPREFIXES D1 (P 4 I P 3 NCP P 2 P P 0 NCW I 2 BUTNOT I 1 PREFIXES I 0 W) ŽAž@ A"Id³´@ B"Iµ?i´@£Iºh„IºI¹J [Hñ³Õk@L)JL)µ ¿i²ÄJµÅi°Âð¢h°ôLkÔ¼°ä£Iºh„IºI¹J [Hñ³k@L)JL)µ ¿i²œh°ð¢h°÷LkÔ¼°ç(150Q NCHARS 61Q NCHARS 24Q NCHARS 5 NCHARS) NIL () MATCHSUBSTRINGS D1 (P 1 S I 1 SUBSTRINGS I 0 W) &AHd¤´@£H¹h„H¹H¸I@ ²çIµçi°ä(34Q STRPOS) NIL () MATCHSUFFIXES D1 (P 5 SI P 4 WI P 3 NCS P 2 S P 0 NCW I 3 NOCAPS I 2 BUTNOT I 1 SUFFIXES I 0 W) ¤C•@ ´#Až@ A"Id³´@ B"IµFi´@£Iºh„IºI¹J [Hñ³ÕHK@L)JM)µ ¿i²ÃJµÄi°Áð¢h°ôLmÿÔ¼MmÿÔ½°Þ£Iºh„IºI¹J [Hñ³¦HK@L)JM)µ ¿i²”h°•ð¢h°÷LmÿÔ¼MmÿÔ½°á(167Q NCHARS 71Q NCHARS 34Q NCHARS 15Q NCHARS 5 NOTPROPERP) NIL () MIXEDCASEP D1 (P 3 MIDUC P 2 HASLC P 1 C P 0 I I 0 W) 8k1@H)Y´laIñ¬Ilzñ§K‘iiº°lAIñ¯IlZñªHdkð¦¿J³éi»HkÔ¸°ÏNIL NIL () PROPERP D1 (I 0 W) lA@k)ñhð´ @k)lZñhðNIL NIL () NOTPROPERP D1 (I 0 W) lA@k)ñµ@k)lZñNIL NIL () REVERSESTRING D1 (P 3 IR P 2 I P 0 NC1 I 1 STR I 0 W) F@ kØAµHkÙ b¿HâkJIó™AHkÙ °íHJÙ»AJ@K)AK@J)¿¿JkÔZ°Ù(75Q !RPLCHARCODE 71Q !RPLCHARCODE 46Q SETSTRINGLENGTH 21Q ALLOCSTRING 3 NCHARS) NIL () TRIMSTRING D1 (P 2 STARTPOS P 1 I P 0 NC I 1 STR I 0 W) Ð@ @k)dl ð¥dl ð²|¿l@I)dl ð¤dl ð’¿i¿h³,I@H)dl ð¥dl ð²<¿HkÙ@I)dl ð¤dl ð˜¿i‡IkÔ¹°¾¿h³@Aµ IJÙkØ JIImÿÔ¹°Ï¿@Aµ HJÙkØ JH¿@H)dl ð¥dl ð²1¿HkÙ@I)dl ð¤dl ð’¿i¿h@AµI kIImÿÔ¹°Ú@(304Q DCOPYSUBSTRING 277Q ALLOCSTRING 215Q DCOPYSUBSTRING 210Q ALLOCSTRING 163Q DCOPYSUBSTRING 156Q ALLOCSTRING 3 NCHARS) NIL () TRIMTONIL D1 (P 2 STARTPOS P 1 I P 0 NC I 1 STR I 0 W) å@ @k)dl ð§dl ð¢±ˆ¿l@I)dl ð¤dl ð’¿i¿h³7IJHñhð´‚±¥@H)dl ð¥dl ð²<¿HkÙ@I)dl ð¤dl ð˜¿i‡IkÔ¹°³¿h³@Aµ IJÙkØ JIImÿÔ¹°Ï¿@Aµ HJÙkØ JH¿@H)dl ð¥dl ð²1¿HkÙ@I)dl ð¤dl ð’¿i¿h@AµI kIImÿÔ¹°Ú¿Hjðhð´@(321Q DCOPYSUBSTRING 314Q ALLOCSTRING 232Q DCOPYSUBSTRING 225Q ALLOCSTRING 200Q DCOPYSUBSTRING 173Q ALLOCSTRING 3 NCHARS) NIL () (PRETTYCOMPRINT WORDFNSCOMS) (RPAQQ WORDFNSCOMS ((FNS COMMONSORTEDFILES COMPARESORTEDFILES DIFFSORTEDFILES DREADLINE DREADLINESKIPSC DREADWORD INPUTWORDSTREAM LONGESTWORDS OUTPUTWORDSTREAM SEXPRCOUNT WORDCOUNT) (* Translation functions) (INITVARS (WORDFNS.SEQUENTIAL T)) (COMS (FNS SORTWORDFILE.NOFSM SORTWORDFILE.COMPAREFN SORTWORDFILE.FASTCOMPAREFN GETNTHFIELD NUMORDER) (* FSM version overrides if it exists) (VARS (WHITESPACEBITTABLE (MAKEBITTABLE (CHARCODE (SPACE TAB)))) (TABBITTABLE (MAKEBITTABLE ( LIST (CHARCODE TAB))))) (GLOBALVARS WHITESPACEBITTABLE TABBITTABLE) (P (MOVD? (QUOTE SORTWORDFILE.NOFSM) (QUOTE SORTWORDFILE)))) (COMS (FNS ALPHABETHIST COLLECTWORDFILE MAPWORDFILE SUBSTITUTEWORDFILE TRANSLATEWORDFILE) (FNS ALLOCTPTRS CHECKTRANSFNS DOTRANSFNS) (FNS MAPWORDFILEMAC.CHECKFILES MAPWORDFILEMAC.POPIFILE) (MACROS MAPWORDFILEMAC) (PROP ARGNAMES MAPWORDFILEMAC) (ALISTS (PRETTYEQUIVLST MAPWORDFILEMAC))) (FNS DCOPYSTRING DCOPYSUBSTRING FINDPREFIXES FINDSUBSTRINGS FINDSUFFIXES MATCHPREFIXES MATCHSUBSTRINGS MATCHSUFFIXES MIXEDCASEP PROPERP NOTPROPERP REVERSESTRING TRIMSTRING TRIMTONIL) (FILES (SYSLOAD) SETSTRINGLENGTH))) (RPAQ? WORDFNS.SEQUENTIAL T) (RPAQ WHITESPACEBITTABLE (MAKEBITTABLE (CHARCODE (SPACE TAB)))) (RPAQ TABBITTABLE (MAKEBITTABLE (LIST (CHARCODE TAB)))) (MOVD? (QUOTE SORTWORDFILE.NOFSM) (QUOTE SORTWORDFILE)) (PUTPROPS MAPWORDFILEMAC MACRO (ARGS (LET ((IFILES (pop ARGS)) (OUTPUTFILEFORM (pop ARGS)) ( COMMONTRANSFNS (pop ARGS)) (DEFAULTTRANSFN (pop ARGS)) (MAPFORM (pop ARGS)) (NEEDSMAPSTR) (BINDMAPFN) (READFN (pop ARGS)) (FINALFORM (pop ARGS)) (DONTPRINT (pop ARGS))) (SETQ MAPFORM (COND ((AND (LISTP MAPFORM) (EQ (CAR MAPFORM) (QUOTE FUNCTION)) (NULL (CDDR MAPFORM))) (COND ((OR (NOT (FNTYP (CADR MAPFORM))) (IGEQ (NARGS (CADR MAPFORM)) 2)) (SETQ NEEDSMAPSTR T) (BQUOTE (PROGN (MAXIMALSTRING MAPSTR) (, (CADR MAPFORM) WORD MAPSTR)))) (T (LIST (CADR MAPFORM) (QUOTE WORD))))) (T (* Form or variable. Rebind to insure eval order with Readfn) (SETQ BINDMAPFN (LIST (LIST (QUOTE MAPFN) MAPFORM))) (COND (( OR (NOT (FNTYP MAPFORM)) (IGEQ (NARGS MAPFORM) 2)) (SETQ NEEDSMAPSTR T) (QUOTE (PROGN (MAXIMALSTRING MAPSTR) (APPLY* MAPFN WORD MAPSTR)))) (T (QUOTE (APPLY* MAPFN WORD))))))) (BQUOTE (LET ((IFILES , IFILES) ,@ (AND OUTPUTFILEFORM (BQUOTE ((OFILE , OUTPUTFILEFORM)))) (COMFNS (CHECKTRANSFNS , COMMONTRANSFNS)) (DEFFNS (CHECKTRANSFNS (MKLIST , DEFAULTTRANSFN))) ,@ BINDMAPFN (RDFN , READFN) ,@ ( AND NEEDSMAPSTR (QUOTE ((MAPSTR (ALLOCSTRING 100))))) LEAVEOUTPUTOPEN (DONTPRINT , DONTPRINT)) ,@ (AND OUTPUTFILEFORM (QUOTE ((DECLARE (SPECVARS OFILE))))) (LET ((IFILELIST (MAPWORDFILEMAC.CHECKFILES IFILES COMFNS DEFFNS)) ,@ (AND OUTPUTFILEFORM (QUOTE ((OLDPRIMOUT))))) (* Collect fullnames first, before opening output file, so that same name can be used without getting accessmode conflicts, given that output file must be opened first. Also put ifiles in normal form with translation functions) ,@ ( AND OUTPUTFILEFORM (QUOTE ((PROGN (AND (OPENP OFILE (QUOTE OUTPUT)) (SETQ LEAVEOUTPUTOPEN T)) (SETQ OFILE (OUTPUTWORDSTREAM OFILE)) (RESETSAVE (SETQ OLDPRIMOUT (OUTPUT OFILE))))))) (bind IFILE TSTRPTRS LEAVEINPUTOPEN TRANSFNS FILEREADFN (MAXSTRLENGTH _ 0) (READSTR _ (ALLOCSTRING 100)) (TOTAL#WORDS _ 0) (#SKIPPEDWORDS _ 0) for X in IFILELIST declare (SPECVARS IFILE) do (* IFILE can be accessed freely from the translation function) (SETQ IFILE (CAR X)) (SETQ TRANSFNS (CDR X)) (SETQ FILEREADFN (COND (( EQ (CAR TRANSFNS) (QUOTE READFN)) (PROG1 (CADR TRANSFNS) (SETQ TRANSFNS (CDDR TRANSFNS)))) ((LISTP IFILE) (FUNCTION MAPWORDFILEMAC.POPIFILE)) (T RDFN))) (SETQ TSTRPTRS (ALLOCTPTRS TRANSFNS TSTRPTRS)) ( SETQ LEAVEINPUTOPEN (AND (OR (LITATOM IFILE) (STREAMP IFILE)) (OPENP IFILE (QUOTE INPUT)))) (SETQ IFILE (INPUTWORDSTREAM IFILE DONTPRINT)) (bind W READWORDS INPUTWORD (#READWORDS _ 0) (#SWORDS _ 0) declare (SPECVARS INPUTWORD) while (PROGN (MAXIMALSTRING READSTR) (SETQ READWORDS (COND (FILEREADFN ( APPLY* FILEREADFN IFILE READSTR)) (T (DREADWORD IFILE READSTR))))) do (* Readers can produce a list of words and translations can expand to a list. But maybe there's nothing to be done besides the last transfn?) (for old INPUTWORD inside READWORDS do (add #READWORDS 1) (if (SETQ W (DOTRANSFNS INPUTWORD TRANSFNS TSTRPTRS)) then (for WORD NC inside W do (SETQ NC (NCHARS WORD)) (AND (IGREATERP NC MAXSTRLENGTH) (SETQ MAXSTRLENGTH NC)) , MAPFORM) else (add #SWORDS 1))) finally (if (NOT DONTPRINT) then (add TOTAL#WORDS #READWORDS) (add #SKIPPEDWORDS #SWORDS) (printout T #READWORDS " read") (AND ( IGREATERP #SWORDS 0) (printout T ", " (IDIFFERENCE #READWORDS #SWORDS) " kept, " #SWORDS " skipped")) (TERPRI T))) (OR LEAVEINPUTOPEN (CLOSEF? IFILE)) finally (if (NOT DONTPRINT) then (printout T TOTAL#WORDS " total words read, " (IDIFFERENCE TOTAL#WORDS #SKIPPEDWORDS) " kept, " #SKIPPEDWORDS " skipped. " T "Maximum string length = " MAXSTRLENGTH T)) , FINALFORM (RETURN ,@ (AND OUTPUTFILEFORM (QUOTE ((PROGN (OUTPUT OLDPRIMOUT) (COND (LEAVEOUTPUTOPEN (FULLNAME OFILE)) (T (CLOSEF OFILE))))))))) )))))) (PUTPROPS MAPWORDFILEMAC ARGNAMES (IFILES OUTPUTFILE COMMONTRANSFNS DEFAULTTRANSFN MAPFN READFN FINALFORM DONTPRINT)) (ADDTOVAR PRETTYEQUIVLST (MAPWORDFILEMAC . LAMBDA)) (FILESLOAD (SYSLOAD) SETSTRINGLENGTH) (PUTPROPS WORDFNS COPYRIGHT ("Xerox Corporation" 1985 1986 1900 1987 1988)) NIL