From 3110dcffb7125d74aab2e4e8d871e1185e21a5ef Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 10 Feb 1990 23:45:11 +0000 Subject: [PATCH] Add new hash-table abstraction; this is loaded by (load-option 'hash-table) This abstraction is very similar to that of Common Lisp. --- v7/src/runtime/option.scm | 7 +++---- v7/src/runtime/runtime.pkg | 36 +++++++++++++++++++++++++++++++++++- v7/src/runtime/version.scm | 4 ++-- v8/src/runtime/runtime.pkg | 36 +++++++++++++++++++++++++++++++++++- 4 files changed, 75 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm index f9cccdb87..8baa79b2f 100644 --- a/v7/src/runtime/option.scm +++ b/v7/src/runtime/option.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.6 1989/11/09 03:44:56 gjs Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.7 1990/02/10 23:45:01 cph Exp $ -Copyright (c) 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -63,5 +63,4 @@ MIT in each case. |# (define options '((ARITHMETIC-INTERFACE ((RUNTIME NUMBER INTERFACE) #F "numint")) (FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format")) - (STARBASE ((RUNTIME OLD-STARBASE-GRAPHICS) (INITIALIZE-PACKAGE!) "Sgraph")) - )) \ No newline at end of file + (HASH-TABLE ((RUNTIME HASH-TABLE) (INITIALIZE-PACKAGE!) "hashtb")))) \ No newline at end of file diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index e1aa7c830..83988fff2 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.60 1990/02/09 19:11:24 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.61 1990/02/10 23:45:06 cph Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -647,6 +647,40 @@ MIT in each case. |# valid-hash-number?) (initialization (initialize-package!))) +(define-package (runtime hash-table) + (file-case options + ((load) "hashtb") + (else)) + (parent ()) + (export () + hash-table/clean! + hash-table/clear! + hash-table/constructor + hash-table/count + hash-table/entries-list + hash-table/entries-vector + hash-table/entry-key + hash-table/entry-value + hash-table/for-each + hash-table/get + hash-table/key-hash + hash-table/key=? + hash-table/lookup + hash-table/make-entry + hash-table/put! + hash-table/rehash-size + hash-table/rehash-threshold + hash-table/remove! + hash-table/set-entry-value! + hash-table/size + hash-table? + make-object-hash-table + make-string-hash-table + make-symbol-hash-table + set-hash-table/rehash-size! + set-hash-table/rehash-threshold!) + (initialization (initialize-package!))) + (define-package (runtime history) (files "histry") (parent ()) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index 253c2273b..86ee44b1c 100644 --- a/v7/src/runtime/version.scm +++ b/v7/src/runtime/version.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.74 1990/02/07 23:26:29 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.75 1990/02/10 23:45:11 cph Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -45,7 +45,7 @@ MIT in each case. |# '())) (add-system! microcode-system) (add-event-receiver! event:after-restore snarf-microcode-version!) - (add-identification! "Runtime" 14 74)) + (add-identification! "Runtime" 14 75)) (define microcode-system) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 2904c3180..a4d250d1d 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.60 1990/02/09 19:11:24 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.61 1990/02/10 23:45:06 cph Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -647,6 +647,40 @@ MIT in each case. |# valid-hash-number?) (initialization (initialize-package!))) +(define-package (runtime hash-table) + (file-case options + ((load) "hashtb") + (else)) + (parent ()) + (export () + hash-table/clean! + hash-table/clear! + hash-table/constructor + hash-table/count + hash-table/entries-list + hash-table/entries-vector + hash-table/entry-key + hash-table/entry-value + hash-table/for-each + hash-table/get + hash-table/key-hash + hash-table/key=? + hash-table/lookup + hash-table/make-entry + hash-table/put! + hash-table/rehash-size + hash-table/rehash-threshold + hash-table/remove! + hash-table/set-entry-value! + hash-table/size + hash-table? + make-object-hash-table + make-string-hash-table + make-symbol-hash-table + set-hash-table/rehash-size! + set-hash-table/rehash-threshold!) + (initialization (initialize-package!))) + (define-package (runtime history) (files "histry") (parent ()) -- 2.25.1