Upcase pervasive type names (CHAR, INTEGER, ...) while typing

extensions/modula2-language/src/extension.ts

@@ -3,10 +3,10 @@ import { createDiagnostics } from './diagnostics';
 import { LanguageClient, LanguageClientOptions, ServerOptions, TransportKind } from 'vscode-languageclient/node';
 
 const KEYWORDS = new Set([
-  'AND','ARRAY','BEGIN','BY','CASE','CONST','DEFINITION','DIV','DO','ELSE',
-  'ELSIF','END','EXIT','EXPORT','FOR','FROM','IF','IMPLEMENTATION','IMPORT',
-  'IN','LOOP','MOD','MODULE','NOT','OF','OR','POINTER','PROCEDURE','QUALIFIED',
-  'RECORD','REPEAT','RETURN','SET','THEN','TO','TYPE','UNTIL','VAR','WHILE','WITH'
+  'AND','ARRAY','BEGIN','BITSET','BOOLEAN','BY','CARDINAL','CASE','CHAR','CONST','DEFINITION','DIV','DO','ELSE',
+  'ELSIF','END','EXIT','EXPORT','FALSE','FOR','FROM','IF','IMPLEMENTATION','IMPORT',
+  'IN','INTEGER','LONGREAL','LOOP','MOD','MODULE','NOT','OF','OR','POINTER','PROCEDURE','QUALIFIED',
+  'REAL','RECORD','REPEAT','RETURN','SET','THEN','TO','TRUE','TYPE','UNTIL','VAR','WHILE','WITH'
 ]);
 
 let applyingEdit = false;