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-02-29 00:55:44 +08:00 committed by GitHub
parent 5d60c9df8f
commit dc4ab9707e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 211 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
version2.0/nasal_ast.h
View File

@ -240,6 +240,30 @@ ast:
str: str
str: str
source code:
[0,1,2,3][0:2];
ast:
root
vector:
num: 0
num: 1
num: 2
num: 3
call_vector
sub_vector
num: 0
num: 2
source code:
{hello:"world"}.hello;
ast:
root
hash
hash_member
id: hello
str: world
call_hash: hello
source code:
1+2*(1-3)/4~'str';
ast:
@ -373,13 +397,13 @@ id.id.id.id.id.id.id.id;
ast:
root
id: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
call_hash: id
source code:
function(a,b,c,d,e);
@ -436,6 +460,18 @@ ast:
id: c
num: 3
source code:
(func{print(1);})();
ast:
root
function
parameters
block
id: print
call_function
num: 1
call_function
source code:
while(id)
{

182
version2.0/nasal_runtime.h
View File

@ -4,32 +4,186 @@
class nasal_runtime
{
private:
sym_hash_map global;
// local hash_map will be used when running
sym_hash_map global_scope;
// see detail of each enum type in function error_interrupt(const int)
enum runtime_error_type
{
__incorrect_head_of_tree,
__incorrect_head_of_func,
__stack_overflow,
};
void error_interrupt (const int);
void delete_total_scope(std::list<std::map<std::string,int> >&);
void delete_last_scope (std::list<std::map<std::string,int> >&);
void func_proc (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
void call_identifier (abstract_syntax_tree&);
void calculation (abstract_syntax_tree&);
void assignment (abstract_syntax_tree&);
void definition (abstract_syntax_tree&);
void loop (abstract_syntax_tree&);
void conditional (abstract_syntax_tree&);
public:
nasal_runtime()
{
global.set_clear();
global_scope.set_clear();
nasal_gc.gc_init();
return;
}
~nasal_runtime()
{
global.set_clear();
nasal_gc.gc_init();
return;
}
void func_proc()
{
return;
}
void main_proc(abstract_syntax_tree& root)
{
// init
global.set_clear();
global_scope.set_clear();
nasal_gc.gc_init();
return;
}
void main_proc(abstract_syntax_tree&);
};
void nasal_runtime::error_interrupt(const int type)
{
std::string error_head=">> [Runtime] fatal error: ";
switch (type)
{
case __incorrect_head_of_tree:
std::cout<<error_head<<"the abstract syntax tree's root type is not \'__root\' ."<<std::endl;break;
case __incorrect_head_of_func:
std::cout<<error_head<<"called identifier is not a function ."<<std::endl;break;
case __stack_overflow:
std::cout<<error_head<<"stack overflow ."<<std::endl;break;
default:break;
}
return;
}
void nasal_runtime::delete_total_scope(std::list<std::map<std::string,int> >& scope)
{
for(std::list<std::map<std::string,int> >::iterator i=scope.begin();i!=scope.end();++i)
for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
nasal_gc.reference_delete(j->second);
scope.clear();
return;
}
void nasal_runtime::delete_last_scope(std::list<std::map<std::string,int> >& scope)
{
if(scope.empty())
return;
std::list<std::map<std::string,int> >::iterator iter=scope.end();
--iter;
for(std::map<std::string,int>::iterator i=iter->begin();i!=iter->end();++i)
nasal_gc.reference_delete(i->second);
scope.pop_back();
return;
}
void nasal_runtime::func_proc(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& func_root)
{
if(func_root.get_node_type()!=__function)
{
error_interrupt(__incorrect_head_of_func);
return;
}
for(std::list<abstract_syntax_tree>::iterator iter=func_root.get_children().back().get_children().begin();iter!=func_root.get_children().back().get_children().end();++iter)
{
// use local value node_type to avoid calling function too many times.
int node_type=iter->get_node_type();
if(node_type==__number || node_type==__string)
;
// only number or string
else if(node_type==__id)
;
else if(node_type==__vector)
;
else if(node_type==__hash)
;
else if(node_type==__function)
;
else if(node_type==__add_operator || node_type==__sub_operator ||
node_type==__mul_operator || node_type==__div_operator ||
node_type==__link_operator ||
node_type==__cmp_equal || node_type==__cmp_less || node_type==__cmp_more ||
node_type==__cmp_not_equal || node_type==__cmp_less_or_equal || node_type==__cmp_more_or_equal ||
node_type==__and_operator || node_type==__or_operator || node_type==__ques_mark)
;
else if(node_type==__equal)
;
else if(node_type==__add_equal || node_type==__sub_equal || node_type==__div_equal || node_type==__mul_equal || node_type==__link_equal)
;
else if(node_type==__definition)
;
else if(node_type==__conditional)
;
else if(node_type==__while)
;
else if(node_type==__for)
;
else if(node_type==__foreach)
;
else if(node_type==__forindex)
;
else if(node_type==__return)
;
}
return;
}
void nasal_runtime::main_proc(abstract_syntax_tree& root)
{
time_t begin_time,end_time;
begin_time=std::time(NULL);
global_scope.set_clear();
nasal_gc.gc_init();
if(root.get_node_type()!=__root)
{
error_interrupt(__incorrect_head_of_tree);
return;
}
for(std::list<abstract_syntax_tree>::iterator iter=root.get_children().begin();iter!=root.get_children().end();++iter)
{
// use local value node_type to avoid calling function too many times.
int node_type=iter->get_node_type();
if(node_type==__number || node_type==__string)
;
else if(node_type==__id)
{
for(std::list<abstract_syntax_tree>::iterator i=iter->get_children().begin();i!=iter->get_children().end();++i)
;
}
else if(node_type==__vector)
;
else if(node_type==__hash)
;
else if(node_type==__function)
;
else if(node_type==__add_operator || node_type==__sub_operator ||
node_type==__mul_operator || node_type==__div_operator ||
node_type==__link_operator ||
node_type==__cmp_equal || node_type==__cmp_less || node_type==__cmp_more ||
node_type==__cmp_not_equal || node_type==__cmp_less_or_equal || node_type==__cmp_more_or_equal ||
node_type==__and_operator || node_type==__or_operator || node_type==__ques_mark)
;
else if(node_type==__equal)
;
else if(node_type==__add_equal || node_type==__sub_equal || node_type==__div_equal || node_type==__mul_equal || node_type==__link_equal)
;
else if(node_type==__definition)
;
else if(node_type==__conditional)
;
else if(node_type==__while)
;
else if(node_type==__for)
;
else if(node_type==__foreach)
;
else if(node_type==__forindex)
;
}
end_time=std::time(NULL);
std::cout<<">> [Runtime] process exited after "<<end_time-begin_time<<" s ."<<std::endl;
return;
}
#endif