xxq250
/
Nasal-Interpreter
mirror of https://github.com/ValKmjolnir/Nasal-Interpreter.git
1
0
Fork 0
Code Issues Actions 1 Packages Projects Releases Wiki Activity

finished nasal parse

This commit is contained in:
Valk Richard Li 2020-01-22 19:02:31 +08:00 committed by GitHub
parent 772cf253da
commit f05097666d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 119 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

150
version2.0/nasal_parse.h
View File

@ -28,11 +28,13 @@ class nasal_parse
void push_token(); void push_token();
int get_error(); int get_error();
abstract_syntax_tree& get_root(); abstract_syntax_tree& get_root();
// check '(' confliction
bool check_multi_assignment();// multi_call_id = multi_scalar
bool check_multi_scalar();
bool check_var_in_curve(); // multi_definition
// abstract_syntax_tree generation // abstract_syntax_tree generation
bool check_multi_assignment();
bool check_comma_in_curve();
bool check_var_in_curve();
void main_generate(); void main_generate();
abstract_syntax_tree statements_block_generate(); abstract_syntax_tree statements_block_generate();
abstract_syntax_tree multi_scalar_assignment(); abstract_syntax_tree multi_scalar_assignment();
@ -174,34 +176,66 @@ bool nasal_parse::check_multi_assignment()
++cnt; ++cnt;
if(this_token.type==__id) if(this_token.type==__id)
{ {
int curve_cnt=0;
int bracket_cnt=0;
int brace_cnt=0;
while(1)
{
this->get_token();
++cnt;
if(this_token.type==__left_curve) ++curve_cnt;
if(this_token.type==__left_bracket) ++bracket_cnt;
if(this_token.type==__left_brace) ++brace_cnt;
if(this_token.type==__right_curve) --curve_cnt;
if(this_token.type==__right_bracket)--bracket_cnt;
if(this_token.type==__right_brace) --brace_cnt;
if(!curve_cnt && !bracket_cnt && !brace_cnt && this_token.type==__comma)
{
ret=true;
break;
}
if(!curve_cnt && !bracket_cnt && brace_cnt<0)
break;
if((!parse_token_stream.empty() && parse_token_stream.top().type==__stack_end) || (this_token.type==__semi))
break;
}
} }
for(int i=0;i<cnt;++i)
this->push_token();
return ret; return ret;
} }
bool nasal_parse::check_comma_in_curve() bool nasal_parse::check_multi_scalar()
{ {
// when generating multi_assignment
// only one pair of curves are alowed
// if there are too many pairs
// then a parse error occurs.
bool ret=false; bool ret=false;
int left_curve_cnt=0;
int cnt=0; int cnt=0;
while(this_token.type!=__right_curve)
this->get_token();
++cnt;// get '('
int curve_cnt=0;
int bracket_cnt=0;
int brace_cnt=0;
while(1)
{ {
++cnt;
this->get_token(); this->get_token();
if(this_token.type==__left_curve) ++cnt;
++left_curve_cnt; if(this_token.type==__left_curve) ++curve_cnt;
if(left_curve_cnt>1) if(this_token.type==__left_bracket) ++bracket_cnt;
break; if(this_token.type==__left_brace) ++brace_cnt;
if(this_token.type==__comma) if(this_token.type==__right_curve) --curve_cnt;
if(this_token.type==__right_bracket)--bracket_cnt;
if(this_token.type==__right_brace) --brace_cnt;
if(!curve_cnt && !bracket_cnt && !brace_cnt && this_token.type==__comma)
{ {
ret=true; ret=true;
break; break;
} }
if(!curve_cnt && !bracket_cnt && brace_cnt<0)
break;
if((!parse_token_stream.empty() && parse_token_stream.top().type==__stack_end) || (this_token.type==__semi))
break;
} }
for(int i=0;i<cnt;++i) for(int i=0;i<cnt;++i)
this->push_token(); this->push_token();
@ -250,7 +284,7 @@ void nasal_parse::main_generate()
this->push_token(); this->push_token();
if(check_var_in_curve()) if(check_var_in_curve())
root.add_children(definition()); root.add_children(definition());
else if(check_comma_in_curve()) else if(check_multi_assignment())
root.add_children(multi_scalar_assignment()); root.add_children(multi_scalar_assignment());
else else
root.add_children(calculation()); root.add_children(calculation());
@ -306,7 +340,7 @@ abstract_syntax_tree nasal_parse::statements_block_generate()
this->push_token(); this->push_token();
if(check_var_in_curve()) if(check_var_in_curve())
block_node.add_children(definition()); block_node.add_children(definition());
else if(check_comma_in_curve()) else if(check_multi_assignment())
block_node.add_children(multi_scalar_assignment()); block_node.add_children(multi_scalar_assignment());
else else
block_node.add_children(calculation()); block_node.add_children(calculation());
@ -366,7 +400,7 @@ abstract_syntax_tree nasal_parse::statements_block_generate()
this->push_token(); this->push_token();
if(check_var_in_curve()) if(check_var_in_curve())
block_node.add_children(definition()); block_node.add_children(definition());
else if(check_comma_in_curve()) else if(check_multi_assignment())
block_node.add_children(multi_scalar_assignment()); block_node.add_children(multi_scalar_assignment());
else else
block_node.add_children(calculation()); block_node.add_children(calculation());
@ -447,7 +481,7 @@ abstract_syntax_tree nasal_parse::multi_scalar_assignment()
else else
{ {
this->push_token(); this->push_token();
if(check_comma_in_curve()) if(check_multi_scalar())
{ {
this->get_token();// get '(' this->get_token();// get '('
back_multi_scalar_node.set_node_line(this_token.line); back_multi_scalar_node.set_node_line(this_token.line);
@ -1109,11 +1143,11 @@ abstract_syntax_tree nasal_parse::definition()
multi_identifier.add_children(id_node); multi_identifier.add_children(id_node);
} }
this->get_token(); this->get_token();
if((this_token.type!=__semi) && (this_token.type!=__right_curve)) if((this_token.type!=__comma) && (this_token.type!=__right_curve))
{ {
this->push_token(); this->push_token();
++error; ++error;
print_parse_error(multi_definition_need_curve,this_token.line); print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
break; break;
} }
} }
@ -1121,7 +1155,35 @@ abstract_syntax_tree nasal_parse::definition()
this->get_token(); this->get_token();
if(this_token.type==__equal)// (var id,id,id)= if(this_token.type==__equal)// (var id,id,id)=
{ {
; this->get_token();
if(this_token.type==__left_curve)
{
this->push_token();
if(check_multi_scalar())
{
abstract_syntax_tree multi_scalar_node;
this->get_token();// get '('
multi_scalar_node.set_node_line(this_token.line);
multi_scalar_node.set_node_type(__multi_scalar);
while(this_token.type!=__right_curve)
{
multi_scalar_node.add_children(scalar_generate());
this->get_token();
if((this_token.type!=__comma) && (this_token.type!=__right_curve))
{
++error;
print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
break;
}
}
definition_node.add_children(multi_scalar_node);
}
}
else
{
this->push_token();
definition_node.add_children(calculation());
}
} }
else else
{ {
@ -1141,9 +1203,7 @@ abstract_syntax_tree nasal_parse::definition()
new_var_identifier.set_var_name(this_token.str); new_var_identifier.set_var_name(this_token.str);
definition_node.add_children(new_var_identifier); definition_node.add_children(new_var_identifier);
this->get_token(); this->get_token();
if(this_token.type==__semi) if(this_token.type==__equal)
this->push_token();// var id
else if(this_token.type==__equal)
definition_node.add_children(calculation());// var id = scalar definition_node.add_children(calculation());// var id = scalar
else else
{ {
@ -1176,11 +1236,11 @@ abstract_syntax_tree nasal_parse::definition()
multi_identifier.add_children(id_node); multi_identifier.add_children(id_node);
} }
this->get_token(); this->get_token();
if(this_token.type!=__semi && this_token.type!=__right_curve) if((this_token.type!=__comma) && (this_token.type!=__right_curve))
{ {
this->push_token(); this->push_token();
++error; ++error;
print_parse_error(multi_definition_need_curve,this_token.line); print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
break; break;
} }
} }
@ -1188,7 +1248,35 @@ abstract_syntax_tree nasal_parse::definition()
this->get_token(); this->get_token();
if(this_token.type==__equal)// var (id,id,id)= if(this_token.type==__equal)// var (id,id,id)=
{ {
; this->get_token();
if(this_token.type==__left_curve)
{
this->push_token();
if(check_multi_scalar())
{
abstract_syntax_tree multi_scalar_node;
this->get_token();// get '('
multi_scalar_node.set_node_line(this_token.line);
multi_scalar_node.set_node_type(__multi_scalar);
while(this_token.type!=__right_curve)
{
multi_scalar_node.add_children(scalar_generate());
this->get_token();
if((this_token.type!=__comma) && (this_token.type!=__right_curve))
{
++error;
print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
break;
}
}
definition_node.add_children(multi_scalar_node);
}
}
else
{
this->push_token();
definition_node.add_children(calculation());
}
} }
else else
{ {