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

Finished part of AST

This commit is contained in:
Valk Richard Li 2019-10-12 20:48:52 +08:00 committed by GitHub
parent 3806e632e9
commit 3732fa7a68
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 159 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
version1.0/ast.h
View File

@ -74,8 +74,24 @@ class abstract_syntax_tree
std::cout<<"{ [ Type:"; std::cout<<"{ [ Type:";
print_token(ast_node_type); print_token(ast_node_type);
std::cout<<" ]"<<std::endl; std::cout<<" ]"<<std::endl;
if(!children.empty())
{
for(int i=0;i<tab_num;++i)
std::cout<<" ";
std::cout<<"[ Children ]"<<std::endl;
for(std::list<abstract_syntax_tree>::iterator i=children.begin();i!=children.end();++i) for(std::list<abstract_syntax_tree>::iterator i=children.begin();i!=children.end();++i)
i->print_ast_node(tab_num+1); i->print_ast_node(tab_num+1);
std::cout<<std::endl;
}
if(!statement_list.empty())
{
for(int i=0;i<tab_num;++i)
std::cout<<" ";
std::cout<<"[ Statement(s) ]"<<std::endl;
for(std::list<abstract_syntax_tree>::iterator i=statement_list.begin();i!=statement_list.end();++i)
i->print_ast_node(tab_num+1);
std::cout<<std::endl;
}
for(int i=0;i<tab_num;++i) for(int i=0;i<tab_num;++i)
std::cout<<" "; std::cout<<" ";
std::cout<<"}"<<std::endl; std::cout<<"}"<<std::endl;
@ -87,6 +103,14 @@ class abstract_syntax_tree
ast_node_type=__root; ast_node_type=__root;
return; return;
} }
// for definition
void set_definition_expr(std::string& name,abstract_syntax_tree var_content)
{
ast_node_type=__var;
id_name=name;
children.push_back(var_content);
return;
}
// for if // for if
void set_if_expr(abstract_syntax_tree condition,abstract_syntax_tree statements) void set_if_expr(abstract_syntax_tree condition,abstract_syntax_tree statements)
{ {
@ -139,6 +163,14 @@ class abstract_syntax_tree
ast_node_type=type; ast_node_type=type;
return; return;
} }
// for function expr
void set_node_to_function(std::list<abstract_syntax_tree> parameters,abstract_syntax_tree block)
{
ast_node_type=__func;
children=parameters;
statement_list=block.statement_list;
return;
}
// for sub-tree node operator // for sub-tree node operator
void set_two_operator(const int operator_type,abstract_syntax_tree f_child,abstract_syntax_tree s_child) void set_two_operator(const int operator_type,abstract_syntax_tree f_child,abstract_syntax_tree s_child)
{ {
@ -153,13 +185,6 @@ class abstract_syntax_tree
children.push_back(f_child); children.push_back(f_child);
return; return;
} }
// for leaf node identifier
void set_node_to_identifier(std::string& str)
{
ast_node_type=__id;
id_name=str;
return;
}
// for leaf node call // for leaf node call
void set_node_to_call_function() void set_node_to_call_function()
{ {
@ -177,9 +202,26 @@ class abstract_syntax_tree
return; return;
} }
// for leaf node list // for leaf node list
void set_node_to_list() void set_node_to_list(std::list<abstract_syntax_tree> list_members)
{ {
ast_node_type=__list; ast_node_type=__list;
children=list_members;
return;
}
// for leaf node hash
void set_node_to_hash(std::list<abstract_syntax_tree> hash_members)
{
ast_node_type=__hash;
children=hash_members;
return;
}
// for hash member
void set_node_to_hashmember(std::string& name,abstract_syntax_tree mem_var)
{
ast_node_type=__hash_member;
id_name=name;
children.clear();
children.push_back(mem_var);
return; return;
} }
// for leaf node hash // for leaf node hash

164
version1.0/ast_generator.h
View File

