This commit is contained in:
Valk Richard Li 2020-05-11 01:40:44 -07:00 committed by GitHub
parent eed77f11f8
commit 4946685da2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
7 changed files with 246 additions and 232 deletions

View File

@ -10,7 +10,7 @@
# Appends the remaining arguments to the end of the vector. # Appends the remaining arguments to the end of the vector.
var append=func(vector,elements...) var append=func(vector,elements...)
{ {
nasal_call_inline_push_back(vector,elements); nasal_call_builtin_push_back(vector,elements);
return nil; return nil;
} }
@ -21,7 +21,7 @@ var append=func(vector,elements...)
# If it is smaller, it is padded with nil entries.Returns the vector operated upon. # If it is smaller, it is padded with nil entries.Returns the vector operated upon.
var setsize=func(vector,__size) var setsize=func(vector,__size)
{ {
nasal_call_inline_set_size(vector,__size); nasal_call_builtin_set_size(vector,__size);
return nil; return nil;
} }
@ -31,7 +31,7 @@ var setsize=func(vector,__size)
# and the optional third argument indicates a length (the default is to the end of the vector). # and the optional third argument indicates a length (the default is to the end of the vector).
var subvec=func(vector,start,length=nil) var subvec=func(vector,start,length=nil)
{ {
return nasal_call_inline_subvec(vector,start,length); return nasal_call_builtin_subvec(vector,start,length);
} }
# contains # contains
@ -39,7 +39,7 @@ var subvec=func(vector,start,length=nil)
# Returns 1 if the hash contains the scalar as a key, 0 if not. # Returns 1 if the hash contains the scalar as a key, 0 if not.
var contains=func(hash,key) var contains=func(hash,key)
{ {
return nasal_call_inline_contains(hash,key); return nasal_call_builtin_contains(hash,key);
} }
# delete # delete
@ -49,7 +49,7 @@ var contains=func(hash,key)
# but this variant potentially frees storage by deleting the reference to the key and by shrinking the hash. # but this variant potentially frees storage by deleting the reference to the key and by shrinking the hash.
var delete=func(hash,key) var delete=func(hash,key)
{ {
nasal_call_inline_delete(hash,key); nasal_call_builtin_delete(hash,key);
return; return;
} }
@ -58,28 +58,28 @@ var delete=func(hash,key)
# Truncates towards zero, not negative infinity (i.e. it's implemented in C as a double tointeger typecast). # Truncates towards zero, not negative infinity (i.e. it's implemented in C as a double tointeger typecast).
var int=func(value) var int=func(value)
{ {
return nasal_call_inline_trans_int(value); return nasal_call_builtin_trans_int(value);
} }
# num # num
# Returns the numeric value of the single argument, or nil if none exists. # Returns the numeric value of the single argument, or nil if none exists.
var num=func(value) var num=func(value)
{ {
return nasal_call_inline_trans_num(value); return nasal_call_builtin_trans_num(value);
} }
# keys # keys
# Returns a vector containing the list of keys found in the single hash argument. # Returns a vector containing the list of keys found in the single hash argument.
var keys=func(hash) var keys=func(hash)
{ {
return nasal_call_inline_get_keys(hash); return nasal_call_builtin_get_keys(hash);
} }
# pop # pop
# Removes and returns the last element of the single vector argument. # Removes and returns the last element of the single vector argument.
var pop=func(vector) var pop=func(vector)
{ {
return nasal_call_inline_pop_back(vector); return nasal_call_builtin_pop_back(vector);
} }
# size # size
@ -90,7 +90,7 @@ var pop=func(vector)
# Returns nil for number and nil arguments. # Returns nil for number and nil arguments.
var size=func(object) var size=func(object)
{ {
return nasal_call_inline_sizeof(object); return nasal_call_builtin_sizeof(object);
} }
# streq # streq
@ -100,14 +100,14 @@ var size=func(object)
# This is rarely required in typical code. # This is rarely required in typical code.
var streq=func(__a,__b) var streq=func(__a,__b)
{ {
return nasal_call_inline_str_cmp_equal(__a,__b); return nasal_call_builtin_str_cmp_equal(__a,__b);
} }
# cmp # cmp
# Compares two strings, returning -1 if a is less than b, 0 if theyare identical, and 1 if a is greater than b. # Compares two strings, returning -1 if a is less than b, 0 if theyare identical, and 1 if a is greater than b.
var cmp=func(__a,__b) var cmp=func(__a,__b)
{ {
return nasal_call_inline_cmp(__a,__b); return nasal_call_builtin_cmp(__a,__b);
} }
# sort # sort
@ -117,7 +117,7 @@ var cmp=func(__a,__b)
# the sort is stable; "equal" elements in the output vector will appear in the same relative order as they do in the input. # the sort is stable; "equal" elements in the output vector will appear in the same relative order as they do in the input.
var sort=func(vector,function) var sort=func(vector,function)
{ {
nasal_call_inline_cpp_sort(vector,function); nasal_call_builtin_cpp_sort(vector,function);
return; return;
} }
@ -128,28 +128,28 @@ var sort=func(vector,function)
# Example: substr("abcde", 1, 3) returns "bcd". # Example: substr("abcde", 1, 3) returns "bcd".
var substr=func(__string,start,length=nil) var substr=func(__string,start,length=nil)
{ {
return nasal_call_inline_substr(__string,start,length); return nasal_call_builtin_substr(__string,start,length);
} }
# sprintf # sprintf
# Creates and returns a string formatted as per ANSI C sprintf(). # Creates and returns a string formatted as per ANSI C sprintf().
var sprintf=func(__format,var_args...) var sprintf=func(__format,var_args...)
{ {
return nasal_call_inline_sprintf(__format,var_args); return nasal_call_builtin_sprintf(__format,var_args);
} }
# find # find
# Finds and returns the index of the first occurence of the string needle in the string haystack, or -1 if no such occurence was found. # Finds and returns the index of the first occurence of the string needle in the string haystack, or -1 if no such occurence was found.
var find=func(needle,haystack) var find=func(needle,haystack)
{ {
return nasal_call_inline_find_first_occur(needle,haystack); return nasal_call_builtin_find_first_occur(needle,haystack);
} }
# split # split
# Splits the input string into a vector of substrings bounded by occurences of the delimeter substring. # Splits the input string into a vector of substrings bounded by occurences of the delimeter substring.
var split=func(delimeter,__string) var split=func(delimeter,__string)
{ {
return nasal_call_inline_split(delimeter,__string); return nasal_call_builtin_split(delimeter,__string);
} }
# rand # rand
@ -159,7 +159,7 @@ var split=func(delimeter,__string)
# the result should have a full double-precision number's worth of randomness even on systems with a 15 bit rand(). # the result should have a full double-precision number's worth of randomness even on systems with a 15 bit rand().
var rand=func(seed=nil) var rand=func(seed=nil)
{ {
return nasal_call_inline_rand(seed); return nasal_call_builtin_rand(seed);
} }
# id # id
@ -168,5 +168,5 @@ var rand=func(seed=nil)
# Numbers don't have id's and will cause a runtime error if passed to id(). # Numbers don't have id's and will cause a runtime error if passed to id().
var id=func(thing) var id=func(thing)
{ {
return nasal_call_inline_get_id(thing); return nasal_call_builtin_get_id(thing);
} }

