1: // The Ada95 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 "langada.h" 
     6: 
     7: LangAda95 ::LangAda95() {
     8: 
     9: 	fill();
    10: 	init_switches();
    11: 
    12: 	doLabels   = Yes;
    13: 	doAdaComnt = Yes;
    14: }
    15: 
    16: void LangAda95 ::fill() {
    17: 
    18: 	string K[] = {
    19: 	"abort","abs","abstract","accept","access","aliased","all","and","array",
    20: 	"at","begin","body","case","constant","declare","delay","delta","digits",
    21: 	"do","else","elsif","end","entry","exception","exit","for","function",
    22: 	"generic","goto","if","in","is","limited","loop","mod","new","not","null",
    23: 	"of","or","others","out","package","pragma","private","procedure",
    24: 	"protected","raise","range","record","rem","renames","requeue","return",
    25: 	"reverse","select","separate","subtype","tagged","task","terminate",
    26: 	"then","type","until","use","when","while","with","xor"
    27: 	};
    28: 	for(int k=0;k < 69;k++) {keys.push_back(K[k]);}
    29: }
    30: