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-08-01 02:35:43 -07:00 committed by GitHub
parent 168d9dbc3f
commit 0b0b0daf11
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 151 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

149
version3.0/nasal_gc.h
View File

@ -40,10 +40,14 @@ class nasal_closure
{
private:
// this int points to the space in nasal_vm::memory_manager_memory
std::map<std::string,int> elems;
// and this memory_manager_memory space stores an address to garbage_collector_memory
// and this address points to an nasal_hash
std::list<int> elems;
public:
nasal_closure();
~nasal_closure();
void add_scope();
void del_scope();
};
class nasal_scalar
@ -58,6 +62,10 @@ public:
bool set_type(int);
void set_number(double);
void set_string(std::string);
nasal_vector& get_vector();
nasal_hash& get_hash();
nasal_function& get_func();
nasal_closure& get_closure();
// parameter: memory_manager_memory address
int nasal_scalar_add(int,int);
int nasal_scalar_sub(int,int);
@ -109,8 +117,11 @@ public:
/*
nasal runtime virtual machine
nasal_scalar_calculator gives functions that calculate nasal_scalar
example: nasal_scalar_calculator.nasal_scalar_add(0x00007c00,0x0000aa55)
*/
nasal_virtual_machine nasal_vm;
nasal_scalar nasal_scalar_calculator;
/*functions of nasal_vector*/
nasal_vector::nasal_vector()
@ -190,11 +201,29 @@ nasal_closure::nasal_closure()
}
nasal_closure::~nasal_closure()
{
for(std::map<std::string,int>::iterator iter=elems.begin();iter!=elems.end();++iter)
nasal_vm.mem_free(iter->second);
for(std::list<int>::iterator iter=elems.begin();iter!=elems.end();++iter)
nasal_vm.mem_free(*iter);
elems.clear();
return;
}
void nasal_closure::add_scope()
{
int hash_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(hash_address).set_type(vm_hash);
int scope_memory_address=nasal_vm.mem_alloc();
nasal_vm.mem_store(scope_memory_address,hash_address);
this->elems.push_back(scope_memory_address);
return;
}
void nasal_closure::del_scope()
{
if(this->elems.empty())
return;
int scope_memory_address=this->elems.back();
this->elems.pop_back();
nasal_vm.mem_free(scope_memory_address);
return;
}
/*functions of nasal_scalar*/
nasal_scalar::nasal_scalar()
@ -264,6 +293,22 @@ void nasal_scalar::set_string(std::string str)
*(std::string*)(this->scalar_ptr)=str;
return;
}
nasal_vector& nasal_scalar::get_vector()
{
return *(nasal_vector*)(this->scalar_ptr);
}
nasal_hash& nasal_scalar::get_hash()
{
return *(nasal_hash*)(this->scalar_ptr);
}
nasal_function& nasal_scalar::get_func()
{
return *(nasal_function*)(this->scalar_ptr);
}
nasal_closure& nasal_scalar::get_closure()
{
return *(nasal_closure*)(this->scalar_ptr);
}
int nasal_scalar::nasal_scalar_add(int a,int b)
{
int a_scalar_addr=nasal_vm.mem_get(a);
@ -566,10 +611,51 @@ int nasal_scalar::nasal_scalar_cmp_equal(int a,int b)
}
nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
//unfinished
if(a_ref.type==vm_nil && b_ref.type==vm_nil)
{
int new_value_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(new_value_address).set_type(vm_number);
nasal_vm.gc_get(new_value_address).set_number(1);
return new_value_address;
}
else if((a_ref.type==vm_number || a_ref.type==vm_string) && (b_ref.type==vm_number || b_ref.type==vm_string))
{
double a_num;
double b_num;
if(a_ref.type==vm_number) a_num=*(double*)a_ref.scalar_ptr;
else
{
if(check_numerable_string(*(std::string*)a_ref.scalar_ptr))
a_num=trans_string_to_number(*(std::string*)a_ref.scalar_ptr);
else
{
std::cout<<">> [vm] scalar_cmp_equal: "<<*(std::string*)a_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
return -1;
}
}
if(b_ref.type==vm_number) b_num=*(double*)b_ref.scalar_ptr;
else
{
if(check_numerable_string(*(std::string*)b_ref.scalar_ptr))
b_num=trans_string_to_number(*(std::string*)b_ref.scalar_ptr);
else
{
std::cout<<">> [vm] scalar_cmp_equal: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
return -1;
}
}
int new_value_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(new_value_address).set_type(vm_number);
nasal_vm.gc_get(new_value_address).set_number((double)(a_num==b_num));
return new_value_address;
}
else
{
int new_value_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(new_value_address).set_type(vm_number);
nasal_vm.gc_get(new_value_address).set_number(0);
return new_value_address;
}
return -1;
}
int nasal_scalar::nasal_scalar_cmp_not_equal(int a,int b)
@ -590,10 +676,51 @@ int nasal_scalar::nasal_scalar_cmp_not_equal(int a,int b)
}
nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
//unfinished
if(a_ref.type==vm_nil && b_ref.type==vm_nil)
{
int new_value_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(new_value_address).set_type(vm_number);
nasal_vm.gc_get(new_value_address).set_number(0);
return new_value_address;
}
else if((a_ref.type==vm_number || a_ref.type==vm_string) && (b_ref.type==vm_number || b_ref.type==vm_string))
{
double a_num;
double b_num;
if(a_ref.type==vm_number) a_num=*(double*)a_ref.scalar_ptr;
else
{
if(check_numerable_string(*(std::string*)a_ref.scalar_ptr))
a_num=trans_string_to_number(*(std::string*)a_ref.scalar_ptr);
else
{
std::cout<<">> [vm] scalar_cmp_equal: "<<*(std::string*)a_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
return -1;
}
}
if(b_ref.type==vm_number) b_num=*(double*)b_ref.scalar_ptr;
else
{
if(check_numerable_string(*(std::string*)b_ref.scalar_ptr))
b_num=trans_string_to_number(*(std::string*)b_ref.scalar_ptr);
else
{
std::cout<<">> [vm] scalar_cmp_equal: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
return -1;
}
}
int new_value_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(new_value_address).set_type(vm_number);
nasal_vm.gc_get(new_value_address).set_number((double)(a_num!=b_num));
return new_value_address;
}
else
{
int new_value_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(new_value_address).set_type(vm_number);
nasal_vm.gc_get(new_value_address).set_number(1);
return new_value_address;
}
return -1;
}
int nasal_scalar::nasal_scalar_cmp_less(int a,int b)

13
version3.0/nasal_runtime.h
View File

@ -4,6 +4,8 @@
class nasal_runtime
{
private:
// global_scope_address is address in garbage_collector_memory,NOT memory_manager_memory
int global_scope_address;
nasal_ast root;
std::stack<int> function_position;
std::stack<int> running_stack;
@ -11,6 +13,7 @@ private:
public:
nasal_runtime();
~nasal_runtime();
void run();
};
nasal_runtime::nasal_runtime()
@ -35,5 +38,15 @@ nasal_runtime::~nasal_runtime()
closure_stack.pop();
return;
}
void nasal_runtime::run()
{
global_scope_address=nasal_vm.gc_alloc();
nasal_vm.gc_get(global_scope_address).set_type(vm_closure);
nasal_vm.gc_get(global_scope_address).get_closure().add_scope();
nasal_vm.gc_get(global_scope_address).get_closure().del_scope();
nasal_vm.del_reference(global_scope_address);
return;
}
#endif