View File

@ -14,23 +14,23 @@ var bits=
# The last bit is the low bit of the last byte in the string. # The last bit is the low bit of the last byte in the string.
fld:func(__string,startbit,length) fld:func(__string,startbit,length)
{ {
return nasal_call_built_in_bitcalc(__string,startbit,length); return nasal_call_builtin_bitcalc(__string,startbit,length);
}, },
# As bits.fld(), but interprets the result as a 2's complement signed value. # As bits.fld(), but interprets the result as a 2's complement signed value.
sfld:func(__string,startbit,length) sfld:func(__string,startbit,length)
{ {
return nasal_call_built_in_sbitcalc(__string,startbit,length); return nasal_call_builtin_sbitcalc(__string,startbit,length);
}, },
# Sets the specified value into the bit string at the specified position. # Sets the specified value into the bit string at the specified position.
# The string must be mutable: either the result of a runtime concatenation (the ~ operator) or a call to bits.buf()(see below). # The string must be mutable: either the result of a runtime concatenation (the ~ operator) or a call to bits.buf()(see below).
# Attempts to modify immutable strings (e.g. compile time constants) will produce a runtime error. # Attempts to modify immutable strings (e.g. compile time constants) will produce a runtime error.
setfld:func(__string,startbit,length,value) setfld:func(__string,startbit,length,value)
{ {
return nasal_call_built_in_setbit(__string,startbit,length,value); return nasal_call_builtin_setbit(__string,startbit,length,value);
}, },
# Returns a zero-filled mutable string of the specified length. # Returns a zero-filled mutable string of the specified length.
buf:func(length) buf:func(length)
{ {
return nasal_call_built_in_null_string_gen(length); return nasal_call_builtin_null_string_gen(length);
}, },
}; };

View File

@ -11,12 +11,12 @@ var io=
# Failures are thrown as runtime errors as per die(). # Failures are thrown as runtime errors as per die().
open:func(filename,mode="r") open:func(filename,mode="r")
{ {
return nasal_call_inline_c_fopen(filename,mode); return nasal_call_builtin_c_fopen(filename,mode);
}, },
# Closes the specified file as per ANSI fclose(). # Closes the specified file as per ANSI fclose().
close:func(filehandle) close:func(filehandle)
{ {
nasal_call_inline_c_fclose(filehandle); nasal_call_builtin_c_fclose(filehandle);
return; return;
}, },
# Attempts to read length bytes from the filehandle into the beginning of the mutable string buf. # Attempts to read length bytes from the filehandle into the beginning of the mutable string buf.
@ -24,14 +24,14 @@ var io=
# Returns the number of bytes successfully read. # Returns the number of bytes successfully read.
read:func(filehandle,buf,length) read:func(filehandle,buf,length)
{ {
return nasal_call_inline_c_read(filehandle,buf,length); return nasal_call_builtin_c_read(filehandle,buf,length);
}, },
# Attempts to write the entirety of the specified string to the filehandle. # Attempts to write the entirety of the specified string to the filehandle.
# Failures are thrown as runtime errors as per die(). # Failures are thrown as runtime errors as per die().
# Returns the number of bytes successfully written. # Returns the number of bytes successfully written.
write:func(filehandle,str) write:func(filehandle,str)
{ {
return nasal_call_inline_c_write(filehandle,str); return nasal_call_builtin_c_write(filehandle,str);
}, },
# As ANSI fseek(). # As ANSI fseek().
# Attempts to seek to the specified position based on the whence value # Attempts to seek to the specified position based on the whence value
@ -41,13 +41,13 @@ var io=
SEEK_END:3, SEEK_END:3,
seek:func(filehandle,position,whence) seek:func(filehandle,position,whence)
{ {
nasal_call_inline_c_seek(filehandle,position,whence); nasal_call_builtin_c_seek(filehandle,position,whence);
return; return;
}, },
# Returns the current seek position of the filehandle. # Returns the current seek position of the filehandle.
tell:func(filehandle) tell:func(filehandle)
{ {
return nasal_call_inline_c_tell(filehandle); return nasal_call_builtin_c_tell(filehandle);
}, },
# Reads and returns a single text line from the filehandle. # Reads and returns a single text line from the filehandle.
# Interprets both "\n" and "\r\n" as end of line markers, # Interprets both "\n" and "\r\n" as end of line markers,
@ -55,7 +55,7 @@ var io=
# End offile or error is signaled by returning nil. # End offile or error is signaled by returning nil.
readln:func(filehandle) readln:func(filehandle)
{ {
return nasal_call_inline_builtin_c_getline(filehandle); return nasal_call_builtin_builtin_c_getline(filehandle);
}, },
# Calls unix or win32 stat() on the specified file name and # Calls unix or win32 stat() on the specified file name and
# returns a seven element array whose contents are, # returns a seven element array whose contents are,
@ -63,12 +63,12 @@ var io=
# Errors are signaled as exceptions as per die(). # Errors are signaled as exceptions as per die().
stat:func(filename) stat:func(filename)
{ {
return nasal_call_inline_builtin_stat(filename); return nasal_call_builtin_builtin_stat(filename);
}, },
}; };
var print=func(dyn...) var print=func(dyn...)
{ {
nasal_call_inline_c_std_puts(dyn); nasal_call_builtin_c_std_puts(dyn);
return nil; return nil;
}; };

