capa/capa51/pProj/capaGrammarDef.y - diff

Return to capaGrammarDef.y CVS log

Up to [LON-CAPA] / capa / capa51 / pProj

version 1.8, 2000/02/09 22:10:24	version 1.9, 2000/02/22 18:19:02
Line 36	Line 36
case S_VAR: case S_CONSTANT: \	case S_VAR: case S_CONSTANT: \
printf("STR(%s)\n",(xx)->s_str); break; \	printf("STR(%s)\n",(xx)->s_str); break; \
} }	} }
#else	#else /* YACC_DBUG */
#define YYDBUG_PR1(xx) { }	#define YYDBUG_PR1(xx) { }
#define YYDBUG_PR2(xx,yy) { }	#define YYDBUG_PR2(xx,yy) { }
#define YYDBUG_PR3(xx,yy,zz) { }	#define YYDBUG_PR3(xx,yy,zz) { }
#define YYDBUG_PR4(xx,yy,zz,aa) { }	#define YYDBUG_PR4(xx,yy,zz,aa) { }
#define YYDBUG_SYM(xx) { }	#define YYDBUG_SYM(xx) { }
#endif	#endif /* YACC_DBUG */

int yylex();	int yylex();
void yyerror(char*);	void yyerror(char*);
Line 845 an_integer : I_CONSTANT	Line 845 an_integer : I_CONSTANT
a_real : R_CONSTANT { $$ = $1; }	a_real : R_CONSTANT { $$ = $1; }
;	;

an_array : ARRAY_ID '[' calc_expr ']' { $$=get_array_symbol($1,$3,1); }	an_array : ARRAY_ID '[' calc_expr ']' {
	YYDBUG_PR1(" an_array <= ARRAY_ID '['calc_expr ']' ");
	$$=get_array_symbol($1,$3,1);
	}
;	;

startQ : { /* first matching will occur before first line of input text */	startQ : { /* first matching will occur before first line of input text */