From 7450b1d87af0f2f661408aaa5faa0dfaac3a4df3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 14 Jul 1987 03:05:41 +0000 Subject: [PATCH] Add macro to abstract the type of syntax tables. This is used by the regular expression code. --- v7/src/microcode/syntax.h | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/v7/src/microcode/syntax.h b/v7/src/microcode/syntax.h index 45a726d2b..f887fb3a5 100644 --- a/v7/src/microcode/syntax.h +++ b/v7/src/microcode/syntax.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.h,v 1.1 1987/05/11 17:47:34 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.h,v 1.2 1987/07/14 03:05:41 cph Rel $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -51,9 +51,7 @@ MIT in each case. */ #define SYNTAX_ENTRY_COMEND_FIRST(entry) (((entry) >> 18) & 1) #define SYNTAX_ENTRY_COMEND_SECOND(entry) (((entry) >> 19) & 1) -/* The possible syntax codes. */ - -enum syntaxcode +enum syntaxcode /* The possible syntax codes. */ { syntaxcode_whitespace, /* whitespace char */ syntaxcode_punct, /* random punctuation char */ @@ -76,8 +74,8 @@ enum syntaxcode ((SYNTAX_ENTRY_CODE (entry)) == syntaxcode_charquote)) /* This array, indexed by a character, contains the syntax code which that - character signifies (as a char). For example, - (enum syntaxcode) syntax_spec_code['w'] is syntaxcode_word. */ + character signifies (as a char). For example, + ((enum syntaxcode) syntax_spec_code['w']) is syntaxcode_word. */ extern char syntax_spec_code[0200]; @@ -85,5 +83,7 @@ extern char syntax_spec_code[0200]; (((pointer_type (argument)) == TC_VECTOR) && \ ((Vector_Length (argument)) == 0x100)) +#define SYNTAX_TABLE_TYPE Pointer + #define SYNTAX_TABLE_REF(table, index) \ (User_Vector_Ref ((table), ((index) & 0xFF))) -- 2.25.1