gsc-tool/gen/h1/parser.ypp
2021-05-08 18:15:25 +02:00

645 lines
28 KiB
Plaintext

/* Copyright 2021 xensik. All rights reserved.
//
// Use of this source code is governed by a GNU GPLv3 license
// that can be found in the LICENSE file.
*/
%require "3.7"
%skeleton "lalr1.cc"
%language "c++"
%output "parser.cpp"
%defines "parser.hpp"
%define api.prefix {H1}
%define api.namespace {xsk::gsc::h1}
%define api.location.type {xsk::gsc::location}
%define api.value.type variant
%define api.token.constructor
%define api.token.raw
%define parse.assert
%define parse.trace
%define parse.error detailed
%define parse.lac full
%locations
%lex-param { yyscan_t yyscanner }
%lex-param { xsk::gsc::location& loc }
%parse-param { yyscan_t yyscanner }
%parse-param { xsk::gsc::location& loc }
%parse-param { xsk::gsc::program_ptr& ast }
%code requires
{
#include "h1.hpp"
typedef void *yyscan_t;
#define YY_DECL xsk::gsc::h1::parser::symbol_type H1lex(yyscan_t yyscanner, xsk::gsc::location& loc)
}
%code top
{
#include "stdafx.hpp"
#include "parser.hpp"
#include "lexer.hpp"
using namespace xsk::gsc;
xsk::gsc::h1::parser::symbol_type H1lex(yyscan_t yyscanner, xsk::gsc::location& loc);
}
%token INCLUDE "#include"
%token USINGTREE "#using_animtree"
%token ANIMTREE "#animtree"
%token ENDON "endon"
%token NOTIFY "notify"
%token WAIT "wait"
%token WAITTILL "waittill"
%token WAITTILLMATCH "waittillmatch"
%token WAITTILLFRAMEEND "waittillframeend"
%token WAITFRAME "waitframe"
%token IF "if"
%token ELSE "else"
%token WHILE "while"
%token FOR "for"
%token FOREACH "foreach"
%token IN "in"
%token SWITCH "switch"
%token CASE "case"
%token DEFAULT "default"
%token BREAK "break"
%token CONTINUE "continue"
%token RETURN "return"
%token THREAD "thread"
%token CHILDTHREAD "childthread"
%token THISTHREAD "thisthread"
%token CALL "call"
%token TRUE "true"
%token FALSE "false"
%token UNDEFINED "undefined"
%token SIZE "size"
%token GAME "game"
%token SELF "self"
%token ANIM "anim"
%token LEVEL "level"
%token LPAREN "("
%token RPAREN ")"
%token LBRACE "{"
%token RBRACE "}"
%token LBRACKET "["
%token RBRACKET "]"
%token COMMA ","
%token DOT "."
%token DOUBLECOLON "::"
%token COLON ":"
%token SEMICOLON ";"
%token INCREMENT "++"
%token DECREMENT "--"
%token LSHIFT "<<"
%token RSHIFT ">>"
%token OR "||"
%token AND "&&"
%token EQUALITY "=="
%token INEQUALITY "!="
%token LESS_EQUAL "<="
%token GREATER_EQUAL ">="
%token LESS "<"
%token GREATER ">"
%token NOT "!"
%token COMPLEMENT "~"
%token ASSIGN "="
%token ASSIGN_ADD "+="
%token ASSIGN_SUB "-="
%token ASSIGN_MULT "*="
%token ASSIGN_DIV "/="
%token ASSIGN_MOD "%="
%token ASSIGN_BITWISE_OR "|="
%token ASSIGN_BITWISE_AND "&="
%token ASSIGN_BITWISE_EXOR "^="
%token ASSIGN_RSHIFT ">>="
%token ASSIGN_LSHIFT "<<="
%token BITWISE_OR "|"
%token BITWISE_AND "&"
%token BITWISE_EXOR "^"
%token ADD "+"
%token SUB "-"
%token MULT "*"
%token DIV "/"
%token MOD "%"
%token <std::string> FILE "file path"
%token <std::string> NAME "identifier"
%token <std::string> STRING "string literal"
%token <std::string> ISTRING "localized string"
%token <std::string> FLOAT "float"
%token <std::string> INTEGER "int"
%type <program_ptr> program
%type <include_ptr> include
%type <define_ptr> define
%type <usingtree_ptr> usingtree
%type <constant_ptr> constant
%type <thread_ptr> thread
%type <parameters_ptr> parameters
%type <stmt_ptr> stmt
%type <stmt_list_ptr> stmt_block
%type <stmt_list_ptr> stmt_list
%type <stmt_call_ptr> stmt_call
%type <stmt_assign_ptr> stmt_assign
%type <stmt_endon_ptr> stmt_endon
%type <stmt_notify_ptr> stmt_notify
%type <stmt_wait_ptr> stmt_wait
%type <stmt_waittill_ptr> stmt_waittill
%type <stmt_waittillmatch_ptr> stmt_waittillmatch
%type <stmt_waittillframeend_ptr> stmt_waittillframeend
%type <stmt_waitframe_ptr> stmt_waitframe
%type <stmt_if_ptr> stmt_if
%type <stmt_ifelse_ptr> stmt_ifelse
%type <stmt_while_ptr> stmt_while
%type <stmt_for_ptr> stmt_for
%type <stmt_foreach_ptr> stmt_foreach
%type <stmt_switch_ptr> stmt_switch
%type <stmt_case_ptr> stmt_case
%type <stmt_default_ptr> stmt_default
%type <stmt_break_ptr> stmt_break
%type <stmt_continue_ptr> stmt_continue
%type <stmt_return_ptr> stmt_return
%type <stmt_ptr> for_stmt
%type <expr_ptr> for_expr
%type <expr_assign_ptr> expr_assign
%type <expr_ptr> expr
%type <expr_ptr> expr_compare
%type <expr_ptr> expr_binary
%type <expr_ptr> expr_primitive
%type <expr_call_ptr> expr_call
%type <expr_call_ptr> expr_call_thread
%type <expr_call_ptr> expr_call_childthread
%type <expr_call_type_ptr> expr_call_function
%type <expr_call_type_ptr> expr_call_pointer
%type <expr_arguments_ptr> expr_arguments
%type <expr_arguments_ptr> expr_arguments_filled
%type <expr_arguments_ptr> expr_arguments_empty
%type <node_ptr> expr_function
%type <node_ptr> expr_add_array
%type <node_ptr> expr_array
%type <node_ptr> expr_field
%type <node_ptr> expr_size
%type <node_ptr> object
%type <thisthread_ptr> thisthread
%type <empty_array_ptr> empty_array
%type <undefined_ptr> undefined
%type <game_ptr> game
%type <self_ptr> self
%type <anim_ptr> anim
%type <level_ptr> level
%type <animation_ptr> animation
%type <animtree_ptr> animtree
%type <name_ptr> name
%type <file_ptr> file
%type <istring_ptr> istring
%type <string_ptr> string
%type <vector_ptr> vector
%type <float_ptr> neg_float
%type <integer_ptr> neg_integer
%type <float_ptr> float
%type <integer_ptr> integer
%type <false_ptr> false
%type <true_ptr> true
%nonassoc ADD_ARRAY
%nonassoc RBRACKET
%nonassoc THEN
%nonassoc ELSE
%nonassoc INCREMENT DECREMENT
%left OR
%left AND
%left BITWISE_OR
%left BITWISE_AND
%left BITWISE_EXOR
%left EQUALITY INEQUALITY
%left LESS GREATER LESS_EQUAL GREATER_EQUAL
%left LSHIFT RSHIFT
%left ADD SUB
%left MULT DIV MOD
%right NOT COMPLEMENT
%precedence NEG
%precedence ANIMREF
%precedence PREINC PREDEC
%precedence POSTINC POSTDEC
%start root
%%
root
: program { ast = std::move($1); }
| { ast = std::make_unique<node_program>(@$); }
;
program
: program include
{ $$ = std::move($1); $$->includes.push_back(std::move($2)); }
| program define
{ $$ = std::move($1); $$->definitions.push_back(std::move($2)); }
| include
{ $$ = std::make_unique<node_program>(@$); $$->includes.push_back(std::move($1)); }
| define
{ $$ = std::make_unique<node_program>(@$); $$->definitions.push_back(std::move($1)); }
;
include
: INCLUDE file SEMICOLON
{ $$ = std::make_unique<node_include>(@$, std::move($2)); }
;
define
: usingtree { $$.as_usingtree = std::move($1); }
| constant { $$.as_constant = std::move($1); }
| thread { $$.as_thread = std::move($1); }
;
usingtree
: USINGTREE LPAREN string RPAREN SEMICOLON
{ $$ = std::make_unique<node_usingtree>(@$, std::move($3)); }
;
constant
: name ASSIGN expr SEMICOLON
{ $$ = std::make_unique<node_constant>(@$, std::move($1), std::move($3)); }
;
thread
: name LPAREN parameters RPAREN stmt_block
{ $$ = std::make_unique<node_thread>(@$, std::move($1), std::move($3), std::move($5)); }
;
parameters
: parameters COMMA name
{ $$ = std::move($1); $$->list.push_back(std::move($3)); }
| name
{ $$ = std::make_unique<node_parameters>(@$); $$->list.push_back(std::move($1)); }
|
{ $$ = std::make_unique<node_parameters>(@$); }
;
stmt
: stmt_block { $$.as_list = std::move($1); }
| stmt_call { $$.as_call = std::move($1); }
| stmt_assign { $$.as_assign = std::move($1); }
| stmt_endon { $$.as_endon = std::move($1); }
| stmt_notify { $$.as_notify = std::move($1); }
| stmt_wait { $$.as_wait = std::move($1); }
| stmt_waittill { $$.as_waittill = std::move($1); }
| stmt_waittillmatch { $$.as_waittillmatch = std::move($1); }
| stmt_waittillframeend { $$.as_waittillframeend = std::move($1); }
| stmt_waitframe { $$.as_waitframe = std::move($1); }
| stmt_if { $$.as_if = std::move($1); }
| stmt_ifelse { $$.as_ifelse = std::move($1); }
| stmt_while { $$.as_while = std::move($1); }
| stmt_for { $$.as_for = std::move($1); }
| stmt_foreach { $$.as_foreach = std::move($1); }
| stmt_switch { $$.as_switch = std::move($1); }
| stmt_case { $$.as_case = std::move($1); }
| stmt_default { $$.as_default = std::move($1); }
| stmt_break { $$.as_break = std::move($1); }
| stmt_continue { $$.as_continue = std::move($1); }
| stmt_return { $$.as_return = std::move($1); }
;
stmt_block
: LBRACE stmt_list RBRACE { $$ = std::move($2); }
| LBRACE RBRACE { $$ = std::make_unique<node_stmt_list>(@$); }
;
stmt_list
: stmt_list stmt
{ $$ = std::move($1); $$->stmts.push_back(std::move($2)); }
| stmt
{ $$ = std::make_unique<node_stmt_list>(@$); $$->stmts.push_back(std::move($1)); }
;
stmt_call
: expr_call SEMICOLON
{ $$ = std::make_unique<node_stmt_call>(@$, std::move($1)); }
| expr_call_thread SEMICOLON
{ $$ = std::make_unique<node_stmt_call>(@$, std::move($1)); }
;
stmt_assign
: expr_assign SEMICOLON
{ $$ = std::make_unique<node_stmt_assign>(@$, std::move($1)); }
;
stmt_endon
: object ENDON LPAREN expr RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_endon>(@$, std::move($1), std::move($4)); }
;
stmt_notify
: object NOTIFY LPAREN expr COMMA expr_arguments RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_notify>(@$, std::move($1), std::move($4), std::move($6)); }
| object NOTIFY LPAREN expr RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_notify>(@$, std::move($1), std::move($4), std::make_unique<node_expr_arguments>(@$)); }
;
stmt_wait
: WAIT expr SEMICOLON
{ $$ = std::make_unique<node_stmt_wait>(@$, std::move($2)); }
;
stmt_waittill
: object WAITTILL LPAREN expr COMMA expr_arguments RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_waittill>(@$, std::move($1), std::move($4), std::move($6)); }
| object WAITTILL LPAREN expr RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_waittill>(@$, std::move($1), std::move($4), std::make_unique<node_expr_arguments>(@$)); }
;
stmt_waittillmatch
: object WAITTILLMATCH LPAREN expr COMMA expr_arguments RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_waittillmatch>(@$, std::move($1), std::move($4), std::move($6)); }
| object WAITTILLMATCH LPAREN expr RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_waittillmatch>(@$, std::move($1), std::move($4), std::make_unique<node_expr_arguments>(@$)); }
;
stmt_waittillframeend
: WAITTILLFRAMEEND SEMICOLON
{ $$ = std::make_unique<node_stmt_waittillframeend>(@$); }
;
stmt_waitframe
: WAITFRAME SEMICOLON
{ $$ = std::make_unique<node_stmt_waitframe>(@$); }
| WAITFRAME LPAREN RPAREN SEMICOLON
{ $$ = std::make_unique<node_stmt_waitframe>(@$); }
;
stmt_if
: IF LPAREN expr RPAREN stmt %prec THEN
{ $$ = std::make_unique<node_stmt_if>(@$, std::move($3), std::move($5)); }
;
stmt_ifelse
: IF LPAREN expr RPAREN stmt ELSE stmt
{ $$ = std::make_unique<node_stmt_ifelse>(@$, std::move($3), std::move($5), std::move($7)); }
;
stmt_while
: WHILE LPAREN expr RPAREN stmt
{ $$ = std::make_unique<node_stmt_while>(@$, std::move($3), std::move($5)); }
;
stmt_for
: FOR LPAREN for_stmt SEMICOLON for_expr SEMICOLON for_stmt RPAREN stmt
{ $$ = std::make_unique<node_stmt_for>(@$, std::move($3), std::move($5), std::move($7), std::move($9)); }
;
stmt_foreach
: FOREACH LPAREN name IN expr RPAREN stmt
{ $$ = std::make_unique<node_stmt_foreach>(@$, expr_ptr(std::move($3)), std::move($5), std::move($7)); }
| FOREACH LPAREN name COMMA name IN expr RPAREN stmt
{ $$ = std::make_unique<node_stmt_foreach>(@$, expr_ptr(std::move($3)), expr_ptr(std::move($5)), std::move($7), std::move($9)); }
;
stmt_switch
: SWITCH LPAREN expr RPAREN stmt_block
{ $$ = std::make_unique<node_stmt_switch>(@$, std::move($3), std::move($5)); }
;
stmt_case
: CASE integer COLON
{ $$ = std::make_unique<node_stmt_case>(@$, expr_ptr(std::move($2)), std::make_unique<gsc::node_stmt_list>(@$)); }
| CASE neg_integer COLON
{ $$ = std::make_unique<node_stmt_case>(@$, expr_ptr(std::move($2)), std::make_unique<gsc::node_stmt_list>(@$)); }
| CASE string COLON
{ $$ = std::make_unique<node_stmt_case>(@$, expr_ptr(std::move($2)), std::make_unique<gsc::node_stmt_list>(@$)); }
;
stmt_default
: DEFAULT COLON
{ $$ = std::make_unique<node_stmt_default>(@$, std::make_unique<gsc::node_stmt_list>(@$)); }
;
stmt_break
: BREAK SEMICOLON
{ $$ = std::make_unique<node_stmt_break>(@$); }
;
stmt_continue
: CONTINUE SEMICOLON
{ $$ = std::make_unique<node_stmt_continue>(@$); }
;
stmt_return
: RETURN expr SEMICOLON
{ $$ = std::make_unique<node_stmt_return>(@$, std::move($2)); }
| RETURN SEMICOLON
{ $$ = std::make_unique<node_stmt_return>(@$, std::make_unique<node>(@$)); }
;
for_stmt
: expr_assign { $$.as_list = std::make_unique<node_stmt_list>(@$); $$.as_list->stmts.push_back(stmt_ptr(std::make_unique<node_stmt_assign>(@$, std::move($1)))); }
| { $$.as_node = std::make_unique<node>(@$); }
;
for_expr
: expr { $$ = std::move($1); }
| { $$.as_node = std::make_unique<node>(@$); }
;
expr
: expr_compare { $$ = std::move($1); }
| expr_binary { $$ = std::move($1); }
| expr_primitive { $$ = std::move($1); }
;
expr_assign
: INCREMENT object %prec PREINC { $$ = std::make_unique<node_expr_increment>(@$, std::move($2)); }
| DECREMENT object %prec PREDEC { $$ = std::make_unique<node_expr_decrement>(@$, std::move($2)); }
| object INCREMENT %prec POSTINC { $$ = std::make_unique<node_expr_increment>(@$, std::move($1)); }
| object DECREMENT %prec POSTDEC { $$ = std::make_unique<node_expr_decrement>(@$, std::move($1)); }
| object ASSIGN expr { $$ = std::make_unique<node_expr_assign_equal>(@$, std::move($1), std::move($3)); }
| object ASSIGN_BITWISE_OR expr { $$ = std::make_unique<node_expr_assign_bitwise_or>(@$, std::move($1), std::move($3)); }
| object ASSIGN_BITWISE_AND expr { $$ = std::make_unique<node_expr_assign_bitwise_and>(@$, std::move($1), std::move($3)); }
| object ASSIGN_BITWISE_EXOR expr { $$ = std::make_unique<node_expr_assign_bitwise_exor>(@$, std::move($1), std::move($3)); }
| object ASSIGN_LSHIFT expr { $$ = std::make_unique<node_expr_assign_shift_left>(@$, std::move($1),std::move( $3)); }
| object ASSIGN_RSHIFT expr { $$ = std::make_unique<node_expr_assign_shift_right>(@$, std::move($1), std::move($3)); }
| object ASSIGN_ADD expr { $$ = std::make_unique<node_expr_assign_add>(@$, std::move($1), std::move($3)); }
| object ASSIGN_SUB expr { $$ = std::make_unique<node_expr_assign_sub>(@$, std::move($1), std::move($3)); }
| object ASSIGN_MULT expr { $$ = std::make_unique<node_expr_assign_mult>(@$, std::move($1), std::move($3)); }
| object ASSIGN_DIV expr { $$ = std::make_unique<node_expr_assign_div>(@$, std::move($1), std::move($3)); }
| object ASSIGN_MOD expr { $$ = std::make_unique<node_expr_assign_mod>(@$, std::move($1), std::move($3)); }
;
expr_compare
: expr OR expr { $$.as_node = std::make_unique<node_expr_or>(@$, std::move($1), std::move($3)); }
| expr AND expr { $$.as_node = std::make_unique<node_expr_and>(@$, std::move($1), std::move($3)); }
| expr EQUALITY expr { $$.as_node = std::make_unique<node_expr_equality>(@$, std::move($1), std::move($3)); }
| expr INEQUALITY expr { $$.as_node = std::make_unique<node_expr_inequality>(@$, std::move($1), std::move($3)); }
| expr LESS_EQUAL expr { $$.as_node = std::make_unique<node_expr_less_equal>(@$, std::move($1), std::move($3)); }
| expr GREATER_EQUAL expr { $$.as_node = std::make_unique<node_expr_greater_equal>(@$, std::move($1), std::move($3)); }
| expr LESS expr { $$.as_node = std::make_unique<node_expr_less>(@$, std::move($1), std::move($3)); }
| expr GREATER expr { $$.as_node = std::make_unique<node_expr_greater>(@$, std::move($1), std::move($3)); }
;
expr_binary
: expr BITWISE_OR expr { $$.as_node = std::make_unique<node_expr_bitwise_or>(@$, std::move($1), std::move($3)); }
| expr BITWISE_AND expr { $$.as_node = std::make_unique<node_expr_bitwise_and>(@$, std::move($1), std::move($3)); }
| expr BITWISE_EXOR expr { $$.as_node = std::make_unique<node_expr_bitwise_exor>(@$, std::move($1), std::move($3)); }
| expr LSHIFT expr { $$.as_node = std::make_unique<node_expr_shift_left>(@$, std::move($1), std::move($3)); }
| expr RSHIFT expr { $$.as_node = std::make_unique<node_expr_shift_right>(@$, std::move($1), std::move($3)); }
| expr ADD expr { $$.as_node = std::make_unique<node_expr_add>(@$, std::move($1), std::move($3)); }
| expr SUB expr { $$.as_node = std::make_unique<node_expr_sub>(@$, std::move($1), std::move($3)); }
| expr MULT expr { $$.as_node = std::make_unique<node_expr_mult>(@$, std::move($1), std::move($3)); }
| expr DIV expr { $$.as_node = std::make_unique<node_expr_div>(@$, std::move($1), std::move($3)); }
| expr MOD expr { $$.as_node = std::make_unique<node_expr_mod>(@$, std::move($1), std::move($3)); }
;
expr_primitive
: LPAREN expr RPAREN { $$ = std::move($2); }
| COMPLEMENT expr { $$.as_node = std::make_unique<node_expr_complement>(@$, std::move($2)); }
| NOT expr { $$.as_node = std::make_unique<node_expr_not>(@$, std::move($2)); }
| expr_call { $$.as_node = std::move($1); }
| expr_call_thread { $$.as_node = std::move($1); }
| expr_call_childthread { $$.as_node = std::move($1); }
| expr_function { $$.as_node = std::move($1); }
| expr_add_array { $$.as_node = std::move($1); }
| expr_array { $$.as_node = std::move($1); }
| expr_field { $$.as_node = std::move($1); }
| expr_size { $$.as_node = std::move($1); }
| thisthread { $$.as_node = std::move($1); }
| empty_array { $$.as_node = std::move($1); }
| undefined { $$.as_node = std::move($1); }
| game { $$.as_node = std::move($1); }
| self { $$.as_node = std::move($1); }
| anim { $$.as_node = std::move($1); }
| level { $$.as_node = std::move($1); }
| animation { $$.as_node = std::move($1); }
| animtree { $$.as_node = std::move($1); }
| name { $$.as_node = std::move($1); }
| istring { $$.as_node = std::move($1); }
| string { $$.as_node = std::move($1); }
| vector { $$.as_node = std::move($1); }
| neg_float { $$.as_node = std::move($1); }
| neg_integer { $$.as_node = std::move($1); }
| float { $$.as_node = std::move($1); }
| integer { $$.as_node = std::move($1); }
| false { $$.as_node = std::move($1); }
| true { $$.as_node = std::move($1); }
;
expr_call
: expr_call_function { $$ = std::make_unique<node_expr_call>(@$, false, false, std::make_unique<node>(@$), std::move($1)); }
| expr_call_pointer { $$ = std::make_unique<node_expr_call>(@$, false, false, std::make_unique<node>(@$), std::move($1)); }
| object expr_call_function { $$ = std::make_unique<node_expr_call>(@$, false, false, std::move($1), std::move($2)); }
| object expr_call_pointer { $$ = std::make_unique<node_expr_call>(@$, false, false, std::move($1), std::move($2)); }
;
expr_call_thread
: THREAD expr_call_function { $$ = std::make_unique<node_expr_call>(@$, true, false, std::make_unique<node>(@$), std::move($2)); }
| THREAD expr_call_pointer { $$ = std::make_unique<node_expr_call>(@$, true, false, std::make_unique<node>(@$), std::move($2)); }
| object THREAD expr_call_function { $$ = std::make_unique<node_expr_call>(@$, true, false, std::move($1), std::move($3)); }
| object THREAD expr_call_pointer { $$ = std::make_unique<node_expr_call>(@$, true, false, std::move($1), std::move($3)); }
;
expr_call_childthread
: CHILDTHREAD expr_call_function { $$ = std::make_unique<node_expr_call>(@$, false, true, std::make_unique<node>(@$), std::move($2)); }
| CHILDTHREAD expr_call_pointer { $$ = std::make_unique<node_expr_call>(@$, false, true, std::make_unique<node>(@$), std::move($2)); }
| object CHILDTHREAD expr_call_function { $$ = std::make_unique<node_expr_call>(@$, false, true, std::move($1), std::move($3)); }
| object CHILDTHREAD expr_call_pointer { $$ = std::make_unique<node_expr_call>(@$, false, true, std::move($1), std::move($3)); }
;
expr_call_function
: name LPAREN expr_arguments RPAREN
{$$.as_func = std::make_unique<node_expr_call_function>(@$, std::make_unique<node_file>(), std::move($1), std::move($3)); }
| file DOUBLECOLON name LPAREN expr_arguments RPAREN
{ $$.as_func = std::make_unique<node_expr_call_function>(@$, std::move($1), std::move($3), std::move($5)); }
;
expr_call_pointer
: LBRACKET LBRACKET expr RBRACKET RBRACKET LPAREN expr_arguments RPAREN
{ $$.as_pointer = std::make_unique<node_expr_call_pointer>(@$, false, std::move($3), std::move($7)); }
| CALL LBRACKET LBRACKET expr RBRACKET RBRACKET LPAREN expr_arguments RPAREN
{ $$.as_pointer = std::make_unique<node_expr_call_pointer>(@$, true, std::move($4), std::move($8)); }
;
expr_arguments
: expr_arguments_filled { $$ = std::move($1); }
| expr_arguments_empty { $$ = std::move($1); }
;
expr_arguments_filled
: expr_arguments COMMA expr
{ $$ = std::move($1); $$->list.push_back(std::move($3)); }
| expr %prec ADD_ARRAY
{ $$ = std::make_unique<node_expr_arguments>(@$); $$->list.push_back(std::move($1)); }
;
expr_arguments_empty
:
{ $$ = std::make_unique<node_expr_arguments>(@$); }
;
expr_function
: DOUBLECOLON name
{ $$ = std::make_unique<node_expr_function>(@$, std::make_unique<node_file>(@$), std::move($2)); }
| file DOUBLECOLON name
{ $$ = std::make_unique<node_expr_function>(@$, std::move($1), std::move($3)); }
;
expr_add_array
: LBRACKET expr_arguments_filled RBRACKET
{ $$ = std::make_unique<node_expr_add_array>(@$, std::move($2)); }
;
expr_array
: object LBRACKET expr RBRACKET
{ $$ = std::make_unique<node_expr_array>(@$, std::move($1), std::move($3)); }
;
expr_field
: object DOT name
{ $$ = std::make_unique<node_expr_field>(@$, std::move($1), std::move($3)); }
;
expr_size
: object DOT SIZE
{ $$ = std::make_unique<node_expr_size>(@$, std::move($1)); }
;
object
: expr_call { $$ = std::move($1); }
| expr_array { $$ = std::move($1); }
| expr_field { $$ = std::move($1); }
| game { $$ = std::move($1); }
| self { $$ = std::move($1); }
| anim { $$ = std::move($1); }
| level { $$ = std::move($1); }
| name { $$ = std::move($1); }
;
thisthread : THISTHREAD { $$ = std::make_unique<node_thisthread>(@$); };
empty_array : LBRACKET RBRACKET { $$ = std::make_unique<node_empty_array>(@$); };
undefined : UNDEFINED { $$ = std::make_unique<node_undefined>(@$); };
game : GAME { $$ = std::make_unique<node_game>(@$); };
self : SELF { $$ = std::make_unique<node_self>(@$); };
anim : ANIM { $$ = std::make_unique<node_anim>(@$); };
level : LEVEL { $$ = std::make_unique<node_level>(@$); };
animation : MOD NAME %prec ANIMREF { $$ = std::make_unique<node_animation>(@$, $2); };
animtree : ANIMTREE { $$ = std::make_unique<node_animtree>(@$); };
name : NAME { $$ = std::make_unique<node_name>(@$, $1); };
file : FILE { $$ = std::make_unique<node_file>(@$, $1); };
istring : ISTRING { $$ = std::make_unique<node_istring>(@$, $1); };
string : STRING { $$ = std::make_unique<node_string>(@$, $1); };
vector : LPAREN expr COMMA expr COMMA expr RPAREN { $$ = std::make_unique<node_vector>(@$, std::move($2), std::move($4), std::move($6)); };
neg_float : SUB FLOAT %prec NEG { $$ = std::make_unique<node_float>(@$, "-" + $2); };
neg_integer : SUB INTEGER %prec NEG { $$ = std::make_unique<node_integer>(@$, "-" + $2); };
float : FLOAT { $$ = std::make_unique<node_float>(@$, $1); };
integer : INTEGER { $$ = std::make_unique<node_integer>(@$, $1); };
false : FALSE { $$ = std::make_unique<node_false>(@$); };
true : TRUE { $$ = std::make_unique<node_true>(@$); };
%%
void xsk::gsc::h1::parser::error(const xsk::gsc::location& loc, const std::string& msg)
{
throw xsk::gsc::comp_error(loc, msg);
}