@ -161,6 +161,8 @@ abstract_syntax_tree generator::statements_block()
} }
abstract_syntax_tree generator::function_generate_expr() abstract_syntax_tree generator::function_generate_expr()
{ {
abstract_syntax_tree node;
std::list<abstract_syntax_tree> parameters;
get_token(); get_token();
if(this_token.type==__left_brace) if(this_token.type==__left_brace)
parse.push(this_token); parse.push(this_token);
@ -171,75 +173,92 @@ abstract_syntax_tree generator::function_generate_expr()
{ {
if(this_token.type==__id) if(this_token.type==__id)
{ {
abstract_syntax_tree param;
param.set_node_to_id(this_token.content);
parameters.push_back(param);
get_token(); get_token();
if(this_token.type==__right_curve) if(this_token.type==__right_curve)
parse.push(this_token); parse.push(this_token);
} }
else if(this_token.type==__dynamic_id) else if(this_token.type==__dynamic_id)
{ {
abstract_syntax_tree param;
param.set_node_to_dynid(this_token.content);
parameters.push_back(param);
get_token(); get_token();
parse.push(this_token); parse.push(this_token);
} }
get_token(); get_token();
} }
} }
statements_block(); node.set_node_to_function(parameters,statements_block());
return; return node;
} }
abstract_syntax_tree generator::list_generate_expr() abstract_syntax_tree generator::list_generate_expr()
{ {
abstract_syntax_tree node;
std::list<abstract_syntax_tree> list_members;
get_token(); get_token();
while(this_token.type!=__right_bracket) while(this_token.type!=__right_bracket)
{ {
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:list_members.push_back(number_begin_expr());break;
case __string:string_begin_expr();break; case __string:list_members.push_back(string_begin_expr());break;
case __id:identifier_begin_expr();break; case __id:list_members.push_back(identifier_begin_expr());break;
case __left_bracket:list_generate_expr();break; case __left_bracket:list_members.push_back(list_generate_expr());break;
case __left_brace:hash_generate_expr();break; case __left_brace:list_members.push_back(hash_generate_expr());break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:list_members.push_back(in_curve_calc_expr());break;
default:break; default:break;
} }
get_token(); get_token();
if(this_token.type==__comma) if(this_token.type==__comma)
get_token(); get_token();
} }
return; node.set_node_to_list(list_members);
return node;
} }
abstract_syntax_tree generator::hash_generate_expr() abstract_syntax_tree generator::hash_generate_expr()
{ {
abstract_syntax_tree node;
std::list<abstract_syntax_tree> hashmember;
abstract_syntax_tree elem;
std::string id_name;
get_token(); get_token();
while(this_token.type!=__right_brace) while(this_token.type!=__right_brace)
{ {
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; // case __number:number_begin_expr();break;
case __string:string_begin_expr();break; // case __string:string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:id_name=this_token.content;break;
default:break; default:break;
} }
get_token(); get_token();
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:elem.set_node_to_hashmember(id_name,number_begin_expr());break;
case __string:string_begin_expr();break; case __string:elem.set_node_to_hashmember(id_name,string_begin_expr());break;
case __id:identifier_begin_expr();break; case __id:elem.set_node_to_hashmember(id_name,identifier_begin_expr());break;
case __func:function_generate_expr();break; case __func:elem.set_node_to_hashmember(id_name,function_generate_expr());break;
case __left_bracket:list_generate_expr();break; case __left_bracket:elem.set_node_to_hashmember(id_name,list_generate_expr());break;
case __left_brace:hash_generate_expr();break; case __left_brace:elem.set_node_to_hashmember(id_name,hash_generate_expr());break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:elem.set_node_to_hashmember(id_name,in_curve_calc_expr());break;
default:break; default:break;
} }
hashmember.push_back(elem);
get_token(); get_token();
if(this_token.type==__comma) if(this_token.type==__comma)
get_token(); get_token();
} }
return; node.set_node_to_hash(hashmember);
return node;
} }
abstract_syntax_tree generator::definition_expr() abstract_syntax_tree generator::definition_expr()
{ {
abstract_syntax_tree node;
std::string id_name;
get_token(); get_token();
if(this_token.type==__left_curve) if(this_token.type==__left_curve)
{ {
@ -251,11 +270,15 @@ abstract_syntax_tree generator::definition_expr()
break; break;
} }
} }
else if(this_token.type==__id)
{
;
}
get_token(); get_token();
if(this_token.type==__semi) if(this_token.type==__semi)
{ {
parse.push(this_token); parse.push(this_token);
return; return node;
} }
get_token(); get_token();
token t; token t;
@ -275,10 +298,11 @@ abstract_syntax_tree generator::definition_expr()
case __left_curve:in_curve_calc_expr();break; case __left_curve:in_curve_calc_expr();break;
default:break; default:break;
} }
return; return node;
} }
abstract_syntax_tree generator::assignment_expr() abstract_syntax_tree generator::assignment_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
@ -294,7 +318,7 @@ abstract_syntax_tree generator::assignment_expr()
case __left_curve:in_curve_calc_expr();break; case __left_curve:in_curve_calc_expr();break;
default:break; default:break;
} }
return; return node;
} }
bool generator::else_if_check() bool generator::else_if_check()
{ {
@ -316,6 +340,7 @@ bool generator::else_if_check()
} }
abstract_syntax_tree generator::if_else_expr() abstract_syntax_tree generator::if_else_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
get_token(); get_token();
get_token(); get_token();
@ -377,7 +402,7 @@ abstract_syntax_tree generator::if_else_expr()
} }
} }
if(parse.empty()) if(parse.empty())
return; return node;
get_token(); get_token();
while(this_token.type==__elsif || else_if_check()) while(this_token.type==__elsif || else_if_check())
{ {
@ -440,7 +465,7 @@ abstract_syntax_tree generator::if_else_expr()
} }
} }
if(parse.empty()) if(parse.empty())
return; return node;
get_token(); get_token();
} }
if(this_token.type==__else) if(this_token.type==__else)
@ -493,10 +518,11 @@ abstract_syntax_tree generator::if_else_expr()
} }
else else
parse.push(this_token); parse.push(this_token);
return; return node;
} }
abstract_syntax_tree generator::loop_expr() abstract_syntax_tree generator::loop_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
if(this_token.type==__while) if(this_token.type==__while)
{ {
@ -713,7 +739,7 @@ abstract_syntax_tree generator::loop_expr()
} }
} }
} }
return; return node;
} }
abstract_syntax_tree generator::continue_break_expr() abstract_syntax_tree generator::continue_break_expr()
{ {
@ -723,88 +749,100 @@ abstract_syntax_tree generator::continue_break_expr()
} }
abstract_syntax_tree generator::add_sub_operator_expr() abstract_syntax_tree generator::add_sub_operator_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:node=number_begin_expr();break;
case __string:string_begin_expr();break; case __string:node=string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:node=identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:node=in_curve_calc_expr();break;
default:break; default:break;
} }
return; return node;
} }
abstract_syntax_tree generator::mul_div_operator_expr() abstract_syntax_tree generator::mul_div_operator_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:node=number_begin_expr();break;
case __string:string_begin_expr();break; case __string:node=string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:node=identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:node=in_curve_calc_expr();break;
default:break; default:break;
} }
return; return node;
} }
abstract_syntax_tree generator::link_operator_expr() abstract_syntax_tree generator::link_operator_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:node=number_begin_expr();break;
case __string:string_begin_expr();break; case __string:node=string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:node=identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:node=in_curve_calc_expr();break;
default:break; default:break;
} }
return; return node;
} }
abstract_syntax_tree generator::compare_operator_expr() abstract_syntax_tree generator::compare_operator_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:node=number_begin_expr();break;
case __string:string_begin_expr();break; case __string:node=string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:node=identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:node=in_curve_calc_expr();break;
case __add_operator: case __add_operator:
case __sub_operator: case __sub_operator:
case __nor_operator:one_operator_expr();break; case __nor_operator:node=one_operator_expr();break;
default:break; default:break;
} }
return; return node;
} }
abstract_syntax_tree generator::one_operator_expr() abstract_syntax_tree generator::one_operator_expr()
{ {
abstract_syntax_tree node;
int type=this_token.type;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; case __number:node.set_one_operator(type,number_begin_expr());;break;
case __string:string_begin_expr();break; case __string:node.set_one_operator(type,string_begin_expr());break;
case __id:identifier_begin_expr();break; case __id:node.set_one_operator(type,identifier_begin_expr());break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:node.set_one_operator(type,in_curve_calc_expr());break;
default:break; default:break;
} }
return; return node;
} }
abstract_syntax_tree generator::in_curve_calc_expr() abstract_syntax_tree generator::in_curve_calc_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
case __add_operator: case __add_operator:
case __sub_operator: case __sub_operator:
case __nor_operator:one_operator_expr();break; case __nor_operator:node=one_operator_expr();break;
case __number:number_begin_expr();break; case __number:node=number_begin_expr();break;
case __string:string_begin_expr();break; case __string:node=string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:node=identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:node=in_curve_calc_expr();break;
default:parse.push(this_token);break; default:parse.push(this_token);break;
} }
get_token(); get_token();
get_token(); get_token();
// unfinished
switch(this_token.type) switch(this_token.type)
{ {
case __add_operator: case __add_operator:
@ -822,7 +860,7 @@ abstract_syntax_tree generator::in_curve_calc_expr()
case __cmp_more_or_equal:compare_operator_expr();break; case __cmp_more_or_equal:compare_operator_expr();break;
default:parse.push(this_token);break; default:parse.push(this_token);break;
} }
return; return node;
} }
abstract_syntax_tree generator::number_begin_expr() abstract_syntax_tree generator::number_begin_expr()
{ {
@ -874,6 +912,7 @@ abstract_syntax_tree generator::string_begin_expr()
} }
abstract_syntax_tree generator::call_list_expr() abstract_syntax_tree generator::call_list_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
switch(this_token.type) switch(this_token.type)
{ {
@ -893,7 +932,7 @@ abstract_syntax_tree generator::call_list_expr()
case __string:string_begin_expr();break; case __string:string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:in_curve_calc_expr();break;
case __right_bracket:return;break;// this is [number:] case __right_bracket:break;// this is [number:]
} }
get_token(); get_token();
get_token(); get_token();
@ -916,10 +955,11 @@ abstract_syntax_tree generator::call_list_expr()
default:parse.push(this_token);break; default:parse.push(this_token);break;
} }
} }
return; return node;
} }
abstract_syntax_tree generator::call_function_expr() abstract_syntax_tree generator::call_function_expr()
{ {
abstract_syntax_tree node;
get_token(); get_token();
while(this_token.type!=__right_curve) while(this_token.type!=__right_curve)
{ {
@ -946,7 +986,7 @@ abstract_syntax_tree generator::call_function_expr()
case __dot:call_hash_expr();break; case __dot:call_hash_expr();break;
default:parse.push(this_token);break; default:parse.push(this_token);break;
} }
return; return node;
} }
abstract_syntax_tree generator::call_hash_expr() abstract_syntax_tree generator::call_hash_expr()
{ {

6
version1.0/nasal_parser.h
View File

@ -298,8 +298,8 @@ void nasal_parser::hash_generate_expr()
{ {
switch(this_token.type) switch(this_token.type)
{ {
case __number:number_begin_expr();break; //case __number:number_begin_expr();break;
case __string:string_begin_expr();break; //case __string:string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:identifier_begin_expr();break;
default: default:
++error; ++error;
@ -1195,7 +1195,7 @@ void nasal_parser::call_list_expr()
case __string:string_begin_expr();break; case __string:string_begin_expr();break;
case __id:identifier_begin_expr();break; case __id:identifier_begin_expr();break;
case __left_curve:in_curve_calc_expr();break; case __left_curve:in_curve_calc_expr();break;
case __right_bracket:return;break;// this is [number:] case __right_bracket:parse.push(this_token);break;// this is [number:]
} }
get_token(); get_token();
if(this_token.type!=__right_bracket) if(this_token.type!=__right_bracket)

2
version1.0/nasal_token_type.h
View File

@ -31,6 +31,7 @@ enum token_type
__root, __root,
__list,__hash, __list,__hash,
__hash_member,
__call_function,__list_search,__hash_search, __call_function,__list_search,__hash_search,
__block, __block,
__definition,__assignment, __definition,__assignment,
@ -95,6 +96,7 @@ void print_token(int type)
case __root: context="root";break; case __root: context="root";break;
case __list: context="list";break; case __list: context="list";break;
case __hash: context="hash";break; case __hash: context="hash";break;
case __hash_member: context="hash_member";break;
case __call_function: context="call_func";break; case __call_function: context="call_func";break;
case __list_search: context="call_list";break; case __list_search: context="call_list";break;
case __hash_search: context="call_hash";break; case __hash_search: context="call_hash";break;