1: // Author: Jeffrey Bakker  |  Date: May14th 2002  |  langperl.cpp
     2: 
     3: // the PERL 5 Language definition file for Web C Plus Plus
     4: // Webcpp Copyright (C) 2002 Jeffrey Bakker
     5: 
     6: #include "langperl.h" 
     7: 
     8: LangPerl::LangPerl() {
     9: 	
    10: 	fill();
    11: 	init_switches();
    12: 
    13: 	doSymbols  = Yes;
    14: 	doLabels   = Yes;
    15: 	doScalars  = Yes;
    16: 	doArrays   = Yes;
    17: 	doHashes   = Yes;
    18: 	doUnxComnt = Yes;
    19: }
    20: 
    21: void LangPerl::fill() {
    22: 
    23: 	// PERL 5 keywords
    24: 	string K[] = {
    25: 		"and","bless","chdir","chomp","chop","chr","case","delete",
    26: 		"die","do","each","else","elsif","exit","foreach","for",
    27: 		"function","if","in","join","keys","last","local","my","next",
    28: 		"no","null","or","package","pack","printf","print","push",
    29: 		"read","redo","require","return","seek","select","shift",
    30: 		"splice","split","sub","tell","tied","then","undef","unless",
    31: 		"untie","until","use","vars","warn","while","xor"
    32: 	};
    33: 	for(int k=0;k < 55;k++) {keys.push_back(K[k]);}
    34: 
    35: 	// filesystem operations
    36: 	string T[] = {
    37: 		"close","closedir","flock","mkdir","open","opendir","readdir",
    38: 		"rewinddir","rmdir","unlink"
    39: 	};
    40: 	for(int t=0;t < 10;t++) {types.push_back(T[t]);}
    41: }
    42: 
    43: