158 lines
2.9 KiB
Plaintext
158 lines
2.9 KiB
Plaintext
|
{
|
||
|
|
|
||
|
|
#include "decl.h"
|
||
|
|
extern int yylineno, yyleng, yymorfg;
|
||
|
|
extern char yytext[];
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
%token IDENTIFIER, CALL, CONDITION, IF, ELSIF, ELSE, FI, ARROW, MORE;
|
||
|
|
%start table, table;
|
||
|
|
%lexical lex_analyzer ;
|
||
|
|
|
||
|
|
|
||
|
|
table : { init_table();}
|
||
|
|
instruction* { end_table();}
|
||
|
|
;
|
||
|
|
|
||
|
|
instruction : { clean();}
|
||
|
|
first_row
|
||
|
|
[ { operand_clean();}
|
||
|
|
extra_row
|
||
|
|
]* { pr_warning(); out( "}\n\n");}
|
||
|
|
;
|
||
|
|
|
||
|
|
first_row : mnemonic { save_instr( yytext, yyleng);}
|
||
|
|
[ decl_list]?
|
||
|
|
ARROW { pr_header(); pr_restriction();}
|
||
|
|
action_list
|
||
|
|
;
|
||
|
|
|
||
|
|
extra_row : MORE
|
||
|
|
[ decl_list]?
|
||
|
|
ARROW { out( "else "); pr_restriction();}
|
||
|
|
action_list
|
||
|
|
;
|
||
|
|
|
||
|
|
mnemonic : IDENTIFIER
|
||
|
|
;
|
||
|
|
|
||
|
|
decl_list : { clear_restriction();}
|
||
|
|
declaration
|
||
|
|
[ ',' declaration] *7
|
||
|
|
;
|
||
|
|
|
||
|
|
declaration : IDENTIFIER { save_name( yytext, yyleng);}
|
||
|
|
[ ':'
|
||
|
|
IDENTIFIER { save_type( yytext, yyleng);}
|
||
|
|
]? { inc_ops();}
|
||
|
|
;
|
||
|
|
|
||
|
|
action_list : { out( "{\n");}
|
||
|
|
[ action [ ';' action]* ]? '.' { out( "}\n");}
|
||
|
|
;
|
||
|
|
|
||
|
|
action : if_statement
|
||
|
|
| call
|
||
|
|
| subroutine
|
||
|
|
;
|
||
|
|
|
||
|
|
subroutine : IDENTIFIER { yymorfg=1;}
|
||
|
|
CONDITION { pr_subroutine( yytext);}
|
||
|
|
;
|
||
|
|
|
||
|
|
call : '@'
|
||
|
|
IDENTIFIER { yymorfg=1;}
|
||
|
|
CONDITION { pr_call( yytext);}
|
||
|
|
;
|
||
|
|
|
||
|
|
if_statement : IF
|
||
|
|
CONDITION { pr_question( yytext);}
|
||
|
|
action_list { pr_end();}
|
||
|
|
[ ELSIF { pr_els();}
|
||
|
|
CONDITION { pr_question( yytext);}
|
||
|
|
action_list { pr_end();}
|
||
|
|
]*
|
||
|
|
[ ELSE { pr_else();}
|
||
|
|
action_list { pr_end();}
|
||
|
|
]?
|
||
|
|
FI
|
||
|
|
;
|
||
|
|
|
||
|
|
{
|
||
|
|
|
||
|
|
static int saved = 0, token;
|
||
|
|
|
||
|
|
|
||
|
|
LLmessage( inserted_token)
|
||
|
|
int inserted_token;
|
||
|
|
{
|
||
|
|
if ( inserted_token == 0) {
|
||
|
|
fprint( STDERR, "Sytax error in line %d, ", yylineno);
|
||
|
|
print_token( LLsymb);
|
||
|
|
fprint( STDERR, " will be deleted!!\n");
|
||
|
|
}
|
||
|
|
else if ( inserted_token < 0) {
|
||
|
|
fprint( STDERR, "Stack overflow in line %d, fatal error!\n",
|
||
|
|
yylineno);
|
||
|
|
exit( 1);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
fprint( STDERR, "Sytax error in line %d, ", yylineno);
|
||
|
|
print_token( inserted_token);
|
||
|
|
fprint( STDERR, " will be inserted!!\n");
|
||
|
|
token = LLsymb;
|
||
|
|
saved = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print_token( token)
|
||
|
|
int token;
|
||
|
|
{
|
||
|
|
switch ( token) {
|
||
|
|
case IDENTIFIER : fprint( STDERR, "IDENTIFIER %s", yytext);
|
||
|
|
break;
|
||
|
|
case CALL : fprint( STDERR, "CALL %s", yytext);
|
||
|
|
break;
|
||
|
|
case CONDITION: fprint( STDERR, "CONDITION %s", yytext);
|
||
|
|
break;
|
||
|
|
case IF : fprint( STDERR, "@if ");
|
||
|
|
break;
|
||
|
|
case ELSIF : fprint( STDERR, "@elsif ");
|
||
|
|
break;
|
||
|
|
case ELSE : fprint( STDERR, "@else ");
|
||
|
|
break;
|
||
|
|
case FI : fprint( STDERR, "@fi ");
|
||
|
|
break;
|
||
|
|
case ARROW : fprint( STDERR, "==> ");
|
||
|
|
break;
|
||
|
|
case MORE : fprint( STDERR, "... ");
|
||
|
|
break;
|
||
|
|
default : fprint( STDERR, "%c ", token);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int lex_analyzer()
|
||
|
|
{
|
||
|
|
int tok;
|
||
|
|
|
||
|
|
if ( saved) {
|
||
|
|
saved = 0;
|
||
|
|
return( token);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
tok = yylex();
|
||
|
|
yytext[yyleng] = '\0'; /* strings moeten op een '\0' eindigen */
|
||
|
|
return( tok);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
main()
|
||
|
|
{
|
||
|
|
table();
|
||
|
|
return( 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|