View File

@ -13,37 +13,37 @@ var math=
# Returns the sine of the single argument # Returns the sine of the single argument
sin:func(x) sin:func(x)
{ {
return nasal_call_inline_sin(x); return nasal_call_builtin_sin(x);
}, },
# Returns the cosine of the single argument # Returns the cosine of the single argument
cos:func(x) cos:func(x)
{ {
return nasal_call_inline_cos(x); return nasal_call_builtin_cos(x);
}, },
# you know what the f*ck this is # you know what the f*ck this is
tan:func(x) tan:func(x)
{ {
return nasal_call_inline_tan(x); return nasal_call_builtin_tan(x);
}, },
# Returns e (Euler's constant) raised to the power specified by the single argument # Returns e (Euler's constant) raised to the power specified by the single argument
exp:func(x) exp:func(x)
{ {
return nasal_call_inline_pow(me.e,x); return nasal_call_builtin_pow(me.e,x);
}, },
# Returns the natural logarithm of the single argument. # Returns the natural logarithm of the single argument.
ln:func(x) ln:func(x)
{ {
return nasal_call_inline_cpp_math_ln(x); return nasal_call_builtin_cpp_math_ln(x);
}, },
# Returns the square root of the single argument. # Returns the square root of the single argument.
sqrt:func(x) sqrt:func(x)
{ {
return nasal_call_inline_cpp_math_sqrt(x); return nasal_call_builtin_cpp_math_sqrt(x);
}, },
# Returns the arctangent of y/x, with the correct sign for the quadrant. # Returns the arctangent of y/x, with the correct sign for the quadrant.
# Wraps the ANSI C function of the same name. # Wraps the ANSI C function of the same name.
atan2:func(x,y) atan2:func(x,y)
{ {
return nasal_call_inline_cpp_atan2(x,y); return nasal_call_builtin_cpp_atan2(x,y);
}, },
}; };

View File

@ -3,7 +3,7 @@ var system=
# print the type of thing on the screen # print the type of thing on the screen
type:func(thing) type:func(thing)
{ {
nasal_call_inline_scalar_type(thing); nasal_call_builtin_scalar_type(thing);
return; return;
} }
}; };

View File

