1: // The Modula2 Language definition file for Web C Plus Plus
     2: // Generated by Jeffrey Bakker<jefskey@yahoo.com> using genlang.cgi
     3: // genlang.cgi Copyright (C) 2002 Jeffrey Bakker
     4: 
     5: #include "langmodula.h" 
     6: 
     7: LangModula2 ::LangModula2() {
     8: 
     9: 	fill();
    10: 	init_switches();
    11: 
    12: 	doPasComnt = Yes;
    13: }
    14: 
    15: void LangModula2 ::fill() {
    16: 
    17: 	string K[] = {
    18: 		"AND","BEGIN","BY","CASE","CONST","DEFINITION","DIV",
    19: 		"DO","ELSE","ELSIF","END","EXIT","EXPORT","FALSE","FOR","FROM",
    20: 		"IF","IMPLEMENTATION","IMPORT","IN","LOOP","MOD","MODULE",
    21: 		"NOT","OF","OR","POINTER","PROCEDURE","QUALIFIED","REPEAT",
    22: 		"RETURN","SET","THEN","TO","TRUE","TYPE","UNTIL","VAR","WHILE",
    23: 		"WITH"
    24: 	};
    25: 	for(int k=0;k < 40;k++) {keys.push_back(K[k]);}
    26: 
    27: 	string T[] = {
    28: 		"ACHAR","ARRAY","BITSET","BOOLEAN","CARDINAL","CHAR","INTEGER",
    29: 		"LONGCARD","LONGCOMPLEX","LONGINT","LONGREAL","REAL","RECORD",
    30: 		"SHORTCARD","SHORTINT","UCHAR"
    31: 	};
    32: 	for(int t=0;t < 16;t++) {types.push_back(T[t]);}
    33: }
    34: