0fc3e9e8e4
* Make DATABASEFNS work properly if the source file name isn't U-CASE. Co-authored-by: rmkaplan <ron.kaplan@post.harvard.edu>
115 lines
7.5 KiB
Plaintext
115 lines
7.5 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "12-May-2026 15:33:45" ("compiled on "
|
||
{DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;5) "11-May-2026 23:45:47" brecompiled changes%:
|
||
DUMPDB in "FULL 11-May-2026 ..." dated "11-May-2026 23:46:24")
|
||
(FILECREATED "12-May-2026 15:33:42" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;5 19557
|
||
:EDIT-BY "mth" :CHANGES-TO (FNS DUMPDB) :PREVIOUS-DATE "12-May-2026 12:45:18"
|
||
{DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4)
|
||
(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 PROPFLG F 7 FILE F 8 DEFAULTDATABASECOPYRIGHTOWNER) õ `W Z ¹g g g hg W
|
||
] ¼` g ð’± <00>W¢± ‡Lg
|
||
³yWdg ð¨dg ð²¿Lg g h °Pdg ð²"¿Jg
|
||
[²9Lg Kh °'g ð›g °g ¿W ¿I³O` ²J`
|
||
”hc °6VœJg
|
||
°$i ¿Wi
|
||
¿o i
|
||
¿i hV²8Jg
|
||
g ð³%` g ð³` ´×J`
|
||
´È` ´J` Jg
|
||
¿hMo g g g g g Jho hhg g Ihhhh ¸V<C2B8>H i
|
||
° Jg H ¿Jg g H (497 /PUT 480 /PUT 466 PRINT 460 FULLNAME 451 PRETTYDEF 372 STORETABLE 366 GETPROP 340 TESTTABLE 299 GETPROP 283 TERPRI 276 PRIN1 264 PRIN1 255 TERPRI 247 /REMPROP 228 TESTTABLE 165 /PUT 147 GETPROP 124 /PUT 84 GETPROP 51 ROOTFILENAME 45 PACKFILENAME 15 FILEFNSLST 9 ROOTFILENAME)
|
||
(492 YES 487 DATABASE 474 DATABASEFILENAME 432 QUOTE 427 DUMPDATABASE 405 QUOTE 400 GETPROP 395 CAR 390 PRINT 385 E 361 FILEDATES 355 MSFILETABLE 347 MSFILETABLE 333 MSFILETABLE 325 MSFILETABLE 317 YES 312 SAVEDBFLG 304 YES 294 DATABASE 242 DATABASE 221 MSFILETABLE 213 MSFILETABLE 204 DEFAULTCOPYRIGHTOWNER 196 COPYRIGHTFLG 191 DEFAULT 184 COPYRIGHTFLG 179 DEFAULT 172 DEFAULT 156 COPYRIGHT 142 COPYRIGHT 132 SAME 117 NONE 112 COPYRIGHT 102 NEVER 94 NONE 79 COPYRIGHT 62 NEVER 57 COPYRIGHTFLG 37 BODY 31 VERSION 26 DATABASE 21 EXTENSION)
|
||
( 414 ((QUOTE FILEDATES)) 380 (P (PROGN (PRIN1 "Use LOADDB to load database files!" T) (ERROR!))) 270 " 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
|