Add new file implementing operations on ordered vectors.

diff --git a/v7/src/runtime/optiondb.scm b/v7/src/runtime/optiondb.scm
index 94633baaf9b5d0baf140e830d71f469dffc00808..b79ed100805a73b7a0dbeb5cb6cf0d3f19d3e099 100644 (file)
--- 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 8f9355c10c9711f69df4d3db1541f3fce85885c5..5d05b053e548e19878f7f914e4dff5b4e5870844 100644 (file)
--- 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 8f9355c10c9711f69df4d3db1541f3fce85885c5..5d05b053e548e19878f7f914e4dff5b4e5870844 100644 (file)
--- 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