1: // The Euphoria Language definition file for Web C Plus Plus
     2: // Generated by George Lewis <ghlewis@hotmail.com> using genlang.cgi
     3: // genlang.cgi Copyright (C) 2002 Jeffrey Bakker
     4: 
     5: #include "langeuphoria.h" 
     6: 
     7: LangEuphoria ::LangEuphoria() {
     8: 
     9: 	fill();
    10: 	init_switches();
    11: 
    12: 
    13: 	doAdaComnt  = Yes;
    14: }
    15: 
    16: void LangEuphoria ::fill() {
    17: 
    18: 	string K[] = {
    19:   "by","constant","do","else","elsif","end","exit","for","function","global",
    20:   "if","include","not","or","procedure","return","then","to","type","while",
    21:   "with","without","xor","and"
    22: 	};
    23: 
    24: 	for(int k=0;k < 24;k++) {keys.push_back(K[k]);}
    25: }
    26: