Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 7-NOV-77 15:22:31" <LISPUSERS>MSDATABASESIZE.;1 1940
changes to: MSDATABASESIZE MSDATABASESIZE1 MSDATABASESIZECOMS
DBINITCOMS
previous date: "29-SEP-77 11:05:58" <IDL>MSDATABASESIZE.;9)
(PRETTYCOMPRINT MSDATABASESIZECOMS)
(RPAQQ MSDATABASESIZECOMS ((FNS MSDATABASESIZE MSDATABASESIZE1)
(BLOCKS (MSDATABASESIZE MSDATABASESIZE
MSDATABASESIZE1))
(VARS DBINITCOMS)))
(DEFINEQ
(MSDATABASESIZE
(LAMBDA (FACTOR) (* lmm " 7-NOV-77 15:17")
(* Produces a list that represents the storage currently tied
up in masterscope databases to which MSDATABASEINIT can be set
in order to preallocate sufficient storage.
If FACTOR is not NIL, it is an the current size of each data
base is multiplied by it to avoid immediate rehashing.)
(DECLARE (SPECVARS FACTOR))
(OR FACTOR (SETQ FACTOR 1.0))
(MSDATABASESIZE1 (OR MSDATABASELST MSDATABASEINIT))))
(MSDATABASESIZE1
(LAMBDA (X) (* lmm " 7-NOV-77 15:17")
(COND
((NLISTP X)
(COND
((SWPARRAYP X)
(FIX (FTIMES FACTOR (SHASHSIZE X))))
(T X)))
((ARRAYP (CAR X))
(PROG ((CNT 0))
(DECLARE (SPECVARS CNT))
(MAPHASH X (FUNCTION (LAMBDA (VAL KEY)
(SETN CNT (IPLUS CNT (if (LISTP VAL)
then (LENGTH VAL)
else 1))))))
(RETURN (FIX (FTIMES FACTOR CNT)))))
(T (CONS (MSDATABASESIZE1 (CAR X))
(MSDATABASESIZE1 (CDR X)))))))
)
[DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
(BLOCK: MSDATABASESIZE MSDATABASESIZE MSDATABASESIZE1)
]
(RPAQQ DBINITCOMS ((P * (LIST (LIST (QUOTE MSDATABASEINIT)
(MSDATABASESIZE 1.25))))
(P (OR (GETD (QUOTE SHASHARRAY))
(LOAD (QUOTE <LISPUSERS>SWAPHASH.COM)
T))
(SETQ SWAPPEDTABLES T))))
(DECLARE: DONTCOPY
(FILEMAP (NIL (444 1581 (MSDATABASESIZE 456 . 1018) (MSDATABASESIZE1
1022 . 1578)))))
STOP