113 lines
7.6 KiB
Plaintext
113 lines
7.6 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 8-May-2026 22:09:12" ("compiled on "
|
||
{DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;3) " 8-May-2026 15:26:12" brecompiled changes%:
|
||
DUMPDB in "FULL 8-May-2026 ..." dated " 8-May-2026 15:26:51")
|
||
(FILECREATED " 8-May-2026 22:08:38" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;3 18791
|
||
:EDIT-BY "mth" :CHANGES-TO (FNS DUMPDB) :PREVIOUS-DATE " 2-May-2026 17:38:46"
|
||
{DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;1)
|
||
(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 ASKFLAG F 10 FILE F 11 SI::*RESETFORMS*) M po o W ½WW
|
||
\ »Lµ"W³ o i
|
||
¿Mi
|
||
¿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 (586 FULLNAME 579 /PUT 564 TERPRI 557 PRIN1 545 PRIN1 537 TERPRI 526 MSMARKCHANGED 520 GETP 506 EXPRP 493 /PUT 467 ASKUSER 439 TESTTABLE 414 /PUT 382 GETP 370 UPDATEFILES 364 STORETABLE 345 READATABASE 311 READ 304 READ 289 READ 283 READ 267 READ 251 INPUT 239 LISPXPRINT 233 FULLNAME 221 /PUT 166 GETPROP 152 TERPRI 145 PRIN1 133 PRIN1 125 PRIN1 109 GETPROP 86 TERPRI 79 PRIN1 71 PRIN1 52 FULLNAME 45 \LOADDB/DBFILE 35 NAMEFIELD 25 CL:FIND-PACKAGE 12 FIND-READTABLE)
|
||
(573 DATABASEFILENAME 515 EXPR 488 NO 483 DATABASE 472 Y 453 Y 448 DWIMWAIT 432 MSFILETABLE 424 MSFILETABLE 409 NONE 404 DATABASE 395 NO 377 FILE 358 MSFILETABLE 351 MSFILETABLE 338 STOP 327 STOP 319 READATABASE 296 ARGS 274 FNS 245 INPUT 216 YES 211 DATABASE 199 YES 193 LOADDBFLG 183 NO 172 YES 161 DATABASE 104 DATABASEFILENAME)
|
||
( 551 " is not a database file!" 458 "load database for" 139 " already loaded." 119 "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*) € @µ °.dg
|
||
Q
|
||
² ¿g hg hg @
|
||
b g
|
||
³@ g
|
||
µ A–@ …@ b d– @ H´ @H
|
||
(125 \LOADDB/DBFILE1 110 FILEDATE 101 FINDFILE 94 INFILEP 83 GETPROP 73 NAMEFIELD 65 FILENAMEFIELD 53 PACKFILENAME 26 MEMB 20 FILENAMEFIELD 7 INPUT)
|
||
(78 FILEDATES 60 VERSION 46 BODY 40 VERSION 34 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 PROPFLG F 7 FILE F 8 DEFAULTDATABASECOPYRIGHTOWNER F 9 FL) þ W W Bg g g hg W
|
||
[d \` g ð’± <00>W¢± ‡dg
|
||
³yWdg ð¨dg ð²¿Lg g h °Pdg ð²"¿Hg
|
||
]²9Lg Mh °'g ð›g °g ¿W ¿I³O` ²H`
|
||
”hc °6VœHg
|
||
°$i ¿Wi
|
||
¿o i
|
||
¿i hV²@Hg
|
||
g ð³-` g ð³ ` ´‚± ²H`
|
||
´‚± Ÿ` ´H` Hg
|
||
¿hKo g g g g g Hho hhg g Ihhhh ºV<C2BA>J i
|
||
° Hg J ¿Hg g J (506 /PUT 489 /PUT 475 PRINT 469 FULLNAME 460 PRETTYDEF 381 STORETABLE 375 GETPROP 345 TESTTABLE 300 GETPROP 284 TERPRI 277 PRIN1 265 PRIN1 256 TERPRI 248 /REMPROP 229 TESTTABLE 166 /PUT 148 GETPROP 125 /PUT 85 GETPROP 52 ROOTFILENAME 45 PACKFILENAME 13 FILEFNSLST 6 ROOTFILENAME)
|
||
(501 YES 496 DATABASE 483 DATABASEFILENAME 441 QUOTE 436 DUMPDATABASE 414 QUOTE 409 GETPROP 404 CAR 399 PRINT 394 E 370 FILEDATES 364 MSFILETABLE 356 MSFILETABLE 338 MSFILETABLE 326 MSFILETABLE 318 YES 313 SAVEDBFLG 305 YES 295 DATABASE 243 DATABASE 222 MSFILETABLE 214 MSFILETABLE 205 DEFAULTCOPYRIGHTOWNER 197 COPYRIGHTFLG 192 DEFAULT 185 COPYRIGHTFLG 180 DEFAULT 173 DEFAULT 157 COPYRIGHT 143 COPYRIGHT 133 SAME 118 NONE 113 COPYRIGHT 103 NEVER 95 NONE 80 COPYRIGHT 63 NEVER 58 COPYRIGHTFLG 37 BODY 31 VERSION 26 DATABASE 21 EXTENSION)
|
||
( 423 ((QUOTE FILEDATES)) 389 (P (PROGN (PRIN1 "Use LOADDB to load database files!" T) (ERROR!))) 271 " 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 NAMEFIELD)
|
||
(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))
|
||
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
|
||
NIL
|