projects / mit-scheme.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a41e396)
Implement regular expression primitives for Edwin.
authorChris Hanson <org/chris-hanson/cph>
Tue, 14 Jul 1987 02:59:39 +0000 (02:59 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 14 Jul 1987 02:59:39 +0000 (02:59 +0000)
v7/src/microcode/utabmd.scm patch | blob | history
v7/src/microcode/version.h patch | blob | history
v8/src/microcode/utabmd.scm patch | blob | history
v8/src/microcode/version.h patch | blob | history

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 459d5c26f4681338ddf1eedada2c462ac86c673f..ce058d9e48aeba1aee4ebf921010f6039c835aef 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.34 1987/06/05 17:28:37 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.35 1987/07/14 02:59:08 cph Exp $
 
 (declare (usual-integrations))
 
@@ -608,20 +608,20 @@
               MAKE-DIRECTORY                           ;$115
               VOLUME-NAME                              ;$116
               SET-WORKING-DIRECTORY-PATHNAME!          ;$117
-              OPEN-CATALOG                             ;$118
-              CLOSE-CATALOG                            ;$119
-              NEXT-FILE                                ;$11A
-              CAT-NAME                                 ;$11B
-              CAT-KIND                                 ;$11C
-              CAT-PSIZE                                ;$11D
-              CAT-LSIZE                                ;$11E
-              CAT-INFO                                 ;$11F
-              CAT-BLOCK                                ;$120
-              CAT-CREATE-DATE                          ;$121
-              CAT-CREATE-TIME                          ;$122
-              CAT-LAST-DATE                            ;$123
-              CAT-LAST-TIME                            ;$124
-              ERROR-MESSAGE                            ;$125
+              RE-MATCH-SUBSTRING                       ;$118
+              RE-SEARCH-SUBSTRING-FORWARD              ;$119
+              RE-SEARCH-SUBSTRING-BACKWARD             ;$11A
+              #F                                       ;$11B
+              #F                                       ;$11C
+              #F                                       ;$11D
+              #F                                       ;$11E
+              #F                                       ;$11F
+              #F                                       ;$120
+              #F                                       ;$121
+              #F                                       ;$122
+              #F                                       ;$123
+              #F                                       ;$124
+              #F                                       ;$125
               CURRENT-YEAR                             ;$126
               CURRENT-MONTH                            ;$127
               CURRENT-DAY                              ;$128
@@ -730,9 +730,9 @@
               VOLUME-EXISTS?                           ;$18F
               RE-CHAR-SET-ADJOIN!                      ;$190
               RE-COMPILE-FASTMAP                       ;$191
-              RE-MATCH                                 ;$192
-              RE-SEARCH-FORWARD                        ;$193
-              RE-SEARCH-BACKWARD                       ;$194
+              RE-MATCH-BUFFER                          ;$192
+              RE-SEARCH-BUFFER-FORWARD                 ;$193
+              RE-SEARCH-BUFFER-BACKWARD                ;$194
               (SYSTEM-MEMORY-REF &OBJECT-REF)          ;$195
               (SYSTEM-MEMORY-SET! &OBJECT-SET!)        ;$196
               BIT-STRING-FILL!                         ;$197
@@ -863,4 +863,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.34 1987/06/05 17:28:37 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.35 1987/07/14 02:59:08 cph Exp $"
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index a4c21f4f367c251976698b1b005e9fb4d42de28f..6b3d58baf6c09fecdbaa56925184c34f9e40cb5e 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.79 1987/07/07 20:52:42 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.80 1987/07/14 02:59:39 cph Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     79
+#define SUBVERSION     80
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 1a527fa1695d7924ef2bbaa284025c1bcb2b6020..c2d239ebd8802c34501e1cb23399c787b6d10864 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.34 1987/06/05 17:28:37 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.35 1987/07/14 02:59:08 cph Exp $
 
 (declare (usual-integrations))
 
@@ -608,20 +608,20 @@
               MAKE-DIRECTORY                           ;$115
               VOLUME-NAME                              ;$116
               SET-WORKING-DIRECTORY-PATHNAME!          ;$117
-              OPEN-CATALOG                             ;$118
-              CLOSE-CATALOG                            ;$119
-              NEXT-FILE                                ;$11A
-              CAT-NAME                                 ;$11B
-              CAT-KIND                                 ;$11C
-              CAT-PSIZE                                ;$11D
-              CAT-LSIZE                                ;$11E
-              CAT-INFO                                 ;$11F
-              CAT-BLOCK                                ;$120
-              CAT-CREATE-DATE                          ;$121
-              CAT-CREATE-TIME                          ;$122
-              CAT-LAST-DATE                            ;$123
-              CAT-LAST-TIME                            ;$124
-              ERROR-MESSAGE                            ;$125
+              RE-MATCH-SUBSTRING                       ;$118
+              RE-SEARCH-SUBSTRING-FORWARD              ;$119
+              RE-SEARCH-SUBSTRING-BACKWARD             ;$11A
+              #F                                       ;$11B
+              #F                                       ;$11C
+              #F                                       ;$11D
+              #F                                       ;$11E
+              #F                                       ;$11F
+              #F                                       ;$120
+              #F                                       ;$121
+              #F                                       ;$122
+              #F                                       ;$123
+              #F                                       ;$124
+              #F                                       ;$125
               CURRENT-YEAR                             ;$126
               CURRENT-MONTH                            ;$127
               CURRENT-DAY                              ;$128
@@ -730,9 +730,9 @@
               VOLUME-EXISTS?                           ;$18F
               RE-CHAR-SET-ADJOIN!                      ;$190
               RE-COMPILE-FASTMAP                       ;$191
-              RE-MATCH                                 ;$192
-              RE-SEARCH-FORWARD                        ;$193
-              RE-SEARCH-BACKWARD                       ;$194
+              RE-MATCH-BUFFER                          ;$192
+              RE-SEARCH-BUFFER-FORWARD                 ;$193
+              RE-SEARCH-BUFFER-BACKWARD                ;$194
               (SYSTEM-MEMORY-REF &OBJECT-REF)          ;$195
               (SYSTEM-MEMORY-SET! &OBJECT-SET!)        ;$196
               BIT-STRING-FILL!                         ;$197
@@ -863,4 +863,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.34 1987/06/05 17:28:37 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.35 1987/07/14 02:59:08 cph Exp $"
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 88ad6f2d1f19aa9114043c01068bb25320f78a24..dbd803e802d07eae5012182dc4e350847a1293ce 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.79 1987/07/07 20:52:42 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.80 1987/07/14 02:59:39 cph Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     79
+#define SUBVERSION     80
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
MIT/GNU Scheme, Pucked