From df7bb20b613a9d9fd983a50dcdf6327283d2578a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 3 May 1995 07:34:40 +0000 Subject: [PATCH] Add new file implementing operations on ordered vectors. --- v7/src/runtime/optiondb.scm | 3 ++- v7/src/runtime/runtime.pkg | 19 +++++++++++++++++-- v8/src/runtime/runtime.pkg | 19 +++++++++++++++++-- 3 files changed, 36 insertions(+), 5 deletions(-) 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 -- 2.25.1