(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "26-Feb-93 11:22:10" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>HASH.;2|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "11-Jun-90 16:23:11" {DSK}local>lde>lispcore>library>HASH.;2 32944 changes to%: ( VARS HASHCOMS) previous date%: " 1-Nov-86 23:03:01" {DSK}local>lde>lispcore>library>HASH.;1) LOOKUPHASHFILE :D8 (L (4 KEY2 3 CALLTYPE 2 HASHFILE 1 VALUE 0 KEY)) `@DI¡H‹H`IRBoC¾\µQh bIBCgðµC´gC´iHXjHó²@l gg¿@li¿@k @`@(40 ELT 32 SETA 22 WHENCLOSE 7 ELT) (59 SYSHASHFILE 53 SYSHASHFILELST 47 SYSHASHFILELST 17 HASHBEFORECLOSE 12 BEFORE) () COLLECTKEYSA0001 :D8 (L (1 KEY2 0 KEY1) F 0 MKSTRING? F 1 KEYLST) P–@ €@P–A €AQc(17 MKSTRING 7 MKSTRING) NIL () COLLECTKEYSA0002 :D8 (L (0 KEY) F 0 KEYLST F 1 MKSTRING?) Q–@ €@Pc(7 MKSTRING) NIL () COLLECTKEYS :D8 (L (1 DOUBLE 0 HASHFILE) P 0 KEYLST I 2 MKSTRING?) Aœ@giŠ@g H(28 MAPHASHFILE 16 MAPHASHFILE) (23 COLLECTKEYSA0002 10 COLLECTKEYSA0001) () COPYHASHFILEA0003 :D8 (L (0 KEY) F 0 HASHFILE F 1 NEWHASHFILE F 2 FN) @PQR(8 COPYHASHITEM) NIL () COPYHASHFILE :D8 (L (4 LEAVEOPEN 3 VALUETYPE 1 NEWNAME) P 2 NEWHASHFILE I 2 FN I 0 HASHFILE) m@ b@g ACµ Hl Hl Hl hHl Igð©@I b€@g D¦J J(104 CLOSEHASHFILE 96 MAPHASHFILE 82 CLOSEHASHFILE 64 CREATEHASHFILE 58 ELT 49 ELT 41 ELT 33 ELT 21 HASHFILEPROP 5 GTHASHFILE) (91 COPYHASHFILEA0003 73 INPUT 16 ACCESS) () COPYHASHITEM :D8 (L (3 USERFN 2 NEWHASHFILE 1 HASHFILE 0 KEY)) I@A Cš@HABlCX€Hgð²@Al BHH Œ@HBgh(69 LOOKUPHASHFILE 55 PUTHASHTEXT 42 ELT 6 GETHASHFILE) (64 INSERT 30 HashTextPtr) () HASHFILESPLSTA0004 :D8 (F 0 HASHFILE F 1 XWORD) PQ (6 \MAPHASHFILEBLOCK/HASHFILESPLST1) NIL () HASHFILESPLST :D8 (I 1 XWORD I 0 HASHFILE) @ b´ gh (20 GENERATEFN 5 GTHASHFILE) (14 HASHFILESPLSTA0004) () \MAPHASHFILEBLOCK/HASHFILESPLST1A0005 :D8 (L (0 KEY) F 0 XWORD) PœP@khi ´@ (20 PRODUCE 12 STRPOS) NIL () \MAPHASHFILEBLOCK/HASHFILESPLST1 :D8 (L (0 HASHFILE) I 1 XWORD) @g (10 MAPHASHFILE) (5 \MAPHASHFILEBLOCK/HASHFILESPLST1A0005) () MAPHASHFILE :D8 (L (2 DOUBLE 1 MAPFN 0 HASHFILE)) Ù @ bHl A µjB’l€kñlCk½MJó’±¨Hl L ¿Hdl lUð²|l ááHl áØHl Ø_¿Hl O ¿Hl ` ¾K²Hl ` _¿B²N YIOlA‡NOlA¿MkÔ½LlÔ¼±ÿWh(180 \MAPHASHFILEBLOCK/SPLITKEY 168 READ 158 ELT 146 READ 136 ELT 127 SETFILEPTR 120 ELT 107 ELT 96 ELT 85 ELT 72 ELT 62 SETFILEPTR 56 ELT 24 NARGS 18 ELT 5 GTHASHFILE) (163 HASHFILERDTBL 141 HASHFILERDTBL) () REHASHFILE :D8 (L (2 VALUETYPE 1 NEWNAME 0 HASHFILE) F 3 REHASHGAG) §@ bAµghg@ @g S³0oh ¿kh ¿@k h ¿oh ¿@H@l Bµ @l X@ HIhd@ ºS³Jk h ¿h @(163 TERPRI 156 PRIN1 150 ELT 139 OPENHASHFILE 128 CLOSEHASHFILE 121 COPYHASHFILE 116 ELT 105 ELT 94 PRIN1 82 PRIN1 76 ELT 68 SPACES 60 PRIN1 43 HASHFILEPROP 32 PACKFILENAME 27 HASHFILENAME 5 GTHASHFILE) (38 ACCESS 21 BODY 15 VERSION) ( 88 " ... " 54 "Rehashing") \MAPHASHFILEBLOCK/SPLITKEY :D8 (L (0 KEY)) A`@ H²%`@kHkÙ@HkØ IJdK¿`@dh¿(40 SUBATOM 31 SUBATOM 10 STRPOSL) (56 HASHSCRATCHCONSCELL 21 HASHSCRATCHCONSCELL 4 HASHBITTABLE) () CLEARHASHFILES :D8 (I 1 RELEASE I 0 CLOSE) =@´`d¥`¿Hl ¿Hlh°É(56 SETA 45 CLOSEF? 40 ELT) (27 SYSHASHFILELST 21 SYSHASHFILELST 14 SYSHASHFILE 7 SYSHASHFILELST) () CLOSEHASHFILE :D8 (I 1 REOPEN I 0 HASHFILE) C@µ` bd²1k@l A²@k Ahd@ @k (64 ELT 56 OPENHASHFILE 46 ELT 36 SETA 31 CLOSEF? 26 ELT 12 HASHFILEP) (7 SYSHASHFILE) () GETHASHTEXT :D8 (P 0 HASHTEXTPTR I 2 DSTFIL I 1 HASHFILE I 0 KEY) +@A Hgð´Al BHH(40 COPYBYTES 28 ELT 6 GETHASHFILE) (17 HashTextPtr) () HASHBEFORECLOSE :D8 (P 0 ENTRY I 0 FILE) B@ `Hd²/d`ð˜¿h¿Hlh¿H` h(57 DREMOVE 45 SETA 5 FULLNAME) (62 SYSHASHFILELST 52 SYSHASHFILELST 34 SYSHASHFILE 25 SYSHASHFILE 10 SYSHASHFILELST) () HASHFILEDATA :D8 (I 0 HASHFILE) /@ Hk Hl Hl Hl h(39 ELT 31 ELT 23 ELT 15 ELT 5 GTHASHFILE) NIL () HASHFILENAME :D8 (I 0 HASHFILE) @g (10 HASHFILEPROP) (5 NAME) () HASHFILEP :D8 (I 1 WRITE I 0 HASHFILE) >@d³"d²5d3@ð´/@ bd²$`bd²l ´A™@l ´@(56 ELT 44 ELT 20 FULLNAME) (30 SYSHASHFILELST) () HASHFILEPROP :D8 (I 2 VALUE I 1 PROP I 0 HASHFILE) ¯@ Adgð™¿Hl dgð²¿Hl g gð—Hk Adgð²¿Hl B²QHl B¿gð˜Hl Adgð™¿Hl gð˜Hl Agð´ Hl (172 ELT 154 ELT 138 ELT 119 ELT 102 SETA 90 ELT 70 ELT 55 GETFILEINFO 45 ELT 26 ELT 5 GTHASHFILE) (161 ITEMLENGTH 144 %#ENTRIES 127 SIZE 109 STREAM 78 COPYFN 61 NAME 50 ACCESS 33 ACCESS 15 VALUETYPE) () PUTHASHTEXT :D8 (P 0 HASHTEXTPTR I 4 END I 3 START I 2 HASHFILE I 1 SRCFIL I 0 KEY) _Bi b Bl mÿ ¿gBl hX¹ABl CD¿IBl ¿@HB(92 PUTHASHFILE 82 GETEOFPTR 77 ELT 66 COPYBYTES 59 ELT 45 GETEOFPTR 40 ELT 26 SETFILEPTR 19 ELT 6 GTHASHFILE) (32 HashTextPtr) () GTHASHFILE :D8 (I 1 WRITE I 0 HASHFILE) D@µ `bA ‘@@d²k Ahd@ d3@ð—@A @o (65 HELP 53 OPENHASHFILE 40 OPENHASHFILE 30 ELT 15 HASHFILEP) (7 SYSHASHFILE) ( 60 "NOT A HASHFILE") (PRETTYCOMPRINT HASHCOMS) (RPAQQ HASHCOMS ((COMS (* ; "User Functions") (FNS CLEARHASHFILES CLOSEHASHFILE COLLECTKEYS COPYHASHFILE COPYHASHITEM CREATEHASHFILE GETHASHFILE GETHASHTEXT HASHBEFORECLOSE HASHFILEDATA HASHFILENAME HASHFILEP HASHFILEPROP HASHFILESPLST LOOKUPHASHFILE MAPHASHFILE OPENHASHFILE PUTHASHFILE PUTHASHTEXT REHASHFILE)) (COMS (* ; "Internal Functions") (FNS DELETEHASHKEY FIND1STPRIME GETHASHKEY GETPROBE GTHASHFILE HASHFILESPLST1 INSERTHASHKEY MAKEHASHKEY REPLACEHASHKEY SETHASHSTATUS SPLITKEY)) ( COMS (* ; "System Variables") (INITVARS (HFGROWTHFACTOR 3) (HASHLOADFACTOR 0.875) (HASHFILEDEFAULTSIZE 512) (HASHSCRATCHCONSCELL (CONS)) (HASHTEXTCHAR (CHARACTER (CHARCODE ^A))) (HASHFILERDTBL ( COPYREADTABLE (QUOTE ORIG))) (HASHSCRATCHLST (CONSTANT (to 40 collect NIL))) (HASHBITTABLE ( MAKEBITTABLE (LIST HASHTEXTCHAR))) (REHASHGAG T) SYSHASHFILE SYSHASHFILELST) (VARS PROBELST HASHACCESSTYPES) (ADDVARS (AFTERSYSOUTFORMS (CLEARHASHFILES))) (OPTIMIZERS GETHASHFILE HASHFILENAME)) (COMS (* ; "System Macros") (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS ANYEQ CREATEKEY PRINTPTR PRINTSTBYTE READPTR READSTBYTE REHASHKEY) (* ;; "etc.") (RECORDS HashFile HashTextPtr HashFileEntry DoubleKey) (CONSTANTS (HASH.HEADER.SIZE 8) (HASH.KEY.SIZE 4)) (GLOBALVARS HFGROWTHFACTOR HASHLOADFACTOR HASHFILEDEFAULTSIZE HASHSCRATCHCONSCELL HASHTEXTCHAR HASHSCRATCHLST HASHBITTABLE SYSHASHFILE SYSHASHFILELST PROBELST HASHACCESSTYPES HASHFILERDTBL MAX.INTEGER) (* ; "For MASTERSCOPE") (GLOBALVARS HASH.HEADER.SIZE HASH.KEY.SIZE) (SPECVARS REHASHGAG) (BLOCKS (LOOKUPHASHFILEBLOCK ( ENTRIES LOOKUPHASHFILE GETHASHFILE PUTHASHFILE) LOOKUPHASHFILE GETHASHFILE PUTHASHFILE DELETEHASHKEY GETHASHKEY GETPROBE INSERTHASHKEY MAKEHASHKEY REPLACEHASHKEY) (OPENHASHFILEBLOCK (ENTRIES CREATEHASHFILE OPENHASHFILE) CREATEHASHFILE OPENHASHFILE FIND1STPRIME SETHASHSTATUS) (MAPHASHFILEBLOCK (ENTRIES COLLECTKEYS COPYHASHFILE COPYHASHITEM HASHFILESPLST MAPHASHFILE REHASHFILE) (SPECVARS REHASHGAG) COLLECTKEYS COPYHASHFILE COPYHASHITEM HASHFILESPLST HASHFILESPLST1 MAPHASHFILE REHASHFILE SPLITKEY)))) (PROP FILETYPE HASH))) (RPAQ? HFGROWTHFACTOR 3) (RPAQ? HASHLOADFACTOR 0.875) (RPAQ? HASHFILEDEFAULTSIZE 512) (RPAQ? HASHSCRATCHCONSCELL (CONS)) (RPAQ? HASHTEXTCHAR (CHARACTER (CHARCODE ^A))) (RPAQ? HASHFILERDTBL (COPYREADTABLE (QUOTE ORIG))) (RPAQ? HASHSCRATCHLST (CONSTANT (to 40 collect NIL))) (RPAQ? HASHBITTABLE (MAKEBITTABLE (LIST HASHTEXTCHAR))) (RPAQ? REHASHGAG T) (RPAQ? SYSHASHFILE NIL) (RPAQ? SYSHASHFILELST NIL) (RPAQQ PROBELST (1 3 5 7 11 11 13 17 17 19 23 23 29 29 29 31 37 37 37 41 41 43 47 47 53 53 53 59 59 59 61 67)) (RPAQQ HASHACCESSTYPES ((INPUT READ OLD NIL RETRIEVE) (BOTH WRITE OUTPUT T INSERT DELETE REPLACE) ( CREATE DOUBLE NUMBER STRING PRINT FULLPRINT))) (ADDTOVAR AFTERSYSOUTFORMS (CLEARHASHFILES)) (DEFOPTIMIZER GETHASHFILE (&REST X) (if (CADDR X) then (QUOTE IGNOREMACRO) else (BQUOTE ( LOOKUPHASHFILE (\, (CAR X)) NIL (\, (CADR X)) (QUOTE RETRIEVE))))) (DEFOPTIMIZER HASHFILENAME (HASHFILE) (BQUOTE (HASHFILEPROP (\, HASHFILE) (QUOTE NAME)))) (PUTPROPS HASH FILETYPE CL:COMPILE-FILE) (PUTPROPS HASH COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1990)) NIL