42e4f6b406
* GITFNS: correct inconsistency between plist and alist for user properties, make some window titles more informative * Respect difference in filename specifications between unspecified extension (no dot) and no extension (dot with nothing after) * Lower case some clispwords ----- Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
623 lines
42 KiB
Plaintext
623 lines
42 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "11-May-2026 23:08:09" ("compiled on " {MEDLEY}<lispusers>COMPAREDIRECTORIES.;293)
|
||
"11-May-2026 10:23:36" brecompiled exprs%: CD.COMMANDSELECTEDFN in "FULL 11-May-2026 ..." dated
|
||
"11-May-2026 10:23:46")
|
||
(FILECREATED "11-May-2026 23:08:09" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;293 140080 :EDIT-BY rmk
|
||
:CHANGES-TO (FNS CD.COMMANDSELECTEDFN CDFILES CD-MENUFN) :PREVIOUS-DATE "10-May-2026 13:03:16"
|
||
{MEDLEY}<lispusers>COMPAREDIRECTORIES.;290)
|
||
COMPAREDIRECTORIES :D8
|
||
(P 10 CDVALUE P 9 DEPTH2 P 8 DEPTH1 P 7 CDENTRIES P 6 INFOS2 P 5 INFOS1 P 4 DATE P 3 S I 9 SHORTDIRNAMES I 8 FIXDIRECTORYDATES I 7 ALLVERSIONS I 6 OUTPUTFILE I 5 USEDIRECTORYDATE I 4 EXCLUDEDFILES I 3 INCLUDEDFILES I 2 SELECT I 1 DIR2 I 0 DIR1 F 11 LASTCDVALUE) 9
|
||
Bµ
|
||
o ± Óið—o ± È@Bd’± µd¢± °h± «d[g ð©Kdg ð˜¿g ± ‚g ð©Kdg ð—¿g °ig ð³Kg ð©Kdg ð—¿g °Hg ð–g °:Kdg ð—¿g °)g ð–g °Kg ð•g Šo K
|
||
¸IµHhZ<>H&¹µ‚±ÿTJb a
|
||
@mÿ
|
||
g ðŸi_¿@kmþ b ¿Amÿ
|
||
g ðŸi_¿Akmþ b¿@µi µ@b Aµi µAbG²#o i
|
||
¿i ¿@ ¿A ¿Gµ@GµABLi
|
||
o i
|
||
@CDGOEg B
|
||
|
||
]ACDGOE
|
||
^@ALBhdddddhdddddhh_N£MµMN
|
||
B
|
||
g
|
||
_d i
|
||
¿o i
|
||
¿i OOO OcF²¶dFhg B
|
||
(566 CDPRINT 561 MEMB 540 CD.UPDATEWIDTHS 528 TERPRI 521 PRIN1 509 PRIN1 503 LENGTH 495 SORT 485 CDENTRIES.SELECT 479 COMPAREDIRECTORIES.CANDIDATES 428 COMPAREDIRECTORIES.INFOS 413 COMPAREDIRECTORIES.INFOS 407 MEMB 388 PRIN1 377 CDPRINT.HEADER 354 FIX-DIRECTORY-DATES 347 FIX-DIRECTORY-DATES 340 TERPRI 333 PRIN1 313 DIRECTORYNAME 299 DIRECTORYNAME 287 SUBSTRING 267 NTHCHAR 256 SUBSTRING 236 NTHCHAR 225 DATE 196 ERROR)
|
||
(555 AUTHOR 490 CD.SORT 401 AUTHOR 272 * 241 * 184 ~= 177 ~= 169 *- 162 *- 155 -* 147 -* 138 AUTHOR 131 AUTHOR 124 = 116 = 107 SAMEDATE 98 SAME 91 < 83 < 74 BEFORE 66 > 58 > 49 AFTER)
|
||
( 515 " entries" 382 " ... " 327 "Fixing directory dates" 190 "UNRECOGNIZED SELECT PARAMETER" 18 (< > -* *- =)
|
||
7 (< > -* *-))
|
||
COMPAREDIRECTORIES.INFOS :D8
|
||
(P 14 MN P 13 VAL P 12 I P 11 ITAIL P 8 STREAM P 7 LDATE P 6 TYPE P 5 FULLNAME P 1 STARTPOS I 6 INCLUDEAUTHOR I 5 USEDIRECTORYDATE I 4 DEPTH I 3 ALLVERSIONS I 2 EXCLUDEDFILES I 1 INCLUDEDFILES I 0 DIR) @ ´8@ABCD
|
||
@ kØ‚ Hµ Ji
|
||
AO_µ‚± ³O ]g
|
||
_ _¾O_¿MI
|
||
O E¢OOg
|
||
°Og O ¿O Og
|
||
F´Og
|
||
NO hhO ¿¼Kµ
|
||
Lh[ºHX±ÿ@L&»°÷__ ¿O Oð²O_¿OOO°ãOO_¿O±ÿ (209 CLOSEF? 192 EOLTYPE 184 GETFILEINFO 169 GETFILEINFO 157 GDATE 152 IDATE 144 SETFILEINFO 128 GETFILEINFO 111 FULLNAME 104 MATCHNAME 86 \MVLIST 81 COMPAREDIRECTORIES.INFOS.TYPE 74 OPENSTREAM 61 DREVERSE 40 SORT 24 NCHARS 18 CDFILES 5 DIRECTORYNAMEP)
|
||
(179 AUTHOR 164 LENGTH 137 CREATIONDATE 123 CREATIONDATE 69 INPUT)
|
||
()
|
||
COMPAREDIRECTORIES.CANDIDATES :D8
|
||
(P 8 I2 P 7 I1 P 6 I2TAIL P 5 I1TAIL P 0 PAIRS I 1 INFOS2 I 0 INFOS1) ù
|
||
@i
|
||
b Ai
|
||
bP@A"M²gN²aM_¿N_¿OdOð²OOhH¸M½N¾°ÒO
|
||
²OOhhhH¸M]°³OhhOhH¸N¾°<C2BE>MµN²/N°)dYIhhhH¸µî°dZhhJhH¸µîH1 OµO__¿O°$d¼O°d»OLhKhO_¿µëµÝO_°Ã (82 ALPHORDER 15 SORT 6 SORT)
|
||
NIL
|
||
()
|
||
CDENTRIES.SELECT :D8
|
||
(P 12 BINCOMP P 11 DATEREL P 10 IDATE2 P 9 IDATE1 P 8 INFO2 P 7 INFO1 P 6 MATCHNAME P 5 CDE P 1 COMPAREDATE I 1 SELECT I 0 CANDIDATES) —
|
||
@Ao
|
||
² HµJ]¾M_¿M_¿O²=O²9O _¿O _¿OOñ–g °OOñ•g Šg „g _¿O¢± éO¢± ÚI²LOdg ð<>¿g I
|
||
°0g ðœg I
|
||
° Og ð›g I
|
||
„ ¢± ÇOOiOO
|
||
_ið²COdg ðŸ¿Og OO°g ð²Og OO ¿g _¿g A
|
||
´O´OOðhð°O•g „g A
|
||
²&MO¿MOg ð¢O€h¿M¼Kµ
|
||
Lh[ºHX±þ‚L&»°÷ (356 MEMB 309 MEMB 289 SETFILEINFO 227 BINCOMP 194 SHOULDNT 188 MEMB 166 MEMB 146 MEMB 67 IDATE 55 IDATE 11 INTERSECTION)
|
||
(376 * 350 -* 344 *- 303 ~= 295 = 275 CREATIONDATE 264 < 252 CREATIONDATE 241 > 182 = 175 = 160 < 153 < 140 > 132 > 106 * 100 = 94 < 81 >)
|
||
( 6 (< > =))
|
||
COMPAREDIRECTORIES.INFOS.TYPE :D8
|
||
(P 1 DATE P 0 TYPE I 0 FILE) W 0@ Z¸J¹Hµ;@ Y–g °+@ µ#@g
|
||
o
|
||
•g „g XI$ (67 MEMB 57 FILENAMEFIELD 44 PRINTFILETYPE 29 TEDIT.FILEDATE 13 \MVLIST 8 LISPFILETYPE)
|
||
(79 OTHER 73 TEXT 52 EXTENSION 36 TEDIT)
|
||
( 62 (TXT TEXT SH MD C))
|
||
MATCHNAME :D8
|
||
(P 0 M I 1 STARTPOS I 0 NAME) B g hg @A
|
||
Hmÿ
|
||
l.ð™Hkmþ H (63 MKATOM 56 SUBATOM 43 NTHCHARCODE 32 UNSLASHIT 27 U-CASE 22 PACKFILENAME 17 SUBATOM)
|
||
(10 BODY 4 VERSION)
|
||
()
|
||
CD.INSURECDVALUE :D8
|
||
(P 2 E I 0 CDVALUE? F 3 LASTCDVALUE) Ä @µ&i ¿o i
|
||
¿i ¿i ¿Sb ’@°, @XIµ&h@IµJh hdddH Z²%g hg hg hg J
|
||
°¶IY°Z²'g hg hg hg J
|
||
°ŽIY°… (187 PACKFILENAME 137 PACKFILENAME 97 CD.UPDATEWIDTHS 79 DATE 46 STRINGP 34 TERPRI 27 TERPRI 20 PRIN1 8 TERPRI)
|
||
(175 BODY 169 VERSION 163 EXTENSION 157 NAME 127 BODY 121 VERSION 115 EXTENSION 109 NAME)
|
||
( 14 "Note: Using LASTCDVALUE")
|
||
CD.UPDATEWIDTHS :D8
|
||
(I 0 CDVALUE) ! @ @H¿@H@ (5 CDPRINT.MAXWIDTHS)
|
||
NIL
|
||
()
|
||
CDFILES :D8
|
||
(P 24 CNT P 23 I P 22 THISDEPTH P 21 UNPACK P 20 SUBDIR P 19 EXT P 18 NAME P 17 FULLNAME P 13 STARTPOS P 11 P P 10 SD P 9 E P 8 N P 4 ENUMPAT P 3 HOST P 2 *UPPER-CASE-FILE-NAMES* P 1 EXCLUDES P 0 INCLUDES I 4 DEPTH I 3 ALLVERSIONS I 2 EXCLUDEDFILES I 1 INCLUDEDFILES I 0 DIR) c g Bd£d‘hbAg ð³ A˜g A ³g Bd£d‘hb€BA
|
||
bAµg Bd” 2@g
|
||
[@g
|
||
b D¬H!MµvNb¿HHHµo H OµlOg ð—o _¿g Kg o @o Oµo g Og Og C²kg °i_¿N”ONó’O¾M]±ÿt_¿Og ð«OO_¿_¿Og ð«OO_¿_¿Og ðªOOð£h_¿O_±ÿLo
|
||
¼H¡h¸Lg Do hC•o „o l@ Ø’OµO _" _*g '_$¿O*g '_&¿O$³ O&²o O&
|
||
_$¿h_&¿O$£O&²}O*g 'O
|
||
_(¿kdO(O.
|
||
dl>ð¥dl/ð²¿O0kÔ_0¿O.kÔ_.¿°Ý³÷O0_,¿H²O(O$O&O,H
|
||
²%O(O$O&O,I
|
||
³O"_ ¿O µO h_ _ ¿O_±ÿ:O &_ ¿°ò (573 CDFILES.MATCH 556 CDFILES.MATCH 502 NTHCHARCODE 485 SUBATOM 456 PACK* 414 UNPACKFILENAME 394 NCHARS 386 DIRECTORY 346 PACKFILENAME.STRING 208 CONCAT 109 FILENAMEFIELD.STRING 97 FILENAMEFIELD.STRING 83 CDFILES.PATS 75 CDFILES.PATS 60 LDIFFERENCE)
|
||
(477 DIRECTORY 432 EXTENSION 421 NAME 359 DEPTH 314 * 293 * 272 * 235 * 227 VERSION 220 EXTENSION 213 NAME 183 DIRECTORY 177 HOST 162 * 104 DIRECTORY 92 HOST 70 *.* 41 .* 32 .* 21 .* 4 *>.DS¬Store)
|
||
( 449 "." 381 "" 375 "*" 365 (COLLECT) 340 "" 203 "" 194 ">" 188 "<" 169 "" 142 "")
|
||
CDFILES.MATCH :D8
|
||
(P 1 P I 4 PATTERNS I 3 THISDEPTH I 2 EXT I 1 NAME I 0 SUBDIR F 2 FILEDIRCASEARRAY) ¬ DHµh¹AIR ³AIg ð³7I l.ð²zA l.ð²oAIl
|
||
|
||
Il
|
||
l*ð²QBI
|
||
ªIg ð²<CIñ³3@I
|
||
³"Id² dg ð®@khi
|
||
”IµiHX±ÿ] (158 STRPOS 125 STRING.EQUAL 94 STRING.EQUAL 80 NTHCHARCODE 70 STRING.EQUAL 65 SUBATOM 50 CHCON1 39 CHCON1 20 STRING.EQUAL)
|
||
(143 * 103 * 29 *)
|
||
()
|
||
CDFILES.PATS :D8
|
||
(P 10 CNT P 9 I P 7 UNPACK P 6 DEPTH P 5 SD P 4 E P 3 N P 2 P I 0 PATTERNS F 14 *COMPILED-EXTENSIONS*) S @²@g ð¬@dŸ¿g @ •o @<11>HµI£Hºh„HºH¸IJ _g ']g ð”nÿÿ°0kd
|
||
MO
|
||
dl/ð¥dl>ð²¿OkÔ_¿OkÔ_¿°Þ³÷O¾Og '[µ g ° g ð™nÿÿ¾g ‹K jð¡K€h»Og '\µg Š jð¡L€h¼Kg ð’L²Lg ð²HKdo
|
||
²;¿0
|
||
W °*d_¿g OMNh_¿Oµ Oh_‚O&_¿µ×O°&K“KL°Lœg L
|
||
h…g dMNhh
|
||
¹±þÓ (333 \NCONC2 311 PACK* 234 MEMB 195 NCHARS 166 NCHARS 91 NTHCHARCODE 57 UNPACKFILENAME)
|
||
(318 * 305 %. 254 * 219 COM 208 COM 189 * 180 EXTENSION 159 * 148 ** 141 * 132 NAME 71 * 64 SUBDIRECTORY 20 * 8 *)
|
||
( 229 (* NIL) 28 ((* * NIL 1)))
|
||
CDPRINTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 10 E P 9 NCHARSDIR2 P 8 NCHARSDIR1 P 7 LENGTH2END P 6 COL2START P 5 COL2WIDTH P 4 COL1WIDTH P 3 ENDDATE1 P 2 DATE1POS P 1 COLUMNS P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 11 CDVALUE F 12 COLHEADINGS F 13 SI::*RESETFORMS* F 14 PRINTAUTHOR F 15 FILE) 8 WWW <11> II¹ºII¹»II¹¼II¹½II¹¾II¹_¿W_¿W_¿W g i X³6o g g g W g g XhWc¿nèH
|
||
Wd²=H
|
||
¿lH
|
||
¿W H
|
||
¿o H
|
||
¿H ¿H ¿W²3HWKLNM
|
||
¿W°d
|
||
HOW JKOOO
|
||
µå°o i
|
||
¿i ¿Hd” (309 CLOSEF? 300 TERPRI 293 PRIN1 275 CDPRINT.LINE 246 CDPRINT.COLHEADERS 227 TERPRI 220 TERPRI 213 PRIN1 201 PRIN1 195 LENGTH 186 SPACES 177 CDPRINT.HEADER 164 LINELENGTH 145 OPENSTREAM 130 PACKFILENAME 100 GETSTREAM 13 CDPRINT.COLUMNS)
|
||
(140 NEW 135 OUTPUT 123 BODY 118 TXT 113 EXTENSION 94 OUTPUT)
|
||
( 287 "CDVALUE is empty" 207 " entries" 108 (PROGN (CLOSEF? OLDVALUE)))
|
||
CDPRINT :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PRINTAUTHOR I 2 COLHEADINGS I 1 FILE I 0 CDVALUE F 3 LISPXHIST) & @ b S!g ¿$ (31 SI::RESETUNWIND 26 \MVLIST 21 CDPRINTA0001 5 CD.INSURECDVALUE)
|
||
(16 SI::RESETUNWIND)
|
||
()
|
||
CDPRINT.HEADERA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DIR1 F 1 DIR2) 4 Ph
|
||
P Q ØlFñ—l ¿o h
|
||
Qh
|
||
(49 PRIN1 42 PRIN1 30 TAB 18 NCHARS 12 NCHARS 6 PRIN1)
|
||
NIL
|
||
( 36 " vs. ")
|
||
CDPRINT.HEADER :D8
|
||
(P 0 SI::*RESETFORMS* I 4 STREAM I 3 DATE I 2 SELECT I 1 DIR2 I 0 DIR1) Ÿ @d²&¿D£Ab¿@b¿@b¿@b¿@b ´to D
|
||
g D hhh g ¿$D ¿lhD ¿o D
|
||
¿CD
|
||
B´o D
|
||
BD
|
||
(156 PRIN1 149 PRIN1 135 PRIN1 127 PRIN1 115 TAB 105 TERPRI 94 SI::RESETUNWIND 89 \MVLIST 84 CDPRINT.HEADERA0001 64 OUTPUT 53 PRIN1)
|
||
(79 SI::RESETUNWIND 58 OUTPUT)
|
||
( 143 " selecting " 121 "as of " 47 "Comparing ")
|
||
CDPRINT.LINE :D8
|
||
(P 1 INFO2 P 0 INFO1 I 7 LENGTH2END I 6 NCHARSDIR2 I 5 NCHARSDIR1 I 4 ENDDATE1 I 3 DATE1POS I 2 PRINTAUTHOR I 1 ENTRY I 0 STREAM) AAAdið—¿o °x¦o °pAdg ð—¿g ° dg ð–¿g Žg ð’l„o Adg ð—¿g ° dg ð–¿g Žg ð’l„o
|
||
@
|
||
¿o @
|
||
Hµ/Dj@ ¿o @
|
||
¿Adg 𢱠<00>¿o ± ¢EkØho @
|
||
¿o @
|
||
¿B²&o @
|
||
¿H@
|
||
¿o @
|
||
¿ClÙHjhd@
|
||
¿o @
|
||
¿H@
|
||
¿±ÿadg ð—¿o ° g ð<>H•o Šo „ @
|
||
¿o @
|
||
Iµ @ @
|
||
¿o @
|
||
¿IFkØho @
|
||
¿o @
|
||
¿B²&o @
|
||
¿I@
|
||
¿o @
|
||
¿GIjhd@
|
||
¿o @
|
||
¿±ÿ} (521 PRIN1 509 FLUSHRIGHT 492 PRIN1 480 PRIN1 468 PRIN1 453 PRIN1 441 PRIN1 435 SUBSTRING 418 PRIN1 406 PRIN1 397 TERPRI 388 PRIN1 376 PRIN1 370 SHOULDNT 324 PRIN1 314 PRIN1 302 FLUSHRIGHT 283 PRIN1 271 PRIN1 259 PRIN1 244 PRIN1 232 PRIN1 226 SUBSTRING 186 PRIN1 174 TAB 163 PRIN1 151 PRIN1 145 CONCAT)
|
||
(349 * 334 > 197 < 130 CRLF 124 L 116 LF 108 C 100 CR 77 CRLF 71 L 63 LF 55 C 47 CR)
|
||
( 515 " " 486 ") " 462 "(" 447 " " 430 "" 412 " " 382 " " 364 "* " 358 " *" 342 " >" 308 " " 277 ") "
|
||
253 "(" 238 " " 221 "" 208 "< " 180 " " 157 " " 140 "x" 87 "x" 33 " " 25 "==")
|
||
CDPRINT.MAXWIDTHS :D8
|
||
(P 2 CD P 0 CDENTRIES I 0 CDVALUE) Ú @ ’@€@ Hd¢± ª1Iµ‚± KµjH1Iµ‚± ¯KµjH1Iµ‚± ÀKµjH1Iµ‚± ÒKµj@ hH1Iµ‚± ×KµjH1Iµ‚± èKµjH1Iµ‚± ûKµjH1Iµ‚±Kµj@ hhZµo ¼K“LKó‘L»IY±ÿ?Zµo ¼K“LKó‘L»IY±ÿ.Zµo ¼K“LKó‘L»IY±ÿ Zµo ¼K“LKó‘L»IY±ÿ Zµo ¼K“LKó‘L»IY±ÿZµo ¼K“LKó‘L»IY±þóZµo ¼K“LKó‘L»IY±þßZµo ¼K“LKó‘L»IY±þÊ (457 NCHARS 419 NCHARS 382 NCHARS 346 NCHARS 312 NCHARS 276 NCHARS 241 NCHARS 207 NCHARS 180 NCHARS 97 NCHARS 8 STRINGP)
|
||
NIL
|
||
( 452 "" 414 "" 377 "" 341 "" 307 "" 271 "" 236 "" 202 "")
|
||
CDPRINT.COLHEADERS :D8
|
||
(P 0 HEADING I 5 COL2WIDTH I 4 COL2START I 3 COL1WIDTH I 2 ENDDATE1 I 1 COLHEADINGS I 0 STREAM) q A´ AXµ;AXµ @ Eñ˜HkE ¸Dj@ ¿DEÔHjhi@
|
||
¿°Ð Cñ˜HkC ¸BCÕj@ ¿BHjhi@
|
||
¿°ž (108 FLUSHRIGHT 95 TAB 84 SUBSTRING 73 NCHARS 65 FLUSHRIGHT 50 TAB 41 SUBSTRING 30 NCHARS 24 TERPRI)
|
||
NIL
|
||
()
|
||
CDPRINT.COLUMNS :D8
|
||
(P 15 LENGTH2END P 14 COL2START P 13 MAXNAME2 P 12 MAXNAME1 P 11 ENDDATE1 P 10 DATE1POS P 9 INFO1 P 8 EQUIV P 7 DATEWIDTH P 6 MAXAUTHOR2 P 5 MAXAUTHOR1 P 4 MAXWIDTHS2 P 3 MAXWIDTHS1 P 2 DATERELWIDTH P 1 COL2WIDTH P 0 COL1WIDTH I 2 PRINTAUTHOR I 1 COLHEADINGS I 0 CDVALUE) å @ b l
|
||
dl@@jdll™@´‚± ¹KjñšKKÙ°A _ ¿lO ñ¢O <20>l_LjñšLLÙ°A _"¿lO"ñ¢O"<22>l_B²kKØlؽkLØlؾOkØMØKØlØOØXOHOÙØ_OHØ_OlØOØkØNØLØYOHÔJÔ_ dIØ_ OOHIO O h (108 NCHARS 68 NCHARS 5 CD.INSURECDVALUE)
|
||
NIL
|
||
()
|
||
CDTEDIT :D8
|
||
(P 0 TSTREAM I 3 PRINTAUTHOR I 2 COLHEADINGS I 1 TITLE I 0 CDVALUE F 1 DEFAULTFONT) L QH
|
||
@HBC H Hhdg ig g g Aµo h (73 TEDIT 29 TERPRI 23 CDPRINT 14 DSPFONT 4 OPENTEXTSTREAM)
|
||
(53 TITLE 48 CDTEDIT 43 WINDOWTYPE 37 READONLY)
|
||
( 61 "Compare directories")
|
||
CDMAP :D8
|
||
(P 6 EQUIV P 5 INFO2 P 4 DATEREL P 3 INFO1 P 2 MATCHNAME P 1 CDE I 1 FN I 0 CDVALUE F 7 LASTCDVALUE) W @µ'i ¿o i
|
||
¿i ¿i ¿Wb aHµhYºI»I¼I½I¾IkA¿HX°Ù (34 TERPRI 27 TERPRI 20 PRIN1 8 TERPRI)
|
||
NIL
|
||
( 14 "Note: Using LASTCDVALUE")
|
||
CDENTRY :D8
|
||
(I 1 CDVALUE I 0 MATCHNAME F 0 LASTCDVALUE) @AµP NIL
|
||
NIL
|
||
()
|
||
CDSUBSET :D8
|
||
(P 9 EQUIV P 8 INFO2 P 7 DATEREL P 6 INFO1 P 5 MATCHNAME P 4 CDE I 1 FN I 0 CDVALUE) ƒ
|
||
@ b d@@@@@@@‘ Hµ I \½L¾L_¿L_¿L_¿LkA™L»Jµ KhZ¹HX°ÂK&º°ø (71 CD.UPDATEWIDTHS 5 CD.INSURECDVALUE)
|
||
NIL
|
||
()
|
||
CDMERGE :D8
|
||
(P 22 CDE P 18 CDV P 16 NC2 P 15 NC1 P 13 MERGEDENTRIES P 12 DIR2 P 11 DIR1 P 10 IDATE P 9 CDS P 4 TMP P 3 CDV P 0 CDSELECTS I 0 CDVALUES) ” @d²¿ @!Jµ
|
||
H<11>
|
||
Mµ+N[H
|
||
µKhHXYKI¿JZ°Í__¿O_¿O _¿O°>dOK
|
||
_¿OK
|
||
_¿OK ñœK _¿µÂOO kØO kØ#O µaO"g
|
||
_¿OOO OhdddddhdddddhO _¿OµOh_¾M]±þúO&_¿°ô_$¿O"@O$°Id_,d•O †O
|
||
O,O,O,O,_&¿O(µ O&h_*‚O&&_(¿µ·O*
|
||
_"¿O _ ±ÿ6 (391 \NCONC2 334 MATCHNAME 267 CD.UPDATEWIDTHS 227 GDATE 213 SORT 190 NCHARS 181 NCHARS 163 IDATE 151 IDATE 136 CDMERGE.COMMON 122 CDMERGE.COMMON 99 IDATE 40 SASSOC)
|
||
(208 CD.SORT)
|
||
()
|
||
CDMERGE.COMMON :D8
|
||
(P 3 CY P 2 CX P 1 LASTDIRPOS P 0 I I 1 DIRY I 0 DIRX) u kd"@H
|
||
ºAH
|
||
»Jo
|
||
’l/ºKo
|
||
’l/»Jdl/ð˜¿Kl/ð‘H¹J²K²JKð³$J K ð³Hkð•o @kI HkÔ¸°“ (108 SUBSTRING 87 L-CASECODE 81 L-CASECODE 46 MEMB 31 MEMB 19 NTHCHARCODE 11 NTHCHARCODE)
|
||
NIL
|
||
( 99 "" 41 (60 62 47) 26 (60 62 47))
|
||
CD.SORT :D8
|
||
(P 2 ORDER P 1 M2 P 0 M1 I 1 ENTRY2 I 0 ENTRY1) A @Ag hg H g hg I
|
||
Zdg ð—¿HI
|
||
(62 ALPHORDER 45 ALPHORDER 40 PACKFILENAME 23 PACKFILENAME)
|
||
(52 EQUAL 34 BODY 28 EXTENSION 17 BODY 11 EXTENSION)
|
||
()
|
||
BINCOMPA0001A0002 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 4 EOLDIFF P 3 EOL2 P 2 EOL1 P 1 B2 P 0 B1 I 0 SI::*CLEANUP-FORMS* F 5 STREAM1 F 6 A0046 F 7 STREAM2 F 8 EOLDIFFOK) Š Ug g ¿PU XµLµi hc ¿$W Yð³äW´éHdl
|
||
ð² ¿Jg ð’h°Ög ºg »Il
|
||
°!l
|
||
ð´ÀJg ð’h°µg ºg »Il
|
||
ð¢h°¡L³•JKh¼°<C2BC> (34 \MVLIST 15 SETFILEINFO)
|
||
(116 CR 110 LF 100 CR 83 LF 77 CR 67 LF 10 NILL 5 ENDOFSTREAMOP)
|
||
()
|
||
BINCOMPA0001A0003 :D8
|
||
(F 0 STREAM2 F 1 A0046) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
BINCOMPA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 1 A0046 P 0 STREAM2 I 0 SI::*CLEANUP-FORMS* F 2 FILE2 F 3 A0045) B Rg g ig Hg I ¿$ hc¿$ (56 \MVLIST 46 CL:CLOSE 34 \MVLIST 29 BINCOMPA0001A0002 15 OPEN)
|
||
(40 :ABORT 24 BINCOMPA0001A0003 10 :INPUT 5 :DIRECTION)
|
||
()
|
||
BINCOMPA0004 :D8
|
||
(F 0 STREAM1 F 1 A0045) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
BINCOMPA0005A0006 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 2 EOLDIFF P 1 B2 P 0 B1 I 0 SI::*CLEANUP-FORMS* F 3 STREAM1 F 4 A0049 F 5 EOL2 F 6 STREAM2 F 7 EOL1) Z Sg g ¿0S XµJµi hc¿$V Yð³åHl
|
||
ð´èS l
|
||
ð´áIo
|
||
¢h°ÒJ³ÆWUhº°½ (72 MEMB 34 \MVLIST 15 SETFILEINFO)
|
||
(10 NILL 5 ENDOFSTREAMOP)
|
||
( 67 (13 10))
|
||
BINCOMPA0005A0007 :D8
|
||
(F 0 STREAM2 F 1 A0049) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
BINCOMPA0005 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 1 A0049 P 0 STREAM2 I 0 SI::*CLEANUP-FORMS* F 2 FILE2 F 3 A0048) B Rg g ig Hg I ¿$ hc¿$ (56 \MVLIST 46 CL:CLOSE 34 \MVLIST 29 BINCOMPA0005A0006 15 OPEN)
|
||
(40 :ABORT 24 BINCOMPA0005A0007 10 :INPUT 5 :DIRECTION)
|
||
()
|
||
BINCOMPA0008 :D8
|
||
(F 0 STREAM1 F 1 A0048) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
BINCOMP :D8
|
||
(P 3 A0048 P 2 STREAM1 P 1 A0045 P 0 STREAM1 I 4 EOL2 I 3 EOL1 I 2 EOLDIFFOK I 1 FILE2 I 0 FILE1) î @g
|
||
Ag
|
||
Ùjð²6@g g ig Hg I ¿$B´‚± ™C¨@ b¿D¨A b¿Cg ðœDo
|
||
³!Dg ð´dCo
|
||
´WA@b¿b ´N@g
|
||
Ag
|
||
ñ´5@g g ig Jg K ¿$ (231 CL:CLOSE 219 \MVLIST 214 BINCOMPA0005 200 OPEN 181 GETFILEINFO 170 GETFILEINFO 148 MEMB 126 MEMB 104 EOLTYPE 93 EOLTYPE 73 CL:CLOSE 61 \MVLIST 56 BINCOMPA0001 42 OPEN 21 GETFILEINFO 10 GETFILEINFO)
|
||
(225 :ABORT 209 BINCOMPA0008 195 :INPUT 190 :DIRECTION 176 LENGTH 165 LENGTH 134 CRLF 113 CRLF 67 :ABORT 51 BINCOMPA0004 37 :INPUT 32 :DIRECTION 16 LENGTH 5 LENGTH)
|
||
( 143 (LF CR) 121 (LF CR))
|
||
EOLTYPEA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 1 EOLTYPE P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 2 SI::*RESETFORMS* F 3 FILE F 4 SHOWCONTEXT) ( Sg i ²RS¸g g Hd hg Ho g Hg
|
||
hhhhdRc¿Hj
|
||
° g Sg
|
||
XhhdRc¿Hg g H µIdl
|
||
ð²^¿Hi
|
||
l
|
||
ð²+H ¿Io
|
||
²TIg H ³Êhg ¹°ÀIo
|
||
²TIg H ³¤hg ¹°šl
|
||
ð²•Io
|
||
²TIg H ’±ÿxhg ¹±ÿm (279 EOLTYPE.SHOW 264 MEMB 236 EOLTYPE.SHOW 221 MEMB 198 EOLTYPE.SHOW 183 MEMB 164 \PEEKBIN 141 SETFILEINFO 112 OPENSTREAM 94 SETFILEPTR 66 STREAMPROP 35 GETFILEPTR 14 GETSTREAM)
|
||
(290 LF 273 LF 245 CR 230 CR 207 CRLF 192 LF 136 NILL 131 ENDOFSTREAMOP 107 INPUT 101 CLOSEF? 61 ENDOFSTREAMOP 55 QUOTE 44 STREAMPROP 28 SETFILEPTR 23 PROGN 8 INPUT)
|
||
( 259 (CR CRLF) 216 (LF CRLF) 178 (LF CR) 50 (QUOTE ENDOFSTREAMOP))
|
||
EOLTYPE :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 SHOWCONTEXT I 0 FILE F 3 LISPXHIST) ; Ad²dið•¿ldb<02>3 «o A
|
||
¿S!g ¿$ (52 SI::RESETUNWIND 47 \MVLIST 42 EOLTYPEA0001 27 ERROR)
|
||
(37 SI::RESETUNWIND)
|
||
( 21 "SHOWCONTEXT must be an integer")
|
||
EOLTYPE.SHOW :D8
|
||
(P 0 FILEPOS I 3 STREAM I 2 NEWTYPE I 1 OLDTYPE I 0 SHOWCONTEXT) @´‚± šC CiH@ÙH Ai
|
||
¿o i
|
||
¿Bi
|
||
¿o i
|
||
¿Hi
|
||
¿i CiHd@Ø i hdo g ð´*i ¿o i
|
||
¿i ¿i CH
|
||
i (156 SETFILEPTR 149 TERPRI 142 TERPRI 135 PRIN1 123 TERPRI 109 ASKUSER 97 TERPRI 91 COPYBYTES 80 TERPRI 73 PRIN1 65 PRIN1 53 PRIN1 45 PRIN1 33 PRIN1 26 COPYBYTES 12 GETFILEPTR)
|
||
(114 Y)
|
||
( 129 "-------" 104 "Continue? " 59 " " 39 "->")
|
||
FIND-UNCOMPILED-FILESA0001 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 F F 3 SI::NLSETQ-VALUE) ! i@R g R hcg (21 GETDEF 10 FILECOMS)
|
||
(30 :NORMAL 15 VARS)
|
||
()
|
||
FIND-UNCOMPILED-FILES :D8
|
||
(P 21 CF P 17 FCOMS P 16 *CONDITION-HANDLER-BINDINGS* P 15 SI::*NLSETQFLAG* P 14 *PROCEED-CASES* P 13 SI::NLSETQ-VALUE P 12 CF P 11 CEXT P 6 FILES P 5 SCREATION P 4 F I 2 COMPILEEXTS I 1 DFASLMARGIN I 0 FILES F 22 *COMPILED-EXTENSIONS* F 23 *PROCEED-CASES* F 24 *CONDITION-HANDLER-BINDINGS*) z @d¤ AHµIb daHµ4I¼g hg L \dI
|
||
¨»Jµ
|
||
KhZY¿HX°ÆK&Z°÷\ ]¢±M’±BµW,Q Oµ?Oµ‚± ž
|
||
` W.io W0O g ð´OO"³Zh°g_¿g Og hg L
|
||
_²!MOA ’h°5O_¿OµOh__¿O_±ÿvO&_¿°òho O" ´i^²YLNdið“¿h°Eg ð˜o h°50N°)dO*dM
|
||
h_$¿O&µ O$h_(‚O$&_&¿µØO(»Jµ
|
||
KhZ¹HX±þ¨K&º°÷ (324 COMPILE-SOURCE-DATE-DIFF 270 INFILECOMS? 219 SOURCE-FOR-COMPILED-P 206 INFILEP 201 PACKFILENAME 149 FIND-UNCOMPILED-FILESA0001 84 CREATED-AS 56 MEMB 48 PACKFILENAME 8 FILDIR)
|
||
(293 NOCOMMANDS 194 BODY 188 VERSION 181 EXTENSION 155 :NORMAL 127 SI::NLSETQ-PROCEED-CASE 42 BODY 36 VERSION)
|
||
( 300 "No commands" 263 (FUNCTIONS FNS) 136 (CL:ERROR . SI::NLSETQHANDLER))
|
||
FIND-UNSOURCED-FILESA0001 :D8
|
||
(I 1 CF2 I 0 CF1) @g
|
||
Ag
|
||
|
||
(28 ALPHORDER 23 FILENAMEFIELD.STRING 11 FILENAMEFIELD.STRING)
|
||
(18 NAME 6 NAME)
|
||
()
|
||
FIND-UNSOURCED-FILES :D8
|
||
(P 16 CF P 11 SF P 10 CC P 5 CCREATED P 4 FOUND P 3 CEXT P 0 CCREATEDS I 2 COMPILEEXTS I 1 DFASLMARGIN I 0 FILES F 17 *COMPILED-EXTENSIONS*) BµW"AIµ JXdQ Nµ‚± <00>Og
|
||
£I»h„I»I¹J@µ'g Kg o g g
|
||
AOµ
|
||
O
|
||
º°š_ ]² MO
|
||
³M_ ¿O µO h_ _¿O_°ÅO &_ ¿°ó_¿g hg hg O
|
||
_²O _OA ³/OOd´OO
|
||
hh_¿OµOh__¿N^±ÿO&_¿°ô (250 ROUND 245 COMPILE-SOURCE-DATE-DIFF 225 SOURCE-FOR-COMPILED-P 215 CREATED-AS 204 INFILEP 199 PACKFILENAME.STRING 135 MEMBER 122 CREATED-AS 111 \NCONC2 95 FILDIR 90 PACKFILENAME.STRING 40 SORT)
|
||
(190 BODY 184 VERSION 178 EXTENSION 84 * 79 BODY 69 VERSION 63 EXTENSION 35 FIND-UNSOURCED-FILESA0001)
|
||
( 74 "")
|
||
FIND-SOURCE-FILESA0001 :D8
|
||
(I 1 P2 I 0 P1) @ A
|
||
(18 ALPHORDER 13 FILENAMEFIELD.STRING 6 FILENAMEFIELD.STRING)
|
||
NIL
|
||
()
|
||
FIND-SOURCE-FILES :D8
|
||
(P 18 SF P 17 SD P 12 CCREATED P 11 CNAME P 10 SFILES P 9 CF P 4 SD I 2 DFASLMARGIN I 1 SDIRS I 0 CFILES) ó AµiAHµ#Ib@d¤ q Mµ1Ng
|
||
£H¼h„H¼H¸L »Jµ KhZ¹°ÁK&º°¼_ _¢± ŒO _²~AQOµ O _³[°l_"¿g Og
|
||
g O" _$² O$OB ²O$_ ¿O µO h_ _ ¿O_°§O &_ ¿°óOO_¿OµOh_¾M]±ÿ4O&_¿°ô (173 SOURCE-FOR-COMPILED-P 159 INFILEP 154 PACKFILENAME.STRING 142 FILENAMEFIELD.STRING 97 CREATED-AS 84 INFILEP 60 DIRECTORYNAME 41 SORT 22 FILDIR)
|
||
(147 BODY 137 NAME 130 NAME 36 FIND-SOURCE-FILESA0001)
|
||
()
|
||
FIND-COMPILED-FILESA0001 :D8
|
||
(I 1 P2 I 0 P1) @ A
|
||
(18 ALPHORDER 13 FILENAMEFIELD.STRING 6 FILENAMEFIELD.STRING)
|
||
NIL
|
||
()
|
||
FIND-COMPILED-FILES :D8
|
||
(P 22 CF P 21 CD P 16 CEXT P 14 ROOT P 12 SCREATED P 11 SNAME P 10 CFILES P 9 SF P 4 CD I 2 DFASLMARGIN I 1 CDIRS I 0 SFILES F 23 *COMPILED-EXTENSIONS*) ( AµiAHµ#Ib@d¤ q Mµ1Ng
|
||
£H¼h„H¼H¸L »Jµ KhZ¹°ÁK&º°¼_ _¢± ÁO _¢± ´O’± ¬W.Og
|
||
"Oµ O _³{± Œ_ ¿O AQO"µO$
|
||
_ ¿O_°Ô_*¿g O g O g O*
|
||
_,² OO,B ²O,_(¿O&µO(h_&_$¿O"_"° O(&_&¿°óOO_¿OµOh_¾M]±þÿO&_¿°ô (226 SOURCE-FOR-COMPILED-P 212 INFILEP 207 PACKFILENAME.STRING 166 \NCONC2 125 FILENAMEFIELD.STRING 97 CREATED-AS 84 INFILEP 60 DIRECTORYNAME 41 SORT 22 FILDIR)
|
||
(199 BODY 192 EXTENSION 185 NAME 120 NAME 36 FIND-COMPILED-FILESA0001)
|
||
()
|
||
FIND-UNLOADED-FILES :D8
|
||
(P 4 F I 0 FILES) S @d¤ AHµI\d<03> \²*L ²"Lg
|
||
g
|
||
©L»Jµ KhZ¹HX°ÂK&º°ø (60 GETP 50 FILENAMEFIELD 37 FILEDATE 28 INFILEP 8 FILDIR)
|
||
(55 FILEDATES 45 NAME)
|
||
()
|
||
FIND-LOADED-FILES :D8
|
||
(P 9 F P 4 RN I 0 ROOTFILENAMES) t
|
||
@AHµId¢¼hƒ¼H¸Ldg
|
||
¢¿°â` A MµN»Jµ KhZ¹°ÈK&º°Ã_¿LOg
|
||
ðŸO_¿OµOh_¾M]°ÄO&_¿°õ (83 FILENAMEFIELD 31 GETP)
|
||
(78 NAME 40 LOADEDFILELST 26 FILEDATES)
|
||
()
|
||
FIND-MULTICOMPILED-FILES :D8
|
||
(P 10 S P 5 NAME P 4 EXT P 3 F P 0 SFILES I 1 SHOWINFO I 0 FILES F 14 *COMPILED-EXTENSIONS*) ê @d¤ 1JµHA
|
||
NµDO[g
|
||
\W
|
||
²&Kg
|
||
]Hµ MhHX¹LI ¦ILI¿JZ°´_²xA²bOO O 0
|
||
O °5dg Lg O _¿Oµ Oh_‚O&_¿µÌO‚O_¿OµOh__¿N^±ÿ;O&_¿°ô (167 CREATED-AS 162 PACKFILENAME.STRING 136 SORT 125 CREATED-AS 114 FIND-LOADED-FILES 63 FILENAMEFIELD 50 MEMB 42 FILENAMEFIELD 11 FILDIR)
|
||
(154 BODY 148 EXTENSION 58 NAME 37 EXTENSION)
|
||
()
|
||
CREATED-ASA0001A0002 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 2 SFORM P 1 FORM P 0 RDTBL I 0 SI::*CLEANUP-FORMS* F 3 STREAM F 4 POS F 5 FILENAME F 6 FILEDATE F 7 SI::*RESETFORMS* F 8 SOURCEDATE F 9 SOURCENAME) & o !S cS SH
|
||
g ð² ST
|
||
¿SH
|
||
Yg ' X†ST
|
||
¿g H
|
||
g ð²0g g g Hhg g H hWc¿S l(ð´‚± ‡SH
|
||
Yd o
|
||
´ko I
|
||
²NS l(ð²5SH
|
||
Z o
|
||
²S c
|
||
Ic JcJcS c
|
||
Ic Ic
|
||
Ic (272 FULLNAME 247 FULLNAME 239 MEMB 229 U-CASE 222 READ 210 SKIPSEPRCODES 202 STREQUAL 184 MEMB 174 U-CASE 166 READ 150 SKIPSEPRCODES 135 SETSYNTAX 90 GETSYNTAX 78 SETFILEPTR 69 FIND-READTABLE 56 READ 48 SETFILEPTR 33 RATOM 26 READCCODE 18 GETFILEPTR 9 FIND-READTABLE)
|
||
(129 OTHER 124 %: 113 PACKAGEDELIM 108 %: 103 SETSYNTAX 95 PACKAGEDELIM 84 %: 63 :READTABLE 38 DEFINE-FILE-INFO)
|
||
( 234 (FILECREATED IL%:FILECREATED) 191 "compiled on " 179 (FILECREATED IL%:FILECREATED) 4 "OLD-INTERLISP-FILE")
|
||
CREATED-ASA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 8 RESETSTATE P 7 SI::*RESETFORMS* P 6 LISPXHIST P 5 POS P 4 LINE P 3 SOURCENAME P 2 SOURCEDATE P 1 FILENAME P 0 FILEDATE I 0 SI::*CLEANUP-FORMS* F 9 STREAM F 10 LISPXHIST F 11 A0051) `W l(ð²"W!g ¿$°|o W \khdi
|
||
]²bLM
|
||
»o W \khdi
|
||
]²@LM
|
||
ºo W \khdi
|
||
]²LM
|
||
¸o I
|
||
˜Il
|
||
¹o K
|
||
˜Kl
|
||
»Iµ W Hd™ Kd<4B>J h hc¿$ (258 \MVLIST 247 GDATE 242 IDATE 233 GDATE 228 IDATE 220 FULLNAME 209 MKATOM 200 STRPOS 188 SUBATOM 179 STRPOS 167 GDATE 162 IDATE 157 SUBSTRING 147 STRPOS 136 CL:READ-LINE 123 GDATE 118 IDATE 113 SUBSTRING 103 STRPOS 92 CL:READ-LINE 79 SUBATOM 69 STRPOS 58 CL:READ-LINE 39 SI::RESETUNWIND 34 \MVLIST 29 CREATED-ASA0001A0002 9 SKIPSEPRCODES)
|
||
(24 SI::RESETUNWIND)
|
||
( 194 "IL:" 173 "IL:" 129 "FASL file created " 85 "Source file created " 51 "XCL Compiler output for source file ")
|
||
CREATED-ASA0003 :D8
|
||
(F 0 STREAM F 1 A0051) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
CREATED-AS :D8
|
||
(P 1 A0051 P 0 STREAM I 0 FILE) 5 @g g ig Hg I ¿$ (46 CL:CLOSE 34 \MVLIST 29 CREATED-ASA0001 15 OPEN)
|
||
(40 :ABORT 24 CREATED-ASA0003 10 :INPUT 5 :DIRECTION)
|
||
()
|
||
SOURCE-FOR-COMPILED-P :D8
|
||
(I 2 DFASLMARGIN I 1 COMPILED I 0 SOURCE) ¦ @¨@ b ¿A¨A b¿Bµ o °.ið–o °$Bd³ 3 «o B
|
||
<00>jBó”jBÕB<C395>Bjhb@AôµM@AôµBg Ag
|
||
|
||
´*A@
|
||
Bdið©¿HBóhð´Biðµ
|
||
HBýóhð (130 COMPILE-SOURCE-DATE-DIFF 121 STRING.EQUAL 116 FILENAMEFIELD.STRING 62 ERROR 20 CREATED-AS 8 CREATED-AS)
|
||
(111 EXTENSION 104 DFASL)
|
||
( 56 "ILLEGAL DFASLMARGIN" 41 (T 0) 31 (20 0))
|
||
COMPILE-SOURCE-DATE-DIFF :D8
|
||
(I 1 SFILE I 0 CFILE F 0 ONESECOND) / @d¤ Ad¤ Ùl<PÖë (44 ROUND 33 IDATE 26 CREATED-AS 17 IDATE 8 CREATED-AS)
|
||
NIL
|
||
()
|
||
FIX-DIRECTORY-DATES :D8
|
||
(P 6 FCDATE P 5 DIDATE P 4 F I 1 MARGIN I 0 FILES F 7 ONESECOND) ³ Aµll<ÚWÚb@d¤ aHµI\ ’± €Li
|
||
µL µL ^²eLg
|
||
]N ^Ùjð³MNMÙAñ²/ML Ùjð³ o LM N h
|
||
¿Lg N ¿L»Jµ
|
||
KhZ¹HX±ÿpK&º°÷ (155 SETFILEINFO 142 HELP 133 GDATE 127 GDATE 110 IDATE 105 FILEDATE 85 IDATE 78 GETFILEINFO 64 TEDIT.FILEDATE 56 FILEDATE 48 FILEDATE 37 DIRECTORYNAMEP 21 FILDIR)
|
||
(149 ICREATIONDATE 73 ICREATIONDATE)
|
||
( 120 "DIRECTORY DATE EARLIER THAN FILECREATED DATE")
|
||
FIX-EQUIV-DATES :D8
|
||
(P 6 LATE P 5 EARLY P 4 CDE I 0 CDVALUE) … @ aHµI\²dLdg ð³Vdg ðœ¿L½L^°g ðšL½L^† ¿Ng Mg
|
||
¿N»Jµ
|
||
KhZY¿HX°ŽK&Z°÷ (108 SETFILEINFO 103 GETFILEINFO 83 SHOULDNT 5 CD.INSURECDVALUE)
|
||
(98 ICREATIONDATE 91 ICREATIONDATE 65 < 45 > 33 =)
|
||
()
|
||
COPY-COMPARED-FILES :D8
|
||
(P 7 MATCHNAME P 6 TINFO P 5 SINFO P 4 CDE I 2 MATCHNAMES I 1 TARGET I 0 CDVALUE F 8 LASTVALUE) ¤ Ao
|
||
«o A
|
||
¿@³o i
|
||
¿i ¿Wb ¿Bd£d‘hb@qHµI\½L¾Akð“NM¾½L_¿M²7N²3B™OB
|
||
²'Mg hg N
|
||
¿O»Jµ KhZ¹HX°§K&º°ø (140 COPYFILE 135 PACKFILENAME 113 MEMB 44 TERPRI 37 PRIN1 22 ERROR 10 MEMB)
|
||
(128 BODY 122 VERSION)
|
||
( 31 "Note: Using LASTCDVALUE" 16 "INVALID TARGET" 5 (1 2))
|
||
COPY-MISSING-FILES :D8
|
||
(P 9 MATCHNAME P 8 TDIR P 7 TINFO P 6 SINFO P 5 CDE P 1 TDIR I 2 MATCHNAMES I 1 TARGET I 0 CDVALUE) £
|
||
Ao
|
||
«o A
|
||
¿@ b Bd£d‘hb@Akð’@‚@‚ HµJ]_¿M¾M_¿Akð—ON_¿^€N²8O³3B™OB
|
||
²'Ng Ig N
|
||
¿O¼Kµ Lh[ºHX° L&»°ø (139 COPYFILE 134 PACKFILENAME 112 MEMB 29 CD.INSURECDVALUE 22 ERROR 10 MEMB)
|
||
(127 BODY 121 BODY)
|
||
( 16 "INVALID TARGET" 5 (1 2))
|
||
COMPILED-ON-SAME-SOURCEA0001 :D8
|
||
(P 1 CREATED2 P 0 CREATED1 I 0 CDE F 2 INFO1 F 3 INFO2) O Rg ð´>Sg ð´0R X´$S Y´HIôµ
|
||
HIô (49 CREATED-AS 37 CREATED-AS)
|
||
(27 COMPILED 13 COMPILED)
|
||
()
|
||
COMPILED-ON-SAME-SOURCE :D8
|
||
(I 0 CDVALUE)
|
||
@g
|
||
(10 CDSUBSET)
|
||
(5 COMPILED-ON-SAME-SOURCEA0001)
|
||
()
|
||
CDBROWSER :D8
|
||
(P 22 PAIR P 19 I P 15 PAIR P 9 MENUWIDTH P 8 ITEMWIDTH P 7 REGION P 6 BROWSER P 5 WINDOW P 4 STRINGS P 3 I I 5 MENUITEMS I 4 SEPARATEDIRECTIONS I 3 BROWSERPROPS I 2 COLHEADINGS I 1 TITLE I 0 CDVALUE F 23 DEFAULTFONT F 24 CDTABLEBROWSER.MENUITEMS F 25 WBorder) 1 E²L0E°@dKd³(W0
|
||
µ Ko
|
||
•o Šo K
|
||
¸IµHhZ<>H&¹µÁJ<12>W0b
|
||
@BD ‘
|
||
Ld¢±Ð1O µUO _E1O$µjO(o W.
|
||
_¿dOñ¢¿O _lOÔlW2ÖÔOÔlL _¿lOñ²TO°R_ W.
|
||
_"¿O •O"O ó”O"_ ¿O _ °‰_&d£d‘hW.
|
||
_*¿O(•O*O(ó”O*_(¿O$_$±ÿmlE _¿dOñ¢¿OØW. Ö
|
||
_dAµo L o hi ]dg i 0L° dO, ¸IµHhZ<>H&¹µåJMg g g g g Cg @h
|
||
h ^` do ¿dW.¿di ¿dE¿dg ¿dg ¿dg ¿jdnÿdh_¿dO
|
||
¿Mg g i
|
||
Mg h M M N (557 OPENW 551 GETPROMPTWINDOW 545 PUTWINDOWPROP 533 ATTACHMENU 436 TB.MAKE.BROWSER 424 CL:APPEND 364 CD.TABLEITEM 346 PUTWINDOWPROP 333 CREATEW 326 CONCAT 316 LENGTH 299 GETREGION 293 FONTHEIGHT 274 LENGTH 241 STRINGWIDTH 199 STRINGWIDTH 174 LENGTH 149 WIDTHIFWINDOW 133 STRINGWIDTH 88 CDBROWSER.STRINGS 56 ERROR 38 STREQUAL 25 SASSOC)
|
||
(539 UNDERCONSTRUCTION 526 TOP 521 RIGHT 492 DEFAULTMENUHELDFN 483 CLRPROMPT 474 CDTABLEBROWSER.WHENSELECTEDFN 442 |MENUTYPE#| 415 CDVALUE 409 USERDATA 404 CD.TABLEITEM.COPYFN 399 COPYFN 394 CD.TABLEITEM.PRINTFN 389 PRINTFN 340 UNDERCONSTRUCTION)
|
||
( 449 " CD commands " 321 " files" 310 "Compare directories " 126 " CD commands " 50 "UNKNOWN CDBROWSER MENU ITEM"
|
||
44 "" 33 "")
|
||
CDBROWSER.STRINGS :D8
|
||
(P 20 PAIR P 19 CDENTRY P 18 LATER P 13 LINE P 9 HEADINGHEIGHT P 8 HEADINGW P 7 OBJWINDOW P 6 BROWSER P 5 R2L P 4 L2R P 3 PAIRS P 2 COLHEADERS P 1 PREAMBLE P 0 SCRATCHSTREAM I 2 SEPARATEDIRECTIONS I 1 COLHEADINGS I 0 CDVALUE F 21 LASTCDVALUE) • @µW*b ´‚±ƒg g
|
||
‘ @HA Hg
|
||
@
|
||
H _ jð³ O_¿Oµ
|
||
Oh__¿°ÝO&_¿°ÕOYA–H º@QO µO [B¢±
|
||
d± Ü_&¿H ³éO&dg ð—¿g °Tdg ð—¿g °Ddg ð¨dg ð²¿O&–g °&g ° dg ð§dg ð–¿O&…¿ _$¿H l
|
||
O&O$h_"¿O µO"h_ _ ¿O _ ±ÿPO"&_ ¿°òdO(dg ð—¿O(L\°g ð•O(M]„ µÑL²&M²#L o M
|
||
|
||
»JµKhK (392 \NCONC2 387 \NCONC2 382 DREVERSE 376 COPY 366 DREVERSE 349 SHOULDNT 265 SUBSTRING 258 CL:READ-LINE 249 SHOULDNT 144 EOFP 110 CL:READ-LINE 66 NCHARS 59 CL:READ-LINE 50 OPENSTREAM 39 CDPRINT 28 OPENSTREAM)
|
||
(336 RIGHT 321 LEFT 234 C 226 R 218 RIGHT 211 LEFT 197 ? 189 * 181 RIGHT 173 < 165 LEFT 157 > 45 INPUT 23 OUTPUT 18 {NODIRCORE})
|
||
( 371 (("") ("")))
|
||
CD.TABLEITEM :D8
|
||
(I 0 DATA) ` d@¿@hðHdI‘k€jÏ 0¿ NIL
|
||
(4 |TABLEITEMTYPE#|)
|
||
()
|
||
CD.TABLEITEM.PRINTFN :D8
|
||
(I 2 WINDOW I 1 ITEM I 0 BROWSER) A ÉB
|
||
(14 PRIN3)
|
||
(5 TABLEITEM)
|
||
()
|
||
CD.TABLEITEM.COPYFN :D8
|
||
(P 3 FILE P 2 RIGHT P 1 LEFT P 0 CDENTRY I 1 ITEM I 0 CDBROWSER) ‰ A ÉAHYHZI²\d²V` do ¿do ¿dg ¿dg ¿jdnÿdh¼dL
|
||
¿ dg ð’¿IŒg ð´‚IµJ[d´d K (134 COPYINSERT 128 PUTCLIPBOARD 94 MENU)
|
||
(110 Right 100 Left 69 DEFAULTMENUHELDFN 60 CLRPROMPT 35 |MENUTYPE#| 5 TABLEITEM)
|
||
( 51 (Left Right) 42 "Which File?")
|
||
CDTABLEBROWSER.HEADING.REPAINTFN :D8
|
||
(I 1 REGION I 0 WINDOW) @ @g
|
||
@
|
||
(22 PRIN3 16 GETWINDOWUSERPROP 5 MOVETOUPPERLEFT)
|
||
(11 COLHEADINGSTRING)
|
||
()
|
||
CDTABLEBROWSER.WHENSELECTEDFN :D8
|
||
(I 2 KEY I 1 MENU I 0 ITEM) H g g @hg Ahg Bhhg g @
|
||
g g
|
||
(69 ADD.PROCESS 53 PACK*)
|
||
(63 DON'T 58 BEFOREEXIT 46 CD- 41 NAME 27 QUOTE 18 QUOTE 9 QUOTE 4 CD.COMMANDSELECTEDFN)
|
||
()
|
||
CD.COMMANDSELECTEDFNA0001A0002 :D8
|
||
(P 8 TEMP P 7 LABEL2 P 6 LABEL1 P 5 LABELS P 3 TYPE P 2 FILE2 P 1 FILE1 P 0 CDENTRY I 1 TBITEM I 0 CDBROWSER F 9 USERDATA F 10 MENUITEM F 11 KEY F 12 FN) Ï A ÉAH¹HºH»g Wµg ¼IJWlL1MµI¾MµJ_¿h_¿o H
|
||
‘h¹o H
|
||
‘hºIg @ É
|
||
|
||
_µ5Jg @ É
|
||
|
||
_µi AW@WlWº°í¹°Ì (187 CLEARW 176 SASSOC 170 SASSOC 146 SASSOC 140 SASSOC 118 STREQUAL 97 STREQUAL)
|
||
(163 TABLEBROWSER 157 ORIGINALFILES 133 TABLEBROWSER 127 ORIGINALFILES 49 NILL 38 LABELFN 5 TABLEITEM)
|
||
( 105 "" 86 "")
|
||
CD.COMMANDSELECTEDFNA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 6 MIDDLE P 5 FN P 4 CDVALUE P 3 USERDATA P 2 CDBROWSER P 1 PWINDOW P 0 WINDOW I 0 SI::*CLEANUP-FORMS* F 7 KEY F 8 MENU F 9 MENUITEM) ß W g
|
||
H Hg
|
||
J g K!W½Wg ð¾I I Jg
|
||
jð²I o i
|
||
N²CI ¿I ¿I ¿hg o g ð³g c¿o I
|
||
¿Jg g N´
|
||
o I
|
||
(220 PRIN3 206 TB.MAP.SELECTED.ITEMS 189 PRIN3 162 ASKUSER 145 FLASHWINDOW 138 CLEARW 131 GIVE.TTY.PROCESS 121 PRIN3 110 FLASHWINDOW 100 TB.NUMBER.OF.ITEMS 89 TTYDISPLAYSTREAM 83 GIVE.TTY.PROCESS 48 TB.USERDATA 39 GETWINDOWUSERPROP 25 GETPROMPTWINDOW 16 GETWINDOWUSERPROP 6 WFROMMENU)
|
||
(201 NILL 196 CD.COMMANDSELECTEDFNA0001A0002 175 LEFT 167 Y 152 N 95 SELECTED 75 MIDDLE 56 CDVALUE 34 TABLEBROWSER 11 MAINWINDOW)
|
||
( 214 " Done" 183 " ... " 157 "Apply to all selected items? " 115 "Please make a selection")
|
||
CD.COMMANDSELECTEDFN :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 KEY I 1 MENU I 0 MENUITEM F 3 LISPXHIST) - @o
|
||
³ S!g ¿$h (36 SI::RESETUNWIND 31 \MVLIST 26 CD.COMMANDSELECTEDFNA0001 10 STREQUAL)
|
||
(21 SI::RESETUNWIND)
|
||
( 5 "")
|
||
CD-MENUFN :D8
|
||
(P 1 CHILDREN P 0 SOURCEWIDTH I 3 KEY I 2 CDBROWSER I 1 MENUITEM I 0 TBITEM F 2 WINDOW F 3 FILE2 F 4 FILE1 F 5 LABEL1 F 6 LABEL2 F 7 CD-LINELENGTH F 8 TEDIT.SOURCE.LINELENGTH F 9 DEFAULTFONT F 10 TYPE) £ AµAbdo
|
||
–R ¿WµWl W
|
||
ÚAdg ð²6¿T² S²TSUVWR ÉB
|
||
±<i ¿o i
|
||
±'g ð²rTµi ¿o i
|
||
± ˜T ±øTd ‘H‚n¼n¼g g Ro R ÉmÿØi
|
||
ho U
|
||
±¯Adg ð²s¿Sµi ¿o i
|
||
±Œ ˜S ±}Sd ‘H‚n¼n¼g g Ro R ÉmÿØh
|
||
ho V
|
||
±4g ð¬Adg 𢱠ˆ¿Tµ&SµTSUVlT ²=H°= ²êS ± ù ²×T ¿Sd¢± å ´‚± ÚS ± Ñn¼Ún¼g g Ro R ÉmÿØh
|
||
|
||
± œg ðžB@g ± †Adg ðž¿B@g °mg ð²B@Cg i
|
||
°TAdg ð²¿B@Cg h
|
||
°8g ð²B@Cg i
|
||
° Ag ðŸB@Cg h
|
||
„ YdR
|
||
IR
|
||
(672 MOVEWITH 665 CLOSEWITH 657 SHOULDNT 651 CDBROWSER-DELETE-FILE 626 CDBROWSER-DELETE-FILE 601 CDBROWSER-DELETE-FILE 573 CDBROWSER-DELETE-FILE 548 CDBROWSER-COPY 523 CDBROWSER-COPY 501 EXAMINEFILES 495 RELCREATEREGION 481 \INSUREWINDOW 448 SEE-PDF 436 PDFFILEP 424 SEE-PDF 416 PDFFILEP 408 SEE-PDF 400 PDFFILEP 390 LISPSOURCEFILEP 349 TEDIT-SEE 344 CONCAT 332 RELCREATEREGION 318 \INSUREWINDOW 286 LISPSOURCEFILEP 276 SEE-PDF 269 PDFFILEP 261 PRIN3 249 FLASHWINDOW 226 TEDIT-SEE 221 CONCAT 209 RELCREATEREGION 195 \INSUREWINDOW 163 LISPSOURCEFILEP 153 SEE-PDF 146 PDFFILEP 138 PRIN3 126 FLASHWINDOW 106 PRIN3 94 FLASHWINDOW 85 CD-COMPARE-FILES 76 \INSUREWINDOW 43 CHARWIDTH 27 CLOSEWITH.DOIT 20 MEMB)
|
||
(644 RIGHT 634 |Delete ALL ->| 619 RIGHT 608 Delete% -> 594 LEFT 582 |Delete ALL <-| 566 LEFT 555 Delete% <- 543 RIGHT 533 Copy% <- 518 LEFT 509 Copy% -> 468 TOP 463 LEFT 366 See% both 357 See 305 TOP 300 LEFT 236 See% right 182 TOP 177 RIGHT 114 See% left 54 Compare)
|
||
( 474 (0.5 -701) 338 "SEE window for " 311 (0.5) 255 "No file to print" 215 "SEE window for " 188 (0.5)
|
||
132 "No file to print" 100 "Only one file" 15 (Compare See See% right See% both See% left))
|
||
CD-COMPARE-FILES :D8
|
||
(P 0 COMPARETEXT.ALLCHUNKS I 6 CDBROWSER I 5 PARENTREGION I 4 TYPE I 3 LABEL2 I 2 LABEL1 I 1 FILE2 I 0 FILE1) 4 @ µ@ b A µA bDµ(@ bA ð³i ¿o i
|
||
hDg ð²@@AhBCE´1o EÖ lÈg g Eo ElFØh
|
||
|
||
Ddg ð²¿i o i
|
||
g ð³Dg ð¨Dg ð²- @Ag Ed²o ElØ
|
||
BCh
|
||
i o i
|
||
@ABCE´&nxn¼g g Eo EmÿØh
|
||
|
||
(305 EXAMINEFILES 299 RELCREATEREGION 256 PRIN3 245 FLASHWINDOW 238 COMPARETEXT 227 RELCREATEPOSITION 170 PRIN3 159 FLASHWINDOW 141 CSBROWSER 135 RELCREATEREGION 103 FIXR 69 PRIN3 57 FLASHWINDOW 48 COMPAREDIRECTORIES.INFOS.TYPE 40 COMPAREDIRECTORIES.INFOS.TYPE 29 INFILEP 21 STREAMP 13 INFILEP 5 STREAMP)
|
||
(279 TOP 274 LEFT 206 LINE 193 OTHER 185 TEDIT 176 TEXT 149 COMPILED 115 TOP 110 LEFT 77 SOURCE)
|
||
( 285 (0.5 -701) 250 "Unable to compare, showing both" 215 (0.5) 164 "Cannot compare compiled files" 121
|
||
(0.125) 93 0.75 63 "Can't compare files of different types")
|
||
CDBROWSER-COPY :D8
|
||
(P 17 A0083 P 10 RESULT P 9 DATERELBAD P 8 SOURCEVER P 7 DESTFILE P 6 SOURCEFILE P 5 DESTINFO P 4 SOURCEINFO P 3 CDENTRY P 2 DESTDIR P 1 SOURCEDIR P 0 CDVALUE I 3 UNIXDEST I 2 SOURCE I 1 TBITEM I 0 CDBROWSER) 6 @A
|
||
’±åg @ Ñ
|
||
H¹HºA É[¼K½h_¿g _¿h_¿Bg ðŸML½¼JIº¹g _¿L¾M_¿i ¿N¬o i
|
||
hOKð²&i ¿i ¿hdo g ð’±EBg
|
||
_µ‚± âi ¿OªNIJ _¿C¢±O ²{@!g _ O É
|
||
µ(O O hO" É_¿O" O¿O_ ¿O_ O
|
||
µO _¿O hO_¿OdO¿Og
|
||
g g g Ng g g hg O
|
||
|
||
°lg hg N g
|
||
ýñ¢±þþi ¿i ¿hdNo
|
||
g ð¢±þÔhNg hg O
|
||
_Ÿ@A
|
||
¿o OŒi ¿No
|
||
i
|
||
O (561 PRIN3 555 CONCAT 543 FLASHWINDOW 528 TB.DELETE.ITEM 518 COPYFILE 513 PACKFILENAME.STRING 482 ASKUSER 477 CONCAT 463 GIVE.TTY.PROCESS 456 FLASHWINDOW 444 FILENAMEFIELD 434 INFILEP 429 PACKFILENAME.STRING 410 PSEUDOFILENAME 405 PACKFILENAME 400 COPYFILE 395 PACKFILENAME 389 TRUEFILENAME 343 COPYFILE 304 SASSOC 249 SASSOC 222 INFILEP 207 CD-SWAPDIRS 195 CLEARW 181 FILENAMEFIELD 160 ASKUSER 147 FLASHWINDOW 140 GIVE.TTY.PROCESS 123 PRIN3 109 CLEARW 21 TB.USERDATA 6 TB.ITEM.DELETED?)
|
||
(506 BODY 500 VERSION 487 N 439 VERSION 423 BODY 417 VERSION 382 BODY 376 VERSION 371 UNIX 366 HOST 360 BODY 355 DSK 350 HOST 338 {NODIRCORE} 280 TABLEBROWSER 267 TABLEBROWSER 242 TABLEBROWSER 233 ORIGINALFILES 176 VERSION 165 N 92 > 77 RIGHT 64 < 41 TABLEITEM 15 CDVALUE)
|
||
( 550 " could not be copied" 534 "Copied to " 472 " is not the newest version. Really copy? " 155 "Target is newer than source. Really copy? "
|
||
117 "No source file to copy")
|
||
CDBROWSER-DELETE-FILE :D8
|
||
(P 14 A0404 P 10 F P 2 OTHERFILE P 1 FILE P 0 CDENTRY I 5 DONTMARK I 4 SAVE I 3 ONLYONE I 2 SIDE I 1 TBITEM I 0 CDBROWSER) R @A
|
||
’±GA ÉQHYHZBg ð”dIºY€I´DIg
|
||
²%C³"g o g I €IA
|
||
NµE¦@A
|
||
O¥N_¿h†N_¿N¾@!
|
||
g _O ɵ$OOhO É»O K¿K_¿I_OµO½OhM¼MdL¿Ig
|
||
D²1Og o Og
|
||
|
||
g O
|
||
…I ¬o O
|
||
¿O_¿OµOh__¿±ÿ%O&_¿±ÿ h (303 ERROR 290 DELFILE 283 RENAMEFILE 278 PACKFILENAME.STRING 266 CONCAT 261 FILENAMEFIELD.STRING 232 COPYFILE 115 TB.DELETE.ITEM 98 DREVERSE 93 FILDIR 88 PACKFILENAME.STRING 62 FILENAMEFIELD.STRING 6 TB.ITEM.DELETED?)
|
||
(271 BODY 256 DIRECTORY 244 DIRECTORY 227 {NODIRCORE} 184 TABLEBROWSER 173 TABLEBROWSER 152 TABLEBROWSER 143 ORIGINALFILES 82 BODY 72 VERSION 57 VERSION 41 RIGHT 16 TABLEITEM)
|
||
( 296 "Could not delete " 249 "deleted>" 77 "*")
|
||
CD-SWAPDIRS :D8
|
||
(I 3 KEEPVERSION I 2 TODIR I 1 FROMDIR I 0 FILE F 0 FILEDIRCASEARRAY) M A@khdiP
|
||
²-B@A kØ
|
||
|
||
b C<>g hg @ @o A
|
||
|
||
(74 ERROR 69 CONCAT 56 PACKFILENAME.STRING 34 CONCAT 29 SUBSTRING 22 NCHARS 12 STRPOS)
|
||
(50 BODY 44 VERSION)
|
||
( 63 " doesn't begin with ")
|
||
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
|
||
(RPAQQ COMPAREDIRECTORIESCOMS ((* ;; "Compare the contents of two directories.") (FILES (SYSLOAD)
|
||
PDFSTREAM) (FNS COMPAREDIRECTORIES COMPAREDIRECTORIES.INFOS COMPAREDIRECTORIES.CANDIDATES
|
||
CDENTRIES.SELECT COMPAREDIRECTORIES.INFOS.TYPE MATCHNAME CD.INSURECDVALUE CD.UPDATEWIDTHS) (FNS
|
||
CDFILES CDFILES.MATCH CDFILES.PATS) (FNS CDPRINT CDPRINT.HEADER CDPRINT.LINE CDPRINT.MAXWIDTHS
|
||
CDPRINT.COLHEADERS CDPRINT.COLUMNS CDTEDIT) (FNS CDMAP CDENTRY CDSUBSET CDMERGE CDMERGE.COMMON CD.SORT
|
||
) (FNS BINCOMP EOLTYPE EOLTYPE.SHOW) (RECORDS CDMAXNCHARS CDVALUE CDENTRY CDINFO) (* ;;
|
||
"look for compiled files older than the sources") (FNS FIND-UNCOMPILED-FILES FIND-UNSOURCED-FILES
|
||
FIND-SOURCE-FILES FIND-COMPILED-FILES FIND-UNLOADED-FILES FIND-LOADED-FILES FIND-MULTICOMPILED-FILES)
|
||
(FNS CREATED-AS SOURCE-FOR-COMPILED-P COMPILE-SOURCE-DATE-DIFF) (FNS FIX-DIRECTORY-DATES
|
||
FIX-EQUIV-DATES COPY-COMPARED-FILES COPY-MISSING-FILES COMPILED-ON-SAME-SOURCE) (VARS (ONESECOND (
|
||
IDIFFERENCE (IDATE "1-Jan-2020 12:00:01") (IDATE "1-Jan-2020 12:00:00")))) (INITVARS (LASTCDVALUE NIL)
|
||
) (* ;; "Compare-directories browser") (COMS (FNS CDBROWSER CDBROWSER.STRINGS) (* ;;
|
||
"TABLEBROWSER browser") (FILES (SYSLOAD) TABLEBROWSER) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (
|
||
LOADCOMP) TABLEBROWSER)) (FNS CD.TABLEITEM CD.TABLEITEM.PRINTFN CD.TABLEITEM.COPYFN
|
||
CDTABLEBROWSER.HEADING.REPAINTFN) (FNS CDTABLEBROWSER.WHENSELECTEDFN CD.COMMANDSELECTEDFN CD-MENUFN
|
||
CD-COMPARE-FILES CDBROWSER-COPY CDBROWSER-DELETE-FILE CD-SWAPDIRS) (INITVARS (CD-LINELENGTH NIL)) (
|
||
VARS CDTABLEBROWSER.MENUITEMS) (FILES (SYSLOAD) COMPARESOURCES COMPARETEXT) (P (MOVD? (QUOTE NILL) (
|
||
QUOTE TEDIT.FILEDATE))))))
|
||
(FILESLOAD (SYSLOAD) PDFSTREAM)
|
||
(RECORD CDMAXNCHARS (NCFULLNAME NCLENGTH NCAUTHOR NCTYPE NCDIR))
|
||
(RECORD CDVALUE ((CDDIR1 CDDIR2 CDCOMPAREDATE CDSELECT CDMAXNC1 CDMAXNC2) . CDENTRIES) (RECORD CDVALUE
|
||
(CDPARAMETERS)) CDMAXNC1 _ (CREATE CDMAXNCHARS) CDMAXNC2 _ (CREATE CDMAXNCHARS))
|
||
(RECORD CDENTRY (MATCHNAME INFO1 DATEREL INFO2 . EQUIV))
|
||
(RECORD CDINFO (FULLNAME DATE LENGTH AUTHOR TYPE EOL))
|
||
(RPAQ ONESECOND (IDIFFERENCE (IDATE "1-Jan-2020 12:00:01") (IDATE "1-Jan-2020 12:00:00")))
|
||
(RPAQ? LASTCDVALUE NIL)
|
||
(FILESLOAD (SYSLOAD) TABLEBROWSER)
|
||
(RPAQ? CD-LINELENGTH NIL)
|
||
(RPAQQ CDTABLEBROWSER.MENUITEMS ((Compare CD-MENUFN) (Copy% -> CD-MENUFN) (Copy% <- CD-MENUFN) (
|
||
See% left CD-MENUFN) (See% right CD-MENUFN) (See% both CD-MENUFN) (See CD-MENUFN) (Delete% <-
|
||
CD-MENUFN) (|Delete ALL <-| CD-MENUFN) (Delete% -> CD-MENUFN) (|Delete ALL ->| CD-MENUFN)))
|
||
(FILESLOAD (SYSLOAD) COMPARESOURCES COMPARETEXT)
|
||
(MOVD? (QUOTE NILL) (QUOTE TEDIT.FILEDATE))
|
||
NIL
|