Browse Source

* Added NIL keyword, removed READ and WRITE as keywords

sg 25 years ago
parent
commit
39d2d677c6
1 changed files with 8 additions and 5 deletions
  1. 8 5
      fcl/shedit/sh_pas.pp

+ 8 - 5
fcl/shedit/sh_pas.pp

@@ -47,7 +47,7 @@ const
   LF_SH_Asm      = LF_SH_Multiline3;
   LF_SH_Asm      = LF_SH_Multiline3;
 
 
   MaxKeywordLength = 15;
   MaxKeywordLength = 15;
-  MaxKeyword = 61;
+  MaxKeyword = 60;
 
 
   KeywordTable: array[0..MaxKeyword] of PChar =
   KeywordTable: array[0..MaxKeyword] of PChar =
     ('AND', 'ARRAY', 'ASM', 'ASSEMBLER',
     ('AND', 'ARRAY', 'ASM', 'ASSEMBLER',
@@ -58,16 +58,16 @@ const
      'FINALIZATION', 'FINALLY', 'FOR', 'FUNCTION',
      'FINALIZATION', 'FINALLY', 'FOR', 'FUNCTION',
      'GOTO',
      'GOTO',
      'IF', 'IMPLEMENTATION', 'IN', 'INHERITED', 'INITIALIZATION', 'INTERFACE',
      'IF', 'IMPLEMENTATION', 'IN', 'INHERITED', 'INITIALIZATION', 'INTERFACE',
-     'NOT',
+     'NIL', 'NOT',
      'OBJECT', 'OF', 'ON', 'OR', 'OVERRIDE',
      'OBJECT', 'OF', 'ON', 'OR', 'OVERRIDE',
      'PACKED', 'PRIVATE', 'PROCEDURE', 'PROGRAM', 'PROPERTY', 'PROTECTED',
      'PACKED', 'PRIVATE', 'PROCEDURE', 'PROGRAM', 'PROPERTY', 'PROTECTED',
        'PUBLIC', 'PUBLISHED',
        'PUBLIC', 'PUBLISHED',
-     'RAISE', 'READ', 'RECORD', 'REPEAT', 'RESOURCESTRING',
+     'RAISE', 'RECORD', 'REPEAT', 'RESOURCESTRING',
      'SET',
      'SET',
      'THEN', 'TRY', 'TYPE',
      'THEN', 'TRY', 'TYPE',
      'UNIT', 'UNTIL', 'USES',
      'UNIT', 'UNTIL', 'USES',
      'VAR', 'VIRTUAL',
      'VAR', 'VIRTUAL',
-     'WHILE', 'WITH', 'WRITE',
+     'WHILE', 'WITH',
      'XOR');
      'XOR');
 
 
   KeywordAsmIndex = 2;
   KeywordAsmIndex = 2;
@@ -313,7 +313,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  2000-01-07 01:24:34  peter
+  Revision 1.6  2000-02-19 19:06:47  sg
+  * Added NIL keyword, removed READ and WRITE as keywords
+
+  Revision 1.5  2000/01/07 01:24:34  peter
     * updated copyright to 2000
     * updated copyright to 2000
 
 
   Revision 1.4  2000/01/06 01:20:34  peter
   Revision 1.4  2000/01/06 01:20:34  peter