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

update

This commit is contained in:
Valk Richard Li 2020-06-29 00:03:10 -07:00 committed by GitHub
parent 1bbf102985
commit 8b4514ab2e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 194 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
version3.0/nasal.ebnf
View File

@ -94,10 +94,10 @@ definition::=
|'(' var multi_id ')' '=' (calculation | multi_scalar) |'(' var multi_id ')' '=' (calculation | multi_scalar)
; ;
multi_id::= multi_id::=
{id ','} <id> <id> {',' id}
; ;
multi_scalar::= multi_scalar::=
'(' {calculation ','} <calculation> ')' '(' <calculation> {',' calculation} ')'
; ;
multi_assignment::= multi_assignment::=
multi_scalar '=' multi_scalar multi_scalar '=' multi_scalar

7
version3.0/nasal_enum.h
View File

@ -33,6 +33,7 @@ enum ast_node
ast_trinocular, ast_trinocular,
ast_for,ast_forindex,ast_foreach,ast_while, ast_for,ast_forindex,ast_foreach,ast_while,
ast_if,ast_elsif,ast_else, ast_if,ast_elsif,ast_else,
ast_multi_id,ast_multi_scalar,
ast_definition,ast_multi_assign,ast_calculation, ast_definition,ast_multi_assign,ast_calculation,
ast_continue,ast_break,ast_return, ast_continue,ast_break,ast_return,
}; };
@ -44,11 +45,14 @@ enum parse_error
lack_left_curve, lack_left_curve,
lack_right_curve, lack_right_curve,
lack_left_bracket, lack_left_bracket,
lack_right_bracket,
lack_left_brace, lack_left_brace,
lack_right_brace, lack_right_brace,
exprs_lack_rbrace,
lack_semi, lack_semi,
lack_comma, lack_comma,
lack_colon, lack_colon,
lack_equal,
lack_scalar, lack_scalar,
lack_identifier, lack_identifier,
lack_calculation, lack_calculation,
@ -67,11 +71,14 @@ void error_info(int line,int error_type,std::string error_str="")
case lack_left_curve: detail="expected \'(\'."; break; case lack_left_curve: detail="expected \'(\'."; break;
case lack_right_curve: detail="expected \')\'."; break; case lack_right_curve: detail="expected \')\'."; break;
case lack_left_bracket: detail="expected \'[\'."; break; case lack_left_bracket: detail="expected \'[\'."; break;
case lack_right_bracket:detail="expected \']\'."; break;
case lack_left_brace: detail="expected \'{\'."; break; case lack_left_brace: detail="expected \'{\'."; break;
case lack_right_brace: detail="expected \'}\'."; break; case lack_right_brace: detail="expected \'}\'."; break;
case exprs_lack_rbrace: detail="expected \'}\' with this line\'s \'{\'.";break;
case lack_semi: detail="expected \';\'."; break; case lack_semi: detail="expected \';\'."; break;
case lack_comma: detail="expected \',\'."; break; case lack_comma: detail="expected \',\'."; break;
case lack_colon: detail="expected \':\'."; break; case lack_colon: detail="expected \':\'."; break;
case lack_equal: detail="expected \'=\'."; break;
case lack_scalar: detail="expected scalar here."; break; case lack_scalar: detail="expected scalar here."; break;
case lack_identifier: detail="expected identifier here."; break; case lack_identifier: detail="expected identifier here."; break;
case lack_calculation: detail="expected arithmetic-expression here."; break; case lack_calculation: detail="expected arithmetic-expression here."; break;

235
version3.0/nasal_parse.h
View File

