mirror of
https://github.com/nunuhara/xsystem4.git
synced 2026-10-04 12:58:04 +03:00
Nunuhara Cabbage
897cbde39c
Initial support for compiling .jaf (System 4 language) files. So far this is limited to adding struct definitions and declaring new globals. The actual bytecode compilation is not yet implemented. This Bison grammar is based on a C grammar and should cover 95% of the System 4 language syntax already, though many AST nodes are not yet implemented.
453 lines
14 KiB
Plaintext
453 lines
14 KiB
Plaintext
/* Copyright (C) 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
|
|
*
|
|
* 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, see <http://gnu.org/licenses/>.
|
|
*
|
|
* Based on ANSI C grammar from http://www.quut.com/c/ANSI-C-grammar-l-2011.html
|
|
*/
|
|
|
|
%{
|
|
#include "system4.h"
|
|
#include "system4/ain.h"
|
|
#include "jaf.h"
|
|
extern int yylex();
|
|
void yyerror(const char *s);
|
|
%}
|
|
|
|
%union {
|
|
int token;
|
|
struct string *string;
|
|
struct jaf_expression *expression;
|
|
struct jaf_type_specifier *type;
|
|
struct jaf_declarator *declarator;
|
|
struct jaf_declarator_list *declarators;
|
|
struct jaf_declaration_list *declarations;
|
|
}
|
|
|
|
%token <string> I_CONSTANT F_CONSTANT STRING_LITERAL
|
|
%token <string> IDENTIFIER TYPEDEF_NAME ENUMERATION_CONSTANT
|
|
|
|
%token <token> INC_OP DEC_OP LEFT_OP RIGHT_OP LE_OP GE_OP EQ_OP NE_OP
|
|
%token <token> AND_OP OR_OP MUL_ASSIGN DIV_ASSIGN MOD_ASSIGN ADD_ASSIGN
|
|
%token <token> SUB_ASSIGN LEFT_ASSIGN RIGHT_ASSIGN AND_ASSIGN
|
|
%token <token> XOR_ASSIGN OR_ASSIGN
|
|
%token <token> SYM_REF REF_ASSIGN FUNC_NAME
|
|
|
|
%token <token> CONST
|
|
%token <token> BOOL CHAR INT LONG FLOAT VOID STRING
|
|
%token <token> STRUCT UNION ENUM ELLIPSIS
|
|
|
|
%token CASE DEFAULT IF ELSE SYM_SWITCH WHILE DO FOR GOTO CONTINUE BREAK SYM_RETURN
|
|
|
|
%type <token> unary_operator assignment_operator type_qualifier
|
|
%type <string> string param_identifer
|
|
%type <expression> initializer
|
|
%type <expression> postfix_expression unary_expression cast_expression
|
|
%type <expression> multiplicative_expression additive_expression shift_expression
|
|
%type <expression> relational_expression equality_expression and_expression
|
|
%type <expression> exclusive_or_expression inclusive_or_expression
|
|
%type <expression> logical_and_expression logical_or_expression
|
|
%type <expression> conditional_expression assignment_expression
|
|
%type <expression> expression constant_expression primary_expression constant
|
|
%type <type> type_specifier struct_specifier declaration_specifiers
|
|
%type <declarator> init_declarator declarator
|
|
%type <declarators> init_declarator_list struct_declarator_list
|
|
%type <declarations> translation_unit external_declaration declaration
|
|
%type <declarations> struct_declaration struct_declaration_list
|
|
|
|
/*
|
|
* Shift-reduce conflicts:
|
|
* 1. dangling else
|
|
*/
|
|
%expect 1
|
|
|
|
%start toplevel
|
|
%%
|
|
|
|
primary_expression
|
|
: IDENTIFIER { $$ = jaf_identifier($1); }
|
|
| constant { $$ = $1; }
|
|
| string { $$ = jaf_string($1); }
|
|
| '(' expression ')' { $$ = $2; }
|
|
;
|
|
|
|
constant
|
|
: I_CONSTANT { $$ = jaf_integer($1); } /* includes character_constant */
|
|
| F_CONSTANT { $$ = jaf_float($1); }
|
|
| ENUMERATION_CONSTANT { ERROR("Enums not supported"); } /* after it has been defined as such */
|
|
;
|
|
|
|
enumeration_constant /* before it has been defined as such */
|
|
: IDENTIFIER
|
|
;
|
|
|
|
string
|
|
: STRING_LITERAL { $$ = $1; }
|
|
| FUNC_NAME { ERROR("__func__ not supported"); }
|
|
// | STRING '(' assignment_expression ')'
|
|
;
|
|
|
|
postfix_expression
|
|
: primary_expression { $$ = $1; }
|
|
| postfix_expression '[' expression ']' { ERROR("Arrays not supported"); }
|
|
| postfix_expression '(' ')' { ERROR("Function calls not supported"); }
|
|
| type_specifier '(' expression ')' { ERROR("Cast not supported"); }
|
|
| postfix_expression '(' argument_expression_list ')' { ERROR("Function calls not supported"); }
|
|
| postfix_expression '.' IDENTIFIER { ERROR("Struct members not supported"); }
|
|
| postfix_expression INC_OP { $$ = jaf_unary_expr(JAF_POST_INC, $1); }
|
|
| postfix_expression DEC_OP { $$ = jaf_unary_expr(JAF_POST_DEC, $1); }
|
|
// | '(' type_specifier ')' '{' initializer_list '}'
|
|
// | '(' type_specifier ')' '{' initializer_list ',' '}'
|
|
;
|
|
|
|
argument_expression_list
|
|
: assignment_expression
|
|
| argument_expression_list ',' assignment_expression
|
|
;
|
|
|
|
unary_expression
|
|
: postfix_expression { $$ = $1; }
|
|
| INC_OP unary_expression { $$ = jaf_unary_expr(JAF_PRE_INC, $2); }
|
|
| DEC_OP unary_expression { $$ = jaf_unary_expr(JAF_PRE_DEC, $2); }
|
|
| unary_operator cast_expression { $$ = jaf_unary_expr($1, $2); }
|
|
;
|
|
|
|
unary_operator
|
|
: '&' { $$ = JAF_AMPERSAND; }
|
|
| '+' { $$ = JAF_UNARY_PLUS; }
|
|
| '-' { $$ = JAF_UNARY_MINUS; }
|
|
| '~' { $$ = JAF_BIT_NOT; }
|
|
| '!' { $$ = JAF_LOG_NOT; }
|
|
;
|
|
|
|
cast_expression
|
|
: unary_expression { $$ = $1; }
|
|
| '(' type_specifier ')' cast_expression { ERROR("Cast not supported"); }
|
|
;
|
|
|
|
multiplicative_expression
|
|
: cast_expression { $$ = $1; }
|
|
| multiplicative_expression '*' cast_expression { $$ = jaf_binary_expr(JAF_MULTIPLY, $1, $3); }
|
|
| multiplicative_expression '/' cast_expression { $$ = jaf_binary_expr(JAF_DIVIDE, $1, $3); }
|
|
| multiplicative_expression '%' cast_expression { $$ = jaf_binary_expr(JAF_REMAINDER, $1, $3); }
|
|
;
|
|
|
|
additive_expression
|
|
: multiplicative_expression { $$ = $1; }
|
|
| additive_expression '+' multiplicative_expression { $$ = jaf_binary_expr(JAF_PLUS, $1, $3); }
|
|
| additive_expression '-' multiplicative_expression { $$ = jaf_binary_expr(JAF_MINUS, $1, $3); }
|
|
;
|
|
|
|
shift_expression
|
|
: additive_expression { $$ = $1; }
|
|
| shift_expression LEFT_OP additive_expression { $$ = jaf_binary_expr(JAF_LSHIFT, $1, $3); }
|
|
| shift_expression RIGHT_OP additive_expression { $$ = jaf_binary_expr(JAF_RSHIFT, $1, $3); }
|
|
;
|
|
|
|
relational_expression
|
|
: shift_expression { $$ = $1; }
|
|
| relational_expression '<' shift_expression { $$ = jaf_binary_expr(JAF_LT, $1, $3); }
|
|
| relational_expression '>' shift_expression { $$ = jaf_binary_expr(JAF_GT, $1, $3); }
|
|
| relational_expression LE_OP shift_expression { $$ = jaf_binary_expr(JAF_LTE, $1, $3); }
|
|
| relational_expression GE_OP shift_expression { $$ = jaf_binary_expr(JAF_GTE, $1, $3); }
|
|
;
|
|
|
|
equality_expression
|
|
: relational_expression { $$ = $1; }
|
|
| equality_expression EQ_OP relational_expression { $$ = jaf_binary_expr(JAF_EQ, $1, $3); }
|
|
| equality_expression NE_OP relational_expression { $$ = jaf_unary_expr(JAF_LOG_NOT, jaf_binary_expr(JAF_EQ, $1, $3)); }
|
|
;
|
|
|
|
and_expression
|
|
: equality_expression { $$ = $1; }
|
|
| and_expression '&' equality_expression { $$ = jaf_binary_expr(JAF_BIT_AND, $1, $3); }
|
|
;
|
|
|
|
exclusive_or_expression
|
|
: and_expression { $$ = $1; }
|
|
| exclusive_or_expression '^' and_expression { $$ = jaf_binary_expr(JAF_BIT_XOR, $1, $3); }
|
|
;
|
|
|
|
inclusive_or_expression
|
|
: exclusive_or_expression { $$ = $1; }
|
|
| inclusive_or_expression '|' exclusive_or_expression { $$ = jaf_binary_expr(JAF_BIT_IOR, $1, $3); }
|
|
;
|
|
|
|
logical_and_expression
|
|
: inclusive_or_expression { $$ = $1; }
|
|
| logical_and_expression AND_OP inclusive_or_expression { $$ = jaf_binary_expr(JAF_LOG_AND, $1, $3); }
|
|
;
|
|
|
|
logical_or_expression
|
|
: logical_and_expression { $$ = $1; }
|
|
| logical_or_expression OR_OP logical_and_expression { $$ = jaf_binary_expr(JAF_LOG_OR, $1, $3); }
|
|
;
|
|
|
|
conditional_expression
|
|
: logical_or_expression { $$ = $1; }
|
|
| logical_or_expression '?' expression ':' conditional_expression { $$ = jaf_ternary_expr($1, $3, $5); }
|
|
;
|
|
|
|
assignment_expression
|
|
: conditional_expression { $$ = $1; }
|
|
| unary_expression assignment_operator assignment_expression { $$ = jaf_binary_expr($2, $1, $3); }
|
|
;
|
|
|
|
assignment_operator
|
|
: '=' { $$ = JAF_ASSIGN; }
|
|
| MUL_ASSIGN { $$ = JAF_MUL_ASSIGN; }
|
|
| DIV_ASSIGN { $$ = JAF_DIV_ASSIGN; }
|
|
| MOD_ASSIGN { $$ = JAF_MOD_ASSIGN; }
|
|
| ADD_ASSIGN { $$ = JAF_ADD_ASSIGN; }
|
|
| SUB_ASSIGN { $$ = JAF_SUB_ASSIGN; }
|
|
| LEFT_ASSIGN { $$ = JAF_LSHIFT_ASSIGN; }
|
|
| RIGHT_ASSIGN { $$ = JAF_RSHIFT_ASSIGN; }
|
|
| AND_ASSIGN { $$ = JAF_AND_ASSIGN; }
|
|
| XOR_ASSIGN { $$ = JAF_XOR_ASSIGN; }
|
|
| OR_ASSIGN { $$ = JAF_OR_ASSIGN; }
|
|
| REF_ASSIGN { $$ = JAF_REF_ASSIGN; }
|
|
;
|
|
|
|
expression
|
|
: assignment_expression { $$ = $1; }
|
|
| expression ',' assignment_expression { $$ = jaf_seq_expr($1, $3); }
|
|
;
|
|
|
|
constant_expression
|
|
: conditional_expression { $$ = $1; } /* with constraints */
|
|
;
|
|
|
|
declaration
|
|
: declaration_specifiers ';' { $$ = jaf_type_declaration($1); }
|
|
| declaration_specifiers init_declarator_list ';' { $$ = jaf_declaration($1, $2); }
|
|
;
|
|
|
|
declaration_specifiers
|
|
: type_qualifier type_specifier { $$ = $2; $$->qualifiers = $1; }
|
|
| type_specifier { $$ = $1; }
|
|
;
|
|
|
|
init_declarator_list
|
|
: init_declarator { $$ = jaf_declarators(NULL, $1); }
|
|
| init_declarator_list ',' init_declarator { $$ = jaf_declarators($1, $3); }
|
|
;
|
|
|
|
init_declarator
|
|
: declarator '=' initializer { $$ = $1; $$->init = $3; }
|
|
| declarator { $$ = $1; }
|
|
;
|
|
|
|
type_specifier
|
|
: VOID { $$ = jaf_type(JAF_VOID); }
|
|
| CHAR { $$ = jaf_type(JAF_INT); }
|
|
| INT { $$ = jaf_type(JAF_INT); }
|
|
| LONG { $$ = jaf_type(JAF_INT); }
|
|
| FLOAT { $$ = jaf_type(JAF_FLOAT); }
|
|
| BOOL { $$ = jaf_type(JAF_INT); }
|
|
| STRING { $$ = jaf_type(JAF_STRING); }
|
|
| struct_specifier { $$ = $1; }
|
|
| enum_specifier { ERROR("Enums not supported"); }
|
|
| TYPEDEF_NAME { $$ = jaf_typedef($1); } /* after it has been defined as such */
|
|
;
|
|
|
|
struct_specifier
|
|
: STRUCT param_identifer '{' struct_declaration_list '}' { $$ = jaf_struct($2, $4); jaf_define_struct(jaf_ain_out, $$); }
|
|
;
|
|
|
|
param_identifer
|
|
: IDENTIFIER { $$ = $1; }
|
|
| IDENTIFIER '<' type_parameter_list '>' { ERROR("Type parameters not supported"); }
|
|
;
|
|
|
|
type_parameter_list
|
|
: type_specifier
|
|
| type_parameter_list ',' type_specifier
|
|
;
|
|
|
|
struct_declaration_list
|
|
: struct_declaration { $$ = $1; }
|
|
| struct_declaration_list struct_declaration { $$ = jaf_declarations($1, $2); }
|
|
;
|
|
|
|
struct_declaration
|
|
// : type_specifier ';' /* for anonymous struct/union */
|
|
: type_specifier struct_declarator_list ';' { $$ = jaf_declaration($1, $2); }
|
|
;
|
|
|
|
struct_declarator_list
|
|
: declarator { $$ = jaf_declarators(NULL, $1); }
|
|
| struct_declarator_list ',' declarator { $$ = jaf_declarators($1, $3); }
|
|
;
|
|
|
|
enum_specifier
|
|
: ENUM '{' enumerator_list '}'
|
|
| ENUM '{' enumerator_list ',' '}'
|
|
| ENUM IDENTIFIER '{' enumerator_list '}'
|
|
| ENUM IDENTIFIER '{' enumerator_list ',' '}'
|
|
;
|
|
|
|
enumerator_list
|
|
: enumerator
|
|
| enumerator_list ',' enumerator
|
|
;
|
|
|
|
enumerator /* identifiers must be flagged as ENUMERATION_CONSTANT */
|
|
: enumeration_constant '=' constant_expression
|
|
| enumeration_constant
|
|
;
|
|
|
|
type_qualifier
|
|
: CONST { $$ = JAF_QUAL_CONST; }
|
|
| SYM_REF { $$ = JAF_QUAL_REF; }
|
|
;
|
|
|
|
declarator
|
|
: IDENTIFIER { $$ = jaf_declarator($1); }
|
|
// | '(' declarator ')' // XXX: causes shift-reduce conflict with function-like casts (e.g. "string(identifier)")
|
|
| array_allocation { ERROR("Arrays not supported"); }
|
|
| IDENTIFIER '(' parameter_type_list ')' { ERROR("Function declarator not supported"); } // ??? remove?
|
|
| IDENTIFIER '(' ')' { ERROR("Function declarator not supported"); } // ??? remove?
|
|
;
|
|
|
|
array_allocation
|
|
: IDENTIFIER '[' constant ']'
|
|
| array_allocation '[' constant ']'
|
|
;
|
|
|
|
parameter_type_list
|
|
: parameter_list ',' ELLIPSIS
|
|
| parameter_list
|
|
;
|
|
|
|
parameter_list
|
|
: parameter_declaration
|
|
| parameter_list ',' parameter_declaration
|
|
;
|
|
|
|
parameter_declaration
|
|
: declaration_specifiers declarator
|
|
| declaration_specifiers
|
|
;
|
|
|
|
initializer
|
|
: '{' initializer_list '}' { $$ = NULL; }
|
|
| '{' initializer_list ',' '}' { $$ = NULL; }
|
|
| assignment_expression { $$ = $1; }
|
|
;
|
|
|
|
initializer_list
|
|
: designation initializer
|
|
| initializer
|
|
| initializer_list ',' designation initializer
|
|
| initializer_list ',' initializer
|
|
;
|
|
|
|
designation
|
|
: designator_list '='
|
|
;
|
|
|
|
designator_list
|
|
: designator
|
|
| designator_list designator
|
|
;
|
|
|
|
designator
|
|
: '[' constant_expression ']'
|
|
| '.' IDENTIFIER
|
|
;
|
|
|
|
statement
|
|
: labeled_statement
|
|
| compound_statement
|
|
| expression_statement
|
|
| selection_statement
|
|
| iteration_statement
|
|
| jump_statement
|
|
;
|
|
|
|
labeled_statement
|
|
: IDENTIFIER ':' statement
|
|
| CASE constant_expression ':' statement
|
|
| DEFAULT ':' statement
|
|
;
|
|
|
|
compound_statement
|
|
: '{' '}'
|
|
| '{' block_item_list '}'
|
|
;
|
|
|
|
block_item_list
|
|
: block_item
|
|
| block_item_list block_item
|
|
;
|
|
|
|
block_item
|
|
: declaration
|
|
| statement
|
|
;
|
|
|
|
expression_statement
|
|
: ';'
|
|
| expression ';'
|
|
;
|
|
|
|
selection_statement
|
|
: IF '(' expression ')' statement ELSE statement
|
|
| IF '(' expression ')' statement
|
|
| SYM_SWITCH '(' expression ')' statement
|
|
;
|
|
|
|
iteration_statement
|
|
: WHILE '(' expression ')' statement
|
|
| DO statement WHILE '(' expression ')' ';'
|
|
| FOR '(' expression_statement expression_statement ')' statement
|
|
| FOR '(' expression_statement expression_statement expression ')' statement
|
|
| FOR '(' declaration expression_statement ')' statement
|
|
| FOR '(' declaration expression_statement expression ')' statement
|
|
;
|
|
|
|
jump_statement
|
|
: GOTO IDENTIFIER ';'
|
|
| CONTINUE ';'
|
|
| BREAK ';'
|
|
| SYM_RETURN ';'
|
|
| SYM_RETURN expression ';'
|
|
;
|
|
|
|
toplevel
|
|
: translation_unit { jaf_toplevel = $1; }
|
|
;
|
|
|
|
translation_unit
|
|
: external_declaration { $$ = jaf_declarations(NULL, $1); }
|
|
| translation_unit external_declaration { $$ = jaf_declarations($1, $2); }
|
|
;
|
|
|
|
external_declaration
|
|
: function_definition { ERROR("Functions not yet supported"); }
|
|
| declaration { $$ = $1; }
|
|
;
|
|
|
|
function_definition
|
|
: declaration_specifiers declarator compound_statement
|
|
;
|
|
|
|
%%
|
|
#include <stdio.h>
|
|
|
|
void yyerror(const char *s)
|
|
{
|
|
fflush(stdout);
|
|
fprintf(stderr, "*** %s\n", s);
|
|
}
|