github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-09 17:16:58 +00:00
Code Issues Projects Releases Wiki Activity
Files
133f7b4969a2240b08913a0a1cdcd7ef83cabc80
Interlisp.medley/library/DATABASEFNS.LCOM
Matt Heffron 4de89a6e94 Fix library>DATABASEFNS DUMPDB to use get the FILEDATES correctly (#2593) 
DUMPDB fixed to use ROOTFILENAME vs. NAMEFIELD (U-CASE vs. actual) to retrieve and dump the source file's FILEDATES, so the .DATABASE can be loaded.
2026-05-07 12:33:11 -07:00

113 lines
7.6 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 2-May-2026 17:38:46" ("compiled on "
{DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4) "29-Apr-2026 12:06:00" brecompiled changes%:
DUMPDB in "FULL 29-Apr-2026 ..." dated "29-Apr-2026 12:07:08")
(FILECREATED " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4 18684
:EDIT-BY "mth" :CHANGES-TO (FNS DUMPDB) :PREVIOUS-DATE "29-Apr-2026 17:43:56"
{DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;2)
(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³oi
¿Mi
¿i h¾L¼W²nMdg
Kð²-¿oi
¿Ki
¿oi
¿i ¿h°Cg
dgð“¿i°-gð’h°#`dg𢱽¿Mgg ´‚±ÿwK i
¿gL hhWc¿Xdgð²%¿¿Xdgð<>¿³ûXgðªHgð¢±ÊHgð¥¿`œM`N ¿¿Mg
Yµq±´gð²Mgg ¿h±ÿ=`²M`
’±ÿ+`goMh gð’±þóMgg ¿h±þîZd ­¿Jdg
” ¿I±ÿni ¿Ki
¿oi
¿i ¿h»MgK ¿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
²¿ghghg@
bg
³@ g
µA–@ …@ bd– @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)) rggghg@
 Hd²:A
µ3Hggggg@

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*) xo@g
bhPc@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 bAgð¦di
@(24 LOADDB 7 OLDLOAD)
(15 SYSLOAD)
()
LOADFROM :D8
(L (2 LDFLG 1 FNS 0 FILE)) @AB bdi
@(16 LOADDB 7 OLDLOADFROM)
NIL
()
MAKEFILE :D8
(L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC bdi
@(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 BggghgV
[d \`gð’±<00>W¢±‡dg
³yWdgð¨dgð²¿Lggh °Pdgð²"¿Hg
]²9LgMh °'gð›g°g¿W¿I³O`²H`
”hc°7WœHg
°#i ¿Vi
¿oi
¿i hW²@Hg
gð³-`gð³ `´‚±³H`
´‚± `´H`Hg
 ¿hKogggggHhohhggIhhhh ºW<0E>J i
°HgJ ¿Hgg 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 hNIL
NIL
()
DUMPDB :D8
(I 1 PROPFLG I 0 FILE) >@d²:d3@ð§@ ´-``g $HI(44 \MVLIST 39 DUMPDBA0001 14 STRINGP)
(59 DEFAULTCOPYRIGHTOWNER 53 COPYRIGHTFLG 34 DUMPDBA0002 26 DEFAULTCOPYRIGHTOWNER 21 COPYRIGHTFLG)
()
MAKEDB :D8
(L (0 F)) ƒ@ big@ ´h@g
oµU`oµH`ž@`
µ3@g`go 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
Reference in New Issue View Git Blame Copy Permalink