From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 May 1995 07:34:40 +0000 (+0000)
Subject: Add new file implementing operations on ordered vectors.
X-Git-Tag: 20090517-FFI~6353
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=df7bb20b613a9d9fd983a50dcdf6327283d2578a;p=mit-scheme.git

Add new file implementing operations on ordered vectors.
---

diff --git a/v7/src/runtime/optiondb.scm b/v7/src/runtime/optiondb.scm
index 94633baaf..b79ed1008 100644
--- a/v7/src/runtime/optiondb.scm
+++ b/v7/src/runtime/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: optiondb.scm,v 1.2 1994/10/11 20:57:02 cph Exp $
+$Id: optiondb.scm,v 1.3 1995/05/03 07:34:40 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -78,6 +78,7 @@ MIT in each case. |#
    (WT-TREE     (RUNTIME WT-TREE)    #F                    "wttree")
    (SUBPROCESS  (RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process")
    (STEPPER     (RUNTIME STEPPER)    #F                    "ystep")
+   (ORDERED-VECTOR (RUNTIME ORDERED-VECTOR) #F "ordvec")
    ))
 
 (define-load-option 'DOSPROCESS
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8f9355c10..5d05b053e 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.255 1995/04/24 23:22:30 adams Exp $
+$Id: runtime.pkg,v 14.256 1995/05/03 07:34:31 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -3055,4 +3055,19 @@ MIT in each case. |#
 	  step-quit
 	  step-run
 	  step-until
-	  step-until-visibly))
\ No newline at end of file
+	  step-until-visibly))
+
+(define-package (runtime ordered-vector)
+  (file-case options
+    ((load) "ordvec")
+    (else))
+  (parent ())
+  (export ()
+	  match-ordered-subvector
+	  match-ordered-vector
+	  ordered-subvector-matches
+	  ordered-subvector-minimum-match
+	  ordered-vector-matches
+	  ordered-vector-minimum-match
+	  search-ordered-subvector
+	  search-ordered-vector))
\ No newline at end of file
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 8f9355c10..5d05b053e 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.255 1995/04/24 23:22:30 adams Exp $
+$Id: runtime.pkg,v 14.256 1995/05/03 07:34:31 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -3055,4 +3055,19 @@ MIT in each case. |#
 	  step-quit
 	  step-run
 	  step-until
-	  step-until-visibly))
\ No newline at end of file
+	  step-until-visibly))
+
+(define-package (runtime ordered-vector)
+  (file-case options
+    ((load) "ordvec")
+    (else))
+  (parent ())
+  (export ()
+	  match-ordered-subvector
+	  match-ordered-vector
+	  ordered-subvector-matches
+	  ordered-subvector-minimum-match
+	  ordered-vector-matches
+	  ordered-vector-minimum-match
+	  search-ordered-subvector
+	  search-ordered-vector))
\ No newline at end of file