%{ /* qp-parse.y parser for quakepascal Copyright (C) 2011 Bill Currie Author: Bill Currie Date: 2011/01/06 This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to: Free Software Foundation, Inc. 59 Temple Place - Suite 330 Boston, MA 02111-1307, USA */ #ifdef HAVE_CONFIG_H # include "config.h" #endif #ifdef HAVE_STRING_H # include #endif #ifdef HAVE_STRINGS_H # include #endif #include "QF/dstring.h" #include "codespace.h" #include "diagnostic.h" #include "expr.h" #include "function.h" #include "qfcc.h" #include "reloc.h" #include "shared.h" #include "symtab.h" #include "type.h" #define YYDEBUG 1 #define YYERROR_VERBOSE 1 #undef YYERROR_VERBOSE extern char *qp_yytext; static void yyerror (const char *s) { #ifdef YYERROR_VERBOSE error (0, "%s %s\n", qp_yytext, s); #else error (0, "%s before %s", s, qp_yytext); #endif } static void parse_error (void) { error (0, "parse error before %s", qp_yytext); } #define PARSE_ERROR do { parse_error (); YYERROR; } while (0) int yylex (void); %} %union { int op; struct def_s *def; struct hashtab_s *def_list; struct type_s *type; struct typedef_s *typename; struct expr_s *expr; struct function_s *function; struct switch_block_s *switch_block; struct param_s *param; struct struct_s *strct; struct symtab_s *symtab; struct symbol_s *symbol; int storage; } // these tokens are common with qc %nonassoc IFX %nonassoc ELSE %nonassoc BREAK_PRIMARY %nonassoc ';' %nonassoc CLASS_NOT_CATEGORY %nonassoc STORAGEX %right '=' ASX PAS /* pointer assign */ %right '?' ':' %left OR %left AND %left '|' %left '^' %left '&' %left EQ NE %left LE GE LT GT // end of tokens common with qc %left RELOP %left ADDOP %left MULOP %right UNARY %token TYPE TYPE_NAME %token ID %token CONST %token PROGRAM VAR ARRAY OF FUNCTION PROCEDURE PBEGIN END IF THEN ELSE %token WHILE DO RANGE ASSIGNOP NOT ELLIPSIS %token RETURN %type type standard_type %type program_head identifier_list subprogram_head %type param_scope %type arguments parameter_list %type compound_statement optional_statements statement_list %type statement procedure_statement %type expression_list expression unary_expr primary variable name %type sign %{ %} %% program : program_head declarations subprogram_declarations compound_statement '.' { symtab_t *st = current_symtab; // move the symbol for the program name to the end of the list symtab_removesymbol (current_symtab, $1); symtab_addsymbol (current_symtab, $1); current_func = begin_function ($1, 0, current_symtab, 0); current_symtab = current_func->symtab; build_code_function ($1, 0, $4); current_symtab = st; $4 = function_expr (new_symbol_expr ($1), 0); $1 = new_symbol (".main"); $1->params = 0; $1->type = parse_params (&type_void, 0); $1->type = find_type ($1->type); $1 = function_symbol ($1, 0, 1); current_func = begin_function ($1, 0, current_symtab, 0); current_symtab = current_func->symtab; build_code_function ($1, 0, $4); current_symtab = st; } ; program_head : PROGRAM { current_symtab = pr.symtab; } ID '(' opt_identifier_list ')' ';' { $$ = $3; $$->type = parse_params (&type_void, 0); $$->type = find_type ($$->type); $$ = function_symbol ($$, 0, 1); } ; opt_identifier_list : /* empty */ | identifier_list ; identifier_list : ID { $$ = check_redefined ($1); } | identifier_list ',' ID { symbol_t **s; $$ = $1; $3 = check_redefined ($3); for (s = &$$; *s; s = &(*s)->next) ; *s = $3; } ; declarations : declarations VAR identifier_list ':' type ';' { while ($3) { symbol_t *next = $3->next; initialize_def ($3, $5, 0, current_symtab->space, current_storage); $3 = next; } } | /* empty */ ; type : standard_type | ARRAY '[' CONST RANGE CONST ']' OF standard_type { $$ = based_array_type ($8, expr_integer ($3), expr_integer ($5)); } ; standard_type : TYPE | TYPE_NAME ; subprogram_declarations : subprogram_declarations subprogram_declaration | /* emtpy */ ; subprogram_declaration : subprogram_head ';' { $$ = current_storage; current_storage = st_local; current_func = begin_function ($1, 0, current_symtab, 0); current_symtab = current_func->symtab; } declarations compound_statement ';' { build_code_function ($1, 0, $5); current_symtab = current_symtab->parent; current_storage = $3; } | subprogram_head ASSIGNOP '#' CONST ';' { build_builtin_function ($1, $4, 0); } ; subprogram_head : FUNCTION ID arguments ':' standard_type { $$ = $2; if ($$->table == current_symtab) { error (0, "%s redefined", $$->name); } else { $$->params = $3; $$->type = parse_params ($5, $3); $$->type = find_type ($$->type); $$ = function_symbol ($$, 0, 1); } } | PROCEDURE ID arguments { $$ = $2; if ($$->table == current_symtab) { error (0, "%s redefined", $$->name); } else { $$->params = $3; $$->type = parse_params (&type_void, $3); $$->type = find_type ($$->type); $$ = function_symbol ($$, 0, 1); } } ; arguments : '(' param_scope parameter_list ')' { $$ = $3; current_symtab = $2; } | '(' param_scope parameter_list ';' ELLIPSIS ')' { $$ = param_append_identifiers ($3, 0, 0); current_symtab = $2; } | '(' ELLIPSIS ')' { $$ = new_param (0, 0, 0); } | /* emtpy */ { $$ = 0; } ; param_scope : /* empty */ { $$ = current_symtab; current_symtab = new_symtab (current_symtab, stab_local); } ; parameter_list : identifier_list ':' type { $$ = param_append_identifiers (0, $1, $3); } | parameter_list ';' identifier_list ':' type { $$ = param_append_identifiers ($1, $3, $5); } ; compound_statement : PBEGIN optional_statements END { $$ = $2; } ; optional_statements : statement_list opt_semi | /* emtpy */ { $$ = 0; } ; opt_semi : ';' | /* empty */ ; statement_list : statement { $$ = new_block_expr (); append_expr ($$, $1); } | statement_list ';' statement { $$ = $1; append_expr ($$, $3); } ; statement : variable ASSIGNOP expression { $$ = $1; if ($$->type == ex_symbol && extract_type ($$) == ev_func) $$ = new_ret_expr ($$->e.symbol->type->t.func.type); $$ = assign_expr ($$, $3); } | procedure_statement | compound_statement | IF expression THEN statement ELSE statement { $$ = build_if_statement ($2, $4, $6); } | IF expression THEN statement %prec IFX { $$ = build_if_statement ($2, $4, 0); } | WHILE expression DO statement { $$ = build_while_statement ($2, $4, new_label_expr (), new_label_expr ()); } | RETURN { $$ = return_expr (current_func, 0); } ; variable : name | name '[' expression ']' { $$ = array_expr ($1, $3); } ; procedure_statement : name { $$ = function_expr ($1, 0); } | name '(' expression_list ')' { $$ = function_expr ($1, $3); } ; expression_list : expression | expression_list ',' expression { $$ = $3; $$->next = $1; } ; unary_expr : primary | sign unary_expr %prec UNARY { $$ = unary_expr ($1, $2); } | NOT expression %prec UNARY { $$ = unary_expr ('!', $2); } ; primary : variable { $$ = $1; if ($$->type == ex_symbol && extract_type ($$) == ev_func) $$ = function_expr ($$, 0); } | CONST | name '(' expression_list ')' { $$ = function_expr ($1, $3); } | '(' expression ')' { $$ = $2; } ; expression : unary_expr | expression RELOP expression { $$ = binary_expr ($2, $1, $3); } | expression ADDOP expression { if ($2 == 'o') $$ = bool_expr (OR, new_label_expr (), $1, $3); else $$ = binary_expr ($2, $1, $3); } | expression MULOP expression { if ($2 == 'd') $2 = '/'; else if ($2 == 'm') $2 = '%'; if ($2 == 'a') $$ = bool_expr (AND, new_label_expr (), $1, $3); else $$ = binary_expr ($2, $1, $3); } ; sign : ADDOP { if ($$ == 'o') PARSE_ERROR; } ; name : ID { if (!$1->table) { error (0, "%s undefined", $1->name); $1->type = &type_integer; symtab_addsymbol (current_symtab, $1); } $$ = new_symbol_expr ($1); } ; %%