1: // The Pascal 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 "langpascal.h" 
     6: 
     7: LangPascal ::LangPascal() {
     8: 
     9: 	fill();
    10: 	init_switches();
    11: 
    12: 	doCaseKeys = No;
    13: 	doHashes   = Yes;
    14: 	doPasComnt = Yes;
    15: }
    16: 
    17: void LangPascal ::fill() {
    18: 
    19: 	string K[] = {
    20: 		"abs","and","arctan","begin","case","const","cos","dispose",
    21: 		"div","do","downto","else","end","eof","eoln","exp","false",
    22: 		"file","for","forward","function","goto","if","in","input",
    23: 		"label","ln","maxint","mod","new","nil","not","odd","of","or",
    24: 		"ord","output","pack","packed","page","pred","procedure",
    25: 		"program","read","readln","repeat","reset","rewrite","round",
    26: 		"set","sin","sqr","sqrt","succ","text","then","to","true",
    27: 		"trunc","type","until","var","while","with","write","writeln"
    28: 	};
    29: 	for(int k=0;k < 66;k++) {keys.push_back(K[k]);}
    30: 
    31: 	string T[] = {
    32: 		"array","boolean","byte","char","double","extended","integer",
    33: 		"longint","real","record","string","word"
    34: 	};
    35: 	for(int t=0;t < 12;t++) {types.push_back(T[t]);}
    36: }
    37: 



w e b c p p
web c plus plus