From: Chris Hanson Date: Tue, 14 Jul 1987 02:59:39 +0000 (+0000) Subject: Implement regular expression primitives for Edwin. X-Git-Tag: 20090517-FFI~13262 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=16779a0ec0b047b7af2aee4c005c8497eb005050;p=mit-scheme.git Implement regular expression primitives for Edwin. --- diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 459d5c26f..ce058d9e4 100644 --- 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 a4c21f4f3..6b3d58baf 100644 --- 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. */ @@ -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 1a527fa16..c2d239ebd 100644 --- 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 88ad6f2d1..dbd803e80 100644 --- 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. */ @@ -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