(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "18-Oct-2023 17:45:46" ("compiled on " {WMEDLEY}COMPARETEXT.;131) "18-Oct-2023 14:05:52" brecompiled exprs%: IMCOMPARE.COLLECT.HASH.CHUNKS IMCOMPARE.HASH in "FULL 18-Oct-2023 ..." dated "18-Oct-2023 14:05:59") (FILECREATED "18-Oct-2023 17:45:46" {WMEDLEY}COMPARETEXT.;131 48661 :EDIT-BY rmk :CHANGES-TO (FNS IMCOMPARE.COLLECT.HASH.CHUNKS IMCOMPARE.HASH) :PREVIOUS-DATE " 2-Nov-2022 10:08:52" {WMEDLEY}COMPARETEXT.;130) COMPARETEXT :D8 (P 1 FULLFILE2 P 0 FULLFILE1 I 7 TEXTHEIGHT I 6 TEXTWIDTH I 5 TITLE I 4 FILELABELS I 3 CHUNKREGION I 2 HASH.TYPE I 1 FILE2 I 0 FILE1) ˜Bgð³/Bgð³&Bdgð³§gboB ¿@giµ @i Agiµ Ai H‘I¯o@Ah ¿hjhHhhjhIhBCDEFG (149 IMCOMPARE.CHUNKS 117 ERROR 95 FINDFILE 86 GETSTREAM 74 FINDFILE 65 GETSTREAM 52 ERROR 47 CONCAT) (80 INPUT 59 INPUT 33 PARA 24 WORD 14 LINE 5 PARA) ( 107 "Can't find both files" 41 "Unrecognize HASHTYPE ") COMPARETEXT.WINDOW :D8 (P 4 HEIGHT P 3 WIDTH P 2 GRAPHREGION P 1 WINDOW P 0 FILEPREFIX I 2 TITLE I 1 CHUNKREGION I 0 GRAPH F 7 WBorder F 8 DEFAULTFONT) S@g a@ Z`lWÖJØ½dMñ‘¿M[JlWÈ ÚØ¾lÈNñ‘NlÈ\AdiðŸ¿ldnôl–h°A µ:A ²KLggAKlÛÙA °KLggA bdBµ~oH›oH „oo@g •o„oo@g dgð—¿o°$dgð—¿o°gð•o„ Yd KI ð²IgKnÿÿ¿I I(335 GETPROMPTWINDOW 328 PUTWINDOWPROP 306 WINDOWREGION 299 GETPROMPTWINDOW 292 CREATEW 287 CONCAT 281 SHOULDNT 231 GRAPHERPROP 203 GRAPHERPROP 181 CONCAT 157 RELCREATEREGION 136 RELCREATEREGION 107 POSITIONP 99 REGIONP 20 GRAPHREGION 10 GRAPHERPROP) (318 MAXSIZE 268 WORD 253 LINE 237 PARA 226 HASH.TYPE 198 ALLCHUNKS 150 TOP 145 RIGHT 121 TOP 116 LEFT 58 FONTDESCRIPTOR 26 SCREENWIDTH 5 FILELABELS) ( 275 "word" 261 "line" 245 "paragraph" 220 " chunks, hashed by " 215 "only different" 209 "all" 192 " showing " 187 "" 175 " of " 168 "Compare text") COMPARETEXT.TSTREAM :D8 (P 7 TEXTHEIGHT P 6 TEXTWIDTH P 5 REGIONARGS P 4 REGION P 3 TWINDOW P 2 TSTREAM P 1 NODEID P 0 GRAPH I 2 INCOL1 I 1 WINDOW I 0 NODE F 8 COMPARETEXT.AUTOTEDIT) Ag @AB•g„g SJžJ ’±ÜHg µn¼¾Hg µnX_¿NOB•g„ggAoB’mÿ€khAohd½W–M …M ¼Id3 “Lho Z »AB•g„gJ¿KgB›Hg ‹Hg ¿KA ¿KA J(268 CLOSEWITH 260 MOVEWITH 252 PUTWINDOWPROP 244 GRAPHERPROP 232 GRAPHERPROP 212 WINDOWPROP 191 WFROMDS 185 TEXTSTREAM 180 TEDIT 157 RELGETREGION 150 RELCREATEREGION 79 GRAPHERPROP 62 GRAPHERPROP 47 OPENWP 42 WFROMDS 31 WINDOWPROP 10 GETWINDOWUSERPROP) (239 FILELABELS 227 FILELABELS 219 TITLE 206 COL2TSTREAM 200 COL1TSTREAM 108 TOP 103 LEFT 97 RIGHT 74 TEXTHEIGHT 57 TEXTWIDTH 26 COL2TSTREAM 20 COL1TSTREAM 5 GRAPH) ( 175 (READONLY T LEAVETTY T) 130 (BOTTOM -2) 114 0.5) COMPARETEXT.SETSEL :D8 (P 1 FILEPTR P 0 CHUNK I 1 NODE I 0 TSTREAM) ?A!H¹@IlÙºkJñ¡J€kjg@ @IHg@ (60 TEDIT.NORMALIZECARET 54 TEDIT.SETSEL 38 TEDIT.NORMALIZECARET 32 TEDIT.SETSEL) (49 LEFT 27 LEFT) () CHUNKNODELABEL :D8 (L (2 EXTENDER 1 MIN.LENGTH 0 CHUNK)) @@HoI(21 CONCAT) NIL ( 15 ":") IMCOMPARE.BOXNODE :D8 (P 0 LASTNODES I 2 NODE2 I 1 NODE1 I 0 WINDOW) f@g Hdg@¿HžHg@¿Aµ$Bµ@gABhg@¿°ãg@¿°Ò(97 RESET/NODE/LABELSHADE 83 RESET/NODE/LABELSHADE 71 PUTWINDOWPROP 48 RESET/NODE/LABELSHADE 29 RESET/NODE/LABELSHADE 10 GETWINDOWUSERPROP) (91 INVERT 77 INVERT 61 LASTNODES 42 INVERT 23 INVERT 5 LASTNODES) () IMCOMPARE.CHUNKS :D8 (P 2 CHUNKLIST2 P 1 CHUNKLIST1 P 0 CHUNK.SYMBOL.TABLE I 7 TEXTHEIGHT I 6 TEXTWIDTH I 5 TITLE I 4 FILELABELS I 3 CHUNKREGION I 2 HASH.TYPE I 1 CHUNK2 I 0 CHUNK1) ©nô @B AB IHhJHiI!KµKIh I YJ ZIi I YJ ZI J @ABCIJDEFG \H ]kð²Mkð²LM¿Mi¿K[°ˆ(130 GETHASH 120 IMCOMPARE.DISPLAYGRAPH 103 IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 97 IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 90 DREVERSE 83 DREVERSE 77 IMCOMPARE.MERGE.CONNECTED.CHUNKS 69 DREVERSE 62 DREVERSE 56 IMCOMPARE.MERGE.CONNECTED.CHUNKS 40 IMCOMPARE.UPDATE.SYMBOL.TABLE 32 IMCOMPARE.UPDATE.SYMBOL.TABLE 21 IMCOMPARE.COLLECT.HASH.CHUNKS 14 IMCOMPARE.COLLECT.HASH.CHUNKS 7 HASHARRAY) NIL () IMCOMPARE.COLLECT.HASH.CHUNKSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 ENDPOS P 4 STREAM P 0 FILENAME I 0 SI::*CLEANUP-FORMS* F 6 CHUNK F 7 SI::*RESETFORMS* F 8 HASH.TYPE) ¶VQoHggo\hWc¿L ²$oLhddgjh \hWc¿Lgg¿V¯VLg ¿LV ¿VVØ½LWMcµIH¿V»Jµ KhZ¹°áK&º°Ü(151 IMCOMPARE.HASH 132 SETFILEPTR 121 GETFILEINFO 101 SETFILEINFO 75 OPENTEXTSTREAM 49 \TEDIT.FORMATTEDP1 33 OPENSTREAM) (116 LENGTH 96 ANY 91 EOL 65 OBJECTBYTE 23 OLD 18 INPUT) ( 56 (PROGN (CLOSEF? OLDVALUE)) 28 ((ENDOFSTREAMOP NILL)) 12 (PROGN (CLOSEF? OLDVALUE))) IMCOMPARE.COLLECT.HASH.CHUNKS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 HASH.TYPE I 0 CHUNK F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 IMCOMPARE.COLLECT.HASH.CHUNKSA0001) (8 SI::RESETUNWIND) () IMCOMPARE.DISPLAYGRAPH :D8 (P 44 N2 P 43 KEPT2 P 42 KEPT1 P 41 N1 P 40 YPOS P 37 C1 P 36 C2 P 32 Y P 30 C2 P 29 C1 P 25 Y P 23 C2 P 22 C2TAIL P 21 O1 P 20 C1 P 19 C1TAIL P 15 TEMP1 P 14 GRAPH P 13 YINCREMENT P 12 COL2X P 11 COL2HEADER P 10 COL1X P 9 COL1HEADER P 8 NODES2 P 7 NODES1 P 6 2TO1MAP P 5 FILEPREFIX P 4 FILE2LABEL P 3 FILE1LABEL P 2 BORDERSIZE P 1 FULLFILE2 P 0 FULLFILE1 I 9 TEXTHEIGHT I 8 TEXTWIDTH I 7 TITLE I 6 FILELABELS I 5 CHUNKLIST2 I 4 CHUNKLIST1 I 3 CHUNKREGION I 2 HASH.TYPE I 1 CHUNK2 I 0 CHUNK1 F 45 DEFAULTFONT F 46 COMPARETEXT.ALLCHUNKS) `- @AkãFµH[FµI\KL ]² KM kØ »LM kØ ¼KWZ lÛ_HKOj hdWZmþ _OdlØLWZ lÛØ_ ¿ldO ñ¢O ldØ_ILOj hdWZmþ _EDRO$_&¿O"_,¿O&_(¿O,_.¿O(_*¿O,²iO&²dO.O*ð³QO*µ%O.O&_(ð²%hO, ¿O(O,ŽO,ð²ØhO& ¿O&•O,d¢ˆO,™O&d¦hh¿O&_&¿O,±ÿ~jldJÚØWZÈ ØÙ_DORO0µ:O4_EOR%O>µ‚±ŒOB_W\¢±ÛhO _¿hO _¿±è_:d²0_<µPO:dl OO2 O_>¿O@OÔ_@¿±ÿOF&_D¿°éOOOC,ONµŒ_R¿OLµ‚±¢OT_¿OV_OhOOhO idhddddddddgBgMKLhgOgOgW\gGgGh_ddCGggih _X¿OR²&OXOXORð³!ORŸOROT_T¿OROP¿OXµOPOÔ_P¿ON_N¿OL_L¿±ÿ OV_V¿OXOP¿°Û(774 SHOWGRAPH 756 COMPARETEXT.WINDOW 653 \NCONC2 648 \NCONC2 643 \NCONC2 547 NODECREATE 530 CREATEPOSITION 521 CHUNKNODELABEL 449 NODECREATE 431 CREATEPOSITION 422 CHUNKNODELABEL 391 DREMOVE 380 DREMOVE 272 ATTACH 246 ATTACH 162 NODECREATE 150 CREATEPOSITION 119 STRINGWIDTH 103 NODECREATE 91 CREATEPOSITION 76 STRINGWIDTH 67 SUBSTRING 60 NCHARS 52 SUBSTRING 45 NCHARS 35 FB.GREATEST.PREFIX) (766 IMCOMPARE.MIDDLEBUTTONFN 761 IMCOMPARE.LEFTBUTTONFN 715 TEXTHEIGHT 708 TEXTWIDTH 701 ALLCHUNKS 694 COL2X 687 COL1X 675 FILELABELS 669 HASH.TYPE 324 FONTDESCRIPTOR) () IMCOMPARE.HASH :D8 (P 4 EOLSEEN P 3 NBYTES P 2 C P 1 HASHNUM P 0 STARTPOS I 2 ENDPOS I 1 HASH.TYPE I 0 STREAM) W@ j"BHÙ[djñ´‚±AAdgð²U¿Kjñ£±ö@hgKZl ð¢Jµ L³æi¼°Þl ð³$Jl ð³IJæklklkl¹h¼°³gð²JKdjñ¢± ¿@hgKZdl ð’±‡l ð³ÞJl ð³ØIJæklklkl¹°ºAgð²OKdjñ²P¿@hgKZgð³8Jgð³/Jgð³&IJæklklkl¹°µ¿Kjñ²"@hgKdl ð³édl ð³ãdl ð³Ý¿IH@ HÙhd(332 GETFILEPTR 305 \INCCODE.EOLC 286 SHOULDNT 278 ROT 270 ROT 262 ROT 224 \INCCODE.EOLC 192 ROT 184 ROT 176 ROT 145 \INCCODE.EOLC 110 ROT 102 ROT 94 ROT 57 \INCCODE.EOLC 5 GETFILEPTR) (299 NBYTES 248 TAB 239 EOL 230 SPACE 218 NBYTES 201 WORD 139 NBYTES 120 LINE 51 NBYTES 29 PARA) () IMCOMPARE.MERGE.CONNECTED.CHUNKS :D8 (L (1 BACKWARDS.FLG 0 NEW.CHUNK.LIST)) v @¡h@X¹@d²¿I²I@I ¥@b°×HH@Ø¿IIIØ¿A²H@¿II¿@d¿Id¿°(39 EQP) NIL () IMCOMPARE.MERGE.UNCONNECTED.CHUNKS :D8 (L (0 CHUNK.LST)) <@¡h@¸@dŸ¿H§@•@b°ãHH@Ø¿@d¿°ÊNIL NIL () IMCOMPARE.SHOW.DIST :D8 (L (1 MAX 0 LST)) DAHg [Hg Y@°d¼KLAëêZjJIkgH ¿µäh(59 DRAWLINE 30 GETWINDOWPROP 18 GETWINDOWPROP 4 CREATEW) (52 PAINT 25 HEIGHT 13 WIDTH) () IMCOMPARE.UPDATE.SYMBOL.TABLE :D8 (L (2 OLD.CHUNK.FLG 1 CHUNK.SYMBOL.TABLE 0 CHUNK.LIST)) @@1HYµhZA µJjdhA»BKKkØ¿KI…KdkØ¿I°È(34 PUTHASH 19 GETHASH) NIL () IMCOMPARE.LEFTBUTTONFN :D8 (P 4 N P 3 YPOS P 1 TSTREAM P 0 INCOL1 I 1 WINDOW I 0 NODE) ²@´xAg g @ðAg Y–I ¿Ag Yµ:@d3 ²a¿A@Ag @Jµ h@AH@ ¿°Â\@ð³KLð²LAHhðL ¿L°ÃJZ°ºAH(175 COMPARETEXT.TSTREAM 159 COMPARETEXT.SETSEL 153 COMPARETEXT.TSTREAM 126 TEDIT.SHOWSEL 120 COMPARETEXT.SETSEL 114 COMPARETEXT.TSTREAM 106 IMCOMPARE.BOXNODE 87 GETWINDOWUSERPROP 62 GETWINDOWUSERPROP 50 TEDIT.SHOWSEL 42 GETWINDOWUSERPROP 23 GRAPHERPROP 13 GETWINDOWUSERPROP) (82 GRAPH 57 COL2TSTREAM 37 COL1TSTREAM 18 COL1X 8 GRAPH) () IMCOMPARE.MIDDLEBUTTONFN :D8 (P 3 REGION P 2 INNER.HASH.TYPE P 1 PWINDOW P 0 LASTNODES I 1 WINDOW I 0 NODE) ø@´‚±òAg A RI H¬oI h`do¿Ag g o ¼dL¿lmì½dM¿dg ¿dg¿jdnÿdh¾dN ¿ ZoI ¿JI ¿I A É [ddlÔKKmâÔHHJKAg g h(244 IMCOMPARE.CHUNKS 237 GRAPHERPROP 227 GETWINDOWUSERPROP 190 COPY 183 \INSUREWINDOW 177 TERPRI 170 PRIN1 162 PRIN1 150 MENU 93 REMOVE 83 GRAPHERPROP 73 GETWINDOWUSERPROP 45 PRIN3 32 CLEARW 23 GETPROMPTWINDOW 17 GETWINDOWUSERPROP) (232 FILELABELS 222 GRAPH 125 DEFAULTMENUHELDFN 116 CLRPROMPT 78 HASH.TYPE 68 GRAPH 52 |MENUTYPE#| 12 LASTNODES) ( 156 "Comparing chunks by " 88 (PARA LINE WORD) 59 "New hash type?" 39 "Select nodes to be expanded") IMCOMPARE.COPYBUTTONFN :D8 (L (1 NODE 0 WINDOW)) (4 HELP) NIL () TAIL1 :D8 (L (0 ALL) F 4 CHUNKLIST1 F 5 C1TAIL) .@@’T°"U°d[Kh¸IµHhZH&¹µâJNIL NIL () TAIL2 :D8 (L (0 ALL) F 4 CHUNKLIST2 F 5 C2TAIL) +@@’T°U°d[Kh¸IµHhZH&¹µåJNIL NIL () (PRETTYCOMPRINT COMPARETEXTCOMS) (RPAQQ COMPARETEXTCOMS ((FNS COMPARETEXT COMPARETEXT.WINDOW COMPARETEXT.TSTREAM COMPARETEXT.SETSEL CHUNKNODELABEL IMCOMPARE.BOXNODE IMCOMPARE.CHUNKS IMCOMPARE.COLLECT.HASH.CHUNKS IMCOMPARE.DISPLAYGRAPH IMCOMPARE.HASH IMCOMPARE.MERGE.CONNECTED.CHUNKS IMCOMPARE.MERGE.UNCONNECTED.CHUNKS IMCOMPARE.SHOW.DIST IMCOMPARE.UPDATE.SYMBOL.TABLE) (FNS IMCOMPARE.LEFTBUTTONFN IMCOMPARE.MIDDLEBUTTONFN IMCOMPARE.COPYBUTTONFN) (FILES (SYSLOAD) GRAPHER REGIONMANAGER) (FNS TAIL1 TAIL2) (* ; "Debugging") (INITVARS (COMPARETEXT.ALLCHUNKS T) (COMPARETEXT.AUTOTEDIT T)) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS IMCOMPARE.CHUNK IMCOMPARE.SYMB) (FILES (LOADCOMP) GRAPHER)))) (FILESLOAD (SYSLOAD) GRAPHER REGIONMANAGER) (RPAQ? COMPARETEXT.ALLCHUNKS T) (RPAQ? COMPARETEXT.AUTOTEDIT T) (PUTPROPS COMPARETEXT COPYRIGHT ("Xerox Corporation" 1984 1985 1993 1998)) NIL