github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-01 22:16:57 +00:00
Code Issues Projects Releases Wiki Activity

odds and ends --

Browse Source
This commit is contained in:
Larry Masinter
2022-02-24 18:59:15 -08:00
parent 4ae11aebf4
commit aad2344d82
3 changed files with 117 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
lispusers/HASHBUFFER
View File

@@ -1,24 +1,23 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "15-Sep-87 11:26:06" |{MCS:MCS:STANFORD}<LANE>HASHBUFFER.;6| 6916
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS HASHBUFFERCOMS)
(FILECREATED "10-Feb-2022 21:52:22" {DSK}<home>larry>medley>lispusers>HASHBUFFER.;2 6788
previous date%: " 3-Sep-87 17:06:23" |{MCS:MCS:STANFORD}<LANE>HASHBUFFER.;5|)
:PREVIOUS-DATE "15-Sep-87 11:26:06" {DSK}<home>larry>medley>lispusers>HASHBUFFER.;1)
(* "
Copyright (c) 1985, 1986, 1987 by Stanford University. All rights reserved.
(* ; "
Copyright (c) 1985-1987, 2022 by Stanford University.
")
(PRETTYCOMPRINT HASHBUFFERCOMS)
(RPAQQ HASHBUFFERCOMS ((FNS CREATEHASHBUFFER OPENHASHBUFFER CLOSEHASHBUFFER GETHASHBUFFER
PUTHASHBUFFER)
(INITVARS (EMPTYHASHENTRYMARKER '**EMPTYHASHENTRY**))
(GLOBALVARS EMPTYHASHENTRYMARKER)
(FNS HASHARRAY.TO.HASHFILE HASHFILE.TO.HASHARRAY)
(DECLARE%: DONTCOPY (RECORDS HASHBUFFER))
(FILES HASH)))
(RPAQQ HASHBUFFERCOMS
((FNS CREATEHASHBUFFER OPENHASHBUFFER CLOSEHASHBUFFER GETHASHBUFFER PUTHASHBUFFER)
(INITVARS (EMPTYHASHENTRYMARKER '**EMPTYHASHENTRY**))
(GLOBALVARS EMPTYHASHENTRYMARKER)
(FNS HASHARRAY.TO.HASHFILE HASHFILE.TO.HASHARRAY)
(DECLARE%: DONTCOPY (RECORDS HASHBUFFER))
(FILES HASH)))
(DEFINEQ
(CREATEHASHBUFFER
@@ -130,10 +129,11 @@ Copyright (c) 1985, 1986, 1987 by Stanford University. All rights reserved.
(RECORD HASHBUFFER (HASHARRAY HASHFILE ACCESS))
)
)
(FILESLOAD HASH)
(PUTPROPS HASHBUFFER COPYRIGHT ("Stanford University" 1985 1986 1987))
(PUTPROPS HASHBUFFER COPYRIGHT ("Stanford University" 1985 1986 1987 2022))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (848 4618 (CREATEHASHBUFFER 858 . 1987) (OPENHASHBUFFER 1989 . 3081) (CLOSEHASHBUFFER
3083 . 3472) (GETHASHBUFFER 3474 . 4317) (PUTHASHBUFFER 4319 . 4616)) (4745 6703 (
HASHARRAY.TO.HASHFILE 4755 . 5690) (HASHFILE.TO.HASHARRAY 5692 . 6701)))))
(FILEMAP (NIL (714 4484 (CREATEHASHBUFFER 724 . 1853) (OPENHASHBUFFER 1855 . 2947) (CLOSEHASHBUFFER
2949 . 3338) (GETHASHBUFFER 3340 . 4183) (PUTHASHBUFFER 4185 . 4482)) (4611 6569 (
HASHARRAY.TO.HASHFILE 4621 . 5556) (HASHFILE.TO.HASHARRAY 5558 . 6567)))))
STOP