pro__.g

使用antlr实现c和pascal的转换

lexer grammar PRO;
@header {package test;}

T45 : '(' ;
T46 : ')' ;
T47 : '.' ;
T48 : ':' ;
T49 : ';' ;
T50 : ',' ;
T51 : '[' ;
T52 : '..' ;
T53 : ']' ;
T54 : 'OF' ;

// $ANTLR src "PRO.g" 167
PROGRAM	:	'program'|'Program'|'PROGRAM';
// $ANTLR src "PRO.g" 168
VAR	:	'var'|'VAR'|'Var';
// $ANTLR src "PRO.g" 169
ARRAY	:	'array'|'ARRAY'|'Array';
// $ANTLR src "PRO.g" 170
OF	:	'of'|'OF'|'Of';
// $ANTLR src "PRO.g" 171
FUNCTION:	'function'|'FUNCTON'|'Funtion';
// $ANTLR src "PRO.g" 172
PROCEDURE
	:	'procedure'|'PROCEDURE'|'Procedure';	
// $ANTLR src "PRO.g" 174
BEGIN	:	('BEGIN'|'Begin'|'begin');
// $ANTLR src "PRO.g" 175
END	:	('END'|'End'|'end');
// $ANTLR src "PRO.g" 176
IF	:	'IF'|'If'|'if';
// $ANTLR src "PRO.g" 177
THEN	:	'THEN'|'Then'|'then';
// $ANTLR src "PRO.g" 178
ELSE	:	'ELSE'|'Else'|'else';
// $ANTLR src "PRO.g" 179
WHILE	:	'WHILE'|'While'|'while';
// $ANTLR src "PRO.g" 180
DO	:	'DO'|'Do'|'do';
// $ANTLR src "PRO.g" 181
NOT	:	'NOT'|'Not'|'not';
// $ANTLR src "PRO.g" 182
EQUAL	:	'=';
// $ANTLR src "PRO.g" 183
NEQ	:	'<>';
// $ANTLR src "PRO.g" 184
SMALL	:	'<';
// $ANTLR src "PRO.g" 185
GRAT	:	'>';
// $ANTLR src "PRO.g" 186
NB	:	'<=';
// $ANTLR src "PRO.g" 187
NS	:	'>=';
// $ANTLR src "PRO.g" 188
ADDOPA	:	'+';
// $ANTLR src "PRO.g" 189
ADDOPB	:	'-';
// $ANTLR src "PRO.g" 190
OR	:	'OR'|'Or'|'or';
// $ANTLR src "PRO.g" 191
MULOPA	:	'*';
// $ANTLR src "PRO.g" 192
MULOPB	:	'/';
// $ANTLR src "PRO.g" 193
DIV	:	'DIV'|'Div'|'div';
// $ANTLR src "PRO.g" 194
MOD	:	'mod'|'MOD'|'Mod';
// $ANTLR src "PRO.g" 195
AND	:	'AND'|'And'|'and';
// $ANTLR src "PRO.g" 196
ASSIGNOP:	':=';
// $ANTLR src "PRO.g" 197
INTEGER	:	'INTEGER'|'Integer'|'integer';
// $ANTLR src "PRO.g" 198
REAL	:	'REAL'|'Real'|'real';
// $ANTLR src "PRO.g" 199
SEPARATOR
	:	(' '|'\t'|NEWLINE)+;
// $ANTLR src "PRO.g" 201
NEWLINE	:	'\r'? '\n' ;
// $ANTLR src "PRO.g" 202
NUM	:	DIGITS OPTIONAL_FRACTION OPTIONAL_EXPONENT;
// $ANTLR src "PRO.g" 203
OPTIONAL_FRACTION
	:	'.'DIGITS|;
// $ANTLR src "PRO.g" 205
OPTIONAL_EXPONENT
	:	('E' ('+'|'-'|)DIGITS)|;
// $ANTLR src "PRO.g" 207
ID	:	LETTER(LETTER|DIGIT)*;	
// $ANTLR src "PRO.g" 208
DIGITS	:	DIGIT DIGIT*;
// $ANTLR src "PRO.g" 209
LETTER	:	('a'..'z'|'A'..'Z') ;
// $ANTLR src "PRO.g" 210
DIGIT	:	'0'..'9';
// $ANTLR src "PRO.g" 211
WS
  : ( ' '
    | '\t'
    | '\f'

    // handle newlines
    | ( '\r\n'  // DOS/Windows
      | '\r'    // Macintosh
      | '\n'    // Unix
      )
      // increment the line count in the scanner
      //{ newline(); }
    )
    { skip(); }
  ;