@ -0,0 +1,166 @@
#ifndef __NASAL_BUILTINFUNC_H__
#define __NASAL_BUILTINFUNC_H__
int append(std::list<std::map<std::string,int> >& local_scope)
{
int vector_addr=-1,elements_addr=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
{
if(i->find("vector")!=i->end())
vector_addr=(*i)["vector"];
if(i->find("elements")!=i->end())
elements_addr=(*i)["elements"];
}
if(vector_addr<0 || elements_addr<0)
return -1;
if(nasal_gc.get_scalar(vector_addr).get_type()!=scalar_vector)
{
std::cout<<">> [Runtime] append gets a value that is not a vector."<<std::endl;
return -1;
}
for(int i=0;i<nasal_gc.get_scalar(elements_addr).get_vector().get_size();++i)
{
int data_addr=nasal_gc.get_scalar(elements_addr).get_vector().get_elem(i);
if(data_addr<0)
return -1;
int new_addr=-1;
switch(nasal_gc.get_scalar(data_addr).get_type())
{
case scalar_nil:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_nil);
break;
case scalar_number:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_number);
nasal_gc.get_scalar(new_addr).get_number().deep_copy(nasal_gc.get_scalar(data_addr).get_number());
break;
case scalar_string:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_string);
nasal_gc.get_scalar(new_addr).get_string().deep_copy(nasal_gc.get_scalar(data_addr).get_string());
break;
case scalar_function:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_function);
nasal_gc.get_scalar(new_addr).get_function().deep_copy(nasal_gc.get_scalar(data_addr).get_function());
break;
case scalar_vector:
case scalar_hash:
new_addr=data_addr;
nasal_gc.reference_add(new_addr);
break;
}
nasal_gc.get_scalar(vector_addr).get_vector().vec_push(new_addr);
}
int ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
return ret_addr;
}
int setsize(std::list<std::map<std::string,int> >& local_scope)
{
int vector_addr=-1,size_addr=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
{
if(i->find("vector")!=i->end())
vector_addr=(*i)["vector"];
if(i->find("__size")!=i->end())
size_addr=(*i)["__size"];
}
if(vector_addr<0 || size_addr<0)
return -1;
int vector_size=-1;
int aim_size=-1;
if(nasal_gc.get_scalar(vector_addr).get_type()!=scalar_vector)
{
std::cout<<">> [Runtime] setsize gets a variable that is not a vector."<<std::endl;
return -1;
}
vector_size=nasal_gc.get_scalar(vector_addr).get_vector().get_size();
if(nasal_gc.get_scalar(size_addr).get_type()==scalar_string &&
!check_numerable_string(nasal_gc.get_scalar(size_addr).get_string().get_string()))
{
std::cout<<">> [Runtime] __size is not a numerable string."<<std::endl;
return -1;
}
if(nasal_gc.get_scalar(size_addr).get_type()!=scalar_string &&
nasal_gc.get_scalar(size_addr).get_type()!=scalar_number)
{
std::cout<<">> [Runtime] __size must be a number or numerable string."<<std::endl;
return -1;
}
if(nasal_gc.get_scalar(size_addr).get_type()==scalar_string &&
check_numerable_string(nasal_gc.get_scalar(size_addr).get_string().get_string()))
aim_size=(int)trans_string_to_number(nasal_gc.get_scalar(size_addr).get_string().get_string());
else if(nasal_gc.get_scalar(size_addr).get_type()==scalar_number)
aim_size=(int)nasal_gc.get_scalar(size_addr).get_number().get_number();
if(aim_size<0)
{
std::cout<<">> [Runtime] __size must be greater than 0."<<std::endl;
return -1;
}
if(vector_size<aim_size)
{
for(int i=vector_size;i<aim_size;++i)
{
int new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_nil);
nasal_gc.get_scalar(vector_addr).get_vector().vec_push(new_addr);
}
}
else if(vector_size>aim_size)
for(int i=aim_size;i<vector_size;++i)
{
int pop_addr=nasal_gc.get_scalar(vector_addr).get_vector().vec_pop();
nasal_gc.reference_delete(pop_addr);
}
int ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
return ret_addr;
}
int print(std::list<std::map<std::string,int> >& local_scope)
{
int vector_addr=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
if(i->find("dyn")!=i->end())
vector_addr=(*i)["dyn"];
if(vector_addr<0)
return -1;
for(int i=0;i<nasal_gc.get_scalar(vector_addr).get_vector().get_size();++i)
{
int data_addr=nasal_gc.get_scalar(vector_addr).get_vector().get_elem(i);
if(data_addr<0)
return -1;
switch(nasal_gc.get_scalar(data_addr).get_type())
{
case scalar_nil:break;
case scalar_number:std::cout<<nasal_gc.get_scalar(data_addr).get_number().get_number();break;
case scalar_string:std::cout<<nasal_gc.get_scalar(data_addr).get_string().get_string();break;
case scalar_vector:std::cout<<"[...]";break;
case scalar_hash: std::cout<<"{...}";break;
case scalar_function:std::cout<<"func(...){...}";break;
}
}
int ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
return ret_addr;
}
int system_type(std::list<std::map<std::string,int> >& local_scope)
{
int data=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
if(i->find("thing")!=i->end())
data=(*i)["thing"];
if(data<0)
return -1;
print_scalar_type(nasal_gc.get_scalar(data).get_type());
std::cout<<std::endl;
int ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
return ret_addr;
}
#endif

View File

