Implement Boyer-Moore string search. Also add procedures to reverse

string contents.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index a1117c6ab4b851f7b9053cca4c1b60a24d207a67..3c5257aa2e39731d3adfdc6c9d6f311575d9d8d3 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.324 1999/04/08 05:01:04 cph Exp $
+$Id: runtime.pkg,v 14.325 1999/05/07 21:08:32 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -82,6 +82,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          list->string
          guarantee-string
          make-string
+         reverse-string
+         reverse-string!
+         reverse-substring
+         reverse-substring!
          set-string-length!
          string
          string->list
@@ -125,6 +129,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          string-ref
          string-replace
          string-replace!
+         string-search-backward
+         string-search-forward
          string-set!
          string-suffix-ci?
          string-suffix?
@@ -166,6 +172,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          substring-prefix?
          substring-replace
          substring-replace!
+         substring-search-backward
+         substring-search-forward
          substring-suffix-ci?
          substring-suffix?
          substring-upcase!

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 19929eeac48a6a8a289f61dd7723462fd1820778..948107373858c502b4666b9b2c79462fe2b61880 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.329 1999/04/08 05:01:33 cph Exp $
+$Id: runtime.pkg,v 14.330 1999/05/07 21:08:27 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -82,6 +82,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          list->string
          guarantee-string
          make-string
+         reverse-string
+         reverse-string!
+         reverse-substring
+         reverse-substring!
          set-string-length!
          string
          string->list
@@ -125,6 +129,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          string-ref
          string-replace
          string-replace!
+         string-search-backward
+         string-search-forward
          string-set!
          string-suffix-ci?
          string-suffix?
@@ -166,6 +172,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          substring-prefix?
          substring-replace
          substring-replace!
+         substring-search-backward
+         substring-search-forward
          substring-suffix-ci?
          substring-suffix?
          substring-upcase!