114 lines
7.5 KiB
Plaintext
114 lines
7.5 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "12-May-2026 12:45:36" ("compiled on " {MEDLEY}<library>DATABASEFNS.;13)
|
||
"11-May-2026 13:30:12" brecompiled exprs%: DUMPDB in "FULL 11-May-2026 ..." dated
|
||
"11-May-2026 13:30:21")
|
||
(FILECREATED "12-May-2026 12:45:18" {MEDLEY}<library>DATABASEFNS.;13 19361 :EDIT-BY rmk :CHANGES-TO (
|
||
FNS DUMPDB MAKEDB) :PREVIOUS-DATE "11-May-2026 14:41:08" {MEDLEY}<library>DATABASEFNS.;11)
|
||
(VIRGINFN (QUOTE LOAD) T)
|
||
(MOVD? (QUOTE LOAD) (QUOTE OLDLOAD))
|
||
(VIRGINFN (QUOTE LOADFROM) T)
|
||
(MOVD? (QUOTE LOADFROM) (QUOTE OLDLOADFROM))
|
||
(VIRGINFN (QUOTE MAKEFILE) T)
|
||
(MOVD? (QUOTE MAKEFILE) (QUOTE OLDMAKEFILE))
|
||
LOADDBA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 8 *PACKAGE* P 7 *READTABLE* I 0 SI::*CLEANUP-FORMS* F 9 FILE F 10 ASKFLAG F 11 SI::*RESETFORMS*) S po o W ½WW
|
||
\ »Lµ(W³"o i
|
||
¿W i
|
||
¿i h¾L¼W²nMdg
|
||
Kð²-¿o i
|
||
¿Ki
|
||
¿o i
|
||
¿i ¿h°Cg
|
||
dg ð“¿i°-g ð’h°#` dg 𢱠½¿Mg g ´‚±ÿwK i
|
||
¿g L hhWc¿ Xdg ð²%¿ ¿ Xdg ð<>¿ ³û Xg ðªHg 𢱠ÊHg 𥠿` œM` N ¿ ¿Mg
|
||
Yµq± ´g ð²Mg g ¿h±ÿ=` ²M`
|
||
’±ÿ+` g o Mh g ð’±þóMg g ¿h±þîZd ¿Jdg
|
||
” ¿I±ÿni ¿Ki
|
||
¿o i
|
||
¿i ¿h»Mg K ¿K (592 FULLNAME 585 /PUT 570 TERPRI 563 PRIN1 551 PRIN1 543 TERPRI 532 MSMARKCHANGED 526 GETP 512 EXPRP 499 /PUT 473 ASKUSER 445 TESTTABLE 420 /PUT 388 GETP 376 UPDATEFILES 370 STORETABLE 351 READATABASE 317 READ 310 READ 295 READ 289 READ 273 READ 257 INPUT 245 LISPXPRINT 239 FULLNAME 227 /PUT 172 GETPROP 158 TERPRI 151 PRIN1 139 PRIN1 131 PRIN1 115 GETPROP 92 TERPRI 85 PRIN1 79 NAMEFIELD 71 PRIN1 52 FULLNAME 45 \LOADDB/DBFILE 35 ROOTFILENAME 25 CL:FIND-PACKAGE 12 FIND-READTABLE)
|
||
(579 DATABASEFILENAME 521 EXPR 494 NO 489 DATABASE 478 Y 459 Y 454 DWIMWAIT 438 MSFILETABLE 430 MSFILETABLE 415 NONE 410 DATABASE 401 NO 383 FILE 364 MSFILETABLE 357 MSFILETABLE 344 STOP 333 STOP 325 READATABASE 302 ARGS 280 FNS 251 INPUT 222 YES 217 DATABASE 205 YES 199 LOADDBFLG 189 NO 178 YES 167 DATABASE 110 DATABASEFILENAME)
|
||
( 557 " is not a database file!" 464 "load database for" 145 " already loaded." 125 "Database " 65 "no database file found for "
|
||
20 "INTERLISP" 7 "INTERLISP")
|
||
LOADDB :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 ASKFLAG I 0 FILE F 3 LISPXHIST) S!g ¿$ (23 SI::RESETUNWIND 18 \MVLIST 13 LOADDBA0001)
|
||
(8 SI::RESETUNWIND)
|
||
()
|
||
\LOADDB/DBFILE :D8
|
||
(L (1 ASKFLAG 0 FILE) F 1 *COMPILED-EXTENSIONS*) … @µ °3dg
|
||
Q
|
||
² ¿g hg hg @
|
||
b g
|
||
³@ g
|
||
µ A–@ …@ b d– @ H´ @H
|
||
(130 \LOADDB/DBFILE1 115 FILEDATE 106 FINDFILE 99 INFILEP 88 GETPROP 78 ROOTFILENAME 70 FILENAMEFIELD 58 PACKFILENAME 31 MEMB 25 U-CASE 20 FILENAMEFIELD 7 INPUT)
|
||
(83 FILEDATES 65 VERSION 51 BODY 45 VERSION 39 EXTENSION 15 EXTENSION)
|
||
()
|
||
\LOADDB/DBFILE1 :D8
|
||
(L (1 FILEDATES 0 F)) r g g g hg @
|
||
Hd²:A
|
||
µ3Hg g g g g @
|
||
|
||
YµhAA
|
||
µöI°ì (106 \LOADDB/DBFILE2 90 REMOVE 85 FILDIR 80 PACKFILENAME 45 \LOADDB/DBFILE2 32 INFILEP 27 PACKFILENAME)
|
||
(73 BODY 68 * 63 VERSION 58 DATABASE 53 EXTENSION 20 BODY 14 VERSION 9 DATABASE 4 EXTENSION)
|
||
()
|
||
\LOADDB/DBFILE2 :D8
|
||
(L (1 FILEDATES 0 DBF) F 0 SI::*RESETFORMS* F 1 *NEW-INTERLISP-MAKEFILE-ENVIRONMENT*) x o @g
|
||
b hPc @Q
|
||
@
|
||
@d jð³$¿@ g ð´1@ g ð´!@ A@
|
||
‘@@ h (116 CLOSEF 107 STREQUAL 101 READ 92 READ 76 READ 60 READ 49 GETFILEPTR 42 SET-READER-ENVIRONMENT 36 READ-READER-ENVIRONMENT 31 MAKE-READER-ENVIRONMENT 15 OPENSTREAM)
|
||
(83 PRETTYCOMPRINT 67 FILECREATED 10 INPUT)
|
||
( 4 (PROGN (CLOSEF? OLDVALUE)))
|
||
LOAD :D8
|
||
(L (2 PRINTFLG 1 LDFLG 0 FILE)) @AB b Ag ð¦di
|
||
@ (24 LOADDB 7 OLDLOAD)
|
||
(15 SYSLOAD)
|
||
()
|
||
LOADFROM :D8
|
||
(L (2 LDFLG 1 FNS 0 FILE)) @AB b di
|
||
@ (16 LOADDB 7 OLDLOADFROM)
|
||
NIL
|
||
()
|
||
MAKEFILE :D8
|
||
(L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC b di
|
||
@ (17 DUMPDB 8 OLDMAKEFILE)
|
||
NIL
|
||
()
|
||
DUMPDBA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 6 FILE F 7 PROPFLG F 8 DEFAULTDATABASECOPYRIGHTOWNER) ý V V Bg g g hg V
|
||
[d \` g ð’± <00>W¢± ‡dg
|
||
³yWdg ð¨dg ð²¿Lg g h °Pdg ð²"¿Hg
|
||
]²9Lg Mh °'g ð›g °g ¿W ¿I³O` ²H`
|
||
”hc°7WœHg
|
||
°#i ¿Vi
|
||
¿o i
|
||
¿i hW²@Hg
|
||
g ð³-` g ð³ ` ´‚± ³H`
|
||
´‚± ` ´H` Hg
|
||
¿hKo g g g g g Hho hhg g Ihhhh ºW<0E>J i
|
||
° Hg J ¿Hg g J (505 /PUT 488 /PUT 474 PRINT 468 FULLNAME 458 PRETTYDEF 379 STORETABLE 373 GETPROP 343 TESTTABLE 298 GETPROP 281 TERPRI 274 PRIN1 262 PRIN1 254 TERPRI 246 /REMPROP 226 TESTTABLE 163 /PUT 145 GETPROP 122 /PUT 82 GETPROP 49 ROOTFILENAME 42 PACKFILENAME 11 FILEFNSLST 5 ROOTFILENAME)
|
||
(500 YES 495 DATABASE 482 DATABASEFILENAME 439 QUOTE 434 DUMPDATABASE 412 QUOTE 407 GETPROP 402 CAR 397 PRINT 392 E 368 FILEDATES 362 MSFILETABLE 354 MSFILETABLE 336 MSFILETABLE 324 MSFILETABLE 316 YES 311 SAVEDBFLG 303 YES 293 DATABASE 241 DATABASE 219 MSFILETABLE 211 MSFILETABLE 202 DEFAULTCOPYRIGHTOWNER 194 COPYRIGHTFLG 189 DEFAULT 182 COPYRIGHTFLG 177 DEFAULT 170 DEFAULT 154 COPYRIGHT 140 COPYRIGHT 130 SAME 115 NONE 110 COPYRIGHT 100 NEVER 92 NONE 77 COPYRIGHT 60 NEVER 55 COPYRIGHTFLG 35 BODY 29 VERSION 24 DATABASE 19 EXTENSION)
|
||
( 421 ((QUOTE FILEDATES)) 387 (P (PROGN (PRIN1 "Use LOADDB to load database files!" T) (ERROR!))) 268 " has no functions.")
|
||
DUMPDBA0002 :D8
|
||
NIL h NIL
|
||
NIL
|
||
()
|
||
DUMPDB :D8
|
||
(I 1 PROPFLG I 0 FILE) > @d²:d3@ð§@ ´-` ` g $H I (44 \MVLIST 39 DUMPDBA0001 14 STRINGP)
|
||
(59 DEFAULTCOPYRIGHTOWNER 53 COPYRIGHTFLG 34 DUMPDBA0002 26 DEFAULTCOPYRIGHTOWNER 21 COPYRIGHTFLG)
|
||
()
|
||
MAKEDB :D8
|
||
(L (0 F)) ƒ @ b ig @ ´h@g
|
||
o µU` o µH` ž@`
|
||
µ3@g ` g o g ð•g „g (128 /PUT 105 ASKUSER 77 TESTTABLE 37 GETPROP 24 INFILECOMS? 19 FILECOMS 5 ROOTFILENAME)
|
||
(123 NO 117 YES 110 Y 95 N 90 DWIMWAIT 85 DATABASE 70 MSFILETABLE 63 MSFILETABLE 50 SAVEDBFLG 32 DATABASE 13 FNS)
|
||
( 100 "Do you want a Masterscope Database for this file? " 55 (YES NO) 42 (YES NO))
|
||
(PRETTYCOMPRINT DATABASEFNSCOMS)
|
||
(RPAQQ DATABASEFNSCOMS ((* ;; "Does automatic Masterscope database maintenance") (DECLARE%: FIRST (P (
|
||
VIRGINFN (QUOTE LOAD) T) (MOVD? (QUOTE LOAD) (QUOTE OLDLOAD)) (VIRGINFN (QUOTE LOADFROM) T) (MOVD? (
|
||
QUOTE LOADFROM) (QUOTE OLDLOADFROM)) (VIRGINFN (QUOTE MAKEFILE) T) (MOVD? (QUOTE MAKEFILE) (QUOTE
|
||
OLDMAKEFILE)))) (FNS DBFILE DBFILE1 DBFILE2 LOAD LOADFROM MAKEFILE) (ADDVARS (LINKEDFNS OLDLOAD)) (P (
|
||
RELINK (QUOTE MAKEFILES))) (FNS DUMPDB LOADDB MAKEDB) (PROP PROPTYPE DATABASE) (INITVARS (LOADDBFLG (
|
||
QUOTE ASK)) (SAVEDBFLG (QUOTE ASK))) (ADDVARS (MAKEFILEFORMS (MAKEDB FILE))) (INITVARS (MSFILETABLE) (
|
||
DEFAULTDATABASECOPYRIGHTOWNER (QUOTE NEVER))) (* ; "To permit MSHASH interface") (LOCALVARS . T) (
|
||
BLOCKS (LOADDB LOADDB DBFILE DBFILE1 DBFILE2 (NOLINKFNS . T))) (DECLARE%: EVAL@COMPILE DONTCOPY (P (
|
||
RESETSAVE DWIMIFYCOMPFLG T)))))
|
||
(ADDTOVAR LINKEDFNS OLDLOAD)
|
||
(RELINK (QUOTE MAKEFILES))
|
||
(PUTPROPS DATABASE PROPTYPE IGNORE)
|
||
(RPAQ? LOADDBFLG (QUOTE ASK))
|
||
(RPAQ? SAVEDBFLG (QUOTE ASK))
|
||
(ADDTOVAR MAKEFILEFORMS (MAKEDB FILE))
|
||
(RPAQ? MSFILETABLE)
|
||
(RPAQ? DEFAULTDATABASECOPYRIGHTOWNER (QUOTE NEVER))
|
||
NIL
|