PDP-10 Archive: decus/20-0004/databasefns.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/databasefns.com

There are no other files named databasefns.com in the archive.

(FILECREATED "23-SEP-81 22:39:47" ("compiled on " 
<LISPUSERS>DATABASEFNS.;73) (2 . 2) bcompl'd in WORK dated NOBIND)
(FILECREATED "29-APR-81 20:27:35" <LISPUSERS>DATABASEFNS.;73 11987 
changes to: DBFILE DBFILE1 LOAD LOADFROM MAKEFILE DUMPDB LOADDB MAKEDB 
previous date: "12-APR-81 16:02:21" <LISPUSERS>DATABASEFNS.;72)
(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))

LOADDB BINARY
c;\-.;-.H<@Z,<@@ +Z,<,<B,<B,<@C`+~ZZDXBZw,<?"E,<Zw,<?,<8,,<,<,<,<Zw~3B+[w~XBpZw~XBw~+Zw}Z82B+,<E,<$F,<w~,<$F,<"FZ+|Zw}Z83B+8,<w~,<G$G2BH+!+;2BH+"+Z2BH+',<w~,<G,<H&I3B++;2BH++,<w~,<G,<H&I+,<w~[ZDI2B+;Z,<,<J,<J,<w|,FK2BJ+6,<w~,<G,<H&I3B++;,<w~,<G,<H&I+,<w~,<G,<H&I3B+,<w~,<$K,<L,<w~"L,,Z,XB?,<ZDLXBw2BM+[,<ZADLXBw,<ZDDLXBw2BM+[Z3B+T,<,<,<ZFDLXBp2B+OZw+S,<Z,<,<ZLDLFN+K/+Y,<,<ZQDL2B+XZp+Y+U/,<ZUDLXBw-,ZZ3BN+_Zw2BO+uZw3BO+a NZI3B+d,<w~,<w$O,<w~Z+,<,<w&N P,<w~,<P$Q[,<Zp-,+l+tZp,<,<p"Q2B+q,<p,<R$Q3B+r,<p"R/[pXBp+j/+{,<"F,<w~,<$F,<S,<$F,<"FZXBw~Zw~/ZwXB8Z,~3B+Z+ZSXB`DTZ`3B+ T,~Z`,~+Zw2B+	 LXBw+,<,<U$UZ2B+,<U,<,<V,<,<V,<w},WXBw,<w,<V$U2B+,<w"E,<,<W$GZ2B+Zp3B+,<w"X+,<w"XXBw3B+BYZw,,<Zp3B+!,<w,<,"+Z+,<U,<G,<V,<Y,<V,<w},WBZ,<,<,<Zw-,+*+:ZXBp,<Z,<,<L$[XBw,Z@,XB.,<p"[Zw~,<,<wZZDLZ,\,3B+7ZpZw~,+,<p"\[wXBw+(Zw+)U B*};o
3]=iPdAhV![Ia
j@LYU52->`e@B$(FILE . 1)
(ASKFLAG . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 6)
(VARIABLE-VALUE-CELL RESETVARSLST . 350)
(VARIABLE-VALUE-CELL LOADDBFLG . 69)
(VARIABLE-VALUE-CELL MSFILETABLE . 202)
(VARIABLE-VALUE-CELL DWIMWAIT . 92)
(VARIABLE-VALUE-CELL FILERDTBL . 356)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 195)
(VARIABLE-VALUE-CELL MSARGTABLE . 160)
(VARIABLE-VALUE-CELL COMPILE.EXT . 277)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
NAMEFIELD
"no database file found for "
PRIN1
TERPRI
DATABASE
GETPROP
YES
NO
/PUT
TESTTABLE
Y
"load database for"
ASKUSER
LISPXPRINT
INPUT
READ
FNS
ARGS
STORETABLE
READATABASE
STOP
UPDATECONTAINS
UPDATEFILES
FILE
GETP
EXPRP
EXPR
MSMARKCHANGED
" is not a database file!"
ERROR
RESETRESTORE
ERROR!
EXTENSION
FILENAMEFIELD
VERSION
BODY
PACKFILENAME
FILEDATES
INFILEP
FINDFILE
FILEDATE
*
FILDIR
((PROGN (CLOSEF? OLDVALUE)) . 0)
OPENFILE
SKREAD
CLOSEF
(URET5 STREQUAL URET3 URET2 SKNLST SKLST BHC CONS CONSNL ALIST2 LIST2 KT
8CFKNILBLKENT8ENTER2);P0")
Hx/`A@.xhzxh=0(X("x(X8x{o

0](W
`U
 N	HL	8JpE ;X.p@((

LOAD BINARY
-.,<`,<`,<`&	XB`Z`3B
+,<`,<$
Z`,~(FILE . 1)
(LDFLG . 1)
(PRINTFLG . 1)
OLDLOAD
SYSLOAD
LOADDB
(KT ENTER3)p

LOADFROM BINARY
		-.,<`,<`,<`&XB`,<,<$Z`,~(FILE . 1)
(FNS . 1)
(LDFLG . 1)
OLDLOADFROM
LOADDB
(KT ENTER3)X

MAKEFILE BINARY


-. ,<`,<`,<`,<`(	XB`,<,<$	Z`,~D(FILE . 1)
(OPTIONS . 1)
(REPRINTFNS . 1)
(SOURCEFILE . 1)
OLDMAKEFILE
DUMPDB
(KT ENTER4)`

DUMPDB BINARY
l-.(lZ`3B+k-,+kBo,<,<`"p,<,<,<Zw2B+,<w~[ZDp3B+,<w~,<q$s3Bt+ Z3Bt+ ,<w~[	ZDp3B+Z3B+2,<p,<Zw-,+)ZpZ2B+' "+)[QD "+1Zw,<,<p"t,<p"u/3B+0ZwZp,XBp[wXBw+#/XBpZ,<@u +dZ,<,<w,<w,<@x`+]ZZyXB,<z,<z,<q,<{,<,<{Zw|,<8,|,<,<|,<}&}Zw~XB?,Z5,XBB,<|Zw~,<?"|,,ZC,XBG,<~"rZw~,<?~Z,<,<?~,<~$sZBFZ 3B+RZw~,<?~,<?,<&,<,<$rZw~,<?,<$Zw~Z83B+YB+[,<,<$r,<"rZw~XB8Z,~3B+Z+`ZXB`DZ`3B+c ,~Z`,~Z`3B+h,<w,<$+j,<w~,<q,<t&Zw+Z,~dR.@^bHER
j^K@H06!QP-8(FILE . 1)
(PROPFLG . 1)
(VARIABLE-VALUE-CELL MSFILETABLE . 149)
(VARIABLE-VALUE-CELL SAVEDBFLG . 56)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 157)
(VARIABLE-VALUE-CELL LISPXHIST . 101)
(VARIABLE-VALUE-CELL RESETVARSLST . 144)
NAMEFIELD
FILEFNSLST
TESTTABLE
DATABASE
/REMPROP
TERPRI
PRIN1
" has no functions."
GETPROP
YES
UPDATEFN
LOCALFNP
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
((PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE))) . 0)
EXTENSION
VERSION
BODY
PACKFILENAME
OUTPUT
NEW
OPENFILE
"(PROGN (PRIN1 %"Use LOADDB to load database files!
%" T) (ERROR!))
"
FILEDATES
PRINT
STORETABLE
UPDATECONTAINS
"FNS "
DUMPDATABASE
"STOP"
ERROR
RESETRESTORE
ERROR!
/PUT
(CONSNL CONS ALIST2 CF COLLCT BHC SKNLST URET4 KT SKLA KNIL ENTER2)x	DG0 (-$kx

x]
(P @

(_h[(X
`T
=.h&8"pP

x

MAKEDB BINARY
! -.,<`"XB`,<,<BF3B+,<`,<$Z,2B+ZZ,2B+,<`[ZD2B+,<`,<Z,<,<,<&2B+Z+ZF,~ue)(F . 1)
(VARIABLE-VALUE-CELL SAVEDBFLG . 19)
(VARIABLE-VALUE-CELL MSFILETABLE . 25)
(VARIABLE-VALUE-CELL DWIMWAIT . 32)
NAMEFIELD
FNS
FILECOMS
INFILECOMS?
DATABASE
GETPROP
((YES NO) . 0)
((YES NO) . 0)
TESTTABLE
N
"Do you want a Masterscope Database for this file? "
ASKUSER
Y
YES
NO
/PUT
(FMEMB KNIL KT ENTER1)p


(* copyright (c) 1981 Xerox Corporation)
(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 LOAD LOADFROM
 MAKEFILE) (ADDVARS (LINKEDFNS OLDLOAD)) (P (RELINK (QUOTE MAKEFILES))) 
(FNS DUMPDB LOADDB MAKEDB) (PROP PROPTYPE DATABASE) (VARS (LOADDBFLG (
COND ((EQ (EVALV (QUOTE LOADDBFLG)) (QUOTE NOBIND)) (QUOTE ASK)) (T 
LOADDBFLG))) (SAVEDBFLG (COND ((EQ (EVALV (QUOTE SAVEDBFLG)) (QUOTE 
NOBIND)) (QUOTE ASK)) (T SAVEDBFLG)))) (ADDVARS (MAKEFILEFORMS (MAKEDB 
FILE))) (* To permit MSHASH interface) (ADDVARS (MSHASHFILENAME)) (
LOCALVARS . T) (BLOCKS (LOADDB LOADDB DBFILE DBFILE1 (NOLINKFNS . T))) (
DECLARE: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T)))))
(ADDTOVAR LINKEDFNS OLDLOAD)
(RELINK (QUOTE MAKEFILES))
(PUTPROPS DATABASE PROPTYPE IGNORE)
(RPAQ LOADDBFLG (COND ((EQ (EVALV (QUOTE LOADDBFLG)) (QUOTE NOBIND)) (
QUOTE ASK)) (T LOADDBFLG)))
(RPAQ SAVEDBFLG (COND ((EQ (EVALV (QUOTE SAVEDBFLG)) (QUOTE NOBIND)) (
QUOTE ASK)) (T SAVEDBFLG)))
(ADDTOVAR MAKEFILEFORMS (MAKEDB FILE))
(ADDTOVAR MSHASHFILENAME)
NIL