@ -4,42 +4,42 @@
std::string inline_func_name[nas_lib_func_num]= std::string inline_func_name[nas_lib_func_num]=
{ {
//base.nas //base.nas
"nasal_call_inline_push_back",// append "nasal_call_builtin_push_back",// append
"nasal_call_inline_set_size", // setsize "nasal_call_builtin_set_size", // setsize
"nasal_call_inline_subvec", "nasal_call_builtin_subvec",
"nasal_call_inline_contains", "nasal_call_builtin_contains",
"nasal_call_inline_delete", "nasal_call_builtin_delete",
"nasal_call_inline_trans_int", "nasal_call_builtin_trans_int",
"nasal_call_inline_trans_num", "nasal_call_builtin_trans_num",
"nasal_call_inline_get_keys", "nasal_call_builtin_get_keys",
"nasal_call_inline_pop_back", "nasal_call_builtin_pop_back",
"nasal_call_inline_sizeof", "nasal_call_builtin_sizeof",
"nasal_call_inline_str_cmp_equal", "nasal_call_builtin_str_cmp_equal",
"nasal_call_inline_cmp", "nasal_call_builtin_cmp",
"nasal_call_inline_cpp_sort", "nasal_call_builtin_cpp_sort",
"nasal_call_inline_substr", "nasal_call_builtin_substr",
"nasal_call_inline_sprintf", "nasal_call_builtin_sprintf",
"nasal_call_inline_find_first_occur", "nasal_call_builtin_find_first_occur",
"nasal_call_inline_split", "nasal_call_builtin_split",
"nasal_call_inline_rand", "nasal_call_builtin_rand",
"nasal_call_inline_get_id", "nasal_call_builtin_get_id",
//bits.nas //bits.nas
"nasal_call_built_in_bitcalc", "nasal_call_builtin_bitcalc",
"nasal_call_built_in_sbitcalc", "nasal_call_builtin_sbitcalc",
"nasal_call_built_in_setbit", "nasal_call_builtin_setbit",
"nasal_call_built_in_null_string_gen", "nasal_call_builtin_null_string_gen",
//io.nas //io.nas
"nasal_call_inline_c_std_puts",// print "nasal_call_builtin_c_std_puts",// print
//math.nas //math.nas
"nasal_call_inline_sin", "nasal_call_builtin_sin",
"nasal_call_inline_cos", "nasal_call_builtin_cos",
"nasal_call_inline_tan", "nasal_call_builtin_tan",
"nasal_call_inline_pow", "nasal_call_builtin_pow",
"nasal_call_inline_cpp_math_ln", "nasal_call_builtin_cpp_math_ln",
"nasal_call_inline_cpp_math_sqrt", "nasal_call_builtin_cpp_math_sqrt",
"nasal_call_inline_cpp_atan2", "nasal_call_builtin_cpp_atan2",
//system.nas //system.nas
"nasal_call_inline_scalar_type"//system.type "nasal_call_builtin_scalar_type"//system.type
}; };
class nasal_runtime class nasal_runtime
@ -3000,166 +3000,14 @@ int nasal_runtime::func_proc(
int nasal_runtime::builtin_function(std::list<std::map<std::string,int> >& local_scope,std::string func_name) int nasal_runtime::builtin_function(std::list<std::map<std::string,int> >& local_scope,std::string func_name)
{ {
int ret_addr=-1; int ret_addr=-1;
if(func_name=="nasal_call_inline_push_back") if(func_name=="nasal_call_builtin_push_back")
{ ret_addr=append(local_scope);
// append else if(func_name=="nasal_call_builtin_set_size")
int vector_addr=-1; ret_addr=setsize(local_scope);
int elements_addr=-1; else if(func_name=="nasal_call_builtin_c_std_puts")
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i) ret_addr=print(local_scope);
{ else if(func_name=="nasal_call_builtin_scalar_type")
if(i->find("vector")!=i->end()) ret_addr=system_type(local_scope);
vector_addr=(*i)["vector"];
if(i->find("elements")!=i->end())
elements_addr=(*i)["elements"];
}
if(vector_addr<0 || elements_addr<0)
return -1;
if(nasal_gc.get_scalar(vector_addr).get_type()!=scalar_vector)
{
std::cout<<">> [Runtime] append gets a value that is not a vector."<<std::endl;
return -1;
}
for(int i=0;i<nasal_gc.get_scalar(elements_addr).get_vector().get_size();++i)
{
int data_addr=nasal_gc.get_scalar(elements_addr).get_vector().get_elem(i);
if(data_addr<0)
return -1;
int new_addr=-1;
switch(nasal_gc.get_scalar(data_addr).get_type())
{
case scalar_nil:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_nil);
break;
case scalar_number:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_number);
nasal_gc.get_scalar(new_addr).get_number().deep_copy(nasal_gc.get_scalar(data_addr).get_number());
break;
case scalar_string:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_string);
nasal_gc.get_scalar(new_addr).get_string().deep_copy(nasal_gc.get_scalar(data_addr).get_string());
break;
case scalar_function:
new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_function);
nasal_gc.get_scalar(new_addr).get_function().deep_copy(nasal_gc.get_scalar(data_addr).get_function());
break;
case scalar_vector:
case scalar_hash:
new_addr=data_addr;
nasal_gc.reference_add(new_addr);
break;
}
nasal_gc.get_scalar(vector_addr).get_vector().vec_push(new_addr);
}
ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
}
else if(func_name=="nasal_call_inline_set_size")
{
// setsize
int vector_addr=-1;
int size_addr=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
{
if(i->find("vector")!=i->end())
vector_addr=(*i)["vector"];
if(i->find("__size")!=i->end())
size_addr=(*i)["__size"];
}
if(vector_addr<0 || size_addr<0)
return -1;
int vector_size=-1;
int aim_size=-1;
if(nasal_gc.get_scalar(vector_addr).get_type()!=scalar_vector)
{
std::cout<<">> [Runtime] setsize gets a variable that is not a vector."<<std::endl;
return -1;
}
vector_size=nasal_gc.get_scalar(vector_addr).get_vector().get_size();
if(nasal_gc.get_scalar(size_addr).get_type()==scalar_string &&
!check_numerable_string(nasal_gc.get_scalar(size_addr).get_string().get_string()))
{
std::cout<<">> [Runtime] __size is not a numerable string."<<std::endl;
return -1;
}
if(nasal_gc.get_scalar(size_addr).get_type()!=scalar_string &&
nasal_gc.get_scalar(size_addr).get_type()!=scalar_number)
{
std::cout<<">> [Runtime] __size must be a number or numerable string."<<std::endl;
return -1;
}
if(nasal_gc.get_scalar(size_addr).get_type()==scalar_string &&
check_numerable_string(nasal_gc.get_scalar(size_addr).get_string().get_string()))
aim_size=(int)trans_string_to_number(nasal_gc.get_scalar(size_addr).get_string().get_string());
else if(nasal_gc.get_scalar(size_addr).get_type()==scalar_number)
aim_size=(int)nasal_gc.get_scalar(size_addr).get_number().get_number();
if(aim_size<0)
{
std::cout<<">> [Runtime] __size must be greater than 0."<<std::endl;
return -1;
}
if(vector_size<aim_size)
{
for(int i=vector_size;i<aim_size;++i)
{
int new_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(new_addr).set_type(scalar_nil);
nasal_gc.get_scalar(vector_addr).get_vector().vec_push(new_addr);
}
}
else if(vector_size>aim_size)
for(int i=aim_size;i<vector_size;++i)
{
int pop_addr=nasal_gc.get_scalar(vector_addr).get_vector().vec_pop();
nasal_gc.reference_delete(pop_addr);
}
ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
}
else if(func_name=="nasal_call_inline_c_std_puts")
{
// print
int vector_addr=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
if(i->find("dyn")!=i->end())
vector_addr=(*i)["dyn"];
if(vector_addr<0)
return -1;
for(int i=0;i<nasal_gc.get_scalar(vector_addr).get_vector().get_size();++i)
{
int data_addr=nasal_gc.get_scalar(vector_addr).get_vector().get_elem(i);
if(data_addr<0)
return -1;
switch(nasal_gc.get_scalar(data_addr).get_type())
{
case scalar_nil:break;
case scalar_number:std::cout<<nasal_gc.get_scalar(data_addr).get_number().get_number();break;
case scalar_string:std::cout<<nasal_gc.get_scalar(data_addr).get_string().get_string();break;
case scalar_vector:std::cout<<"[...]";break;
case scalar_hash: std::cout<<"{...}";break;
case scalar_function:std::cout<<"func(...){...}";break;
}
}
ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
}
else if(func_name=="nasal_call_inline_scalar_type")
{
// system.type
int data=-1;
for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
if(i->find("thing")!=i->end())
data=(*i)["thing"];
if(data<0)
return -1;
print_scalar_type(nasal_gc.get_scalar(data).get_type());
std::cout<<std::endl;
ret_addr=nasal_gc.gc_alloc();
nasal_gc.get_scalar(ret_addr).set_type(scalar_nil);
}
return ret_addr; return ret_addr;
} }