(FILECREATED "26-Oct-84 15:15:01" ("compiled on " {ERIS}HARMONY>LIBRARY>DATABASEFNS.;2) "24-Oct-84 17:49:56" bcompl'd in "INTERLISP-D 24-Oct-84 ..." dated "24-Oct-84 18:22:19") (FILECREATED " 4-May-84 10:11:42" {PHYLUM}LIBRARY>DATABASEFNS.;3 12890 changes to: (FNS LOADDB) previous date: "15-Mar-84 11:23:54" {PHYLUM}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 D1 (NAME ERRORSET L (0 NIL) F 7 ASKFLAG F 10Q FILE F 11Q RESETVARSLST F 12Q RESETY) W WW RIWoi Hi i hIWNHdgI#oi Ii oi i h-gdgigh`dgeHgg :Ii gI hhWch` Zdgh` h` Zdg~`hh` NegHgg h`H` `goHh gfHgg ha`h` h` h` ZgJgIJg`HK `H`L Hg]3^d Ndg Mi Ii oi i hHgI Ici(707Q /PUT 674Q TERPRI 667Q PRIN1 656Q PRIN1 650Q TERPRI 640Q MSMARKCHANGED 624Q EXPRP 601Q UPDATEFILES 575Q STORETABLE 560Q UPDATECONTAINS 546Q READATABASE 516Q READ 505Q READ 473Q STORETABLE 470Q READ 451Q /PUT 427Q ASKUSER 404Q TESTTABLE 363Q /PUT 340Q READ 313Q READ 303Q READ 261Q READ 237Q INPUT 227Q LISPXPRINT 214Q /PUT 135Q TERPRI 130Q PRIN1 117Q PRIN1 111Q PRIN1 50Q TERPRI 43Q PRIN1 35Q PRIN1 13Q \LOADDB/DBFILE 4 NAMEFIELD) (703Q DATABASEFILENAME 633Q EXPR 606Q FILE 571Q MSFILETABLE 564Q MSFILETABLE 552Q MSHASHFILENAME 541Q STOP 532Q STOP 524Q READATABASE 513Q FILERDTBL 502Q FILERDTBL 465Q FILERDTBL 461Q MSARGTABLE 446Q NO 443Q DATABASE 432Q Y 414Q Y 411Q DWIMWAIT 377Q MSFILETABLE 372Q MSFILETABLE 360Q NONE 355Q DATABASE 347Q NO 335Q FILERDTBL 327Q MSHASHFILENAME 320Q ARGS 310Q FILERDTBL 300Q FILERDTBL 266Q FNS 256Q FILERDTBL 233Q INPUT 211Q YES 206Q DATABASE 176Q YES 172Q LOADDBFLG 162Q NO 151Q YES 144Q DATABASE 73Q DATABASEFILENAME) ( 663Q " is not a database file!" 420Q "load database for" 124Q " already loaded." 105Q "Database " 31Q "no database file found for ") LOADDB D1 (P 1 RESETY P 0 LISPXHIST I 1 ASKFLAG I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q LOADDBA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (LOADDBA0001)) \LOADDB/DBFILE D1 (L (1 ASKFLAG 0 FILE)) ]@ b"g `ghghg@ b@g @ gA@ @ bd @H@H (132Q \LOADDB/DBFILE1 115Q FILEDATE 106Q FINDFILE 101Q INFILEP 64Q NAMEFIELD 57Q FILENAMEFIELD 45Q PACKFILENAME 17Q FILENAMEFIELD 5 INPUT) (67Q FILEDATES 54Q VERSION 40Q BODY 34Q VERSION 30Q EXTENSION 22Q COMPILE.EXT 14Q EXTENSION) () \LOADDB/DBFILE1 D1 (L (1 FILEDATES 0 F)) Uggghg@  Hd,dA HAggggg@  YhdA ׿I(114Q \LOADDB/DBFILE2 100Q REMOVE 75Q FILDIR 72Q PACKFILENAME 40Q \LOADDB/DBFILE2 24Q INFILEP 21Q PACKFILENAME) (65Q BODY 62Q * 57Q VERSION 54Q DATABASE 51Q EXTENSION 14Q BODY 10Q VERSION 5 DATABASE 2 EXTENSION) () \LOADDB/DBFILE2 D1 (L (1 FILEDATES 0 DBF) F 0 RESETVARSLST) .o@g bhPc@ A@`  @ h(52Q CLOSEF 44Q STREQUAL 40Q READ 27Q SKREAD 12Q OPENFILE) (35Q FILERDTBL 7 INPUT) ( 3 (PROGN (CLOSEF? OLDVALUE))) LOAD D1 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @AB bAgdi @(22Q LOADDB 5 OLDLOAD) (13Q SYSLOAD) () LOADFROM D1 (L (2 LDFLG 1 FNS 0 FILE)) @AB bdi @(14Q LOADDB 5 OLDLOADFROM) NIL () MAKEFILE D1 (L (3 SOURCEFILE 2 REPRINTFNS 1 OPTIONS 0 FILE)) @ABC bdi @(15Q DUMPDB 6 OLDMAKEFILE) NIL () DUMPDBA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 FL F 2 DBFILE F 3 FFNS F 4 FILE F 5 RESETY F 6 FNS) oggghgT gg chPcgR hhPco `Q`Qg `QSi o S h Vo h c i (212Q DUMPDATABASE 203Q TERPRI 176Q PRIN1 163Q TERPRI 156Q PRIN2 151Q PRIN1 141Q UPDATECONTAINS 126Q STORETABLE 123Q PRINT 100Q PRIN1 57Q OUTPUT 36Q OPENFILE 25Q PACKFILENAME) (132Q MSHASHFILENAME 116Q FILEDATES 112Q MSFILETABLE 104Q MSFILETABLE 53Q OUTPUT 33Q NEW 30Q OUTPUT 20Q BODY 14Q VERSION 11Q DATABASE 6 EXTENSION) ( 173Q "STOP" 146Q "FNS " 75Q "(PROGN (PRIN1 %"Use LOADDB to load database files! %" T) (ERROR!)) " 3 (PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE)))) DUMPDB D1 (L (1 PROPFLG) P 12Q RESETY P 11Q LISPXHIST P 3 FNS P 2 DBFILE P 1 FFNS P 0 FL I 0 FILE F 14Q LISPXHIST F 15Q RESETVARSLST)  @dl@ @ "I`gH` \hbI[A.Hgg#`g`H` `KAL@MW! Wog PhPAHg i @i oi i h_ Od _NOh^]L\O&^g_ OAJi HgJ Hgg J(377Q /PUT 364Q /PUT 352Q PRINT 341Q ERROR! 332Q RESETRESTORE 271Q LOCALFNP 262Q UPDATEFN 252Q TERPRI 245Q PRIN1 234Q PRIN1 226Q TERPRI 220Q /REMPROP 202Q DUMPDBA0001 134Q TESTTABLE 53Q TESTTABLE 27Q FILEFNSLST 23Q NAMEFIELD) (374Q YES 371Q DATABASE 360Q DATABASEFILENAME 325Q ERROR 215Q DATABASE 177Q INTERNAL 145Q MSHASHFILENAME 127Q MSFILETABLE 115Q MSFILETABLE 107Q YES 104Q SAVEDBFLG 76Q YES 72Q DATABASE 46Q MSFILETABLE 40Q MSFILETABLE) ( 241Q " has no functions." 174Q (DUMPDBA0001)) MAKEDB D1 (L (0 F)) Z@ big@ G@go;`o1`@` "@g`go ggg (127Q /PUT 110Q ASKUSER 65Q TESTTABLE 20Q INFILECOMS? 15Q FILECOMS 3 NAMEFIELD) (124Q NO 120Q YES 113Q Y 101Q N 76Q DWIMWAIT 73Q DATABASE 60Q MSFILETABLE 53Q MSFILETABLE 41Q SAVEDBFLG 26Q DATABASE 11Q FNS) ( 105Q "Do you want a Masterscope Database for this file? " 45Q (YES NO) 33Q (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))) (* To permit MSHASH interface) (INITVARS (MSHASHFILENAME) (MSFILETABLE)) (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? MSHASHFILENAME) (RPAQ? MSFILETABLE) NIL