@ -3,6 +3,10 @@
class nasal_parse class nasal_parse
{ {
#ifndef error_line
#define error_line tok_list[ptr>=tok_list_size? tok_list_size-1:ptr].line
#endif
private: private:
int tok_list_size; int tok_list_size;
int ptr; int ptr;
@ -10,6 +14,8 @@ private:
nasal_ast root; nasal_ast root;
std::vector<token> tok_list; std::vector<token> tok_list;
void reset(); void reset();
bool check_multi_definition();
bool check_multi_scalar();
bool check_function_end(nasal_ast&); bool check_function_end(nasal_ast&);
bool check_special_call(); bool check_special_call();
nasal_ast nil_gen(); nasal_ast nil_gen();
@ -73,7 +79,7 @@ void nasal_parse::clear()
void nasal_parse::set_toklist(std::vector<token>& lex_token) void nasal_parse::set_toklist(std::vector<token>& lex_token)
{ {
this->tok_list=lex_token; this->tok_list=lex_token;
tok_list_size=this->tok_list.size(); this->tok_list_size=this->tok_list.size();
return; return;
} }
@ -90,7 +96,7 @@ void nasal_parse::main_process()
else if(ptr<tok_list_size && (root.get_children().empty() || !check_function_end(root.get_children().back()))) else if(ptr<tok_list_size && (root.get_children().empty() || !check_function_end(root.get_children().back())))
{ {
++error; ++error;
error_info(tok_list[ptr].line,lack_semi); error_info(error_line,lack_semi);
} }
} }
std::cout<<">> [parse] complete generation. "<<error<<" error(s)."<<std::endl; std::cout<<">> [parse] complete generation. "<<error<<" error(s)."<<std::endl;
@ -105,6 +111,40 @@ void nasal_parse::reset()
return; return;
} }
bool nasal_parse::check_multi_definition()
{
return ptr+1<tok_list_size && tok_list[ptr+1].type==tok_var;
}
bool nasal_parse::check_multi_scalar()
{
bool ret=false;
int check_ptr=ptr,curve_cnt=1,bracket_cnt=0,brace_cnt=0;
while(curve_cnt)
{
++check_ptr;
if(check_ptr<tok_list_size)
{
switch(tok_list[check_ptr].type)
{
case tok_left_curve:++curve_cnt;break;
case tok_left_bracket:++bracket_cnt;break;
case tok_left_brace:++brace_cnt;break;
case tok_right_curve:--curve_cnt;break;
case tok_right_bracket:--bracket_cnt;break;
case tok_right_brace:--brace_cnt;break;
}
}
else break;
if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_comma)
{
ret=true;
break;
}
}
return ret;
}
bool nasal_parse::check_function_end(nasal_ast& node) bool nasal_parse::check_function_end(nasal_ast& node)
{ {
if(node.get_type()==ast_function) if(node.get_type()==ast_function)
@ -118,17 +158,23 @@ bool nasal_parse::check_function_end(nasal_ast& node)
bool nasal_parse::check_special_call() bool nasal_parse::check_special_call()
{ {
int tmp=ptr+1; // special call means like this:
// function_name(a:1,b:2,c:3);
int check_ptr=ptr+1;
int curve_cnt=1; int curve_cnt=1;
bool ret=false; bool ret=false;
while(tmp<tok_list_size && curve_cnt && !ret) while(check_ptr<tok_list_size && curve_cnt && !ret)
{ {
switch(tok_list[ptr].type) switch(tok_list[check_ptr].type)
{ {
case tok_left_curve:++curve_cnt;break; case tok_left_curve:++curve_cnt;break;
case tok_right_curve:--curve_cnt;break; case tok_right_curve:--curve_cnt;break;
} }
ret=(curve_cnt==1 && tok_list[ptr].type==tok_colon); if(curve_cnt==1 && tok_list[check_ptr].type==tok_colon)
{
ret=true;
break;
}
} }
return ret; return ret;
} }
@ -136,6 +182,7 @@ bool nasal_parse::check_special_call()
nasal_ast nasal_parse::nil_gen() nasal_ast nasal_parse::nil_gen()
{ {
nasal_ast node; nasal_ast node;
if(ptr>=tok_list_size) return node;
node.set_line(tok_list[ptr].line); node.set_line(tok_list[ptr].line);
node.set_type(ast_nil); node.set_type(ast_nil);
return node; return node;
@ -181,11 +228,16 @@ nasal_ast nasal_parse::vector_gen()
if(ptr<tok_list_size && tok_list[ptr].type==tok_comma) ++ptr; if(ptr<tok_list_size && tok_list[ptr].type==tok_comma) ++ptr;
else if(ptr<tok_list_size && tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_bracket) else if(ptr<tok_list_size && tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_bracket)
{ {
error_info(tok_list[ptr].line,lack_comma); error_info(error_line,lack_comma);
++error; ++error;
break; break;
} }
} }
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
{
++error;
error_info(error_line,lack_right_bracket);
}
return node; return node;
} }
nasal_ast nasal_parse::hash_gen() nasal_ast nasal_parse::hash_gen()
@ -198,23 +250,27 @@ nasal_ast nasal_parse::hash_gen()
{ {
node.add_child(hash_member_gen()); node.add_child(hash_member_gen());
++ptr; ++ptr;
if(ptr>=tok_list_size) break;
if(ptr<tok_list_size && tok_list[ptr].type==tok_comma) ++ptr; if(ptr<tok_list_size && tok_list[ptr].type==tok_comma) ++ptr;
if(ptr<tok_list_size && tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_brace) else if(ptr<tok_list_size && tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_brace)
{ {
error_info(tok_list[ptr].line,lack_comma); error_info(error_line,lack_comma);
++error; ++error;
break; break;
} }
} }
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
{
++error;
error_info(error_line,lack_right_brace);
}
return node; return node;
} }
nasal_ast nasal_parse::hash_member_gen() nasal_ast nasal_parse::hash_member_gen()
{ {
nasal_ast node; nasal_ast node;
if(tok_list[ptr].type!=tok_identifier) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
{ {
error_info(tok_list[ptr].line,lack_identifier); error_info(error_line,lack_identifier);
return node; return node;
} }
node.set_line(tok_list[ptr].line); node.set_line(tok_list[ptr].line);
@ -223,7 +279,7 @@ nasal_ast nasal_parse::hash_member_gen()
++ptr; ++ptr;
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon)
{ {
error_info(ptr>=tok_list_size?node.get_line():tok_list[ptr].line,lack_colon); error_info(error_line,lack_colon);
++error; ++error;
return node; return node;
} }
@ -231,7 +287,7 @@ nasal_ast nasal_parse::hash_member_gen()
if(ptr<tok_list_size) node.add_child(calculation()); if(ptr<tok_list_size) node.add_child(calculation());
else else
{ {
error_info(node.get_line(),lack_scalar); error_info(error_line,lack_scalar);
++error; ++error;
} }
return node; return node;
@ -244,7 +300,7 @@ nasal_ast nasal_parse::func_gen()
++ptr; ++ptr;
if(ptr>=tok_list_size) if(ptr>=tok_list_size)
{ {
error_info(node.get_line(),lack_left_curve); error_info(error_line,lack_left_curve);
++error; ++error;
return node; return node;
} }
@ -255,7 +311,7 @@ nasal_ast nasal_parse::func_gen()
} }
if(ptr>=tok_list_size) if(ptr>=tok_list_size)
{ {
error_info(node.get_line(),lack_left_brace); error_info(error_line,lack_left_brace);
++error; ++error;
return node; return node;
} }
@ -264,7 +320,6 @@ nasal_ast nasal_parse::func_gen()
} }
nasal_ast nasal_parse::args_list_gen() nasal_ast nasal_parse::args_list_gen()
{ {
int last_id_line;
nasal_ast node; nasal_ast node;
node.set_line(tok_list[ptr].line); node.set_line(tok_list[ptr].line);
node.set_type(ast_args); node.set_type(ast_args);
@ -279,7 +334,6 @@ nasal_ast nasal_parse::args_list_gen()
return node; return node;
} }
tmp=id_gen(); tmp=id_gen();
last_id_line=tmp.get_line();
++ptr; ++ptr;
if(ptr<tok_list_size && (tok_list[ptr].type==tok_equal || tok_list[ptr].type==tok_ellipsis)) if(ptr<tok_list_size && (tok_list[ptr].type==tok_equal || tok_list[ptr].type==tok_ellipsis))
{ {
@ -307,7 +361,7 @@ nasal_ast nasal_parse::args_list_gen()
if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_curve)) if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_curve))
{ {
++error; ++error;
error_info(last_id_line,lack_comma); error_info(error_line,lack_comma);
--ptr; --ptr;
} }
} }
@ -329,6 +383,14 @@ nasal_ast nasal_parse::expr()
case tok_sub: case tok_sub:
case tok_not: node=calculation(); break; case tok_not: node=calculation(); break;
case tok_var: node=definition(); break; case tok_var: node=definition(); break;
case tok_left_curve:
if(check_multi_definition())
node=definition();
else if(check_multi_scalar())
node=multi_assgin();
else
node=calculation();
break;
case tok_for: case tok_for:
case tok_forindex: case tok_forindex:
case tok_foreach: case tok_foreach:
@ -338,7 +400,7 @@ nasal_ast nasal_parse::expr()
case tok_break: node=break_expr(); break; case tok_break: node=break_expr(); break;
case tok_return: node=return_expr(); break; case tok_return: node=return_expr(); break;
case tok_semi: --ptr; break; case tok_semi: --ptr; break;
default: error_info(tok_list[ptr].line,error_token,tok_list[ptr].str);++error;break; default: error_info(error_line,error_token,tok_list[ptr].str);++error;break;
} }
return node; return node;
} }
@ -349,6 +411,7 @@ nasal_ast nasal_parse::exprs_gen()
node.set_type(ast_block); node.set_type(ast_block);
if(tok_list[ptr].type==tok_left_brace) if(tok_list[ptr].type==tok_left_brace)
{ {
int left_brace_line=tok_list[ptr].line;
while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_brace) while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_brace)
{ {
node.add_child(expr()); node.add_child(expr());
@ -357,12 +420,12 @@ nasal_ast nasal_parse::exprs_gen()
else if(ptr<tok_list_size && (node.get_children().empty() || !check_function_end(node.get_children().back()))) else if(ptr<tok_list_size && (node.get_children().empty() || !check_function_end(node.get_children().back())))
{ {
++error; ++error;
error_info(tok_list[ptr].line,lack_semi); error_info(error_line,lack_semi);
} }
} }
if(ptr>=tok_list_size) if(ptr>=tok_list_size)
{ {
error_info(node.get_line(),lack_right_brace); error_info(left_brace_line,exprs_lack_rbrace);
++error; ++error;
} }
} }
@ -388,17 +451,17 @@ nasal_ast nasal_parse::calculation()
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(calculation()); if(ptr<tok_list_size) tmp.add_child(calculation());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
++ptr; ++ptr;
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon)
{ {
++error; ++error;
error_info(tmp.get_line(),lack_colon); error_info(error_line,lack_colon);
return node; return node;
} }
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(calculation()); if(ptr<tok_list_size) tmp.add_child(calculation());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
node=tmp; node=tmp;
} }
else if( else if(
@ -427,7 +490,7 @@ nasal_ast nasal_parse::calculation()
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(calculation()); if(ptr<tok_list_size) tmp.add_child(calculation());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
node=tmp; node=tmp;
} }
else --ptr; else --ptr;
@ -446,7 +509,7 @@ nasal_ast nasal_parse::or_expr()
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(and_expr()); if(ptr<tok_list_size) tmp.add_child(and_expr());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
node=tmp; node=tmp;
++ptr; ++ptr;
} }
@ -466,7 +529,7 @@ nasal_ast nasal_parse::and_expr()
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(cmp_expr()); if(ptr<tok_list_size) tmp.add_child(cmp_expr());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
node=tmp; node=tmp;
++ptr; ++ptr;
} }
@ -504,7 +567,7 @@ nasal_ast nasal_parse::cmp_expr()
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(additive_expr()); if(ptr<tok_list_size) tmp.add_child(additive_expr());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
node=tmp; node=tmp;
++ptr; ++ptr;
} }
@ -529,7 +592,7 @@ nasal_ast nasal_parse::additive_expr()
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child(multive_expr()); if(ptr<tok_list_size) tmp.add_child(multive_expr());
else{ ++error; error_info(tmp.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
node=tmp; node=tmp;
++ptr; ++ptr;
} }
@ -552,8 +615,14 @@ nasal_ast nasal_parse::multive_expr()
} }
tmp.add_child(node); tmp.add_child(node);
++ptr; ++ptr;
if(ptr<tok_list_size) tmp.add_child((tok_list[ptr].type==tok_sub || tok_list[ptr].type==tok_not)?unary():scalar()); if(ptr<tok_list_size)
else{ ++error; error_info(tmp.get_line(),lack_calculation);} tmp.add_child((tok_list[ptr].type==tok_sub || tok_list[ptr].type==tok_not)?unary():scalar());
else
{
++error;
error_info(error_line,lack_calculation);
break;
}
node=tmp; node=tmp;
++ptr; ++ptr;
} }
@ -571,7 +640,7 @@ nasal_ast nasal_parse::unary()
} }
++ptr; ++ptr;
if(ptr<tok_list_size) node.add_child(scalar()); if(ptr<tok_list_size) node.add_child(scalar());
else{ ++error; error_info(node.get_line(),lack_calculation);} else{ ++error; error_info(error_line,lack_calculation);}
return node; return node;
} }
nasal_ast nasal_parse::scalar() nasal_ast nasal_parse::scalar()
@ -592,7 +661,6 @@ nasal_ast nasal_parse::scalar()
node=hash_gen(); node=hash_gen();
else if(tok_list[ptr].type==tok_left_curve) else if(tok_list[ptr].type==tok_left_curve)
{ {
int curve_line=tok_list[ptr].line;
++ptr; ++ptr;
if(ptr<tok_list_size) node=calculation(); if(ptr<tok_list_size) node=calculation();
else{ ++error; error_info(node.get_line(),lack_calculation);} else{ ++error; error_info(node.get_line(),lack_calculation);}
@ -600,14 +668,14 @@ nasal_ast nasal_parse::scalar()
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
{ {
++error; ++error;
error_info(curve_line,lack_right_curve); error_info(error_line,lack_right_curve);
} }
} }
else else
{ {
++error; ++error;
error_info(tok_list[ptr].line,lack_scalar); error_info(error_line,lack_scalar);
return nil_gen(); return node;
} }
++ptr; ++ptr;
if(ptr<tok_list_size && (tok_list[ptr].type==tok_left_curve || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_dot)) if(ptr<tok_list_size && (tok_list[ptr].type==tok_left_curve || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_dot))
@ -640,8 +708,13 @@ nasal_ast nasal_parse::call_hash()
node.set_line(tok_list[ptr].line); node.set_line(tok_list[ptr].line);
node.set_type(ast_call_hash); node.set_type(ast_call_hash);
++ptr; ++ptr;
if(ptr<tok_list_size && tok_list[ptr].type==tok_identifier) node.set_str(tok_list[ptr].str); if(ptr<tok_list_size && tok_list[ptr].type==tok_identifier)
else{ ++error; error_info(node.get_line(),lack_identifier);} node.set_str(tok_list[ptr].str);
else
{
++error;
error_info(error_line,lack_identifier);
}
return node; return node;
} }
nasal_ast nasal_parse::call_vector() nasal_ast nasal_parse::call_vector()
@ -658,10 +731,15 @@ nasal_ast nasal_parse::call_vector()
else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket) else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
{ {
++error; ++error;
error_info(node.get_line(),lack_comma); error_info(error_line,lack_comma);
break; break;
} }
} }
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
{
++error;
error_info(error_line,lack_right_bracket);
}
return node; return node;
} }
nasal_ast nasal_parse::call_func() nasal_ast nasal_parse::call_func()
@ -679,9 +757,14 @@ nasal_ast nasal_parse::call_func()
else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_comma || tok_list[ptr].type!=tok_right_curve) else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_comma || tok_list[ptr].type!=tok_right_curve)
{ {
++error; ++error;
error_info(node.get_line(),lack_comma); error_info(error_line,lack_comma);
} }
} }
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
{
++error;
error_info(error_line,lack_right_curve);
}
return node; return node;
} }
nasal_ast nasal_parse::subvec() nasal_ast nasal_parse::subvec()
@ -718,11 +801,63 @@ nasal_ast nasal_parse::subvec()
nasal_ast nasal_parse::definition() nasal_ast nasal_parse::definition()
{ {
nasal_ast node; nasal_ast node;
node.set_line(tok_list[ptr].line);
node.set_type(ast_definition);
if(tok_list[ptr].type==tok_var)
{
++ptr;
// unfinished
}
else if(tok_list[ptr].type==tok_left_curve)
{
++ptr;
node.add_child(multi_id());
++ptr;
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
{
++error;
error_info(error_line,lack_right_curve);
return node;
}
++ptr;
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_equal)
{
++error;
error_info(error_line,lack_equal);
return node;
}
++ptr;
// unfinished
}
return node; return node;
} }
nasal_ast nasal_parse::multi_id() nasal_ast nasal_parse::multi_id()
{ {
nasal_ast node; nasal_ast node;
if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
{
++error;
error_info(error_line,lack_identifier);
return node;
}
node.set_line(tok_list[ptr].line);
node.set_type(ast_multi_id);
node.add_child(id_gen());
++ptr;
while(ptr<tok_list_size && tok_list[ptr].type==tok_comma)
{
++ptr;
if(ptr<tok_list_size && tok_list[ptr].type==tok_identifier)
node.add_child(id_gen());
else
{
++error;
error_info(error_line,lack_identifier);
break;
}
++ptr;
}
--ptr;
return node; return node;
} }
nasal_ast nasal_parse::multi_scalar() nasal_ast nasal_parse::multi_scalar()
@ -738,10 +873,10 @@ nasal_ast nasal_parse::multi_assgin()
nasal_ast nasal_parse::loop() nasal_ast nasal_parse::loop()
{ {
nasal_ast node; nasal_ast node;
if(ptr>tok_list_size) if(ptr>=tok_list_size)
{ {
++error; ++error;
error_info(tok_list.back().line,lack_token,"loop"); error_info(error_line,lack_token,"loop");
return node; return node;
} }
switch(tok_list[ptr].type) switch(tok_list[ptr].type)
@ -767,13 +902,13 @@ nasal_ast nasal_parse::while_loop()
else else
{ {
++error; ++error;
error_info(node.get_line(),lack_left_curve); error_info(error_line,lack_left_curve);
} }
++ptr; ++ptr;
if(ptr>tok_list_size || tok_list[ptr].type!=tok_right_curve) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
{ {
++error; ++error;
error_info(node.get_line(),lack_right_curve); error_info(error_line,lack_right_curve);
} }
++ptr; ++ptr;
node.add_child(exprs_gen()); node.add_child(exprs_gen());
@ -785,10 +920,10 @@ nasal_ast nasal_parse::for_loop()
node.set_line(tok_list[ptr].line); node.set_line(tok_list[ptr].line);
node.set_type(ast_for); node.set_type(ast_for);
++ptr; ++ptr;
if(ptr>tok_list_size || tok_list[ptr].type!=tok_left_curve) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
{ {
++error; ++error;
error_info(node.get_line(),lack_left_curve); error_info(error_line,lack_left_curve);
} }
++ptr; ++ptr;
// unfinished // unfinished
@ -804,10 +939,10 @@ nasal_ast nasal_parse::forei_loop()
case tok_foreach: node.set_type(ast_foreach); break; case tok_foreach: node.set_type(ast_foreach); break;
} }
++ptr; ++ptr;
if(ptr>tok_list_size || tok_list[ptr].type!=tok_left_curve) if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
{ {
++error; ++error;
error_info(node.get_line(),lack_left_curve); error_info(error_line,lack_left_curve);
} }
++ptr; ++ptr;
// unfinished // unfinished