1: // The Fortran 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 "langfortran.h" 
     6: 
     7: LangFortran ::LangFortran() {
     8: 
     9: 	fill();
    10: 	init_switches();
    11: 
    12: 	doCaseKeys = No;
    13: 	doPreProc  = Yes;
    14: 	doFtnComnt = Yes;
    15: }
    16: 
    17: void LangFortran ::fill() {
    18: 
    19: 	string K[] = {
    20: 		"ACCEPT","ASSIGN","AUTOMATIC","Assignment","BACKSPACE","BLOCK",
    21: 		"BYTECALL","CLOSE","COMMON","CONTINUE","DATA","DECODE",
    22: 		"DIMENSION","DO","ELSE","ENCODE","END","ENDIF","ENTRY",
    23: 		"EQUIVALENCE","EXTERNAL","FILE","FORMAT","FUNCTION","GO","IF",
    24: 		"IMPLICIT","INCLUDE","INQUIRE","INTRINSIC","MAP","NAMELIST",
    25: 		"OPEN","OPTIONS","PARAMETER","PAUSE","POINTER","PRINT",
    26: 		"PROGRAM","READ","RECORD","RETURN","REWIND","SAVE","STATIC",
    27: 		"STOP","STRUCTURE","SUBROUTINE","THEN","TO","TYPE","UNION",
    28: 		"UNTIL","VIRTUAL","WHILE","WRITE"
    29: 	};
    30: 	for(int k=0;k < 56;k++) {keys.push_back(K[k]);}
    31: 
    32: 	string T[] = {
    33: 		"BYTE","CHARACTER","COMPLEX","DOUBLE","INTEGER","LOGICAL",
    34: 		"REAL","PRECISION","VOLATILE"
    35: 	};
    36: 	for(int t=0;t < 9;t++) {types.push_back(T[t]);}
    37: }
    38: 
    39: