diff --git a/NASAL语言教程-完整版.pdf b/NASAL语言教程-完整版.pdf
deleted file mode 100644
index e80601e..0000000
Binary files a/NASAL语言教程-完整版.pdf and /dev/null differ
diff --git a/README.md b/README.md
index f64a156..b825911 100644
--- a/README.md
+++ b/README.md
@@ -25,24 +25,8 @@ I wrote the lexer, parser and runtime(nasal virtual machine/ast-runtime virtual
 They found it easier for them to check errors before copying nasal-codes in nasal-console in Flightgear to test.
   
 # Lexical Analysis
-  
-What do it's outputs look like?
 
-> ( identifier   | start )
-
-> ( operator     | ; )
-
-> ( reserve word | print )
-
-> ( operator     | ( )
-
-> ( string       | Engine started )
-
-> ( operator     | ) )
-
-This is what it outputs.
-
-And the flow chart of lexer is here:
+The flow chart of lexer is here:
 
 [![nasal_lexer.png](pic/nasal_lexer.png?raw=true)](https://github.com/ValKmjolnir/Nasal-Interpreter/blob/master/pic/nasal_lexer.png)
 
diff --git a/version3.0/lib.nas b/lib.nas
similarity index 94%
rename from version3.0/lib.nas
rename to lib.nas
index 35c7843..fa46b87 100644
--- a/version3.0/lib.nas
+++ b/lib.nas
@@ -1,163 +1,163 @@
-var import=func(filename)
-{
-    nasal_call_import(filename);
-    return nil;
-}
-var print=func(elements...)
-{
-    nasal_call_builtin_std_cout(elements);
-    return nil;
-};
-var append=func(vector,elements...)
-{
-    nasal_call_builtin_push_back(vector,elements);
-    return nil;
-}
-var setsize=func(vector,size)
-{
-    nasal_call_builtin_set_size(vector,size);
-    return nil;
-}
-var system=func(str)
-{
-    nasal_call_builtin_system(str);
-    return;
-}
-var input=func()
-{
-    return nasal_call_builtin_input();
-}
-var sleep=func(duration)
-{
-    nasal_call_builtin_sleep(duration);
-    return;
-}
-var split=func(delimeter,string)
-{
-    return nasal_call_builtin_split(delimeter,string);
-}
-var rand=func(seed=nil)
-{
-    return nasal_call_builtin_rand(seed);
-}
-var id=func(thing)
-{
-    return nasal_call_builtin_get_id(thing);
-}
-var int=func(value)
-{
-    return nasal_call_builtin_trans_int(value);
-}
-var num=func(value)
-{
-    return nasal_call_builtin_trans_num(value);
-}
-var pop=func(vector)
-{
-    return nasal_call_builtin_pop_back(vector);
-}
-var str=func(number)
-{
-    return nasal_call_builtin_trans_str(number);
-}
-var size=func(object)
-{
-    return nasal_call_builtin_size(object);
-}
-var contains=func(hash,key)
-{
-    return nasal_call_builtin_contains(hash,key);
-}
-var delete=func(hash,key)
-{
-    nasal_call_builtin_delete(hash,key);
-    return;
-}
-var keys=func(hash)
-{
-    return nasal_call_builtin_get_keys(hash);
-}
-var time=func(begin_time)
-{
-    return nasal_call_builtin_time(begin_time);
-}
-var die=func(str)
-{
-    nasal_call_builtin_die(str);
-    return nil;
-}
-var type=func(object)
-{
-    return nasal_call_builtin_type(object);
-}
-
-var io=
-{
-    fin:func(filename)
-    {
-        return nasal_call_builtin_finput(filename);
-    },
-    fout:func(filename,str)
-    {
-        nasal_call_builtin_foutput(filename,str);
-        return;
-    }
-};
-
-var bits=
-{
-    bitxor:func(a,b)
-    {
-        return nasal_call_builtin_xor(a,b);
-    },
-    bitand:func(a,b)
-    {
-        return nasal_call_builtin_and(a,b);
-    },
-    bitor:func(a,b)
-    {
-        return nasal_call_builtin_or(a,b);
-    },
-    bitnand:func(a,b)
-    {
-        return nasal_call_builtin_nand(a,b);
-    },
-    bitnot:func(a)
-    {
-        return nasal_call_builtin_not(a);
-    }
-};
-
-var math=
-{
-    e:2.7182818284590452354,
-    pi:3.14159265358979323846,
-    sin:func(x)
-    {
-        return nasal_call_builtin_sin(x);
-    },
-    cos:func(x)
-    {
-        return nasal_call_builtin_cos(x);
-    },
-    tan:func(x)
-    {
-        return nasal_call_builtin_tan(x);
-    },
-    exp:func(x)
-    {
-        return nasal_call_builtin_exp(x);
-    }, 
-    ln:func(x)
-    {
-        return nasal_call_builtin_cpp_math_ln(x);
-    },
-    sqrt:func(x)
-    {
-        return nasal_call_builtin_cpp_math_sqrt(x);
-    },
-    atan2:func(x,y)
-    {
-        return nasal_call_builtin_cpp_atan2(x,y);
-    },
-};
+var import=func(filename)
+{
+    nasal_call_import(filename);
+    return nil;
+}
+var print=func(elements...)
+{
+    nasal_call_builtin_std_cout(elements);
+    return nil;
+};
+var append=func(vector,elements...)
+{
+    nasal_call_builtin_push_back(vector,elements);
+    return nil;
+}
+var setsize=func(vector,size)
+{
+    nasal_call_builtin_set_size(vector,size);
+    return nil;
+}
+var system=func(str)
+{
+    nasal_call_builtin_system(str);
+    return;
+}
+var input=func()
+{
+    return nasal_call_builtin_input();
+}
+var sleep=func(duration)
+{
+    nasal_call_builtin_sleep(duration);
+    return;
+}
+var split=func(delimeter,string)
+{
+    return nasal_call_builtin_split(delimeter,string);
+}
+var rand=func(seed=nil)
+{
+    return nasal_call_builtin_rand(seed);
+}
+var id=func(thing)
+{
+    return nasal_call_builtin_get_id(thing);
+}
+var int=func(value)
+{
+    return nasal_call_builtin_trans_int(value);
+}
+var num=func(value)
+{
+    return nasal_call_builtin_trans_num(value);
+}
+var pop=func(vector)
+{
+    return nasal_call_builtin_pop_back(vector);
+}
+var str=func(number)
+{
+    return nasal_call_builtin_trans_str(number);
+}
+var size=func(object)
+{
+    return nasal_call_builtin_size(object);
+}
+var contains=func(hash,key)
+{
+    return nasal_call_builtin_contains(hash,key);
+}
+var delete=func(hash,key)
+{
+    nasal_call_builtin_delete(hash,key);
+    return;
+}
+var keys=func(hash)
+{
+    return nasal_call_builtin_get_keys(hash);
+}
+var time=func(begin_time)
+{
+    return nasal_call_builtin_time(begin_time);
+}
+var die=func(str)
+{
+    nasal_call_builtin_die(str);
+    return nil;
+}
+var type=func(object)
+{
+    return nasal_call_builtin_type(object);
+}
+
+var io=
+{
+    fin:func(filename)
+    {
+        return nasal_call_builtin_finput(filename);
+    },
+    fout:func(filename,str)
+    {
+        nasal_call_builtin_foutput(filename,str);
+        return;
+    }
+};
+
+var bits=
+{
+    bitxor:func(a,b)
+    {
+        return nasal_call_builtin_xor(a,b);
+    },
+    bitand:func(a,b)
+    {
+        return nasal_call_builtin_and(a,b);
+    },
+    bitor:func(a,b)
+    {
+        return nasal_call_builtin_or(a,b);
+    },
+    bitnand:func(a,b)
+    {
+        return nasal_call_builtin_nand(a,b);
+    },
+    bitnot:func(a)
+    {
+        return nasal_call_builtin_not(a);
+    }
+};
+
+var math=
+{
+    e:2.7182818284590452354,
+    pi:3.14159265358979323846,
+    sin:func(x)
+    {
+        return nasal_call_builtin_sin(x);
+    },
+    cos:func(x)
+    {
+        return nasal_call_builtin_cos(x);
+    },
+    tan:func(x)
+    {
+        return nasal_call_builtin_tan(x);
+    },
+    exp:func(x)
+    {
+        return nasal_call_builtin_exp(x);
+    }, 
+    ln:func(x)
+    {
+        return nasal_call_builtin_cpp_math_ln(x);
+    },
+    sqrt:func(x)
+    {
+        return nasal_call_builtin_cpp_math_sqrt(x);
+    },
+    atan2:func(x,y)
+    {
+        return nasal_call_builtin_cpp_atan2(x,y);
+    },
+};
diff --git a/version3.0/main.cpp b/main.cpp
similarity index 95%
rename from version3.0/main.cpp
rename to main.cpp
index 17974c6..d712896 100644
--- a/version3.0/main.cpp
+++ b/main.cpp
@@ -1,248 +1,248 @@
-#include "nasal.h"
-
-nasal_resource resource;
-nasal_lexer    lexer;
-nasal_parse    parse;
-nasal_import   preprocessor;
-nasal_codegen  code_generator;
-std::string    command;
-std::string    inputfile="null";
-nasal_runtime  runtime;
-
-void help()
-{
-	std::cout<<">> [\"file\"] input a file name.\n";
-	std::cout<<">> [clear ] clear the screen.\n";
-	std::cout<<">> [del   ] clear the input filename.\n";
-	std::cout<<">> [rs    ] print source code.\n";
-	std::cout<<">> [lex   ] use lexer to turn code into tokens.\n";
-	std::cout<<">> [ast   ] do parsing and check the abstract syntax tree.\n";
-	std::cout<<">> [run   ] run abstract syntax tree.\n";
-	std::cout<<">> [exec  ] generate byte code.\n";
-	std::cout<<">> [erun  ] run byte code.\n";
-	std::cout<<">> [logo  ] print logo of nasal .\n";
-	std::cout<<">> [exit  ] quit nasal interpreter.\n";
-	return;
-}
-
-void logo()
-{
-    std::cout<<"       __                _      \n";
-	std::cout<<"    /\\ \\ \\__ _ ___  __ _| |  \n";
-	std::cout<<"   /  \\/ / _` / __|/ _` | |    \n";
-	std::cout<<"  / /\\  / (_| \\__ \\ (_| | |  \n";
-	std::cout<<"  \\_\\ \\/ \\__,_|___/\\__,_|_|\n";
-    return;
-}
-
-void del_func()
-{
-	resource.clear();
-	lexer.clear();
-	parse.clear();
-	inputfile="null";
-	std::cout<<">> [Delete] complete.\n";
-	return;
-}
-
-void die(std::string stage,std::string filename)
-{
-	std::cout<<">> ["<<stage<<"] in <\""<<filename<<"\">: error(s) occurred,stop.\n";
-	return;
-}
-
-void lex_func()
-{
-	if(!resource.input_file(inputfile))
-	{
-		die("resource",inputfile);
-		return;
-	}
-	lexer.scanner(resource.get_file());
-	if(lexer.get_error())
-	{
-		die("lexer",inputfile);
-		return;
-	}
-	lexer.print_token();
-	return;
-}
-
-void ast_print()
-{
-	if(!resource.input_file(inputfile))
-	{
-		die("resource",inputfile);
-		return;
-	}
-	lexer.scanner(resource.get_file());
-	if(lexer.get_error())
-	{
-		die("lexer",inputfile);
-		return;
-	}
-	parse.set_toklist(lexer.get_token_list());
-	parse.main_process();
-	if(parse.get_error())
-	{
-		die("parse",inputfile);
-		return;
-	}
-	parse.get_root().print_ast(0);
-	return;
-}
-void runtime_start()
-{
-	if(!resource.input_file(inputfile))
-	{
-		die("resource",inputfile);
-		return;
-	}
-	lexer.scanner(resource.get_file());
-	if(lexer.get_error())
-	{
-		die("lexer",inputfile);
-		return;
-	}
-	parse.set_toklist(lexer.get_token_list());
-	parse.main_process();
-	if(parse.get_error())
-	{
-		die("parse",inputfile);
-		return;
-	}
-	preprocessor.preprocessing(parse.get_root());
-	if(preprocessor.get_error())
-	{
-		die("import",inputfile);
-		return;
-	}
-	runtime.set_root(preprocessor.get_root());
-	runtime.run();
-	return;
-}
-
-void codegen_start()
-{
-	if(!resource.input_file(inputfile))
-	{
-		die("resource",inputfile);
-		return;
-	}
-	lexer.scanner(resource.get_file());
-	if(lexer.get_error())
-	{
-		die("lexer",inputfile);
-		return;
-	}
-	parse.set_toklist(lexer.get_token_list());
-	parse.main_process();
-	if(parse.get_error())
-	{
-		die("parse",inputfile);
-		return;
-	}
-	preprocessor.preprocessing(parse.get_root());
-	if(preprocessor.get_error())
-	{
-		die("import",inputfile);
-		return;
-	}
-	runtime.set_root(preprocessor.get_root());
-	code_generator.output_exec(inputfile+".naexec",preprocessor.get_root());
-	if(code_generator.get_error())
-	{
-		die("code",inputfile);
-		return;
-	}
-	return;
-}
-
-void execution_start()
-{
-	code_generator.load_exec(inputfile,preprocessor.get_root());
-	if(code_generator.get_error())
-	{
-		die("code",inputfile);
-		return;
-	}
-	runtime.set_root(preprocessor.get_root());
-	runtime.run();
-	return;
-}
-
-int main()
-{
-#ifdef _WIN32
-	// use chcp 65001 to use unicode io
-	system("chcp 65001");
-	system("cls");
-#endif
-	logo();
-#ifdef _WIN32
-	std::cout<<">> [system] Windows system.\n";
-#endif
-#ifdef _linux_
-	std::cout<<">> [system] Linux system.\n";
-#endif
-#ifdef TARGET_OS_MAC
-	std::cout<<">> [system] MacOS system.\n";
-#endif
-	
-	std::cout<<">> Nasal interpreter ver 3.0 .\n";
-	std::cout<<">> Code: https://github.com/ValKmjolnir/Nasal-Interpreter\n";
-	std::cout<<">> Info: http://wiki.flightgear.org/Nasal_scripting_language\n";
-	std::cout<<">> Input \"help\" to get help .\n";
-    while(1)
-	{
-		std::cout<<">> ";
-		std::cin>>command;
-		if(command=="help")
-			help();
-		else if(command=="clear")
-		{
-#ifdef _WIN32
-			system("cls");
-#endif
-#ifdef _linux_
-			system("clear");
-#endif
-#ifdef TARGET_OS_MAC
-			system("clear");
-#endif
-		}
-		else if(command=="del")
-			del_func();
-		else if(command=="rs")
-		{
-			if(resource.input_file(inputfile))
-				resource.print_file();
-		}
-		else if(command=="lex")
-			lex_func();
-		else if(command=="ast")
-			ast_print();
-		else if(command=="run")
-			runtime_start();
-		else if(command=="exec")
-			codegen_start();
-		else if(command=="erun")
-			execution_start();
-		else if(command=="logo")
-			logo();
-		else if(command=="exit")
-			break;
-		else
-		{
-			inputfile=command;
-			std::ifstream fin(command);
-			if(fin.fail())
-			{
-				std::cout<<">> [file] cannot open file \""<<command<<"\".\n";
-				inputfile="null";
-			}
-			fin.close();
-		}
-	}
-    return 0;
+#include "nasal.h"
+
+nasal_resource resource;
+nasal_lexer    lexer;
+nasal_parse    parse;
+nasal_import   preprocessor;
+nasal_codegen  code_generator;
+std::string    command;
+std::string    inputfile="null";
+nasal_runtime  runtime;
+
+void help()
+{
+	std::cout<<">> [\"file\"] input a file name.\n";
+	std::cout<<">> [clear ] clear the screen.\n";
+	std::cout<<">> [del   ] clear the input filename.\n";
+	std::cout<<">> [rs    ] print source code.\n";
+	std::cout<<">> [lex   ] use lexer to turn code into tokens.\n";
+	std::cout<<">> [ast   ] do parsing and check the abstract syntax tree.\n";
+	std::cout<<">> [run   ] run abstract syntax tree.\n";
+	std::cout<<">> [exec  ] generate byte code.\n";
+	std::cout<<">> [erun  ] run byte code.\n";
+	std::cout<<">> [logo  ] print logo of nasal .\n";
+	std::cout<<">> [exit  ] quit nasal interpreter.\n";
+	return;
+}
+
+void logo()
+{
+    std::cout<<"       __                _      \n";
+	std::cout<<"    /\\ \\ \\__ _ ___  __ _| |  \n";
+	std::cout<<"   /  \\/ / _` / __|/ _` | |    \n";
+	std::cout<<"  / /\\  / (_| \\__ \\ (_| | |  \n";
+	std::cout<<"  \\_\\ \\/ \\__,_|___/\\__,_|_|\n";
+    return;
+}
+
+void del_func()
+{
+	resource.clear();
+	lexer.clear();
+	parse.clear();
+	inputfile="null";
+	std::cout<<">> [Delete] complete.\n";
+	return;
+}
+
+void die(std::string stage,std::string filename)
+{
+	std::cout<<">> ["<<stage<<"] in <\""<<filename<<"\">: error(s) occurred,stop.\n";
+	return;
+}
+
+void lex_func()
+{
+	if(!resource.input_file(inputfile))
+	{
+		die("resource",inputfile);
+		return;
+	}
+	lexer.scanner(resource.get_file());
+	if(lexer.get_error())
+	{
+		die("lexer",inputfile);
+		return;
+	}
+	lexer.print_token();
+	return;
+}
+
+void ast_print()
+{
+	if(!resource.input_file(inputfile))
+	{
+		die("resource",inputfile);
+		return;
+	}
+	lexer.scanner(resource.get_file());
+	if(lexer.get_error())
+	{
+		die("lexer",inputfile);
+		return;
+	}
+	parse.set_toklist(lexer.get_token_list());
+	parse.main_process();
+	if(parse.get_error())
+	{
+		die("parse",inputfile);
+		return;
+	}
+	parse.get_root().print_ast(0);
+	return;
+}
+void runtime_start()
+{
+	if(!resource.input_file(inputfile))
+	{
+		die("resource",inputfile);
+		return;
+	}
+	lexer.scanner(resource.get_file());
+	if(lexer.get_error())
+	{
+		die("lexer",inputfile);
+		return;
+	}
+	parse.set_toklist(lexer.get_token_list());
+	parse.main_process();
+	if(parse.get_error())
+	{
+		die("parse",inputfile);
+		return;
+	}
+	preprocessor.preprocessing(parse.get_root());
+	if(preprocessor.get_error())
+	{
+		die("import",inputfile);
+		return;
+	}
+	runtime.set_root(preprocessor.get_root());
+	runtime.run();
+	return;
+}
+
+void codegen_start()
+{
+	if(!resource.input_file(inputfile))
+	{
+		die("resource",inputfile);
+		return;
+	}
+	lexer.scanner(resource.get_file());
+	if(lexer.get_error())
+	{
+		die("lexer",inputfile);
+		return;
+	}
+	parse.set_toklist(lexer.get_token_list());
+	parse.main_process();
+	if(parse.get_error())
+	{
+		die("parse",inputfile);
+		return;
+	}
+	preprocessor.preprocessing(parse.get_root());
+	if(preprocessor.get_error())
+	{
+		die("import",inputfile);
+		return;
+	}
+	runtime.set_root(preprocessor.get_root());
+	code_generator.output_exec(inputfile+".naexec",preprocessor.get_root());
+	if(code_generator.get_error())
+	{
+		die("code",inputfile);
+		return;
+	}
+	return;
+}
+
+void execution_start()
+{
+	code_generator.load_exec(inputfile,preprocessor.get_root());
+	if(code_generator.get_error())
+	{
+		die("code",inputfile);
+		return;
+	}
+	runtime.set_root(preprocessor.get_root());
+	runtime.run();
+	return;
+}
+
+int main()
+{
+#ifdef _WIN32
+	// use chcp 65001 to use unicode io
+	system("chcp 65001");
+	system("cls");
+#endif
+	logo();
+#ifdef _WIN32
+	std::cout<<">> [system] Windows system.\n";
+#endif
+#ifdef _linux_
+	std::cout<<">> [system] Linux system.\n";
+#endif
+#ifdef TARGET_OS_MAC
+	std::cout<<">> [system] MacOS system.\n";
+#endif
+	
+	std::cout<<">> Nasal interpreter ver 3.0 .\n";
+	std::cout<<">> Code: https://github.com/ValKmjolnir/Nasal-Interpreter\n";
+	std::cout<<">> Info: http://wiki.flightgear.org/Nasal_scripting_language\n";
+	std::cout<<">> Input \"help\" to get help .\n";
+    while(1)
+	{
+		std::cout<<">> ";
+		std::cin>>command;
+		if(command=="help")
+			help();
+		else if(command=="clear")
+		{
+#ifdef _WIN32
+			system("cls");
+#endif
+#ifdef _linux_
+			system("clear");
+#endif
+#ifdef TARGET_OS_MAC
+			system("clear");
+#endif
+		}
+		else if(command=="del")
+			del_func();
+		else if(command=="rs")
+		{
+			if(resource.input_file(inputfile))
+				resource.print_file();
+		}
+		else if(command=="lex")
+			lex_func();
+		else if(command=="ast")
+			ast_print();
+		else if(command=="run")
+			runtime_start();
+		else if(command=="exec")
+			codegen_start();
+		else if(command=="erun")
+			execution_start();
+		else if(command=="logo")
+			logo();
+		else if(command=="exit")
+			break;
+		else
+		{
+			inputfile=command;
+			std::ifstream fin(command);
+			if(fin.fail())
+			{
+				std::cout<<">> [file] cannot open file \""<<command<<"\".\n";
+				inputfile="null";
+			}
+			fin.close();
+		}
+	}
+    return 0;
 }
\ No newline at end of file
diff --git a/misc/ast.cpp b/misc/ast.cpp
deleted file mode 100644
index 05506ec..0000000
--- a/misc/ast.cpp
+++ /dev/null
@@ -1,167 +0,0 @@
-#include <iostream>
-#include <cstring>
-#include <list>
-
-class abstract_syntax_tree
-{
-	private:
-		int ast_node_type;
-		double var_number;
-		std::string var_string;
-		std::string var_name;
-		std::list<abstract_syntax_tree> children;
-	public:
-		abstract_syntax_tree()
-		{
-			ast_node_type=0;
-			var_number=0;
-			var_string="";
-			var_name="";
-			children.clear();
-			return;
-		}
-		abstract_syntax_tree(const abstract_syntax_tree& p)
-		{
-			ast_node_type=p.ast_node_type;
-			var_number=p.var_number;
-			var_string=p.var_string;
-			var_name=p.var_name;
-			children=p.children;
-			return;
-		}
-		abstract_syntax_tree& operator=(const abstract_syntax_tree& p)
-		{
-			ast_node_type=p.ast_node_type;
-			var_number=p.var_number;
-			var_string=p.var_string;
-			var_name=p.var_name;
-			children=p.children;
-			return *this;
-		}
-		void print_tree(const int n)
-		{
-			std::cout<<n<<" ";
-			if(!children.empty())
-			{
-				for(auto i=children.begin();i!=children.end();++i)
-					i->print_tree(n+1);
-			}
-			return;
-		}
-		void set_node_type(const int type)
-		{
-			ast_node_type=type;
-			return;
-		}
-		void set_var_string(std::string& str)
-		{
-			var_string=str;
-			return;
-		}
-		void set_var_number(std::string& str)
-		{
-			if(str=="nil")
-			{
-				var_number=0;
-				return;
-			}
-			if((int)str.length()>2 && (str[1]=='x' || str[1]=='o'))
-			{
-				if(str[1]=='x')
-				{
-					int num=0;
-					int pw=1;
-					for(int i=(int)str.length()-1;i>1;--i)
-					{
-						if('0'<=str[i] && str[i]<='9')
-							num+=(str[i]-'0')*pw;
-						else if('a'<=str[i] && str[i]<='f')
-							num+=(10+str[i]-'a')*pw;
-						else if('A'<=str[i] && str[i]<='F')
-							num+=(10+str[i]-'A')*pw;
-						pw<<=4;
-					}
-					var_number=(double)num;
-				}
-				else
-				{
-					int num=0;
-					int pw=1;
-					for(int i=(int)str.length()-1;i>1;--i)
-					{
-						num+=(str[i]-'0')*pw;
-						pw<<=3;
-					}
-					var_number=(double)num;
-				}
-				return;
-			}
-			int dot_place=-1;
-			for(int i=0;i<(int)str.length();++i)
-				if(str[i]=='.')
-				{
-					dot_place=i;
-					break;
-				}
-			if(dot_place==-1)
-			{
-				var_number=0;
-				double pw=1;
-				for(int i=(int)str.length()-1;i>=0;--i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw*=10;
-				}
-			}
-			else
-			{
-				var_number=0;
-				double pw=0.1;
-				for(int i=dot_place+1;i<(int)str.length();++i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw/=10;
-				}
-				pw=1;
-				for(int i=dot_place-1;i>=0;--i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw*=10;
-				}
-			}
-			return;
-		}
-		void set_var_name(std::string& str)
-		{
-			var_name=str;
-			return;
-		}
-		void add_child(abstract_syntax_tree& p)
-		{
-			children.push_back(p);
-			return;
-		}
-		double return_var_number()
-		{
-			return var_number;
-		}
-		std::string return_var_string()
-		{
-			return var_string;
-		}
-		std::string return_var_name()
-		{
-			return var_name;
-		}
-};
-
-int main()
-{
-	abstract_syntax_tree a,b;
-	a.add_child(a);
-	a.add_child(a);
-	a.add_child(a);
-	b=a;
-	b.print_tree(1);
-	return 0;
-}
diff --git a/misc/lexer(useless).h b/misc/lexer(useless).h
deleted file mode 100644
index d5cb091..0000000
--- a/misc/lexer(useless).h
+++ /dev/null
@@ -1,183 +0,0 @@
-#ifndef __LEXER_H__
-#define __LEXER_H__
-
-
-#include <iostream>
-#include <fstream>
-#include <cstring>
-#include "nasal.h"
-#include "process_stack.h"
-
-using namespace nasal;
-
-std::string text;
-process_stack _test;
-process_stack_unit _unit;
-
-void PrintProcess(std::string content)
-{
-	std::string Sentence="";
-	int len=(int)content.length();
-	for(int i=0;i<len;++i)
-	{
-		if(content[i]==',')
-			Sentence="";
-		else if(content[i]=='\"')//string mode
-		{
-			Sentence="";
-			for(int j=i+1;j<len;++j)
-			{
-				if(content[j]=='\\' && j+1<len)
-				{
-					Sentence+=content[j];
-					Sentence+=content[j+1];
-					++j;
-				}
-				else if(content[j]=='\"')
-				{
-					i=j;
-					break;
-				}
-				else
-					Sentence+=content[j];
-			}
-			PrintString(Sentence);
-		}
-		else if(content[i]!=' ' && content[i]!='\"' && content[i]!=',')//check var
-		{
-			Sentence="";
-			for(int j=i;j<len;++j)
-			{
-				if(content[j]!=' ' && content[j]!='\"' && content[j]!=',')
-					Sentence+=content[j];
-				if(content[j]==',' || content[j]==' ' || j==len-1)
-				{
-					i=j;
-					break;
-				}
-			}
-			if(_test.check_stack(Sentence))
-			{
-				_test.stack_content_print(Sentence);
-			}
-			else
-				std::cout<<std::endl<<"[Error] "<<Sentence<<" is not declared in this scope."<<std::endl;
-		}
-	}
-	std::cout<<std::endl;
-	return;
-}
-
-void FileProcess(const char *FileName)
-{
-	std::ifstream fin(FileName);
-	
-	fin.close();
-	return;
-}
-
-void CommandProcess()
-{
-	while(1)
-	{
-		std::cout<<">> ";
-		std::getline(std::cin,text);
-		int len=(int)text.length();
-		
-		int sharpDetected=0;
-		for(int i=len-1;i>=0;--i)
-		{
-			if(text[i]=='#')
-			{
-				//ignore sharp
-				len=i;
-				sharpDetected=i;
-			}
-			if(text[i]==';')
-			{
-				len=i+1;
-				//find the real end of the sentence
-				if(sharpDetected)
-				{
-					for(int j=sharpDetected-1;j>=len;--j)
-						if(text[j]!=' ')
-						{
-							len=j+1;
-							break;
-						}
-				}
-				else
-				{
-					for(int j=(int)text.length()-1;j>=len;--j)
-						if(text[j]!=' ')
-						{
-							len=j+1;
-							break;
-						}
-				}
-				break;
-			}
-		}
-		
-		if(text[len-1]==';')
-		{
-			for(int i=0;i<len;++i)
-			{
-				if(text[i]=='p' && i+1<len && text[i+1]=='r' && i+2<len && text[i+2]=='i' && i+3<len && text[i+3]=='n' && i+4<len && text[i+4]=='t')
-				{
-					//In this part every error leads to an error information and breaks the loop!
-					
-					//check the first char after print is '(' or not
-					int string_beg=len-1;
-					for(int j=i+5;j<len;++j)
-						if(text[j]!=' ')
-						{
-							string_beg=j;
-							break;
-						}
-						
-					if(text[string_beg]!='(')
-					{
-						std::cout<<std::endl<<"[Error] Missing \'(\' ."<<std::endl;
-						break;
-					}
-					
-					//check the ')' and the place 
-					int string_end=len-1;
-					for(int j=len-2;j>=0;--j)
-						if(text[j]!=' ')
-						{
-							string_end=j;
-							break;
-						}
-					if(text[string_end]!=')')
-					{
-						std::cout<<std::endl<<"[Error] Missing \')\' ."<<std::endl;
-						break;
-					}
-					
-					std::string content="";
-					for(int j=string_beg+1;j<string_end;++j)
-						content+=text[j];
-					
-					std::cout<<std::endl<<"Target string: "<<content<<std::endl;
-					PrintProcess(content);
-					break;
-				}
-				else if(text[i]=='v' && i+1<len && text[i+1]=='a' && i+2<len && text[i+2]=='r')
-				{
-					;
-				}
-				else if(i==len-1)
-					std::cout<<std::endl<<"[Error] Incorrect command."<<std::endl;
-			}
-		}
-		else
-		{
-			std::cout<<std::endl<<"[Error] Expected \';\' after this line."<<std::endl;
-		}
-	}
-	return;
-}
-
-#endif
diff --git a/misc/lexical_analysis.cpp b/misc/lexical_analysis.cpp
deleted file mode 100644
index cf16fa7..0000000
--- a/misc/lexical_analysis.cpp
+++ /dev/null
@@ -1,291 +0,0 @@
-#include <iostream>
-#include <fstream>
-#include <cstring>
-
-#define IDENTIFIER  -1 //�Զ����ʶ�� 
-#define OPERATOR    -2 //��� or ����� 
-#define NUMBER      -3 //���� 
-#define RESERVEWORD -4 //�ؼ��� 
-#define STRING      -5 //�ַ������� 
-#define FAIL        -6 //ʧ�� 
-#define SCANEND     -7 //ɨ����� 
-#define ERRORFOUND  -8 //�쳣���� 
-
-// \n ���� 
-// \t tab
-// \r �س� 
-// \\ ��� 
-// \' ������ 
-// \" ˫���� 
-std::string ReserveWord[26]=
-{
-	"for","foreach","forindex","while",
-	"var","func","break","continue","return",
-	"if","else","elsif","nil","and","or",
-	"print","cmp","append","setsize","subvec","pop",
-	"sort","contains","delete","keys","typeof"
-};
-
-std::string OperatorOrDelimiter[40]=
-{
-	"+","-","*","/","=","+=","-=","*=","/=",
-	"\n","\t","\r","\\","\'","\"",".",
-	"<","<=",">",">=","==","!=","~=","!","~",
-	",",";","(",")","[","]","{","}","#","?",":",
-	"&","|","%","^"
-};
-
-std::string IdentifierTable[1000]={""};
-char ResourcePrograme[16777216];
-
-int isReserveWord(std::string &p)
-{
-	for(int i=0;i<26;++i)
-		if(ReserveWord[i]==p)
-			return i+1;
-	return FAIL;
-}
-
-int isOperatorOrDelimiter(std::string &p)
-{
-	for(int i=0;i<40;++i)
-		if(OperatorOrDelimiter[i]==p)
-			return i+1;
-	return FAIL;
-}
-
-bool isLetter(char t)
-{
-	return (('a'<=t) && (t<='z') || ('A'<=t) && (t<='Z'));
-}
-
-bool isNumber(char t)
-{
-	return (('0'<=t) && (t<='9'));
-}
-
-void InputFile(std::string &FileName)
-{
-	std::ifstream fin(FileName);
-	if(fin.fail())
-	{
-		std::cout<<"[Error] Failed to load file: "<<FileName<<std::endl;
-		ResourcePrograme[0]='@';
-		fin.close();
-		return;
-	}
-	int i=0;
-	bool FindNote=false;
-	while(!fin.eof())
-	{
-		ResourcePrograme[i]=fin.get();
-		if(ResourcePrograme[i]=='\n')
-			FindNote=false;
-		if(ResourcePrograme[i]!='#' && !FindNote)
-			++i;
-		else if(ResourcePrograme[i]=='#')
-		{
-			FindNote=true;
-		}
-		if(fin.eof())
-			break;
-	}
-	ResourcePrograme[i]='@';
-	++i;
-	for(int j=0;j<i;++j)
-		std::cout<<ResourcePrograme[j];
-	std::cout<<std::endl;
-	fin.close();
-	return;
-}
-
-void Scanner(int &Syn,const char Source[],std::string &token,int &ptr)
-{
-	char temp;
-	temp=Source[ptr];
-	while(temp==' ' || temp=='\n' || temp=='\t' || temp=='\r' || temp<0 || temp>127)
-	{
-		++ptr;
-		temp=Source[ptr];
-	}
-	
-	token="";
-	if(isLetter(temp) || temp=='_')
-	{
-		token+=temp;
-		++ptr;
-		temp=Source[ptr];
-		while(isLetter(temp) || isNumber(temp) || temp=='_')
-		{
-			token+=temp;
-			++ptr;
-			temp=Source[ptr];
-		}
-		Syn=isReserveWord(token);
-		if(Syn==FAIL)
-			Syn=IDENTIFIER;
-		else
-			Syn=RESERVEWORD;
-	}
-	else if(isNumber(temp))
-	{
-		int PointCnt=0;
-		while(isNumber(temp))
-		{
-			token+=temp;
-			++ptr;
-			temp=Source[ptr];
-			if(temp=='.' && !PointCnt)
-			{
-				++PointCnt;
-				token+=temp;
-				++ptr;
-				temp=Source[ptr];
-			}
-		}
-		Syn=NUMBER;
-	}
-	else if(temp=='(' || temp==')' || temp=='[' || temp==']' || temp=='{' ||
-			temp=='}' || temp==',' || temp==';' || temp=='|' || temp==':' ||
-			temp=='?' || temp=='.' || temp=='`' || temp=='\'' || temp=='&'||
-			temp=='%' || temp=='$' || temp=='^')
-	{
-		token+=temp;
-		++ptr;
-		Syn=OPERATOR;
-	}
-	else if(temp=='=' || temp=='+' || temp=='-' || temp=='*' || temp=='!' || temp=='/' || temp=='<' || temp=='>' || temp=='~')
-	{
-		Syn=OPERATOR;
-		token+=temp;
-		++ptr;
-		temp=Source[ptr];
-		if(temp=='=')
-		{
-			token+=temp;
-			++ptr;
-		}
-	}
-	else if(temp=='\\')
-	{
-		Syn=OPERATOR;
-		token+=temp;
-		++ptr;
-		temp=Source[ptr];
-		if(temp=='=' || temp=='n' || temp=='t' || temp=='r' || temp=='\\' || temp=='\'' || temp=='\"')
-		{
-			token+=temp;
-			++ptr;
-		}
-	}
-	else if(temp=='\"')
-	{
-		Syn=STRING;
-		token+=temp;
-		++ptr;
-		temp=Source[ptr];
-		while(temp!='\"')
-		{
-			if(temp=='\\')
-			{
-				token+=temp;
-				
-				++ptr;
-				temp=Source[ptr];
-				token+=temp;
-				
-				++ptr;
-				temp=Source[ptr];
-			}
-			else
-			{
-				token+=temp;
-				++ptr;
-				temp=Source[ptr];
-			}
-			if(temp=='@' || temp=='\n')
-				break;
-		}
-		//add the last char \"
-		if(temp=='\"')
-		{
-			token+=temp;
-			++ptr;
-		}
-		else
-			token+=" __missing_end_of_string";
-	}
-	else if(temp=='@')
-	{
-		Syn=SCANEND;
-		return;
-	}
-	else
-	{
-		Syn=FAIL;
-		std::cout<<"[Error] Unexpected error occurred: "<<temp<<std::endl;
-		system("pause");
-		++ptr;
-		return;
-	}
-	if(token=="")
-	{
-		Syn=ERRORFOUND;
-		std::cout<<"[Error] Cannot identify "<<std::endl;
-	}
-	return;
-}
-
-void help()
-{
-	std::cout<<">> exit: exit the programe."<<std::endl;
-	std::cout<<">> clear: clean the screen."<<std::endl;
-	std::cout<<">> help: find help."<<std::endl;
-	std::cout<<">> input the file name to scan."<<std::endl;
-}
-
-int main()
-{
-	help();
-	while(1)
-	{
-		int Syn=0;//token type
-		int Ptr=0;//pointer to one char in ResourcePrograme
-		std::string token;
-		std::string FileNameOrCommand;
-		std::cout<<">> ";
-		std::cin>>FileNameOrCommand;
-		
-		if(FileNameOrCommand=="exit")
-			break;
-		else if(FileNameOrCommand=="clear")
-		{
-			system("cls");
-			continue;
-		}
-		else if(FileNameOrCommand=="help")
-		{
-			help();
-			continue;
-		}
-		//std::ofstream fout("Data.txt");
-		InputFile(FileNameOrCommand);
-		while(Syn!=SCANEND && Syn!=ERRORFOUND)
-		{
-			Scanner(Syn,ResourcePrograme,token,Ptr);
-			if(Syn==OPERATOR)
-				std::cout<<"( Operator    | "<<token<<" )"<<std::endl;
-			else if(Syn==IDENTIFIER)
-				std::cout<<"( Identifier  | "<<token<<" )"<<std::endl;
-			else if(Syn==NUMBER)
-				std::cout<<"( Number      | "<<token<<" )"<<std::endl;
-			else if(Syn==RESERVEWORD)
-				std::cout<<"( ReserveWord | "<<token<<" )"<<std::endl;
-			else if(Syn==STRING)
-				std::cout<<"( String      | "<<token<<" )"<<std::endl;
-		}
-		std::cout<<">> Complete scanning \""<<FileNameOrCommand<<"\"."<<std::endl;
-		//fout.close();
-	}
-	return 0;
-}
diff --git a/misc/nasal_parser.h b/misc/nasal_parser.h
deleted file mode 100644
index a502a24..0000000
--- a/misc/nasal_parser.h
+++ /dev/null
@@ -1,1473 +0,0 @@
-#ifndef __NASAL_PARSER_H__
-#define __NASAL_PARSER_H__
-
-class nasal_parser
-{
-	private:
-		std::stack<token> parse;
-		token this_token;
-		int error;
-		int warning;
-	public:
-		nasal_parser()
-		{
-			error=0;
-			warning=0;
-			this_token.type=0;
-		}
-		void get_token()
-		{
-			if(parse.empty())
-			{
-				this_token.type=0;
-				return;
-			}
-			this_token=parse.top();
-			parse.pop();
-			return;
-		}
-		int get_error_num()
-		{
-			return error;
-		}
-		void print_parser_stack()
-		{
-			if(parse.empty())
-				return;
-			int line=0;
-			std::stack<token> temp;
-			while(!parse.empty())
-			{
-				temp.push(parse.top());
-				if(line!=temp.top().line)
-				{
-					if(line+1==temp.top().line)
-					{
-						line=temp.top().line;
-						if(line==1)
-							std::cout<<"line "<<line<<"   ";
-						else
-							std::cout<<std::endl<<"line "<<line<<"   ";
-					}
-					else
-					{
-						while(line!=temp.top().line)
-						{
-							++line;
-							std::cout<<std::endl<<"line "<<line<<"   ";
-						}
-					}
-				}
-				std::cout<<"<";
-				print_token(temp.top().type);
-				std::cout<<"> ";
-				parse.pop();
-			}
-			while(!temp.empty())
-			{
-				parse.push(temp.top());
-				temp.pop();
-			}
-			std::cout<<std::endl;
-			return;
-		}
-		void parse_process(std::list<token>& lexer)
-		{
-			while(!parse.empty())
-				parse.pop();
-			std::stack<token> temp;
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				token temp_parse;
-				temp_parse=*i;
-				temp.push(temp_parse);//push this into stack
-			}
-			if(temp.empty())
-			{
-				std::cout<<">>[Parse] warning: empty lexer list."<<std::endl;
-				return;
-			}
-			while(!temp.empty())
-			{
-				parse.push(temp.top());
-				temp.pop();
-			}
-			return;
-		}
-		void parse_main_work();
-		void in_curve_calc_expr();
-		void calculation_expr();
-		void identifier_call_expr();
-		void call_list_expr();
-		void parameter_function_expr();
-		void call_function_expr();
-		void call_hash_expr();
-		void list_generate_expr();
-		void hash_generate_expr();
-		void definition_expr();
-		void assignment_expr();
-		void loop_expr();
-		bool else_if_check();
-		void if_else_expr();
-		void mul_div_operator_expr();
-		void one_operator_expr();
-		void check_semi_at_end();
-		void statements_block();
-		void function_generate_expr();
-		void return_expr();
-};
-void nasal_parser::check_semi_at_end()
-{
-	get_token();
-	if(this_token.type!=__semi)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ';'."<<std::endl;
-	}
-	return;
-}
-void nasal_parser::return_expr()
-{
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __number:
-		case __string:
-		case __id:parse.push(this_token);calculation_expr();break;
-		case __func:function_generate_expr();break;
-		case __left_bracket:list_generate_expr();break;
-		case __left_brace:hash_generate_expr();break;
-		case __semi:parse.push(this_token);break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data or ';' after __return_expr."<<std::endl;
-			return;
-			break;
-	}
-	return;
-}
-void nasal_parser::statements_block()
-{
-	get_token();
-	if(this_token.type!=__left_brace)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '{' when generating a __block."<<std::endl;
-		return;
-	}
-	get_token();
-	while(this_token.type!=__right_brace)
-	{
-		//token t;
-		switch(this_token.type)
-		{
-			case __var:definition_expr();check_semi_at_end();break;
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-			case __if:parse.push(this_token);if_else_expr();break;
-			case __left_curve:
-//				t=this_token;
-//				get_token();
-//				if(this_token.type==__var)
-//				{
-//					parse.push(t);
-//					definition_expr();
-//				}
-//				else
-//				{
-//					parse.push(this_token);
-//					parse.push(t);
-//					calculation_expr();
-//				}
-				parse.push(this_token);
-				calculation_expr();
-				check_semi_at_end();
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:parse.push(this_token);loop_expr();break;
-			case __continue:
-			case __break:check_semi_at_end();break;
-			case __semi:break;
-			case __return:return_expr();check_semi_at_end();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": '";
-				print_token(this_token.type);
-				std::cout<<"' incorrect token as the beginning of statement."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-	}
-	return;
-}
-void nasal_parser::function_generate_expr()
-{
-	get_token();
-	if(this_token.type==__left_brace)
-		parse.push(this_token);
-	else if(this_token.type==__left_curve)
-	{
-		get_token();
-		while(this_token.type!=__right_curve)
-		{
-			if(this_token.type==__id)
-			{
-				get_token();
-				if(this_token.type!=__equal)
-					parse.push(this_token);
-				else
-				{
-					get_token();
-					switch(this_token.type)
-					{
-						case __left_curve:
-						case __id:
-						case __number:
-						case __string:
-						case __nor_operator:
-						case __sub_operator:parse.push(this_token);calculation_expr();break;
-						case __left_brace:hash_generate_expr();break;
-						case __left_bracket:list_generate_expr();break;
-						case __func:function_generate_expr();break;
-						default:
-							++error;
-							std::cout<<">>[Error] line "<<this_token.line<<": expect a scalar after operator '=' ."<<std::endl;
-							return;break;
-					}
-				}
-				get_token();
-				if(this_token.type!=__right_curve && this_token.type!=__comma)
-				{
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ')' when creating a __function."<<std::endl;
-					return;
-				}
-				else if(this_token.type==__right_curve)
-					parse.push(this_token);
-			}
-			else if(this_token.type==__dynamic_id)
-			{
-				get_token();
-				if(this_token.type!=__right_curve)
-				{
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": must put ')' after __dynamic_id."<<std::endl;
-					return;
-				}
-				parse.push(this_token);
-			}
-			else
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect __id and __dynamic_id only."<<std::endl;
-				return;
-			}
-			get_token();
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-		print_token(this_token.type);
-		std::cout<<"' when creating a __function."<<std::endl;
-		return;
-	}
-	get_token();
-	if(this_token.type==__left_brace)
-	{
-		parse.push(this_token);
-		statements_block();
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": function must have a statement block begin with '{' ."<<std::endl;
-		return;
-	}
-	return;
-}
-void nasal_parser::list_generate_expr()
-{
-	get_token();
-	while(this_token.type!=__right_bracket)
-	{
-		switch(this_token.type)
-		{
-			case __nor_operator:
-			case __sub_operator:
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:parse.push(this_token);calculation_expr();break;
-			case __left_bracket:list_generate_expr();break;
-			case __left_brace:hash_generate_expr();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when creating a __list."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_bracket)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ']' but get '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __list."<<std::endl;
-			return;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	return;
-}
-void nasal_parser::hash_generate_expr()
-{
-	get_token();
-	while(this_token.type!=__right_brace)
-	{
-		if(this_token.type!=__id && this_token.type!=__string)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __hash_member."<<std::endl;
-			return;
-		}
-		if(this_token.type==__string || this_token.type==__number)
-		{
-			parse.push(this_token);
-			calculation_expr();
-		}
-		get_token();
-		if(this_token.type!=__colon)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ':' when creating a __hash_member."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:parse.push(this_token);calculation_expr();break;
-			case __func:
-				get_token();
-				if(this_token.type==__id)
-				{
-					parse.push(this_token);
-					calculation_expr();
-				}
-				else
-				{
-					parse.push(this_token);
-					function_generate_expr();
-				}
-				break;
-			case __left_bracket:list_generate_expr();break;
-			case __left_brace:hash_generate_expr();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when creating a __hash_member."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_brace)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or '}' but get '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __hash."<<std::endl;
-			return;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	return;
-}
-void nasal_parser::definition_expr()
-{
-	get_token();
-	//if(this_token.type!=__id && this_token.type!=__left_curve)
-	if(this_token.type!=__id)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect an __id."<<std::endl;
-		return;
-	}
-//	if(this_token.type==__left_curve)
-//	{
-//		while(this_token.type!=__right_curve)
-//		{
-//			get_token();
-//			if(this_token.type!=__id)
-//			{
-//				++error;
-//				std::cout<<">>[Error] line "<<this_token.line<<": the expect type is identifier."<<std::endl;
-//				return;
-//			}
-//			get_token();
-//			if(this_token.type!=__comma && this_token.type!=__right_curve)
-//			{
-//				++error;
-//				std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ')'."<<std::endl;
-//				return;
-//			}
-//			if(this_token.type==__right_curve)
-//				break;
-//		}
-//	}
-	get_token();
-	if(this_token.type!=__equal && this_token.type!=__semi)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '=' after __id."<<std::endl;
-		return;
-	}
-	else if(this_token.type==__semi)
-	{
-		parse.push(this_token);// for semi check
-//		++warning;
-//		std::cout<<">>[Warning] line "<<this_token.line<<": better initializing this."<<std::endl;
-		return;
-	}
-	get_token();
-	token t;
-	t.line=this_token.line;
-	t.type=__semi;
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:parse.push(this_token);calculation_expr();break;
-		case __func:function_generate_expr();parse.push(t);break;
-		case __left_bracket:list_generate_expr();break;
-		case __left_brace:hash_generate_expr();break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after this operator."<<std::endl;
-			return;
-			break;
-	}
-	return;
-}
-void nasal_parser::assignment_expr()
-{
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:parse.push(this_token);calculation_expr();break;
-		case __func:function_generate_expr();break;
-		case __left_bracket:list_generate_expr();break;
-		case __left_brace:hash_generate_expr();break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when doing assignment."<<std::endl;
-			return;
-			break;
-	}
-	return;
-}
-bool nasal_parser::else_if_check()
-{
-	token temp=this_token;
-	if(this_token.type!=__else)
-		return false;
-	else
-	{
-		get_token();
-		if(this_token.type!=__if)
-		{
-			parse.push(this_token);
-			this_token=temp;// to avoid when recognizing 'else' without 'if' 
-			return false;
-		}
-	}
-	return true;
-}
-void nasal_parser::if_else_expr()
-{
-	get_token();
-	if(this_token.type!=__if)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a 'if' when creating new if-else statement."<<std::endl;
-		return;
-	}
-	get_token();
-	if(this_token.type!=__left_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when making a condition."<<std::endl;
-		return;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:parse.push(this_token);calculation_expr();break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a correct condition."<<std::endl;
-			return;
-			break;
-	}
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when making a condition."<<std::endl;
-		return;
-	}
-	get_token();
-	if(this_token.type==__left_brace)
-	{
-		// if without { then only one statement is behind it
-		parse.push(this_token);
-		statements_block();
-	}
-	else
-	{
-		//token t;
-		switch(this_token.type)
-		{
-			case __var:definition_expr();check_semi_at_end();break;
-			case __id:
-			case __number:
-			case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-			case __if:parse.push(this_token);if_else_expr();break;
-			case __left_curve:
-//				t=this_token;
-//				get_token();
-//				if(this_token.type==__var)
-//				{
-//					parse.push(t);
-//					definition_expr();
-//				}
-//				else
-//				{
-//					parse.push(this_token);
-//					parse.push(t);
-//					calculation_expr();
-//				}
-				parse.push(this_token);
-				calculation_expr();
-				check_semi_at_end();
-				break;
-			case __sub_operator:
-			case __nor_operator:parse.push(this_token);calculation_expr();break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:parse.push(this_token);loop_expr();break;
-			case __continue:
-			case __break:check_semi_at_end();break;
-			case __semi:break;
-			case __return:return_expr();check_semi_at_end();break;
-			default:
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when generating a statement."<<std::endl;
-				++error;
-				break;
-		}
-	}
-	if(parse.empty())
-		return;
-	get_token();
-	while(this_token.type==__elsif || else_if_check())
-	{
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when making a condition."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __number:
-			case __string:
-			case __id:parse.push(this_token);calculation_expr();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a correct condition."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when making a condition."<<std::endl;
-			return;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			statements_block();
-		}
-		else
-		{
-			//token t;
-			switch(this_token.type)
-			{
-				case __var:definition_expr();check_semi_at_end();break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-				case __if:parse.push(this_token);if_else_expr();break;
-				case __left_curve:
-//					t=this_token;
-//					get_token();
-//					if(this_token.type==__var)
-//					{
-//						parse.push(t);
-//						definition_expr();
-//					}
-//					else
-//					{
-//						parse.push(this_token);
-//						parse.push(t);
-//						calculation_expr();
-//					}
-					parse.push(this_token);
-					calculation_expr();
-					check_semi_at_end();
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:parse.push(this_token);loop_expr();break;
-				case __continue:
-				case __break:check_semi_at_end();break;
-				case __semi:break;
-				case __return:return_expr();check_semi_at_end();break;
-				default:
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when generating a statement."<<std::endl;
-					++error;
-					break;
-			}
-		}
-		if(parse.empty())
-			return;
-		get_token();
-	}
-	if(this_token.type==__else)
-	{
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			statements_block();
-		}
-		else
-		{
-			//token t;
-			switch(this_token.type)
-			{
-				case __var:definition_expr();check_semi_at_end();break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-				case __if:parse.push(this_token);if_else_expr();break;
-				case __left_curve:
-//					t=this_token;
-//					get_token();
-//					if(this_token.type==__var)
-//					{
-//						parse.push(t);
-//						definition_expr();
-//					}
-//					else
-//					{
-//						parse.push(this_token);
-//						parse.push(t);
-//						calculation_expr();
-//					}
-					parse.push(this_token);
-					calculation_expr();
-					check_semi_at_end();
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:parse.push(this_token);loop_expr();break;
-				case __continue:
-				case __break:check_semi_at_end();break;
-				case __semi:break;
-				case __return:return_expr();check_semi_at_end();break;
-				default:
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when generating a statement."<<std::endl;
-					++error;
-					break;
-			}
-		}
-	}
-	else
-		parse.push(this_token);
-	return;
-}
-void nasal_parser::loop_expr()
-{
-	get_token();
-	if(this_token.type==__while)
-	{
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'while'."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __number:
-			case __string:
-			case __id:parse.push(this_token);calculation_expr();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a condition."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'while('."<<std::endl;
-			return;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			statements_block();
-		}
-		else
-		{
-			//token t;
-			switch(this_token.type)
-			{
-				case __var:definition_expr();check_semi_at_end();break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-				case __if:parse.push(this_token);if_else_expr();break;
-				case __left_curve:
-//					t=this_token;
-//					get_token();
-//					if(this_token.type==__var)
-//					{
-//						parse.push(t);
-//						definition_expr();
-//					}
-//					else
-//					{
-//						parse.push(this_token);
-//						parse.push(t);
-//						calculation_expr();
-//					}
-					parse.push(this_token);
-					calculation_expr();
-					check_semi_at_end();
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:parse.push(this_token);loop_expr();break;
-				case __continue:
-				case __break:check_semi_at_end();break;
-				case __semi:break;
-				case __return:return_expr();check_semi_at_end();break;
-				default:
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					++error;
-					break;
-			}
-		}
-	}
-	else if(this_token.type==__for)
-	{
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'for'."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:definition_expr();break;
-			case __id:calculation_expr();break;
-			case __semi:parse.push(this_token);break;
-			default:
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				++error;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:parse.push(this_token);calculation_expr();break;
-			case __semi:parse.push(this_token);break;
-			default:
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				++error;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __id:
-			case __number:
-			case __string:parse.push(this_token);calculation_expr();break;
-			case __right_curve:parse.push(this_token);break;
-			default:
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				++error;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'for('."<<std::endl;
-			return;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			statements_block();
-		}
-		else
-		{
-			//token t;
-			switch(this_token.type)
-			{
-				case __var:definition_expr();check_semi_at_end();break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-				case __if:parse.push(this_token);if_else_expr();break;
-				case __left_curve:
-//					t=this_token;
-//					get_token();
-//					if(this_token.type==__var)
-//					{
-//						parse.push(t);
-//						definition_expr();
-//					}
-//					else
-//					{
-//						parse.push(this_token);
-//						parse.push(t);
-//						calculation_expr();
-//					}
-					parse.push(this_token);
-					calculation_expr();
-					check_semi_at_end();
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:parse.push(this_token);loop_expr();break;
-				case __continue:
-				case __break:check_semi_at_end();break;
-				case __semi:break;
-				case __return:return_expr();check_semi_at_end();break;
-				default:
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					++error;
-					break;
-			}
-		}
-	}
-	else if(this_token.type==__forindex || this_token.type==__foreach)
-	{
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'forindex' or 'foreach'."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:definition_expr();break;
-			case __id:parse.push(this_token);calculation_expr();break;
-			case __semi:parse.push(this_token);break;
-			default:
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				++error;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __id:
-			case __number:
-			case __string:parse.push(this_token);calculation_expr();break;
-			case __left_bracket:list_generate_expr();break;
-			case __right_curve:parse.push(this_token);break;
-			default:
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				++error;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'forindex(' or 'foreach('."<<std::endl;
-			return;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			statements_block();
-		}
-		else
-		{
-			//token t;
-			switch(this_token.type)
-			{
-				case __var:definition_expr();check_semi_at_end();break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-				case __if:parse.push(this_token);if_else_expr();break;
-				case __left_curve:
-//					t=this_token;
-//					get_token();
-//					if(this_token.type==__var)
-//					{
-//						parse.push(t);
-//						definition_expr();
-//					}
-//					else
-//					{
-//						parse.push(this_token);
-//						parse.push(t);
-//						calculation_expr();
-//					}
-					parse.push(this_token);
-					calculation_expr();
-					check_semi_at_end();
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:parse.push(this_token);loop_expr();break;
-				case __continue:
-				case __break:check_semi_at_end();break;
-				case __semi:break;
-				case __return:return_expr();check_semi_at_end();break;
-				default:
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					++error;
-					break;
-			}
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-		print_token(this_token.type);
-		std::cout<<"' when creating a new loop."<<std::endl;
-		return;
-	}
-	return;
-}
-void nasal_parser::mul_div_operator_expr()
-{
-	while(1)
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __number:break;
-			case __string:break;
-			case __id:identifier_call_expr();break;
-			case __left_curve:parse.push(this_token);calculation_expr();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator '*' or '/'."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__mul_operator && this_token.type!=__div_operator)
-		{
-			parse.push(this_token);
-			break;
-		}
-	}
-	return;
-}
-void nasal_parser::one_operator_expr()
-{
-	get_token();
-	switch(this_token.type)
-	{
-		case __number:break;
-		case __string:break;
-		case __id:identifier_call_expr();break;
-		case __left_curve:parse.push(this_token);calculation_expr();break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator '!' or '-'."<<std::endl;
-			return;
-			break;
-	}
-	return;
-}
-void nasal_parser::in_curve_calc_expr()
-{
-	calculation_expr();
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when generating __in_curve_calculation."<<std::endl;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:call_list_expr();break;
-		case __left_curve:call_function_expr();break;
-		default:parse.push(this_token);break;
-	}
-	return;
-}
-void nasal_parser::calculation_expr()
-{
-	// number / string / identifier haven't been checked
-	while(1)
-	{
-		get_token(); // check number / string / identifier
-		if(this_token.type==__nor_operator || this_token.type==__sub_operator)
-			one_operator_expr();
-		else if(this_token.type==__id)
-			identifier_call_expr();
-		else if(this_token.type==__number || this_token.type==__string)
-			;
-		else if(this_token.type==__left_curve)
-		{
-//			get_token();
-//			if(this_token.type==__func)// lambda
-//			{
-//				function_generate_expr();
-//				get_token();
-//				if(this_token.type!=__right_curve)
-//				{
-//					++error;
-//					std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when creating new lambda."<<std::endl;
-//					return;
-//				}
-//				get_token();
-//				if(this_token.type!=__left_curve)
-//				{
-//					++error;
-//					std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when calling a lambda function."<<std::endl;
-//					return;
-//				}
-//				call_function_expr();
-//				return;
-//			}
-//			else
-//				parse.push(this_token);
-			in_curve_calc_expr();
-		}
-		else if(this_token.type==__func)
-		{
-			function_generate_expr();
-			return;
-		}
-		else
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a scalar before operator '+' , '-' , '*' , '/' or '~'."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __cmp_equal:
-			case __cmp_not_equal:
-			case __cmp_less:
-			case __cmp_more:
-			case __cmp_less_or_equal:
-			case __cmp_more_or_equal:
-			case __and_operator:
-			case __or_operator:
-			case __add_operator:
-			case __sub_operator:
-			case __link_operator:break;
-			case __mul_operator:
-			case __div_operator:
-				mul_div_operator_expr();
-				get_token();
-				switch(this_token.type)
-				{
-					case __cmp_equal:
-					case __cmp_not_equal:
-					case __cmp_less:
-					case __cmp_more:
-					case __cmp_less_or_equal:
-					case __cmp_more_or_equal:
-					case __and_operator:
-					case __or_operator:
-					case __add_operator:
-					case __sub_operator:
-					case __link_operator:break;
-					default:parse.push(this_token);return;break;
-				}
-				break;
-			case __semi:parse.push(this_token);return;break;
-			case __unknown_operator:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator '"<<this_token.content<<"'."<<std::endl;
-				return;break;
-			default:parse.push(this_token);return;break;
-		}
-	}
-	return;
-}
-void nasal_parser::call_list_expr()
-{
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __number:
-		case __string:
-		case __id:parse.push(this_token);calculation_expr();break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when calling a list."<<std::endl;
-			return;
-			break;
-	}
-	get_token();
-	if(this_token.type==__colon)// to check if there is [number:number] or [number:]
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:parse.push(this_token);calculation_expr();break;
-			case __right_bracket:parse.push(this_token);break;// this is [number:]
-			default:parse.push(this_token);break;
-		}
-		get_token();
-		if(this_token.type!=__right_bracket)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ']' when calling a list."<<std::endl;
-			return;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_bracket:call_list_expr();break;
-			case __left_curve:call_function_expr();break;
-			case __dot:call_hash_expr();break;
-			default:parse.push(this_token);break;
-		}
-	}
-	else if(this_token.type==__right_bracket)
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_bracket:call_list_expr();break;
-			case __left_curve:call_function_expr();break;
-			case __dot:call_hash_expr();break;
-			default:parse.push(this_token);break;
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ']' when calling a list."<<std::endl;
-		return;
-	}
-	return;
-
-}
-void nasal_parser::parameter_function_expr()
-{
-	get_token();
-	if(this_token.type==__id)
-	{
-		parse.push(this_token);
-		calculation_expr();
-		return;
-	}
-	else if(this_token.type==__left_curve || this_token.type==__left_brace)
-	{
-		parse.push(this_token);
-		function_generate_expr();
-		return;
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect an __id or '(' or '{' when calling or generating a function."<<std::endl;
-		return;
-	}
-	return;
-}
-void nasal_parser::call_function_expr()
-{
-	get_token();
-	while(this_token.type!=__right_curve)
-	{
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __nor_operator:
-			case __sub_operator:
-			case __number:
-			case __string:
-			case __id:parse.push(this_token);calculation_expr();break;
-			case __left_bracket:list_generate_expr();break;
-			case __left_brace:hash_generate_expr();break;
-			case __func:parameter_function_expr();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when calling a function."<<std::endl;
-				return;
-				break;
-		}
-		get_token();
-		if(this_token.type==__colon)
-		{
-			get_token();
-			switch(this_token.type)
-			{
-				case __left_curve:
-				case __nor_operator:
-				case __sub_operator:
-				case __number:
-				case __string:
-				case __id:parse.push(this_token);calculation_expr();break;
-				case __left_bracket:list_generate_expr();break;
-				case __left_brace:hash_generate_expr();break;
-				case __func:parameter_function_expr();break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-					print_token(this_token.type);
-					std::cout<<"' when calling a function."<<std::endl;
-					return;
-					break;
-			}
-		}
-		else
-			parse.push(this_token);
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' after parameter or ')' to end the call."<<std::endl;
-			return;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:call_list_expr();break;
-		case __left_curve:call_function_expr();break;
-		case __dot:call_hash_expr();break;
-		default:parse.push(this_token);break;
-	}
-	return;
-}
-void nasal_parser::call_hash_expr()
-{
-	get_token();
-	if(this_token.type!=__id)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": missing identifier when calling __hash_member."<<std::endl;
-		return;
-	}
-	identifier_call_expr();
-	return;
-}
-void nasal_parser::identifier_call_expr()
-{
-	// __id has been checked
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:call_list_expr();break;
-		case __left_curve:call_function_expr();break;
-		case __dot:call_hash_expr();break;
-		default:parse.push(this_token);break;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __equal:
-		case __add_equal:
-		case __sub_equal:
-		case __mul_equal:
-		case __div_equal:
-		case __link_equal:assignment_expr();break;
-		default:parse.push(this_token);break;
-	}
-	return;
-}
-void nasal_parser::parse_main_work()
-{
-	error=0;
-	warning=0;
-	while(!parse.empty())
-	{
-		get_token();
-		//token t;
-		switch(this_token.type)
-		{
-			case __var:definition_expr();check_semi_at_end();break;
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:parse.push(this_token);calculation_expr();check_semi_at_end();break;
-			case __left_curve:
-//				t=this_token;
-//				get_token();
-//				if(this_token.type==__var)
-//				{
-//					parse.push(t);
-//					definition_expr();
-//				}
-//				else
-//				{
-//					parse.push(this_token);
-//					parse.push(t);
-//					calculation_expr();
-//				}
-				parse.push(this_token);
-				calculation_expr();
-				check_semi_at_end();
-				break;
-			case __if:parse.push(this_token);if_else_expr();break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:parse.push(this_token);loop_expr();break;
-			case __semi:break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when generating __main_statement_block."<<std::endl;
-				if(this_token.type==0)
-				{
-					std::cout<<">>[Error] parse stack empty."<<std::endl;
-					break;
-				}
-				break;
-		}
-	}
-	std::cout<<">>[Parse] complete generation."<<error<<" error(s),"<<warning<<" warning(s)."<<std::endl;
-	return;
-}
-
-#endif
diff --git a/misc/process_stack.h b/misc/process_stack.h
deleted file mode 100644
index a8960f8..0000000
--- a/misc/process_stack.h
+++ /dev/null
@@ -1,159 +0,0 @@
-#ifndef __PROCESS_STACK_H__
-#define __PROCESS_STACK_H__
-
-#include <iostream>
-#include <cstring>
-#include "nasal.h"
-namespace nasal
-{
-
-
-struct process_stack_unit
-{
-	int line;                  //place the unit first appear
-	std::string name;          //content of the unit or name of the var/class/function
-	std::string format_type;   //var class function string info
-	var unitdata;
-	bool global;
-	process_stack_unit *next;
-	process_stack_unit *last;
-};
-
-class process_stack
-{
-	private:
-		process_stack_unit *head;
-		process_stack_unit *ptr;
-	public:
-		process_stack()
-		{
-			head=new process_stack_unit;
-			head->line=0;
-			head->name="InterpreterInfo";
-			head->format_type="Info";
-			head->global=false;
-			head->unitdata.Type="string";
-			head->unitdata.data=new std::string;
-			*((std::string *)head->unitdata.data)="# Nasal language for FlightGear.";
-			
-			head->last=NULL;
-			head->next=NULL;
-			ptr=NULL;
-		}
-		~process_stack()
-		{
-			process_stack_unit *temp=head;
-			while(temp->next)
-			{
-				temp=temp->next;
-				delete head;
-				head=temp;
-			}
-			delete head;
-		}
-		void stack_append(process_stack_unit &p)
-		{
-			process_stack_unit *temp=head;
-			process_stack_unit *last_node;
-			while(temp->next)
-			{
-				temp=temp->next;
-			}
-			temp->next=new process_stack_unit;
-			
-			last_node=temp;
-			temp=temp->next;
-			
-			temp->last=last_node;
-			last_node->next=temp;
-			temp->next=NULL;
-			
-			temp->name=p.name;
-			temp->line=p.line;
-			temp->format_type=p.format_type;
-			temp->global=p.global;
-			temp->unitdata=p.unitdata;
-			
-			return;
-		}
-		void stack_print(bool reverse_mode_used)
-		{
-			process_stack_unit *temp=head;
-			std::cout<<"In stack: "<<std::endl;
-			if(reverse_mode_used)
-			{
-				while(temp->next)
-					temp=temp->next;
-				while(temp->last)
-				{
-					std::cout<<"line "<<temp->line<<": |"<<temp->format_type<<"|"<<temp->name<<"|\n\t|";
-					temp->unitdata.Print();
-					std::cout<<std::endl;
-					temp=temp->last;
-				}
-				std::cout<<"line "<<temp->line<<": |"<<temp->format_type<<"|"<<temp->name<<"|\n\t|";
-				temp->unitdata.Print();
-				std::cout<<std::endl;
-			}
-			else
-			{
-				std::cout<<"line "<<temp->line<<": |"<<temp->format_type<<"|"<<temp->name<<"|\n\t|";
-				temp->unitdata.Print();
-				std::cout<<std::endl;
-				while(temp->next)
-				{
-					temp=temp->next;
-					std::cout<<"line "<<temp->line<<": |"<<temp->format_type<<"|"<<temp->name<<"|\n\t|";
-					temp->unitdata.Print();
-					std::cout<<std::endl;
-				}
-			}
-			std::cout<<"End."<<std::endl;
-			return;
-		}
-		void pop()
-		{
-			process_stack_unit *temp=head;
-			process_stack_unit *last_node;
-			while(temp->next)
-			{
-				last_node=temp;
-				temp=temp->next;
-			}
-			last_node->next=NULL;
-			delete temp;
-			return;
-		}
-		bool check_stack(std::string &ElementName)
-		{
-			process_stack_unit *temp=head;
-			while(temp->next)
-			{
-				temp=temp->next;
-				if(temp->name==ElementName)
-					return true;
-			}
-			return false;
-		}
-		void stack_content_print(std::string &ElementName)
-		{
-			process_stack_unit *temp=head;
-			while(temp->next)
-			{
-				temp=temp->next;
-				if(temp->name==ElementName)
-				{
-					temp->unitdata.Print();
-					return;
-				}
-			}
-			return;
-		}
-};
-
-
-
-
-}
-
-#endif
diff --git a/misc/str2num.h b/misc/str2num.h
deleted file mode 100644
index 6f86c8c..0000000
--- a/misc/str2num.h
+++ /dev/null
@@ -1,60 +0,0 @@
-#ifndef __STR2NUM_H__
-#define __STR2NUM_H__
-
-#include <iostream>
-#include <cstring>
-
-namespace nasal
-{
-
-void Str2Num(std::string &str)
-{
-	for(int i=0;i<(int)str.length();++i)
-		if(!(('0'<=str[i]) && (str[i]<='9') || (str[i]=='.')))
-		{
-			std::cout<<"[Error] Non-numeric string."<<std::endl;
-			return;
-		}
-	
-	bool isFloat=false;
-	int DotPlace=0;
-	for(int i=0;i<(int)str.length();++i)
-		if(str[i]=='.')
-		{
-			isFloat=true;
-			DotPlace=i;
-			break;
-		}
-	if(!isFloat)
-	{
-		long long int num=0;
-		long long int acc=1;
-		for(int i=(int)str.length()-1;i>=0;--i)
-		{
-			num+=acc*((long long int)(str[i]-'0'));
-			acc*=10;
-		}
-		std::cout<<num<<std::endl;
-	}
-	else
-	{
-		double num=0;
-		double acc=1;
-		double aff=0.1;
-		for(int i=DotPlace+1;i<(int)str.length();++i)
-		{
-			num+=aff*((double)(str[i]-'0'));
-			aff*=0.1;
-		}
-		for(int i=DotPlace-1;i>=0;--i)
-		{
-			num+=acc*((double)(str[i]-'0'));
-			acc*=10;
-		}
-		std::cout<<num<<std::endl;
-	}
-	return;
-}
-
-}
-#endif
diff --git a/version3.0/nasal.ebnf b/nasal.ebnf
similarity index 94%
rename from version3.0/nasal.ebnf
rename to nasal.ebnf
index f504974..3070f3b 100644
--- a/version3.0/nasal.ebnf
+++ b/nasal.ebnf
@@ -1,132 +1,132 @@
-(*
- <>  must choose
- []  can choose
- {}  can repeat 0 to infinite time(s)
- |   or
- ::= is defined as
-*)
-
-nil   ::= nil;
-id    ::= identifier;
-number::= number;
-string::= string;
-vector::= 
-    '[' {calculation ','} ']'
-;
-hash  ::=
-    '{' {hashmember ','} '}'
-;
-hashmember::=
-    id|string ':' calculation
-;
-function::= 
-    func argument_list expressions
-;
-argument_list::=
-    '(' [{id ','} ([id '...']|{id '=' scalar ','})] ')'
-;
-expr::=
-    definition
-    |multi_assignment
-    |calculation
-    |loop
-    |conditional
-    |return_expr
-    |continue_expr
-    |break_expr
-;
-expressions::=
-    '{' {expr} '}'
-;
-calculation::=
-    calculation '?' calculation ':' calculation
-    |or_expr
-    |calculation ('=' | '+=' | '-=' | '*=' | '/=' | '~=') calculation
-;
-or_expr::=
-    and_expr or and_expr
-;
-and_expr::=
-    cmp_expr and cmp_expr
-;
-cmp_expr::=
-    additive_expr ('==' | '!=' | '>' | '<' | '>=' | '<=') additive_expr
-;
-additive_expr::=
-    multive_expr ('+' | '-' | '~') multive_expr
-;
-multive_expr::=
-    (unary|scalar) ('*' | '/') (unary|scalar)
-;
-unary::=
-    ('-'|'!') scalar
-;
-scalar::=
-    function {call_scalar}
-    |identifier {call_scalar}
-    |vector {call_scalar}
-    |hash {call_scalar}
-    |number
-    |string
-    |'(' calculation ')' {call_scalar}
-;
-call_scalar::=
-    call_hash
-    |call_vector
-    |call_func
-;
-call_hash::=
-    '.' id
-;
-call_vector::=
-    '[' {(subvec) ','} ']'
-;
-call_func::=
-    '(' {calculation ','} ')'
-    |'(' {hashmember ','} ')'
-;
-subvec::=
-    [calculation] ':' [calculation]
-;
-definition::=
-    var id '=' calculation
-    |var '(' multi_id ')' '=' (calculation | multi_scalar)
-    |'(' var multi_id ')' '=' (calculation | multi_scalar)
-;
-multi_id::=
-    <id> {',' id}
-;
-multi_scalar::=
-    '(' <calculation> {',' calculation} ')'
-;
-multi_assignment::=
-    multi_scalar '=' (multi_scalar|calculation)
-;
-loop::=
-    while_loop
-    |for_loop
-    |forei_loop
-;
-while_loop::=
-    while '(' calculation ')' expressions
-;
-for_loop::=
-    for '(' [definition|calculation] ';' [calculation] ';' [calculation] ')' expressions
-;
-forei_loop::=
-    (forindex | foreach) '(' (definition | calculation) ';' calculation ')' expressions
-;
-conditional::=
-    if '(' calculation ')' expressions
-    {elsif '(' calculation ')' expressions}
-    [else expressions]
-;
-continue_expr::=
-    continue
-;
-break_expr::=
-    break
-;
-return_expr::=
-    return [calculation]
+(*
+ <>  must choose
+ []  can choose
+ {}  can repeat 0 to infinite time(s)
+ |   or
+ ::= is defined as
+*)
+
+nil   ::= nil;
+id    ::= identifier;
+number::= number;
+string::= string;
+vector::= 
+    '[' {calculation ','} ']'
+;
+hash  ::=
+    '{' {hashmember ','} '}'
+;
+hashmember::=
+    id|string ':' calculation
+;
+function::= 
+    func argument_list expressions
+;
+argument_list::=
+    '(' [{id ','} ([id '...']|{id '=' scalar ','})] ')'
+;
+expr::=
+    definition
+    |multi_assignment
+    |calculation
+    |loop
+    |conditional
+    |return_expr
+    |continue_expr
+    |break_expr
+;
+expressions::=
+    '{' {expr} '}'
+;
+calculation::=
+    calculation '?' calculation ':' calculation
+    |or_expr
+    |calculation ('=' | '+=' | '-=' | '*=' | '/=' | '~=') calculation
+;
+or_expr::=
+    and_expr or and_expr
+;
+and_expr::=
+    cmp_expr and cmp_expr
+;
+cmp_expr::=
+    additive_expr ('==' | '!=' | '>' | '<' | '>=' | '<=') additive_expr
+;
+additive_expr::=
+    multive_expr ('+' | '-' | '~') multive_expr
+;
+multive_expr::=
+    (unary|scalar) ('*' | '/') (unary|scalar)
+;
+unary::=
+    ('-'|'!') scalar
+;
+scalar::=
+    function {call_scalar}
+    |identifier {call_scalar}
+    |vector {call_scalar}
+    |hash {call_scalar}
+    |number
+    |string
+    |'(' calculation ')' {call_scalar}
+;
+call_scalar::=
+    call_hash
+    |call_vector
+    |call_func
+;
+call_hash::=
+    '.' id
+;
+call_vector::=
+    '[' {(subvec) ','} ']'
+;
+call_func::=
+    '(' {calculation ','} ')'
+    |'(' {hashmember ','} ')'
+;
+subvec::=
+    [calculation] ':' [calculation]
+;
+definition::=
+    var id '=' calculation
+    |var '(' multi_id ')' '=' (calculation | multi_scalar)
+    |'(' var multi_id ')' '=' (calculation | multi_scalar)
+;
+multi_id::=
+    <id> {',' id}
+;
+multi_scalar::=
+    '(' <calculation> {',' calculation} ')'
+;
+multi_assignment::=
+    multi_scalar '=' (multi_scalar|calculation)
+;
+loop::=
+    while_loop
+    |for_loop
+    |forei_loop
+;
+while_loop::=
+    while '(' calculation ')' expressions
+;
+for_loop::=
+    for '(' [definition|calculation] ';' [calculation] ';' [calculation] ')' expressions
+;
+forei_loop::=
+    (forindex | foreach) '(' (definition | calculation) ';' calculation ')' expressions
+;
+conditional::=
+    if '(' calculation ')' expressions
+    {elsif '(' calculation ')' expressions}
+    [else expressions]
+;
+continue_expr::=
+    continue
+;
+break_expr::=
+    break
+;
+return_expr::=
+    return [calculation]
 ;
\ No newline at end of file
diff --git a/version3.0/nasal.h b/nasal.h
similarity index 95%
rename from version3.0/nasal.h
rename to nasal.h
index 3ed57c4..cea2911 100644
--- a/version3.0/nasal.h
+++ b/nasal.h
@@ -1,34 +1,34 @@
-#ifndef __NASAL_H__
-#define __NASAL_H__
-
-#include <unistd.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <iostream>
-#include <fstream>
-#include <algorithm>
-#include <cstring>
-#include <cstdlib>
-#include <ctime>
-#include <cmath>
-/* if thread is used, don't forget to add -std=c++11 or higher standard before executing */
-// #include <thread>
-#include <list>
-#include <stack>
-#include <queue>
-#include <vector>
-#include <map>
-
-#include "nasal_enum.h"
-#include "nasal_misc.h"
-#include "nasal_resource.h"
-#include "nasal_lexer.h"
-#include "nasal_ast.h"
-#include "nasal_parse.h"
-#include "nasal_import.h"
-#include "nasal_codegen.h"
-#include "nasal_gc.h"
-#include "nasal_runtime.h"
-#include "nasal_builtin.h"
-
-#endif
+#ifndef __NASAL_H__
+#define __NASAL_H__
+
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <iostream>
+#include <fstream>
+#include <algorithm>
+#include <cstring>
+#include <cstdlib>
+#include <ctime>
+#include <cmath>
+/* if thread is used, don't forget to add -std=c++11 or higher standard before executing */
+// #include <thread>
+#include <list>
+#include <stack>
+#include <queue>
+#include <vector>
+#include <map>
+
+#include "nasal_enum.h"
+#include "nasal_misc.h"
+#include "nasal_resource.h"
+#include "nasal_lexer.h"
+#include "nasal_ast.h"
+#include "nasal_parse.h"
+#include "nasal_import.h"
+#include "nasal_codegen.h"
+#include "nasal_gc.h"
+#include "nasal_runtime.h"
+#include "nasal_builtin.h"
+
+#endif
diff --git a/version3.0/nasal_ast.h b/nasal_ast.h
similarity index 94%
rename from version3.0/nasal_ast.h
rename to nasal_ast.h
index 671cf42..6989ca5 100644
--- a/version3.0/nasal_ast.h
+++ b/nasal_ast.h
@@ -1,129 +1,129 @@
-#ifndef __NASAL_AST_H__
-#define __NASAL_AST_H__
-
-class nasal_ast
-{
-private:
-    int line;
-    int type;
-    std::string str;
-    std::vector<nasal_ast> children;
-public:
-    nasal_ast();
-    nasal_ast(const nasal_ast&);
-    ~nasal_ast();
-    nasal_ast& operator=(const nasal_ast&);
-    void clear();
-    void set_line(int);
-    void set_type(int);
-    void set_str(std::string&);
-    void add_child(nasal_ast);
-    int  get_line();
-    int  get_type();
-    std::string get_str();
-    std::vector<nasal_ast>& get_children();
-    void print_ast(int);
-};
-
-nasal_ast::nasal_ast()
-{
-    this->line=0;
-    this->type=ast_null;
-    this->str="";
-    return;
-}
-
-nasal_ast::nasal_ast(const nasal_ast& tmp)
-{
-    this->line=tmp.line;
-    this->type=tmp.type;
-    this->str=tmp.str;
-    this->children=tmp.children;
-    return;
-}
-
-nasal_ast::~nasal_ast()
-{
-    this->str.clear();
-    this->children.clear();
-    return;
-}
-
-nasal_ast& nasal_ast::operator=(const nasal_ast& tmp)
-{
-    this->line=tmp.line;
-    this->type=tmp.type;
-    this->str=tmp.str;
-    this->children=tmp.children;
-    return *this;
-}
-
-void nasal_ast::clear()
-{
-    this->line=0;
-    this->type=ast_null;
-    this->str="";
-    this->children.clear();
-    return;
-}
-
-void nasal_ast::set_line(int l)
-{
-    this->line=l;
-    return;
-}
-
-void nasal_ast::set_type(int t)
-{
-    this->type=t;
-    return;
-}
-
-void nasal_ast::set_str(std::string& s)
-{
-    this->str=s;
-    return;
-}
-
-void nasal_ast::add_child(nasal_ast ast)
-{
-    children.push_back(ast);
-    return;
-}
-
-int nasal_ast::get_line()
-{
-    return this->line;
-}
-
-int nasal_ast::get_type()
-{
-    return this->type;
-}
-
-std::string nasal_ast::get_str()
-{
-    return this->str;
-}
-
-std::vector<nasal_ast>& nasal_ast::get_children()
-{
-    return this->children;
-}
-
-void nasal_ast::print_ast(int depth)
-{
-    std::string indentation="";
-    for(int i=0;i<depth;++i) indentation+="|  ";
-    indentation+=ast_str(this->type);
-    std::cout<<indentation;
-    if(this->type==ast_number || this->type==ast_string || this->type==ast_identifier || this->type==ast_dynamic_id || this->type==ast_call_hash)
-        std::cout<<":"<<this->str;
-    std::cout<<std::endl;
-    int child_size=this->children.size();
-    for(int i=0;i<child_size;++i)
-        this->children[i].print_ast(depth+1);
-    return;
-}
-
+#ifndef __NASAL_AST_H__
+#define __NASAL_AST_H__
+
+class nasal_ast
+{
+private:
+    int line;
+    int type;
+    std::string str;
+    std::vector<nasal_ast> children;
+public:
+    nasal_ast();
+    nasal_ast(const nasal_ast&);
+    ~nasal_ast();
+    nasal_ast& operator=(const nasal_ast&);
+    void clear();
+    void set_line(int);
+    void set_type(int);
+    void set_str(std::string&);
+    void add_child(nasal_ast);
+    int  get_line();
+    int  get_type();
+    std::string get_str();
+    std::vector<nasal_ast>& get_children();
+    void print_ast(int);
+};
+
+nasal_ast::nasal_ast()
+{
+    this->line=0;
+    this->type=ast_null;
+    this->str="";
+    return;
+}
+
+nasal_ast::nasal_ast(const nasal_ast& tmp)
+{
+    this->line=tmp.line;
+    this->type=tmp.type;
+    this->str=tmp.str;
+    this->children=tmp.children;
+    return;
+}
+
+nasal_ast::~nasal_ast()
+{
+    this->str.clear();
+    this->children.clear();
+    return;
+}
+
+nasal_ast& nasal_ast::operator=(const nasal_ast& tmp)
+{
+    this->line=tmp.line;
+    this->type=tmp.type;
+    this->str=tmp.str;
+    this->children=tmp.children;
+    return *this;
+}
+
+void nasal_ast::clear()
+{
+    this->line=0;
+    this->type=ast_null;
+    this->str="";
+    this->children.clear();
+    return;
+}
+
+void nasal_ast::set_line(int l)
+{
+    this->line=l;
+    return;
+}
+
+void nasal_ast::set_type(int t)
+{
+    this->type=t;
+    return;
+}
+
+void nasal_ast::set_str(std::string& s)
+{
+    this->str=s;
+    return;
+}
+
+void nasal_ast::add_child(nasal_ast ast)
+{
+    children.push_back(ast);
+    return;
+}
+
+int nasal_ast::get_line()
+{
+    return this->line;
+}
+
+int nasal_ast::get_type()
+{
+    return this->type;
+}
+
+std::string nasal_ast::get_str()
+{
+    return this->str;
+}
+
+std::vector<nasal_ast>& nasal_ast::get_children()
+{
+    return this->children;
+}
+
+void nasal_ast::print_ast(int depth)
+{
+    std::string indentation="";
+    for(int i=0;i<depth;++i) indentation+="|  ";
+    indentation+=ast_str(this->type);
+    std::cout<<indentation;
+    if(this->type==ast_number || this->type==ast_string || this->type==ast_identifier || this->type==ast_dynamic_id || this->type==ast_call_hash)
+        std::cout<<":"<<this->str;
+    std::cout<<std::endl;
+    int child_size=this->children.size();
+    for(int i=0;i<child_size;++i)
+        this->children[i].print_ast(depth+1);
+    return;
+}
+
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_builtin.h b/nasal_builtin.h
similarity index 97%
rename from version3.0/nasal_builtin.h
rename to nasal_builtin.h
index cd0e35d..3b7011c 100644
--- a/version3.0/nasal_builtin.h
+++ b/nasal_builtin.h
@@ -1,789 +1,789 @@
-#ifndef __NASAL_BUILTIN_H__
-#define __NASAL_BUILTIN_H__
-
-#define in_builtin_find(value_name_string) (local_scope_addr>=0?nasal_vm.gc_get(local_scope_addr).get_closure().get_value_address(value_name_string):-1)
-#define in_builtin_check(value_addr,value_type) (nasal_vm.gc_get(value_addr).get_type()==(value_type))
-
-int nasal_runtime::builtin_print(int local_scope_addr)
-{
-    // get arguments
-    int vector_value_addr=in_builtin_find("elements");
-    if(vector_value_addr<0 || !in_builtin_check(vector_value_addr,vm_vector))
-    {
-        std::cout<<">> [runtime] builtin_print: \"elements\" has wrong value type(must be vector).\n";
-        ++error;
-        return -1;
-    }
-    // main process
-    nasal_vector& ref_vec=nasal_vm.gc_get(vector_value_addr).get_vector();
-    int size=ref_vec.size();
-    for(int i=0;i<size;++i)
-    {
-        nasal_scalar& tmp=nasal_vm.gc_get(ref_vec.get_value_address(i));
-        switch(tmp.get_type())
-        {
-            case vm_nil:std::cout<<"nil";break;
-            case vm_number:std::cout<<tmp.get_number();break;
-            case vm_string:std::cout<<tmp.get_string();break;
-            case vm_vector:std::cout<<"[...]";break;
-            case vm_hash:std::cout<<"{...}";break;
-            case vm_function:std::cout<<"func(...){...}";break;
-            case vm_closure:std::cout<<"closure{{...}}";break;
-        }
-        if(i==size-1)
-            std::cout<<'\n';
-    }
-    // generate return value
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-int nasal_runtime::builtin_append(int local_scope_addr)
-{
-    int vector_value_addr=in_builtin_find("vector");
-    int elem_value_addr=in_builtin_find("elements");
-    if(vector_value_addr<0 || !in_builtin_check(vector_value_addr,vm_vector))
-    {
-        std::cout<<">> [runtime] builtin_append: \"vector\" has wrong value type(must be vector).\n";
-        ++error;
-        return -1;
-    }
-    if(elem_value_addr<0 || !in_builtin_check(elem_value_addr,vm_vector))
-    {
-        std::cout<<">> [runtime] builtin_append: \"elements\" has wrong value type(must be vector).\n";
-        ++error;
-        return -1;
-    }
-    nasal_vector& ref_vector=nasal_vm.gc_get(vector_value_addr).get_vector();
-    nasal_vector& ref_elements=nasal_vm.gc_get(elem_value_addr).get_vector();
-    int size=ref_elements.size();
-    for(int i=0;i<size;++i)
-    {
-        int value_address=ref_elements.get_value_address(i);
-        nasal_vm.add_reference(value_address);
-        ref_vector.add_elem(value_address);
-    }
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-int nasal_runtime::builtin_setsize(int local_scope_addr)
-{
-    int vector_value_addr=in_builtin_find("vector");
-    int size_value_addr=in_builtin_find("size");
-    if(vector_value_addr<0 || nasal_vm.gc_get(vector_value_addr).get_type()!=vm_vector)
-    {
-        std::cout<<">> [runtime] builtin_setsize: \"vector\" has wrong value type(must be vector).\n";
-        ++error;
-        return -1;
-    }
-    if(size_value_addr<0)
-    {
-        std::cout<<">> [runtime] builtin_setsize: \"size\" has wrong value type(must be string or number).\n";
-        ++error;
-        return -1;
-    }
-    int type=nasal_vm.gc_get(size_value_addr).get_type();
-    if(type!=vm_number && type!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_setsize: size is not a number.\n";
-        ++error;
-        return -1;
-    }
-    int number;
-    if(type==vm_number)
-        number=(int)nasal_vm.gc_get(size_value_addr).get_number();
-    else
-    {
-        std::string str=nasal_vm.gc_get(size_value_addr).get_string();
-        if(check_numerable_string(str))
-            number=(int)trans_string_to_number(str);
-        else
-        {
-            std::cout<<">> [runtime] builtin_setsize: size is not a numerable string.\n";
-            ++error;
-            return -1;
-        }
-    }
-    if(number<0)
-    {
-        std::cout<<">> [runtime] builtin_setsize: size must be greater than -1.\n";
-        ++error;
-        return -1;
-    }
-    nasal_vector& ref_vector=nasal_vm.gc_get(vector_value_addr).get_vector();
-    int vec_size=ref_vector.size();
-    if(number<vec_size)
-        for(int i=number;i<vec_size;++i)
-        {
-            int addr=ref_vector.del_elem();
-            if(addr>=0)
-                nasal_vm.del_reference(addr);
-        }
-    else if(number>vec_size)
-        for(int i=vec_size;i<number;++i)
-        {
-            int new_val_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(new_val_addr).set_type(vm_nil);
-            ref_vector.add_elem(new_val_addr);
-        }
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-
-int nasal_runtime::builtin_system(int local_scope_addr)
-{
-    int str_value_addr=in_builtin_find("str");
-    if(str_value_addr<0 || nasal_vm.gc_get(str_value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_system: \"str\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string str=nasal_vm.gc_get(str_value_addr).get_string();
-    int size=str.length();
-    char* command=new char[size+1];
-    for(int i=0;i<size;++i)
-        command[i]=str[i];
-    command[size]='\0';
-    system(command);
-    delete []command;
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-
-int nasal_runtime::builtin_input(int local_scope_addr)
-{
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_string);
-    std::string str;
-    std::cin>>str;
-    nasal_vm.gc_get(ret_addr).set_string(str);
-    return ret_addr;
-}
-
-int nasal_runtime::builtin_sleep(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("duration");
-    if(value_addr<0 || (nasal_vm.gc_get(value_addr).get_type()!=vm_string && nasal_vm.gc_get(value_addr).get_type()!=vm_number))
-    {
-        std::cout<<">> [runtime] builtin_sleep: \"duration\" has wrong value type(must be string or number).\n";
-        ++error;
-        return -1;
-    }
-    unsigned long sleep_time=0;
-    if(nasal_vm.gc_get(value_addr).get_type()==vm_string)
-    {
-        std::string str=nasal_vm.gc_get(value_addr).get_string();
-        if(check_numerable_string(str))
-            sleep_time=(unsigned long)trans_string_to_number(str);
-        else
-        {
-            std::cout<<">> [runtime] builtin_sleep: this is not a numerable string.\n";
-            ++error;
-            return -1;
-        }
-    }
-    else
-        sleep_time=(unsigned long)nasal_vm.gc_get(value_addr).get_number();
-    sleep(sleep_time); // sleep in unistd.h will make this progress sleep sleep_time seconds.
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-
-int nasal_runtime::builtin_finput(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("filename");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_finput: \"filename\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string filename=nasal_vm.gc_get(value_addr).get_string();
-    std::ifstream fin(filename);
-    std::string file_content="";
-    if(!fin.fail())
-        while(!fin.eof())
-        {
-            file_content.push_back(fin.get());
-            if(fin.eof())
-                break;
-        }
-    else
-        file_content="cannot open file named \'"+filename+"\'.";
-    fin.close();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_string);
-    nasal_vm.gc_get(ret_addr).set_string(file_content);
-    return ret_addr;
-}
-
-int nasal_runtime::builtin_foutput(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("filename");
-    int str_value_addr=in_builtin_find("str");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_foutput: \"filename\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    if(str_value_addr<0 || nasal_vm.gc_get(str_value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_foutput: \"str\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string filename=nasal_vm.gc_get(value_addr).get_string();
-    std::string file_content=nasal_vm.gc_get(str_value_addr).get_string();
-    std::ofstream fout(filename);
-    fout<<file_content;
-    fout.close();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-
-int nasal_runtime::builtin_split(int local_scope_addr)
-{
-    int delimeter_value_addr=in_builtin_find("delimeter");
-    int string_value_addr=in_builtin_find("string");
-    if(delimeter_value_addr<0 || nasal_vm.gc_get(delimeter_value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_split: \"delimeter\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    if(string_value_addr<0 || nasal_vm.gc_get(string_value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_split: \"string\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string delimeter=nasal_vm.gc_get(delimeter_value_addr).get_string();
-    std::string source=nasal_vm.gc_get(string_value_addr).get_string();
-    int delimeter_len=delimeter.length();
-    if(delimeter_len<1)
-    {
-        std::cout<<">> [runtime] builtin_split: delimeter's length must be greater than 0.\n";
-        ++error;
-        return -1;
-    }
-    int source_len=source.length();
-
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_vector);
-    nasal_vector& ref_vec=nasal_vm.gc_get(ret_addr).get_vector();
-    std::string tmp="";
-    for(int i=0;i<source_len;++i)
-    {
-        bool check_delimeter=false;
-        if(source[i]==delimeter[0])
-            for(int j=0;j<delimeter_len;++j)
-            {
-                if(i+j>=source_len || source[i+j]!=delimeter[j])
-                    break;
-                if(j==delimeter_len-1)
-                    check_delimeter=true;
-            }
-        if(check_delimeter)
-        {
-            int str_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(str_addr).set_type(vm_string);
-            nasal_vm.gc_get(str_addr).set_string(tmp);
-            ref_vec.add_elem(str_addr);
-            tmp="";
-            i+=delimeter_len-1;
-        }
-        else
-            tmp+=source[i];
-    }
-    if(tmp.length())
-    {
-        int str_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(str_addr).set_type(vm_string);
-        nasal_vm.gc_get(str_addr).set_string(tmp);
-        ref_vec.add_elem(str_addr);
-        tmp="";
-    }
-    return ret_addr;
-}
-int nasal_runtime::builtin_rand(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("seed");
-    if(value_addr<0 || (nasal_vm.gc_get(value_addr).get_type()!=vm_number && nasal_vm.gc_get(value_addr).get_type()!=vm_nil))
-    {
-        std::cout<<">> [runtime] builtin_rand: \"seed\" has wrong value type(must be nil or number).\n";
-        ++error;
-        return -1;
-    }
-    if(nasal_vm.gc_get(value_addr).get_type()==vm_number)
-    {
-        unsigned int number=(unsigned int)nasal_vm.gc_get(value_addr).get_number();
-        srand(number);
-        int ret_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-        return ret_addr;
-    }
-    double num=0;
-    for(int i=0;i<5;++i)
-        num=(num+rand())*(1.0/(RAND_MAX+1.0));
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(num);
-    return ret_addr;
-}
-int nasal_runtime::builtin_id(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("id");
-    if(value_addr<0)
-    {
-        std::cout<<">> [runtime] builtin_id: cannot find \"id\".\n";
-        ++error;
-        return -1;
-    }
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)value_addr);
-    return ret_addr;
-}
-int nasal_runtime::builtin_int(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("value");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_int: \"value\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    int number=(int)nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)number);
-    return ret_addr;
-}
-int nasal_runtime::builtin_num(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("value");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_string)
-    {
-        std::cout<<">> [runtime] builtin_num: \"value\" has wrong value type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string str=nasal_vm.gc_get(value_addr).get_string();
-    if(!check_numerable_string(str))
-    {
-        std::cout<<">> [runtime] builtin_num: this is not a numerable string.\n";
-        ++error;
-        return -1;
-    }
-    double number=trans_string_to_number(str);
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(number);
-    return ret_addr;
-}
-int nasal_runtime::builtin_pop(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("vector");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_vector)
-    {
-        std::cout<<">> [runtime] builtin_pop: \"vector\" has wrong value type(must be vector).\n";
-        ++error;
-        return -1;
-    }
-    int ret_addr=nasal_vm.gc_get(value_addr).get_vector().del_elem();
-    return ret_addr;
-}
-int nasal_runtime::builtin_str(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("number");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_str: \"number\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_string);
-    nasal_vm.gc_get(ret_addr).set_string(trans_number_to_string(number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_size(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("object");
-    if(value_addr<0)
-    {
-        std::cout<<">> [runtime] builtin_size: cannot find value \"object\".\n";
-        ++error;
-        return -1;
-    }
-    int type=nasal_vm.gc_get(value_addr).get_type();
-    int number=-1;
-    switch(type)
-    {
-        case vm_nil:
-        case vm_number:
-        case vm_function:
-        case vm_closure:break;
-        case vm_string:number=nasal_vm.gc_get(value_addr).get_string().length();break;
-        case vm_vector:number=nasal_vm.gc_get(value_addr).get_vector().size();break;
-        case vm_hash:number=nasal_vm.gc_get(value_addr).get_hash().size();break;
-    }
-    int ret_addr=nasal_vm.gc_alloc();
-    if(number<0)
-        nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    else
-    {
-        nasal_vm.gc_get(ret_addr).set_type(vm_number);
-        nasal_vm.gc_get(ret_addr).set_number((double)number);
-    }
-    return ret_addr;
-}
-int nasal_runtime::builtin_xor(int local_scope_addr)
-{
-    int a_addr=in_builtin_find("a");
-    int b_addr=in_builtin_find("b");
-    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_xor: \"a\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_xor: \"b\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
-    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)(number_a^number_b));
-    return ret_addr;
-}
-int nasal_runtime::builtin_and(int local_scope_addr)
-{
-    int a_addr=in_builtin_find("a");
-    int b_addr=in_builtin_find("b");
-    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_and: \"a\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_and: \"b\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
-    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)(number_a&number_b));
-    return ret_addr;
-}
-int nasal_runtime::builtin_or(int local_scope_addr)
-{
-    int a_addr=in_builtin_find("a");
-    int b_addr=in_builtin_find("b");
-    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_or: \"a\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_or: \"b\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
-    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)(number_a|number_b));
-    return ret_addr;
-}
-int nasal_runtime::builtin_nand(int local_scope_addr)
-{
-    int a_addr=in_builtin_find("a");
-    int b_addr=in_builtin_find("b");
-    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_nand: \"a\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_nand: \"b\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
-    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)(~(number_a&number_b)));
-    return ret_addr;
-}
-int nasal_runtime::builtin_not(int local_scope_addr)
-{
-    int a_addr=in_builtin_find("a");
-    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_not: \"a\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    int number=(int)nasal_vm.gc_get(a_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)(~number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_sin(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("x");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_sin: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(sin(number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_cos(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("x");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_cos: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(cos(number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_tan(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("x");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_tan: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(tan(number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_exp(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("x");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_exp: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(exp(number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_ln(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("x");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_ln: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(log(number)/log(2.7182818284590452354));
-    return ret_addr;
-}
-int nasal_runtime::builtin_sqrt(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("x");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_sqrt: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double number=nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(sqrt(number));
-    return ret_addr;
-}
-int nasal_runtime::builtin_atan2(int local_scope_addr)
-{
-    int x_value_addr=in_builtin_find("x");
-    int y_value_addr=in_builtin_find("y");
-    if(x_value_addr<0 || nasal_vm.gc_get(x_value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_atan2: \"x\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    if(y_value_addr<0 || nasal_vm.gc_get(y_value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_atan2: \"y\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    double x=nasal_vm.gc_get(x_value_addr).get_number();
-    double y=nasal_vm.gc_get(y_value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number(atan2(y,x));
-    return ret_addr;
-}
-int nasal_runtime::builtin_time(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("begin_time");
-    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
-    {
-        std::cout<<">> [runtime] builtin_time: \"begin_time\" has wrong value type(must be number).\n";
-        ++error;
-        return -1;
-    }
-    time_t begin_time=(time_t)nasal_vm.gc_get(value_addr).get_number();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)time(&begin_time));
-    return ret_addr;
-}
-int nasal_runtime::builtin_contains(int local_scope_addr)
-{
-    int hash_addr=in_builtin_find("hash");
-    int key_addr=in_builtin_find("key");
-    if(hash_addr<0 || !in_builtin_check(hash_addr,vm_hash))
-    {
-        std::cout<<">> [runtime] builtin_contains: \"hash\" has wrong type(must be hash).\n";
-        ++error;
-        return -1;
-    }
-    if(key_addr<0 || !in_builtin_check(key_addr,vm_string))
-    {
-        std::cout<<">> [runtime] builtin_contains: \"key\" has wrong type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string key=nasal_vm.gc_get(key_addr).get_string();
-    bool contains=nasal_vm.gc_get(hash_addr).get_hash().check_contain(key);
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_number);
-    nasal_vm.gc_get(ret_addr).set_number((double)contains);
-    return ret_addr;
-}
-int nasal_runtime::builtin_delete(int local_scope_addr)
-{
-    int hash_addr=in_builtin_find("hash");
-    int key_addr=in_builtin_find("key");
-    if(hash_addr<0 || !in_builtin_check(hash_addr,vm_hash))
-    {
-        std::cout<<">> [runtime] builtin_delete: \"hash\" has wrong type(must be hash).\n";
-        ++error;
-        return -1;
-    }
-    if(key_addr<0 || !in_builtin_check(key_addr,vm_string))
-    {
-        std::cout<<">> [runtime] builtin_delete: \"key\" has wrong type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    std::string key=nasal_vm.gc_get(key_addr).get_string();
-    nasal_vm.gc_get(hash_addr).get_hash().del_elem(key);
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-int nasal_runtime::builtin_getkeys(int local_scope_addr)
-{
-    int hash_addr=in_builtin_find("hash");
-    if(hash_addr<0 || !in_builtin_check(hash_addr,vm_hash))
-    {
-        std::cout<<">> [runtime] builtin_delete: \"hash\" has wrong type(must be hash).\n";
-        ++error;
-        return -1;
-    }
-    int ret_addr=nasal_vm.gc_get(hash_addr).get_hash().get_keys();
-    return ret_addr;
-}
-int nasal_runtime::builtin_import(int local_scope_addr)
-{
-    // this function is used in preprocessing.
-    // this function will return nothing when running.
-    ++error;
-    std::cout<<">> [runtime] builtin_import: cannot use import when running.\n";
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-int nasal_runtime::builtin_die(int local_scope_addr)
-{
-    int str_addr=in_builtin_find("str");
-    if(str_addr<0 || !in_builtin_check(str_addr,vm_string))
-    {
-        std::cout<<">> [runtime] builtin_die: \"str\" has wrong type(must be string).\n";
-        ++error;
-        return -1;
-    }
-    ++error;
-    std::cout<<">> [runtime] error: "<<nasal_vm.gc_get(str_addr).get_string()<<'\n';
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
-    return ret_addr;
-}
-int nasal_runtime::builtin_type(int local_scope_addr)
-{
-    int value_addr=in_builtin_find("object");
-    if(value_addr<0)
-    {
-        std::cout<<">> [runtime] builtin_type: cannot find \"object\".\n";
-        ++error;
-        return -1;
-    }
-    int type=nasal_vm.gc_get(value_addr).get_type();
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_string);
-    switch(type)
-    {
-        case vm_nil:      nasal_vm.gc_get(ret_addr).set_string("nil");break;
-        case vm_number:   nasal_vm.gc_get(ret_addr).set_string("number");break;
-        case vm_string:   nasal_vm.gc_get(ret_addr).set_string("string");break;
-        case vm_vector:   nasal_vm.gc_get(ret_addr).set_string("vector");break;
-        case vm_hash:     nasal_vm.gc_get(ret_addr).set_string("hash");break;
-        case vm_function: nasal_vm.gc_get(ret_addr).set_string("function");break;
-    }
-    return ret_addr;
-}
+#ifndef __NASAL_BUILTIN_H__
+#define __NASAL_BUILTIN_H__
+
+#define in_builtin_find(value_name_string) (local_scope_addr>=0?nasal_vm.gc_get(local_scope_addr).get_closure().get_value_address(value_name_string):-1)
+#define in_builtin_check(value_addr,value_type) (nasal_vm.gc_get(value_addr).get_type()==(value_type))
+
+int nasal_runtime::builtin_print(int local_scope_addr)
+{
+    // get arguments
+    int vector_value_addr=in_builtin_find("elements");
+    if(vector_value_addr<0 || !in_builtin_check(vector_value_addr,vm_vector))
+    {
+        std::cout<<">> [runtime] builtin_print: \"elements\" has wrong value type(must be vector).\n";
+        ++error;
+        return -1;
+    }
+    // main process
+    nasal_vector& ref_vec=nasal_vm.gc_get(vector_value_addr).get_vector();
+    int size=ref_vec.size();
+    for(int i=0;i<size;++i)
+    {
+        nasal_scalar& tmp=nasal_vm.gc_get(ref_vec.get_value_address(i));
+        switch(tmp.get_type())
+        {
+            case vm_nil:std::cout<<"nil";break;
+            case vm_number:std::cout<<tmp.get_number();break;
+            case vm_string:std::cout<<tmp.get_string();break;
+            case vm_vector:std::cout<<"[...]";break;
+            case vm_hash:std::cout<<"{...}";break;
+            case vm_function:std::cout<<"func(...){...}";break;
+            case vm_closure:std::cout<<"closure{{...}}";break;
+        }
+        if(i==size-1)
+            std::cout<<'\n';
+    }
+    // generate return value
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+int nasal_runtime::builtin_append(int local_scope_addr)
+{
+    int vector_value_addr=in_builtin_find("vector");
+    int elem_value_addr=in_builtin_find("elements");
+    if(vector_value_addr<0 || !in_builtin_check(vector_value_addr,vm_vector))
+    {
+        std::cout<<">> [runtime] builtin_append: \"vector\" has wrong value type(must be vector).\n";
+        ++error;
+        return -1;
+    }
+    if(elem_value_addr<0 || !in_builtin_check(elem_value_addr,vm_vector))
+    {
+        std::cout<<">> [runtime] builtin_append: \"elements\" has wrong value type(must be vector).\n";
+        ++error;
+        return -1;
+    }
+    nasal_vector& ref_vector=nasal_vm.gc_get(vector_value_addr).get_vector();
+    nasal_vector& ref_elements=nasal_vm.gc_get(elem_value_addr).get_vector();
+    int size=ref_elements.size();
+    for(int i=0;i<size;++i)
+    {
+        int value_address=ref_elements.get_value_address(i);
+        nasal_vm.add_reference(value_address);
+        ref_vector.add_elem(value_address);
+    }
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+int nasal_runtime::builtin_setsize(int local_scope_addr)
+{
+    int vector_value_addr=in_builtin_find("vector");
+    int size_value_addr=in_builtin_find("size");
+    if(vector_value_addr<0 || nasal_vm.gc_get(vector_value_addr).get_type()!=vm_vector)
+    {
+        std::cout<<">> [runtime] builtin_setsize: \"vector\" has wrong value type(must be vector).\n";
+        ++error;
+        return -1;
+    }
+    if(size_value_addr<0)
+    {
+        std::cout<<">> [runtime] builtin_setsize: \"size\" has wrong value type(must be string or number).\n";
+        ++error;
+        return -1;
+    }
+    int type=nasal_vm.gc_get(size_value_addr).get_type();
+    if(type!=vm_number && type!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_setsize: size is not a number.\n";
+        ++error;
+        return -1;
+    }
+    int number;
+    if(type==vm_number)
+        number=(int)nasal_vm.gc_get(size_value_addr).get_number();
+    else
+    {
+        std::string str=nasal_vm.gc_get(size_value_addr).get_string();
+        if(check_numerable_string(str))
+            number=(int)trans_string_to_number(str);
+        else
+        {
+            std::cout<<">> [runtime] builtin_setsize: size is not a numerable string.\n";
+            ++error;
+            return -1;
+        }
+    }
+    if(number<0)
+    {
+        std::cout<<">> [runtime] builtin_setsize: size must be greater than -1.\n";
+        ++error;
+        return -1;
+    }
+    nasal_vector& ref_vector=nasal_vm.gc_get(vector_value_addr).get_vector();
+    int vec_size=ref_vector.size();
+    if(number<vec_size)
+        for(int i=number;i<vec_size;++i)
+        {
+            int addr=ref_vector.del_elem();
+            if(addr>=0)
+                nasal_vm.del_reference(addr);
+        }
+    else if(number>vec_size)
+        for(int i=vec_size;i<number;++i)
+        {
+            int new_val_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(new_val_addr).set_type(vm_nil);
+            ref_vector.add_elem(new_val_addr);
+        }
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+
+int nasal_runtime::builtin_system(int local_scope_addr)
+{
+    int str_value_addr=in_builtin_find("str");
+    if(str_value_addr<0 || nasal_vm.gc_get(str_value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_system: \"str\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string str=nasal_vm.gc_get(str_value_addr).get_string();
+    int size=str.length();
+    char* command=new char[size+1];
+    for(int i=0;i<size;++i)
+        command[i]=str[i];
+    command[size]='\0';
+    system(command);
+    delete []command;
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+
+int nasal_runtime::builtin_input(int local_scope_addr)
+{
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_string);
+    std::string str;
+    std::cin>>str;
+    nasal_vm.gc_get(ret_addr).set_string(str);
+    return ret_addr;
+}
+
+int nasal_runtime::builtin_sleep(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("duration");
+    if(value_addr<0 || (nasal_vm.gc_get(value_addr).get_type()!=vm_string && nasal_vm.gc_get(value_addr).get_type()!=vm_number))
+    {
+        std::cout<<">> [runtime] builtin_sleep: \"duration\" has wrong value type(must be string or number).\n";
+        ++error;
+        return -1;
+    }
+    unsigned long sleep_time=0;
+    if(nasal_vm.gc_get(value_addr).get_type()==vm_string)
+    {
+        std::string str=nasal_vm.gc_get(value_addr).get_string();
+        if(check_numerable_string(str))
+            sleep_time=(unsigned long)trans_string_to_number(str);
+        else
+        {
+            std::cout<<">> [runtime] builtin_sleep: this is not a numerable string.\n";
+            ++error;
+            return -1;
+        }
+    }
+    else
+        sleep_time=(unsigned long)nasal_vm.gc_get(value_addr).get_number();
+    sleep(sleep_time); // sleep in unistd.h will make this progress sleep sleep_time seconds.
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+
+int nasal_runtime::builtin_finput(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("filename");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_finput: \"filename\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string filename=nasal_vm.gc_get(value_addr).get_string();
+    std::ifstream fin(filename);
+    std::string file_content="";
+    if(!fin.fail())
+        while(!fin.eof())
+        {
+            file_content.push_back(fin.get());
+            if(fin.eof())
+                break;
+        }
+    else
+        file_content="cannot open file named \'"+filename+"\'.";
+    fin.close();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_string);
+    nasal_vm.gc_get(ret_addr).set_string(file_content);
+    return ret_addr;
+}
+
+int nasal_runtime::builtin_foutput(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("filename");
+    int str_value_addr=in_builtin_find("str");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_foutput: \"filename\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    if(str_value_addr<0 || nasal_vm.gc_get(str_value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_foutput: \"str\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string filename=nasal_vm.gc_get(value_addr).get_string();
+    std::string file_content=nasal_vm.gc_get(str_value_addr).get_string();
+    std::ofstream fout(filename);
+    fout<<file_content;
+    fout.close();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+
+int nasal_runtime::builtin_split(int local_scope_addr)
+{
+    int delimeter_value_addr=in_builtin_find("delimeter");
+    int string_value_addr=in_builtin_find("string");
+    if(delimeter_value_addr<0 || nasal_vm.gc_get(delimeter_value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_split: \"delimeter\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    if(string_value_addr<0 || nasal_vm.gc_get(string_value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_split: \"string\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string delimeter=nasal_vm.gc_get(delimeter_value_addr).get_string();
+    std::string source=nasal_vm.gc_get(string_value_addr).get_string();
+    int delimeter_len=delimeter.length();
+    if(delimeter_len<1)
+    {
+        std::cout<<">> [runtime] builtin_split: delimeter's length must be greater than 0.\n";
+        ++error;
+        return -1;
+    }
+    int source_len=source.length();
+
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_vector);
+    nasal_vector& ref_vec=nasal_vm.gc_get(ret_addr).get_vector();
+    std::string tmp="";
+    for(int i=0;i<source_len;++i)
+    {
+        bool check_delimeter=false;
+        if(source[i]==delimeter[0])
+            for(int j=0;j<delimeter_len;++j)
+            {
+                if(i+j>=source_len || source[i+j]!=delimeter[j])
+                    break;
+                if(j==delimeter_len-1)
+                    check_delimeter=true;
+            }
+        if(check_delimeter)
+        {
+            int str_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(str_addr).set_type(vm_string);
+            nasal_vm.gc_get(str_addr).set_string(tmp);
+            ref_vec.add_elem(str_addr);
+            tmp="";
+            i+=delimeter_len-1;
+        }
+        else
+            tmp+=source[i];
+    }
+    if(tmp.length())
+    {
+        int str_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(str_addr).set_type(vm_string);
+        nasal_vm.gc_get(str_addr).set_string(tmp);
+        ref_vec.add_elem(str_addr);
+        tmp="";
+    }
+    return ret_addr;
+}
+int nasal_runtime::builtin_rand(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("seed");
+    if(value_addr<0 || (nasal_vm.gc_get(value_addr).get_type()!=vm_number && nasal_vm.gc_get(value_addr).get_type()!=vm_nil))
+    {
+        std::cout<<">> [runtime] builtin_rand: \"seed\" has wrong value type(must be nil or number).\n";
+        ++error;
+        return -1;
+    }
+    if(nasal_vm.gc_get(value_addr).get_type()==vm_number)
+    {
+        unsigned int number=(unsigned int)nasal_vm.gc_get(value_addr).get_number();
+        srand(number);
+        int ret_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+        return ret_addr;
+    }
+    double num=0;
+    for(int i=0;i<5;++i)
+        num=(num+rand())*(1.0/(RAND_MAX+1.0));
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(num);
+    return ret_addr;
+}
+int nasal_runtime::builtin_id(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("id");
+    if(value_addr<0)
+    {
+        std::cout<<">> [runtime] builtin_id: cannot find \"id\".\n";
+        ++error;
+        return -1;
+    }
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)value_addr);
+    return ret_addr;
+}
+int nasal_runtime::builtin_int(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("value");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_int: \"value\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    int number=(int)nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)number);
+    return ret_addr;
+}
+int nasal_runtime::builtin_num(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("value");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_string)
+    {
+        std::cout<<">> [runtime] builtin_num: \"value\" has wrong value type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string str=nasal_vm.gc_get(value_addr).get_string();
+    if(!check_numerable_string(str))
+    {
+        std::cout<<">> [runtime] builtin_num: this is not a numerable string.\n";
+        ++error;
+        return -1;
+    }
+    double number=trans_string_to_number(str);
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(number);
+    return ret_addr;
+}
+int nasal_runtime::builtin_pop(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("vector");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_vector)
+    {
+        std::cout<<">> [runtime] builtin_pop: \"vector\" has wrong value type(must be vector).\n";
+        ++error;
+        return -1;
+    }
+    int ret_addr=nasal_vm.gc_get(value_addr).get_vector().del_elem();
+    return ret_addr;
+}
+int nasal_runtime::builtin_str(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("number");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_str: \"number\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_string);
+    nasal_vm.gc_get(ret_addr).set_string(trans_number_to_string(number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_size(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("object");
+    if(value_addr<0)
+    {
+        std::cout<<">> [runtime] builtin_size: cannot find value \"object\".\n";
+        ++error;
+        return -1;
+    }
+    int type=nasal_vm.gc_get(value_addr).get_type();
+    int number=-1;
+    switch(type)
+    {
+        case vm_nil:
+        case vm_number:
+        case vm_function:
+        case vm_closure:break;
+        case vm_string:number=nasal_vm.gc_get(value_addr).get_string().length();break;
+        case vm_vector:number=nasal_vm.gc_get(value_addr).get_vector().size();break;
+        case vm_hash:number=nasal_vm.gc_get(value_addr).get_hash().size();break;
+    }
+    int ret_addr=nasal_vm.gc_alloc();
+    if(number<0)
+        nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    else
+    {
+        nasal_vm.gc_get(ret_addr).set_type(vm_number);
+        nasal_vm.gc_get(ret_addr).set_number((double)number);
+    }
+    return ret_addr;
+}
+int nasal_runtime::builtin_xor(int local_scope_addr)
+{
+    int a_addr=in_builtin_find("a");
+    int b_addr=in_builtin_find("b");
+    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_xor: \"a\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_xor: \"b\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
+    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)(number_a^number_b));
+    return ret_addr;
+}
+int nasal_runtime::builtin_and(int local_scope_addr)
+{
+    int a_addr=in_builtin_find("a");
+    int b_addr=in_builtin_find("b");
+    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_and: \"a\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_and: \"b\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
+    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)(number_a&number_b));
+    return ret_addr;
+}
+int nasal_runtime::builtin_or(int local_scope_addr)
+{
+    int a_addr=in_builtin_find("a");
+    int b_addr=in_builtin_find("b");
+    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_or: \"a\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_or: \"b\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
+    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)(number_a|number_b));
+    return ret_addr;
+}
+int nasal_runtime::builtin_nand(int local_scope_addr)
+{
+    int a_addr=in_builtin_find("a");
+    int b_addr=in_builtin_find("b");
+    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_nand: \"a\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    if(b_addr<0 || nasal_vm.gc_get(b_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_nand: \"b\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    int number_a=(int)nasal_vm.gc_get(a_addr).get_number();
+    int number_b=(int)nasal_vm.gc_get(b_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)(~(number_a&number_b)));
+    return ret_addr;
+}
+int nasal_runtime::builtin_not(int local_scope_addr)
+{
+    int a_addr=in_builtin_find("a");
+    if(a_addr<0 || nasal_vm.gc_get(a_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_not: \"a\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    int number=(int)nasal_vm.gc_get(a_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)(~number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_sin(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("x");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_sin: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(sin(number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_cos(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("x");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_cos: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(cos(number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_tan(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("x");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_tan: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(tan(number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_exp(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("x");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_exp: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(exp(number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_ln(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("x");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_ln: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(log(number)/log(2.7182818284590452354));
+    return ret_addr;
+}
+int nasal_runtime::builtin_sqrt(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("x");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_sqrt: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double number=nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(sqrt(number));
+    return ret_addr;
+}
+int nasal_runtime::builtin_atan2(int local_scope_addr)
+{
+    int x_value_addr=in_builtin_find("x");
+    int y_value_addr=in_builtin_find("y");
+    if(x_value_addr<0 || nasal_vm.gc_get(x_value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_atan2: \"x\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    if(y_value_addr<0 || nasal_vm.gc_get(y_value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_atan2: \"y\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    double x=nasal_vm.gc_get(x_value_addr).get_number();
+    double y=nasal_vm.gc_get(y_value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number(atan2(y,x));
+    return ret_addr;
+}
+int nasal_runtime::builtin_time(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("begin_time");
+    if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_number)
+    {
+        std::cout<<">> [runtime] builtin_time: \"begin_time\" has wrong value type(must be number).\n";
+        ++error;
+        return -1;
+    }
+    time_t begin_time=(time_t)nasal_vm.gc_get(value_addr).get_number();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)time(&begin_time));
+    return ret_addr;
+}
+int nasal_runtime::builtin_contains(int local_scope_addr)
+{
+    int hash_addr=in_builtin_find("hash");
+    int key_addr=in_builtin_find("key");
+    if(hash_addr<0 || !in_builtin_check(hash_addr,vm_hash))
+    {
+        std::cout<<">> [runtime] builtin_contains: \"hash\" has wrong type(must be hash).\n";
+        ++error;
+        return -1;
+    }
+    if(key_addr<0 || !in_builtin_check(key_addr,vm_string))
+    {
+        std::cout<<">> [runtime] builtin_contains: \"key\" has wrong type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string key=nasal_vm.gc_get(key_addr).get_string();
+    bool contains=nasal_vm.gc_get(hash_addr).get_hash().check_contain(key);
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_number);
+    nasal_vm.gc_get(ret_addr).set_number((double)contains);
+    return ret_addr;
+}
+int nasal_runtime::builtin_delete(int local_scope_addr)
+{
+    int hash_addr=in_builtin_find("hash");
+    int key_addr=in_builtin_find("key");
+    if(hash_addr<0 || !in_builtin_check(hash_addr,vm_hash))
+    {
+        std::cout<<">> [runtime] builtin_delete: \"hash\" has wrong type(must be hash).\n";
+        ++error;
+        return -1;
+    }
+    if(key_addr<0 || !in_builtin_check(key_addr,vm_string))
+    {
+        std::cout<<">> [runtime] builtin_delete: \"key\" has wrong type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    std::string key=nasal_vm.gc_get(key_addr).get_string();
+    nasal_vm.gc_get(hash_addr).get_hash().del_elem(key);
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+int nasal_runtime::builtin_getkeys(int local_scope_addr)
+{
+    int hash_addr=in_builtin_find("hash");
+    if(hash_addr<0 || !in_builtin_check(hash_addr,vm_hash))
+    {
+        std::cout<<">> [runtime] builtin_delete: \"hash\" has wrong type(must be hash).\n";
+        ++error;
+        return -1;
+    }
+    int ret_addr=nasal_vm.gc_get(hash_addr).get_hash().get_keys();
+    return ret_addr;
+}
+int nasal_runtime::builtin_import(int local_scope_addr)
+{
+    // this function is used in preprocessing.
+    // this function will return nothing when running.
+    ++error;
+    std::cout<<">> [runtime] builtin_import: cannot use import when running.\n";
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+int nasal_runtime::builtin_die(int local_scope_addr)
+{
+    int str_addr=in_builtin_find("str");
+    if(str_addr<0 || !in_builtin_check(str_addr,vm_string))
+    {
+        std::cout<<">> [runtime] builtin_die: \"str\" has wrong type(must be string).\n";
+        ++error;
+        return -1;
+    }
+    ++error;
+    std::cout<<">> [runtime] error: "<<nasal_vm.gc_get(str_addr).get_string()<<'\n';
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_nil);
+    return ret_addr;
+}
+int nasal_runtime::builtin_type(int local_scope_addr)
+{
+    int value_addr=in_builtin_find("object");
+    if(value_addr<0)
+    {
+        std::cout<<">> [runtime] builtin_type: cannot find \"object\".\n";
+        ++error;
+        return -1;
+    }
+    int type=nasal_vm.gc_get(value_addr).get_type();
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_string);
+    switch(type)
+    {
+        case vm_nil:      nasal_vm.gc_get(ret_addr).set_string("nil");break;
+        case vm_number:   nasal_vm.gc_get(ret_addr).set_string("number");break;
+        case vm_string:   nasal_vm.gc_get(ret_addr).set_string("string");break;
+        case vm_vector:   nasal_vm.gc_get(ret_addr).set_string("vector");break;
+        case vm_hash:     nasal_vm.gc_get(ret_addr).set_string("hash");break;
+        case vm_function: nasal_vm.gc_get(ret_addr).set_string("function");break;
+    }
+    return ret_addr;
+}
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_codegen.h b/nasal_codegen.h
similarity index 96%
rename from version3.0/nasal_codegen.h
rename to nasal_codegen.h
index 8c202b5..5f45e22 100644
--- a/version3.0/nasal_codegen.h
+++ b/nasal_codegen.h
@@ -1,225 +1,225 @@
-#ifndef __NASAL_CODEGEN_H__
-#define __NASAL_CODEGEN_H__
-
-// unfinished
-// now it can output ast but it is not byte code yet
-// please wait...
-class nasal_codegen
-{
-private:
-    std::vector<unsigned char> file_header;
-    std::vector<unsigned char> output_file;
-    std::vector<std::string> string_table;
-    int error;
-    void init();
-    void output_int(unsigned int,std::vector<unsigned char>&);
-    void output_short(unsigned short,std::vector<unsigned char>&);
-    void output_root(nasal_ast&);
-    unsigned int input_int(std::ifstream&);
-    unsigned short input_short(std::ifstream&);
-    void input_root(nasal_ast&,std::ifstream&);
-public:
-    nasal_codegen();
-    int get_error();
-    void output_exec(std::string,nasal_ast&);
-    void load_exec(std::string,nasal_ast&);
-};
-
-nasal_codegen::nasal_codegen()
-{
-    error=0;
-    string_table.clear();
-    return;
-}
-
-int nasal_codegen::get_error()
-{
-    return error;
-}
-
-void nasal_codegen::init()
-{
-    error=0;
-    string_table.clear();
-    file_header.clear();
-    output_file.clear();
-    return;
-}
-
-void nasal_codegen::output_int(unsigned int num,std::vector<unsigned char>& vec)
-{
-    unsigned int tmp=0xff000000;
-    unsigned int offset=24;
-    for(int i=0;i<4;++i)
-    {
-        vec.push_back((unsigned char)((tmp&num)>>offset));
-        offset-=8;
-        tmp>>=8;
-    }
-    return;
-}
-
-void nasal_codegen::output_short(unsigned short num,std::vector<unsigned char>& vec)
-{
-    vec.push_back((unsigned char)((num&0xff00)>>8));
-    vec.push_back((unsigned char)(num&0x00ff));
-    return;
-}
-
-void nasal_codegen::output_root(nasal_ast& root)
-{
-    unsigned char type=(unsigned char)root.get_type();
-    output_file.push_back(type);
-    std::vector<nasal_ast>& ref_vec=root.get_children();
-    unsigned short root_children_size=ref_vec.size();
-    output_short(root_children_size,output_file);
-    if(type==ast_number || type==ast_string || type==ast_identifier || type==ast_dynamic_id || type==ast_call_hash)
-    {
-        std::string tmp=root.get_str();
-        if(std::find(string_table.begin(),string_table.end(),tmp)==string_table.end())
-        {
-            string_table.push_back(tmp);
-            output_short(string_table.size()-1,output_file);
-        }
-        else
-        {
-            for(int i=0;i<string_table.size();++i)
-                if(string_table[i]==tmp)
-                {
-                    output_short(i,output_file);
-                    break;
-                }
-        }
-    }
-    for(unsigned short i=0;i<root_children_size;++i)
-        output_root(ref_vec[i]);
-    return;
-}
-
-void nasal_codegen::output_exec(std::string filename,nasal_ast& root)
-{
-    // initializing
-    this->init();
-
-    // put header input file_header
-    unsigned char header[4]={0x40,0x56,0x4b,0x21};
-    for(int i=0;i<4;++i)
-        file_header.push_back(header[i]);
-    
-    // main progress,put codes into output_file
-    output_root(root);
-
-    // put string table into file_header
-    output_short(string_table.size(),file_header);
-    for(int i=0;i<string_table.size();++i)
-    {
-        int len=string_table[i].length();
-        for(int j=0;j<len;++j)
-            file_header.push_back((unsigned char)string_table[i][j]);
-        file_header.push_back(0);
-    }
-
-    // output to file
-    std::ofstream fout(filename,std::ios::binary);
-    if(fout.fail())
-    {
-        ++error;
-        std::cout<<">> [code] cannot generate file \""<<filename<<"\"."<<std::endl;
-        fout.close();
-        return;
-    }
-    int size=file_header.size();
-    for(int i=0;i<size;++i)
-        fout<<file_header[i];
-    size=output_file.size();
-    for(int i=0;i<size;++i)
-        fout<<output_file[i];
-    fout.close();
-    return;
-}
-
-unsigned int nasal_codegen::input_int(std::ifstream& fin)
-{
-    unsigned int number=0;
-    for(int i=0;i<4;++i)
-    {
-        number<<=8;
-        number+=(unsigned char)fin.get();
-    }
-    return number;
-}
-
-unsigned short nasal_codegen::input_short(std::ifstream& fin)
-{
-    unsigned short number=(unsigned char)fin.get();
-    number=(number<<8)+(unsigned char)fin.get();
-    return number;
-}
-
-void nasal_codegen::input_root(nasal_ast& root,std::ifstream& fin)
-{
-    unsigned char type=(unsigned char)fin.get();
-    unsigned short size=input_short(fin);
-    root.set_type(type);
-    if(type==ast_number || type==ast_string || type==ast_identifier || type==ast_dynamic_id || type==ast_call_hash)
-    {
-        std::string tmp=string_table[input_short(fin)];
-        root.set_str(tmp);
-    }
-    for(unsigned short i=0;i<size;++i)
-    {
-        nasal_ast new_ast;
-        root.add_child(new_ast);
-        input_root(root.get_children().back(),fin);
-        if(error)
-            return;
-    }
-    return;
-}
-
-void nasal_codegen::load_exec(std::string filename,nasal_ast& root)
-{
-    // initializing
-    string_table.clear();
-    root.clear();
-
-    // start input
-    std::ifstream fin(filename,std::ios::binary);
-    if(fin.fail())
-    {
-        ++error;
-        std::cout<<">> [code] cannot open file\""<<filename<<"\"."<<std::endl;
-        fin.close();
-        return;
-    }
-
-    // check header
-    unsigned char header[4]={0x40,0x56,0x4b,0x21};
-    for(int i=0;i<4;++i)
-        if((unsigned char)fin.get()!=header[i])
-        {
-            ++error;
-            std::cout<<">> [code] \""<<filename<<"\" is not an executable file."<<std::endl;
-            return;
-        }
-    
-    // input string table
-    unsigned short string_num=input_short(fin);
-    for(int i=0;i<string_num;++i)
-    {
-        std::string tmp="";
-        while(1)
-        {
-            unsigned char c=(unsigned char)fin.get();
-            if(!c || fin.eof()) break;
-            tmp+=c;
-        }
-        string_table.push_back(tmp);
-    }
-
-    // generate root
-    input_root(root,fin);
-    return;
-}
-
+#ifndef __NASAL_CODEGEN_H__
+#define __NASAL_CODEGEN_H__
+
+// unfinished
+// now it can output ast but it is not byte code yet
+// please wait...
+class nasal_codegen
+{
+private:
+    std::vector<unsigned char> file_header;
+    std::vector<unsigned char> output_file;
+    std::vector<std::string> string_table;
+    int error;
+    void init();
+    void output_int(unsigned int,std::vector<unsigned char>&);
+    void output_short(unsigned short,std::vector<unsigned char>&);
+    void output_root(nasal_ast&);
+    unsigned int input_int(std::ifstream&);
+    unsigned short input_short(std::ifstream&);
+    void input_root(nasal_ast&,std::ifstream&);
+public:
+    nasal_codegen();
+    int get_error();
+    void output_exec(std::string,nasal_ast&);
+    void load_exec(std::string,nasal_ast&);
+};
+
+nasal_codegen::nasal_codegen()
+{
+    error=0;
+    string_table.clear();
+    return;
+}
+
+int nasal_codegen::get_error()
+{
+    return error;
+}
+
+void nasal_codegen::init()
+{
+    error=0;
+    string_table.clear();
+    file_header.clear();
+    output_file.clear();
+    return;
+}
+
+void nasal_codegen::output_int(unsigned int num,std::vector<unsigned char>& vec)
+{
+    unsigned int tmp=0xff000000;
+    unsigned int offset=24;
+    for(int i=0;i<4;++i)
+    {
+        vec.push_back((unsigned char)((tmp&num)>>offset));
+        offset-=8;
+        tmp>>=8;
+    }
+    return;
+}
+
+void nasal_codegen::output_short(unsigned short num,std::vector<unsigned char>& vec)
+{
+    vec.push_back((unsigned char)((num&0xff00)>>8));
+    vec.push_back((unsigned char)(num&0x00ff));
+    return;
+}
+
+void nasal_codegen::output_root(nasal_ast& root)
+{
+    unsigned char type=(unsigned char)root.get_type();
+    output_file.push_back(type);
+    std::vector<nasal_ast>& ref_vec=root.get_children();
+    unsigned short root_children_size=ref_vec.size();
+    output_short(root_children_size,output_file);
+    if(type==ast_number || type==ast_string || type==ast_identifier || type==ast_dynamic_id || type==ast_call_hash)
+    {
+        std::string tmp=root.get_str();
+        if(std::find(string_table.begin(),string_table.end(),tmp)==string_table.end())
+        {
+            string_table.push_back(tmp);
+            output_short(string_table.size()-1,output_file);
+        }
+        else
+        {
+            for(int i=0;i<string_table.size();++i)
+                if(string_table[i]==tmp)
+                {
+                    output_short(i,output_file);
+                    break;
+                }
+        }
+    }
+    for(unsigned short i=0;i<root_children_size;++i)
+        output_root(ref_vec[i]);
+    return;
+}
+
+void nasal_codegen::output_exec(std::string filename,nasal_ast& root)
+{
+    // initializing
+    this->init();
+
+    // put header input file_header
+    unsigned char header[4]={0x40,0x56,0x4b,0x21};
+    for(int i=0;i<4;++i)
+        file_header.push_back(header[i]);
+    
+    // main progress,put codes into output_file
+    output_root(root);
+
+    // put string table into file_header
+    output_short(string_table.size(),file_header);
+    for(int i=0;i<string_table.size();++i)
+    {
+        int len=string_table[i].length();
+        for(int j=0;j<len;++j)
+            file_header.push_back((unsigned char)string_table[i][j]);
+        file_header.push_back(0);
+    }
+
+    // output to file
+    std::ofstream fout(filename,std::ios::binary);
+    if(fout.fail())
+    {
+        ++error;
+        std::cout<<">> [code] cannot generate file \""<<filename<<"\"."<<std::endl;
+        fout.close();
+        return;
+    }
+    int size=file_header.size();
+    for(int i=0;i<size;++i)
+        fout<<file_header[i];
+    size=output_file.size();
+    for(int i=0;i<size;++i)
+        fout<<output_file[i];
+    fout.close();
+    return;
+}
+
+unsigned int nasal_codegen::input_int(std::ifstream& fin)
+{
+    unsigned int number=0;
+    for(int i=0;i<4;++i)
+    {
+        number<<=8;
+        number+=(unsigned char)fin.get();
+    }
+    return number;
+}
+
+unsigned short nasal_codegen::input_short(std::ifstream& fin)
+{
+    unsigned short number=(unsigned char)fin.get();
+    number=(number<<8)+(unsigned char)fin.get();
+    return number;
+}
+
+void nasal_codegen::input_root(nasal_ast& root,std::ifstream& fin)
+{
+    unsigned char type=(unsigned char)fin.get();
+    unsigned short size=input_short(fin);
+    root.set_type(type);
+    if(type==ast_number || type==ast_string || type==ast_identifier || type==ast_dynamic_id || type==ast_call_hash)
+    {
+        std::string tmp=string_table[input_short(fin)];
+        root.set_str(tmp);
+    }
+    for(unsigned short i=0;i<size;++i)
+    {
+        nasal_ast new_ast;
+        root.add_child(new_ast);
+        input_root(root.get_children().back(),fin);
+        if(error)
+            return;
+    }
+    return;
+}
+
+void nasal_codegen::load_exec(std::string filename,nasal_ast& root)
+{
+    // initializing
+    string_table.clear();
+    root.clear();
+
+    // start input
+    std::ifstream fin(filename,std::ios::binary);
+    if(fin.fail())
+    {
+        ++error;
+        std::cout<<">> [code] cannot open file\""<<filename<<"\"."<<std::endl;
+        fin.close();
+        return;
+    }
+
+    // check header
+    unsigned char header[4]={0x40,0x56,0x4b,0x21};
+    for(int i=0;i<4;++i)
+        if((unsigned char)fin.get()!=header[i])
+        {
+            ++error;
+            std::cout<<">> [code] \""<<filename<<"\" is not an executable file."<<std::endl;
+            return;
+        }
+    
+    // input string table
+    unsigned short string_num=input_short(fin);
+    for(int i=0;i<string_num;++i)
+    {
+        std::string tmp="";
+        while(1)
+        {
+            unsigned char c=(unsigned char)fin.get();
+            if(!c || fin.eof()) break;
+            tmp+=c;
+        }
+        string_table.push_back(tmp);
+    }
+
+    // generate root
+    input_root(root,fin);
+    return;
+}
+
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_enum.h b/nasal_enum.h
similarity index 97%
rename from version3.0/nasal_enum.h
rename to nasal_enum.h
index d25318f..b55c74f 100644
--- a/version3.0/nasal_enum.h
+++ b/nasal_enum.h
@@ -1,190 +1,190 @@
-#ifndef __NASAL_ENUM_H__
-#define __NASAL_ENUM_H__
-
-/* token_type is used in lexer */
-enum token_type
-{
-    tok_null=0,
-    tok_number,tok_string,tok_identifier,
-    tok_for,tok_forindex,tok_foreach,tok_while,
-    tok_var,tok_func,tok_break,tok_continue,
-    tok_return,tok_if,tok_elsif,tok_else,tok_nil,
-    tok_left_curve,tok_right_curve,
-    tok_left_bracket,tok_right_bracket,
-    tok_left_brace,tok_right_brace,
-    tok_semi,tok_and,tok_or,tok_comma,tok_dot,tok_ellipsis,tok_quesmark,
-    tok_colon,tok_add,tok_sub,tok_mult,tok_div,tok_link,tok_not,
-    tok_equal,
-    tok_add_equal,tok_sub_equal,tok_mult_equal,tok_div_equal,tok_link_equal,
-    tok_cmp_equal,tok_cmp_not_equal,tok_less_than,tok_greater_than,tok_less_equal,tok_greater_equal
-};
-
-enum ast_node
-{
-    ast_null=0,ast_root,ast_block,
-    ast_nil,ast_number,ast_string,ast_identifier,ast_function,ast_hash,ast_vector,
-    ast_hashmember,ast_call,ast_call_hash,ast_call_vec,ast_call_func,ast_subvec,
-    ast_args,ast_default_arg,ast_dynamic_id,
-    ast_and,ast_or,
-    ast_equal,ast_add_equal,ast_sub_equal,ast_mult_equal,ast_div_equal,ast_link_equal,
-    ast_cmp_equal,ast_cmp_not_equal,ast_less_than,ast_less_equal,ast_greater_than,ast_greater_equal,
-    ast_add,ast_sub,ast_mult,ast_div,ast_link,
-    ast_unary_sub,ast_unary_not,
-    ast_trinocular,
-    ast_for,ast_forindex,ast_foreach,ast_while,ast_new_iter,
-    ast_conditional,ast_if,ast_elsif,ast_else,
-    ast_multi_id,ast_multi_scalar,
-    ast_definition,ast_multi_assign,
-    ast_continue,ast_break,ast_return
-};
-
-std::string ast_str(int type)
-{
-    std::string str;
-    switch(type)
-    {
-        case ast_null:         str="null";break;
-        case ast_root:         str="root";break;
-        case ast_block:        str="block";break;
-        case ast_nil:          str="nil";break;
-        case ast_number:       str="number";break;
-        case ast_string:       str="string";break;
-        case ast_identifier:   str="id";break;
-        case ast_function:     str="function";break;
-        case ast_hash:         str="hash";break;
-        case ast_vector:       str="vector";break;
-        case ast_hashmember:   str="hashmember";break;
-        case ast_call:         str="call";break;
-        case ast_call_hash:    str="call_hash";break;
-        case ast_call_vec:     str="call_vector";break;
-        case ast_call_func:    str="call_func";break;
-        case ast_subvec:       str="subvec";break;
-        case ast_args:         str="arguments";break;
-        case ast_default_arg:  str="default_arg";break;
-        case ast_dynamic_id:   str="dynamic_id";break;
-        case ast_and:          str="and";break;
-        case ast_or:           str="or";break;
-        case ast_equal:        str="=";break;
-        case ast_add_equal:    str="+=";break;
-        case ast_sub_equal:    str="-=";break;
-        case ast_mult_equal:   str="*=";break;
-        case ast_div_equal:    str="/=";break;
-        case ast_link_equal:   str="~=";break;
-        case ast_cmp_equal:    str="==";break;
-        case ast_cmp_not_equal:str="!=";break;
-        case ast_less_than:    str="<";break;
-        case ast_less_equal:   str="<=";break;
-        case ast_greater_than: str=">";break;
-        case ast_greater_equal:str=">=";break;
-        case ast_add:          str="+";break;
-        case ast_sub:          str="-";break;
-        case ast_mult:         str="*";break;
-        case ast_div:          str="/";break;
-        case ast_link:         str="~";break;
-        case ast_unary_sub:    str="unary-";break;
-        case ast_unary_not:    str="unary!";break;
-        case ast_trinocular:   str="trinocular";break;
-        case ast_for:          str="for";break;
-        case ast_forindex:     str="forindex";break;
-        case ast_foreach:      str="foreach";break;
-        case ast_while:        str="while";break;
-        case ast_new_iter:     str="new_iterator";break;
-        case ast_conditional:  str="conditional";break;
-        case ast_if:           str="if";break;
-        case ast_elsif:        str="elsif";break;
-        case ast_else:         str="else";break;
-        case ast_multi_id:     str="multi_id";break;
-        case ast_multi_scalar: str="multi_scalar";break;
-        case ast_definition:   str="definition";break;
-        case ast_multi_assign: str="multi_assignment";break;
-        case ast_continue:     str="continue";break;
-        case ast_break:        str="break";break;
-        case ast_return:       str="return";break;
-    }
-    return str;
-}
-
-enum parse_error
-{
-    unknown,
-    error_token,
-    error_expr,
-    lack_left_curve,
-    lack_right_curve,
-    lack_left_bracket,
-    lack_right_bracket,
-    lack_left_brace,
-    lack_right_brace,
-    exprs_lack_rbrace,
-    lack_semi,
-    lack_comma,
-    lack_colon,
-    lack_equal,
-    lack_scalar,
-    lack_identifier,
-    lack_calculation,
-    lack_exprs,
-    lack_token,
-    lack_args,
-    default_arg_not_end,
-    dynamic_id_not_end,
-    name_repetition,
-    definition_use_call,
-    multi_id_use_call,
-    multi_assign_lack_val,
-    lack_definition,
-    lack_loop_iter,
-    lack_func_content
-};
-
-void error_info(int line,int error_type,std::string error_str="")
-{
-    std::string detail;
-    std::cout<<">> [parse] error_info: [line "<<line<<"] ";
-    switch(error_type)
-    {
-        case unknown:              std::cout<<"unknown error.\n";                       break;
-        case error_token:          std::cout<<"error token \""+error_str+"\".\n";       break;
-        case error_expr:           std::cout<<"error expression \""+error_str+"\".\n";  break;
-        case lack_left_curve:      std::cout<<"expected \"(\".\n";                      break;
-        case lack_right_curve:     std::cout<<"expected \")\".\n";                      break;
-        case lack_left_bracket:    std::cout<<"expected \"[\".\n";                      break;
-        case lack_right_bracket:   std::cout<<"expected \"]\".\n";                      break;
-        case lack_left_brace:      std::cout<<"expected \"{\".\n";                      break;
-        case lack_right_brace:     std::cout<<"expected \"}\".\n";                      break;
-        case exprs_lack_rbrace:    std::cout<<"expected \"}\" with this line\'s \"{\".\n";break;
-        case lack_semi:            std::cout<<"expected \";\".\n";                      break;
-        case lack_comma:           std::cout<<"expected \",\".\n";                      break;
-        case lack_colon:           std::cout<<"expected \":\".\n";                      break;
-        case lack_equal:           std::cout<<"expected \"=\".\n";                      break;
-        case lack_scalar:          std::cout<<"expected scalar here.\n";                break;
-        case lack_identifier:      std::cout<<"expected identifier here.\n";            break;
-        case lack_calculation:     std::cout<<"expected arithmetic-expression here.\n"; break;
-        case lack_exprs:           std::cout<<"expected expression block here.\n";      break;
-        case lack_token:           std::cout<<"expected \""+error_str+"\" here.\n";     break;
-        case lack_args:            std::cout<<"expected arguments here.\n";             break;
-        case default_arg_not_end:  std::cout<<"default argument missing for parameter of "+error_str+".\n";break;
-        case dynamic_id_not_end:   std::cout<<"dynamic id must be the end of "+error_str+".\n";break;
-        case name_repetition:      std::cout<<"this identifier name has existed.\n";break;
-        case definition_use_call:  std::cout<<"should not use call_scalar in definition progress.\n";break;
-        case multi_id_use_call:    std::cout<<"should not use call_scalar in multi_id progress.\n";break;
-        case multi_assign_lack_val:std::cout<<"multi-assignment lacks value list.\n";break;
-        case lack_definition:      std::cout<<"expected a definition expression here.\n";break;
-        case lack_loop_iter:       std::cout<<"expected an iterator to loop through.\n";break;
-        case lack_func_content:    std::cout<<"expected arguments or expression block here.\n";break;
-    }
-    return;
-}
-
-enum runtime_scalar_type
-{
-    vm_nil=0,
-    vm_number,
-    vm_string,
-    vm_closure,
-    vm_function,
-    vm_vector,
-    vm_hash
-};
-
+#ifndef __NASAL_ENUM_H__
+#define __NASAL_ENUM_H__
+
+/* token_type is used in lexer */
+enum token_type
+{
+    tok_null=0,
+    tok_number,tok_string,tok_identifier,
+    tok_for,tok_forindex,tok_foreach,tok_while,
+    tok_var,tok_func,tok_break,tok_continue,
+    tok_return,tok_if,tok_elsif,tok_else,tok_nil,
+    tok_left_curve,tok_right_curve,
+    tok_left_bracket,tok_right_bracket,
+    tok_left_brace,tok_right_brace,
+    tok_semi,tok_and,tok_or,tok_comma,tok_dot,tok_ellipsis,tok_quesmark,
+    tok_colon,tok_add,tok_sub,tok_mult,tok_div,tok_link,tok_not,
+    tok_equal,
+    tok_add_equal,tok_sub_equal,tok_mult_equal,tok_div_equal,tok_link_equal,
+    tok_cmp_equal,tok_cmp_not_equal,tok_less_than,tok_greater_than,tok_less_equal,tok_greater_equal
+};
+
+enum ast_node
+{
+    ast_null=0,ast_root,ast_block,
+    ast_nil,ast_number,ast_string,ast_identifier,ast_function,ast_hash,ast_vector,
+    ast_hashmember,ast_call,ast_call_hash,ast_call_vec,ast_call_func,ast_subvec,
+    ast_args,ast_default_arg,ast_dynamic_id,
+    ast_and,ast_or,
+    ast_equal,ast_add_equal,ast_sub_equal,ast_mult_equal,ast_div_equal,ast_link_equal,
+    ast_cmp_equal,ast_cmp_not_equal,ast_less_than,ast_less_equal,ast_greater_than,ast_greater_equal,
+    ast_add,ast_sub,ast_mult,ast_div,ast_link,
+    ast_unary_sub,ast_unary_not,
+    ast_trinocular,
+    ast_for,ast_forindex,ast_foreach,ast_while,ast_new_iter,
+    ast_conditional,ast_if,ast_elsif,ast_else,
+    ast_multi_id,ast_multi_scalar,
+    ast_definition,ast_multi_assign,
+    ast_continue,ast_break,ast_return
+};
+
+std::string ast_str(int type)
+{
+    std::string str;
+    switch(type)
+    {
+        case ast_null:         str="null";break;
+        case ast_root:         str="root";break;
+        case ast_block:        str="block";break;
+        case ast_nil:          str="nil";break;
+        case ast_number:       str="number";break;
+        case ast_string:       str="string";break;
+        case ast_identifier:   str="id";break;
+        case ast_function:     str="function";break;
+        case ast_hash:         str="hash";break;
+        case ast_vector:       str="vector";break;
+        case ast_hashmember:   str="hashmember";break;
+        case ast_call:         str="call";break;
+        case ast_call_hash:    str="call_hash";break;
+        case ast_call_vec:     str="call_vector";break;
+        case ast_call_func:    str="call_func";break;
+        case ast_subvec:       str="subvec";break;
+        case ast_args:         str="arguments";break;
+        case ast_default_arg:  str="default_arg";break;
+        case ast_dynamic_id:   str="dynamic_id";break;
+        case ast_and:          str="and";break;
+        case ast_or:           str="or";break;
+        case ast_equal:        str="=";break;
+        case ast_add_equal:    str="+=";break;
+        case ast_sub_equal:    str="-=";break;
+        case ast_mult_equal:   str="*=";break;
+        case ast_div_equal:    str="/=";break;
+        case ast_link_equal:   str="~=";break;
+        case ast_cmp_equal:    str="==";break;
+        case ast_cmp_not_equal:str="!=";break;
+        case ast_less_than:    str="<";break;
+        case ast_less_equal:   str="<=";break;
+        case ast_greater_than: str=">";break;
+        case ast_greater_equal:str=">=";break;
+        case ast_add:          str="+";break;
+        case ast_sub:          str="-";break;
+        case ast_mult:         str="*";break;
+        case ast_div:          str="/";break;
+        case ast_link:         str="~";break;
+        case ast_unary_sub:    str="unary-";break;
+        case ast_unary_not:    str="unary!";break;
+        case ast_trinocular:   str="trinocular";break;
+        case ast_for:          str="for";break;
+        case ast_forindex:     str="forindex";break;
+        case ast_foreach:      str="foreach";break;
+        case ast_while:        str="while";break;
+        case ast_new_iter:     str="new_iterator";break;
+        case ast_conditional:  str="conditional";break;
+        case ast_if:           str="if";break;
+        case ast_elsif:        str="elsif";break;
+        case ast_else:         str="else";break;
+        case ast_multi_id:     str="multi_id";break;
+        case ast_multi_scalar: str="multi_scalar";break;
+        case ast_definition:   str="definition";break;
+        case ast_multi_assign: str="multi_assignment";break;
+        case ast_continue:     str="continue";break;
+        case ast_break:        str="break";break;
+        case ast_return:       str="return";break;
+    }
+    return str;
+}
+
+enum parse_error
+{
+    unknown,
+    error_token,
+    error_expr,
+    lack_left_curve,
+    lack_right_curve,
+    lack_left_bracket,
+    lack_right_bracket,
+    lack_left_brace,
+    lack_right_brace,
+    exprs_lack_rbrace,
+    lack_semi,
+    lack_comma,
+    lack_colon,
+    lack_equal,
+    lack_scalar,
+    lack_identifier,
+    lack_calculation,
+    lack_exprs,
+    lack_token,
+    lack_args,
+    default_arg_not_end,
+    dynamic_id_not_end,
+    name_repetition,
+    definition_use_call,
+    multi_id_use_call,
+    multi_assign_lack_val,
+    lack_definition,
+    lack_loop_iter,
+    lack_func_content
+};
+
+void error_info(int line,int error_type,std::string error_str="")
+{
+    std::string detail;
+    std::cout<<">> [parse] error_info: [line "<<line<<"] ";
+    switch(error_type)
+    {
+        case unknown:              std::cout<<"unknown error.\n";                       break;
+        case error_token:          std::cout<<"error token \""+error_str+"\".\n";       break;
+        case error_expr:           std::cout<<"error expression \""+error_str+"\".\n";  break;
+        case lack_left_curve:      std::cout<<"expected \"(\".\n";                      break;
+        case lack_right_curve:     std::cout<<"expected \")\".\n";                      break;
+        case lack_left_bracket:    std::cout<<"expected \"[\".\n";                      break;
+        case lack_right_bracket:   std::cout<<"expected \"]\".\n";                      break;
+        case lack_left_brace:      std::cout<<"expected \"{\".\n";                      break;
+        case lack_right_brace:     std::cout<<"expected \"}\".\n";                      break;
+        case exprs_lack_rbrace:    std::cout<<"expected \"}\" with this line\'s \"{\".\n";break;
+        case lack_semi:            std::cout<<"expected \";\".\n";                      break;
+        case lack_comma:           std::cout<<"expected \",\".\n";                      break;
+        case lack_colon:           std::cout<<"expected \":\".\n";                      break;
+        case lack_equal:           std::cout<<"expected \"=\".\n";                      break;
+        case lack_scalar:          std::cout<<"expected scalar here.\n";                break;
+        case lack_identifier:      std::cout<<"expected identifier here.\n";            break;
+        case lack_calculation:     std::cout<<"expected arithmetic-expression here.\n"; break;
+        case lack_exprs:           std::cout<<"expected expression block here.\n";      break;
+        case lack_token:           std::cout<<"expected \""+error_str+"\" here.\n";     break;
+        case lack_args:            std::cout<<"expected arguments here.\n";             break;
+        case default_arg_not_end:  std::cout<<"default argument missing for parameter of "+error_str+".\n";break;
+        case dynamic_id_not_end:   std::cout<<"dynamic id must be the end of "+error_str+".\n";break;
+        case name_repetition:      std::cout<<"this identifier name has existed.\n";break;
+        case definition_use_call:  std::cout<<"should not use call_scalar in definition progress.\n";break;
+        case multi_id_use_call:    std::cout<<"should not use call_scalar in multi_id progress.\n";break;
+        case multi_assign_lack_val:std::cout<<"multi-assignment lacks value list.\n";break;
+        case lack_definition:      std::cout<<"expected a definition expression here.\n";break;
+        case lack_loop_iter:       std::cout<<"expected an iterator to loop through.\n";break;
+        case lack_func_content:    std::cout<<"expected arguments or expression block here.\n";break;
+    }
+    return;
+}
+
+enum runtime_scalar_type
+{
+    vm_nil=0,
+    vm_number,
+    vm_string,
+    vm_closure,
+    vm_function,
+    vm_vector,
+    vm_hash
+};
+
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_gc.h b/nasal_gc.h
similarity index 97%
rename from version3.0/nasal_gc.h
rename to nasal_gc.h
index 36e44bc..75e76fc 100644
--- a/version3.0/nasal_gc.h
+++ b/nasal_gc.h
@@ -1,1622 +1,1622 @@
-#ifndef __NASAL_GC_H__
-#define __NASAL_GC_H__
-
-#define MEM_BLK_SIZE 256 // 0x00 ~ 0xff
-#define GC_BLK_SIZE  256 // 0x00 ~ 0xff
-/*
-nasal_number: basic type(double)
-nasal_string: basic type(std::string)
-nasal_vector: elems[i] -> address in memory -> value address in gc
-nasal_hash:   elems[key] -> address in memory -> value address in gc
-nasal_function: closure -> value address in gc(type: nasal_closure)
-nasal_closure: std::list<std::map<std::string,int>> -> std::map<std::string,int> -> (int) -> address in memory -> value address in gc
-*/
-
-class nasal_vector
-{
-private:
-    // this int points to the space in nasal_vm::memory_manager_memory
-    std::vector<int> elems;
-public:
-    nasal_vector();
-    ~nasal_vector();
-    void add_elem(int);
-    int  del_elem();
-    int  size();
-    int  get_value_address(int);
-    int  get_mem_address(int);
-};
-
-class nasal_hash
-{
-private:
-    // this int points to the space in nasal_vm::memory_manager_memory
-    std::map<std::string,int> elems;
-public:
-    nasal_hash();
-    ~nasal_hash();
-    void add_elem(std::string,int);
-    void del_elem(std::string);
-    int  size();
-    int  get_value_address(std::string);
-    int  get_mem_address(std::string);
-    bool check_contain(std::string);
-    int get_keys();
-};
-
-class nasal_function
-{
-private:
-    // this int points to the space in nasal_vm::garbage_collector_memory
-    int closure_addr;
-    nasal_ast argument_list;
-    nasal_ast function_expr;
-public:
-    nasal_function();
-    ~nasal_function();
-    void set_closure_addr(int);
-    int  get_closure_addr();
-    void set_arguments(nasal_ast&);
-    nasal_ast& get_arguments();
-    void set_run_block(nasal_ast&);
-    nasal_ast& get_run_block();
-};
-
-class nasal_closure
-{
-private:
-    // int in std::map<std::string,int> points to the space in nasal_vm::memory_manager_memory
-    // and this memory_manager_memory space stores an address to garbage_collector_memory
-    // and this address points to an nasal_hash
-    std::list<std::map<std::string,int> > elems;
-public:
-    nasal_closure();
-    ~nasal_closure();
-    void add_scope();
-    void del_scope();
-    void add_new_value(std::string,int);
-    int  get_value_address(std::string);
-    int  get_mem_address(std::string);
-    void set_closure(nasal_closure&);
-};
-
-class nasal_scalar
-{
-private:
-    int type;
-    void* scalar_ptr;
-public:
-    nasal_scalar();
-    ~nasal_scalar();
-    void clear();
-    bool set_type(int);
-    void set_number(double);
-    void set_string(std::string);
-    int             get_type();
-    double          get_number();
-    std::string     get_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);
-    int nasal_scalar_mult(int,int);
-    int nasal_scalar_div(int,int);
-    int nasal_scalar_link(int,int);
-    int nasal_scalar_and(int,int);
-    int nasal_scalar_or(int,int);
-    int nasal_scalar_unary_sub(int);
-    int nasal_scalar_unary_not(int);
-    int nasal_scalar_cmp_equal(int,int);
-    int nasal_scalar_cmp_not_equal(int,int);
-    int nasal_scalar_cmp_less(int,int);
-    int nasal_scalar_cmp_greater(int,int);
-    int nasal_scalar_cmp_less_or_equal(int,int);
-    int nasal_scalar_cmp_greater_or_equal(int,int);
-};
-
-class nasal_virtual_machine
-{
-    struct gc_unit
-    {
-        bool collected;
-        int ref_cnt;
-        nasal_scalar elem;
-        gc_unit()
-        {
-            collected=true;
-            ref_cnt=0;
-            return;
-        }
-    };
-private:
-    bool error_info_output_switch;
-    nasal_scalar error_returned_value;
-    std::queue<int> garbage_collector_free_space;
-    std::vector<gc_unit*> garbage_collector_memory;
-    std::queue<int> memory_manager_free_space;
-    std::vector<int*> memory_manager_memory;
-public:
-    nasal_virtual_machine();
-    ~nasal_virtual_machine();
-    void clear();
-    void debug();
-    int gc_alloc();             // garbage collector gives a new space
-    nasal_scalar& gc_get(int);  // get scalar that stored in gc
-    void add_reference(int);
-    void del_reference(int);
-    int get_refcnt(int);
-    int mem_alloc();            // memory gives a new space
-    int mem_free(int);          // give space back to memory
-    int mem_change(int,int);    // change value in memory space
-    int mem_init(int,int);      // init value in memory space
-    int mem_get(int);           // get value in memory space
-};
-
-/*
-    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;
-// error values set here,if defined before nasal_vm,SIGSEGV will occur.
-nasal_vector error_vector;
-nasal_hash error_hash;
-nasal_function error_function;
-nasal_closure error_closure;
-
-/*functions of nasal_vector*/
-nasal_vector::nasal_vector()
-{
-    elems.clear();
-    return;
-}
-nasal_vector::~nasal_vector()
-{
-    int size=elems.size();
-    for(int i=0;i<size;++i)
-        nasal_vm.mem_free(elems[i]);
-    elems.clear();
-    return;
-}
-void nasal_vector::add_elem(int value_address)
-{
-    int memory_address=nasal_vm.mem_alloc();
-    nasal_vm.mem_init(memory_address,value_address);
-    elems.push_back(memory_address);
-    return;
-}
-int nasal_vector::del_elem()
-{
-    // pop back
-    if(!elems.size())
-        return -1;
-    int ret=nasal_vm.mem_get(elems.back());
-    nasal_vm.add_reference(ret);
-    nasal_vm.mem_free(elems.back());
-    elems.pop_back();
-    return ret;
-}
-int nasal_vector::size()
-{
-    return this->elems.size();
-}
-int nasal_vector::get_value_address(int index)
-{
-    int vec_size=elems.size();
-    int left_range=-vec_size;
-    int right_range=vec_size-1;
-    if(index<left_range || index>right_range)
-    {
-        std::cout<<">> [runtime] nasal_vector::get_value_address: index out of range."<<std::endl;
-        return -1;
-    }
-    return nasal_vm.mem_get(elems[(index+vec_size)%vec_size]);
-}
-int nasal_vector::get_mem_address(int index)
-{
-    int vec_size=elems.size();
-    int left_range=-vec_size;
-    int right_range=vec_size-1;
-    if(index<left_range || index>right_range)
-    {
-        std::cout<<">> [runtime] nasal_vector::get_mem_address: index out of range."<<std::endl;
-        return -1;
-    }
-    return elems[(index+vec_size)%vec_size];
-}
-
-/*functions of nasal_hash*/
-nasal_hash::nasal_hash()
-{
-    elems.clear();
-    return;
-}
-nasal_hash::~nasal_hash()
-{
-    for(std::map<std::string,int>::iterator iter=elems.begin();iter!=elems.end();++iter)
-        nasal_vm.mem_free(iter->second);
-    elems.clear();
-    return;
-}
-void nasal_hash::add_elem(std::string key,int value_address)
-{
-    if(elems.find(key)==elems.end())
-    {
-        int memory_address=nasal_vm.mem_alloc();
-        nasal_vm.mem_init(memory_address,value_address);
-        elems[key]=memory_address;
-    }
-    return;
-}
-void nasal_hash::del_elem(std::string key)
-{
-    if(elems.find(key)!=elems.end())
-    {
-        nasal_vm.mem_free(elems[key]);
-        elems.erase(key);
-    }
-    return;
-}
-int nasal_hash::size()
-{
-    return elems.size();
-}
-int nasal_hash::get_value_address(std::string key)
-{
-    int ret_value_addr=-1;
-    if(elems.find(key)!=elems.end())
-        return nasal_vm.mem_get(elems[key]);
-    else if(elems.find("parents")!=elems.end())
-    {
-        int mem_addr=elems["parents"];
-        int val_addr=nasal_vm.mem_get(mem_addr);
-        if(nasal_vm.gc_get(val_addr).get_type()==vm_vector)
-        {
-            nasal_vector& vec_ref=nasal_vm.gc_get(val_addr).get_vector();
-            int size=vec_ref.size();
-            for(int i=0;i<size;++i)
-            {
-                int tmp_val_addr=vec_ref.get_value_address(i);
-                if(nasal_vm.gc_get(tmp_val_addr).get_type()==vm_hash)
-                    ret_value_addr=nasal_vm.gc_get(tmp_val_addr).get_hash().get_value_address(key);
-                if(ret_value_addr>=0)
-                    break;
-            }
-        }
-    }
-    return ret_value_addr;
-}
-int nasal_hash::get_mem_address(std::string key)
-{
-    int ret_mem_addr=-1;
-    if(elems.find(key)!=elems.end())
-        return elems[key];
-    else if(elems.find("parents")!=elems.end())
-    {
-        int mem_addr=elems["parents"];
-        int val_addr=nasal_vm.mem_get(mem_addr);
-        if(nasal_vm.gc_get(val_addr).get_type()==vm_vector)
-        {
-            nasal_vector& vec_ref=nasal_vm.gc_get(val_addr).get_vector();
-            int size=vec_ref.size();
-            for(int i=0;i<size;++i)
-            {
-                int tmp_val_addr=vec_ref.get_value_address(i);
-                if(nasal_vm.gc_get(tmp_val_addr).get_type()==vm_hash)
-                    ret_mem_addr=nasal_vm.gc_get(tmp_val_addr).get_hash().get_mem_address(key);
-                if(ret_mem_addr>=0)
-                    break;
-            }
-        }
-    }
-    return ret_mem_addr;
-}
-bool nasal_hash::check_contain(std::string key)
-{
-    if(elems.find(key)!=elems.end())
-        return true;
-    if(elems.find("parents")!=elems.end())
-    {
-        bool result=false;
-        int mem_addr=elems["parents"];
-        int val_addr=nasal_vm.mem_get(mem_addr);
-        if(nasal_vm.gc_get(val_addr).get_type()==vm_vector)
-        {
-            nasal_vector& vec_ref=nasal_vm.gc_get(val_addr).get_vector();
-            int size=vec_ref.size();
-            for(int i=0;i<size;++i)
-            {
-                int tmp_val_addr=vec_ref.get_value_address(i);
-                if(nasal_vm.gc_get(tmp_val_addr).get_type()==vm_hash)
-                    result=nasal_vm.gc_get(tmp_val_addr).get_hash().check_contain(key);
-                if(result)
-                    break;
-            }
-        }
-        return result;
-    }
-    return false;
-}
-int nasal_hash::get_keys()
-{
-    int ret_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(ret_addr).set_type(vm_vector);
-    nasal_vector& ref_vec=nasal_vm.gc_get(ret_addr).get_vector();
-    for(std::map<std::string,int>::iterator iter=elems.begin();iter!=elems.end();++iter)
-    {
-        int str_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(str_addr).set_type(vm_string);
-        nasal_vm.gc_get(str_addr).set_string(iter->first);
-        ref_vec.add_elem(str_addr);
-    }
-    return ret_addr;
-}
-
-/*functions of nasal_function*/
-nasal_function::nasal_function()
-{
-    closure_addr=-1;
-    argument_list.clear();
-    function_expr.clear();
-    return;
-}
-nasal_function::~nasal_function()
-{
-    if(closure_addr>=0)
-        nasal_vm.del_reference(closure_addr);
-    argument_list.clear();
-    function_expr.clear();
-    return;
-}
-void nasal_function::set_closure_addr(int value_address)
-{
-    if(closure_addr>=0)
-        nasal_vm.del_reference(closure_addr);
-    int new_closure=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_closure).set_type(vm_closure);
-    nasal_vm.gc_get(new_closure).get_closure().set_closure(nasal_vm.gc_get(value_address).get_closure());
-    closure_addr=new_closure;
-    return;
-}
-int nasal_function::get_closure_addr()
-{
-    return this->closure_addr;
-}
-void nasal_function::set_arguments(nasal_ast& node)
-{
-    argument_list=node;
-    return;
-}
-nasal_ast& nasal_function::get_arguments()
-{
-    return argument_list;
-}
-void nasal_function::set_run_block(nasal_ast& node)
-{
-    function_expr=node;
-    return;
-}
-nasal_ast& nasal_function::get_run_block()
-{
-    return function_expr;
-}
-
-/*functions of nasal_closure*/
-nasal_closure::nasal_closure()
-{
-    elems.clear();
-    return;
-}
-nasal_closure::~nasal_closure()
-{
-    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
-    {
-        for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
-            nasal_vm.mem_free(j->second);
-        i->clear();
-    }
-    elems.clear();
-    return;
-}
-void nasal_closure::add_scope()
-{
-    std::map<std::string,int> new_scope;
-    this->elems.push_back(new_scope);
-    return;
-}
-void nasal_closure::del_scope()
-{
-    if(this->elems.empty())
-        return;
-    for(std::map<std::string,int>::iterator i=elems.back().begin();i!=elems.back().end();++i)
-        nasal_vm.mem_free(i->second);
-    this->elems.pop_back();
-    return;
-}
-void nasal_closure::add_new_value(std::string key,int value_address)
-{
-    int new_mem_address=nasal_vm.mem_alloc();
-    nasal_vm.mem_init(new_mem_address,value_address);
-    if(elems.back().find(key)!=elems.back().end())
-    {
-        // if this value already exists,delete the old value and update a new value
-        int old_mem_address=elems.back()[key];
-        nasal_vm.mem_free(old_mem_address);
-    }
-    elems.back()[key]=new_mem_address;
-    return;
-}
-int nasal_closure::get_value_address(std::string key)
-{
-    int ret_address=-1;
-    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
-    {
-        if(i->find(key)!=i->end())
-            ret_address=nasal_vm.mem_get((*i)[key]);
-    }
-    return ret_address;
-}
-int nasal_closure::get_mem_address(std::string key)
-{
-    int ret_address=-1;
-    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
-    {
-        if(i->find(key)!=i->end())
-            ret_address=(*i)[key];
-    }
-    return ret_address;
-}
-void nasal_closure::set_closure(nasal_closure& tmp)
-{
-    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
-        for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
-            nasal_vm.mem_free(j->second);
-    elems.clear();
-    for(std::list<std::map<std::string,int> >::iterator i=tmp.elems.begin();i!=tmp.elems.end();++i)
-    {
-        this->add_scope();
-        for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
-        {
-            int new_mem_addr=nasal_vm.mem_alloc();
-            int value_addr=nasal_vm.mem_get(j->second);
-            nasal_vm.mem_init(new_mem_addr,value_addr);
-            nasal_vm.add_reference(value_addr);
-            elems.back()[j->first]=new_mem_addr;
-        }
-    }
-    return;
-}
-
-/*functions of nasal_scalar*/
-nasal_scalar::nasal_scalar()
-{
-    this->type=vm_nil;
-    this->scalar_ptr=(void*)NULL;
-    return;
-}
-nasal_scalar::~nasal_scalar()
-{
-    // must set type and scalar_ptr to default first
-    // this operation will avoid SIGTRAP caused by circular reference
-    // circular reference will cause using destructor repeatedly
-    int tmp_type=this->type;
-    void* tmp_ptr=this->scalar_ptr;
-
-    this->type=vm_nil;
-    this->scalar_ptr=NULL;
-    switch(tmp_type)
-    {
-        case vm_nil:      break;
-        case vm_number:   delete (double*)(tmp_ptr);         break;
-        case vm_string:   delete (std::string*)(tmp_ptr);    break;
-        case vm_vector:   delete (nasal_vector*)(tmp_ptr);   break;
-        case vm_hash:     delete (nasal_hash*)(tmp_ptr);     break;
-        case vm_function: delete (nasal_function*)(tmp_ptr); break;
-        case vm_closure:  delete (nasal_closure*)(tmp_ptr);  break;
-    }
-    return;
-}
-void nasal_scalar::clear()
-{
-    // must set type and scalar_ptr to default first
-    // this operation will avoid SIGTRAP caused by circular reference
-    // circular reference will cause using destructor repeatedly
-    int tmp_type=this->type;
-    void* tmp_ptr=this->scalar_ptr;
-
-    this->type=vm_nil;
-    this->scalar_ptr=NULL;
-    switch(tmp_type)
-    {
-        case vm_nil:      break;
-        case vm_number:   delete (double*)(tmp_ptr);         break;
-        case vm_string:   delete (std::string*)(tmp_ptr);    break;
-        case vm_vector:   delete (nasal_vector*)(tmp_ptr);   break;
-        case vm_hash:     delete (nasal_hash*)(tmp_ptr);     break;
-        case vm_function: delete (nasal_function*)(tmp_ptr); break;
-        case vm_closure:  delete (nasal_closure*)(tmp_ptr);  break;
-    }
-    return;
-}
-bool nasal_scalar::set_type(int nasal_scalar_type)
-{
-    bool ret=true;
-    this->type=nasal_scalar_type;
-    switch(nasal_scalar_type)
-    {
-        case vm_nil:      this->scalar_ptr=(void*)NULL;                 break;
-        case vm_number:   this->scalar_ptr=(void*)(new double);         break;
-        case vm_string:   this->scalar_ptr=(void*)(new std::string);    break;
-        case vm_vector:   this->scalar_ptr=(void*)(new nasal_vector);   break;
-        case vm_hash:     this->scalar_ptr=(void*)(new nasal_hash);     break;
-        case vm_function: this->scalar_ptr=(void*)(new nasal_function); break;
-        case vm_closure:  this->scalar_ptr=(void*)(new nasal_closure);  break;
-        default:
-            std::cout<<">> [vm] error scalar type: "<<nasal_scalar_type<<std::endl;
-            this->type=vm_nil;
-            this->scalar_ptr=(void*)NULL;
-            ret=false;
-            break;
-    }
-    return ret;
-}
-void nasal_scalar::set_number(double num)
-{
-    *(double*)(this->scalar_ptr)=num;
-    return;
-}
-void nasal_scalar::set_string(std::string str)
-{
-    *(std::string*)(this->scalar_ptr)=str;
-    return;
-}
-int nasal_scalar::get_type()
-{
-    return this->type;
-}
-double nasal_scalar::get_number()
-{
-    if(this->type==vm_number)
-        return *(double*)(this->scalar_ptr);
-    else
-        return 0;
-}
-std::string nasal_scalar::get_string()
-{
-    if(this->type==vm_string)
-        return *(std::string*)(this->scalar_ptr);
-    else
-        return "[vm] error value type";
-}
-nasal_vector& nasal_scalar::get_vector()
-{
-    if(this->type==vm_vector)
-        return *(nasal_vector*)(this->scalar_ptr);
-    else
-        return error_vector;
-}
-nasal_hash& nasal_scalar::get_hash()
-{
-    if(this->type==vm_hash)
-        return *(nasal_hash*)(this->scalar_ptr);
-    else
-        return error_hash;
-}
-nasal_function& nasal_scalar::get_func()
-{
-    if(this->type==vm_function)
-        return *(nasal_function*)(this->scalar_ptr);
-    else
-        return error_function;
-}
-nasal_closure& nasal_scalar::get_closure()
-{
-    if(this->type==vm_closure)
-        return *(nasal_closure*)(this->scalar_ptr);
-    else
-        return error_closure;
-}
-
-int nasal_scalar::nasal_scalar_add(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_add: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_add: error value type.only number and string can take part in add."<<std::endl;
-        return -1;
-    }
-    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_add: "<<*(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_add: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=a_num+b_num;
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_sub(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_sub: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_sub: error value type.only number and string can take part in sub."<<std::endl;
-        return -1;
-    }
-    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_sub: "<<*(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_sub: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=a_num-b_num;
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_mult(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_mult: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_mult: error value type.only number and string can take part in mult."<<std::endl;
-        return -1;
-    }
-    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_mult: "<<*(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_mult: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=a_num*b_num;
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_div(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_div: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_div: error value type.only number and string can take part in div."<<std::endl;
-        return -1;
-    }
-    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_div: "<<*(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_div: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=a_num/b_num;
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_link(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_link: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_link: error value type.only number and string can take part in link."<<std::endl;
-        return -1;
-    }
-    std::string a_str;
-    std::string b_str;
-    a_str=(a_ref.type==vm_number)? trans_number_to_string(*(double*)a_ref.scalar_ptr):*(std::string*)a_ref.scalar_ptr;
-    b_str=(b_ref.type==vm_number)? trans_number_to_string(*(double*)b_ref.scalar_ptr):*(std::string*)b_ref.scalar_ptr;
-    std::string result=a_str+b_str;
-    int new_value_address=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_value_address).set_type(vm_string);
-    nasal_vm.gc_get(new_value_address).set_string(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_and(int a_scalar_addr,int b_scalar_addr)
-{
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if(a_ref.type==vm_hash || a_ref.type==vm_vector || a_ref.type==vm_function || b_ref.type==vm_hash || b_ref.type==vm_vector || b_ref.type==vm_function)
-    {
-        std::cout<<">> [vm] scalar_and: hash and vector cannot take part in and calculation."<<std::endl;
-        return -1;
-    }
-    if(a_ref.type==vm_number)
-    {
-        double number=a_ref.get_number();
-        if(number==0)
-        {
-            int new_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-            nasal_vm.gc_get(new_value_addr).set_number(0);
-            return new_value_addr;
-        }
-    }
-    else if(a_ref.type==vm_nil)
-    {
-        int new_value_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-        nasal_vm.gc_get(new_value_addr).set_number(0);
-        return new_value_addr;
-    }
-    else if(a_ref.type==vm_string)
-    {
-        std::string str=a_ref.get_string();
-        if(!str.length() || !check_numerable_string(str))
-        {
-            int new_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-            nasal_vm.gc_get(new_value_addr).set_number(0);
-            return new_value_addr;
-        }
-        else
-        {
-            double number=trans_string_to_number(str);
-            if(number==0)
-            {
-                int new_value_addr=nasal_vm.gc_alloc();
-                nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-                nasal_vm.gc_get(new_value_addr).set_number(0);
-                return new_value_addr;
-            }
-        }
-    }
-
-    if(b_ref.type==vm_number)
-    {
-        double number=b_ref.get_number();
-        if(number==0)
-        {
-            int new_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-            nasal_vm.gc_get(new_value_addr).set_number(0);
-            return new_value_addr;
-        }
-        else
-        {
-            nasal_vm.add_reference(b_scalar_addr);
-            return b_scalar_addr;
-        }
-    }
-    else if(b_ref.type==vm_nil)
-    {
-        int new_value_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-        nasal_vm.gc_get(new_value_addr).set_number(0);
-        return new_value_addr;
-    }
-    else if(b_ref.type==vm_string)
-    {
-        std::string str=b_ref.get_string();
-        if(!str.length() || !check_numerable_string(str))
-        {
-            int new_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-            nasal_vm.gc_get(new_value_addr).set_number(0);
-            return new_value_addr;
-        }
-        else
-        {
-            double number=trans_string_to_number(str);
-            if(number==0)
-            {
-                int new_value_addr=nasal_vm.gc_alloc();
-                nasal_vm.gc_get(new_value_addr).set_type(vm_number);
-                nasal_vm.gc_get(new_value_addr).set_number(0);
-                return new_value_addr;
-            }
-            else
-            {
-                nasal_vm.add_reference(b_scalar_addr);
-                return b_scalar_addr;
-            }
-        }
-    }
-
-    int false_value_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(false_value_addr).set_type(vm_number);
-    nasal_vm.gc_get(false_value_addr).set_number(0);
-    return false_value_addr;
-}
-int nasal_scalar::nasal_scalar_or(int a_scalar_addr,int b_scalar_addr)
-{
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if(a_ref.type==vm_hash || a_ref.type==vm_vector || a_ref.type==vm_function || b_ref.type==vm_hash || b_ref.type==vm_vector || b_ref.type==vm_function)
-    {
-        std::cout<<">> [vm] scalar_or: hash and vector cannot take part in or calculation."<<std::endl;
-        return -1;
-    }
-    if(a_ref.type==vm_number)
-    {
-        if(a_ref.get_number()!=0)
-        {
-            nasal_vm.add_reference(a_scalar_addr);
-            return a_scalar_addr;
-        }
-    }
-    else if(a_ref.type==vm_string)
-    {
-        std::string str=a_ref.get_string();
-        if(str.length() && (!check_numerable_string(str) || trans_string_to_number(str)!=0))
-        {
-            nasal_vm.add_reference(a_scalar_addr);
-            return a_scalar_addr;
-        }
-    }
-
-    if(b_ref.type==vm_number)
-    {
-        if(b_ref.get_number()!=0)
-        {
-            nasal_vm.add_reference(b_scalar_addr);
-            return b_scalar_addr;
-        }
-    }
-    else if(b_ref.type==vm_string)
-    {
-        std::string str=b_ref.get_string();
-        if(str.length() && (!check_numerable_string(str) || trans_string_to_number(str)!=0))
-        {
-            nasal_vm.add_reference(b_scalar_addr);
-            return b_scalar_addr;
-        }
-    }
-
-    int false_value_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(false_value_addr).set_type(vm_number);
-    nasal_vm.gc_get(false_value_addr).set_number(0);
-    return false_value_addr;
-}
-int nasal_scalar::nasal_scalar_unary_sub(int a_scalar_addr)
-{
-    if(a_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_unary_sub: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    if(a_ref.type!=vm_number && a_ref.type!=vm_string)
-    {
-        std::cout<<">> [vm] scalar_unary_sub: error value type.only number and string can take part in unary sub."<<std::endl;
-        return -1;
-    }
-    double a_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_unary_sub: "<<*(std::string*)a_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(-a_num);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_unary_not(int a_scalar_addr)
-{
-    if(a_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_unary_not: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    int new_value_address=-1;
-    if(a_ref.type==vm_nil)
-    {
-        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);
-    }
-    else if(a_ref.type==vm_number)
-    {
-        double number=(double)(*(double*)(a_ref.scalar_ptr)==0);
-        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(number);
-    }
-    else if(a_ref.type==vm_string)
-    {
-        if(check_numerable_string(*(std::string*)a_ref.scalar_ptr))
-        {
-            double number=(double)(trans_string_to_number(*(std::string*)a_ref.scalar_ptr)==0);
-            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(number);
-        }
-        else
-        {
-            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(!(*(std::string*)a_ref.scalar_ptr).length());
-        }
-    }
-    else
-        std::cout<<">> [vm] scalar_unary_not: error value type.number,string and nil can take part in unary not."<<std::endl;
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_cmp_equal(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_cmp_equal: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    if(a_scalar_addr==b_scalar_addr)
-    {
-        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;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    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))
-    {
-        if(a_ref.type==vm_string && b_ref.type==vm_string)
-        {
-            std::string astr=*(std::string*)a_ref.scalar_ptr;
-            std::string bstr=*(std::string*)b_ref.scalar_ptr;
-            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)(astr==bstr));
-            return new_value_address;
-        }
-        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
-            {
-                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)0);
-                return new_value_address;
-            }
-        }
-        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
-            {
-                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)0);
-                return new_value_address;
-            }
-        }
-        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_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_cmp_not_equal: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    if(a_scalar_addr==b_scalar_addr)
-    {
-        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;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    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))
-    {
-        if(a_ref.type==vm_string && b_ref.type==vm_string)
-        {
-            std::string astr=*(std::string*)a_ref.scalar_ptr;
-            std::string bstr=*(std::string*)b_ref.scalar_ptr;
-            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)(astr!=bstr));
-            return new_value_address;
-        }
-        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
-            {
-                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)1);
-                return new_value_address;
-            }
-        }
-        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
-            {
-                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)1);
-                return new_value_address;
-            }
-        }
-        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_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_cmp_less: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_cmp_less: error value type.only number and string can take part in cmp_less."<<std::endl;
-        return -1;
-    }
-    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_less: "<<*(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_less: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=(double)(a_num<b_num);
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_cmp_greater(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_cmp_greater: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_cmp_greater: error value type.only number and string can take part in cmp_greater."<<std::endl;
-        return -1;
-    }
-    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_greater: "<<*(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_greater: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=(double)(a_num>b_num);
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_cmp_less_or_equal(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_cmp_lequal: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_cmp_lequal: error value type.only number and string can take part in cmp_less_or_equal."<<std::endl;
-        return -1;
-    }
-    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_lequal: "<<*(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_lequal: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=(double)(a_num<=b_num);
-    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(result);
-    return new_value_address;
-}
-int nasal_scalar::nasal_scalar_cmp_greater_or_equal(int a_scalar_addr,int b_scalar_addr)
-{
-    if(a_scalar_addr<0 || b_scalar_addr<0)
-    {
-        std::cout<<">> [vm] scalar_cmp_gequal: memory returned an invalid address"<<std::endl;
-        return -1;
-    }
-    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
-    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
-    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
-    {
-        std::cout<<">> [vm] scalar_cmp_gequal: error value type.only number and string can take part in cmp_greater_or_equal."<<std::endl;
-        return -1;
-    }
-    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_gequal: "<<*(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_gequal: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
-            return -1;
-        }
-    }
-    double result=(double)(a_num>=b_num);
-    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(result);
-    return new_value_address;
-}
-
-/*functions of nasal_virtual_machine*/
-nasal_virtual_machine::nasal_virtual_machine()
-{
-    error_info_output_switch=true;
-    return;
-}
-nasal_virtual_machine::~nasal_virtual_machine()
-{
-    error_info_output_switch=false;
-    int gc_mem_size=garbage_collector_memory.size();
-    int mm_mem_size=memory_manager_memory.size();
-    for(int i=0;i<gc_mem_size;++i)
-        for(int j=0;j<GC_BLK_SIZE;++j)
-            if(garbage_collector_memory[i][j].ref_cnt)
-            {
-                garbage_collector_memory[i][j].ref_cnt=0;
-                garbage_collector_memory[i][j].collected=true;
-            }
-    for(int i=0;i<gc_mem_size;++i)
-        for(int j=0;j<GC_BLK_SIZE;++j)
-            if(garbage_collector_memory[i][j].elem.get_type()!=vm_nil)
-                garbage_collector_memory[i][j].elem.clear();
-    // must delete gc_memory after destructing all elements
-    // or it may cause SIGTRAP because some elements may have pointers point to space that has been deleted(free)
-    for(int i=0;i<gc_mem_size;++i)
-        delete []garbage_collector_memory[i];
-    for(int i=0;i<mm_mem_size;++i)
-        delete []memory_manager_memory[i];
-    while(!garbage_collector_free_space.empty())
-        garbage_collector_free_space.pop();
-    while(!memory_manager_free_space.empty())
-        memory_manager_free_space.pop();
-    garbage_collector_memory.clear();
-    memory_manager_memory.clear();
-    error_info_output_switch=true;
-    return;
-}
-void nasal_virtual_machine::debug()
-{
-    int gc_mem_size=garbage_collector_memory.size();
-    int mm_mem_size=memory_manager_memory.size();
-    for(int i=0;i<gc_mem_size;++i)
-        for(int j=0;j<GC_BLK_SIZE;++j)
-            if(garbage_collector_memory[i][j].ref_cnt)
-            {
-                std::cout<<">> [debug] "<<((i<<8)+j)<<": "<<garbage_collector_memory[i][j].ref_cnt<<" ";
-                switch(garbage_collector_memory[i][j].elem.get_type())
-                {
-                    case vm_nil:std::cout<<"nil";break;
-                    case vm_number:std::cout<<"number "<<garbage_collector_memory[i][j].elem.get_number();break;
-                    case vm_string:std::cout<<"string "<<garbage_collector_memory[i][j].elem.get_string();break;
-                    case vm_vector:std::cout<<"vector";break;
-                    case vm_hash:std::cout<<"hash";break;
-                    case vm_function:std::cout<<"function";break;
-                    case vm_closure:std::cout<<"closure";break;
-                }
-                std::cout<<"\n";
-            }
-    return;
-}
-void nasal_virtual_machine::clear()
-{
-    error_info_output_switch=false;
-    int gc_mem_size=garbage_collector_memory.size();
-    int mm_mem_size=memory_manager_memory.size();
-    for(int i=0;i<gc_mem_size;++i)
-        for(int j=0;j<GC_BLK_SIZE;++j)
-            if(garbage_collector_memory[i][j].ref_cnt)
-            {
-                garbage_collector_memory[i][j].ref_cnt=0;
-                garbage_collector_memory[i][j].collected=true;
-            }
-    for(int i=0;i<gc_mem_size;++i)
-        for(int j=0;j<GC_BLK_SIZE;++j)
-            if(garbage_collector_memory[i][j].elem.get_type()!=vm_nil)
-                garbage_collector_memory[i][j].elem.clear();
-    // must delete gc_memory after destructing all elements
-    // or it may cause SIGTRAP because some elements may have pointers point to space that has been deleted(free)
-    for(int i=0;i<gc_mem_size;++i)
-        delete []garbage_collector_memory[i];
-    for(int i=0;i<mm_mem_size;++i)
-        delete []memory_manager_memory[i];
-    while(!garbage_collector_free_space.empty())
-        garbage_collector_free_space.pop();
-    while(!memory_manager_free_space.empty())
-        memory_manager_free_space.pop();
-    garbage_collector_memory.clear();
-    memory_manager_memory.clear();
-    error_info_output_switch=true;
-    return;
-}
-int nasal_virtual_machine::gc_alloc()
-{
-    if(garbage_collector_free_space.empty())
-    {
-        gc_unit* new_block=new gc_unit[256];
-        garbage_collector_memory.push_back(new_block);
-        int mem_size=garbage_collector_memory.size();
-        for(int i=((mem_size-1)<<8);i<(mem_size<<8);++i)
-            garbage_collector_free_space.push(i);
-    }
-    int ret=garbage_collector_free_space.front();
-    garbage_collector_memory[ret>>8][ret&0xff].collected=false;
-    garbage_collector_memory[ret>>8][ret&0xff].ref_cnt=1;
-    garbage_collector_free_space.pop();
-    return ret;
-}
-nasal_scalar& nasal_virtual_machine::gc_get(int value_address)
-{
-    int blk_num=(value_address>>8);
-    int blk_plc=(value_address&0xff);
-    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
-        return garbage_collector_memory[blk_num][blk_plc].elem;
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] gc_get:unexpected memory \'"<<value_address<<"\'."<<std::endl;
-        return error_returned_value;
-    }
-}
-void nasal_virtual_machine::add_reference(int value_address)
-{
-    int blk_num=(value_address>>8);
-    int blk_plc=(value_address&0xff);
-    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
-        ++garbage_collector_memory[blk_num][blk_plc].ref_cnt;
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] gc_add_ref:unexpected memory \'"<<value_address<<"\'."<<std::endl;
-    }
-    return;
-}
-void nasal_virtual_machine::del_reference(int value_address)
-{
-    int blk_num=(value_address>>8);
-    int blk_plc=(value_address&0xff);
-    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
-        --garbage_collector_memory[blk_num][blk_plc].ref_cnt;
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] gc_del_ref:unexpected memory \'"<<value_address<<"\'."<<std::endl;
-        return;
-    }
-    if(!garbage_collector_memory[blk_num][blk_plc].ref_cnt)
-    {
-        garbage_collector_memory[blk_num][blk_plc].collected=true;
-        garbage_collector_memory[blk_num][blk_plc].elem.clear();
-        garbage_collector_free_space.push(value_address);
-    }
-    return;
-}
-int nasal_virtual_machine::get_refcnt(int value_address)
-{
-    int blk_num=(value_address>>8);
-    int blk_plc=(value_address&0xff);
-    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
-        return garbage_collector_memory[blk_num][blk_plc].ref_cnt;
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] get_refcnt:unexpected memory \'"<<value_address<<"\'."<<std::endl;
-    }
-    return -1;
-}
-int nasal_virtual_machine::mem_alloc()
-{
-    if(memory_manager_free_space.empty())
-    {
-        int* new_block=new int[256];
-        memory_manager_memory.push_back(new_block);
-        int mem_size=memory_manager_memory.size();
-        for(int i=((mem_size-1)<<8);i<(mem_size<<8);++i)
-            memory_manager_free_space.push(i);
-    }
-    int ret=memory_manager_free_space.front();
-    memory_manager_free_space.pop();
-    return ret;
-}
-int nasal_virtual_machine::mem_free(int memory_address)
-{
-    // mem_free has helped scalar to delete the reference
-    // so don't need to delete reference again
-    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
-    {
-        this->del_reference(memory_manager_memory[memory_address>>8][memory_address&0xff]);
-        memory_manager_free_space.push(memory_address);
-    }
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] mem_free:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
-        return 0;
-    }
-    return 1;
-}
-int nasal_virtual_machine::mem_change(int memory_address,int value_address)
-{
-    // this progress is used to change a memory space's value address
-    // be careful! this process doesn't check if this mem_space is in use.
-    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
-    {
-        this->del_reference(memory_manager_memory[memory_address>>8][memory_address&0xff]);
-        memory_manager_memory[memory_address>>8][memory_address&0xff]=value_address;
-    }
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] mem_change:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
-        return 0;
-    }
-    return 1;
-}
-int nasal_virtual_machine::mem_init(int memory_address,int value_address)
-{
-    // this progress is used to init a memory space
-    // be careful! this process doesn't check if this mem_space is in use.
-    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
-        memory_manager_memory[memory_address>>8][memory_address&0xff]=value_address;
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] mem_init:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
-        return 0;
-    }
-    return 1;
-}
-int nasal_virtual_machine::mem_get(int memory_address)
-{
-    int ret=-1;
-    // be careful! this process doesn't check if this mem_space is in use.
-    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
-        ret=memory_manager_memory[memory_address>>8][memory_address&0xff];
-    else
-    {
-        if(error_info_output_switch)
-            std::cout<<">> [vm] mem_get:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
-    }
-    return ret;
-}
+#ifndef __NASAL_GC_H__
+#define __NASAL_GC_H__
+
+#define MEM_BLK_SIZE 256 // 0x00 ~ 0xff
+#define GC_BLK_SIZE  256 // 0x00 ~ 0xff
+/*
+nasal_number: basic type(double)
+nasal_string: basic type(std::string)
+nasal_vector: elems[i] -> address in memory -> value address in gc
+nasal_hash:   elems[key] -> address in memory -> value address in gc
+nasal_function: closure -> value address in gc(type: nasal_closure)
+nasal_closure: std::list<std::map<std::string,int>> -> std::map<std::string,int> -> (int) -> address in memory -> value address in gc
+*/
+
+class nasal_vector
+{
+private:
+    // this int points to the space in nasal_vm::memory_manager_memory
+    std::vector<int> elems;
+public:
+    nasal_vector();
+    ~nasal_vector();
+    void add_elem(int);
+    int  del_elem();
+    int  size();
+    int  get_value_address(int);
+    int  get_mem_address(int);
+};
+
+class nasal_hash
+{
+private:
+    // this int points to the space in nasal_vm::memory_manager_memory
+    std::map<std::string,int> elems;
+public:
+    nasal_hash();
+    ~nasal_hash();
+    void add_elem(std::string,int);
+    void del_elem(std::string);
+    int  size();
+    int  get_value_address(std::string);
+    int  get_mem_address(std::string);
+    bool check_contain(std::string);
+    int get_keys();
+};
+
+class nasal_function
+{
+private:
+    // this int points to the space in nasal_vm::garbage_collector_memory
+    int closure_addr;
+    nasal_ast argument_list;
+    nasal_ast function_expr;
+public:
+    nasal_function();
+    ~nasal_function();
+    void set_closure_addr(int);
+    int  get_closure_addr();
+    void set_arguments(nasal_ast&);
+    nasal_ast& get_arguments();
+    void set_run_block(nasal_ast&);
+    nasal_ast& get_run_block();
+};
+
+class nasal_closure
+{
+private:
+    // int in std::map<std::string,int> points to the space in nasal_vm::memory_manager_memory
+    // and this memory_manager_memory space stores an address to garbage_collector_memory
+    // and this address points to an nasal_hash
+    std::list<std::map<std::string,int> > elems;
+public:
+    nasal_closure();
+    ~nasal_closure();
+    void add_scope();
+    void del_scope();
+    void add_new_value(std::string,int);
+    int  get_value_address(std::string);
+    int  get_mem_address(std::string);
+    void set_closure(nasal_closure&);
+};
+
+class nasal_scalar
+{
+private:
+    int type;
+    void* scalar_ptr;
+public:
+    nasal_scalar();
+    ~nasal_scalar();
+    void clear();
+    bool set_type(int);
+    void set_number(double);
+    void set_string(std::string);
+    int             get_type();
+    double          get_number();
+    std::string     get_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);
+    int nasal_scalar_mult(int,int);
+    int nasal_scalar_div(int,int);
+    int nasal_scalar_link(int,int);
+    int nasal_scalar_and(int,int);
+    int nasal_scalar_or(int,int);
+    int nasal_scalar_unary_sub(int);
+    int nasal_scalar_unary_not(int);
+    int nasal_scalar_cmp_equal(int,int);
+    int nasal_scalar_cmp_not_equal(int,int);
+    int nasal_scalar_cmp_less(int,int);
+    int nasal_scalar_cmp_greater(int,int);
+    int nasal_scalar_cmp_less_or_equal(int,int);
+    int nasal_scalar_cmp_greater_or_equal(int,int);
+};
+
+class nasal_virtual_machine
+{
+    struct gc_unit
+    {
+        bool collected;
+        int ref_cnt;
+        nasal_scalar elem;
+        gc_unit()
+        {
+            collected=true;
+            ref_cnt=0;
+            return;
+        }
+    };
+private:
+    bool error_info_output_switch;
+    nasal_scalar error_returned_value;
+    std::queue<int> garbage_collector_free_space;
+    std::vector<gc_unit*> garbage_collector_memory;
+    std::queue<int> memory_manager_free_space;
+    std::vector<int*> memory_manager_memory;
+public:
+    nasal_virtual_machine();
+    ~nasal_virtual_machine();
+    void clear();
+    void debug();
+    int gc_alloc();             // garbage collector gives a new space
+    nasal_scalar& gc_get(int);  // get scalar that stored in gc
+    void add_reference(int);
+    void del_reference(int);
+    int get_refcnt(int);
+    int mem_alloc();            // memory gives a new space
+    int mem_free(int);          // give space back to memory
+    int mem_change(int,int);    // change value in memory space
+    int mem_init(int,int);      // init value in memory space
+    int mem_get(int);           // get value in memory space
+};
+
+/*
+    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;
+// error values set here,if defined before nasal_vm,SIGSEGV will occur.
+nasal_vector error_vector;
+nasal_hash error_hash;
+nasal_function error_function;
+nasal_closure error_closure;
+
+/*functions of nasal_vector*/
+nasal_vector::nasal_vector()
+{
+    elems.clear();
+    return;
+}
+nasal_vector::~nasal_vector()
+{
+    int size=elems.size();
+    for(int i=0;i<size;++i)
+        nasal_vm.mem_free(elems[i]);
+    elems.clear();
+    return;
+}
+void nasal_vector::add_elem(int value_address)
+{
+    int memory_address=nasal_vm.mem_alloc();
+    nasal_vm.mem_init(memory_address,value_address);
+    elems.push_back(memory_address);
+    return;
+}
+int nasal_vector::del_elem()
+{
+    // pop back
+    if(!elems.size())
+        return -1;
+    int ret=nasal_vm.mem_get(elems.back());
+    nasal_vm.add_reference(ret);
+    nasal_vm.mem_free(elems.back());
+    elems.pop_back();
+    return ret;
+}
+int nasal_vector::size()
+{
+    return this->elems.size();
+}
+int nasal_vector::get_value_address(int index)
+{
+    int vec_size=elems.size();
+    int left_range=-vec_size;
+    int right_range=vec_size-1;
+    if(index<left_range || index>right_range)
+    {
+        std::cout<<">> [runtime] nasal_vector::get_value_address: index out of range."<<std::endl;
+        return -1;
+    }
+    return nasal_vm.mem_get(elems[(index+vec_size)%vec_size]);
+}
+int nasal_vector::get_mem_address(int index)
+{
+    int vec_size=elems.size();
+    int left_range=-vec_size;
+    int right_range=vec_size-1;
+    if(index<left_range || index>right_range)
+    {
+        std::cout<<">> [runtime] nasal_vector::get_mem_address: index out of range."<<std::endl;
+        return -1;
+    }
+    return elems[(index+vec_size)%vec_size];
+}
+
+/*functions of nasal_hash*/
+nasal_hash::nasal_hash()
+{
+    elems.clear();
+    return;
+}
+nasal_hash::~nasal_hash()
+{
+    for(std::map<std::string,int>::iterator iter=elems.begin();iter!=elems.end();++iter)
+        nasal_vm.mem_free(iter->second);
+    elems.clear();
+    return;
+}
+void nasal_hash::add_elem(std::string key,int value_address)
+{
+    if(elems.find(key)==elems.end())
+    {
+        int memory_address=nasal_vm.mem_alloc();
+        nasal_vm.mem_init(memory_address,value_address);
+        elems[key]=memory_address;
+    }
+    return;
+}
+void nasal_hash::del_elem(std::string key)
+{
+    if(elems.find(key)!=elems.end())
+    {
+        nasal_vm.mem_free(elems[key]);
+        elems.erase(key);
+    }
+    return;
+}
+int nasal_hash::size()
+{
+    return elems.size();
+}
+int nasal_hash::get_value_address(std::string key)
+{
+    int ret_value_addr=-1;
+    if(elems.find(key)!=elems.end())
+        return nasal_vm.mem_get(elems[key]);
+    else if(elems.find("parents")!=elems.end())
+    {
+        int mem_addr=elems["parents"];
+        int val_addr=nasal_vm.mem_get(mem_addr);
+        if(nasal_vm.gc_get(val_addr).get_type()==vm_vector)
+        {
+            nasal_vector& vec_ref=nasal_vm.gc_get(val_addr).get_vector();
+            int size=vec_ref.size();
+            for(int i=0;i<size;++i)
+            {
+                int tmp_val_addr=vec_ref.get_value_address(i);
+                if(nasal_vm.gc_get(tmp_val_addr).get_type()==vm_hash)
+                    ret_value_addr=nasal_vm.gc_get(tmp_val_addr).get_hash().get_value_address(key);
+                if(ret_value_addr>=0)
+                    break;
+            }
+        }
+    }
+    return ret_value_addr;
+}
+int nasal_hash::get_mem_address(std::string key)
+{
+    int ret_mem_addr=-1;
+    if(elems.find(key)!=elems.end())
+        return elems[key];
+    else if(elems.find("parents")!=elems.end())
+    {
+        int mem_addr=elems["parents"];
+        int val_addr=nasal_vm.mem_get(mem_addr);
+        if(nasal_vm.gc_get(val_addr).get_type()==vm_vector)
+        {
+            nasal_vector& vec_ref=nasal_vm.gc_get(val_addr).get_vector();
+            int size=vec_ref.size();
+            for(int i=0;i<size;++i)
+            {
+                int tmp_val_addr=vec_ref.get_value_address(i);
+                if(nasal_vm.gc_get(tmp_val_addr).get_type()==vm_hash)
+                    ret_mem_addr=nasal_vm.gc_get(tmp_val_addr).get_hash().get_mem_address(key);
+                if(ret_mem_addr>=0)
+                    break;
+            }
+        }
+    }
+    return ret_mem_addr;
+}
+bool nasal_hash::check_contain(std::string key)
+{
+    if(elems.find(key)!=elems.end())
+        return true;
+    if(elems.find("parents")!=elems.end())
+    {
+        bool result=false;
+        int mem_addr=elems["parents"];
+        int val_addr=nasal_vm.mem_get(mem_addr);
+        if(nasal_vm.gc_get(val_addr).get_type()==vm_vector)
+        {
+            nasal_vector& vec_ref=nasal_vm.gc_get(val_addr).get_vector();
+            int size=vec_ref.size();
+            for(int i=0;i<size;++i)
+            {
+                int tmp_val_addr=vec_ref.get_value_address(i);
+                if(nasal_vm.gc_get(tmp_val_addr).get_type()==vm_hash)
+                    result=nasal_vm.gc_get(tmp_val_addr).get_hash().check_contain(key);
+                if(result)
+                    break;
+            }
+        }
+        return result;
+    }
+    return false;
+}
+int nasal_hash::get_keys()
+{
+    int ret_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(ret_addr).set_type(vm_vector);
+    nasal_vector& ref_vec=nasal_vm.gc_get(ret_addr).get_vector();
+    for(std::map<std::string,int>::iterator iter=elems.begin();iter!=elems.end();++iter)
+    {
+        int str_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(str_addr).set_type(vm_string);
+        nasal_vm.gc_get(str_addr).set_string(iter->first);
+        ref_vec.add_elem(str_addr);
+    }
+    return ret_addr;
+}
+
+/*functions of nasal_function*/
+nasal_function::nasal_function()
+{
+    closure_addr=-1;
+    argument_list.clear();
+    function_expr.clear();
+    return;
+}
+nasal_function::~nasal_function()
+{
+    if(closure_addr>=0)
+        nasal_vm.del_reference(closure_addr);
+    argument_list.clear();
+    function_expr.clear();
+    return;
+}
+void nasal_function::set_closure_addr(int value_address)
+{
+    if(closure_addr>=0)
+        nasal_vm.del_reference(closure_addr);
+    int new_closure=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_closure).set_type(vm_closure);
+    nasal_vm.gc_get(new_closure).get_closure().set_closure(nasal_vm.gc_get(value_address).get_closure());
+    closure_addr=new_closure;
+    return;
+}
+int nasal_function::get_closure_addr()
+{
+    return this->closure_addr;
+}
+void nasal_function::set_arguments(nasal_ast& node)
+{
+    argument_list=node;
+    return;
+}
+nasal_ast& nasal_function::get_arguments()
+{
+    return argument_list;
+}
+void nasal_function::set_run_block(nasal_ast& node)
+{
+    function_expr=node;
+    return;
+}
+nasal_ast& nasal_function::get_run_block()
+{
+    return function_expr;
+}
+
+/*functions of nasal_closure*/
+nasal_closure::nasal_closure()
+{
+    elems.clear();
+    return;
+}
+nasal_closure::~nasal_closure()
+{
+    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
+    {
+        for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
+            nasal_vm.mem_free(j->second);
+        i->clear();
+    }
+    elems.clear();
+    return;
+}
+void nasal_closure::add_scope()
+{
+    std::map<std::string,int> new_scope;
+    this->elems.push_back(new_scope);
+    return;
+}
+void nasal_closure::del_scope()
+{
+    if(this->elems.empty())
+        return;
+    for(std::map<std::string,int>::iterator i=elems.back().begin();i!=elems.back().end();++i)
+        nasal_vm.mem_free(i->second);
+    this->elems.pop_back();
+    return;
+}
+void nasal_closure::add_new_value(std::string key,int value_address)
+{
+    int new_mem_address=nasal_vm.mem_alloc();
+    nasal_vm.mem_init(new_mem_address,value_address);
+    if(elems.back().find(key)!=elems.back().end())
+    {
+        // if this value already exists,delete the old value and update a new value
+        int old_mem_address=elems.back()[key];
+        nasal_vm.mem_free(old_mem_address);
+    }
+    elems.back()[key]=new_mem_address;
+    return;
+}
+int nasal_closure::get_value_address(std::string key)
+{
+    int ret_address=-1;
+    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
+    {
+        if(i->find(key)!=i->end())
+            ret_address=nasal_vm.mem_get((*i)[key]);
+    }
+    return ret_address;
+}
+int nasal_closure::get_mem_address(std::string key)
+{
+    int ret_address=-1;
+    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
+    {
+        if(i->find(key)!=i->end())
+            ret_address=(*i)[key];
+    }
+    return ret_address;
+}
+void nasal_closure::set_closure(nasal_closure& tmp)
+{
+    for(std::list<std::map<std::string,int> >::iterator i=elems.begin();i!=elems.end();++i)
+        for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
+            nasal_vm.mem_free(j->second);
+    elems.clear();
+    for(std::list<std::map<std::string,int> >::iterator i=tmp.elems.begin();i!=tmp.elems.end();++i)
+    {
+        this->add_scope();
+        for(std::map<std::string,int>::iterator j=i->begin();j!=i->end();++j)
+        {
+            int new_mem_addr=nasal_vm.mem_alloc();
+            int value_addr=nasal_vm.mem_get(j->second);
+            nasal_vm.mem_init(new_mem_addr,value_addr);
+            nasal_vm.add_reference(value_addr);
+            elems.back()[j->first]=new_mem_addr;
+        }
+    }
+    return;
+}
+
+/*functions of nasal_scalar*/
+nasal_scalar::nasal_scalar()
+{
+    this->type=vm_nil;
+    this->scalar_ptr=(void*)NULL;
+    return;
+}
+nasal_scalar::~nasal_scalar()
+{
+    // must set type and scalar_ptr to default first
+    // this operation will avoid SIGTRAP caused by circular reference
+    // circular reference will cause using destructor repeatedly
+    int tmp_type=this->type;
+    void* tmp_ptr=this->scalar_ptr;
+
+    this->type=vm_nil;
+    this->scalar_ptr=NULL;
+    switch(tmp_type)
+    {
+        case vm_nil:      break;
+        case vm_number:   delete (double*)(tmp_ptr);         break;
+        case vm_string:   delete (std::string*)(tmp_ptr);    break;
+        case vm_vector:   delete (nasal_vector*)(tmp_ptr);   break;
+        case vm_hash:     delete (nasal_hash*)(tmp_ptr);     break;
+        case vm_function: delete (nasal_function*)(tmp_ptr); break;
+        case vm_closure:  delete (nasal_closure*)(tmp_ptr);  break;
+    }
+    return;
+}
+void nasal_scalar::clear()
+{
+    // must set type and scalar_ptr to default first
+    // this operation will avoid SIGTRAP caused by circular reference
+    // circular reference will cause using destructor repeatedly
+    int tmp_type=this->type;
+    void* tmp_ptr=this->scalar_ptr;
+
+    this->type=vm_nil;
+    this->scalar_ptr=NULL;
+    switch(tmp_type)
+    {
+        case vm_nil:      break;
+        case vm_number:   delete (double*)(tmp_ptr);         break;
+        case vm_string:   delete (std::string*)(tmp_ptr);    break;
+        case vm_vector:   delete (nasal_vector*)(tmp_ptr);   break;
+        case vm_hash:     delete (nasal_hash*)(tmp_ptr);     break;
+        case vm_function: delete (nasal_function*)(tmp_ptr); break;
+        case vm_closure:  delete (nasal_closure*)(tmp_ptr);  break;
+    }
+    return;
+}
+bool nasal_scalar::set_type(int nasal_scalar_type)
+{
+    bool ret=true;
+    this->type=nasal_scalar_type;
+    switch(nasal_scalar_type)
+    {
+        case vm_nil:      this->scalar_ptr=(void*)NULL;                 break;
+        case vm_number:   this->scalar_ptr=(void*)(new double);         break;
+        case vm_string:   this->scalar_ptr=(void*)(new std::string);    break;
+        case vm_vector:   this->scalar_ptr=(void*)(new nasal_vector);   break;
+        case vm_hash:     this->scalar_ptr=(void*)(new nasal_hash);     break;
+        case vm_function: this->scalar_ptr=(void*)(new nasal_function); break;
+        case vm_closure:  this->scalar_ptr=(void*)(new nasal_closure);  break;
+        default:
+            std::cout<<">> [vm] error scalar type: "<<nasal_scalar_type<<std::endl;
+            this->type=vm_nil;
+            this->scalar_ptr=(void*)NULL;
+            ret=false;
+            break;
+    }
+    return ret;
+}
+void nasal_scalar::set_number(double num)
+{
+    *(double*)(this->scalar_ptr)=num;
+    return;
+}
+void nasal_scalar::set_string(std::string str)
+{
+    *(std::string*)(this->scalar_ptr)=str;
+    return;
+}
+int nasal_scalar::get_type()
+{
+    return this->type;
+}
+double nasal_scalar::get_number()
+{
+    if(this->type==vm_number)
+        return *(double*)(this->scalar_ptr);
+    else
+        return 0;
+}
+std::string nasal_scalar::get_string()
+{
+    if(this->type==vm_string)
+        return *(std::string*)(this->scalar_ptr);
+    else
+        return "[vm] error value type";
+}
+nasal_vector& nasal_scalar::get_vector()
+{
+    if(this->type==vm_vector)
+        return *(nasal_vector*)(this->scalar_ptr);
+    else
+        return error_vector;
+}
+nasal_hash& nasal_scalar::get_hash()
+{
+    if(this->type==vm_hash)
+        return *(nasal_hash*)(this->scalar_ptr);
+    else
+        return error_hash;
+}
+nasal_function& nasal_scalar::get_func()
+{
+    if(this->type==vm_function)
+        return *(nasal_function*)(this->scalar_ptr);
+    else
+        return error_function;
+}
+nasal_closure& nasal_scalar::get_closure()
+{
+    if(this->type==vm_closure)
+        return *(nasal_closure*)(this->scalar_ptr);
+    else
+        return error_closure;
+}
+
+int nasal_scalar::nasal_scalar_add(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_add: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_add: error value type.only number and string can take part in add."<<std::endl;
+        return -1;
+    }
+    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_add: "<<*(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_add: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=a_num+b_num;
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_sub(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_sub: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_sub: error value type.only number and string can take part in sub."<<std::endl;
+        return -1;
+    }
+    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_sub: "<<*(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_sub: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=a_num-b_num;
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_mult(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_mult: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_mult: error value type.only number and string can take part in mult."<<std::endl;
+        return -1;
+    }
+    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_mult: "<<*(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_mult: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=a_num*b_num;
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_div(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_div: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_div: error value type.only number and string can take part in div."<<std::endl;
+        return -1;
+    }
+    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_div: "<<*(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_div: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=a_num/b_num;
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_link(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_link: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_link: error value type.only number and string can take part in link."<<std::endl;
+        return -1;
+    }
+    std::string a_str;
+    std::string b_str;
+    a_str=(a_ref.type==vm_number)? trans_number_to_string(*(double*)a_ref.scalar_ptr):*(std::string*)a_ref.scalar_ptr;
+    b_str=(b_ref.type==vm_number)? trans_number_to_string(*(double*)b_ref.scalar_ptr):*(std::string*)b_ref.scalar_ptr;
+    std::string result=a_str+b_str;
+    int new_value_address=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_value_address).set_type(vm_string);
+    nasal_vm.gc_get(new_value_address).set_string(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_and(int a_scalar_addr,int b_scalar_addr)
+{
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if(a_ref.type==vm_hash || a_ref.type==vm_vector || a_ref.type==vm_function || b_ref.type==vm_hash || b_ref.type==vm_vector || b_ref.type==vm_function)
+    {
+        std::cout<<">> [vm] scalar_and: hash and vector cannot take part in and calculation."<<std::endl;
+        return -1;
+    }
+    if(a_ref.type==vm_number)
+    {
+        double number=a_ref.get_number();
+        if(number==0)
+        {
+            int new_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+            nasal_vm.gc_get(new_value_addr).set_number(0);
+            return new_value_addr;
+        }
+    }
+    else if(a_ref.type==vm_nil)
+    {
+        int new_value_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+        nasal_vm.gc_get(new_value_addr).set_number(0);
+        return new_value_addr;
+    }
+    else if(a_ref.type==vm_string)
+    {
+        std::string str=a_ref.get_string();
+        if(!str.length() || !check_numerable_string(str))
+        {
+            int new_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+            nasal_vm.gc_get(new_value_addr).set_number(0);
+            return new_value_addr;
+        }
+        else
+        {
+            double number=trans_string_to_number(str);
+            if(number==0)
+            {
+                int new_value_addr=nasal_vm.gc_alloc();
+                nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+                nasal_vm.gc_get(new_value_addr).set_number(0);
+                return new_value_addr;
+            }
+        }
+    }
+
+    if(b_ref.type==vm_number)
+    {
+        double number=b_ref.get_number();
+        if(number==0)
+        {
+            int new_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+            nasal_vm.gc_get(new_value_addr).set_number(0);
+            return new_value_addr;
+        }
+        else
+        {
+            nasal_vm.add_reference(b_scalar_addr);
+            return b_scalar_addr;
+        }
+    }
+    else if(b_ref.type==vm_nil)
+    {
+        int new_value_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+        nasal_vm.gc_get(new_value_addr).set_number(0);
+        return new_value_addr;
+    }
+    else if(b_ref.type==vm_string)
+    {
+        std::string str=b_ref.get_string();
+        if(!str.length() || !check_numerable_string(str))
+        {
+            int new_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+            nasal_vm.gc_get(new_value_addr).set_number(0);
+            return new_value_addr;
+        }
+        else
+        {
+            double number=trans_string_to_number(str);
+            if(number==0)
+            {
+                int new_value_addr=nasal_vm.gc_alloc();
+                nasal_vm.gc_get(new_value_addr).set_type(vm_number);
+                nasal_vm.gc_get(new_value_addr).set_number(0);
+                return new_value_addr;
+            }
+            else
+            {
+                nasal_vm.add_reference(b_scalar_addr);
+                return b_scalar_addr;
+            }
+        }
+    }
+
+    int false_value_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(false_value_addr).set_type(vm_number);
+    nasal_vm.gc_get(false_value_addr).set_number(0);
+    return false_value_addr;
+}
+int nasal_scalar::nasal_scalar_or(int a_scalar_addr,int b_scalar_addr)
+{
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if(a_ref.type==vm_hash || a_ref.type==vm_vector || a_ref.type==vm_function || b_ref.type==vm_hash || b_ref.type==vm_vector || b_ref.type==vm_function)
+    {
+        std::cout<<">> [vm] scalar_or: hash and vector cannot take part in or calculation."<<std::endl;
+        return -1;
+    }
+    if(a_ref.type==vm_number)
+    {
+        if(a_ref.get_number()!=0)
+        {
+            nasal_vm.add_reference(a_scalar_addr);
+            return a_scalar_addr;
+        }
+    }
+    else if(a_ref.type==vm_string)
+    {
+        std::string str=a_ref.get_string();
+        if(str.length() && (!check_numerable_string(str) || trans_string_to_number(str)!=0))
+        {
+            nasal_vm.add_reference(a_scalar_addr);
+            return a_scalar_addr;
+        }
+    }
+
+    if(b_ref.type==vm_number)
+    {
+        if(b_ref.get_number()!=0)
+        {
+            nasal_vm.add_reference(b_scalar_addr);
+            return b_scalar_addr;
+        }
+    }
+    else if(b_ref.type==vm_string)
+    {
+        std::string str=b_ref.get_string();
+        if(str.length() && (!check_numerable_string(str) || trans_string_to_number(str)!=0))
+        {
+            nasal_vm.add_reference(b_scalar_addr);
+            return b_scalar_addr;
+        }
+    }
+
+    int false_value_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(false_value_addr).set_type(vm_number);
+    nasal_vm.gc_get(false_value_addr).set_number(0);
+    return false_value_addr;
+}
+int nasal_scalar::nasal_scalar_unary_sub(int a_scalar_addr)
+{
+    if(a_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_unary_sub: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    if(a_ref.type!=vm_number && a_ref.type!=vm_string)
+    {
+        std::cout<<">> [vm] scalar_unary_sub: error value type.only number and string can take part in unary sub."<<std::endl;
+        return -1;
+    }
+    double a_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_unary_sub: "<<*(std::string*)a_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(-a_num);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_unary_not(int a_scalar_addr)
+{
+    if(a_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_unary_not: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    int new_value_address=-1;
+    if(a_ref.type==vm_nil)
+    {
+        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);
+    }
+    else if(a_ref.type==vm_number)
+    {
+        double number=(double)(*(double*)(a_ref.scalar_ptr)==0);
+        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(number);
+    }
+    else if(a_ref.type==vm_string)
+    {
+        if(check_numerable_string(*(std::string*)a_ref.scalar_ptr))
+        {
+            double number=(double)(trans_string_to_number(*(std::string*)a_ref.scalar_ptr)==0);
+            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(number);
+        }
+        else
+        {
+            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(!(*(std::string*)a_ref.scalar_ptr).length());
+        }
+    }
+    else
+        std::cout<<">> [vm] scalar_unary_not: error value type.number,string and nil can take part in unary not."<<std::endl;
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_cmp_equal(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_cmp_equal: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    if(a_scalar_addr==b_scalar_addr)
+    {
+        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;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    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))
+    {
+        if(a_ref.type==vm_string && b_ref.type==vm_string)
+        {
+            std::string astr=*(std::string*)a_ref.scalar_ptr;
+            std::string bstr=*(std::string*)b_ref.scalar_ptr;
+            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)(astr==bstr));
+            return new_value_address;
+        }
+        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
+            {
+                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)0);
+                return new_value_address;
+            }
+        }
+        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
+            {
+                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)0);
+                return new_value_address;
+            }
+        }
+        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_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_cmp_not_equal: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    if(a_scalar_addr==b_scalar_addr)
+    {
+        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;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    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))
+    {
+        if(a_ref.type==vm_string && b_ref.type==vm_string)
+        {
+            std::string astr=*(std::string*)a_ref.scalar_ptr;
+            std::string bstr=*(std::string*)b_ref.scalar_ptr;
+            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)(astr!=bstr));
+            return new_value_address;
+        }
+        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
+            {
+                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)1);
+                return new_value_address;
+            }
+        }
+        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
+            {
+                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)1);
+                return new_value_address;
+            }
+        }
+        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_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_cmp_less: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_cmp_less: error value type.only number and string can take part in cmp_less."<<std::endl;
+        return -1;
+    }
+    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_less: "<<*(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_less: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=(double)(a_num<b_num);
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_cmp_greater(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_cmp_greater: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_cmp_greater: error value type.only number and string can take part in cmp_greater."<<std::endl;
+        return -1;
+    }
+    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_greater: "<<*(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_greater: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=(double)(a_num>b_num);
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_cmp_less_or_equal(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_cmp_lequal: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_cmp_lequal: error value type.only number and string can take part in cmp_less_or_equal."<<std::endl;
+        return -1;
+    }
+    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_lequal: "<<*(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_lequal: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=(double)(a_num<=b_num);
+    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(result);
+    return new_value_address;
+}
+int nasal_scalar::nasal_scalar_cmp_greater_or_equal(int a_scalar_addr,int b_scalar_addr)
+{
+    if(a_scalar_addr<0 || b_scalar_addr<0)
+    {
+        std::cout<<">> [vm] scalar_cmp_gequal: memory returned an invalid address"<<std::endl;
+        return -1;
+    }
+    nasal_scalar& a_ref=nasal_vm.gc_get(a_scalar_addr);
+    nasal_scalar& b_ref=nasal_vm.gc_get(b_scalar_addr);
+    if((a_ref.type!=vm_number && a_ref.type!=vm_string)||(b_ref.type!=vm_number && b_ref.type!=vm_string))
+    {
+        std::cout<<">> [vm] scalar_cmp_gequal: error value type.only number and string can take part in cmp_greater_or_equal."<<std::endl;
+        return -1;
+    }
+    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_gequal: "<<*(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_gequal: "<<*(std::string*)b_ref.scalar_ptr<<" is not a numerable string."<<std::endl;
+            return -1;
+        }
+    }
+    double result=(double)(a_num>=b_num);
+    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(result);
+    return new_value_address;
+}
+
+/*functions of nasal_virtual_machine*/
+nasal_virtual_machine::nasal_virtual_machine()
+{
+    error_info_output_switch=true;
+    return;
+}
+nasal_virtual_machine::~nasal_virtual_machine()
+{
+    error_info_output_switch=false;
+    int gc_mem_size=garbage_collector_memory.size();
+    int mm_mem_size=memory_manager_memory.size();
+    for(int i=0;i<gc_mem_size;++i)
+        for(int j=0;j<GC_BLK_SIZE;++j)
+            if(garbage_collector_memory[i][j].ref_cnt)
+            {
+                garbage_collector_memory[i][j].ref_cnt=0;
+                garbage_collector_memory[i][j].collected=true;
+            }
+    for(int i=0;i<gc_mem_size;++i)
+        for(int j=0;j<GC_BLK_SIZE;++j)
+            if(garbage_collector_memory[i][j].elem.get_type()!=vm_nil)
+                garbage_collector_memory[i][j].elem.clear();
+    // must delete gc_memory after destructing all elements
+    // or it may cause SIGTRAP because some elements may have pointers point to space that has been deleted(free)
+    for(int i=0;i<gc_mem_size;++i)
+        delete []garbage_collector_memory[i];
+    for(int i=0;i<mm_mem_size;++i)
+        delete []memory_manager_memory[i];
+    while(!garbage_collector_free_space.empty())
+        garbage_collector_free_space.pop();
+    while(!memory_manager_free_space.empty())
+        memory_manager_free_space.pop();
+    garbage_collector_memory.clear();
+    memory_manager_memory.clear();
+    error_info_output_switch=true;
+    return;
+}
+void nasal_virtual_machine::debug()
+{
+    int gc_mem_size=garbage_collector_memory.size();
+    int mm_mem_size=memory_manager_memory.size();
+    for(int i=0;i<gc_mem_size;++i)
+        for(int j=0;j<GC_BLK_SIZE;++j)
+            if(garbage_collector_memory[i][j].ref_cnt)
+            {
+                std::cout<<">> [debug] "<<((i<<8)+j)<<": "<<garbage_collector_memory[i][j].ref_cnt<<" ";
+                switch(garbage_collector_memory[i][j].elem.get_type())
+                {
+                    case vm_nil:std::cout<<"nil";break;
+                    case vm_number:std::cout<<"number "<<garbage_collector_memory[i][j].elem.get_number();break;
+                    case vm_string:std::cout<<"string "<<garbage_collector_memory[i][j].elem.get_string();break;
+                    case vm_vector:std::cout<<"vector";break;
+                    case vm_hash:std::cout<<"hash";break;
+                    case vm_function:std::cout<<"function";break;
+                    case vm_closure:std::cout<<"closure";break;
+                }
+                std::cout<<"\n";
+            }
+    return;
+}
+void nasal_virtual_machine::clear()
+{
+    error_info_output_switch=false;
+    int gc_mem_size=garbage_collector_memory.size();
+    int mm_mem_size=memory_manager_memory.size();
+    for(int i=0;i<gc_mem_size;++i)
+        for(int j=0;j<GC_BLK_SIZE;++j)
+            if(garbage_collector_memory[i][j].ref_cnt)
+            {
+                garbage_collector_memory[i][j].ref_cnt=0;
+                garbage_collector_memory[i][j].collected=true;
+            }
+    for(int i=0;i<gc_mem_size;++i)
+        for(int j=0;j<GC_BLK_SIZE;++j)
+            if(garbage_collector_memory[i][j].elem.get_type()!=vm_nil)
+                garbage_collector_memory[i][j].elem.clear();
+    // must delete gc_memory after destructing all elements
+    // or it may cause SIGTRAP because some elements may have pointers point to space that has been deleted(free)
+    for(int i=0;i<gc_mem_size;++i)
+        delete []garbage_collector_memory[i];
+    for(int i=0;i<mm_mem_size;++i)
+        delete []memory_manager_memory[i];
+    while(!garbage_collector_free_space.empty())
+        garbage_collector_free_space.pop();
+    while(!memory_manager_free_space.empty())
+        memory_manager_free_space.pop();
+    garbage_collector_memory.clear();
+    memory_manager_memory.clear();
+    error_info_output_switch=true;
+    return;
+}
+int nasal_virtual_machine::gc_alloc()
+{
+    if(garbage_collector_free_space.empty())
+    {
+        gc_unit* new_block=new gc_unit[256];
+        garbage_collector_memory.push_back(new_block);
+        int mem_size=garbage_collector_memory.size();
+        for(int i=((mem_size-1)<<8);i<(mem_size<<8);++i)
+            garbage_collector_free_space.push(i);
+    }
+    int ret=garbage_collector_free_space.front();
+    garbage_collector_memory[ret>>8][ret&0xff].collected=false;
+    garbage_collector_memory[ret>>8][ret&0xff].ref_cnt=1;
+    garbage_collector_free_space.pop();
+    return ret;
+}
+nasal_scalar& nasal_virtual_machine::gc_get(int value_address)
+{
+    int blk_num=(value_address>>8);
+    int blk_plc=(value_address&0xff);
+    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
+        return garbage_collector_memory[blk_num][blk_plc].elem;
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] gc_get:unexpected memory \'"<<value_address<<"\'."<<std::endl;
+        return error_returned_value;
+    }
+}
+void nasal_virtual_machine::add_reference(int value_address)
+{
+    int blk_num=(value_address>>8);
+    int blk_plc=(value_address&0xff);
+    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
+        ++garbage_collector_memory[blk_num][blk_plc].ref_cnt;
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] gc_add_ref:unexpected memory \'"<<value_address<<"\'."<<std::endl;
+    }
+    return;
+}
+void nasal_virtual_machine::del_reference(int value_address)
+{
+    int blk_num=(value_address>>8);
+    int blk_plc=(value_address&0xff);
+    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
+        --garbage_collector_memory[blk_num][blk_plc].ref_cnt;
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] gc_del_ref:unexpected memory \'"<<value_address<<"\'."<<std::endl;
+        return;
+    }
+    if(!garbage_collector_memory[blk_num][blk_plc].ref_cnt)
+    {
+        garbage_collector_memory[blk_num][blk_plc].collected=true;
+        garbage_collector_memory[blk_num][blk_plc].elem.clear();
+        garbage_collector_free_space.push(value_address);
+    }
+    return;
+}
+int nasal_virtual_machine::get_refcnt(int value_address)
+{
+    int blk_num=(value_address>>8);
+    int blk_plc=(value_address&0xff);
+    if(0<=value_address && value_address<(garbage_collector_memory.size()<<8) && !garbage_collector_memory[blk_num][blk_plc].collected)
+        return garbage_collector_memory[blk_num][blk_plc].ref_cnt;
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] get_refcnt:unexpected memory \'"<<value_address<<"\'."<<std::endl;
+    }
+    return -1;
+}
+int nasal_virtual_machine::mem_alloc()
+{
+    if(memory_manager_free_space.empty())
+    {
+        int* new_block=new int[256];
+        memory_manager_memory.push_back(new_block);
+        int mem_size=memory_manager_memory.size();
+        for(int i=((mem_size-1)<<8);i<(mem_size<<8);++i)
+            memory_manager_free_space.push(i);
+    }
+    int ret=memory_manager_free_space.front();
+    memory_manager_free_space.pop();
+    return ret;
+}
+int nasal_virtual_machine::mem_free(int memory_address)
+{
+    // mem_free has helped scalar to delete the reference
+    // so don't need to delete reference again
+    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
+    {
+        this->del_reference(memory_manager_memory[memory_address>>8][memory_address&0xff]);
+        memory_manager_free_space.push(memory_address);
+    }
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] mem_free:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
+        return 0;
+    }
+    return 1;
+}
+int nasal_virtual_machine::mem_change(int memory_address,int value_address)
+{
+    // this progress is used to change a memory space's value address
+    // be careful! this process doesn't check if this mem_space is in use.
+    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
+    {
+        this->del_reference(memory_manager_memory[memory_address>>8][memory_address&0xff]);
+        memory_manager_memory[memory_address>>8][memory_address&0xff]=value_address;
+    }
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] mem_change:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
+        return 0;
+    }
+    return 1;
+}
+int nasal_virtual_machine::mem_init(int memory_address,int value_address)
+{
+    // this progress is used to init a memory space
+    // be careful! this process doesn't check if this mem_space is in use.
+    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
+        memory_manager_memory[memory_address>>8][memory_address&0xff]=value_address;
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] mem_init:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
+        return 0;
+    }
+    return 1;
+}
+int nasal_virtual_machine::mem_get(int memory_address)
+{
+    int ret=-1;
+    // be careful! this process doesn't check if this mem_space is in use.
+    if(0<=memory_address && memory_address<(memory_manager_memory.size()<<8))
+        ret=memory_manager_memory[memory_address>>8][memory_address&0xff];
+    else
+    {
+        if(error_info_output_switch)
+            std::cout<<">> [vm] mem_get:unexpected memory \'"<<memory_address<<"\'."<<std::endl;
+    }
+    return ret;
+}
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_import.h b/nasal_import.h
similarity index 95%
rename from version3.0/nasal_import.h
rename to nasal_import.h
index d7e3d32..2e12b53 100644
--- a/version3.0/nasal_import.h
+++ b/nasal_import.h
@@ -1,184 +1,184 @@
-#ifndef __NASAL_IMPORT_H__
-#define __NASAL_IMPORT_H__
-
-class nasal_import
-{
-private:
-    nasal_resource import_src;
-    nasal_lexer    import_lex;
-    nasal_parse    import_par;
-    nasal_ast      import_ast;
-    std::vector<std::string> filename_table;
-    int error;
-    void die(std::string,std::string);
-    void init();
-    bool check_import(nasal_ast&);
-    bool check_exist(std::string);
-    void linker(nasal_ast&,nasal_ast&);
-    nasal_ast file_import(nasal_ast&);
-    nasal_ast load(nasal_ast&);
-public:
-    nasal_import();
-    int  get_error();
-    void preprocessing(nasal_ast&);
-    nasal_ast& get_root();
-};
-
-nasal_import::nasal_import()
-{
-    import_src.clear();
-    import_lex.clear();
-    import_par.clear();
-    import_ast.clear();
-    filename_table.clear();
-    return;
-}
-
-void nasal_import::die(std::string filename,std::string error_stage)
-{
-    ++error;
-    std::cout<<">> [import] in <\""<<filename<<"\">: error(s) occurred in "<<error_stage<<"."<<std::endl;
-    return;
-}
-
-void nasal_import::init()
-{
-    import_src.clear();
-    import_lex.clear();
-    import_par.clear();
-    return;
-}
-
-bool nasal_import::check_import(nasal_ast& node)
-{
-/*
-    only this kind of node can be recognized as 'import':
-
-    call
-        id:import
-        call_func
-            string:'filename'
-*/
-    if(node.get_type()!=ast_call)
-        return false;
-    std::vector<nasal_ast>& ref_vec=node.get_children();
-    if(ref_vec.size()!=2)
-        return false;
-    if(ref_vec[0].get_str()!="import")
-        return false;
-    if(ref_vec[1].get_type()!=ast_call_func)
-        return false;
-    if(ref_vec[1].get_children().size()!=1 || ref_vec[1].get_children()[0].get_type()!=ast_string)
-        return false;
-    return true;
-}
-
-bool nasal_import::check_exist(std::string filename)
-{
-    // avoid importing the same file
-    int size=filename_table.size();
-    for(int i=0;i<size;++i)
-        if(filename==filename_table[i])
-            return true;
-    filename_table.push_back(filename);
-    return false;
-}
-
-void nasal_import::linker(nasal_ast& root,nasal_ast& add_root)
-{
-    // add children of add_root to the back of root
-    std::vector<nasal_ast>& ref_vec=add_root.get_children();
-    int size=ref_vec.size();
-    for(int i=0;i<size;++i)
-        root.add_child(ref_vec[i]);
-    return;
-}
-
-nasal_ast nasal_import::file_import(nasal_ast& node)
-{
-    // initializing
-    nasal_ast tmp;
-    tmp.set_line(0);
-    tmp.set_type(ast_root);
-    init();
-
-    // get filename and set node to ast_null
-    std::string filename=node.get_children()[1].get_children()[0].get_str();
-    node.clear();
-    node.set_type(ast_null);
-
-    // avoid infinite loading loop
-    if(check_exist(filename))
-        return tmp;
-    
-    // start importing...
-    if(!import_src.input_file(filename))
-    {
-        this->die(filename,"resource");
-        return tmp;
-    }
-    import_lex.scanner(import_src.get_file());
-    if(import_lex.get_error())
-    {
-        this->die(filename,"lexer");
-        return tmp;
-    }
-    import_par.set_toklist(import_lex.get_token_list());
-    import_par.main_process();
-    if(import_par.get_error())
-    {
-        this->die(filename,"parser");
-        return tmp;
-    }
-    tmp=import_par.get_root();
-
-    // check if tmp has 'import'
-    return load(tmp);
-}
-
-nasal_ast nasal_import::load(nasal_ast& root)
-{
-    nasal_ast new_root;
-    new_root.set_line(0);
-    new_root.set_type(ast_root);
-
-    std::vector<nasal_ast>& ref_vec=root.get_children();
-    int size=ref_vec.size();
-    for(int i=0;i<size;++i)
-    {
-        if(check_import(ref_vec[i]))
-        {
-            nasal_ast tmp=file_import(ref_vec[i]);
-            // add tmp to the back of new_root
-            linker(new_root,tmp);
-        }
-    }
-    // add root to the back of new_root
-    linker(new_root,root);
-
-    // oops,i think it is not efficient if the root is too ... large?
-    return new_root;
-}
-
-void nasal_import::preprocessing(nasal_ast& root)
-{
-    // initializing
-    error=0;
-    filename_table.clear();
-    import_ast.clear();
-    // scan root and import files,then generate a new ast and return to import_ast
-    import_ast=load(root);
-    return;
-}
-
-nasal_ast& nasal_import::get_root()
-{
-    return import_ast;
-}
-
-int nasal_import::get_error()
-{
-    return error;
-}
-
+#ifndef __NASAL_IMPORT_H__
+#define __NASAL_IMPORT_H__
+
+class nasal_import
+{
+private:
+    nasal_resource import_src;
+    nasal_lexer    import_lex;
+    nasal_parse    import_par;
+    nasal_ast      import_ast;
+    std::vector<std::string> filename_table;
+    int error;
+    void die(std::string,std::string);
+    void init();
+    bool check_import(nasal_ast&);
+    bool check_exist(std::string);
+    void linker(nasal_ast&,nasal_ast&);
+    nasal_ast file_import(nasal_ast&);
+    nasal_ast load(nasal_ast&);
+public:
+    nasal_import();
+    int  get_error();
+    void preprocessing(nasal_ast&);
+    nasal_ast& get_root();
+};
+
+nasal_import::nasal_import()
+{
+    import_src.clear();
+    import_lex.clear();
+    import_par.clear();
+    import_ast.clear();
+    filename_table.clear();
+    return;
+}
+
+void nasal_import::die(std::string filename,std::string error_stage)
+{
+    ++error;
+    std::cout<<">> [import] in <\""<<filename<<"\">: error(s) occurred in "<<error_stage<<"."<<std::endl;
+    return;
+}
+
+void nasal_import::init()
+{
+    import_src.clear();
+    import_lex.clear();
+    import_par.clear();
+    return;
+}
+
+bool nasal_import::check_import(nasal_ast& node)
+{
+/*
+    only this kind of node can be recognized as 'import':
+
+    call
+        id:import
+        call_func
+            string:'filename'
+*/
+    if(node.get_type()!=ast_call)
+        return false;
+    std::vector<nasal_ast>& ref_vec=node.get_children();
+    if(ref_vec.size()!=2)
+        return false;
+    if(ref_vec[0].get_str()!="import")
+        return false;
+    if(ref_vec[1].get_type()!=ast_call_func)
+        return false;
+    if(ref_vec[1].get_children().size()!=1 || ref_vec[1].get_children()[0].get_type()!=ast_string)
+        return false;
+    return true;
+}
+
+bool nasal_import::check_exist(std::string filename)
+{
+    // avoid importing the same file
+    int size=filename_table.size();
+    for(int i=0;i<size;++i)
+        if(filename==filename_table[i])
+            return true;
+    filename_table.push_back(filename);
+    return false;
+}
+
+void nasal_import::linker(nasal_ast& root,nasal_ast& add_root)
+{
+    // add children of add_root to the back of root
+    std::vector<nasal_ast>& ref_vec=add_root.get_children();
+    int size=ref_vec.size();
+    for(int i=0;i<size;++i)
+        root.add_child(ref_vec[i]);
+    return;
+}
+
+nasal_ast nasal_import::file_import(nasal_ast& node)
+{
+    // initializing
+    nasal_ast tmp;
+    tmp.set_line(0);
+    tmp.set_type(ast_root);
+    init();
+
+    // get filename and set node to ast_null
+    std::string filename=node.get_children()[1].get_children()[0].get_str();
+    node.clear();
+    node.set_type(ast_null);
+
+    // avoid infinite loading loop
+    if(check_exist(filename))
+        return tmp;
+    
+    // start importing...
+    if(!import_src.input_file(filename))
+    {
+        this->die(filename,"resource");
+        return tmp;
+    }
+    import_lex.scanner(import_src.get_file());
+    if(import_lex.get_error())
+    {
+        this->die(filename,"lexer");
+        return tmp;
+    }
+    import_par.set_toklist(import_lex.get_token_list());
+    import_par.main_process();
+    if(import_par.get_error())
+    {
+        this->die(filename,"parser");
+        return tmp;
+    }
+    tmp=import_par.get_root();
+
+    // check if tmp has 'import'
+    return load(tmp);
+}
+
+nasal_ast nasal_import::load(nasal_ast& root)
+{
+    nasal_ast new_root;
+    new_root.set_line(0);
+    new_root.set_type(ast_root);
+
+    std::vector<nasal_ast>& ref_vec=root.get_children();
+    int size=ref_vec.size();
+    for(int i=0;i<size;++i)
+    {
+        if(check_import(ref_vec[i]))
+        {
+            nasal_ast tmp=file_import(ref_vec[i]);
+            // add tmp to the back of new_root
+            linker(new_root,tmp);
+        }
+    }
+    // add root to the back of new_root
+    linker(new_root,root);
+
+    // oops,i think it is not efficient if the root is too ... large?
+    return new_root;
+}
+
+void nasal_import::preprocessing(nasal_ast& root)
+{
+    // initializing
+    error=0;
+    filename_table.clear();
+    import_ast.clear();
+    // scan root and import files,then generate a new ast and return to import_ast
+    import_ast=load(root);
+    return;
+}
+
+nasal_ast& nasal_import::get_root()
+{
+    return import_ast;
+}
+
+int nasal_import::get_error()
+{
+    return error;
+}
+
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_lexer.h b/nasal_lexer.h
similarity index 96%
rename from version3.0/nasal_lexer.h
rename to nasal_lexer.h
index 213c821..aa9faf9 100644
--- a/version3.0/nasal_lexer.h
+++ b/nasal_lexer.h
@@ -1,394 +1,394 @@
-#ifndef __NASAL_LEXER_H__
-#define __NASAL_LEXER_H__
-
-#define IS_IDENTIFIER_HEAD(c) ((c=='_')||('a'<=c && c<='z')||('A'<=c&&c<='Z'))
-#define IS_IDENTIFIER_BODY(c) ((c=='_')||('a'<=c && c<='z')||('A'<=c&&c<='Z')||('0'<=c&&c<='9'))
-#define IS_HEX_NUMBER(c)      (('0'<=c&&c<='9')||('a'<=c&&c<='f')||('A'<=c && c<='F'))
-#define IS_OCT_NUMEBR(c)      ('0'<=c&&c<='7')
-#define IS_DIGIT(c)           ('0'<=c&&c<='9')
-#define IS_STRING_HEAD(c)     (c=='\''||c=='\"')
-// single operators have only one character
-#define IS_SINGLE_OPRATOR(c)  (c=='('||c==')'||c=='['||c==']'||c=='{'||c=='}'||c==','||c==';'||c=='|'||c==':'||\
-							   c=='?'||c=='`'||c=='&'||c=='@'||c=='%'||c=='$'||c=='^'||c=='\\')
-// calculation operators may have two chars, for example: += -= *= /= ~= != == >= <=
-#define IS_CALC_OPERATOR(c)   (c=='='||c=='+'||c=='-'||c=='*'||c=='!'||c=='/'||c=='<'||c=='>'||c=='~')
-#define IS_NOTE_HEAD(c)       (c=='#')
-
-#ifndef TOKEN_TABLE_SIZE
-#define TOKEN_TABLE_SIZE 45
-struct token_table
-{
-    std::string str;
-    int tok_type;
-}tok_tbl[TOKEN_TABLE_SIZE]=
-{
-    {"for"     ,tok_for          },
-    {"forindex",tok_forindex     },
-    {"foreach" ,tok_foreach      },
-    {"while"   ,tok_while        },
-    {"var"     ,tok_var          },
-    {"func"    ,tok_func         },
-    {"break"   ,tok_break        },
-    {"continue",tok_continue     },
-    {"return"  ,tok_return       },
-    {"if"      ,tok_if           },
-    {"elsif"   ,tok_elsif        },
-    {"else"    ,tok_else         },
-    {"nil"     ,tok_nil          },
-    {"("       ,tok_left_curve   },
-    {")"       ,tok_right_curve  },
-    {"["       ,tok_left_bracket },
-    {"]"       ,tok_right_bracket},
-    {"{"       ,tok_left_brace   },
-    {"}"       ,tok_right_brace  },
-    {";"       ,tok_semi         },
-    {"and"     ,tok_and          },
-    {"or"      ,tok_or           },
-    {","       ,tok_comma        },
-    {"."       ,tok_dot          },
-    {"..."     ,tok_ellipsis     },
-    {"?"       ,tok_quesmark     },
-    {":"       ,tok_colon        },
-    {"+"       ,tok_add          },
-    {"-"       ,tok_sub          },
-    {"*"       ,tok_mult         },
-    {"/"       ,tok_div          },
-    {"~"       ,tok_link         },
-    {"!"       ,tok_not          },
-	{"="       ,tok_equal        },
-    {"+="      ,tok_add_equal    },
-    {"-="      ,tok_sub_equal    },
-    {"*="      ,tok_mult_equal   },
-    {"/="      ,tok_div_equal    },
-    {"~="      ,tok_link_equal   },
-    {"=="      ,tok_cmp_equal    },
-    {"!="      ,tok_cmp_not_equal},
-    {"<"       ,tok_less_than    },
-    {">"       ,tok_greater_than },
-    {"<="      ,tok_less_equal   },
-    {">="      ,tok_greater_equal},
-};
-#endif
-
-struct token
-{
-    int line;
-    int type;
-    std::string str;
-};
-
-class nasal_lexer
-{
-private:
-    int error;
-    std::vector<token> token_list;
-	std::string identifier_gen(std::vector<char>&,int&,int&);
-	void generate_number_error(int,std::string);
-    std::string number_gen(std::vector<char>&,int&,int&);
-    std::string string_gen(std::vector<char>&,int&,int&);
-public:
-    void clear();
-    void scanner(std::vector<char>&);
-    void print_token();
-    int  get_error();
-	std::vector<token>& get_token_list();
-};
-
-void nasal_lexer::clear()
-{
-    token_list.clear();
-    return;
-}
-
-std::string nasal_lexer::identifier_gen(std::vector<char>& res,int& ptr,int& line)
-{
-	int res_size=res.size();
-	std::string token_str="";
-	while(ptr<res_size && IS_IDENTIFIER_BODY(res[ptr]))
-		token_str+=res[ptr++];
-	return token_str;
-	// after running this process, ptr will point to the next token's beginning character
-}
-
-void nasal_lexer::generate_number_error(int line,std::string token_str)
-{
-	++error;
-	std::cout<<">> [lexer] line "<<line<<": \""<<token_str<<"\" is not a correct number.\n";
-	return;
-}
-std::string nasal_lexer::number_gen(std::vector<char>& res,int& ptr,int& line)
-{
-	int res_size=res.size();
-	bool scientific_notation=false;// numbers like 1e8 are scientific_notation
-	std::string token_str="";
-	// generate hex number
-	if(res[ptr]=='0' && ptr+1<res_size && res[ptr+1]=='x')
-	{
-		token_str="0x";
-		ptr+=2;
-		while(ptr<res_size && IS_HEX_NUMBER(res[ptr]))
-			token_str+=res[ptr++];
-		if(token_str=="0x")
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-		return token_str;
-	}
-	// generate oct number
-	else if(res[ptr]=='0' && ptr+1<res_size && res[ptr+1]=='o')
-	{
-		token_str="0o";
-		ptr+=2;
-		while(ptr<res_size && IS_OCT_NUMEBR(res[ptr]))
-			token_str+=res[ptr++];
-		if(token_str=="0o")
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-		return token_str;
-	}
-	// generate dec number
-	// dec number -> 0|[1~9][0~9]*(.[0~9]*)(e|E(+|-)0|[1~9][0~9]*)
-	if(ptr<res_size && res[ptr]=='0')
-		token_str+=res[ptr++];
-	while(ptr<res_size && IS_DIGIT(res[ptr]))
-		token_str+=res[ptr++];
-	if(ptr<res_size && res[ptr]=='.')
-	{
-		token_str+=res[ptr++];
-		// "xxxx." is not a correct number
-		if(ptr>=res_size)
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-		while(ptr<res_size && IS_DIGIT(res[ptr]))
-			token_str+=res[ptr++];
-		// "xxxx." is not a correct number
-		if(token_str.back()=='.')
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-	}
-	if(ptr<res_size && (res[ptr]=='e' || res[ptr]=='E'))
-	{
-		token_str+=res[ptr++];
-		// "xxxe" is not a correct number
-		if(ptr>=res_size)
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-		if(ptr<res_size && (res[ptr]=='-' || res[ptr]=='+'))
-			token_str+=res[ptr++];
-		if(ptr>=res_size)
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-		if(ptr<res_size && res[ptr]=='0')
-			token_str+=res[ptr++];
-		while(ptr<res_size && IS_DIGIT(res[ptr]))
-			token_str+=res[ptr++];
-		// "xxxe(-|+)" is not a correct number
-		if(token_str.back()=='e' || token_str.back()=='E' || token_str.back()=='-' || token_str.back()=='+')
-		{
-			generate_number_error(line,token_str);
-			return "0";
-		}
-	}
-	return token_str;
-}
-
-std::string nasal_lexer::string_gen(std::vector<char>& res,int& ptr,int& line)
-{
-	int res_size=res.size();
-	std::string token_str="";
-	char str_begin=res[ptr++];
-	if(ptr>=res_size) return token_str;
-	while(ptr<res_size && res[ptr]!=str_begin)
-	{
-		if(res[ptr]=='\n') ++line;
-		if(res[ptr]=='\\' && ptr+1<res.size())
-		{
-			++ptr;
-			switch(res[ptr])
-			{
-				case 'a':token_str.push_back('\a');break;
-				case 'b':token_str.push_back('\b');break;
-				case 'f':token_str.push_back('\f');break;
-				case 'n':token_str.push_back('\n');break;
-				case 'r':token_str.push_back('\r');break;
-				case 't':token_str.push_back('\t');break;
-				case 'v':token_str.push_back('\v');break;
-				case '?':token_str.push_back('\?');break;
-				case '0':token_str.push_back('\0');break;
-				case '\\':token_str.push_back('\\');break;
-				case '\'':token_str.push_back('\'');break;
-				case '\"':token_str.push_back('\"');break;
-				default:  token_str.push_back(res[ptr]);break;
-			}
-		}
-		else
-			token_str+=res[ptr];
-		++ptr;
-	}
-	// check if this string ends with a " or '
-	if(ptr>=res_size)
-	{
-		++error;
-		std::cout<<">> [lexer] line "<<line<<": get EOF when generating string.\n";
-	}
-	++ptr;
-	return token_str;
-}
-
-void nasal_lexer::scanner(std::vector<char>& res)
-{
-    error=0;
-    token_list.clear();
-    int line=1,ptr=0,res_size=res.size();
-	std::string token_str;
-	while(ptr<res_size)
-	{
-		while(ptr<res_size && (res[ptr]==' ' || res[ptr]=='\n' || res[ptr]=='\t' || res[ptr]=='\r' || res[ptr]<0))
-		{
-			// these characters will be ignored, and '\n' will cause ++line
-			if(res[ptr]=='\n') ++line;
-			++ptr;
-		}
-		if(ptr>=res_size) break;
-		if(IS_IDENTIFIER_HEAD(res[ptr]))
-		{
-			token_str=identifier_gen(res,ptr,line);
-			token new_token;
-			new_token.line=line;
-            new_token.str=token_str;
-            new_token.type=0;
-            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
-                if(token_str==tok_tbl[i].str)
-                {
-                    new_token.type=tok_tbl[i].tok_type;
-                    break;
-                }
-            if(!new_token.type)
-                new_token.type=tok_identifier;
-			token_list.push_back(new_token);
-		}
-		else if(IS_DIGIT(res[ptr]))
-		{
-			token_str=number_gen(res,ptr,line);
-			token new_token;
-			new_token.line=line;
-            new_token.str=token_str;
-			new_token.type=tok_number;
-			token_list.push_back(new_token);
-		}
-		else if(IS_STRING_HEAD(res[ptr]))
-		{
-			token_str=string_gen(res,ptr,line);
-			token new_token;
-			new_token.line=line;
-			new_token.type=tok_string;
-			new_token.str=token_str;
-			token_list.push_back(new_token);
-		}
-		else if(IS_SINGLE_OPRATOR(res[ptr]))
-		{
-			token_str="";
-			token_str+=res[ptr];
-			token new_token;
-			new_token.line=line;
-            new_token.str=token_str;
-            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
-                if(token_str==tok_tbl[i].str)
-                {
-                    new_token.type=tok_tbl[i].tok_type;
-                    break;
-                }
-			token_list.push_back(new_token);
-			++ptr;
-		}
-        else if(res[ptr]=='.')
-        {
-            if(ptr+2<res_size && res[ptr+1]=='.' && res[ptr+2]=='.')
-            {
-                token_str="...";
-                ptr+=3;
-            }
-            else
-            {
-                token_str=".";
-                ++ptr;
-            }
-            token new_token;
-            new_token.line=line;
-            new_token.str=token_str;
-            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
-                if(token_str==tok_tbl[i].str)
-                {
-                    new_token.type=tok_tbl[i].tok_type;
-                    break;
-                }
-			token_list.push_back(new_token);
-        }
-		else if(IS_CALC_OPERATOR(res[ptr]))
-		{
-			// get calculation operator
-			token_str="";
-			token_str+=res[ptr];
-			++ptr;
-			if(ptr<res.size() && res[ptr]=='=')
-			{
-				token_str+=res[ptr];
-				++ptr;
-			}
-			token new_token;
-			new_token.line=line;
-			new_token.str=token_str;
-            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
-                if(token_str==tok_tbl[i].str)
-                {
-                    new_token.type=tok_tbl[i].tok_type;
-                    break;
-                }
-			token_list.push_back(new_token);
-		}
-		else if(IS_NOTE_HEAD(res[ptr]))
-		{
-			// avoid note
-			while(ptr<res_size && res[ptr]!='\n') ++ptr;
-			// after this process ptr will point to a '\n'
-			// don't ++ptr then the counter for line can work correctly
-		}
-		else
-		{
-			++error;
-			std::cout<<">> [lexer] line "<<line<<": unknown char "<<(int)res[ptr]<<'.'<<std::endl;
-			++ptr;
-		}
-	}
-	return;
-}
-
-void nasal_lexer::print_token()
-{
-    int size=token_list.size();
-    for(int i=0;i<size;++i)
-        std::cout<<"("<<token_list[i].line<<" | "<<token_list[i].str<<")\n";
-    return;
-}
-
-int nasal_lexer::get_error()
-{
-    return error;
-}
-
-std::vector<token>& nasal_lexer::get_token_list()
-{
-	return token_list;
-}
+#ifndef __NASAL_LEXER_H__
+#define __NASAL_LEXER_H__
+
+#define IS_IDENTIFIER_HEAD(c) ((c=='_')||('a'<=c && c<='z')||('A'<=c&&c<='Z'))
+#define IS_IDENTIFIER_BODY(c) ((c=='_')||('a'<=c && c<='z')||('A'<=c&&c<='Z')||('0'<=c&&c<='9'))
+#define IS_HEX_NUMBER(c)      (('0'<=c&&c<='9')||('a'<=c&&c<='f')||('A'<=c && c<='F'))
+#define IS_OCT_NUMEBR(c)      ('0'<=c&&c<='7')
+#define IS_DIGIT(c)           ('0'<=c&&c<='9')
+#define IS_STRING_HEAD(c)     (c=='\''||c=='\"')
+// single operators have only one character
+#define IS_SINGLE_OPRATOR(c)  (c=='('||c==')'||c=='['||c==']'||c=='{'||c=='}'||c==','||c==';'||c=='|'||c==':'||\
+							   c=='?'||c=='`'||c=='&'||c=='@'||c=='%'||c=='$'||c=='^'||c=='\\')
+// calculation operators may have two chars, for example: += -= *= /= ~= != == >= <=
+#define IS_CALC_OPERATOR(c)   (c=='='||c=='+'||c=='-'||c=='*'||c=='!'||c=='/'||c=='<'||c=='>'||c=='~')
+#define IS_NOTE_HEAD(c)       (c=='#')
+
+#ifndef TOKEN_TABLE_SIZE
+#define TOKEN_TABLE_SIZE 45
+struct token_table
+{
+    std::string str;
+    int tok_type;
+}tok_tbl[TOKEN_TABLE_SIZE]=
+{
+    {"for"     ,tok_for          },
+    {"forindex",tok_forindex     },
+    {"foreach" ,tok_foreach      },
+    {"while"   ,tok_while        },
+    {"var"     ,tok_var          },
+    {"func"    ,tok_func         },
+    {"break"   ,tok_break        },
+    {"continue",tok_continue     },
+    {"return"  ,tok_return       },
+    {"if"      ,tok_if           },
+    {"elsif"   ,tok_elsif        },
+    {"else"    ,tok_else         },
+    {"nil"     ,tok_nil          },
+    {"("       ,tok_left_curve   },
+    {")"       ,tok_right_curve  },
+    {"["       ,tok_left_bracket },
+    {"]"       ,tok_right_bracket},
+    {"{"       ,tok_left_brace   },
+    {"}"       ,tok_right_brace  },
+    {";"       ,tok_semi         },
+    {"and"     ,tok_and          },
+    {"or"      ,tok_or           },
+    {","       ,tok_comma        },
+    {"."       ,tok_dot          },
+    {"..."     ,tok_ellipsis     },
+    {"?"       ,tok_quesmark     },
+    {":"       ,tok_colon        },
+    {"+"       ,tok_add          },
+    {"-"       ,tok_sub          },
+    {"*"       ,tok_mult         },
+    {"/"       ,tok_div          },
+    {"~"       ,tok_link         },
+    {"!"       ,tok_not          },
+	{"="       ,tok_equal        },
+    {"+="      ,tok_add_equal    },
+    {"-="      ,tok_sub_equal    },
+    {"*="      ,tok_mult_equal   },
+    {"/="      ,tok_div_equal    },
+    {"~="      ,tok_link_equal   },
+    {"=="      ,tok_cmp_equal    },
+    {"!="      ,tok_cmp_not_equal},
+    {"<"       ,tok_less_than    },
+    {">"       ,tok_greater_than },
+    {"<="      ,tok_less_equal   },
+    {">="      ,tok_greater_equal},
+};
+#endif
+
+struct token
+{
+    int line;
+    int type;
+    std::string str;
+};
+
+class nasal_lexer
+{
+private:
+    int error;
+    std::vector<token> token_list;
+	std::string identifier_gen(std::vector<char>&,int&,int&);
+	void generate_number_error(int,std::string);
+    std::string number_gen(std::vector<char>&,int&,int&);
+    std::string string_gen(std::vector<char>&,int&,int&);
+public:
+    void clear();
+    void scanner(std::vector<char>&);
+    void print_token();
+    int  get_error();
+	std::vector<token>& get_token_list();
+};
+
+void nasal_lexer::clear()
+{
+    token_list.clear();
+    return;
+}
+
+std::string nasal_lexer::identifier_gen(std::vector<char>& res,int& ptr,int& line)
+{
+	int res_size=res.size();
+	std::string token_str="";
+	while(ptr<res_size && IS_IDENTIFIER_BODY(res[ptr]))
+		token_str+=res[ptr++];
+	return token_str;
+	// after running this process, ptr will point to the next token's beginning character
+}
+
+void nasal_lexer::generate_number_error(int line,std::string token_str)
+{
+	++error;
+	std::cout<<">> [lexer] line "<<line<<": \""<<token_str<<"\" is not a correct number.\n";
+	return;
+}
+std::string nasal_lexer::number_gen(std::vector<char>& res,int& ptr,int& line)
+{
+	int res_size=res.size();
+	bool scientific_notation=false;// numbers like 1e8 are scientific_notation
+	std::string token_str="";
+	// generate hex number
+	if(res[ptr]=='0' && ptr+1<res_size && res[ptr+1]=='x')
+	{
+		token_str="0x";
+		ptr+=2;
+		while(ptr<res_size && IS_HEX_NUMBER(res[ptr]))
+			token_str+=res[ptr++];
+		if(token_str=="0x")
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+		return token_str;
+	}
+	// generate oct number
+	else if(res[ptr]=='0' && ptr+1<res_size && res[ptr+1]=='o')
+	{
+		token_str="0o";
+		ptr+=2;
+		while(ptr<res_size && IS_OCT_NUMEBR(res[ptr]))
+			token_str+=res[ptr++];
+		if(token_str=="0o")
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+		return token_str;
+	}
+	// generate dec number
+	// dec number -> 0|[1~9][0~9]*(.[0~9]*)(e|E(+|-)0|[1~9][0~9]*)
+	if(ptr<res_size && res[ptr]=='0')
+		token_str+=res[ptr++];
+	while(ptr<res_size && IS_DIGIT(res[ptr]))
+		token_str+=res[ptr++];
+	if(ptr<res_size && res[ptr]=='.')
+	{
+		token_str+=res[ptr++];
+		// "xxxx." is not a correct number
+		if(ptr>=res_size)
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+		while(ptr<res_size && IS_DIGIT(res[ptr]))
+			token_str+=res[ptr++];
+		// "xxxx." is not a correct number
+		if(token_str.back()=='.')
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+	}
+	if(ptr<res_size && (res[ptr]=='e' || res[ptr]=='E'))
+	{
+		token_str+=res[ptr++];
+		// "xxxe" is not a correct number
+		if(ptr>=res_size)
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+		if(ptr<res_size && (res[ptr]=='-' || res[ptr]=='+'))
+			token_str+=res[ptr++];
+		if(ptr>=res_size)
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+		if(ptr<res_size && res[ptr]=='0')
+			token_str+=res[ptr++];
+		while(ptr<res_size && IS_DIGIT(res[ptr]))
+			token_str+=res[ptr++];
+		// "xxxe(-|+)" is not a correct number
+		if(token_str.back()=='e' || token_str.back()=='E' || token_str.back()=='-' || token_str.back()=='+')
+		{
+			generate_number_error(line,token_str);
+			return "0";
+		}
+	}
+	return token_str;
+}
+
+std::string nasal_lexer::string_gen(std::vector<char>& res,int& ptr,int& line)
+{
+	int res_size=res.size();
+	std::string token_str="";
+	char str_begin=res[ptr++];
+	if(ptr>=res_size) return token_str;
+	while(ptr<res_size && res[ptr]!=str_begin)
+	{
+		if(res[ptr]=='\n') ++line;
+		if(res[ptr]=='\\' && ptr+1<res.size())
+		{
+			++ptr;
+			switch(res[ptr])
+			{
+				case 'a':token_str.push_back('\a');break;
+				case 'b':token_str.push_back('\b');break;
+				case 'f':token_str.push_back('\f');break;
+				case 'n':token_str.push_back('\n');break;
+				case 'r':token_str.push_back('\r');break;
+				case 't':token_str.push_back('\t');break;
+				case 'v':token_str.push_back('\v');break;
+				case '?':token_str.push_back('\?');break;
+				case '0':token_str.push_back('\0');break;
+				case '\\':token_str.push_back('\\');break;
+				case '\'':token_str.push_back('\'');break;
+				case '\"':token_str.push_back('\"');break;
+				default:  token_str.push_back(res[ptr]);break;
+			}
+		}
+		else
+			token_str+=res[ptr];
+		++ptr;
+	}
+	// check if this string ends with a " or '
+	if(ptr>=res_size)
+	{
+		++error;
+		std::cout<<">> [lexer] line "<<line<<": get EOF when generating string.\n";
+	}
+	++ptr;
+	return token_str;
+}
+
+void nasal_lexer::scanner(std::vector<char>& res)
+{
+    error=0;
+    token_list.clear();
+    int line=1,ptr=0,res_size=res.size();
+	std::string token_str;
+	while(ptr<res_size)
+	{
+		while(ptr<res_size && (res[ptr]==' ' || res[ptr]=='\n' || res[ptr]=='\t' || res[ptr]=='\r' || res[ptr]<0))
+		{
+			// these characters will be ignored, and '\n' will cause ++line
+			if(res[ptr]=='\n') ++line;
+			++ptr;
+		}
+		if(ptr>=res_size) break;
+		if(IS_IDENTIFIER_HEAD(res[ptr]))
+		{
+			token_str=identifier_gen(res,ptr,line);
+			token new_token;
+			new_token.line=line;
+            new_token.str=token_str;
+            new_token.type=0;
+            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
+                if(token_str==tok_tbl[i].str)
+                {
+                    new_token.type=tok_tbl[i].tok_type;
+                    break;
+                }
+            if(!new_token.type)
+                new_token.type=tok_identifier;
+			token_list.push_back(new_token);
+		}
+		else if(IS_DIGIT(res[ptr]))
+		{
+			token_str=number_gen(res,ptr,line);
+			token new_token;
+			new_token.line=line;
+            new_token.str=token_str;
+			new_token.type=tok_number;
+			token_list.push_back(new_token);
+		}
+		else if(IS_STRING_HEAD(res[ptr]))
+		{
+			token_str=string_gen(res,ptr,line);
+			token new_token;
+			new_token.line=line;
+			new_token.type=tok_string;
+			new_token.str=token_str;
+			token_list.push_back(new_token);
+		}
+		else if(IS_SINGLE_OPRATOR(res[ptr]))
+		{
+			token_str="";
+			token_str+=res[ptr];
+			token new_token;
+			new_token.line=line;
+            new_token.str=token_str;
+            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
+                if(token_str==tok_tbl[i].str)
+                {
+                    new_token.type=tok_tbl[i].tok_type;
+                    break;
+                }
+			token_list.push_back(new_token);
+			++ptr;
+		}
+        else if(res[ptr]=='.')
+        {
+            if(ptr+2<res_size && res[ptr+1]=='.' && res[ptr+2]=='.')
+            {
+                token_str="...";
+                ptr+=3;
+            }
+            else
+            {
+                token_str=".";
+                ++ptr;
+            }
+            token new_token;
+            new_token.line=line;
+            new_token.str=token_str;
+            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
+                if(token_str==tok_tbl[i].str)
+                {
+                    new_token.type=tok_tbl[i].tok_type;
+                    break;
+                }
+			token_list.push_back(new_token);
+        }
+		else if(IS_CALC_OPERATOR(res[ptr]))
+		{
+			// get calculation operator
+			token_str="";
+			token_str+=res[ptr];
+			++ptr;
+			if(ptr<res.size() && res[ptr]=='=')
+			{
+				token_str+=res[ptr];
+				++ptr;
+			}
+			token new_token;
+			new_token.line=line;
+			new_token.str=token_str;
+            for(int i=0;i<TOKEN_TABLE_SIZE;++i)
+                if(token_str==tok_tbl[i].str)
+                {
+                    new_token.type=tok_tbl[i].tok_type;
+                    break;
+                }
+			token_list.push_back(new_token);
+		}
+		else if(IS_NOTE_HEAD(res[ptr]))
+		{
+			// avoid note
+			while(ptr<res_size && res[ptr]!='\n') ++ptr;
+			// after this process ptr will point to a '\n'
+			// don't ++ptr then the counter for line can work correctly
+		}
+		else
+		{
+			++error;
+			std::cout<<">> [lexer] line "<<line<<": unknown char "<<(int)res[ptr]<<'.'<<std::endl;
+			++ptr;
+		}
+	}
+	return;
+}
+
+void nasal_lexer::print_token()
+{
+    int size=token_list.size();
+    for(int i=0;i<size;++i)
+        std::cout<<"("<<token_list[i].line<<" | "<<token_list[i].str<<")\n";
+    return;
+}
+
+int nasal_lexer::get_error()
+{
+    return error;
+}
+
+std::vector<token>& nasal_lexer::get_token_list()
+{
+	return token_list;
+}
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_misc.h b/nasal_misc.h
similarity index 95%
rename from version3.0/nasal_misc.h
rename to nasal_misc.h
index 03c2ca8..af8144e 100644
--- a/version3.0/nasal_misc.h
+++ b/nasal_misc.h
@@ -1,258 +1,258 @@
-#ifndef __NASAL_MISC_H__
-#define __NASAL_MISC_H__
-
-/*
-	check_numerable_string:
-	check if a string can be converted to a number
-	
-	strings like these below is correct:
-	'0.00012'
-	'12314.234'
-	'1234'
-	'0xdeadbeef'
-	'0xDEADBEEF'
-	'0o71230'
-	'1e23'
-	'1E-123'
-	'1.34E10'
-*/
-inline bool check_hex_string(std::string str,int len)
-{
-	for(int i=2;i<len;++i)
-		if(!(('0'<=str[i] && str[i]<='9') || ('a'<=str[i] && str[i]<='f') || ('A'<=str[i] && str[i]<='F')))
-			return false;
-	return true;
-}
-inline bool check_oct_string(std::string str,int len)
-{
-	for(int i=2;i<len;++i)
-		if(str[i]<'0' || str[i]>'7')
-			return false;
-	return true;
-}
-inline bool check_dec_string(std::string str,int len)
-{
-	int i=0;
-	// check integer part
-	while('0'<=str[i] && str[i]<='9' && i<len) ++i;
-	if(i==len) return true;
-	if(str[i]!='e' && str[i]!='E' && str[i]!='.') return false;
-	// check decimal part
-	if(str[i]=='.')
-	{
-		++i;
-		if(i==len) return false;
-		while('0'<=str[i] && str[i]<='9' && i<len) ++i;
-	}
-	if(i==len) return true;
-	if(str[i]!='e' && str[i]!='E') return false;
-	// check scientific notation
-	if(str[i]=='e' || str[i]=='E')
-	{
-		++i;
-		if(i==len) return false;
-		if(str[i]=='-' || str[i]=='+')
-		{
-			++i;
-			if(i==len) return false;
-		}
-		for(;i<len;++i)
-			if(str[i]<'0' || str[i]>'9')
-				return false;
-	}
-	return true;
-}
-
-bool check_numerable_string(std::string str)
-{
-	int len=str.length();
-	if(!len) return false;
-	if(str[0]=='-' || str[0]=='+')
-	{
-		if(len==1) return false;
-		std::string tmp="";
-		for(int i=1;i<len;++i)
-			tmp+=str[i];
-		str=tmp;
-		--len;
-	}
-	if(len>2 && str[0]=='0' && str[1]=='x')
-		return check_hex_string(str,len);
-	else if(len>2 && str[0]=='0' && str[1]=='o')
-		return check_oct_string(str,len);
-	else if('0'<=str[0] && str[0]<='9')
-		return check_dec_string(str,len);
-	return false;
-}
-
-/*
-	trans_string_to_number:
-	convert string to number
-*/
-inline double hex_to_double(std::string str,int len)
-{
-	double ret=0,num_pow=1;
-	for(int i=len-1;i>1;--i)
-	{
-		if('0'<=str[i] && str[i]<='9')
-			ret+=num_pow*(str[i]-'0');
-		else if('a'<=str[i] && str[i]<='f')
-			ret+=num_pow*(str[i]-'a'+10);
-		else if('A'<=str[i] && str[i]<='F')
-			ret+=num_pow*(str[i]-'A'+10);
-		num_pow*=16;
-	}
-	return ret;
-}
-inline double oct_to_double(std::string str,int len)
-{
-	double ret=0,num_pow=1;
-	for(int i=len-1;i>1;--i)
-	{
-		ret+=num_pow*(str[i]-'0');
-		num_pow*=8;
-	}
-	return ret;
-}
-inline double dec_to_double(std::string str,int len)
-{
-	double ret=0;
-	int i=0;
-	while('0'<=str[i] && str[i]<='9' && i<len)
-	{
-		ret=ret*10+(str[i]-'0');
-		++i;
-	}
-	if(i==len) return ret;
-	if(str[i]=='.')
-	{
-		++i;
-		double num_pow=0.1;
-		while('0'<=str[i] && str[i]<='9' && i<len)
-		{
-			ret+=num_pow*(str[i]-'0');
-			num_pow*=0.1;
-			++i;
-		}
-	}
-	if(i==len) return ret;
-	if(str[i]=='e' || str[i]=='E')
-	{
-		++i;
-		bool is_negative=(str[i]=='-');
-		if(str[i]=='-' || str[i]=='+') ++i;
-		double num_pow=0;
-		for(;i<len;++i) num_pow=num_pow*10+(str[i]-'0');
-		num_pow=std::pow(10,is_negative?-num_pow:num_pow);
-		ret*=num_pow;
-	}
-	return ret;
-}
-double trans_string_to_number(std::string str)
-{
-	bool is_negative=false;
-	int len=str.length();
-	double ret_num=0;
-	if(!len) return 0;
-	if(str[0]=='-' || str[0]=='+')
-	{
-		is_negative=(str[0]=='-');
-		std::string tmp="";
-		for(int i=1;i<len;++i)
-			tmp.push_back(str[i]);
-		str=tmp;
-		--len;
-	}
-	if(len>2 && str[0]=='0' && str[1]=='x')
-		ret_num=hex_to_double(str,len);
-	else if(len>2 && str[0]=='0' && str[1]=='o')
-		ret_num=oct_to_double(str,len);
-	else if('0'<=str[0] && str[0]<='9')
-		ret_num=dec_to_double(str,len);
-	return is_negative?-ret_num:ret_num;
-}
-
-/*
-	trans_number_to_string:
-	convert number to string
-*/
-std::string trans_number_to_string(double number)
-{
-	std::string trans_num_string="";
-	if(number<0)
-	{
-		trans_num_string+='-';
-		number=-number;
-	}
-	if(number==0)
-		return "0";
-	double integer_bit=1;
-	while(number>=integer_bit)
-		integer_bit*=10;
-	integer_bit/=10;
-	if(integer_bit==0.1)
-		trans_num_string+='0';
-	while(integer_bit!=0.1)
-	{
-		trans_num_string+=(char)('0'+(int(number/integer_bit)));
-		number-=(double)(int(number/integer_bit))*integer_bit;
-		integer_bit/=10;
-	}
-	if(number!=0)
-		trans_num_string+='.';
-	while(number!=0)
-	{
-		trans_num_string+=(char)('0'+int(number*10));
-		number*=10;
-		number-=(double)(int(number));
-	}
-	return trans_num_string;
-}
-
-/*
-	prt_hex:
-	transform int to hex format and print it out (std::cout)
-*/
-void prt_hex(const int ptr)
-{
-	char hex[9];
-	hex[8]=0;
-	int tmp_plc=ptr;
-	if(tmp_plc<0)
-	{
-		tmp_plc=-tmp_plc;
-		std::cout<<"-0x";
-	}
-	else
-		std::cout<<"0x";
-	/*
-		int: 00000000 00000000 00000000 00000000
-		int: 0x00 00 00 00
-		example:
-			a=0x13 57 9b df
-			a=00010011 01010111 10011011 11011111
-			a & 0x00 00 00 0f:
-				00010011 01010111 10011011 11011111
-			and	00000000 00000000 00000000 00001111
-			---------------------------------------
-				00000000 00000000 00000000 00001111
-			a>>=4:
-				00000001 00110101 01111001 10111101
-			a & 0x00 00 00 0f
-				00000001 00110101 01111001 10111101
-			and 00000000 00000000 00000000 00001111
-			---------------------------------------
-				00000000 00000000 00000000 00001101
-			then convert 0~15 to 0~9 a~f
-	*/
-	for(int j=7;j>=0;--j)
-	{
-		int tmp=(tmp_plc & 0x0000000f);
-		hex[j]=tmp<10? (char)('0'+tmp):(char)('a'+tmp-10);
-		tmp_plc>>=4;
-	}
-	std::cout<<hex;
-	return;
-}
-
-#endif
+#ifndef __NASAL_MISC_H__
+#define __NASAL_MISC_H__
+
+/*
+	check_numerable_string:
+	check if a string can be converted to a number
+	
+	strings like these below is correct:
+	'0.00012'
+	'12314.234'
+	'1234'
+	'0xdeadbeef'
+	'0xDEADBEEF'
+	'0o71230'
+	'1e23'
+	'1E-123'
+	'1.34E10'
+*/
+inline bool check_hex_string(std::string str,int len)
+{
+	for(int i=2;i<len;++i)
+		if(!(('0'<=str[i] && str[i]<='9') || ('a'<=str[i] && str[i]<='f') || ('A'<=str[i] && str[i]<='F')))
+			return false;
+	return true;
+}
+inline bool check_oct_string(std::string str,int len)
+{
+	for(int i=2;i<len;++i)
+		if(str[i]<'0' || str[i]>'7')
+			return false;
+	return true;
+}
+inline bool check_dec_string(std::string str,int len)
+{
+	int i=0;
+	// check integer part
+	while('0'<=str[i] && str[i]<='9' && i<len) ++i;
+	if(i==len) return true;
+	if(str[i]!='e' && str[i]!='E' && str[i]!='.') return false;
+	// check decimal part
+	if(str[i]=='.')
+	{
+		++i;
+		if(i==len) return false;
+		while('0'<=str[i] && str[i]<='9' && i<len) ++i;
+	}
+	if(i==len) return true;
+	if(str[i]!='e' && str[i]!='E') return false;
+	// check scientific notation
+	if(str[i]=='e' || str[i]=='E')
+	{
+		++i;
+		if(i==len) return false;
+		if(str[i]=='-' || str[i]=='+')
+		{
+			++i;
+			if(i==len) return false;
+		}
+		for(;i<len;++i)
+			if(str[i]<'0' || str[i]>'9')
+				return false;
+	}
+	return true;
+}
+
+bool check_numerable_string(std::string str)
+{
+	int len=str.length();
+	if(!len) return false;
+	if(str[0]=='-' || str[0]=='+')
+	{
+		if(len==1) return false;
+		std::string tmp="";
+		for(int i=1;i<len;++i)
+			tmp+=str[i];
+		str=tmp;
+		--len;
+	}
+	if(len>2 && str[0]=='0' && str[1]=='x')
+		return check_hex_string(str,len);
+	else if(len>2 && str[0]=='0' && str[1]=='o')
+		return check_oct_string(str,len);
+	else if('0'<=str[0] && str[0]<='9')
+		return check_dec_string(str,len);
+	return false;
+}
+
+/*
+	trans_string_to_number:
+	convert string to number
+*/
+inline double hex_to_double(std::string str,int len)
+{
+	double ret=0,num_pow=1;
+	for(int i=len-1;i>1;--i)
+	{
+		if('0'<=str[i] && str[i]<='9')
+			ret+=num_pow*(str[i]-'0');
+		else if('a'<=str[i] && str[i]<='f')
+			ret+=num_pow*(str[i]-'a'+10);
+		else if('A'<=str[i] && str[i]<='F')
+			ret+=num_pow*(str[i]-'A'+10);
+		num_pow*=16;
+	}
+	return ret;
+}
+inline double oct_to_double(std::string str,int len)
+{
+	double ret=0,num_pow=1;
+	for(int i=len-1;i>1;--i)
+	{
+		ret+=num_pow*(str[i]-'0');
+		num_pow*=8;
+	}
+	return ret;
+}
+inline double dec_to_double(std::string str,int len)
+{
+	double ret=0;
+	int i=0;
+	while('0'<=str[i] && str[i]<='9' && i<len)
+	{
+		ret=ret*10+(str[i]-'0');
+		++i;
+	}
+	if(i==len) return ret;
+	if(str[i]=='.')
+	{
+		++i;
+		double num_pow=0.1;
+		while('0'<=str[i] && str[i]<='9' && i<len)
+		{
+			ret+=num_pow*(str[i]-'0');
+			num_pow*=0.1;
+			++i;
+		}
+	}
+	if(i==len) return ret;
+	if(str[i]=='e' || str[i]=='E')
+	{
+		++i;
+		bool is_negative=(str[i]=='-');
+		if(str[i]=='-' || str[i]=='+') ++i;
+		double num_pow=0;
+		for(;i<len;++i) num_pow=num_pow*10+(str[i]-'0');
+		num_pow=std::pow(10,is_negative?-num_pow:num_pow);
+		ret*=num_pow;
+	}
+	return ret;
+}
+double trans_string_to_number(std::string str)
+{
+	bool is_negative=false;
+	int len=str.length();
+	double ret_num=0;
+	if(!len) return 0;
+	if(str[0]=='-' || str[0]=='+')
+	{
+		is_negative=(str[0]=='-');
+		std::string tmp="";
+		for(int i=1;i<len;++i)
+			tmp.push_back(str[i]);
+		str=tmp;
+		--len;
+	}
+	if(len>2 && str[0]=='0' && str[1]=='x')
+		ret_num=hex_to_double(str,len);
+	else if(len>2 && str[0]=='0' && str[1]=='o')
+		ret_num=oct_to_double(str,len);
+	else if('0'<=str[0] && str[0]<='9')
+		ret_num=dec_to_double(str,len);
+	return is_negative?-ret_num:ret_num;
+}
+
+/*
+	trans_number_to_string:
+	convert number to string
+*/
+std::string trans_number_to_string(double number)
+{
+	std::string trans_num_string="";
+	if(number<0)
+	{
+		trans_num_string+='-';
+		number=-number;
+	}
+	if(number==0)
+		return "0";
+	double integer_bit=1;
+	while(number>=integer_bit)
+		integer_bit*=10;
+	integer_bit/=10;
+	if(integer_bit==0.1)
+		trans_num_string+='0';
+	while(integer_bit!=0.1)
+	{
+		trans_num_string+=(char)('0'+(int(number/integer_bit)));
+		number-=(double)(int(number/integer_bit))*integer_bit;
+		integer_bit/=10;
+	}
+	if(number!=0)
+		trans_num_string+='.';
+	while(number!=0)
+	{
+		trans_num_string+=(char)('0'+int(number*10));
+		number*=10;
+		number-=(double)(int(number));
+	}
+	return trans_num_string;
+}
+
+/*
+	prt_hex:
+	transform int to hex format and print it out (std::cout)
+*/
+void prt_hex(const int ptr)
+{
+	char hex[9];
+	hex[8]=0;
+	int tmp_plc=ptr;
+	if(tmp_plc<0)
+	{
+		tmp_plc=-tmp_plc;
+		std::cout<<"-0x";
+	}
+	else
+		std::cout<<"0x";
+	/*
+		int: 00000000 00000000 00000000 00000000
+		int: 0x00 00 00 00
+		example:
+			a=0x13 57 9b df
+			a=00010011 01010111 10011011 11011111
+			a & 0x00 00 00 0f:
+				00010011 01010111 10011011 11011111
+			and	00000000 00000000 00000000 00001111
+			---------------------------------------
+				00000000 00000000 00000000 00001111
+			a>>=4:
+				00000001 00110101 01111001 10111101
+			a & 0x00 00 00 0f
+				00000001 00110101 01111001 10111101
+			and 00000000 00000000 00000000 00001111
+			---------------------------------------
+				00000000 00000000 00000000 00001101
+			then convert 0~15 to 0~9 a~f
+	*/
+	for(int j=7;j>=0;--j)
+	{
+		int tmp=(tmp_plc & 0x0000000f);
+		hex[j]=tmp<10? (char)('0'+tmp):(char)('a'+tmp-10);
+		tmp_plc>>=4;
+	}
+	std::cout<<hex;
+	return;
+}
+
+#endif
diff --git a/version3.0/nasal_parse.h b/nasal_parse.h
similarity index 96%
rename from version3.0/nasal_parse.h
rename to nasal_parse.h
index ff18813..f6d4e84 100644
--- a/version3.0/nasal_parse.h
+++ b/nasal_parse.h
@@ -1,1511 +1,1511 @@
-#ifndef __NASAL_PARSE_H__
-#define __NAsAL_PARSE_H__
-
-/*
-              _,,,_                                       
-            .'     `'.                                    
-           /     ____ \      Fucking Nasal Parser
-           |  .-'_  _\/    /                              
-           \_/   a  a|    /                               
-           (,`     \ |         .----.                     
-            |     -' |        /|     '--.                 
-             \   '=  /        ||    ]|   `-.              
-             /`-.__.'         ||    ]|    ::|             
-          .-'`-.__ \__        ||    ]|    ::|             
-         /        ``  `.      ||    ]|    ::|             
-       _ |     \     \  \     \|    ]|   .-'              
-      / \|      \    |   \     L.__  .--'(                
-     |   |\      `.  |    \  ,---|_      \---------,      
-     |   | '.      './\    \/ .--._|=-    |_      /|      
-     |   \   '.     `'.'. /`\/ .-'          '.   / |      
-     |   |     `'.     `;-:-;`)|             |-./  |      
-     |   /_       `'--./_  ` )/'-------------')/)  |      
-     \   | `""""----"`\//`""`/,===..'`````````/ (  |      
-      |  |            / `---` `==='          /   ) |      
-      /  \           /                      /   (  |      
-     |    '------.  |'--------------------'|     ) |      
-      \           `-|                      |    /  |      
-       `--...,______|                      |   (   |      
-              | |   |                      |    ) ,|      
-              | |   |                      |   ( /||      
-              | |   |                      |   )/ `"      
-             /   \  |                      |  (/          
-           .' /I\ '.|                      |  /)          
-        .-'_.'/ \'. |                      | /            
-        ```  `"""` `| .-------------------.||             
-                    `"`                   `"`             
-*/
-
-class nasal_parse
-{
-#ifndef error_line
-#define error_line (tok_list[ptr>=tok_list_size? tok_list_size-1:ptr].line)
-#endif
-
-private:
-    int tok_list_size;
-    int ptr;
-    int error;
-    nasal_ast root;
-    std::vector<token> tok_list;
-    void reset();
-    bool check_multi_definition();
-    bool check_multi_scalar();
-    bool check_function_end(nasal_ast&);
-    bool check_special_call();
-    bool need_semi_check(nasal_ast&);
-    nasal_ast null_node_gen();
-    nasal_ast nil_gen();
-    nasal_ast number_gen();
-    nasal_ast string_gen();
-    nasal_ast id_gen();
-    nasal_ast vector_gen();
-    nasal_ast hash_gen();
-    nasal_ast hash_member_gen();
-    nasal_ast func_gen();
-    nasal_ast args_list_gen();
-    nasal_ast expr();
-    nasal_ast exprs_gen();
-    nasal_ast calculation();
-    nasal_ast or_expr();
-    nasal_ast and_expr();
-    nasal_ast cmp_expr();
-    nasal_ast additive_expr();
-    nasal_ast multive_expr();
-    nasal_ast unary();
-    nasal_ast scalar();
-    nasal_ast call_scalar();
-    nasal_ast call_hash();
-    nasal_ast call_vector();
-    nasal_ast call_func();
-    nasal_ast subvec();
-    nasal_ast definition();
-    nasal_ast normal_def();
-    nasal_ast var_incurve_def();
-    nasal_ast var_outcurve_def();
-    nasal_ast multi_id();
-    nasal_ast multi_scalar();
-    nasal_ast multi_assgin();
-    nasal_ast loop();
-    nasal_ast while_loop();
-    nasal_ast for_loop();
-    nasal_ast forei_loop();
-    nasal_ast new_iter_gen();
-    nasal_ast conditional();
-    nasal_ast continue_expr();
-    nasal_ast break_expr();
-    nasal_ast return_expr();
-public:
-    int get_error();
-    void clear();
-    void set_toklist(std::vector<token>&);
-    void main_process();
-    nasal_ast& get_root();
-};
-
-int nasal_parse::get_error()
-{
-    return this->error;
-}
-
-void nasal_parse::clear()
-{
-    this->tok_list_size=0;
-    this->ptr=0;
-    this->error=0;
-    this->tok_list.clear();
-    this->root.clear();
-    return;
-}
-
-void nasal_parse::set_toklist(std::vector<token>& lex_token)
-{
-    this->tok_list=lex_token;
-    this->tok_list_size=this->tok_list.size();
-    return;
-}
-
-void nasal_parse::main_process()
-{
-    this->reset();
-    root.set_line(1);
-    root.set_type(ast_root);
-    while(ptr<tok_list_size)
-    {
-        root.add_child(expr());
-        ++ptr;
-        if(ptr<tok_list_size && tok_list[ptr].type==tok_semi)
-            ++ptr;
-        else if(root.get_children().empty() || need_semi_check(root.get_children().back()))
-        {
-            // the last expression can be recognized without semi
-            if(ptr<tok_list_size)
-            {
-                ++error;
-                error_info(error_line-1,lack_semi);
-            }
-        }
-        if(root.get_children().size())
-        {
-            int type=root.get_children().back().get_type();
-            if(type==ast_continue || type==ast_break || type==ast_return)
-            {
-                ++error;
-                error_info(root.get_children().back().get_line(),error_expr,ast_str(type));
-            }
-        }
-    }
-    return;
-}
-
-nasal_ast& nasal_parse::get_root()
-{
-    return root;
-}
-
-void nasal_parse::reset()
-{
-    this->ptr=0;
-    this->error=0;
-    this->root.clear();
-    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+1,curve_cnt=1,bracket_cnt=0,brace_cnt=0;
-    while(check_ptr<tok_list_size && curve_cnt)
-    {
-        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;
-        }
-        if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_comma)
-        {
-            ret=true;
-            break;
-        }
-        ++check_ptr;
-    }
-    return ret;
-}
-
-bool nasal_parse::check_function_end(nasal_ast& node)
-{
-    int type=node.get_type();
-    if(type==ast_function)
-        return true;
-    else if(type==ast_number || type==ast_identifier || type==ast_string || type==ast_nil || type==ast_vector || type==ast_hash)
-        return false;
-    if(
-        node.get_children().empty() || 
-        (
-            type!=ast_definition &&
-            type!=ast_equal &&
-            type!=ast_add_equal &&
-            type!=ast_sub_equal &&
-            type!=ast_mult_equal &&
-            type!=ast_div_equal &&
-            type!=ast_link_equal
-        )
-    )
-        return false;
-    else
-        return check_function_end(node.get_children().back());
-    return false;
-}
-
-bool nasal_parse::check_special_call()
-{
-    // special call means like this:
-    // function_name(a:1,b:2,c:3);
-    int check_ptr=ptr+1;
-    int curve_cnt=1,bracket_cnt=0,brace_cnt=0,ques_cnt=0;
-    bool ret=false;
-    while(check_ptr<tok_list_size && curve_cnt)
-    {
-        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;
-        }
-        if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_quesmark)
-        {
-            // m?1:0 will be recognized as normal parameter
-            ret=false;
-            break;
-        }
-        if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_colon)
-        {
-            ret=true;
-            break;
-        }
-        ++check_ptr;
-    }
-    return ret;
-}
-
-bool nasal_parse::need_semi_check(nasal_ast& node)
-{
-    int type=node.get_type();
-    if(type==ast_for || type==ast_foreach || type==ast_forindex || type==ast_while || type==ast_conditional)
-        return false;
-    return !check_function_end(node);
-}
-
-nasal_ast nasal_parse::null_node_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_null);
-    return node;
-}
-
-nasal_ast nasal_parse::nil_gen()
-{
-    nasal_ast node;
-    if(ptr>=tok_list_size) return node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_nil);
-    return node;
-}
-
-nasal_ast nasal_parse::number_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_number);
-    node.set_str(tok_list[ptr].str);
-    return node;
-}
-
-nasal_ast nasal_parse::string_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_string);
-    node.set_str(tok_list[ptr].str);
-    return node;
-}
-
-nasal_ast nasal_parse::id_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_identifier);
-    node.set_str(tok_list[ptr].str);
-    return node;
-}
-
-nasal_ast nasal_parse::vector_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_vector);
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_bracket)
-    {
-        node.add_child(calculation());
-        ++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)
-        {
-            error_info(error_line,lack_comma);
-            ++error;
-            break;
-        }
-    }
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
-    {
-        ++error;
-        error_info(error_line,lack_right_bracket);
-    }
-    return node;
-}
-nasal_ast nasal_parse::hash_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_hash);
-    ++ptr;
-    while (ptr<tok_list_size && tok_list[ptr].type!=tok_right_brace)
-    {
-        node.add_child(hash_member_gen());
-        ++ptr;
-        if(ptr>=tok_list_size) break;
-        if(tok_list[ptr].type==tok_comma) ++ptr;
-        else if(tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_brace)
-        {
-            error_info(error_line,lack_comma);
-            ++error;
-            break;
-        }
-    }
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
-    {
-        ++error;
-        error_info(error_line,lack_right_brace);
-    }
-    return node;
-}
-nasal_ast nasal_parse::hash_member_gen()
-{
-    nasal_ast node;
-    if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_identifier && tok_list[ptr].type!=tok_string))
-    {
-        error_info(error_line,lack_identifier);
-        ++error;
-        return node;
-    }
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_hashmember);
-    node.add_child(tok_list[ptr].type==tok_identifier?id_gen():string_gen());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon)
-    {
-        error_info(error_line,lack_colon);
-        ++error;
-        return node;
-    }
-    ++ptr;
-    if(ptr<tok_list_size) node.add_child(calculation());
-    else
-    {
-        error_info(error_line,lack_scalar);
-        ++error;
-    }
-    return node;
-}
-nasal_ast nasal_parse::func_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_function);
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        error_info(error_line,lack_left_curve);
-        ++error;
-        return node;
-    }
-    if(tok_list[ptr].type!=tok_left_curve && tok_list[ptr].type!=tok_left_brace)
-    {
-        ++error;
-        error_info(error_line,lack_func_content);
-        return node;
-    }
-    if(tok_list[ptr].type==tok_left_curve)
-    {
-        node.add_child(args_list_gen());
-        ++ptr;
-    }
-    else
-    {
-        nasal_ast null_argument_list;
-        node.add_child(null_argument_list);
-    }
-    if(ptr>=tok_list_size)
-    {
-        error_info(error_line,lack_left_brace);
-        ++error;
-        return node;
-    }
-    node.add_child(exprs_gen());
-    return node;
-}
-nasal_ast nasal_parse::args_list_gen()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_args);
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_curve)
-    {
-        nasal_ast tmp;
-        if(tok_list[ptr].type!=tok_identifier)
-        {
-            ++error;
-            error_info(error_line,lack_args);
-            return node;
-        }
-        tmp=id_gen();
-        ++ptr;
-        if(ptr<tok_list_size && (tok_list[ptr].type==tok_equal || tok_list[ptr].type==tok_ellipsis))
-        {
-            nasal_ast special_arg;
-            special_arg.set_line(tok_list[ptr].line);
-            if(tok_list[ptr].type==tok_equal)
-            {
-                special_arg.add_child(tmp);
-                ++ptr;
-                special_arg.add_child(scalar());
-                special_arg.set_type(ast_default_arg);
-            }
-            else
-            {
-                special_arg=tmp;
-                special_arg.set_type(ast_dynamic_id);
-            }
-            node.add_child(special_arg);
-        }
-        else
-        {
-            --ptr;
-            node.add_child(tmp);
-        }
-        ++ptr;
-        if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_curve))
-        {
-            ++error;
-            error_info(error_line,lack_comma);
-            return node;
-        }
-        if(tok_list[ptr].type==tok_comma)
-            ++ptr;
-    }
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-    }
-
-    std::string args_format="func(";
-    int node_child_size=node.get_children().size();
-    for(int i=0;i<node_child_size;++i)
-    {
-        switch(node.get_children()[i].get_type())
-        {
-            case ast_identifier:  args_format+="val";break;
-            case ast_default_arg: args_format+="val=scalar";break;
-            case ast_dynamic_id:  args_format+="val...";break;
-        }
-        if(i!=node_child_size-1)
-            args_format+=",";
-    }
-    args_format+=")";
-    bool checked_default_val=false;
-    bool checked_dynamic_ids=false;
-    for(int i=0;i<node_child_size;++i)
-    {
-        if(node.get_children()[i].get_type()==ast_default_arg)
-            checked_default_val=true;
-        else if(node.get_children()[i].get_type()==ast_dynamic_id)
-            checked_dynamic_ids=true;
-        if(checked_default_val && node.get_children()[i].get_type()!=ast_default_arg)
-        {
-            ++error;
-            error_info(node.get_children()[i].get_line(),default_arg_not_end,args_format);
-        }
-        if(checked_dynamic_ids && i!=node_child_size-1)
-        {
-            ++error;
-            error_info(node.get_children()[i].get_line(),dynamic_id_not_end,args_format);
-        }
-    }
-    std::map<std::string,bool> argname_table;
-    for(int i=0;i<node_child_size;++i)
-    {
-        int tmp_type=node.get_children()[i].get_type();
-        std::string new_name;
-        switch(tmp_type)
-        {
-            case ast_dynamic_id:
-            case ast_identifier:new_name=node.get_children()[i].get_str();break;
-            case ast_default_arg:new_name=node.get_children()[i].get_children()[0].get_str();break;
-        }
-        if(argname_table.find(new_name)!=argname_table.end())
-        {
-            error_info(node.get_children()[i].get_line(),name_repetition);
-            ++error;
-        }
-        else
-            argname_table[new_name]=true;
-    }
-    return node;
-}
-nasal_ast nasal_parse::expr()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    switch(tok_list[ptr].type)
-    {   
-        case tok_nil:
-        case tok_number:
-        case tok_string:
-        case tok_identifier:
-        case tok_func:
-        case tok_left_bracket:
-        case tok_left_brace:
-        case tok_sub:
-        case tok_not:      node=calculation();   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_forindex:
-        case tok_foreach:
-        case tok_while:    node=loop();          break;
-        case tok_if:       node=conditional();   break;
-        case tok_continue: node=continue_expr(); break;
-        case tok_break:    node=break_expr();    break;
-        case tok_return:   node=return_expr();   break;
-        case tok_semi:     --ptr;                break;
-        default: error_info(error_line,error_token,tok_list[ptr].str);++error;break;
-    }
-    return node;
-}
-nasal_ast nasal_parse::exprs_gen()
-{
-    nasal_ast node;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_exprs);
-        return node;
-    }
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_block);
-    if(tok_list[ptr].type==tok_left_brace)
-    {
-        int left_brace_line=tok_list[ptr].line;
-        ++ptr;
-        while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_brace)
-        {
-            node.add_child(expr());
-            ++ptr;
-            if(ptr<tok_list_size && tok_list[ptr].type==tok_semi)
-                ++ptr;
-            else if(node.get_children().empty() || need_semi_check(node.get_children().back()))
-            {
-                // the last expression can be recognized without semi
-                if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
-                {
-                    ++error;
-                    error_info(error_line,lack_semi);
-                    break;
-                }
-            }
-        }
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
-        {
-            ++error;
-            error_info(left_brace_line,exprs_lack_rbrace);
-        }
-    }
-    else
-    {
-        node.add_child(expr());
-        ++ptr;
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
-            --ptr;
-    }
-    return node;
-}
-nasal_ast nasal_parse::calculation()
-{
-    nasal_ast node;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_calculation);
-        return node;
-    }
-    node=or_expr();
-    ++ptr;
-    if(ptr<tok_list_size && tok_list[ptr].type==tok_quesmark)
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        tmp.set_type(ast_trinocular);
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(calculation());
-        else
-        {
-            ++error;
-            error_info(error_line,lack_calculation);
-            return node;
-        }
-        ++ptr;
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon)
-        {
-            ++error;
-            error_info(error_line,lack_colon);
-            return node;
-        }
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(calculation());
-        else{ ++error; error_info(error_line,lack_calculation);}
-        node=tmp;
-    }
-    else if(
-        ptr<tok_list_size &&
-        (
-            tok_list[ptr].type==tok_equal      ||
-            tok_list[ptr].type==tok_add_equal  ||
-            tok_list[ptr].type==tok_sub_equal  ||
-            tok_list[ptr].type==tok_mult_equal ||
-            tok_list[ptr].type==tok_div_equal  ||
-            tok_list[ptr].type==tok_link_equal
-        )
-    )
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        switch(tok_list[ptr].type)
-        {
-            case tok_equal:      tmp.set_type(ast_equal);      break;
-            case tok_add_equal:  tmp.set_type(ast_add_equal);  break;
-            case tok_sub_equal:  tmp.set_type(ast_sub_equal);  break;
-            case tok_mult_equal: tmp.set_type(ast_mult_equal); break;
-            case tok_div_equal:  tmp.set_type(ast_div_equal);  break;
-            case tok_link_equal: tmp.set_type(ast_link_equal); break;
-        }
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(calculation());
-        else{ ++error; error_info(error_line,lack_calculation);}
-        node=tmp;
-    }
-    else --ptr;
-    return node;
-}
-nasal_ast nasal_parse::or_expr()
-{
-    nasal_ast node;
-    node=and_expr();
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type==tok_or)
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        tmp.set_type(ast_or);
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(and_expr());
-        else{ ++error; error_info(error_line,lack_calculation);}
-        node=tmp;
-        ++ptr;
-    }
-    --ptr;
-    return node;
-}
-nasal_ast nasal_parse::and_expr()
-{
-    nasal_ast node;
-    node=cmp_expr();
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type==tok_and)
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        tmp.set_type(ast_and);
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(cmp_expr());
-        else{ ++error; error_info(error_line,lack_calculation);}
-        node=tmp;
-        ++ptr;
-    }
-    --ptr;
-    return node;
-}
-nasal_ast nasal_parse::cmp_expr()
-{
-    nasal_ast node;
-    node=additive_expr();
-    ++ptr;
-    while(
-        ptr<tok_list_size &&
-        (
-            tok_list[ptr].type==tok_cmp_equal     ||
-            tok_list[ptr].type==tok_cmp_not_equal ||
-            tok_list[ptr].type==tok_less_than     ||
-            tok_list[ptr].type==tok_less_equal    ||
-            tok_list[ptr].type==tok_greater_than  ||
-            tok_list[ptr].type==tok_greater_equal
-        )
-    )
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        switch(tok_list[ptr].type)
-        {
-            case tok_cmp_equal:     tmp.set_type(ast_cmp_equal);     break;
-            case tok_cmp_not_equal: tmp.set_type(ast_cmp_not_equal); break;
-            case tok_less_than:     tmp.set_type(ast_less_than);     break;
-            case tok_less_equal:    tmp.set_type(ast_less_equal);    break;
-            case tok_greater_than:  tmp.set_type(ast_greater_than);  break;
-            case tok_greater_equal: tmp.set_type(ast_greater_equal); break;
-        }
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(additive_expr());
-        else{ ++error; error_info(error_line,lack_calculation);}
-        node=tmp;
-        ++ptr;
-    }
-    --ptr;
-    return node;
-}
-nasal_ast nasal_parse::additive_expr()
-{
-    nasal_ast node;
-    node=multive_expr();
-    ++ptr;
-    while(ptr<tok_list_size && (tok_list[ptr].type==tok_add || tok_list[ptr].type==tok_sub || tok_list[ptr].type==tok_link))
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        switch(tok_list[ptr].type)
-        {
-            case tok_add:  tmp.set_type(ast_add);  break;
-            case tok_sub:  tmp.set_type(ast_sub);  break;
-            case tok_link: tmp.set_type(ast_link); break;
-        }
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size) tmp.add_child(multive_expr());
-        else{ ++error; error_info(error_line,lack_calculation);}
-        node=tmp;
-        ++ptr;
-    }
-    --ptr;
-    return node;
-}
-nasal_ast nasal_parse::multive_expr()
-{
-    nasal_ast node;
-    node=(tok_list[ptr].type==tok_sub || tok_list[ptr].type==tok_not)?unary():scalar();
-    ++ptr;
-    while(ptr<tok_list_size && (tok_list[ptr].type==tok_mult || tok_list[ptr].type==tok_div))
-    {
-        nasal_ast tmp;
-        tmp.set_line(tok_list[ptr].line);
-        switch(tok_list[ptr].type)
-        {
-            case tok_mult:tmp.set_type(ast_mult);break;
-            case tok_div: tmp.set_type(ast_div); break;
-        }
-        tmp.add_child(node);
-        ++ptr;
-        if(ptr<tok_list_size)
-            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;
-        ++ptr;
-    }
-    --ptr;
-    return node;
-}
-nasal_ast nasal_parse::unary()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    switch(tok_list[ptr].type)
-    {
-        case tok_sub:node.set_type(ast_unary_sub);break;
-        case tok_not:node.set_type(ast_unary_not);break;
-    }
-    ++ptr;
-    if(ptr<tok_list_size) node.add_child(scalar());
-    else{ ++error; error_info(error_line,lack_calculation);}
-    return node;
-}
-nasal_ast nasal_parse::scalar()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    if(tok_list[ptr].type==tok_nil)
-        node=nil_gen();
-    else if(tok_list[ptr].type==tok_number)
-        node=number_gen();
-    else if(tok_list[ptr].type==tok_string)
-        node=string_gen();
-    else if(tok_list[ptr].type==tok_identifier)
-        node=id_gen();
-    else if(tok_list[ptr].type==tok_func)
-    {
-        if(ptr+1<tok_list_size && tok_list[ptr+1].type==tok_identifier)
-        {
-            ++ptr;
-            node=id_gen();
-        }
-        else
-            node=func_gen();
-    }
-    else if(tok_list[ptr].type==tok_left_bracket)
-        node=vector_gen();
-    else if(tok_list[ptr].type==tok_left_brace)
-        node=hash_gen();
-    else if(tok_list[ptr].type==tok_left_curve)
-    {
-        ++ptr;
-        if(ptr<tok_list_size) node=calculation();
-        else{ ++error; error_info(node.get_line(),lack_calculation);}
-        ++ptr;
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-        {
-            ++error;
-            error_info(error_line,lack_right_curve);
-        }
-    }
-    else
-    {
-        ++error;
-        error_info(error_line,lack_scalar);
-        return node;
-    }
-    ++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))
-    {
-        nasal_ast tmp=node;
-        node.clear();
-        node.set_line(tok_list[ptr].line);
-        node.set_type(ast_call);
-        node.add_child(tmp);
-    }
-    while(ptr<tok_list_size && (tok_list[ptr].type==tok_left_curve || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_dot))
-    {
-        node.add_child(call_scalar());
-        ++ptr;
-    }
-    --ptr;
-    return node;
-}
-nasal_ast nasal_parse::call_scalar()
-{
-    nasal_ast node;
-    switch(tok_list[ptr].type)
-    {
-        case tok_left_curve:   node=call_func();   break;
-        case tok_left_bracket: node=call_vector(); break;
-        case tok_dot:          node=call_hash();   break;
-    }
-    return node;
-}
-nasal_ast nasal_parse::call_hash()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_call_hash);
-    ++ptr;
-    if(ptr<tok_list_size && tok_list[ptr].type==tok_identifier)
-        node.set_str(tok_list[ptr].str);
-    else
-    {
-        ++error;
-        error_info(error_line,lack_identifier);
-    }
-    return node;
-}
-nasal_ast nasal_parse::call_vector()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_call_vec);
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_bracket)
-    {
-        node.add_child(subvec());
-        ++ptr;
-        if(ptr<tok_list_size && tok_list[ptr].type==tok_comma) ++ptr;
-        else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
-        {
-            ++error;
-            error_info(error_line,lack_comma);
-            break;
-        }
-    }
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
-    {
-        ++error;
-        error_info(error_line,lack_right_bracket);
-    }
-    return node;
-}
-nasal_ast nasal_parse::call_func()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_call_func);
-    bool special_call=check_special_call();
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_curve)
-    {
-        node.add_child(special_call?hash_member_gen():calculation());
-        ++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_curve))
-        {
-            ++error;
-            error_info(error_line,lack_comma);
-            break;
-        }
-    }
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-    }
-    return node;
-}
-nasal_ast nasal_parse::subvec()
-{
-    nasal_ast node;
-    if(tok_list[ptr].type==tok_colon)
-    {
-        --ptr;
-        node=nil_gen();
-    }
-    else node=calculation();
-    ++ptr;
-    if(ptr<tok_list_size && tok_list[ptr].type==tok_colon)
-    {
-        nasal_ast tmp;
-        ++ptr;
-        if(ptr<tok_list_size)
-        {
-            tmp.set_line(node.get_line());
-            tmp.set_type(ast_subvec);
-            tmp.add_child(node);
-            if(tok_list[ptr].type==tok_comma || tok_list[ptr].type==tok_right_bracket)
-            {
-                --ptr;
-                tmp.add_child(nil_gen());
-            }
-            else tmp.add_child(calculation());
-            node=tmp;
-        }
-    }
-    else --ptr;
-    return node;
-}
-nasal_ast nasal_parse::definition()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_definition);
-    if(tok_list[ptr].type==tok_var)
-    {
-        ++ptr;
-        switch(tok_list[ptr].type)
-        {
-            case tok_identifier:node.add_child(normal_def());       break;
-            case tok_left_curve:node.add_child(var_outcurve_def()); break;
-            default:
-                ++error;
-                error_info(error_line,lack_identifier);
-                return node;
-        }
-    }
-    else if(tok_list[ptr].type==tok_left_curve)
-        node.add_child(var_incurve_def());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_equal)
-    {
-        ++error;
-        if(ptr<tok_list_size && (tok_list[ptr].type==tok_dot || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_left_curve) && !node.get_children().back().get_children().size())
-            error_info(error_line,definition_use_call);
-        else
-            error_info(error_line,lack_equal);
-        return node;
-    }
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_scalar);
-        return node;
-    }
-    if(tok_list[ptr].type==tok_left_curve)
-        node.add_child(check_multi_scalar()?multi_scalar():calculation());
-    else
-        node.add_child(calculation());
-    return node;
-}
-nasal_ast nasal_parse::normal_def()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_str(tok_list[ptr].str);
-    node.set_type(ast_identifier);
-    return node;
-}
-nasal_ast nasal_parse::var_incurve_def()
-{
-    nasal_ast node;
-    ++ptr;// check_multi_definition will check the 'var'
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
-    {
-        ++error;
-        error_info(error_line,lack_identifier);
-        return node;
-    }
-    node=multi_id();
-    ++ptr;
-    if(ptr<tok_list_size && (tok_list[ptr].type==tok_dot || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_left_curve))
-    {
-        ++error;
-        error_info(error_line,multi_id_use_call);
-    }
-    else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-    }
-    return node;
-}
-nasal_ast nasal_parse::var_outcurve_def()
-{
-    nasal_ast node;
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
-    {
-        ++error;
-        error_info(error_line,lack_identifier);
-        return node;
-    }
-    node=multi_id();
-    ++ptr;
-    if(ptr<tok_list_size && (tok_list[ptr].type==tok_dot || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_left_curve))
-    {
-        ++error;
-        error_info(error_line,multi_id_use_call);
-    }
-    else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-    }
-    return node;
-}
-nasal_ast nasal_parse::multi_id()
-{
-    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;
-}
-nasal_ast nasal_parse::multi_scalar()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_multi_scalar);
-    ++ptr;
-    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_curve)
-    {
-        node.add_child(calculation());
-        ++ptr;
-        if(ptr>=tok_list_size) break;
-        if(tok_list[ptr].type==tok_comma) ++ptr;
-        else if(tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_curve)
-        {
-            ++error;
-            error_info(error_line,lack_comma);
-            break;
-        }
-    }
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-    }
-    return node;
-}
-nasal_ast nasal_parse::multi_assgin()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_multi_assign);
-    node.add_child(multi_scalar());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_equal)
-    {
-        ++error;
-        error_info(error_line,lack_equal);
-        return node;
-    }
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,multi_assign_lack_val);
-        return node;
-    }
-    if(tok_list[ptr].type==tok_left_curve)
-        node.add_child(check_multi_scalar()?multi_scalar():calculation());
-    else
-        node.add_child(calculation());
-    return node;
-}
-nasal_ast nasal_parse::loop()
-{
-    nasal_ast node;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_token,"loop");
-        return node;
-    }
-    switch(tok_list[ptr].type)
-    {
-        case tok_while:   node=while_loop(); break;
-        case tok_for:     node=for_loop();   break;
-        case tok_forindex:
-        case tok_foreach: node=forei_loop(); break;
-    }
-    return node;
-}
-nasal_ast nasal_parse::while_loop()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_while);
-    ++ptr;
-    if(ptr<tok_list_size && tok_list[ptr].type==tok_left_curve)
-    {
-        ++ptr;
-        node.add_child(calculation());
-    }
-    else
-    {
-        ++error;
-        error_info(error_line,lack_left_curve);
-        return node;
-    }
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-        return node;
-    }
-    ++ptr;
-    node.add_child(exprs_gen());
-    return node;
-}
-nasal_ast nasal_parse::for_loop()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_for);
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
-    {
-        ++error;
-        error_info(error_line,lack_left_curve);
-        return node;
-    }
-    // first expression
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_definition);
-        return node;
-    }
-    if(tok_list[ptr].type==tok_semi)
-    {
-        node.add_child(null_node_gen());
-        --ptr;
-    }
-    else if(tok_list[ptr].type==tok_var)
-        node.add_child(definition());
-    else
-        node.add_child(calculation());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
-    {
-        ++error;
-        error_info(error_line,lack_semi);
-        return node;
-    }
-    // conditional expression
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_calculation);
-        return node;
-    }
-    if(tok_list[ptr].type==tok_semi)
-    {
-        node.add_child(null_node_gen());
-        --ptr;
-    }
-    else
-        node.add_child(calculation());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
-    {
-        ++error;
-        error_info(error_line,lack_semi);
-        return node;
-    }
-    //after loop expression
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_calculation);
-        return node;
-    }
-    if(tok_list[ptr].type==tok_right_curve)
-    {
-        node.add_child(null_node_gen());
-        --ptr;
-    }
-    else
-        node.add_child(calculation());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-        return node;
-    }
-    ++ptr;
-    node.add_child(exprs_gen());
-    return node;
-}
-nasal_ast nasal_parse::forei_loop()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    switch(tok_list[ptr].type)
-    {
-        case tok_forindex: node.set_type(ast_forindex);break;
-        case tok_foreach:  node.set_type(ast_foreach); break;
-    }
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
-    {
-        ++error;
-        error_info(error_line,lack_left_curve);
-        return node;
-    }
-    // first expression
-    // foreach/forindex must have an iterator to loop through
-    ++ptr;
-    if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_var && tok_list[ptr].type!=tok_identifier))
-    {
-        ++error;
-        error_info(error_line,lack_loop_iter);
-        return node;
-    }
-    node.add_child(new_iter_gen());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
-    {
-        ++error;
-        error_info(error_line,lack_semi);
-        return node;
-    }
-    ++ptr;
-    if(ptr>=tok_list_size)
-    {
-        ++error;
-        error_info(error_line,lack_calculation);
-        return node;
-    }
-    node.add_child(calculation());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-        return node;
-    }
-    ++ptr;
-    node.add_child(exprs_gen());
-    return node;
-}
-
-nasal_ast nasal_parse::new_iter_gen()
-{
-    nasal_ast node;
-    if(tok_list[ptr].type==tok_var)
-    {
-        node.set_line(tok_list[ptr].line);
-        node.set_type(ast_new_iter);
-        ++ptr;
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
-        {
-            ++error;
-            error_info(error_line,lack_identifier);
-            return node;
-        }
-        node.add_child(id_gen());
-    }
-    else
-    {
-        node.set_line(tok_list[ptr].line);
-        node.set_type(ast_call);
-        node.add_child(id_gen());
-        ++ptr;
-        while(ptr<tok_list_size && (tok_list[ptr].type==tok_left_curve || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_dot))
-        {
-            node.add_child(call_scalar());
-            ++ptr;
-        }
-        --ptr;
-    }
-    return node;
-}
-
-nasal_ast nasal_parse::conditional()
-{
-    nasal_ast node;
-    nasal_ast tmp;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_conditional);
-    tmp.set_line(tok_list[ptr].line);
-    tmp.set_type(ast_if);
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
-    {
-        ++error;
-        error_info(error_line,lack_left_curve);
-        return node;
-    }
-    ++ptr;
-    tmp.add_child(calculation());
-    ++ptr;
-    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-    {
-        ++error;
-        error_info(error_line,lack_right_curve);
-        return node;
-    }
-    ++ptr;
-    tmp.add_child(exprs_gen());
-    node.add_child(tmp);
-    // end of if-expression
-    ++ptr;
-    while(ptr<tok_list_size && (tok_list[ptr].type==tok_elsif || (tok_list[ptr].type==tok_else && ptr+1<tok_list_size && tok_list[ptr+1].type==tok_if)))
-    {
-        if(tok_list[ptr].type==tok_else) ++ptr;
-        ++ptr;
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
-        {
-            ++error;
-            error_info(error_line,lack_left_curve);
-            return node;
-        }
-        tmp.set_line(tok_list[ptr].line);
-        tmp.set_type(ast_elsif);
-        tmp.get_children().clear();
-        ++ptr;
-        tmp.add_child(calculation());
-        ++ptr;
-        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
-        {
-            ++error;
-            error_info(error_line,lack_right_curve);
-            return node;
-        }
-        ++ptr;
-        tmp.add_child(exprs_gen());
-        node.add_child(tmp);
-        ++ptr;
-    }
-    // end of elsif-expression
-    // after this process,ptr will point to the next token of exprs_gen()'s last token
-    // for example
-    // else if(scalar){} else {}
-    //                  ptr^
-    if(ptr<tok_list_size && tok_list[ptr].type==tok_else)
-    {
-        tmp.set_line(tok_list[ptr].line);
-        tmp.set_type(ast_else);
-        tmp.get_children().clear();
-        ++ptr;
-        tmp.add_child(exprs_gen());
-        node.add_child(tmp);
-    }
-    else
-        --ptr;
-    return node;
-}
-nasal_ast nasal_parse::continue_expr()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_continue);
-    return node;
-}
-nasal_ast nasal_parse::break_expr()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_break);
-    return node;
-}
-nasal_ast nasal_parse::return_expr()
-{
-    nasal_ast node;
-    node.set_line(tok_list[ptr].line);
-    node.set_type(ast_return);
-    ++ptr;
-    if(ptr<tok_list_size)
-    {
-        int type=tok_list[ptr].type;
-        if(type==tok_nil || type==tok_number || type==tok_string || type==tok_identifier || type==tok_func ||
-        type==tok_sub || type==tok_not || type==tok_left_curve || type==tok_left_bracket || type==tok_left_brace)
-            node.add_child(calculation());
-        else
-            --ptr;
-    }
-    return node;
-}
-#endif
+#ifndef __NASAL_PARSE_H__
+#define __NAsAL_PARSE_H__
+
+/*
+              _,,,_                                       
+            .'     `'.                                    
+           /     ____ \      Fucking Nasal Parser
+           |  .-'_  _\/    /                              
+           \_/   a  a|    /                               
+           (,`     \ |         .----.                     
+            |     -' |        /|     '--.                 
+             \   '=  /        ||    ]|   `-.              
+             /`-.__.'         ||    ]|    ::|             
+          .-'`-.__ \__        ||    ]|    ::|             
+         /        ``  `.      ||    ]|    ::|             
+       _ |     \     \  \     \|    ]|   .-'              
+      / \|      \    |   \     L.__  .--'(                
+     |   |\      `.  |    \  ,---|_      \---------,      
+     |   | '.      './\    \/ .--._|=-    |_      /|      
+     |   \   '.     `'.'. /`\/ .-'          '.   / |      
+     |   |     `'.     `;-:-;`)|             |-./  |      
+     |   /_       `'--./_  ` )/'-------------')/)  |      
+     \   | `""""----"`\//`""`/,===..'`````````/ (  |      
+      |  |            / `---` `==='          /   ) |      
+      /  \           /                      /   (  |      
+     |    '------.  |'--------------------'|     ) |      
+      \           `-|                      |    /  |      
+       `--...,______|                      |   (   |      
+              | |   |                      |    ) ,|      
+              | |   |                      |   ( /||      
+              | |   |                      |   )/ `"      
+             /   \  |                      |  (/          
+           .' /I\ '.|                      |  /)          
+        .-'_.'/ \'. |                      | /            
+        ```  `"""` `| .-------------------.||             
+                    `"`                   `"`             
+*/
+
+class nasal_parse
+{
+#ifndef error_line
+#define error_line (tok_list[ptr>=tok_list_size? tok_list_size-1:ptr].line)
+#endif
+
+private:
+    int tok_list_size;
+    int ptr;
+    int error;
+    nasal_ast root;
+    std::vector<token> tok_list;
+    void reset();
+    bool check_multi_definition();
+    bool check_multi_scalar();
+    bool check_function_end(nasal_ast&);
+    bool check_special_call();
+    bool need_semi_check(nasal_ast&);
+    nasal_ast null_node_gen();
+    nasal_ast nil_gen();
+    nasal_ast number_gen();
+    nasal_ast string_gen();
+    nasal_ast id_gen();
+    nasal_ast vector_gen();
+    nasal_ast hash_gen();
+    nasal_ast hash_member_gen();
+    nasal_ast func_gen();
+    nasal_ast args_list_gen();
+    nasal_ast expr();
+    nasal_ast exprs_gen();
+    nasal_ast calculation();
+    nasal_ast or_expr();
+    nasal_ast and_expr();
+    nasal_ast cmp_expr();
+    nasal_ast additive_expr();
+    nasal_ast multive_expr();
+    nasal_ast unary();
+    nasal_ast scalar();
+    nasal_ast call_scalar();
+    nasal_ast call_hash();
+    nasal_ast call_vector();
+    nasal_ast call_func();
+    nasal_ast subvec();
+    nasal_ast definition();
+    nasal_ast normal_def();
+    nasal_ast var_incurve_def();
+    nasal_ast var_outcurve_def();
+    nasal_ast multi_id();
+    nasal_ast multi_scalar();
+    nasal_ast multi_assgin();
+    nasal_ast loop();
+    nasal_ast while_loop();
+    nasal_ast for_loop();
+    nasal_ast forei_loop();
+    nasal_ast new_iter_gen();
+    nasal_ast conditional();
+    nasal_ast continue_expr();
+    nasal_ast break_expr();
+    nasal_ast return_expr();
+public:
+    int get_error();
+    void clear();
+    void set_toklist(std::vector<token>&);
+    void main_process();
+    nasal_ast& get_root();
+};
+
+int nasal_parse::get_error()
+{
+    return this->error;
+}
+
+void nasal_parse::clear()
+{
+    this->tok_list_size=0;
+    this->ptr=0;
+    this->error=0;
+    this->tok_list.clear();
+    this->root.clear();
+    return;
+}
+
+void nasal_parse::set_toklist(std::vector<token>& lex_token)
+{
+    this->tok_list=lex_token;
+    this->tok_list_size=this->tok_list.size();
+    return;
+}
+
+void nasal_parse::main_process()
+{
+    this->reset();
+    root.set_line(1);
+    root.set_type(ast_root);
+    while(ptr<tok_list_size)
+    {
+        root.add_child(expr());
+        ++ptr;
+        if(ptr<tok_list_size && tok_list[ptr].type==tok_semi)
+            ++ptr;
+        else if(root.get_children().empty() || need_semi_check(root.get_children().back()))
+        {
+            // the last expression can be recognized without semi
+            if(ptr<tok_list_size)
+            {
+                ++error;
+                error_info(error_line-1,lack_semi);
+            }
+        }
+        if(root.get_children().size())
+        {
+            int type=root.get_children().back().get_type();
+            if(type==ast_continue || type==ast_break || type==ast_return)
+            {
+                ++error;
+                error_info(root.get_children().back().get_line(),error_expr,ast_str(type));
+            }
+        }
+    }
+    return;
+}
+
+nasal_ast& nasal_parse::get_root()
+{
+    return root;
+}
+
+void nasal_parse::reset()
+{
+    this->ptr=0;
+    this->error=0;
+    this->root.clear();
+    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+1,curve_cnt=1,bracket_cnt=0,brace_cnt=0;
+    while(check_ptr<tok_list_size && curve_cnt)
+    {
+        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;
+        }
+        if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_comma)
+        {
+            ret=true;
+            break;
+        }
+        ++check_ptr;
+    }
+    return ret;
+}
+
+bool nasal_parse::check_function_end(nasal_ast& node)
+{
+    int type=node.get_type();
+    if(type==ast_function)
+        return true;
+    else if(type==ast_number || type==ast_identifier || type==ast_string || type==ast_nil || type==ast_vector || type==ast_hash)
+        return false;
+    if(
+        node.get_children().empty() || 
+        (
+            type!=ast_definition &&
+            type!=ast_equal &&
+            type!=ast_add_equal &&
+            type!=ast_sub_equal &&
+            type!=ast_mult_equal &&
+            type!=ast_div_equal &&
+            type!=ast_link_equal
+        )
+    )
+        return false;
+    else
+        return check_function_end(node.get_children().back());
+    return false;
+}
+
+bool nasal_parse::check_special_call()
+{
+    // special call means like this:
+    // function_name(a:1,b:2,c:3);
+    int check_ptr=ptr+1;
+    int curve_cnt=1,bracket_cnt=0,brace_cnt=0,ques_cnt=0;
+    bool ret=false;
+    while(check_ptr<tok_list_size && curve_cnt)
+    {
+        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;
+        }
+        if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_quesmark)
+        {
+            // m?1:0 will be recognized as normal parameter
+            ret=false;
+            break;
+        }
+        if(curve_cnt==1 && !bracket_cnt && !brace_cnt && tok_list[check_ptr].type==tok_colon)
+        {
+            ret=true;
+            break;
+        }
+        ++check_ptr;
+    }
+    return ret;
+}
+
+bool nasal_parse::need_semi_check(nasal_ast& node)
+{
+    int type=node.get_type();
+    if(type==ast_for || type==ast_foreach || type==ast_forindex || type==ast_while || type==ast_conditional)
+        return false;
+    return !check_function_end(node);
+}
+
+nasal_ast nasal_parse::null_node_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_null);
+    return node;
+}
+
+nasal_ast nasal_parse::nil_gen()
+{
+    nasal_ast node;
+    if(ptr>=tok_list_size) return node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_nil);
+    return node;
+}
+
+nasal_ast nasal_parse::number_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_number);
+    node.set_str(tok_list[ptr].str);
+    return node;
+}
+
+nasal_ast nasal_parse::string_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_string);
+    node.set_str(tok_list[ptr].str);
+    return node;
+}
+
+nasal_ast nasal_parse::id_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_identifier);
+    node.set_str(tok_list[ptr].str);
+    return node;
+}
+
+nasal_ast nasal_parse::vector_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_vector);
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_bracket)
+    {
+        node.add_child(calculation());
+        ++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)
+        {
+            error_info(error_line,lack_comma);
+            ++error;
+            break;
+        }
+    }
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
+    {
+        ++error;
+        error_info(error_line,lack_right_bracket);
+    }
+    return node;
+}
+nasal_ast nasal_parse::hash_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_hash);
+    ++ptr;
+    while (ptr<tok_list_size && tok_list[ptr].type!=tok_right_brace)
+    {
+        node.add_child(hash_member_gen());
+        ++ptr;
+        if(ptr>=tok_list_size) break;
+        if(tok_list[ptr].type==tok_comma) ++ptr;
+        else if(tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_brace)
+        {
+            error_info(error_line,lack_comma);
+            ++error;
+            break;
+        }
+    }
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
+    {
+        ++error;
+        error_info(error_line,lack_right_brace);
+    }
+    return node;
+}
+nasal_ast nasal_parse::hash_member_gen()
+{
+    nasal_ast node;
+    if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_identifier && tok_list[ptr].type!=tok_string))
+    {
+        error_info(error_line,lack_identifier);
+        ++error;
+        return node;
+    }
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_hashmember);
+    node.add_child(tok_list[ptr].type==tok_identifier?id_gen():string_gen());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon)
+    {
+        error_info(error_line,lack_colon);
+        ++error;
+        return node;
+    }
+    ++ptr;
+    if(ptr<tok_list_size) node.add_child(calculation());
+    else
+    {
+        error_info(error_line,lack_scalar);
+        ++error;
+    }
+    return node;
+}
+nasal_ast nasal_parse::func_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_function);
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        error_info(error_line,lack_left_curve);
+        ++error;
+        return node;
+    }
+    if(tok_list[ptr].type!=tok_left_curve && tok_list[ptr].type!=tok_left_brace)
+    {
+        ++error;
+        error_info(error_line,lack_func_content);
+        return node;
+    }
+    if(tok_list[ptr].type==tok_left_curve)
+    {
+        node.add_child(args_list_gen());
+        ++ptr;
+    }
+    else
+    {
+        nasal_ast null_argument_list;
+        node.add_child(null_argument_list);
+    }
+    if(ptr>=tok_list_size)
+    {
+        error_info(error_line,lack_left_brace);
+        ++error;
+        return node;
+    }
+    node.add_child(exprs_gen());
+    return node;
+}
+nasal_ast nasal_parse::args_list_gen()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_args);
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_curve)
+    {
+        nasal_ast tmp;
+        if(tok_list[ptr].type!=tok_identifier)
+        {
+            ++error;
+            error_info(error_line,lack_args);
+            return node;
+        }
+        tmp=id_gen();
+        ++ptr;
+        if(ptr<tok_list_size && (tok_list[ptr].type==tok_equal || tok_list[ptr].type==tok_ellipsis))
+        {
+            nasal_ast special_arg;
+            special_arg.set_line(tok_list[ptr].line);
+            if(tok_list[ptr].type==tok_equal)
+            {
+                special_arg.add_child(tmp);
+                ++ptr;
+                special_arg.add_child(scalar());
+                special_arg.set_type(ast_default_arg);
+            }
+            else
+            {
+                special_arg=tmp;
+                special_arg.set_type(ast_dynamic_id);
+            }
+            node.add_child(special_arg);
+        }
+        else
+        {
+            --ptr;
+            node.add_child(tmp);
+        }
+        ++ptr;
+        if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_curve))
+        {
+            ++error;
+            error_info(error_line,lack_comma);
+            return node;
+        }
+        if(tok_list[ptr].type==tok_comma)
+            ++ptr;
+    }
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+    }
+
+    std::string args_format="func(";
+    int node_child_size=node.get_children().size();
+    for(int i=0;i<node_child_size;++i)
+    {
+        switch(node.get_children()[i].get_type())
+        {
+            case ast_identifier:  args_format+="val";break;
+            case ast_default_arg: args_format+="val=scalar";break;
+            case ast_dynamic_id:  args_format+="val...";break;
+        }
+        if(i!=node_child_size-1)
+            args_format+=",";
+    }
+    args_format+=")";
+    bool checked_default_val=false;
+    bool checked_dynamic_ids=false;
+    for(int i=0;i<node_child_size;++i)
+    {
+        if(node.get_children()[i].get_type()==ast_default_arg)
+            checked_default_val=true;
+        else if(node.get_children()[i].get_type()==ast_dynamic_id)
+            checked_dynamic_ids=true;
+        if(checked_default_val && node.get_children()[i].get_type()!=ast_default_arg)
+        {
+            ++error;
+            error_info(node.get_children()[i].get_line(),default_arg_not_end,args_format);
+        }
+        if(checked_dynamic_ids && i!=node_child_size-1)
+        {
+            ++error;
+            error_info(node.get_children()[i].get_line(),dynamic_id_not_end,args_format);
+        }
+    }
+    std::map<std::string,bool> argname_table;
+    for(int i=0;i<node_child_size;++i)
+    {
+        int tmp_type=node.get_children()[i].get_type();
+        std::string new_name;
+        switch(tmp_type)
+        {
+            case ast_dynamic_id:
+            case ast_identifier:new_name=node.get_children()[i].get_str();break;
+            case ast_default_arg:new_name=node.get_children()[i].get_children()[0].get_str();break;
+        }
+        if(argname_table.find(new_name)!=argname_table.end())
+        {
+            error_info(node.get_children()[i].get_line(),name_repetition);
+            ++error;
+        }
+        else
+            argname_table[new_name]=true;
+    }
+    return node;
+}
+nasal_ast nasal_parse::expr()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    switch(tok_list[ptr].type)
+    {   
+        case tok_nil:
+        case tok_number:
+        case tok_string:
+        case tok_identifier:
+        case tok_func:
+        case tok_left_bracket:
+        case tok_left_brace:
+        case tok_sub:
+        case tok_not:      node=calculation();   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_forindex:
+        case tok_foreach:
+        case tok_while:    node=loop();          break;
+        case tok_if:       node=conditional();   break;
+        case tok_continue: node=continue_expr(); break;
+        case tok_break:    node=break_expr();    break;
+        case tok_return:   node=return_expr();   break;
+        case tok_semi:     --ptr;                break;
+        default: error_info(error_line,error_token,tok_list[ptr].str);++error;break;
+    }
+    return node;
+}
+nasal_ast nasal_parse::exprs_gen()
+{
+    nasal_ast node;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_exprs);
+        return node;
+    }
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_block);
+    if(tok_list[ptr].type==tok_left_brace)
+    {
+        int left_brace_line=tok_list[ptr].line;
+        ++ptr;
+        while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_brace)
+        {
+            node.add_child(expr());
+            ++ptr;
+            if(ptr<tok_list_size && tok_list[ptr].type==tok_semi)
+                ++ptr;
+            else if(node.get_children().empty() || need_semi_check(node.get_children().back()))
+            {
+                // the last expression can be recognized without semi
+                if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
+                {
+                    ++error;
+                    error_info(error_line,lack_semi);
+                    break;
+                }
+            }
+        }
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_brace)
+        {
+            ++error;
+            error_info(left_brace_line,exprs_lack_rbrace);
+        }
+    }
+    else
+    {
+        node.add_child(expr());
+        ++ptr;
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
+            --ptr;
+    }
+    return node;
+}
+nasal_ast nasal_parse::calculation()
+{
+    nasal_ast node;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_calculation);
+        return node;
+    }
+    node=or_expr();
+    ++ptr;
+    if(ptr<tok_list_size && tok_list[ptr].type==tok_quesmark)
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        tmp.set_type(ast_trinocular);
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(calculation());
+        else
+        {
+            ++error;
+            error_info(error_line,lack_calculation);
+            return node;
+        }
+        ++ptr;
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_colon)
+        {
+            ++error;
+            error_info(error_line,lack_colon);
+            return node;
+        }
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(calculation());
+        else{ ++error; error_info(error_line,lack_calculation);}
+        node=tmp;
+    }
+    else if(
+        ptr<tok_list_size &&
+        (
+            tok_list[ptr].type==tok_equal      ||
+            tok_list[ptr].type==tok_add_equal  ||
+            tok_list[ptr].type==tok_sub_equal  ||
+            tok_list[ptr].type==tok_mult_equal ||
+            tok_list[ptr].type==tok_div_equal  ||
+            tok_list[ptr].type==tok_link_equal
+        )
+    )
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        switch(tok_list[ptr].type)
+        {
+            case tok_equal:      tmp.set_type(ast_equal);      break;
+            case tok_add_equal:  tmp.set_type(ast_add_equal);  break;
+            case tok_sub_equal:  tmp.set_type(ast_sub_equal);  break;
+            case tok_mult_equal: tmp.set_type(ast_mult_equal); break;
+            case tok_div_equal:  tmp.set_type(ast_div_equal);  break;
+            case tok_link_equal: tmp.set_type(ast_link_equal); break;
+        }
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(calculation());
+        else{ ++error; error_info(error_line,lack_calculation);}
+        node=tmp;
+    }
+    else --ptr;
+    return node;
+}
+nasal_ast nasal_parse::or_expr()
+{
+    nasal_ast node;
+    node=and_expr();
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type==tok_or)
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        tmp.set_type(ast_or);
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(and_expr());
+        else{ ++error; error_info(error_line,lack_calculation);}
+        node=tmp;
+        ++ptr;
+    }
+    --ptr;
+    return node;
+}
+nasal_ast nasal_parse::and_expr()
+{
+    nasal_ast node;
+    node=cmp_expr();
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type==tok_and)
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        tmp.set_type(ast_and);
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(cmp_expr());
+        else{ ++error; error_info(error_line,lack_calculation);}
+        node=tmp;
+        ++ptr;
+    }
+    --ptr;
+    return node;
+}
+nasal_ast nasal_parse::cmp_expr()
+{
+    nasal_ast node;
+    node=additive_expr();
+    ++ptr;
+    while(
+        ptr<tok_list_size &&
+        (
+            tok_list[ptr].type==tok_cmp_equal     ||
+            tok_list[ptr].type==tok_cmp_not_equal ||
+            tok_list[ptr].type==tok_less_than     ||
+            tok_list[ptr].type==tok_less_equal    ||
+            tok_list[ptr].type==tok_greater_than  ||
+            tok_list[ptr].type==tok_greater_equal
+        )
+    )
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        switch(tok_list[ptr].type)
+        {
+            case tok_cmp_equal:     tmp.set_type(ast_cmp_equal);     break;
+            case tok_cmp_not_equal: tmp.set_type(ast_cmp_not_equal); break;
+            case tok_less_than:     tmp.set_type(ast_less_than);     break;
+            case tok_less_equal:    tmp.set_type(ast_less_equal);    break;
+            case tok_greater_than:  tmp.set_type(ast_greater_than);  break;
+            case tok_greater_equal: tmp.set_type(ast_greater_equal); break;
+        }
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(additive_expr());
+        else{ ++error; error_info(error_line,lack_calculation);}
+        node=tmp;
+        ++ptr;
+    }
+    --ptr;
+    return node;
+}
+nasal_ast nasal_parse::additive_expr()
+{
+    nasal_ast node;
+    node=multive_expr();
+    ++ptr;
+    while(ptr<tok_list_size && (tok_list[ptr].type==tok_add || tok_list[ptr].type==tok_sub || tok_list[ptr].type==tok_link))
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        switch(tok_list[ptr].type)
+        {
+            case tok_add:  tmp.set_type(ast_add);  break;
+            case tok_sub:  tmp.set_type(ast_sub);  break;
+            case tok_link: tmp.set_type(ast_link); break;
+        }
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size) tmp.add_child(multive_expr());
+        else{ ++error; error_info(error_line,lack_calculation);}
+        node=tmp;
+        ++ptr;
+    }
+    --ptr;
+    return node;
+}
+nasal_ast nasal_parse::multive_expr()
+{
+    nasal_ast node;
+    node=(tok_list[ptr].type==tok_sub || tok_list[ptr].type==tok_not)?unary():scalar();
+    ++ptr;
+    while(ptr<tok_list_size && (tok_list[ptr].type==tok_mult || tok_list[ptr].type==tok_div))
+    {
+        nasal_ast tmp;
+        tmp.set_line(tok_list[ptr].line);
+        switch(tok_list[ptr].type)
+        {
+            case tok_mult:tmp.set_type(ast_mult);break;
+            case tok_div: tmp.set_type(ast_div); break;
+        }
+        tmp.add_child(node);
+        ++ptr;
+        if(ptr<tok_list_size)
+            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;
+        ++ptr;
+    }
+    --ptr;
+    return node;
+}
+nasal_ast nasal_parse::unary()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    switch(tok_list[ptr].type)
+    {
+        case tok_sub:node.set_type(ast_unary_sub);break;
+        case tok_not:node.set_type(ast_unary_not);break;
+    }
+    ++ptr;
+    if(ptr<tok_list_size) node.add_child(scalar());
+    else{ ++error; error_info(error_line,lack_calculation);}
+    return node;
+}
+nasal_ast nasal_parse::scalar()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    if(tok_list[ptr].type==tok_nil)
+        node=nil_gen();
+    else if(tok_list[ptr].type==tok_number)
+        node=number_gen();
+    else if(tok_list[ptr].type==tok_string)
+        node=string_gen();
+    else if(tok_list[ptr].type==tok_identifier)
+        node=id_gen();
+    else if(tok_list[ptr].type==tok_func)
+    {
+        if(ptr+1<tok_list_size && tok_list[ptr+1].type==tok_identifier)
+        {
+            ++ptr;
+            node=id_gen();
+        }
+        else
+            node=func_gen();
+    }
+    else if(tok_list[ptr].type==tok_left_bracket)
+        node=vector_gen();
+    else if(tok_list[ptr].type==tok_left_brace)
+        node=hash_gen();
+    else if(tok_list[ptr].type==tok_left_curve)
+    {
+        ++ptr;
+        if(ptr<tok_list_size) node=calculation();
+        else{ ++error; error_info(node.get_line(),lack_calculation);}
+        ++ptr;
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+        {
+            ++error;
+            error_info(error_line,lack_right_curve);
+        }
+    }
+    else
+    {
+        ++error;
+        error_info(error_line,lack_scalar);
+        return node;
+    }
+    ++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))
+    {
+        nasal_ast tmp=node;
+        node.clear();
+        node.set_line(tok_list[ptr].line);
+        node.set_type(ast_call);
+        node.add_child(tmp);
+    }
+    while(ptr<tok_list_size && (tok_list[ptr].type==tok_left_curve || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_dot))
+    {
+        node.add_child(call_scalar());
+        ++ptr;
+    }
+    --ptr;
+    return node;
+}
+nasal_ast nasal_parse::call_scalar()
+{
+    nasal_ast node;
+    switch(tok_list[ptr].type)
+    {
+        case tok_left_curve:   node=call_func();   break;
+        case tok_left_bracket: node=call_vector(); break;
+        case tok_dot:          node=call_hash();   break;
+    }
+    return node;
+}
+nasal_ast nasal_parse::call_hash()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_call_hash);
+    ++ptr;
+    if(ptr<tok_list_size && tok_list[ptr].type==tok_identifier)
+        node.set_str(tok_list[ptr].str);
+    else
+    {
+        ++error;
+        error_info(error_line,lack_identifier);
+    }
+    return node;
+}
+nasal_ast nasal_parse::call_vector()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_call_vec);
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_bracket)
+    {
+        node.add_child(subvec());
+        ++ptr;
+        if(ptr<tok_list_size && tok_list[ptr].type==tok_comma) ++ptr;
+        else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
+        {
+            ++error;
+            error_info(error_line,lack_comma);
+            break;
+        }
+    }
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_bracket)
+    {
+        ++error;
+        error_info(error_line,lack_right_bracket);
+    }
+    return node;
+}
+nasal_ast nasal_parse::call_func()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_call_func);
+    bool special_call=check_special_call();
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_curve)
+    {
+        node.add_child(special_call?hash_member_gen():calculation());
+        ++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_curve))
+        {
+            ++error;
+            error_info(error_line,lack_comma);
+            break;
+        }
+    }
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+    }
+    return node;
+}
+nasal_ast nasal_parse::subvec()
+{
+    nasal_ast node;
+    if(tok_list[ptr].type==tok_colon)
+    {
+        --ptr;
+        node=nil_gen();
+    }
+    else node=calculation();
+    ++ptr;
+    if(ptr<tok_list_size && tok_list[ptr].type==tok_colon)
+    {
+        nasal_ast tmp;
+        ++ptr;
+        if(ptr<tok_list_size)
+        {
+            tmp.set_line(node.get_line());
+            tmp.set_type(ast_subvec);
+            tmp.add_child(node);
+            if(tok_list[ptr].type==tok_comma || tok_list[ptr].type==tok_right_bracket)
+            {
+                --ptr;
+                tmp.add_child(nil_gen());
+            }
+            else tmp.add_child(calculation());
+            node=tmp;
+        }
+    }
+    else --ptr;
+    return node;
+}
+nasal_ast nasal_parse::definition()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_definition);
+    if(tok_list[ptr].type==tok_var)
+    {
+        ++ptr;
+        switch(tok_list[ptr].type)
+        {
+            case tok_identifier:node.add_child(normal_def());       break;
+            case tok_left_curve:node.add_child(var_outcurve_def()); break;
+            default:
+                ++error;
+                error_info(error_line,lack_identifier);
+                return node;
+        }
+    }
+    else if(tok_list[ptr].type==tok_left_curve)
+        node.add_child(var_incurve_def());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_equal)
+    {
+        ++error;
+        if(ptr<tok_list_size && (tok_list[ptr].type==tok_dot || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_left_curve) && !node.get_children().back().get_children().size())
+            error_info(error_line,definition_use_call);
+        else
+            error_info(error_line,lack_equal);
+        return node;
+    }
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_scalar);
+        return node;
+    }
+    if(tok_list[ptr].type==tok_left_curve)
+        node.add_child(check_multi_scalar()?multi_scalar():calculation());
+    else
+        node.add_child(calculation());
+    return node;
+}
+nasal_ast nasal_parse::normal_def()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_str(tok_list[ptr].str);
+    node.set_type(ast_identifier);
+    return node;
+}
+nasal_ast nasal_parse::var_incurve_def()
+{
+    nasal_ast node;
+    ++ptr;// check_multi_definition will check the 'var'
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
+    {
+        ++error;
+        error_info(error_line,lack_identifier);
+        return node;
+    }
+    node=multi_id();
+    ++ptr;
+    if(ptr<tok_list_size && (tok_list[ptr].type==tok_dot || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_left_curve))
+    {
+        ++error;
+        error_info(error_line,multi_id_use_call);
+    }
+    else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+    }
+    return node;
+}
+nasal_ast nasal_parse::var_outcurve_def()
+{
+    nasal_ast node;
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
+    {
+        ++error;
+        error_info(error_line,lack_identifier);
+        return node;
+    }
+    node=multi_id();
+    ++ptr;
+    if(ptr<tok_list_size && (tok_list[ptr].type==tok_dot || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_left_curve))
+    {
+        ++error;
+        error_info(error_line,multi_id_use_call);
+    }
+    else if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+    }
+    return node;
+}
+nasal_ast nasal_parse::multi_id()
+{
+    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;
+}
+nasal_ast nasal_parse::multi_scalar()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_multi_scalar);
+    ++ptr;
+    while(ptr<tok_list_size && tok_list[ptr].type!=tok_right_curve)
+    {
+        node.add_child(calculation());
+        ++ptr;
+        if(ptr>=tok_list_size) break;
+        if(tok_list[ptr].type==tok_comma) ++ptr;
+        else if(tok_list[ptr].type!=tok_comma && tok_list[ptr].type!=tok_right_curve)
+        {
+            ++error;
+            error_info(error_line,lack_comma);
+            break;
+        }
+    }
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+    }
+    return node;
+}
+nasal_ast nasal_parse::multi_assgin()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_multi_assign);
+    node.add_child(multi_scalar());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_equal)
+    {
+        ++error;
+        error_info(error_line,lack_equal);
+        return node;
+    }
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,multi_assign_lack_val);
+        return node;
+    }
+    if(tok_list[ptr].type==tok_left_curve)
+        node.add_child(check_multi_scalar()?multi_scalar():calculation());
+    else
+        node.add_child(calculation());
+    return node;
+}
+nasal_ast nasal_parse::loop()
+{
+    nasal_ast node;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_token,"loop");
+        return node;
+    }
+    switch(tok_list[ptr].type)
+    {
+        case tok_while:   node=while_loop(); break;
+        case tok_for:     node=for_loop();   break;
+        case tok_forindex:
+        case tok_foreach: node=forei_loop(); break;
+    }
+    return node;
+}
+nasal_ast nasal_parse::while_loop()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_while);
+    ++ptr;
+    if(ptr<tok_list_size && tok_list[ptr].type==tok_left_curve)
+    {
+        ++ptr;
+        node.add_child(calculation());
+    }
+    else
+    {
+        ++error;
+        error_info(error_line,lack_left_curve);
+        return node;
+    }
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+        return node;
+    }
+    ++ptr;
+    node.add_child(exprs_gen());
+    return node;
+}
+nasal_ast nasal_parse::for_loop()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_for);
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
+    {
+        ++error;
+        error_info(error_line,lack_left_curve);
+        return node;
+    }
+    // first expression
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_definition);
+        return node;
+    }
+    if(tok_list[ptr].type==tok_semi)
+    {
+        node.add_child(null_node_gen());
+        --ptr;
+    }
+    else if(tok_list[ptr].type==tok_var)
+        node.add_child(definition());
+    else
+        node.add_child(calculation());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
+    {
+        ++error;
+        error_info(error_line,lack_semi);
+        return node;
+    }
+    // conditional expression
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_calculation);
+        return node;
+    }
+    if(tok_list[ptr].type==tok_semi)
+    {
+        node.add_child(null_node_gen());
+        --ptr;
+    }
+    else
+        node.add_child(calculation());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
+    {
+        ++error;
+        error_info(error_line,lack_semi);
+        return node;
+    }
+    //after loop expression
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_calculation);
+        return node;
+    }
+    if(tok_list[ptr].type==tok_right_curve)
+    {
+        node.add_child(null_node_gen());
+        --ptr;
+    }
+    else
+        node.add_child(calculation());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+        return node;
+    }
+    ++ptr;
+    node.add_child(exprs_gen());
+    return node;
+}
+nasal_ast nasal_parse::forei_loop()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    switch(tok_list[ptr].type)
+    {
+        case tok_forindex: node.set_type(ast_forindex);break;
+        case tok_foreach:  node.set_type(ast_foreach); break;
+    }
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
+    {
+        ++error;
+        error_info(error_line,lack_left_curve);
+        return node;
+    }
+    // first expression
+    // foreach/forindex must have an iterator to loop through
+    ++ptr;
+    if(ptr>=tok_list_size || (tok_list[ptr].type!=tok_var && tok_list[ptr].type!=tok_identifier))
+    {
+        ++error;
+        error_info(error_line,lack_loop_iter);
+        return node;
+    }
+    node.add_child(new_iter_gen());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_semi)
+    {
+        ++error;
+        error_info(error_line,lack_semi);
+        return node;
+    }
+    ++ptr;
+    if(ptr>=tok_list_size)
+    {
+        ++error;
+        error_info(error_line,lack_calculation);
+        return node;
+    }
+    node.add_child(calculation());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+        return node;
+    }
+    ++ptr;
+    node.add_child(exprs_gen());
+    return node;
+}
+
+nasal_ast nasal_parse::new_iter_gen()
+{
+    nasal_ast node;
+    if(tok_list[ptr].type==tok_var)
+    {
+        node.set_line(tok_list[ptr].line);
+        node.set_type(ast_new_iter);
+        ++ptr;
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_identifier)
+        {
+            ++error;
+            error_info(error_line,lack_identifier);
+            return node;
+        }
+        node.add_child(id_gen());
+    }
+    else
+    {
+        node.set_line(tok_list[ptr].line);
+        node.set_type(ast_call);
+        node.add_child(id_gen());
+        ++ptr;
+        while(ptr<tok_list_size && (tok_list[ptr].type==tok_left_curve || tok_list[ptr].type==tok_left_bracket || tok_list[ptr].type==tok_dot))
+        {
+            node.add_child(call_scalar());
+            ++ptr;
+        }
+        --ptr;
+    }
+    return node;
+}
+
+nasal_ast nasal_parse::conditional()
+{
+    nasal_ast node;
+    nasal_ast tmp;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_conditional);
+    tmp.set_line(tok_list[ptr].line);
+    tmp.set_type(ast_if);
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
+    {
+        ++error;
+        error_info(error_line,lack_left_curve);
+        return node;
+    }
+    ++ptr;
+    tmp.add_child(calculation());
+    ++ptr;
+    if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+    {
+        ++error;
+        error_info(error_line,lack_right_curve);
+        return node;
+    }
+    ++ptr;
+    tmp.add_child(exprs_gen());
+    node.add_child(tmp);
+    // end of if-expression
+    ++ptr;
+    while(ptr<tok_list_size && (tok_list[ptr].type==tok_elsif || (tok_list[ptr].type==tok_else && ptr+1<tok_list_size && tok_list[ptr+1].type==tok_if)))
+    {
+        if(tok_list[ptr].type==tok_else) ++ptr;
+        ++ptr;
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_left_curve)
+        {
+            ++error;
+            error_info(error_line,lack_left_curve);
+            return node;
+        }
+        tmp.set_line(tok_list[ptr].line);
+        tmp.set_type(ast_elsif);
+        tmp.get_children().clear();
+        ++ptr;
+        tmp.add_child(calculation());
+        ++ptr;
+        if(ptr>=tok_list_size || tok_list[ptr].type!=tok_right_curve)
+        {
+            ++error;
+            error_info(error_line,lack_right_curve);
+            return node;
+        }
+        ++ptr;
+        tmp.add_child(exprs_gen());
+        node.add_child(tmp);
+        ++ptr;
+    }
+    // end of elsif-expression
+    // after this process,ptr will point to the next token of exprs_gen()'s last token
+    // for example
+    // else if(scalar){} else {}
+    //                  ptr^
+    if(ptr<tok_list_size && tok_list[ptr].type==tok_else)
+    {
+        tmp.set_line(tok_list[ptr].line);
+        tmp.set_type(ast_else);
+        tmp.get_children().clear();
+        ++ptr;
+        tmp.add_child(exprs_gen());
+        node.add_child(tmp);
+    }
+    else
+        --ptr;
+    return node;
+}
+nasal_ast nasal_parse::continue_expr()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_continue);
+    return node;
+}
+nasal_ast nasal_parse::break_expr()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_break);
+    return node;
+}
+nasal_ast nasal_parse::return_expr()
+{
+    nasal_ast node;
+    node.set_line(tok_list[ptr].line);
+    node.set_type(ast_return);
+    ++ptr;
+    if(ptr<tok_list_size)
+    {
+        int type=tok_list[ptr].type;
+        if(type==tok_nil || type==tok_number || type==tok_string || type==tok_identifier || type==tok_func ||
+        type==tok_sub || type==tok_not || type==tok_left_curve || type==tok_left_bracket || type==tok_left_brace)
+            node.add_child(calculation());
+        else
+            --ptr;
+    }
+    return node;
+}
+#endif
diff --git a/version3.0/nasal_resource.h b/nasal_resource.h
similarity index 94%
rename from version3.0/nasal_resource.h
rename to nasal_resource.h
index 4964c9f..d65a54d 100644
--- a/version3.0/nasal_resource.h
+++ b/nasal_resource.h
@@ -1,75 +1,75 @@
-#ifndef __NASAL_RESOURCE_H__
-#define __NASAL_RESOURCE_H__
-
-class nasal_resource
-{
-private:
-    std::vector<char> res;
-public:
-    bool input_file(std::string);
-    void clear();
-    void print_file();
-    std::vector<char>& get_file();
-};
-
-bool nasal_resource::input_file(std::string filename)
-{
-    res.clear();
-    std::ifstream fin(filename,std::ios::binary);
-    if(fin.fail())
-    {
-        std::cout<<">> [resource] cannot open file \""<<filename<<"\".\n";
-        fin.close();
-        return false;
-    }
-    while(!fin.eof())
-    {
-        char c=fin.get();
-        if(fin.eof())
-            break;
-        res.push_back(c);
-    }
-    fin.close();
-    return true;
-}
-
-void nasal_resource::clear()
-{
-    res.clear();
-    return;
-}
-
-void nasal_resource::print_file()
-{
-    int size=res.size(),line=1;
-	std::cout<<line<<"\t";
-	std::string unicode_str="";
-	for(int i=0;i<size;++i)
-	{
-		if(res[i]>=0 && unicode_str.length())
-		{
-			std::cout<<unicode_str;
-			unicode_str="";
-		}
-		if(32<=res[i])
-            std::cout<<res[i];
-		else if(res[i]<0)
-            unicode_str+=res[i];
-		else
-            std::cout<<" ";
-		if(res[i]=='\n')
-		{
-			++line;
-			std::cout<<std::endl<<line<<"\t";
-		}
-	}
-	std::cout<<(unicode_str.length()?unicode_str:"")<<'\n';
-	return;
-}
-
-std::vector<char>& nasal_resource::get_file()
-{
-    return res;
-}
-
+#ifndef __NASAL_RESOURCE_H__
+#define __NASAL_RESOURCE_H__
+
+class nasal_resource
+{
+private:
+    std::vector<char> res;
+public:
+    bool input_file(std::string);
+    void clear();
+    void print_file();
+    std::vector<char>& get_file();
+};
+
+bool nasal_resource::input_file(std::string filename)
+{
+    res.clear();
+    std::ifstream fin(filename,std::ios::binary);
+    if(fin.fail())
+    {
+        std::cout<<">> [resource] cannot open file \""<<filename<<"\".\n";
+        fin.close();
+        return false;
+    }
+    while(!fin.eof())
+    {
+        char c=fin.get();
+        if(fin.eof())
+            break;
+        res.push_back(c);
+    }
+    fin.close();
+    return true;
+}
+
+void nasal_resource::clear()
+{
+    res.clear();
+    return;
+}
+
+void nasal_resource::print_file()
+{
+    int size=res.size(),line=1;
+	std::cout<<line<<"\t";
+	std::string unicode_str="";
+	for(int i=0;i<size;++i)
+	{
+		if(res[i]>=0 && unicode_str.length())
+		{
+			std::cout<<unicode_str;
+			unicode_str="";
+		}
+		if(32<=res[i])
+            std::cout<<res[i];
+		else if(res[i]<0)
+            unicode_str+=res[i];
+		else
+            std::cout<<" ";
+		if(res[i]=='\n')
+		{
+			++line;
+			std::cout<<std::endl<<line<<"\t";
+		}
+	}
+	std::cout<<(unicode_str.length()?unicode_str:"")<<'\n';
+	return;
+}
+
+std::vector<char>& nasal_resource::get_file()
+{
+    return res;
+}
+
 #endif
\ No newline at end of file
diff --git a/version3.0/nasal_runtime.h b/nasal_runtime.h
similarity index 97%
rename from version3.0/nasal_runtime.h
rename to nasal_runtime.h
index ff970c4..de21035 100644
--- a/version3.0/nasal_runtime.h
+++ b/nasal_runtime.h
@@ -1,1661 +1,1661 @@
-#ifndef __NASAL_RUNTIME_H__
-#define __NASAL_RUNTIME_H__
-
-enum runtime_returned_state
-{
-    rt_return=1,
-    rt_break,
-    rt_continue,
-    rt_error,
-    rt_exit_without_error
-};
-
-class nasal_runtime
-{
-private:
-    std::map<std::string,int (nasal_runtime::*)(int x)> builtin_func_hashmap;
-    // function_return_address is an address in garbage_collector_memory
-    int function_returned_address;
-    // global_scope_address is an address in garbage_collector_memory
-    int global_scope_address;
-
-    nasal_ast root;
-
-    // if error occurred,this value will add 1
-    int error;
-
-    // generate number and return gc place of this number
-    int number_generation(nasal_ast&);
-    // generate string and return gc place of this string
-    int string_generation(nasal_ast&);
-    // generate vector and return gc place of this vector
-    int vector_generation(nasal_ast&,int);
-    // generate hash and return gc place of this hash
-    int hash_generation(nasal_ast&,int);
-    // generate function and return gc place of this function
-    int function_generation(nasal_ast&,int);
-
-    /*
-        functions after this note may have parameter named 'local_scope_addr'
-        if no local scope existing when calling these functions,use -1
-    */
-
-    // main expression block running process
-    int main_progress();
-    // function/loop/conditional expression block running process
-    int block_progress(nasal_ast&,int,bool);
-    // run loop
-    int before_for_loop(nasal_ast&,int);
-    int after_each_for_loop(nasal_ast&,int);
-    int loop_progress(nasal_ast&,int,bool);
-    // run conditional
-    bool check_condition(int);
-    int conditional_progress(nasal_ast&,int,bool);
-    // get scalars in complex data structure like vector/hash/function/closure(scope)
-    int call_scalar(nasal_ast&,int);
-    int call_vector(nasal_ast&,int,int);
-    int call_hash(nasal_ast&,int,int);
-    int call_function(nasal_ast&,std::string,int,int,int);
-    int call_builtin_function(std::string,int);
-    // get scalars' memory place in complex data structure like vector/hash/function/closure(scope)
-    int call_scalar_mem(nasal_ast&,int);
-    int call_vector_mem(nasal_ast&,int,int);
-    int call_hash_mem(nasal_ast&,int,int);
-    // calculate scalars
-    int calculation(nasal_ast&,int);
-    void definition(nasal_ast&,int);
-    void multi_assignment(nasal_ast&,int);
-
-    // builtin_func defined here
-    int builtin_print(int);
-    int builtin_append(int);
-    int builtin_setsize(int);
-    int builtin_system(int);
-    int builtin_input(int);
-    int builtin_sleep(int);
-    int builtin_finput(int);
-    int builtin_foutput(int);
-    int builtin_split(int);
-    int builtin_rand(int);
-    int builtin_id(int);
-    int builtin_int(int);
-    int builtin_num(int);
-    int builtin_pop(int);
-    int builtin_str(int);
-    int builtin_size(int);
-    int builtin_xor(int);
-    int builtin_and(int);
-    int builtin_or(int);
-    int builtin_nand(int);
-    int builtin_not(int);
-    int builtin_sin(int);
-    int builtin_cos(int);
-    int builtin_tan(int);
-    int builtin_exp(int);
-    int builtin_ln(int);
-    int builtin_sqrt(int);
-    int builtin_atan2(int);
-    int builtin_time(int);
-    int builtin_contains(int);
-    int builtin_delete(int);
-    int builtin_getkeys(int);
-    int builtin_import(int);
-    int builtin_die(int);
-    int builtin_type(int);
-    void load_builtin_function();
-public:
-    nasal_runtime();
-    ~nasal_runtime();
-    void set_root(nasal_ast&);
-    void run();
-};
-
-nasal_runtime::nasal_runtime()
-{
-    error=0;
-    this->root.clear();
-    this->global_scope_address=-1;
-    this->load_builtin_function();
-    return;
-}
-nasal_runtime::~nasal_runtime()
-{
-    error=0;
-    this->root.clear();
-    this->global_scope_address=-1;
-    this->builtin_func_hashmap.clear();
-    return;
-}
-void nasal_runtime::load_builtin_function()
-{
-    struct FUNC_TABLE
-    {
-        std::string func_name;
-        int (nasal_runtime::*func_pointer)(int x);
-    } builtin_func_table[]=
-    {
-        {"nasal_call_builtin_std_cout",      nasal_runtime::builtin_print},
-        {"nasal_call_builtin_push_back",     nasal_runtime::builtin_append},
-        {"nasal_call_builtin_set_size",      nasal_runtime::builtin_setsize},
-        {"nasal_call_builtin_system",        nasal_runtime::builtin_system},
-        {"nasal_call_builtin_input",         nasal_runtime::builtin_input},
-        {"nasal_call_builtin_sleep",         nasal_runtime::builtin_sleep},
-        {"nasal_call_builtin_finput",        nasal_runtime::builtin_finput},
-        {"nasal_call_builtin_foutput",       nasal_runtime::builtin_foutput},
-        {"nasal_call_builtin_split",         nasal_runtime::builtin_split},
-        {"nasal_call_builtin_rand",          nasal_runtime::builtin_rand},
-        {"nasal_call_builtin_get_id",        nasal_runtime::builtin_id},
-        {"nasal_call_builtin_trans_int",     nasal_runtime::builtin_int},
-        {"nasal_call_builtin_trans_num",     nasal_runtime::builtin_num},
-        {"nasal_call_builtin_pop_back",      nasal_runtime::builtin_pop},
-        {"nasal_call_builtin_trans_str",     nasal_runtime::builtin_str},
-        {"nasal_call_builtin_size",          nasal_runtime::builtin_size},
-        {"nasal_call_builtin_xor",           nasal_runtime::builtin_xor},
-        {"nasal_call_builtin_and",           nasal_runtime::builtin_and},
-        {"nasal_call_builtin_or",            nasal_runtime::builtin_or},
-        {"nasal_call_builtin_nand",          nasal_runtime::builtin_nand},
-        {"nasal_call_builtin_not",           nasal_runtime::builtin_not},
-        {"nasal_call_builtin_sin",           nasal_runtime::builtin_sin},
-        {"nasal_call_builtin_cos",           nasal_runtime::builtin_cos},
-        {"nasal_call_builtin_tan",           nasal_runtime::builtin_tan},
-        {"nasal_call_builtin_exp",           nasal_runtime::builtin_exp},
-        {"nasal_call_builtin_cpp_math_ln",   nasal_runtime::builtin_ln},
-        {"nasal_call_builtin_cpp_math_sqrt", nasal_runtime::builtin_sqrt},
-        {"nasal_call_builtin_cpp_atan2",     nasal_runtime::builtin_atan2},
-        {"nasal_call_builtin_time",          nasal_runtime::builtin_time},
-        {"nasal_call_builtin_contains",      nasal_runtime::builtin_contains},
-        {"nasal_call_builtin_delete",        nasal_runtime::builtin_delete},
-        {"nasal_call_builtin_get_keys",      nasal_runtime::builtin_getkeys},
-        {"nasal_call_import",                nasal_runtime::builtin_import},
-        {"nasal_call_builtin_die",           nasal_runtime::builtin_die},
-        {"nasal_call_builtin_type",          nasal_runtime::builtin_type},
-        {"",                                 NULL}
-    };
-    for(int i=0;builtin_func_table[i].func_pointer;++i)
-        builtin_func_hashmap[builtin_func_table[i].func_name]=builtin_func_table[i].func_pointer;
-    return;
-}
-void nasal_runtime::set_root(nasal_ast& parse_result)
-{
-    this->root=parse_result;
-    return;
-}
-void nasal_runtime::run()
-{
-    this->error=0;
-    this->function_returned_address=-1;
-
-    this->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();
-
-    time_t begin_time=std::time(NULL);
-    int returned_statement=main_progress();
-    time_t end_time=std::time(NULL);
-
-    nasal_vm.gc_get(global_scope_address).get_closure().del_scope();
-    nasal_vm.del_reference(global_scope_address);
-    nasal_vm.clear();
-
-    time_t total_run_time=end_time-begin_time;
-    if(total_run_time>=1)
-    std::cout<<">> [runtime] process exited after "<<total_run_time<<"s "<<(returned_statement==rt_exit_without_error?".\n":"with errors.\n");
-    return;
-}
-
-// private functions
-int nasal_runtime::number_generation(nasal_ast& node)
-{
-    int new_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_addr).set_type(vm_number);
-    nasal_vm.gc_get(new_addr).set_number(trans_string_to_number(node.get_str()));
-    return new_addr;
-}
-int nasal_runtime::string_generation(nasal_ast& node)
-{
-    int new_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_addr).set_type(vm_string);
-    nasal_vm.gc_get(new_addr).set_string(node.get_str());
-    return new_addr;
-}
-int nasal_runtime::vector_generation(nasal_ast& node,int local_scope_addr)
-{
-    int new_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_addr).set_type(vm_vector);
-    nasal_vector& ref_of_this_vector=nasal_vm.gc_get(new_addr).get_vector();
-
-    int node_children_size=node.get_children().size();
-    for(int i=0;i<node_children_size;++i)
-        ref_of_this_vector.add_elem(calculation(node.get_children()[i],local_scope_addr));
-    return new_addr;
-}
-int nasal_runtime::hash_generation(nasal_ast& node,int local_scope_addr)
-{
-    int new_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_addr).set_type(vm_hash);
-    nasal_hash& ref_of_this_hash=nasal_vm.gc_get(new_addr).get_hash();
-    int node_children_size=node.get_children().size();
-    for(int i=0;i<node_children_size;++i)
-    {
-        nasal_ast& ref_of_hash_member_value=node.get_children()[i].get_children()[1];
-        std::string hash_member_name=node.get_children()[i].get_children()[0].get_str();
-        ref_of_this_hash.add_elem(hash_member_name,calculation(ref_of_hash_member_value,local_scope_addr));
-    }
-    return new_addr;
-}
-int nasal_runtime::function_generation(nasal_ast& node,int local_scope_addr)
-{
-    int new_addr=nasal_vm.gc_alloc();
-    nasal_vm.gc_get(new_addr).set_type(vm_function);
-    nasal_function& ref_of_this_function=nasal_vm.gc_get(new_addr).get_func();
-
-    ref_of_this_function.set_arguments(node.get_children()[0]);
-    ref_of_this_function.set_run_block(node.get_children()[1]);
-
-    if(local_scope_addr>=0)
-        ref_of_this_function.set_closure_addr(local_scope_addr);
-    else
-    {
-        int new_closure=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(new_closure).set_type(vm_closure);
-        ref_of_this_function.set_closure_addr(new_closure);
-        nasal_vm.del_reference(new_closure);
-    }
-    return new_addr;
-}
-int nasal_runtime::main_progress()
-{
-    int ret_state=rt_exit_without_error;
-    int expr_number=root.get_children().size();
-    int process_returned_value_addr=-1;
-    for(int i=0;i<expr_number;++i)
-    {
-        int node_type=root.get_children()[i].get_type();
-        switch(node_type)
-        {
-            case ast_definition:definition(root.get_children()[i],-1);break;
-            case ast_multi_assign:multi_assignment(root.get_children()[i],-1);break;
-            case ast_conditional:ret_state=conditional_progress(root.get_children()[i],-1,false);break;
-            case ast_while:case ast_for:case ast_forindex:case ast_foreach:
-                ret_state=loop_progress(root.get_children()[i],-1,false);break;
-            case ast_nil:case ast_number:case ast_string:case ast_function:break;
-            case ast_identifier:
-            case ast_vector:case ast_hash:
-            case ast_call:
-            case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
-            case ast_unary_sub:case ast_unary_not:
-            case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
-            case ast_trinocular:nasal_vm.del_reference(calculation(root.get_children()[i],-1));break;
-        }
-        switch(ret_state)
-        {
-            case rt_break:std::cout<<">> [runtime] main_progress: cannot use break in main progress.\n";++error;break;
-            case rt_continue:std::cout<<">> [runtime] main_progress: cannot use continue in main progress.\n";++error;break;
-            case rt_return:std::cout<<">> [runtime] main_progress: cannot use return in main progress.\n";++error;break;
-            case rt_error:std::cout<<">> [runtime] main_progress: error occurred when executing main progress.\n";++error;break;
-        }
-        if(error)
-        {
-            ret_state=rt_error;
-            break;
-        }
-    }
-    return ret_state;
-}
-int nasal_runtime::block_progress(nasal_ast& node,int local_scope_addr,bool allow_return)
-{
-    int ret_state=rt_exit_without_error;
-    // if local_scope does not exist,create a new one.
-    if(local_scope_addr<0)
-    {
-        local_scope_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(local_scope_addr).set_type(vm_closure);
-        nasal_vm.gc_get(local_scope_addr).get_closure().add_scope();
-    }
-    else
-    {
-        nasal_vm.add_reference(local_scope_addr);
-        nasal_vm.gc_get(local_scope_addr).get_closure().add_scope();
-    }
-    int expr_number=node.get_children().size();
-    int process_returned_value_addr=-1;
-    for(int i=0;i<expr_number;++i)
-    {
-        nasal_ast& tmp_node=node.get_children()[i];
-        int node_type=tmp_node.get_type();
-        switch(node_type)
-        {
-            case ast_definition:definition(tmp_node,local_scope_addr);break;
-            case ast_multi_assign:multi_assignment(tmp_node,local_scope_addr);break;
-            case ast_conditional:ret_state=conditional_progress(tmp_node,local_scope_addr,allow_return);break;
-            case ast_while:case ast_for:case ast_forindex:case ast_foreach:
-                ret_state=loop_progress(tmp_node,local_scope_addr,allow_return);break;
-            case ast_nil:case ast_number:case ast_string:case ast_function:break;
-            case ast_identifier:
-            case ast_vector:case ast_hash:
-            case ast_call:
-            case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
-            case ast_unary_sub:case ast_unary_not:
-            case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
-            case ast_trinocular:nasal_vm.del_reference(calculation(tmp_node,local_scope_addr));break;
-            case ast_break:ret_state=rt_break;break;
-            case ast_continue:ret_state=rt_continue;break;
-            case ast_return:
-                ret_state=rt_return;
-                if(allow_return)
-                {
-                    if(tmp_node.get_children().size())
-                        function_returned_address=calculation(tmp_node.get_children()[0],local_scope_addr);
-                    else
-                    {
-                        function_returned_address=nasal_vm.gc_alloc();
-                        nasal_vm.gc_get(function_returned_address).set_type(vm_nil);
-                    }
-                } 
-                else
-                {
-                    std::cout<<">> [runtime] block_progress: return expression is not allowed here.\n";
-                    ++error;
-                }
-                break;
-        }
-        if(ret_state==rt_error)
-        {
-            std::cout<<">> [runtime] block_progress: error occurred when executing sub-progress.\n";
-            ++error;
-        }
-        if(error || ret_state==rt_break || ret_state==rt_continue || ret_state==rt_return)
-            break;
-    }
-    nasal_vm.gc_get(local_scope_addr).get_closure().del_scope();
-    nasal_vm.del_reference(local_scope_addr);
-    return ret_state;
-}
-int nasal_runtime::before_for_loop(nasal_ast& node,int local_scope_addr)
-{
-    int before_loop_node_type=node.get_type();
-    switch(before_loop_node_type)
-    {
-        case ast_null:break;
-        case ast_definition:definition(node,local_scope_addr);break;
-        case ast_multi_assign:multi_assignment(node,local_scope_addr);break;
-        case ast_nil:case ast_number:case ast_string:case ast_function:break;
-        case ast_vector:case ast_hash:
-        case ast_call:
-        case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
-        case ast_unary_sub:case ast_unary_not:
-        case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
-        case ast_trinocular:nasal_vm.del_reference(calculation(node,local_scope_addr));break;
-        default:std::cout<<">> [runtime] before_for_loop: cannot use this expression before for-loop.\n";++error;break;
-    }
-    if(error)
-        return rt_error;
-    return rt_exit_without_error;
-}
-int nasal_runtime::after_each_for_loop(nasal_ast& node,int local_scope_addr)
-{
-    int node_type=node.get_type();
-    switch(node_type)
-    {
-        case ast_null:break;
-        case ast_definition:definition(node,local_scope_addr);break;
-        case ast_multi_assign:multi_assignment(node,local_scope_addr);break;
-        case ast_nil:case ast_number:case ast_string:case ast_function:break;
-        case ast_vector:case ast_hash:
-        case ast_call:
-        case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
-        case ast_unary_sub:case ast_unary_not:
-        case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
-        case ast_trinocular:nasal_vm.del_reference(calculation(node,local_scope_addr));break;
-        default:std::cout<<">> [runtime] after_each_for_loop: cannot use this expression after each for-loop.\n";++error;break;
-    }
-    if(error)
-        return rt_error;
-    return rt_exit_without_error;
-}
-int nasal_runtime::loop_progress(nasal_ast& node,int local_scope_addr,bool allow_return)
-{
-    int ret_state=rt_exit_without_error;
-    int loop_type=node.get_type();
-    if(loop_type==ast_while)
-    {
-        nasal_ast& condition_node=node.get_children()[0];
-        nasal_ast& run_block_node=node.get_children()[1];
-        // create a new local scope to store iterator if local_scope_addr=-1
-        int while_local_scope_addr=local_scope_addr;
-        if(while_local_scope_addr<0)
-        {
-            while_local_scope_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(while_local_scope_addr).set_type(vm_closure);
-            nasal_vm.gc_get(while_local_scope_addr).get_closure().add_scope();
-        }
-        else
-        {
-            nasal_vm.add_reference(local_scope_addr);
-            nasal_vm.gc_get(while_local_scope_addr).get_closure().add_scope();
-        }
-        // check condition and begin loop
-        int condition_value_addr=calculation(condition_node,while_local_scope_addr);
-        bool result=check_condition(condition_value_addr);
-        nasal_vm.del_reference(condition_value_addr);
-        while(result)
-        {
-            // return expression will be checked in block_progress
-            ret_state=block_progress(run_block_node,local_scope_addr,allow_return);
-            if(ret_state==rt_break || ret_state==rt_error || ret_state==rt_return || error)
-                break;
-            condition_value_addr=calculation(condition_node,while_local_scope_addr);
-            result=check_condition(condition_value_addr);
-            nasal_vm.del_reference(condition_value_addr);
-        }
-        nasal_vm.gc_get(while_local_scope_addr).get_closure().del_scope();
-        nasal_vm.del_reference(while_local_scope_addr);
-    }
-    else if(loop_type==ast_forindex || loop_type==ast_foreach)
-    {
-        nasal_ast& iter_node=node.get_children()[0];
-        nasal_ast& vector_node=node.get_children()[1];
-        nasal_ast& run_block_node=node.get_children()[2];
-        // check vector to make sure iterator can be used without problem
-        int vector_value_addr=calculation(vector_node,local_scope_addr);
-        if(vector_value_addr<0 || nasal_vm.gc_get(vector_value_addr).get_type()!=vm_vector)
-        {
-            std::cout<<">> [runtime] loop_progress: "<<(loop_type==ast_forindex? "forindex":"foreach")<<" gets a value that is not a vector.\n";
-            ++error;
-            return rt_error;
-        }
-        // create a new local scope to store iterator if local_scope_addr=-1
-        int forei_local_scope_addr=local_scope_addr;
-        if(forei_local_scope_addr<0)
-        {
-            forei_local_scope_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(forei_local_scope_addr).set_type(vm_closure);
-            nasal_vm.gc_get(forei_local_scope_addr).get_closure().add_scope();
-        }
-        else
-        {
-            nasal_vm.add_reference(local_scope_addr);
-            nasal_vm.gc_get(forei_local_scope_addr).get_closure().add_scope();
-        }
-        // begin loop progress
-        int mem_addr=-1;
-        if(iter_node.get_type()==ast_new_iter)
-        {
-            int new_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(new_value_addr).set_type(vm_nil);
-            std::string val_name=iter_node.get_children()[0].get_str();
-            nasal_vm.gc_get(forei_local_scope_addr).get_closure().add_new_value(val_name,new_value_addr);
-            mem_addr=nasal_vm.gc_get(forei_local_scope_addr).get_closure().get_mem_address(val_name);
-        }
-        else
-            mem_addr=call_scalar_mem(iter_node,local_scope_addr);
-        if(mem_addr<0)
-        {
-            std::cout<<">> [runtime] loop_progress: get null iterator.\n";
-            ++error;
-            return rt_error;
-        }
-        // ref_vector's size may change when running,so this loop will check size each time
-        nasal_vector& ref_vector=nasal_vm.gc_get(vector_value_addr).get_vector();
-        for(int i=0;i<ref_vector.size();++i)
-        {
-            // update iterator
-            if(loop_type==ast_forindex)
-            {
-                int new_iter_val_addr=nasal_vm.gc_alloc();
-                nasal_vm.gc_get(new_iter_val_addr).set_type(vm_number);
-                nasal_vm.gc_get(new_iter_val_addr).set_number((double)i);
-                nasal_vm.mem_change(mem_addr,new_iter_val_addr);
-            }
-            else
-            {
-                int value_addr=ref_vector.get_value_address(i);
-                nasal_vm.add_reference(value_addr);
-                nasal_vm.mem_change(mem_addr,value_addr);
-            }
-            ret_state=block_progress(run_block_node,forei_local_scope_addr,allow_return);
-            if(ret_state==rt_break || ret_state==rt_return || ret_state==rt_error || error)
-                break;
-        }
-        nasal_vm.del_reference(vector_value_addr);
-        nasal_vm.gc_get(forei_local_scope_addr).get_closure().del_scope();
-        nasal_vm.del_reference(forei_local_scope_addr);
-    }
-    else if(loop_type==ast_for)
-    {
-        nasal_ast& before_loop_node=node.get_children()[0];
-        nasal_ast& condition_node=node.get_children()[1];
-        nasal_ast& each_loop_do_node=node.get_children()[2];
-        nasal_ast& run_block_node=node.get_children()[3];
-
-        // set local scope if local_scope_addr=-1
-        int for_local_scope_addr=local_scope_addr;
-        if(for_local_scope_addr<0)
-        {
-            for_local_scope_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(for_local_scope_addr).set_type(vm_closure);
-            nasal_vm.gc_get(for_local_scope_addr).get_closure().add_scope();
-        }
-        else
-        {
-            nasal_vm.add_reference(local_scope_addr);
-            nasal_vm.gc_get(for_local_scope_addr).get_closure().add_scope();
-        }
-        // for progress
-        ret_state=before_for_loop(before_loop_node,for_local_scope_addr);
-        int condition_value_addr=calculation(condition_node,for_local_scope_addr);
-        bool result=check_condition(condition_value_addr);
-        nasal_vm.del_reference(condition_value_addr);
-        while(result)
-        {
-            if(ret_state==rt_error)
-                break;
-            ret_state=block_progress(run_block_node,for_local_scope_addr,allow_return);
-            if(ret_state==rt_error || ret_state==rt_return || ret_state==rt_break || error)
-                break;
-            ret_state=after_each_for_loop(each_loop_do_node,for_local_scope_addr);
-            condition_value_addr=calculation(condition_node,for_local_scope_addr);
-            result=check_condition(condition_value_addr);
-            nasal_vm.del_reference(condition_value_addr);
-        }
-        nasal_vm.gc_get(for_local_scope_addr).get_closure().del_scope();
-        nasal_vm.del_reference(for_local_scope_addr);
-    }
-    if(ret_state==rt_break || ret_state==rt_continue)
-        ret_state=rt_exit_without_error;
-    return ret_state;
-}
-bool nasal_runtime::check_condition(int value_addr)
-{
-    if(value_addr<0)
-        return false;
-    int type=nasal_vm.gc_get(value_addr).get_type();
-    if(type==vm_vector || type==vm_hash || type==vm_function || type==vm_closure)
-    {
-        std::cout<<">> [runtime] check_condition: error value type when checking condition.\n";
-        ++error;
-        return false;
-    }
-    else if(type==vm_string)
-    {
-        std::string str=nasal_vm.gc_get(value_addr).get_string();
-        if(!check_numerable_string(str))
-        {
-            std::cout<<">> [runtime] check_condition: error value type, \'"<<str<<"\' is not a numerable string.\n";
-            ++error;
-            return -1;
-        }
-        return (trans_string_to_number(str)!=0);
-    }
-    else if(type==vm_nil)
-        return false;
-    else if(type==vm_number)
-        return (nasal_vm.gc_get(value_addr).get_number()!=0);
-    return false;
-}
-int nasal_runtime::conditional_progress(nasal_ast& node,int local_scope_addr,bool allow_return)
-{
-    int ret_state=rt_exit_without_error;
-    int size=node.get_children().size();
-    for(int i=0;i<size;++i)
-    {
-        nasal_ast& tmp_node=node.get_children()[i];
-        int type=tmp_node.get_type();
-        if(type==ast_if || type==ast_elsif)
-        {
-            int condition_value_addr=calculation(tmp_node.get_children()[0],local_scope_addr);
-            if(condition_value_addr<0)
-                return rt_error;
-            bool result=check_condition(condition_value_addr);
-            nasal_vm.del_reference(condition_value_addr);
-            if(result)
-            {
-                ret_state=block_progress(tmp_node.get_children()[1],local_scope_addr,allow_return);
-                break;
-            }
-        }
-        else
-        {
-            ret_state=block_progress(tmp_node.get_children()[0],local_scope_addr,allow_return);
-            break;
-        }
-        if(error)
-            break;
-    }
-    return ret_state;
-}
-int nasal_runtime::call_scalar(nasal_ast& node,int local_scope_addr)
-{
-    int value_address=-1;
-    std::string val_name="";
-    if(node.get_children()[0].get_type()==ast_identifier)
-    {
-        val_name=node.get_children()[0].get_str();
-        if(local_scope_addr>=0)
-            value_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_value_address(val_name);
-        if(value_address<0)
-            value_address=nasal_vm.gc_get(global_scope_address).get_closure().get_value_address(val_name);
-        if(value_address<0)
-        {
-            value_address=call_builtin_function(val_name,local_scope_addr);
-            if(value_address>=0)
-                return value_address;
-        }
-        if(value_address<0)
-        {
-            if(builtin_func_hashmap.find(val_name)!=builtin_func_hashmap.end())
-                std::cout<<">> [runtime] call_scalar: call "<<val_name<<" failed.\n";
-            else
-                std::cout<<">> [runtime] call_scalar: cannot find value named \""<<val_name<<"\".\n";
-            ++error;
-            return -1;
-        }
-        nasal_vm.add_reference(value_address);
-    }
-    else
-        value_address=calculation(node.get_children()[0],local_scope_addr);
-    int call_expr_size=node.get_children().size();
-    int last_call_hash_addr=-1;
-    for(int i=1;i<call_expr_size;++i)
-    {
-        int tmp_value_addr=-1;
-        nasal_ast& call_expr=node.get_children()[i];
-        switch(call_expr.get_type())
-        {
-            case ast_call_vec:
-                tmp_value_addr=call_vector(call_expr,value_address,local_scope_addr);
-                last_call_hash_addr=-1;
-                val_name="";
-                break;
-            case ast_call_hash:
-                tmp_value_addr=call_hash(call_expr,value_address,local_scope_addr);
-                last_call_hash_addr=value_address;
-                val_name=call_expr.get_str();
-                break;
-            case ast_call_func:
-                tmp_value_addr=call_function(call_expr,val_name,value_address,last_call_hash_addr,local_scope_addr);
-                last_call_hash_addr=-1;
-                val_name="";
-                break;
-        }
-        nasal_vm.del_reference(value_address);
-        value_address=tmp_value_addr;
-        if(value_address<0)
-            break;
-    }
-    return value_address;
-}
-int nasal_runtime::call_vector(nasal_ast& node,int base_value_addr,int local_scope_addr)
-{
-    int return_value_addr=-1;
-    int base_value_type=nasal_vm.gc_get(base_value_addr).get_type();
-    if(base_value_type!=vm_vector && base_value_type!=vm_hash && base_value_type!=vm_string)
-    {
-        std::cout<<">> [runtime] call_vector: incorrect value type,expected a vector/hash/string.\n";
-        ++error;
-        return -1;
-    }
-    int call_size=node.get_children().size();
-
-    if(base_value_type==vm_vector)
-    {
-        std::vector<int> called_value_addrs;
-        nasal_vector& reference_value=nasal_vm.gc_get(base_value_addr).get_vector();
-        for(int i=0;i<call_size;++i)
-        {
-            if(node.get_children()[i].get_type()==ast_subvec)
-            {
-                nasal_ast& subvec_node=node.get_children()[i];
-                int begin_value_addr=calculation(subvec_node.get_children()[0],local_scope_addr);
-                int end_value_addr=calculation(subvec_node.get_children()[1],local_scope_addr);
-                int begin_value_type=nasal_vm.gc_get(begin_value_addr).get_type();
-                int end_value_type=nasal_vm.gc_get(end_value_addr).get_type();
-                bool begin_is_nil=true,end_is_nil=true;
-                int begin_index=0,end_index=0;
-                if(begin_value_type!=vm_nil && begin_value_type!=vm_number && begin_value_type!=vm_string)
-                {
-                    std::cout<<">> [runtime] call_vector: begin index is not a number/numerable string.\n";
-                    ++error;
-                    return -1;
-                }
-                if(end_value_type!=vm_nil && end_value_type!=vm_number && end_value_type!=vm_string)
-                {
-                    std::cout<<">> [runtime] call_vector: end index is not a number/numerable string.\n";
-                    ++error;
-                    return -1;
-                }
-                if(begin_value_type==vm_string)
-                {
-                    std::string str=nasal_vm.gc_get(begin_value_addr).get_string();
-                    if(!check_numerable_string(str))
-                    {
-                        std::cout<<">> [runtime] call_vector: begin index is not a numerable string.\n";
-                        ++error;
-                        return -1;
-                    }
-                    begin_index=(int)trans_string_to_number(str);
-                    begin_is_nil=false;
-                }
-                else if(begin_value_type==vm_number)
-                {
-                    begin_index=(int)nasal_vm.gc_get(begin_value_addr).get_number();
-                    begin_is_nil=false;
-                }
-                
-                if(end_value_type==vm_string)
-                {
-                    std::string str=nasal_vm.gc_get(end_value_addr).get_string();
-                    if(!check_numerable_string(str))
-                    {
-                        std::cout<<">> [runtime] call_vector: end index is not a numerable string.\n";
-                        ++error;
-                        return -1;
-                    }
-                    end_index=(int)trans_string_to_number(str);
-                    end_is_nil=false;
-                }
-                else if(end_value_type==vm_number)
-                {
-                    end_index=(int)nasal_vm.gc_get(end_value_addr).get_number();
-                    end_is_nil=false;
-                }
-                
-                if(begin_is_nil && end_is_nil)
-                {
-                    begin_index=0;
-                    end_index=reference_value.size()-1;
-                }
-                else if(begin_is_nil && !end_is_nil)
-                {
-                    begin_index=end_index<0? -reference_value.size():0;
-                }
-                else if(!begin_is_nil && end_is_nil)
-                {
-                    end_index=begin_index<0? -1:reference_value.size()-1;
-                }
-                else if(!begin_is_nil && !end_is_nil)
-                {
-                    if(begin_index>=end_index)
-                    {
-                        std::cout<<">> [runtime] call_vector: begin index must be less than end index.\n";
-                        ++error;
-                        return -1;
-                    }
-                }
-                for(int i=begin_index;i<end_index;++i)
-                    called_value_addrs.push_back(reference_value.get_value_address(i));
-                nasal_vm.del_reference(begin_value_addr);
-                nasal_vm.del_reference(end_value_addr);
-            }
-            else
-            {
-                int index_value_addr=calculation(node.get_children()[i],local_scope_addr);
-                int index_value_type=nasal_vm.gc_get(index_value_addr).get_type();
-                if(index_value_type!=vm_number && index_value_type!=vm_string)
-                {
-                    std::cout<<">> [runtime] call_vector: index is not a number/numerable string.\n";
-                    ++error;
-                    return -1;
-                }
-                int index_num=0;
-                if(index_value_type==vm_string)
-                {
-                    std::string str=nasal_vm.gc_get(index_value_addr).get_string();
-                    if(!check_numerable_string(str))
-                    {
-                        std::cout<<">> [runtime] call_vector: index is not a numerable string.\n";
-                        ++error;
-                        return -1;
-                    }
-                    index_num=(int)trans_string_to_number(str);
-                }
-                else
-                    index_num=(int)nasal_vm.gc_get(index_value_addr).get_number();
-                nasal_vm.del_reference(index_value_addr);
-                called_value_addrs.push_back(reference_value.get_value_address(index_num));
-            }
-        }
-        // generate sub-vector
-        if(called_value_addrs.size()==1)
-        {
-            int value_addr=called_value_addrs[0];
-            nasal_vm.add_reference(value_addr);
-            return_value_addr=value_addr;
-        }
-        else
-        {
-            return_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(return_value_addr).set_type(vm_vector);
-            nasal_vector& return_vector=nasal_vm.gc_get(return_value_addr).get_vector();
-            int vec_size=called_value_addrs.size();
-            for(int i=0;i<vec_size;++i)
-            {
-                int value_addr=called_value_addrs[i];
-                nasal_vm.add_reference(value_addr);
-                return_vector.add_elem(value_addr);
-            }
-        }
-    }
-    else if(base_value_type==vm_hash)
-    {
-        if(call_size>1)
-        {
-            std::cout<<">> [runtime] call_vector: when calling a hash,only one key is alowed.\n";
-            ++error;
-            return -1;
-        }
-        if(node.get_children()[0].get_type()==ast_subvec)
-        {
-            std::cout<<">> [runtime] call_vector: cannot slice hash.\n";
-            ++error;
-            return -1;
-        }
-        std::string str=node.get_children()[0].get_str();
-        int value_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_value_address(str);
-        nasal_vm.add_reference(value_addr);
-        return_value_addr=value_addr;
-    }
-    else
-    {
-        if(call_size>1)
-        {
-            std::cout<<">> [runtime] call_vector: when calling a string,only one index is alowed.\n";
-            ++error;
-            return -1;
-        }
-        if(node.get_children()[0].get_type()==ast_subvec)
-        {
-            std::cout<<">> [runtime] call_vector: cannot slice string.\n";
-            ++error;
-            return -1;
-        }
-        int index_value_addr=calculation(node.get_children()[0],local_scope_addr);
-        int index_value_type=nasal_vm.gc_get(index_value_addr).get_type();
-        if(index_value_type!=vm_number && index_value_type!=vm_string)
-        {
-            std::cout<<">> [runtime] call_vector: index is not a number/numerable string.\n";
-            ++error;
-            return -1;
-        }
-        int index_num=0;
-        if(index_value_type==vm_string)
-        {
-            std::string str=nasal_vm.gc_get(index_value_addr).get_string();
-            if(!check_numerable_string(str))
-            {
-                std::cout<<">> [runtime] call_vector: index is not a numerable string.\n";
-                ++error;
-                return -1;
-            }
-            index_num=(int)trans_string_to_number(str);
-        }
-        else
-            index_num=(int)nasal_vm.gc_get(index_value_addr).get_number();
-        nasal_vm.del_reference(index_value_addr);
-        return_value_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(return_value_addr).set_type(vm_number);
-        std::string str=nasal_vm.gc_get(base_value_addr).get_string();
-        int str_size=str.length();
-        if(index_num>=str_size || index_num<-str_size)
-        {
-            std::cout<<">> [runtime] call_vector: index out of range.\n";
-            ++error;
-            return -1;
-        }
-        nasal_vm.gc_get(return_value_addr).set_number((double)str[(index_num+str_size)%str_size]);
-    }
-    return return_value_addr;
-}
-int nasal_runtime::call_hash(nasal_ast& node,int base_value_addr,int local_scope_addr)
-{
-    int value_type=nasal_vm.gc_get(base_value_addr).get_type();
-    if(value_type!=vm_hash)
-    {
-        std::cout<<">> [runtime] call_hash: incorrect value type,expected a hash.\n";
-        ++error;
-        return -1;
-    }
-    int ret_value_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_value_address(node.get_str());
-    nasal_vm.add_reference(ret_value_addr);
-    return ret_value_addr;
-}
-int nasal_runtime::call_function(nasal_ast& node,std::string func_name,int base_value_addr,int last_call_hash_addr,int local_scope_addr)
-{
-    int ret_value_addr=-1;
-    int value_type=nasal_vm.gc_get(base_value_addr).get_type();
-    if(value_type!=vm_function)
-    {
-        std::cout<<">> [runtime] call_function: incorrect value type,expected a function.\n";
-        ++error;
-        return -1;
-    }
-    nasal_function& reference_of_func=nasal_vm.gc_get(base_value_addr).get_func();
-    int run_closure_addr=reference_of_func.get_closure_addr();
-    nasal_closure& run_closure=nasal_vm.gc_get(run_closure_addr).get_closure();
-    run_closure.add_scope();
-    // set self
-    if(func_name.length())
-    {
-        nasal_vm.add_reference(base_value_addr);
-        run_closure.add_new_value(func_name,base_value_addr);
-    }
-    // set hash.me
-    if(last_call_hash_addr>=0)
-    {
-        nasal_vm.add_reference(last_call_hash_addr);
-        run_closure.add_new_value("me",last_call_hash_addr);
-    }
-    nasal_ast& argument_format=reference_of_func.get_arguments();
-    if(!node.get_children().size())
-    {
-        if(argument_format.get_children().size() && argument_format.get_children()[0].get_type()!=ast_default_arg && argument_format.get_children()[0].get_type()!=ast_dynamic_id)
-        {
-            int size=argument_format.get_children().size();
-            int sum=0;
-            for(int i=0;i<size;++i)
-                sum+=(argument_format.get_children()[i].get_type()!=ast_default_arg);
-            std::cout<<">> [runtime] call_function: lack at least "<<sum<<" argument(s) but get 0.\n";
-            ++error;
-            return -1;
-        }
-        else if(argument_format.get_children().size() && argument_format.get_children()[0].get_type()==ast_dynamic_id)
-        {
-            // load null dynamic-id
-            int vector_value_addr=nasal_vm.gc_alloc();
-            nasal_vm.gc_get(vector_value_addr).set_type(vm_vector);
-            run_closure.add_new_value(argument_format.get_children()[0].get_str(),vector_value_addr);
-        }
-        else if(argument_format.get_children().size() && argument_format.get_children()[0].get_type()==ast_default_arg)
-        {
-            // load default values
-            int size=argument_format.get_children().size();
-            for(int i=0;i<size;++i)
-            {
-                int tmp_value_addr=calculation(argument_format.get_children()[i].get_children()[1],local_scope_addr);
-                if(tmp_value_addr<0)
-                    return -1;
-                run_closure.add_new_value(argument_format.get_children()[i].get_children()[0].get_str(),tmp_value_addr);
-            }
-        }
-    }
-    else if(node.get_children()[0].get_type()==ast_hashmember)
-    {
-        std::map<std::string,bool> args_usage_table;        // check arguments in argument_format is correctly used
-        std::map<std::string,bool> default_args_table;      // check default arguments
-        std::map<std::string,nasal_ast*> default_args_node; // if one of default arguments is not in use,use default value
-        // load arguments' name.
-        int arg_format_size=argument_format.get_children().size();
-        for(int i=0;i<arg_format_size;++i)
-        {
-            nasal_ast& tmp_node=argument_format.get_children()[i];
-            std::string id_name=(tmp_node.get_type()==ast_default_arg? tmp_node.get_children()[0].get_str():tmp_node.get_str());
-            args_usage_table[id_name]=false;
-            if(tmp_node.get_type()==ast_default_arg)
-            {
-                default_args_table[id_name]=false;
-                default_args_node[id_name]=&tmp_node.get_children()[1];
-            }
-        }
-        // initialize normal arguments.
-        int args_size=node.get_children().size();
-        for(int i=0;i<args_size;++i)
-        {
-            nasal_ast& tmp_node=node.get_children()[i];
-            std::string id_name=tmp_node.get_children()[0].get_str();
-            if(args_usage_table.find(id_name)==args_usage_table.end())
-            {
-                std::cout<<">> [runtime] call_function: identifier named \'"<<id_name<<"\' does not exist.\n";
-                ++error;
-                return -1;
-            }
-            else
-            {
-                args_usage_table[id_name]=true;
-                if(default_args_table.find(id_name)!=default_args_table.end())
-                    default_args_table[id_name]=true;
-            }
-            int value_addr=calculation(tmp_node.get_children()[1],local_scope_addr);
-            if(value_addr<0)
-                return -1;
-            run_closure.add_new_value(id_name,value_addr);
-        }
-        // use default value if a default-argument haven't been initialized.
-        for(std::map<std::string,bool>::iterator i=default_args_table.begin();i!=default_args_table.end();++i)
-            if(!i->second)
-            {
-                int value_addr=calculation(*default_args_node[i->first],local_scope_addr);
-                if(value_addr<0)
-                    return -1;
-                run_closure.add_new_value(i->first,value_addr);
-                args_usage_table[i->first]=true;
-            }
-        // use null vector if dynamic-identifier haven't been initialized.
-        if(argument_format.get_children().back().get_type()==ast_dynamic_id)
-        {
-            std::string dyn_str=argument_format.get_children().back().get_str();
-            if(!args_usage_table[dyn_str])
-            {
-                args_usage_table[dyn_str]=true;
-                int vector_value_addr=nasal_vm.gc_alloc();
-                nasal_vm.gc_get(vector_value_addr).set_type(vm_vector);
-                run_closure.add_new_value(dyn_str,vector_value_addr);
-            }
-        }
-        // check if each argument is initialized.
-        for(std::map<std::string,bool>::iterator i=args_usage_table.begin();i!=args_usage_table.end();++i)
-            if(!i->second)
-            {
-                std::cout<<">> [runtime] call_function: argument named \'"<<i->first<<"\' is not in use.\n";
-                ++error;
-                return -1;
-            }
-    }
-    else
-    {
-        std::vector<int> args; // store value address of input arguments
-        int size=node.get_children().size();
-        for(int i=0;i<size;++i)
-        {
-            int tmp_val_addr=calculation(node.get_children()[i],local_scope_addr);
-            if(tmp_val_addr<0)
-            {
-                std::cout<<">> [runtime] call_function: error value address when generating argument list.\n";
-                ++error;
-                return -1;
-            }
-            args.push_back(tmp_val_addr);
-        }
-        int arg_format_size=argument_format.get_children().size();
-        if(size>arg_format_size && argument_format.get_children().back().get_type()!=ast_dynamic_id)
-        {
-            std::cout<<">> [runtime] call_function: too much arguments.\n";
-            ++error;
-            return -1;
-        }
-        for(int i=0;i<arg_format_size;++i)
-        {
-            nasal_ast& tmp_node=argument_format.get_children()[i];
-            if(tmp_node.get_type()==ast_identifier || tmp_node.get_type()==ast_dynamic_id)
-            {
-                if(tmp_node.get_type()==ast_dynamic_id)
-                {
-                    int vector_value_addr=nasal_vm.gc_alloc();
-                    nasal_vm.gc_get(vector_value_addr).set_type(vm_vector);
-                    nasal_vector& ref_vec=nasal_vm.gc_get(vector_value_addr).get_vector();
-                    for(int j=i;j<size;++j)
-                        ref_vec.add_elem(args[j]);
-                    run_closure.add_new_value(tmp_node.get_str(),vector_value_addr);
-                    break;
-                }
-                if(i<size)
-                    run_closure.add_new_value(tmp_node.get_str(),args[i]);
-                else
-                {
-                    std::cout<<">> [runtime] call_function: lack argument(s).stop.\n";
-                    ++error;
-                    return -1;
-                }
-            }
-            else // default_args
-            {
-                if(i<size)
-                    run_closure.add_new_value(tmp_node.get_children()[0].get_str(),args[i]);
-                else
-                {
-                    int tmp_val_addr=calculation(tmp_node.get_children()[1],local_scope_addr);
-                    if(tmp_val_addr<0)
-                        return -1;
-                    run_closure.add_new_value(tmp_node.get_children()[0].get_str(),tmp_val_addr);
-                }
-            }
-        }
-    }
-    int ret_state=block_progress(reference_of_func.get_run_block(),run_closure_addr,true);
-    run_closure.del_scope();
-
-    if(ret_state==rt_break || ret_state==rt_continue)
-    {
-        std::cout<<">> [runtime] call_function: break and continue are not allowed to be used here.\n";
-        ++error;
-        return -1;
-    }
-    else if(ret_state==rt_error)
-        return -1;
-
-    if(function_returned_address>=0)
-    {
-        ret_value_addr=function_returned_address;
-        function_returned_address=-1;
-    }
-    else
-    {
-        ret_value_addr=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(ret_value_addr).set_type(vm_nil);
-    }
-    return ret_value_addr;
-}
-int nasal_runtime::call_builtin_function(std::string val_name,int local_scope_addr)
-{
-    int ret_value_addr=-1;
-    int builtin_func_num=-1;
-    if(builtin_func_hashmap.find(val_name)!=builtin_func_hashmap.end())
-        ret_value_addr=(this->*builtin_func_hashmap[val_name])(local_scope_addr);
-    return ret_value_addr;
-}
-int nasal_runtime::call_scalar_mem(nasal_ast& node,int local_scope_addr)
-{
-    int mem_address=-1;
-    if(node.get_type()==ast_identifier)
-    {
-        if(local_scope_addr>=0)
-            mem_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_mem_address(node.get_str());
-        if(mem_address<0)
-            mem_address=nasal_vm.gc_get(global_scope_address).get_closure().get_mem_address(node.get_str());
-        if(mem_address<0)
-        {
-            std::cout<<">> [runtime] call_scalar_mem: cannot find value named \'"<<node.get_str()<<"\'.\n";
-            ++error;
-            return -1;
-        }
-        return mem_address;
-    }
-    if(local_scope_addr>=0)
-        mem_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_mem_address(node.get_children()[0].get_str());
-    if(mem_address<0)
-        mem_address=nasal_vm.gc_get(global_scope_address).get_closure().get_mem_address(node.get_children()[0].get_str());
-    if(mem_address<0)
-    {
-        std::cout<<">> [runtime] call_scalar_mem: cannot find value named \'"<<node.get_children()[0].get_str()<<"\'.\n";
-        ++error;
-        return -1;
-    }
-    int call_expr_size=node.get_children().size();
-    for(int i=1;i<call_expr_size;++i)
-    {
-        int tmp_mem_addr=-1;
-        nasal_ast& call_expr=node.get_children()[i];
-        switch(call_expr.get_type())
-        {
-            case ast_call_vec:  tmp_mem_addr=call_vector_mem(call_expr,mem_address,local_scope_addr);break;
-            case ast_call_hash: tmp_mem_addr=call_hash_mem(call_expr,mem_address,local_scope_addr);break;
-            case ast_call_func:
-                std::cout<<">> [runtime] call_scalar_mem: cannot change the value that function returns.\n";
-                ++error;
-                return -1;
-                break;
-        }
-        mem_address=tmp_mem_addr;
-        if(mem_address<0)
-        {
-            ++error;
-            std::cout<<">> [runtime] call_scalar_mem: cannot find correct memory space.\n";
-            break;
-        }
-    }
-    return mem_address;
-}
-int nasal_runtime::call_vector_mem(nasal_ast& node,int base_mem_addr,int local_scope_addr)
-{
-    int return_mem_addr=-1;
-    int base_value_addr=nasal_vm.mem_get(base_mem_addr);
-    int base_value_type=nasal_vm.gc_get(base_value_addr).get_type();
-    if(base_value_type!=vm_vector && base_value_type!=vm_hash)
-    {
-        std::cout<<">> [runtime] call_vector_mem: incorrect value type,expected a vector/hash.\n";
-        ++error;
-        return -1;
-    }
-    int call_size=node.get_children().size();
-    if(call_size>1)
-    {
-        std::cout<<">> [runtime] call_vector_mem: when searching a memory space in a vector,only one index is alowed.\n";
-        ++error;
-        return -1;
-    }
-    if(base_value_type==vm_vector)
-    {
-        nasal_vector& reference_value=nasal_vm.gc_get(base_value_addr).get_vector();
-        if(node.get_children()[0].get_type()==ast_subvec)
-        {
-            std::cout<<">> [runtime] call_vector_mem: sub-vector in this progress is a temporary value and cannot be changed.\n";
-            ++error;
-            return -1;
-        }
-        int index_value_addr=calculation(node.get_children()[0],local_scope_addr);
-        int index_value_type=nasal_vm.gc_get(index_value_addr).get_type();
-        if(index_value_type!=vm_number && index_value_type!=vm_string)
-        {
-            std::cout<<">> [runtime] call_vector_mem: index is not a number/numerable string.\n";
-            ++error;
-            return -1;
-        }
-        int index_num=0;
-        if(index_value_type==vm_string)
-        {
-            std::string str=nasal_vm.gc_get(index_value_addr).get_string();
-            if(!check_numerable_string(str))
-            {
-                std::cout<<">> [runtime] call_vector_mem: index is not a numerable string.\n";
-                ++error;
-                return -1;
-            }
-            index_num=(int)trans_string_to_number(str);
-        }
-        else
-            index_num=(int)nasal_vm.gc_get(index_value_addr).get_number();
-        nasal_vm.del_reference(index_value_addr);
-        return_mem_addr=reference_value.get_mem_address(index_num);
-    }
-    else
-    {
-        if(call_size>1)
-        {
-            std::cout<<">> [runtime] call_vector_mem: when calling a hash,only one key is alowed.\n";
-            ++error;
-            return -1;
-        }
-        std::string str=node.get_children()[0].get_str();
-        return_mem_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_mem_address(str);
-    }
-    return return_mem_addr;
-}
-int nasal_runtime::call_hash_mem(nasal_ast& node,int base_mem_addr,int local_scope_addr)
-{
-    int base_value_addr=nasal_vm.mem_get(base_mem_addr);
-    int value_type=nasal_vm.gc_get(base_value_addr).get_type();
-    if(value_type!=vm_hash)
-    {
-        std::cout<<">> [runtime] call_hash_mem: incorrect value type,expected a hash.\n";
-        ++error;
-        return -1;
-    }
-    int ret_mem_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_mem_address(node.get_str());
-    return ret_mem_addr;
-}
-int nasal_runtime::calculation(nasal_ast& node,int local_scope_addr)
-{
-    // after this process, a new address(in nasal_vm.garbage_collector_memory) will be returned
-    int ret_address=-1;
-    int calculation_type=node.get_type();
-    if(calculation_type==ast_nil)
-    {
-        ret_address=nasal_vm.gc_alloc();
-        nasal_vm.gc_get(ret_address).set_type(vm_nil);
-    }
-    else if(calculation_type==ast_number)
-        ret_address=number_generation(node);
-    else if(calculation_type==ast_string)
-        ret_address=string_generation(node);
-    else if(calculation_type==ast_identifier)
-    {
-        if(local_scope_addr>=0)
-            ret_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_value_address(node.get_str());
-        if(ret_address<0)
-            ret_address=nasal_vm.gc_get(global_scope_address).get_closure().get_value_address(node.get_str());
-        if(ret_address<0)
-        {
-            std::cout<<">> [runtime] calculation: cannot find value named \'"<<node.get_str()<<"\'.\n";
-            ++error;
-            return -1;
-        }
-        nasal_vm.add_reference(ret_address);
-    }
-    else if(calculation_type==ast_vector)
-        ret_address=vector_generation(node,local_scope_addr);
-    else if(calculation_type==ast_hash)
-        ret_address=hash_generation(node,local_scope_addr);
-    else if(calculation_type==ast_function)
-        ret_address=function_generation(node,local_scope_addr);
-    else if(calculation_type==ast_call)
-        ret_address=call_scalar(node,local_scope_addr);
-    else if(calculation_type==ast_add)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_add(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_sub)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_sub(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_mult)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_mult(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_div)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_div(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_link)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_link(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_cmp_equal)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_equal(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_cmp_not_equal)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_not_equal(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_less_than)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_less(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_less_equal)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_less_or_equal(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_greater_than)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_greater(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_greater_equal)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_greater_or_equal(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_and)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_and(left_gc_addr,right_gc_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(left_gc_addr);
-        nasal_vm.del_reference(right_gc_addr);
-    }
-    else if(calculation_type==ast_or)
-    {
-        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
-        if(check_condition(left_gc_addr))
-            ret_address=left_gc_addr;
-        else
-        {
-            int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-            ret_address=nasal_scalar_calculator.nasal_scalar_or(left_gc_addr,right_gc_addr);
-            // delete the reference of temporary values
-            nasal_vm.del_reference(left_gc_addr);
-            nasal_vm.del_reference(right_gc_addr);
-        }
-    }
-    else if(calculation_type==ast_unary_not)
-    {
-        int addr=calculation(node.get_children()[0],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_unary_not(addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(addr);
-    }
-    else if(calculation_type==ast_unary_sub)
-    {
-        int addr=calculation(node.get_children()[0],local_scope_addr);
-        ret_address=nasal_scalar_calculator.nasal_scalar_unary_sub(addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(addr);
-    }
-    else if(calculation_type==ast_trinocular)
-    {
-        int condition_addr=calculation(node.get_children()[0],local_scope_addr);
-        if(check_condition(condition_addr))
-            ret_address=calculation(node.get_children()[1],local_scope_addr);
-        else
-            ret_address=calculation(node.get_children()[2],local_scope_addr);
-        // delete the reference of temporary values
-        nasal_vm.del_reference(condition_addr);
-    }
-    else if(calculation_type==ast_equal)
-    {
-        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
-        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        nasal_vm.mem_change(scalar_mem_space,new_scalar_gc_addr);// this progress will delete the reference to old gc_addr in scalar_mem_space
-        nasal_vm.add_reference(new_scalar_gc_addr);// this reference is reserved for ret_address
-        ret_address=new_scalar_gc_addr;
-    }
-    else if(calculation_type==ast_add_equal)
-    {
-        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
-        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
-        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        int result_val_address=nasal_scalar_calculator.nasal_scalar_add(scalar_val_space,new_scalar_gc_addr);
-        nasal_vm.del_reference(new_scalar_gc_addr);
-        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
-        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
-        ret_address=result_val_address;
-    }
-    else if(calculation_type==ast_sub_equal)
-    {
-        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
-        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
-        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        int result_val_address=nasal_scalar_calculator.nasal_scalar_sub(scalar_val_space,new_scalar_gc_addr);
-        nasal_vm.del_reference(new_scalar_gc_addr);
-        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
-        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
-        ret_address=result_val_address;
-    }
-    else if(calculation_type==ast_div_equal)
-    {
-        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
-        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
-        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        int result_val_address=nasal_scalar_calculator.nasal_scalar_div(scalar_val_space,new_scalar_gc_addr);
-        nasal_vm.del_reference(new_scalar_gc_addr);
-        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
-        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
-        ret_address=result_val_address;
-    }
-    else if(calculation_type==ast_mult_equal)
-    {
-        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
-        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
-        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        int result_val_address=nasal_scalar_calculator.nasal_scalar_mult(scalar_val_space,new_scalar_gc_addr);
-        nasal_vm.del_reference(new_scalar_gc_addr);
-        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
-        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
-        ret_address=result_val_address;
-    }
-    else if(calculation_type==ast_link_equal)
-    {
-        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
-        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
-        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
-        int result_val_address=nasal_scalar_calculator.nasal_scalar_link(scalar_val_space,new_scalar_gc_addr);
-        nasal_vm.del_reference(new_scalar_gc_addr);
-        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
-        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
-        ret_address=result_val_address;
-    }
-    else
-    {
-        std::cout<<">> [runtime] calculation: this expression cannot be calculated.expression type:"<<ast_str(node.get_type())<<".\n";
-        ++error;
-        return -1;
-    }
-    if(ret_address<0)
-    {
-        std::cout<<">> [runtime] calculation: incorrect values are used in calculation.\n";
-        ++error;
-    }
-    return ret_address;
-}
-void nasal_runtime::definition(nasal_ast& node,int local_scope_addr)
-{
-    nasal_ast& define_node=node.get_children()[0];
-    nasal_ast& value_node=node.get_children()[1];
-    if(define_node.get_type()==ast_identifier && value_node.get_type()==ast_multi_scalar)
-    {
-        std::cout<<">> [runtime] definition: one identifier cannot accept too many values.\n";
-        ++error;
-        return;
-    }
-    if(define_node.get_type()==ast_identifier)
-    {
-        std::string new_name=define_node.get_str();
-        int value_addr=calculation(value_node,local_scope_addr);
-        if(value_addr<0)
-            return;
-        nasal_vm.gc_get(local_scope_addr<0?global_scope_address:local_scope_addr).get_closure().add_new_value(new_name,value_addr);
-    }
-    else
-    {
-        std::vector<std::string> identifier_table;
-        int id_size=define_node.get_children().size();
-        for(int i=0;i<id_size;++i)
-            identifier_table.push_back(define_node.get_children()[i].get_str());
-        if(value_node.get_type()==ast_multi_scalar)
-        {
-            int val_size=value_node.get_children().size();
-            if(id_size!=val_size)
-            {
-                std::cout<<">> [runtime] definition: size of identifiers and size of values do not match.\n";
-                ++error;
-                return;
-            }
-            for(int i=0;i<val_size;++i)
-            {
-                int tmp_addr=calculation(value_node.get_children()[i],local_scope_addr);
-                nasal_vm.gc_get(local_scope_addr<0?global_scope_address:local_scope_addr).get_closure().add_new_value(identifier_table[i],tmp_addr);
-            }
-        }
-        else
-        {
-            int value_addr=calculation(value_node,local_scope_addr);
-            if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_vector)
-            {
-                std::cout<<">> [runtime] definition: must use vector in multi-definition.\n";
-                ++error;
-                return;
-            }
-            nasal_vector& ref_vector=nasal_vm.gc_get(value_addr).get_vector();
-            if(ref_vector.size()!=id_size)
-            {
-                std::cout<<">> [runtime] definition: size of identifiers and size of values do not match.\n";
-                ++error;
-                return;
-            }
-            for(int i=0;i<id_size;++i)
-            {
-                int tmp_addr=ref_vector.get_value_address(i);
-                nasal_vm.add_reference(tmp_addr);
-                nasal_vm.gc_get(local_scope_addr<0?global_scope_address:local_scope_addr).get_closure().add_new_value(identifier_table[i],tmp_addr);
-            }
-            nasal_vm.del_reference(value_addr);
-        }
-    }
-    return;
-}
-void nasal_runtime::multi_assignment(nasal_ast& node,int local_scope_addr)
-{
-    nasal_ast& multi_call_node=node.get_children()[0];
-    nasal_ast& value_node=node.get_children()[1];
-    std::vector<int> mem_table;
-    int id_size=multi_call_node.get_children().size();
-    for(int i=0;i<id_size;++i)
-    {
-        nasal_ast& tmp_node=multi_call_node.get_children()[i];
-        if(tmp_node.get_type()!=ast_call && tmp_node.get_type()!=ast_identifier)
-        {
-            std::cout<<">> [runtime] multi_assignment: multi-assignment must use available memory address.\n";
-            ++error;
-            return;
-        }
-        mem_table.push_back(call_scalar_mem(tmp_node,local_scope_addr));
-    }
-    if(value_node.get_type()==ast_multi_scalar)
-    {
-        int val_size=value_node.get_children().size();
-        if(id_size!=val_size)
-        {
-            std::cout<<">> [runtime] multi_assignment: size of calls and size of values do not match.\n";
-            ++error;
-            return;
-        }
-        std::vector<int> value_table;
-        for(int i=0;i<val_size;++i)
-            value_table.push_back(calculation(value_node.get_children()[i],local_scope_addr));
-        for(int i=0;i<val_size;++i)
-            nasal_vm.mem_change(mem_table[i],value_table[i]);
-    }
-    else
-    {
-        int value_addr=calculation(value_node,local_scope_addr);
-        if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_vector)
-        {
-            std::cout<<">> [runtime] multi_assignment: must use vector in multi-assignment.\n";
-            ++error;
-            return;
-        }
-        nasal_vector& ref_vector=nasal_vm.gc_get(value_addr).get_vector();
-        if(ref_vector.size()!=id_size)
-        {
-            std::cout<<">> [runtime] multi_assignment: size of calls and size of values do not match.\n";
-            ++error;
-            return;
-        }
-        std::vector<int> value_table;
-        for(int i=0;i<id_size;++i)
-        {
-            int tmp_addr=ref_vector.get_value_address(i);
-            nasal_vm.add_reference(tmp_addr);
-            value_table.push_back(tmp_addr);
-        }
-        for(int i=0;i<id_size;++i)
-            nasal_vm.mem_change(mem_table[i],value_table[i]);
-        nasal_vm.del_reference(value_addr);
-    }
-    return;
-}
-
+#ifndef __NASAL_RUNTIME_H__
+#define __NASAL_RUNTIME_H__
+
+enum runtime_returned_state
+{
+    rt_return=1,
+    rt_break,
+    rt_continue,
+    rt_error,
+    rt_exit_without_error
+};
+
+class nasal_runtime
+{
+private:
+    std::map<std::string,int (nasal_runtime::*)(int x)> builtin_func_hashmap;
+    // function_return_address is an address in garbage_collector_memory
+    int function_returned_address;
+    // global_scope_address is an address in garbage_collector_memory
+    int global_scope_address;
+
+    nasal_ast root;
+
+    // if error occurred,this value will add 1
+    int error;
+
+    // generate number and return gc place of this number
+    int number_generation(nasal_ast&);
+    // generate string and return gc place of this string
+    int string_generation(nasal_ast&);
+    // generate vector and return gc place of this vector
+    int vector_generation(nasal_ast&,int);
+    // generate hash and return gc place of this hash
+    int hash_generation(nasal_ast&,int);
+    // generate function and return gc place of this function
+    int function_generation(nasal_ast&,int);
+
+    /*
+        functions after this note may have parameter named 'local_scope_addr'
+        if no local scope existing when calling these functions,use -1
+    */
+
+    // main expression block running process
+    int main_progress();
+    // function/loop/conditional expression block running process
+    int block_progress(nasal_ast&,int,bool);
+    // run loop
+    int before_for_loop(nasal_ast&,int);
+    int after_each_for_loop(nasal_ast&,int);
+    int loop_progress(nasal_ast&,int,bool);
+    // run conditional
+    bool check_condition(int);
+    int conditional_progress(nasal_ast&,int,bool);
+    // get scalars in complex data structure like vector/hash/function/closure(scope)
+    int call_scalar(nasal_ast&,int);
+    int call_vector(nasal_ast&,int,int);
+    int call_hash(nasal_ast&,int,int);
+    int call_function(nasal_ast&,std::string,int,int,int);
+    int call_builtin_function(std::string,int);
+    // get scalars' memory place in complex data structure like vector/hash/function/closure(scope)
+    int call_scalar_mem(nasal_ast&,int);
+    int call_vector_mem(nasal_ast&,int,int);
+    int call_hash_mem(nasal_ast&,int,int);
+    // calculate scalars
+    int calculation(nasal_ast&,int);
+    void definition(nasal_ast&,int);
+    void multi_assignment(nasal_ast&,int);
+
+    // builtin_func defined here
+    int builtin_print(int);
+    int builtin_append(int);
+    int builtin_setsize(int);
+    int builtin_system(int);
+    int builtin_input(int);
+    int builtin_sleep(int);
+    int builtin_finput(int);
+    int builtin_foutput(int);
+    int builtin_split(int);
+    int builtin_rand(int);
+    int builtin_id(int);
+    int builtin_int(int);
+    int builtin_num(int);
+    int builtin_pop(int);
+    int builtin_str(int);
+    int builtin_size(int);
+    int builtin_xor(int);
+    int builtin_and(int);
+    int builtin_or(int);
+    int builtin_nand(int);
+    int builtin_not(int);
+    int builtin_sin(int);
+    int builtin_cos(int);
+    int builtin_tan(int);
+    int builtin_exp(int);
+    int builtin_ln(int);
+    int builtin_sqrt(int);
+    int builtin_atan2(int);
+    int builtin_time(int);
+    int builtin_contains(int);
+    int builtin_delete(int);
+    int builtin_getkeys(int);
+    int builtin_import(int);
+    int builtin_die(int);
+    int builtin_type(int);
+    void load_builtin_function();
+public:
+    nasal_runtime();
+    ~nasal_runtime();
+    void set_root(nasal_ast&);
+    void run();
+};
+
+nasal_runtime::nasal_runtime()
+{
+    error=0;
+    this->root.clear();
+    this->global_scope_address=-1;
+    this->load_builtin_function();
+    return;
+}
+nasal_runtime::~nasal_runtime()
+{
+    error=0;
+    this->root.clear();
+    this->global_scope_address=-1;
+    this->builtin_func_hashmap.clear();
+    return;
+}
+void nasal_runtime::load_builtin_function()
+{
+    struct FUNC_TABLE
+    {
+        std::string func_name;
+        int (nasal_runtime::*func_pointer)(int x);
+    } builtin_func_table[]=
+    {
+        {"nasal_call_builtin_std_cout",      nasal_runtime::builtin_print},
+        {"nasal_call_builtin_push_back",     nasal_runtime::builtin_append},
+        {"nasal_call_builtin_set_size",      nasal_runtime::builtin_setsize},
+        {"nasal_call_builtin_system",        nasal_runtime::builtin_system},
+        {"nasal_call_builtin_input",         nasal_runtime::builtin_input},
+        {"nasal_call_builtin_sleep",         nasal_runtime::builtin_sleep},
+        {"nasal_call_builtin_finput",        nasal_runtime::builtin_finput},
+        {"nasal_call_builtin_foutput",       nasal_runtime::builtin_foutput},
+        {"nasal_call_builtin_split",         nasal_runtime::builtin_split},
+        {"nasal_call_builtin_rand",          nasal_runtime::builtin_rand},
+        {"nasal_call_builtin_get_id",        nasal_runtime::builtin_id},
+        {"nasal_call_builtin_trans_int",     nasal_runtime::builtin_int},
+        {"nasal_call_builtin_trans_num",     nasal_runtime::builtin_num},
+        {"nasal_call_builtin_pop_back",      nasal_runtime::builtin_pop},
+        {"nasal_call_builtin_trans_str",     nasal_runtime::builtin_str},
+        {"nasal_call_builtin_size",          nasal_runtime::builtin_size},
+        {"nasal_call_builtin_xor",           nasal_runtime::builtin_xor},
+        {"nasal_call_builtin_and",           nasal_runtime::builtin_and},
+        {"nasal_call_builtin_or",            nasal_runtime::builtin_or},
+        {"nasal_call_builtin_nand",          nasal_runtime::builtin_nand},
+        {"nasal_call_builtin_not",           nasal_runtime::builtin_not},
+        {"nasal_call_builtin_sin",           nasal_runtime::builtin_sin},
+        {"nasal_call_builtin_cos",           nasal_runtime::builtin_cos},
+        {"nasal_call_builtin_tan",           nasal_runtime::builtin_tan},
+        {"nasal_call_builtin_exp",           nasal_runtime::builtin_exp},
+        {"nasal_call_builtin_cpp_math_ln",   nasal_runtime::builtin_ln},
+        {"nasal_call_builtin_cpp_math_sqrt", nasal_runtime::builtin_sqrt},
+        {"nasal_call_builtin_cpp_atan2",     nasal_runtime::builtin_atan2},
+        {"nasal_call_builtin_time",          nasal_runtime::builtin_time},
+        {"nasal_call_builtin_contains",      nasal_runtime::builtin_contains},
+        {"nasal_call_builtin_delete",        nasal_runtime::builtin_delete},
+        {"nasal_call_builtin_get_keys",      nasal_runtime::builtin_getkeys},
+        {"nasal_call_import",                nasal_runtime::builtin_import},
+        {"nasal_call_builtin_die",           nasal_runtime::builtin_die},
+        {"nasal_call_builtin_type",          nasal_runtime::builtin_type},
+        {"",                                 NULL}
+    };
+    for(int i=0;builtin_func_table[i].func_pointer;++i)
+        builtin_func_hashmap[builtin_func_table[i].func_name]=builtin_func_table[i].func_pointer;
+    return;
+}
+void nasal_runtime::set_root(nasal_ast& parse_result)
+{
+    this->root=parse_result;
+    return;
+}
+void nasal_runtime::run()
+{
+    this->error=0;
+    this->function_returned_address=-1;
+
+    this->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();
+
+    time_t begin_time=std::time(NULL);
+    int returned_statement=main_progress();
+    time_t end_time=std::time(NULL);
+
+    nasal_vm.gc_get(global_scope_address).get_closure().del_scope();
+    nasal_vm.del_reference(global_scope_address);
+    nasal_vm.clear();
+
+    time_t total_run_time=end_time-begin_time;
+    if(total_run_time>=1)
+    std::cout<<">> [runtime] process exited after "<<total_run_time<<"s "<<(returned_statement==rt_exit_without_error?".\n":"with errors.\n");
+    return;
+}
+
+// private functions
+int nasal_runtime::number_generation(nasal_ast& node)
+{
+    int new_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_addr).set_type(vm_number);
+    nasal_vm.gc_get(new_addr).set_number(trans_string_to_number(node.get_str()));
+    return new_addr;
+}
+int nasal_runtime::string_generation(nasal_ast& node)
+{
+    int new_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_addr).set_type(vm_string);
+    nasal_vm.gc_get(new_addr).set_string(node.get_str());
+    return new_addr;
+}
+int nasal_runtime::vector_generation(nasal_ast& node,int local_scope_addr)
+{
+    int new_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_addr).set_type(vm_vector);
+    nasal_vector& ref_of_this_vector=nasal_vm.gc_get(new_addr).get_vector();
+
+    int node_children_size=node.get_children().size();
+    for(int i=0;i<node_children_size;++i)
+        ref_of_this_vector.add_elem(calculation(node.get_children()[i],local_scope_addr));
+    return new_addr;
+}
+int nasal_runtime::hash_generation(nasal_ast& node,int local_scope_addr)
+{
+    int new_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_addr).set_type(vm_hash);
+    nasal_hash& ref_of_this_hash=nasal_vm.gc_get(new_addr).get_hash();
+    int node_children_size=node.get_children().size();
+    for(int i=0;i<node_children_size;++i)
+    {
+        nasal_ast& ref_of_hash_member_value=node.get_children()[i].get_children()[1];
+        std::string hash_member_name=node.get_children()[i].get_children()[0].get_str();
+        ref_of_this_hash.add_elem(hash_member_name,calculation(ref_of_hash_member_value,local_scope_addr));
+    }
+    return new_addr;
+}
+int nasal_runtime::function_generation(nasal_ast& node,int local_scope_addr)
+{
+    int new_addr=nasal_vm.gc_alloc();
+    nasal_vm.gc_get(new_addr).set_type(vm_function);
+    nasal_function& ref_of_this_function=nasal_vm.gc_get(new_addr).get_func();
+
+    ref_of_this_function.set_arguments(node.get_children()[0]);
+    ref_of_this_function.set_run_block(node.get_children()[1]);
+
+    if(local_scope_addr>=0)
+        ref_of_this_function.set_closure_addr(local_scope_addr);
+    else
+    {
+        int new_closure=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(new_closure).set_type(vm_closure);
+        ref_of_this_function.set_closure_addr(new_closure);
+        nasal_vm.del_reference(new_closure);
+    }
+    return new_addr;
+}
+int nasal_runtime::main_progress()
+{
+    int ret_state=rt_exit_without_error;
+    int expr_number=root.get_children().size();
+    int process_returned_value_addr=-1;
+    for(int i=0;i<expr_number;++i)
+    {
+        int node_type=root.get_children()[i].get_type();
+        switch(node_type)
+        {
+            case ast_definition:definition(root.get_children()[i],-1);break;
+            case ast_multi_assign:multi_assignment(root.get_children()[i],-1);break;
+            case ast_conditional:ret_state=conditional_progress(root.get_children()[i],-1,false);break;
+            case ast_while:case ast_for:case ast_forindex:case ast_foreach:
+                ret_state=loop_progress(root.get_children()[i],-1,false);break;
+            case ast_nil:case ast_number:case ast_string:case ast_function:break;
+            case ast_identifier:
+            case ast_vector:case ast_hash:
+            case ast_call:
+            case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
+            case ast_unary_sub:case ast_unary_not:
+            case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
+            case ast_trinocular:nasal_vm.del_reference(calculation(root.get_children()[i],-1));break;
+        }
+        switch(ret_state)
+        {
+            case rt_break:std::cout<<">> [runtime] main_progress: cannot use break in main progress.\n";++error;break;
+            case rt_continue:std::cout<<">> [runtime] main_progress: cannot use continue in main progress.\n";++error;break;
+            case rt_return:std::cout<<">> [runtime] main_progress: cannot use return in main progress.\n";++error;break;
+            case rt_error:std::cout<<">> [runtime] main_progress: error occurred when executing main progress.\n";++error;break;
+        }
+        if(error)
+        {
+            ret_state=rt_error;
+            break;
+        }
+    }
+    return ret_state;
+}
+int nasal_runtime::block_progress(nasal_ast& node,int local_scope_addr,bool allow_return)
+{
+    int ret_state=rt_exit_without_error;
+    // if local_scope does not exist,create a new one.
+    if(local_scope_addr<0)
+    {
+        local_scope_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(local_scope_addr).set_type(vm_closure);
+        nasal_vm.gc_get(local_scope_addr).get_closure().add_scope();
+    }
+    else
+    {
+        nasal_vm.add_reference(local_scope_addr);
+        nasal_vm.gc_get(local_scope_addr).get_closure().add_scope();
+    }
+    int expr_number=node.get_children().size();
+    int process_returned_value_addr=-1;
+    for(int i=0;i<expr_number;++i)
+    {
+        nasal_ast& tmp_node=node.get_children()[i];
+        int node_type=tmp_node.get_type();
+        switch(node_type)
+        {
+            case ast_definition:definition(tmp_node,local_scope_addr);break;
+            case ast_multi_assign:multi_assignment(tmp_node,local_scope_addr);break;
+            case ast_conditional:ret_state=conditional_progress(tmp_node,local_scope_addr,allow_return);break;
+            case ast_while:case ast_for:case ast_forindex:case ast_foreach:
+                ret_state=loop_progress(tmp_node,local_scope_addr,allow_return);break;
+            case ast_nil:case ast_number:case ast_string:case ast_function:break;
+            case ast_identifier:
+            case ast_vector:case ast_hash:
+            case ast_call:
+            case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
+            case ast_unary_sub:case ast_unary_not:
+            case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
+            case ast_trinocular:nasal_vm.del_reference(calculation(tmp_node,local_scope_addr));break;
+            case ast_break:ret_state=rt_break;break;
+            case ast_continue:ret_state=rt_continue;break;
+            case ast_return:
+                ret_state=rt_return;
+                if(allow_return)
+                {
+                    if(tmp_node.get_children().size())
+                        function_returned_address=calculation(tmp_node.get_children()[0],local_scope_addr);
+                    else
+                    {
+                        function_returned_address=nasal_vm.gc_alloc();
+                        nasal_vm.gc_get(function_returned_address).set_type(vm_nil);
+                    }
+                } 
+                else
+                {
+                    std::cout<<">> [runtime] block_progress: return expression is not allowed here.\n";
+                    ++error;
+                }
+                break;
+        }
+        if(ret_state==rt_error)
+        {
+            std::cout<<">> [runtime] block_progress: error occurred when executing sub-progress.\n";
+            ++error;
+        }
+        if(error || ret_state==rt_break || ret_state==rt_continue || ret_state==rt_return)
+            break;
+    }
+    nasal_vm.gc_get(local_scope_addr).get_closure().del_scope();
+    nasal_vm.del_reference(local_scope_addr);
+    return ret_state;
+}
+int nasal_runtime::before_for_loop(nasal_ast& node,int local_scope_addr)
+{
+    int before_loop_node_type=node.get_type();
+    switch(before_loop_node_type)
+    {
+        case ast_null:break;
+        case ast_definition:definition(node,local_scope_addr);break;
+        case ast_multi_assign:multi_assignment(node,local_scope_addr);break;
+        case ast_nil:case ast_number:case ast_string:case ast_function:break;
+        case ast_vector:case ast_hash:
+        case ast_call:
+        case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
+        case ast_unary_sub:case ast_unary_not:
+        case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
+        case ast_trinocular:nasal_vm.del_reference(calculation(node,local_scope_addr));break;
+        default:std::cout<<">> [runtime] before_for_loop: cannot use this expression before for-loop.\n";++error;break;
+    }
+    if(error)
+        return rt_error;
+    return rt_exit_without_error;
+}
+int nasal_runtime::after_each_for_loop(nasal_ast& node,int local_scope_addr)
+{
+    int node_type=node.get_type();
+    switch(node_type)
+    {
+        case ast_null:break;
+        case ast_definition:definition(node,local_scope_addr);break;
+        case ast_multi_assign:multi_assignment(node,local_scope_addr);break;
+        case ast_nil:case ast_number:case ast_string:case ast_function:break;
+        case ast_vector:case ast_hash:
+        case ast_call:
+        case ast_equal:case ast_add_equal:case ast_sub_equal:case ast_mult_equal:case ast_div_equal:case ast_link_equal:
+        case ast_unary_sub:case ast_unary_not:
+        case ast_add:case ast_sub:case ast_mult:case ast_div:case ast_link:
+        case ast_trinocular:nasal_vm.del_reference(calculation(node,local_scope_addr));break;
+        default:std::cout<<">> [runtime] after_each_for_loop: cannot use this expression after each for-loop.\n";++error;break;
+    }
+    if(error)
+        return rt_error;
+    return rt_exit_without_error;
+}
+int nasal_runtime::loop_progress(nasal_ast& node,int local_scope_addr,bool allow_return)
+{
+    int ret_state=rt_exit_without_error;
+    int loop_type=node.get_type();
+    if(loop_type==ast_while)
+    {
+        nasal_ast& condition_node=node.get_children()[0];
+        nasal_ast& run_block_node=node.get_children()[1];
+        // create a new local scope to store iterator if local_scope_addr=-1
+        int while_local_scope_addr=local_scope_addr;
+        if(while_local_scope_addr<0)
+        {
+            while_local_scope_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(while_local_scope_addr).set_type(vm_closure);
+            nasal_vm.gc_get(while_local_scope_addr).get_closure().add_scope();
+        }
+        else
+        {
+            nasal_vm.add_reference(local_scope_addr);
+            nasal_vm.gc_get(while_local_scope_addr).get_closure().add_scope();
+        }
+        // check condition and begin loop
+        int condition_value_addr=calculation(condition_node,while_local_scope_addr);
+        bool result=check_condition(condition_value_addr);
+        nasal_vm.del_reference(condition_value_addr);
+        while(result)
+        {
+            // return expression will be checked in block_progress
+            ret_state=block_progress(run_block_node,local_scope_addr,allow_return);
+            if(ret_state==rt_break || ret_state==rt_error || ret_state==rt_return || error)
+                break;
+            condition_value_addr=calculation(condition_node,while_local_scope_addr);
+            result=check_condition(condition_value_addr);
+            nasal_vm.del_reference(condition_value_addr);
+        }
+        nasal_vm.gc_get(while_local_scope_addr).get_closure().del_scope();
+        nasal_vm.del_reference(while_local_scope_addr);
+    }
+    else if(loop_type==ast_forindex || loop_type==ast_foreach)
+    {
+        nasal_ast& iter_node=node.get_children()[0];
+        nasal_ast& vector_node=node.get_children()[1];
+        nasal_ast& run_block_node=node.get_children()[2];
+        // check vector to make sure iterator can be used without problem
+        int vector_value_addr=calculation(vector_node,local_scope_addr);
+        if(vector_value_addr<0 || nasal_vm.gc_get(vector_value_addr).get_type()!=vm_vector)
+        {
+            std::cout<<">> [runtime] loop_progress: "<<(loop_type==ast_forindex? "forindex":"foreach")<<" gets a value that is not a vector.\n";
+            ++error;
+            return rt_error;
+        }
+        // create a new local scope to store iterator if local_scope_addr=-1
+        int forei_local_scope_addr=local_scope_addr;
+        if(forei_local_scope_addr<0)
+        {
+            forei_local_scope_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(forei_local_scope_addr).set_type(vm_closure);
+            nasal_vm.gc_get(forei_local_scope_addr).get_closure().add_scope();
+        }
+        else
+        {
+            nasal_vm.add_reference(local_scope_addr);
+            nasal_vm.gc_get(forei_local_scope_addr).get_closure().add_scope();
+        }
+        // begin loop progress
+        int mem_addr=-1;
+        if(iter_node.get_type()==ast_new_iter)
+        {
+            int new_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(new_value_addr).set_type(vm_nil);
+            std::string val_name=iter_node.get_children()[0].get_str();
+            nasal_vm.gc_get(forei_local_scope_addr).get_closure().add_new_value(val_name,new_value_addr);
+            mem_addr=nasal_vm.gc_get(forei_local_scope_addr).get_closure().get_mem_address(val_name);
+        }
+        else
+            mem_addr=call_scalar_mem(iter_node,local_scope_addr);
+        if(mem_addr<0)
+        {
+            std::cout<<">> [runtime] loop_progress: get null iterator.\n";
+            ++error;
+            return rt_error;
+        }
+        // ref_vector's size may change when running,so this loop will check size each time
+        nasal_vector& ref_vector=nasal_vm.gc_get(vector_value_addr).get_vector();
+        for(int i=0;i<ref_vector.size();++i)
+        {
+            // update iterator
+            if(loop_type==ast_forindex)
+            {
+                int new_iter_val_addr=nasal_vm.gc_alloc();
+                nasal_vm.gc_get(new_iter_val_addr).set_type(vm_number);
+                nasal_vm.gc_get(new_iter_val_addr).set_number((double)i);
+                nasal_vm.mem_change(mem_addr,new_iter_val_addr);
+            }
+            else
+            {
+                int value_addr=ref_vector.get_value_address(i);
+                nasal_vm.add_reference(value_addr);
+                nasal_vm.mem_change(mem_addr,value_addr);
+            }
+            ret_state=block_progress(run_block_node,forei_local_scope_addr,allow_return);
+            if(ret_state==rt_break || ret_state==rt_return || ret_state==rt_error || error)
+                break;
+        }
+        nasal_vm.del_reference(vector_value_addr);
+        nasal_vm.gc_get(forei_local_scope_addr).get_closure().del_scope();
+        nasal_vm.del_reference(forei_local_scope_addr);
+    }
+    else if(loop_type==ast_for)
+    {
+        nasal_ast& before_loop_node=node.get_children()[0];
+        nasal_ast& condition_node=node.get_children()[1];
+        nasal_ast& each_loop_do_node=node.get_children()[2];
+        nasal_ast& run_block_node=node.get_children()[3];
+
+        // set local scope if local_scope_addr=-1
+        int for_local_scope_addr=local_scope_addr;
+        if(for_local_scope_addr<0)
+        {
+            for_local_scope_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(for_local_scope_addr).set_type(vm_closure);
+            nasal_vm.gc_get(for_local_scope_addr).get_closure().add_scope();
+        }
+        else
+        {
+            nasal_vm.add_reference(local_scope_addr);
+            nasal_vm.gc_get(for_local_scope_addr).get_closure().add_scope();
+        }
+        // for progress
+        ret_state=before_for_loop(before_loop_node,for_local_scope_addr);
+        int condition_value_addr=calculation(condition_node,for_local_scope_addr);
+        bool result=check_condition(condition_value_addr);
+        nasal_vm.del_reference(condition_value_addr);
+        while(result)
+        {
+            if(ret_state==rt_error)
+                break;
+            ret_state=block_progress(run_block_node,for_local_scope_addr,allow_return);
+            if(ret_state==rt_error || ret_state==rt_return || ret_state==rt_break || error)
+                break;
+            ret_state=after_each_for_loop(each_loop_do_node,for_local_scope_addr);
+            condition_value_addr=calculation(condition_node,for_local_scope_addr);
+            result=check_condition(condition_value_addr);
+            nasal_vm.del_reference(condition_value_addr);
+        }
+        nasal_vm.gc_get(for_local_scope_addr).get_closure().del_scope();
+        nasal_vm.del_reference(for_local_scope_addr);
+    }
+    if(ret_state==rt_break || ret_state==rt_continue)
+        ret_state=rt_exit_without_error;
+    return ret_state;
+}
+bool nasal_runtime::check_condition(int value_addr)
+{
+    if(value_addr<0)
+        return false;
+    int type=nasal_vm.gc_get(value_addr).get_type();
+    if(type==vm_vector || type==vm_hash || type==vm_function || type==vm_closure)
+    {
+        std::cout<<">> [runtime] check_condition: error value type when checking condition.\n";
+        ++error;
+        return false;
+    }
+    else if(type==vm_string)
+    {
+        std::string str=nasal_vm.gc_get(value_addr).get_string();
+        if(!check_numerable_string(str))
+        {
+            std::cout<<">> [runtime] check_condition: error value type, \'"<<str<<"\' is not a numerable string.\n";
+            ++error;
+            return -1;
+        }
+        return (trans_string_to_number(str)!=0);
+    }
+    else if(type==vm_nil)
+        return false;
+    else if(type==vm_number)
+        return (nasal_vm.gc_get(value_addr).get_number()!=0);
+    return false;
+}
+int nasal_runtime::conditional_progress(nasal_ast& node,int local_scope_addr,bool allow_return)
+{
+    int ret_state=rt_exit_without_error;
+    int size=node.get_children().size();
+    for(int i=0;i<size;++i)
+    {
+        nasal_ast& tmp_node=node.get_children()[i];
+        int type=tmp_node.get_type();
+        if(type==ast_if || type==ast_elsif)
+        {
+            int condition_value_addr=calculation(tmp_node.get_children()[0],local_scope_addr);
+            if(condition_value_addr<0)
+                return rt_error;
+            bool result=check_condition(condition_value_addr);
+            nasal_vm.del_reference(condition_value_addr);
+            if(result)
+            {
+                ret_state=block_progress(tmp_node.get_children()[1],local_scope_addr,allow_return);
+                break;
+            }
+        }
+        else
+        {
+            ret_state=block_progress(tmp_node.get_children()[0],local_scope_addr,allow_return);
+            break;
+        }
+        if(error)
+            break;
+    }
+    return ret_state;
+}
+int nasal_runtime::call_scalar(nasal_ast& node,int local_scope_addr)
+{
+    int value_address=-1;
+    std::string val_name="";
+    if(node.get_children()[0].get_type()==ast_identifier)
+    {
+        val_name=node.get_children()[0].get_str();
+        if(local_scope_addr>=0)
+            value_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_value_address(val_name);
+        if(value_address<0)
+            value_address=nasal_vm.gc_get(global_scope_address).get_closure().get_value_address(val_name);
+        if(value_address<0)
+        {
+            value_address=call_builtin_function(val_name,local_scope_addr);
+            if(value_address>=0)
+                return value_address;
+        }
+        if(value_address<0)
+        {
+            if(builtin_func_hashmap.find(val_name)!=builtin_func_hashmap.end())
+                std::cout<<">> [runtime] call_scalar: call "<<val_name<<" failed.\n";
+            else
+                std::cout<<">> [runtime] call_scalar: cannot find value named \""<<val_name<<"\".\n";
+            ++error;
+            return -1;
+        }
+        nasal_vm.add_reference(value_address);
+    }
+    else
+        value_address=calculation(node.get_children()[0],local_scope_addr);
+    int call_expr_size=node.get_children().size();
+    int last_call_hash_addr=-1;
+    for(int i=1;i<call_expr_size;++i)
+    {
+        int tmp_value_addr=-1;
+        nasal_ast& call_expr=node.get_children()[i];
+        switch(call_expr.get_type())
+        {
+            case ast_call_vec:
+                tmp_value_addr=call_vector(call_expr,value_address,local_scope_addr);
+                last_call_hash_addr=-1;
+                val_name="";
+                break;
+            case ast_call_hash:
+                tmp_value_addr=call_hash(call_expr,value_address,local_scope_addr);
+                last_call_hash_addr=value_address;
+                val_name=call_expr.get_str();
+                break;
+            case ast_call_func:
+                tmp_value_addr=call_function(call_expr,val_name,value_address,last_call_hash_addr,local_scope_addr);
+                last_call_hash_addr=-1;
+                val_name="";
+                break;
+        }
+        nasal_vm.del_reference(value_address);
+        value_address=tmp_value_addr;
+        if(value_address<0)
+            break;
+    }
+    return value_address;
+}
+int nasal_runtime::call_vector(nasal_ast& node,int base_value_addr,int local_scope_addr)
+{
+    int return_value_addr=-1;
+    int base_value_type=nasal_vm.gc_get(base_value_addr).get_type();
+    if(base_value_type!=vm_vector && base_value_type!=vm_hash && base_value_type!=vm_string)
+    {
+        std::cout<<">> [runtime] call_vector: incorrect value type,expected a vector/hash/string.\n";
+        ++error;
+        return -1;
+    }
+    int call_size=node.get_children().size();
+
+    if(base_value_type==vm_vector)
+    {
+        std::vector<int> called_value_addrs;
+        nasal_vector& reference_value=nasal_vm.gc_get(base_value_addr).get_vector();
+        for(int i=0;i<call_size;++i)
+        {
+            if(node.get_children()[i].get_type()==ast_subvec)
+            {
+                nasal_ast& subvec_node=node.get_children()[i];
+                int begin_value_addr=calculation(subvec_node.get_children()[0],local_scope_addr);
+                int end_value_addr=calculation(subvec_node.get_children()[1],local_scope_addr);
+                int begin_value_type=nasal_vm.gc_get(begin_value_addr).get_type();
+                int end_value_type=nasal_vm.gc_get(end_value_addr).get_type();
+                bool begin_is_nil=true,end_is_nil=true;
+                int begin_index=0,end_index=0;
+                if(begin_value_type!=vm_nil && begin_value_type!=vm_number && begin_value_type!=vm_string)
+                {
+                    std::cout<<">> [runtime] call_vector: begin index is not a number/numerable string.\n";
+                    ++error;
+                    return -1;
+                }
+                if(end_value_type!=vm_nil && end_value_type!=vm_number && end_value_type!=vm_string)
+                {
+                    std::cout<<">> [runtime] call_vector: end index is not a number/numerable string.\n";
+                    ++error;
+                    return -1;
+                }
+                if(begin_value_type==vm_string)
+                {
+                    std::string str=nasal_vm.gc_get(begin_value_addr).get_string();
+                    if(!check_numerable_string(str))
+                    {
+                        std::cout<<">> [runtime] call_vector: begin index is not a numerable string.\n";
+                        ++error;
+                        return -1;
+                    }
+                    begin_index=(int)trans_string_to_number(str);
+                    begin_is_nil=false;
+                }
+                else if(begin_value_type==vm_number)
+                {
+                    begin_index=(int)nasal_vm.gc_get(begin_value_addr).get_number();
+                    begin_is_nil=false;
+                }
+                
+                if(end_value_type==vm_string)
+                {
+                    std::string str=nasal_vm.gc_get(end_value_addr).get_string();
+                    if(!check_numerable_string(str))
+                    {
+                        std::cout<<">> [runtime] call_vector: end index is not a numerable string.\n";
+                        ++error;
+                        return -1;
+                    }
+                    end_index=(int)trans_string_to_number(str);
+                    end_is_nil=false;
+                }
+                else if(end_value_type==vm_number)
+                {
+                    end_index=(int)nasal_vm.gc_get(end_value_addr).get_number();
+                    end_is_nil=false;
+                }
+                
+                if(begin_is_nil && end_is_nil)
+                {
+                    begin_index=0;
+                    end_index=reference_value.size()-1;
+                }
+                else if(begin_is_nil && !end_is_nil)
+                {
+                    begin_index=end_index<0? -reference_value.size():0;
+                }
+                else if(!begin_is_nil && end_is_nil)
+                {
+                    end_index=begin_index<0? -1:reference_value.size()-1;
+                }
+                else if(!begin_is_nil && !end_is_nil)
+                {
+                    if(begin_index>=end_index)
+                    {
+                        std::cout<<">> [runtime] call_vector: begin index must be less than end index.\n";
+                        ++error;
+                        return -1;
+                    }
+                }
+                for(int i=begin_index;i<end_index;++i)
+                    called_value_addrs.push_back(reference_value.get_value_address(i));
+                nasal_vm.del_reference(begin_value_addr);
+                nasal_vm.del_reference(end_value_addr);
+            }
+            else
+            {
+                int index_value_addr=calculation(node.get_children()[i],local_scope_addr);
+                int index_value_type=nasal_vm.gc_get(index_value_addr).get_type();
+                if(index_value_type!=vm_number && index_value_type!=vm_string)
+                {
+                    std::cout<<">> [runtime] call_vector: index is not a number/numerable string.\n";
+                    ++error;
+                    return -1;
+                }
+                int index_num=0;
+                if(index_value_type==vm_string)
+                {
+                    std::string str=nasal_vm.gc_get(index_value_addr).get_string();
+                    if(!check_numerable_string(str))
+                    {
+                        std::cout<<">> [runtime] call_vector: index is not a numerable string.\n";
+                        ++error;
+                        return -1;
+                    }
+                    index_num=(int)trans_string_to_number(str);
+                }
+                else
+                    index_num=(int)nasal_vm.gc_get(index_value_addr).get_number();
+                nasal_vm.del_reference(index_value_addr);
+                called_value_addrs.push_back(reference_value.get_value_address(index_num));
+            }
+        }
+        // generate sub-vector
+        if(called_value_addrs.size()==1)
+        {
+            int value_addr=called_value_addrs[0];
+            nasal_vm.add_reference(value_addr);
+            return_value_addr=value_addr;
+        }
+        else
+        {
+            return_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(return_value_addr).set_type(vm_vector);
+            nasal_vector& return_vector=nasal_vm.gc_get(return_value_addr).get_vector();
+            int vec_size=called_value_addrs.size();
+            for(int i=0;i<vec_size;++i)
+            {
+                int value_addr=called_value_addrs[i];
+                nasal_vm.add_reference(value_addr);
+                return_vector.add_elem(value_addr);
+            }
+        }
+    }
+    else if(base_value_type==vm_hash)
+    {
+        if(call_size>1)
+        {
+            std::cout<<">> [runtime] call_vector: when calling a hash,only one key is alowed.\n";
+            ++error;
+            return -1;
+        }
+        if(node.get_children()[0].get_type()==ast_subvec)
+        {
+            std::cout<<">> [runtime] call_vector: cannot slice hash.\n";
+            ++error;
+            return -1;
+        }
+        std::string str=node.get_children()[0].get_str();
+        int value_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_value_address(str);
+        nasal_vm.add_reference(value_addr);
+        return_value_addr=value_addr;
+    }
+    else
+    {
+        if(call_size>1)
+        {
+            std::cout<<">> [runtime] call_vector: when calling a string,only one index is alowed.\n";
+            ++error;
+            return -1;
+        }
+        if(node.get_children()[0].get_type()==ast_subvec)
+        {
+            std::cout<<">> [runtime] call_vector: cannot slice string.\n";
+            ++error;
+            return -1;
+        }
+        int index_value_addr=calculation(node.get_children()[0],local_scope_addr);
+        int index_value_type=nasal_vm.gc_get(index_value_addr).get_type();
+        if(index_value_type!=vm_number && index_value_type!=vm_string)
+        {
+            std::cout<<">> [runtime] call_vector: index is not a number/numerable string.\n";
+            ++error;
+            return -1;
+        }
+        int index_num=0;
+        if(index_value_type==vm_string)
+        {
+            std::string str=nasal_vm.gc_get(index_value_addr).get_string();
+            if(!check_numerable_string(str))
+            {
+                std::cout<<">> [runtime] call_vector: index is not a numerable string.\n";
+                ++error;
+                return -1;
+            }
+            index_num=(int)trans_string_to_number(str);
+        }
+        else
+            index_num=(int)nasal_vm.gc_get(index_value_addr).get_number();
+        nasal_vm.del_reference(index_value_addr);
+        return_value_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(return_value_addr).set_type(vm_number);
+        std::string str=nasal_vm.gc_get(base_value_addr).get_string();
+        int str_size=str.length();
+        if(index_num>=str_size || index_num<-str_size)
+        {
+            std::cout<<">> [runtime] call_vector: index out of range.\n";
+            ++error;
+            return -1;
+        }
+        nasal_vm.gc_get(return_value_addr).set_number((double)str[(index_num+str_size)%str_size]);
+    }
+    return return_value_addr;
+}
+int nasal_runtime::call_hash(nasal_ast& node,int base_value_addr,int local_scope_addr)
+{
+    int value_type=nasal_vm.gc_get(base_value_addr).get_type();
+    if(value_type!=vm_hash)
+    {
+        std::cout<<">> [runtime] call_hash: incorrect value type,expected a hash.\n";
+        ++error;
+        return -1;
+    }
+    int ret_value_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_value_address(node.get_str());
+    nasal_vm.add_reference(ret_value_addr);
+    return ret_value_addr;
+}
+int nasal_runtime::call_function(nasal_ast& node,std::string func_name,int base_value_addr,int last_call_hash_addr,int local_scope_addr)
+{
+    int ret_value_addr=-1;
+    int value_type=nasal_vm.gc_get(base_value_addr).get_type();
+    if(value_type!=vm_function)
+    {
+        std::cout<<">> [runtime] call_function: incorrect value type,expected a function.\n";
+        ++error;
+        return -1;
+    }
+    nasal_function& reference_of_func=nasal_vm.gc_get(base_value_addr).get_func();
+    int run_closure_addr=reference_of_func.get_closure_addr();
+    nasal_closure& run_closure=nasal_vm.gc_get(run_closure_addr).get_closure();
+    run_closure.add_scope();
+    // set self
+    if(func_name.length())
+    {
+        nasal_vm.add_reference(base_value_addr);
+        run_closure.add_new_value(func_name,base_value_addr);
+    }
+    // set hash.me
+    if(last_call_hash_addr>=0)
+    {
+        nasal_vm.add_reference(last_call_hash_addr);
+        run_closure.add_new_value("me",last_call_hash_addr);
+    }
+    nasal_ast& argument_format=reference_of_func.get_arguments();
+    if(!node.get_children().size())
+    {
+        if(argument_format.get_children().size() && argument_format.get_children()[0].get_type()!=ast_default_arg && argument_format.get_children()[0].get_type()!=ast_dynamic_id)
+        {
+            int size=argument_format.get_children().size();
+            int sum=0;
+            for(int i=0;i<size;++i)
+                sum+=(argument_format.get_children()[i].get_type()!=ast_default_arg);
+            std::cout<<">> [runtime] call_function: lack at least "<<sum<<" argument(s) but get 0.\n";
+            ++error;
+            return -1;
+        }
+        else if(argument_format.get_children().size() && argument_format.get_children()[0].get_type()==ast_dynamic_id)
+        {
+            // load null dynamic-id
+            int vector_value_addr=nasal_vm.gc_alloc();
+            nasal_vm.gc_get(vector_value_addr).set_type(vm_vector);
+            run_closure.add_new_value(argument_format.get_children()[0].get_str(),vector_value_addr);
+        }
+        else if(argument_format.get_children().size() && argument_format.get_children()[0].get_type()==ast_default_arg)
+        {
+            // load default values
+            int size=argument_format.get_children().size();
+            for(int i=0;i<size;++i)
+            {
+                int tmp_value_addr=calculation(argument_format.get_children()[i].get_children()[1],local_scope_addr);
+                if(tmp_value_addr<0)
+                    return -1;
+                run_closure.add_new_value(argument_format.get_children()[i].get_children()[0].get_str(),tmp_value_addr);
+            }
+        }
+    }
+    else if(node.get_children()[0].get_type()==ast_hashmember)
+    {
+        std::map<std::string,bool> args_usage_table;        // check arguments in argument_format is correctly used
+        std::map<std::string,bool> default_args_table;      // check default arguments
+        std::map<std::string,nasal_ast*> default_args_node; // if one of default arguments is not in use,use default value
+        // load arguments' name.
+        int arg_format_size=argument_format.get_children().size();
+        for(int i=0;i<arg_format_size;++i)
+        {
+            nasal_ast& tmp_node=argument_format.get_children()[i];
+            std::string id_name=(tmp_node.get_type()==ast_default_arg? tmp_node.get_children()[0].get_str():tmp_node.get_str());
+            args_usage_table[id_name]=false;
+            if(tmp_node.get_type()==ast_default_arg)
+            {
+                default_args_table[id_name]=false;
+                default_args_node[id_name]=&tmp_node.get_children()[1];
+            }
+        }
+        // initialize normal arguments.
+        int args_size=node.get_children().size();
+        for(int i=0;i<args_size;++i)
+        {
+            nasal_ast& tmp_node=node.get_children()[i];
+            std::string id_name=tmp_node.get_children()[0].get_str();
+            if(args_usage_table.find(id_name)==args_usage_table.end())
+            {
+                std::cout<<">> [runtime] call_function: identifier named \'"<<id_name<<"\' does not exist.\n";
+                ++error;
+                return -1;
+            }
+            else
+            {
+                args_usage_table[id_name]=true;
+                if(default_args_table.find(id_name)!=default_args_table.end())
+                    default_args_table[id_name]=true;
+            }
+            int value_addr=calculation(tmp_node.get_children()[1],local_scope_addr);
+            if(value_addr<0)
+                return -1;
+            run_closure.add_new_value(id_name,value_addr);
+        }
+        // use default value if a default-argument haven't been initialized.
+        for(std::map<std::string,bool>::iterator i=default_args_table.begin();i!=default_args_table.end();++i)
+            if(!i->second)
+            {
+                int value_addr=calculation(*default_args_node[i->first],local_scope_addr);
+                if(value_addr<0)
+                    return -1;
+                run_closure.add_new_value(i->first,value_addr);
+                args_usage_table[i->first]=true;
+            }
+        // use null vector if dynamic-identifier haven't been initialized.
+        if(argument_format.get_children().back().get_type()==ast_dynamic_id)
+        {
+            std::string dyn_str=argument_format.get_children().back().get_str();
+            if(!args_usage_table[dyn_str])
+            {
+                args_usage_table[dyn_str]=true;
+                int vector_value_addr=nasal_vm.gc_alloc();
+                nasal_vm.gc_get(vector_value_addr).set_type(vm_vector);
+                run_closure.add_new_value(dyn_str,vector_value_addr);
+            }
+        }
+        // check if each argument is initialized.
+        for(std::map<std::string,bool>::iterator i=args_usage_table.begin();i!=args_usage_table.end();++i)
+            if(!i->second)
+            {
+                std::cout<<">> [runtime] call_function: argument named \'"<<i->first<<"\' is not in use.\n";
+                ++error;
+                return -1;
+            }
+    }
+    else
+    {
+        std::vector<int> args; // store value address of input arguments
+        int size=node.get_children().size();
+        for(int i=0;i<size;++i)
+        {
+            int tmp_val_addr=calculation(node.get_children()[i],local_scope_addr);
+            if(tmp_val_addr<0)
+            {
+                std::cout<<">> [runtime] call_function: error value address when generating argument list.\n";
+                ++error;
+                return -1;
+            }
+            args.push_back(tmp_val_addr);
+        }
+        int arg_format_size=argument_format.get_children().size();
+        if(size>arg_format_size && argument_format.get_children().back().get_type()!=ast_dynamic_id)
+        {
+            std::cout<<">> [runtime] call_function: too much arguments.\n";
+            ++error;
+            return -1;
+        }
+        for(int i=0;i<arg_format_size;++i)
+        {
+            nasal_ast& tmp_node=argument_format.get_children()[i];
+            if(tmp_node.get_type()==ast_identifier || tmp_node.get_type()==ast_dynamic_id)
+            {
+                if(tmp_node.get_type()==ast_dynamic_id)
+                {
+                    int vector_value_addr=nasal_vm.gc_alloc();
+                    nasal_vm.gc_get(vector_value_addr).set_type(vm_vector);
+                    nasal_vector& ref_vec=nasal_vm.gc_get(vector_value_addr).get_vector();
+                    for(int j=i;j<size;++j)
+                        ref_vec.add_elem(args[j]);
+                    run_closure.add_new_value(tmp_node.get_str(),vector_value_addr);
+                    break;
+                }
+                if(i<size)
+                    run_closure.add_new_value(tmp_node.get_str(),args[i]);
+                else
+                {
+                    std::cout<<">> [runtime] call_function: lack argument(s).stop.\n";
+                    ++error;
+                    return -1;
+                }
+            }
+            else // default_args
+            {
+                if(i<size)
+                    run_closure.add_new_value(tmp_node.get_children()[0].get_str(),args[i]);
+                else
+                {
+                    int tmp_val_addr=calculation(tmp_node.get_children()[1],local_scope_addr);
+                    if(tmp_val_addr<0)
+                        return -1;
+                    run_closure.add_new_value(tmp_node.get_children()[0].get_str(),tmp_val_addr);
+                }
+            }
+        }
+    }
+    int ret_state=block_progress(reference_of_func.get_run_block(),run_closure_addr,true);
+    run_closure.del_scope();
+
+    if(ret_state==rt_break || ret_state==rt_continue)
+    {
+        std::cout<<">> [runtime] call_function: break and continue are not allowed to be used here.\n";
+        ++error;
+        return -1;
+    }
+    else if(ret_state==rt_error)
+        return -1;
+
+    if(function_returned_address>=0)
+    {
+        ret_value_addr=function_returned_address;
+        function_returned_address=-1;
+    }
+    else
+    {
+        ret_value_addr=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(ret_value_addr).set_type(vm_nil);
+    }
+    return ret_value_addr;
+}
+int nasal_runtime::call_builtin_function(std::string val_name,int local_scope_addr)
+{
+    int ret_value_addr=-1;
+    int builtin_func_num=-1;
+    if(builtin_func_hashmap.find(val_name)!=builtin_func_hashmap.end())
+        ret_value_addr=(this->*builtin_func_hashmap[val_name])(local_scope_addr);
+    return ret_value_addr;
+}
+int nasal_runtime::call_scalar_mem(nasal_ast& node,int local_scope_addr)
+{
+    int mem_address=-1;
+    if(node.get_type()==ast_identifier)
+    {
+        if(local_scope_addr>=0)
+            mem_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_mem_address(node.get_str());
+        if(mem_address<0)
+            mem_address=nasal_vm.gc_get(global_scope_address).get_closure().get_mem_address(node.get_str());
+        if(mem_address<0)
+        {
+            std::cout<<">> [runtime] call_scalar_mem: cannot find value named \'"<<node.get_str()<<"\'.\n";
+            ++error;
+            return -1;
+        }
+        return mem_address;
+    }
+    if(local_scope_addr>=0)
+        mem_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_mem_address(node.get_children()[0].get_str());
+    if(mem_address<0)
+        mem_address=nasal_vm.gc_get(global_scope_address).get_closure().get_mem_address(node.get_children()[0].get_str());
+    if(mem_address<0)
+    {
+        std::cout<<">> [runtime] call_scalar_mem: cannot find value named \'"<<node.get_children()[0].get_str()<<"\'.\n";
+        ++error;
+        return -1;
+    }
+    int call_expr_size=node.get_children().size();
+    for(int i=1;i<call_expr_size;++i)
+    {
+        int tmp_mem_addr=-1;
+        nasal_ast& call_expr=node.get_children()[i];
+        switch(call_expr.get_type())
+        {
+            case ast_call_vec:  tmp_mem_addr=call_vector_mem(call_expr,mem_address,local_scope_addr);break;
+            case ast_call_hash: tmp_mem_addr=call_hash_mem(call_expr,mem_address,local_scope_addr);break;
+            case ast_call_func:
+                std::cout<<">> [runtime] call_scalar_mem: cannot change the value that function returns.\n";
+                ++error;
+                return -1;
+                break;
+        }
+        mem_address=tmp_mem_addr;
+        if(mem_address<0)
+        {
+            ++error;
+            std::cout<<">> [runtime] call_scalar_mem: cannot find correct memory space.\n";
+            break;
+        }
+    }
+    return mem_address;
+}
+int nasal_runtime::call_vector_mem(nasal_ast& node,int base_mem_addr,int local_scope_addr)
+{
+    int return_mem_addr=-1;
+    int base_value_addr=nasal_vm.mem_get(base_mem_addr);
+    int base_value_type=nasal_vm.gc_get(base_value_addr).get_type();
+    if(base_value_type!=vm_vector && base_value_type!=vm_hash)
+    {
+        std::cout<<">> [runtime] call_vector_mem: incorrect value type,expected a vector/hash.\n";
+        ++error;
+        return -1;
+    }
+    int call_size=node.get_children().size();
+    if(call_size>1)
+    {
+        std::cout<<">> [runtime] call_vector_mem: when searching a memory space in a vector,only one index is alowed.\n";
+        ++error;
+        return -1;
+    }
+    if(base_value_type==vm_vector)
+    {
+        nasal_vector& reference_value=nasal_vm.gc_get(base_value_addr).get_vector();
+        if(node.get_children()[0].get_type()==ast_subvec)
+        {
+            std::cout<<">> [runtime] call_vector_mem: sub-vector in this progress is a temporary value and cannot be changed.\n";
+            ++error;
+            return -1;
+        }
+        int index_value_addr=calculation(node.get_children()[0],local_scope_addr);
+        int index_value_type=nasal_vm.gc_get(index_value_addr).get_type();
+        if(index_value_type!=vm_number && index_value_type!=vm_string)
+        {
+            std::cout<<">> [runtime] call_vector_mem: index is not a number/numerable string.\n";
+            ++error;
+            return -1;
+        }
+        int index_num=0;
+        if(index_value_type==vm_string)
+        {
+            std::string str=nasal_vm.gc_get(index_value_addr).get_string();
+            if(!check_numerable_string(str))
+            {
+                std::cout<<">> [runtime] call_vector_mem: index is not a numerable string.\n";
+                ++error;
+                return -1;
+            }
+            index_num=(int)trans_string_to_number(str);
+        }
+        else
+            index_num=(int)nasal_vm.gc_get(index_value_addr).get_number();
+        nasal_vm.del_reference(index_value_addr);
+        return_mem_addr=reference_value.get_mem_address(index_num);
+    }
+    else
+    {
+        if(call_size>1)
+        {
+            std::cout<<">> [runtime] call_vector_mem: when calling a hash,only one key is alowed.\n";
+            ++error;
+            return -1;
+        }
+        std::string str=node.get_children()[0].get_str();
+        return_mem_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_mem_address(str);
+    }
+    return return_mem_addr;
+}
+int nasal_runtime::call_hash_mem(nasal_ast& node,int base_mem_addr,int local_scope_addr)
+{
+    int base_value_addr=nasal_vm.mem_get(base_mem_addr);
+    int value_type=nasal_vm.gc_get(base_value_addr).get_type();
+    if(value_type!=vm_hash)
+    {
+        std::cout<<">> [runtime] call_hash_mem: incorrect value type,expected a hash.\n";
+        ++error;
+        return -1;
+    }
+    int ret_mem_addr=nasal_vm.gc_get(base_value_addr).get_hash().get_mem_address(node.get_str());
+    return ret_mem_addr;
+}
+int nasal_runtime::calculation(nasal_ast& node,int local_scope_addr)
+{
+    // after this process, a new address(in nasal_vm.garbage_collector_memory) will be returned
+    int ret_address=-1;
+    int calculation_type=node.get_type();
+    if(calculation_type==ast_nil)
+    {
+        ret_address=nasal_vm.gc_alloc();
+        nasal_vm.gc_get(ret_address).set_type(vm_nil);
+    }
+    else if(calculation_type==ast_number)
+        ret_address=number_generation(node);
+    else if(calculation_type==ast_string)
+        ret_address=string_generation(node);
+    else if(calculation_type==ast_identifier)
+    {
+        if(local_scope_addr>=0)
+            ret_address=nasal_vm.gc_get(local_scope_addr).get_closure().get_value_address(node.get_str());
+        if(ret_address<0)
+            ret_address=nasal_vm.gc_get(global_scope_address).get_closure().get_value_address(node.get_str());
+        if(ret_address<0)
+        {
+            std::cout<<">> [runtime] calculation: cannot find value named \'"<<node.get_str()<<"\'.\n";
+            ++error;
+            return -1;
+        }
+        nasal_vm.add_reference(ret_address);
+    }
+    else if(calculation_type==ast_vector)
+        ret_address=vector_generation(node,local_scope_addr);
+    else if(calculation_type==ast_hash)
+        ret_address=hash_generation(node,local_scope_addr);
+    else if(calculation_type==ast_function)
+        ret_address=function_generation(node,local_scope_addr);
+    else if(calculation_type==ast_call)
+        ret_address=call_scalar(node,local_scope_addr);
+    else if(calculation_type==ast_add)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_add(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_sub)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_sub(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_mult)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_mult(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_div)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_div(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_link)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_link(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_cmp_equal)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_equal(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_cmp_not_equal)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_not_equal(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_less_than)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_less(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_less_equal)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_less_or_equal(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_greater_than)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_greater(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_greater_equal)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_cmp_greater_or_equal(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_and)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_and(left_gc_addr,right_gc_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(left_gc_addr);
+        nasal_vm.del_reference(right_gc_addr);
+    }
+    else if(calculation_type==ast_or)
+    {
+        int left_gc_addr=calculation(node.get_children()[0],local_scope_addr);
+        if(check_condition(left_gc_addr))
+            ret_address=left_gc_addr;
+        else
+        {
+            int right_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+            ret_address=nasal_scalar_calculator.nasal_scalar_or(left_gc_addr,right_gc_addr);
+            // delete the reference of temporary values
+            nasal_vm.del_reference(left_gc_addr);
+            nasal_vm.del_reference(right_gc_addr);
+        }
+    }
+    else if(calculation_type==ast_unary_not)
+    {
+        int addr=calculation(node.get_children()[0],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_unary_not(addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(addr);
+    }
+    else if(calculation_type==ast_unary_sub)
+    {
+        int addr=calculation(node.get_children()[0],local_scope_addr);
+        ret_address=nasal_scalar_calculator.nasal_scalar_unary_sub(addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(addr);
+    }
+    else if(calculation_type==ast_trinocular)
+    {
+        int condition_addr=calculation(node.get_children()[0],local_scope_addr);
+        if(check_condition(condition_addr))
+            ret_address=calculation(node.get_children()[1],local_scope_addr);
+        else
+            ret_address=calculation(node.get_children()[2],local_scope_addr);
+        // delete the reference of temporary values
+        nasal_vm.del_reference(condition_addr);
+    }
+    else if(calculation_type==ast_equal)
+    {
+        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
+        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        nasal_vm.mem_change(scalar_mem_space,new_scalar_gc_addr);// this progress will delete the reference to old gc_addr in scalar_mem_space
+        nasal_vm.add_reference(new_scalar_gc_addr);// this reference is reserved for ret_address
+        ret_address=new_scalar_gc_addr;
+    }
+    else if(calculation_type==ast_add_equal)
+    {
+        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
+        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
+        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        int result_val_address=nasal_scalar_calculator.nasal_scalar_add(scalar_val_space,new_scalar_gc_addr);
+        nasal_vm.del_reference(new_scalar_gc_addr);
+        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
+        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
+        ret_address=result_val_address;
+    }
+    else if(calculation_type==ast_sub_equal)
+    {
+        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
+        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
+        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        int result_val_address=nasal_scalar_calculator.nasal_scalar_sub(scalar_val_space,new_scalar_gc_addr);
+        nasal_vm.del_reference(new_scalar_gc_addr);
+        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
+        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
+        ret_address=result_val_address;
+    }
+    else if(calculation_type==ast_div_equal)
+    {
+        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
+        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
+        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        int result_val_address=nasal_scalar_calculator.nasal_scalar_div(scalar_val_space,new_scalar_gc_addr);
+        nasal_vm.del_reference(new_scalar_gc_addr);
+        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
+        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
+        ret_address=result_val_address;
+    }
+    else if(calculation_type==ast_mult_equal)
+    {
+        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
+        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
+        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        int result_val_address=nasal_scalar_calculator.nasal_scalar_mult(scalar_val_space,new_scalar_gc_addr);
+        nasal_vm.del_reference(new_scalar_gc_addr);
+        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
+        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
+        ret_address=result_val_address;
+    }
+    else if(calculation_type==ast_link_equal)
+    {
+        int scalar_mem_space=call_scalar_mem(node.get_children()[0],local_scope_addr);
+        int scalar_val_space=nasal_vm.mem_get(scalar_mem_space);
+        int new_scalar_gc_addr=calculation(node.get_children()[1],local_scope_addr);
+        int result_val_address=nasal_scalar_calculator.nasal_scalar_link(scalar_val_space,new_scalar_gc_addr);
+        nasal_vm.del_reference(new_scalar_gc_addr);
+        nasal_vm.mem_change(scalar_mem_space,result_val_address);// this progress will delete the reference to old gc_addr in scalar_mem_space
+        nasal_vm.add_reference(result_val_address);// this reference is reserved for ret_address
+        ret_address=result_val_address;
+    }
+    else
+    {
+        std::cout<<">> [runtime] calculation: this expression cannot be calculated.expression type:"<<ast_str(node.get_type())<<".\n";
+        ++error;
+        return -1;
+    }
+    if(ret_address<0)
+    {
+        std::cout<<">> [runtime] calculation: incorrect values are used in calculation.\n";
+        ++error;
+    }
+    return ret_address;
+}
+void nasal_runtime::definition(nasal_ast& node,int local_scope_addr)
+{
+    nasal_ast& define_node=node.get_children()[0];
+    nasal_ast& value_node=node.get_children()[1];
+    if(define_node.get_type()==ast_identifier && value_node.get_type()==ast_multi_scalar)
+    {
+        std::cout<<">> [runtime] definition: one identifier cannot accept too many values.\n";
+        ++error;
+        return;
+    }
+    if(define_node.get_type()==ast_identifier)
+    {
+        std::string new_name=define_node.get_str();
+        int value_addr=calculation(value_node,local_scope_addr);
+        if(value_addr<0)
+            return;
+        nasal_vm.gc_get(local_scope_addr<0?global_scope_address:local_scope_addr).get_closure().add_new_value(new_name,value_addr);
+    }
+    else
+    {
+        std::vector<std::string> identifier_table;
+        int id_size=define_node.get_children().size();
+        for(int i=0;i<id_size;++i)
+            identifier_table.push_back(define_node.get_children()[i].get_str());
+        if(value_node.get_type()==ast_multi_scalar)
+        {
+            int val_size=value_node.get_children().size();
+            if(id_size!=val_size)
+            {
+                std::cout<<">> [runtime] definition: size of identifiers and size of values do not match.\n";
+                ++error;
+                return;
+            }
+            for(int i=0;i<val_size;++i)
+            {
+                int tmp_addr=calculation(value_node.get_children()[i],local_scope_addr);
+                nasal_vm.gc_get(local_scope_addr<0?global_scope_address:local_scope_addr).get_closure().add_new_value(identifier_table[i],tmp_addr);
+            }
+        }
+        else
+        {
+            int value_addr=calculation(value_node,local_scope_addr);
+            if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_vector)
+            {
+                std::cout<<">> [runtime] definition: must use vector in multi-definition.\n";
+                ++error;
+                return;
+            }
+            nasal_vector& ref_vector=nasal_vm.gc_get(value_addr).get_vector();
+            if(ref_vector.size()!=id_size)
+            {
+                std::cout<<">> [runtime] definition: size of identifiers and size of values do not match.\n";
+                ++error;
+                return;
+            }
+            for(int i=0;i<id_size;++i)
+            {
+                int tmp_addr=ref_vector.get_value_address(i);
+                nasal_vm.add_reference(tmp_addr);
+                nasal_vm.gc_get(local_scope_addr<0?global_scope_address:local_scope_addr).get_closure().add_new_value(identifier_table[i],tmp_addr);
+            }
+            nasal_vm.del_reference(value_addr);
+        }
+    }
+    return;
+}
+void nasal_runtime::multi_assignment(nasal_ast& node,int local_scope_addr)
+{
+    nasal_ast& multi_call_node=node.get_children()[0];
+    nasal_ast& value_node=node.get_children()[1];
+    std::vector<int> mem_table;
+    int id_size=multi_call_node.get_children().size();
+    for(int i=0;i<id_size;++i)
+    {
+        nasal_ast& tmp_node=multi_call_node.get_children()[i];
+        if(tmp_node.get_type()!=ast_call && tmp_node.get_type()!=ast_identifier)
+        {
+            std::cout<<">> [runtime] multi_assignment: multi-assignment must use available memory address.\n";
+            ++error;
+            return;
+        }
+        mem_table.push_back(call_scalar_mem(tmp_node,local_scope_addr));
+    }
+    if(value_node.get_type()==ast_multi_scalar)
+    {
+        int val_size=value_node.get_children().size();
+        if(id_size!=val_size)
+        {
+            std::cout<<">> [runtime] multi_assignment: size of calls and size of values do not match.\n";
+            ++error;
+            return;
+        }
+        std::vector<int> value_table;
+        for(int i=0;i<val_size;++i)
+            value_table.push_back(calculation(value_node.get_children()[i],local_scope_addr));
+        for(int i=0;i<val_size;++i)
+            nasal_vm.mem_change(mem_table[i],value_table[i]);
+    }
+    else
+    {
+        int value_addr=calculation(value_node,local_scope_addr);
+        if(value_addr<0 || nasal_vm.gc_get(value_addr).get_type()!=vm_vector)
+        {
+            std::cout<<">> [runtime] multi_assignment: must use vector in multi-assignment.\n";
+            ++error;
+            return;
+        }
+        nasal_vector& ref_vector=nasal_vm.gc_get(value_addr).get_vector();
+        if(ref_vector.size()!=id_size)
+        {
+            std::cout<<">> [runtime] multi_assignment: size of calls and size of values do not match.\n";
+            ++error;
+            return;
+        }
+        std::vector<int> value_table;
+        for(int i=0;i<id_size;++i)
+        {
+            int tmp_addr=ref_vector.get_value_address(i);
+            nasal_vm.add_reference(tmp_addr);
+            value_table.push_back(tmp_addr);
+        }
+        for(int i=0;i<id_size;++i)
+            nasal_vm.mem_change(mem_table[i],value_table[i]);
+        nasal_vm.del_reference(value_addr);
+    }
+    return;
+}
+
 #endif
\ No newline at end of file
diff --git a/pic/icon.png b/pic/icon.png
deleted file mode 100644
index 576da9f..0000000
Binary files a/pic/icon.png and /dev/null differ
diff --git a/test/ai.nas b/test/ai.nas
new file mode 100644
index 0000000..d9ca3e2
--- /dev/null
+++ b/test/ai.nas
@@ -0,0 +1,335 @@
+import("lib.nas");
+var activate_function=
+{
+    sigmoid_func:func(x)
+    {
+        return 1.0/(1.0+math.exp(-x));
+    },
+    diffsigmoid_func:func(x)
+    {
+        var t=func(x){return 1.0/(1.0+math.exp(-x));}(x);
+        return t*(1-t);
+    },
+    tanh_func:func(x)
+    {
+        var t1=math.exp(x);
+        var t2=math.exp(-x);
+        return (t1-t2)/(t1+t2);
+    },
+    difftanh_func:func(x)
+    {
+        var t1=math.exp(x);
+        var t2=math.exp(-x);
+        var t=(t1-t2)/(t1+t2);
+        return 1-t*t;
+    },
+    relu_func:func(x)
+    {
+        return x>0? x:0;
+    },
+    diffrelu_func:func(x)
+    {
+        return x>0;
+    },
+    leaky_relu_func:func(k,x)
+    {
+        return x>0? x:k*x;
+    },
+    diffleaky_relu_func:func(k,x)
+    {
+        return x>0? 1:k;
+    }
+};
+
+var matrix=
+{
+    new:func(col,row)
+    {
+        var new_mat=
+        {
+            col:col,
+            row:row,
+            mat:[]
+        };
+        for(var i=0;i<row;i+=1)
+        {
+            append(new_mat.mat,[]);
+            for(var j=0;j<col;j+=1)
+                append(new_mat.mat[i],nil);
+        }
+        return new_mat;
+    },
+    srand:func(x)
+    {
+        rand(x);
+        return nil;
+    },
+    rand_init:func(mat)
+    {
+        for(var i=0;i<mat.row;i+=1)
+            for(var j=0;j<mat.col;j+=1)
+            {
+                if(rand()>0.5)
+                    mat.mat[i][j]=-rand();
+                else
+                    mat.mat[i][j]=rand();
+            }
+        return;
+    },
+    prt_mat:func(mat)
+    {
+        var prt_s='[\n';
+        foreach(var i;mat.mat)
+        {
+            var s='[';
+            foreach(var j;i)
+                s~=(j~',');
+            s~='],\n';
+            prt_s~=s;
+        }
+        prt_s~=']';
+        print(prt_s);
+        return nil;
+    },
+    mult_mat:func(mat1,mat2)
+    {
+        if(mat1.col!=mat2.row)
+        {
+            die("[error-mult] mat1\'s col does not match mat2\'s row.");
+            return nil;
+        }
+        var new_mat=me.new(mat2.col,mat1.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+            {
+                var sum=0;
+                for(var k=0;k<mat1.col;k+=1)
+                    sum+=mat1.mat[i][k]*mat2.mat[k][j];
+                new_mat.mat[i][j]=sum;
+            }
+        return new_mat;
+    },
+    add_mat:func(mat1,mat2)
+    {
+        if(mat1.col!=mat2.col or mat1.row!=mat2.row)
+        {
+            die("[error-add] mat1\'s col or row does not match mat2\'s.");
+            return nil;
+        }
+        var new_mat=me.new(mat1.col,mat1.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=mat1.mat[i][j]+mat2.mat[i][j];
+        return new_mat;
+    },
+    sub_mat:func(mat1,mat2)
+    {
+        if(mat1.col!=mat2.col or mat1.row!=mat2.row)
+        {
+            die("[error-sub] mat1\'s col or row does not match mat2\'s.");
+            return nil;
+        }
+        var new_mat=me.new(mat1.col,mat1.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=mat1.mat[i][j]-mat2.mat[i][j];
+        return new_mat;
+    },
+    hadamard:func(mat1,mat2)
+    {
+        if(mat1.col!=mat2.col or mat1.row!=mat2.row)
+        {
+            die("[error-hadamard] mat1\'s col or row does not match mat2\'s.");
+            return nil;
+        }
+        var new_mat=me.new(mat1.col,mat1.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=mat1.mat[i][j]*mat2.mat[i][j];
+        return new_mat;
+    },
+    transpose:func(mat)
+    {
+        var new_mat=me.new(mat.row,mat.col);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=mat.mat[j][i];
+        return new_mat;
+    },
+    sigmoid:func(mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.sigmoid_func(mat.mat[i][j]);
+        return new_mat;
+    },
+    diffsigmoid:func(mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.diffsigmoid_func(mat.mat[i][j]);
+        return new_mat;
+    },
+    tanh:func(mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.tanh_func(mat.mat[i][j]);
+        return new_mat;
+    },
+    difftanh:func(mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.difftanh_func(mat.mat[i][j]);
+        return new_mat;
+    },
+    relu:func(mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.relu_func(mat.mat[i][j]);
+        return new_mat;
+    },
+    diffrelu:func(mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.diffrelu_func(mat.mat[i][j]);
+        return new_mat;
+    },
+    leaky_relu:func(k,mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.leaky_relu_func(k,mat.mat[i][j]);
+        return new_mat;
+    },
+    diffleaky_relu:func(k,mat)
+    {
+        var new_mat=me.new(mat.col,mat.row);
+        for(var i=0;i<new_mat.row;i+=1)
+            for(var j=0;j<new_mat.col;j+=1)
+                new_mat.mat[i][j]=activate_function.diffleaky_relu_func(k,mat.mat[i][j]);
+        return new_mat;
+    }
+};
+
+var bp=
+{
+    inum:2,
+    hnum:4,
+    onum:1,
+    learning_rate:nil,
+    hidden_layer:nil,
+    hidden_res:nil,
+    output_layer:nil,
+    output_res:nil,
+    result:nil,
+    training_set:[],
+    expect_set:[],
+    init:func()
+    {
+        matrix.srand(time(0));
+        me.hidden_layer=matrix.new(me.hnum,me.inum);
+        matrix.rand_init(me.hidden_layer);
+        me.output_layer=matrix.new(me.onum,me.hnum);
+        matrix.rand_init(me.output_layer);
+        return;
+    },
+    set_learning_rate:func(lr)
+    {
+        me.learning_rate=matrix.new(me.onum,1);
+        for(var i=0;i<me.onum;i+=1)
+            me.learning_rate.mat[i][0]=lr;
+        return;
+    },
+    set_training_set:func()
+    {
+        for(var i=0;i<4;i+=1)
+            append(me.training_set,matrix.new(me.inum,1));
+        me.training_set[0].mat[0][0]=0;
+        me.training_set[0].mat[0][1]=0;
+        me.training_set[1].mat[0][0]=0;
+        me.training_set[1].mat[0][1]=1;
+        me.training_set[2].mat[0][0]=1;
+        me.training_set[2].mat[0][1]=0;
+        me.training_set[3].mat[0][0]=1;
+        me.training_set[3].mat[0][1]=1;
+        return;
+    },
+    set_expect_set:func()
+    {
+        for(var i=0;i<4;i+=1)
+            append(me.expect_set,matrix.new(me.onum,1))
+        me.expect_set[0].mat[0][0]=0;
+        me.expect_set[1].mat[0][0]=1;
+        me.expect_set[2].mat[0][0]=1;
+        me.expect_set[3].mat[0][0]=0;
+        return;
+    },
+    forward:func(i)
+    {
+        var tmp=nil;
+        me.hidden_res=matrix.mult_mat(me.training_set[i],me.hidden_layer);
+        tmp=matrix.sigmoid(me.hidden_res);
+        me.output_res=matrix.mult_mat(tmp,me.output_layer);
+        tmp=matrix.sigmoid(me.output_res);
+        me.result=tmp;
+        return;
+    },
+    backward:func(i)
+    {
+        var output_diff=matrix.sub_mat(me.expect_set[i],me.result);
+        output_diff=matrix.hadamard(output_diff,me.learning_rate);
+        output_diff=matrix.hadamard(output_diff,matrix.diffsigmoid(me.output_res));
+        output_diff=matrix.mult_mat(output_diff,matrix.transpose(me.output_layer));
+        matrix.prt_mat(output_diff);
+        var hidden_diff=matrix.mult_mat();
+        matrix.prt_mat(hidden_diff);
+
+        output_layer=matrix.add_mat(output_layer,output_diff);
+        var error=0;
+        foreach(var i;tmp.mat[0])
+            error+=i;
+        error*=0.5;
+        return error;
+    },
+    training_process:func()
+    {
+        var cnt=0;
+        var error=1e8;
+        while(error>0.01)
+        {
+            error=0;
+            for(var i=0;i<4;i+=1)
+            {
+                me.forward(i);
+                error+=me.backward(i);
+            }
+            print(error);
+        }
+        return;
+    }
+};
+var main=func()
+{
+    bp.init();
+    bp.set_learning_rate(0.1);
+    bp.set_training_set();
+    bp.set_expect_set();
+    bp.training_process();
+    return nil;
+}
+
+# var (a,b,c)=[1,2,3];
+# (a,b,c)=(b,c,a);
+# print(a,b,c);
+main();
diff --git a/test/ascii-art.nas b/test/ascii-art.nas
new file mode 100644
index 0000000..bcb99ed
--- /dev/null
+++ b/test/ascii-art.nas
@@ -0,0 +1,135 @@
+import("lib.nas");
+var char_ttf=[
+    ["    ","    ","    ","    ","    ","    "],
+    ["    ████╗","   ██╔██║","  ██╔╝██║"," ███████║","██╔═══██║","╚═╝   ╚═╝"],
+    ["██████╗ ","██╔══██╗","██████╔╝","██╔══██╗","██████╔╝","╚═════╝ "],
+    [" ██████╗","██╔════╝","██║     ","██║     ","╚██████╗"," ╚═════╝"],
+    ["██████╗ ","██╔══██╗","██║  ██║","██║  ██║","██████╔╝","╚═════╝  "],
+    ["███████╗","██╔════╝","█████╗  ","██╔══╝  ","███████╗","╚══════╝"],
+    ["███████╗","██╔════╝","█████╗  ","██╔══╝  ","██║     ","╚═╝     "],
+    [" █████╗ ","██╔═══╝ ","██║ ██╗ ","██║ ╚██╗","╚█████╔╝"," ╚════╝ "],
+    ["██╗  ██╗","██║  ██║","███████║","██╔══██║","██║  ██║","╚═╝  ╚═╝"],
+    [" ██████╗","   ██╔═╝","   ██║  ","   ██║  "," ██████╗"," ╚═════╝"],
+    ["     ██╗","     ██║","     ██║","██   ██║","╚█████╔╝"," ╚════╝ "],
+    ["██╗  ██╗","██║ ██╔╝","█████╔╝ ","██╔═██╗ ","██║  ██╗","╚═╝  ╚═╝"],
+    ["██╗     ","██║     ","██║     ","██║     ","███████╗","╚══════╝"],
+    ["██╗   ██╗","███╗ ███║","████████║","██╔██╔██║","██║╚═╝██║","╚═╝   ╚═╝"],
+    ["██╗   ██╗","███╗  ██║","█████╗██║","██╔█████║","██║ ╚███║","╚═╝  ╚══╝"],
+    [" ██████╗ ","██╔═══██╗","██║   ██║","██║   ██║","╚██████╔╝"," ╚═════╝ "],
+    ["██████╗ ","██╔══██╗","██████╔╝","██╔═══╝ ","██║     ","╚═╝     "],
+    [" ██████╗ ","██╔═══██╗","██║   ██║","██║  ██╔╝","╚████╔██╗"," ╚═══╝╚═╝"],
+    ["██████╗ ","██╔══██╗","██████╔╝","██╔══██╗","██║  ██║","╚═╝  ╚═╝"],
+    ["███████╗","██╔════╝","███████╗","╚════██║","███████║","╚══════╝"],
+    ["████████╗","╚══██╔══╝","   ██║   ","   ██║   ","   ██║   ","   ╚═╝   "],
+    ["██╗   ██╗","██║   ██║","██║   ██║","██║   ██║","╚██████╔╝"," ╚═════╝ "],
+    ["██╗   ██╗","██║   ██║","██║   ██║","╚██╗ ██╔╝"," ╚████╔╝ ","  ╚═══╝  "],
+    ["██╗   ██╗","██║██╗██║","████████║","███╔═███║","██╔╝ ╚██║","╚═╝   ╚═╝"],
+    ["██╗  ██╗","╚██╗██╔╝"," ╚███╔╝ "," ██╔██╗ ","██╔╝╚██╗","╚═╝  ╚═╝"],
+    ["██╗   ██╗","╚██╗ ██╔╝"," ╚████╔╝ ","  ╚██╔╝  ","   ██║   ","   ╚═╝   "],
+    ["████████╗","╚════██╔╝","   ██╔═╝ "," ██╔═╝   ","████████╗","╚═══════╝"],
+];
+var trans_ttf=func(string)
+{
+    var str=["","","","","",""];
+    for(var i=0;i<size(string);i+=1)
+    {
+        var number=string[i];
+        if(97<=number and number<=122)
+            for(var j=0;j<6;j+=1)
+                str[j]~=char_ttf[number-96][j];
+        elsif(65<=number and number<=90)
+            for(var j=0;j<6;j+=1)
+                str[j]~=char_ttf[number-64][j];
+        else
+            for(var j=0;j<6;j+=1)
+                str[j]~=char_ttf[0][j];
+    }
+    foreach(var i;str)
+        print(i);
+    return;
+}
+var curve1=func()
+{
+    var shadow=["░","▒","▓","█","▀","▄","▐","▌"];
+    rand(100);
+    var s="";
+    for(var i=0;i<25;i+=1)
+    {
+        for(var j=0;j<100;j+=1)
+            s~=shadow[int(8*rand())];
+        s~='\n';
+    }
+    print(s);
+}
+var curve2=func()
+{
+    var table=["╚","═","╝","╔","║","╗"];
+    rand(100);
+    var s="";
+    for(var i=0;i<25;i+=1)
+    {
+        for(var j=0;j<100;j+=1)
+            s~=table[int(6*rand())];
+        s~='\n';
+    }
+    print(s);
+}
+var curve3=func()
+{
+    var block=["░░","▒▒","▓▓","██","▀▀","▄▄","▄▀","▀▄","▐▐","▌▌"];
+    rand(100);
+    var s="";
+    for(var i=0;i<25;i+=1)
+    {
+        for(var j=0;j<50;j+=1)
+            s~=block[int(10*rand())];
+        s~='\n';
+    }
+    print(s);
+}
+var curve4=func()
+{
+    var s=["","","","","",""];
+    var cnt=0;
+    foreach(var char;char_ttf)
+    {
+        cnt+=1;
+        forindex(var i;char)
+            s[i]~=char[i];
+        if(cnt==9)
+        {
+            forindex(var i;s)
+            {
+                print(s[i]);
+                s[i]='';
+            }
+            cnt=0;
+        }
+    }
+    return;
+}
+var curve5=func()
+{
+    for(var loop=0;loop<100;loop+=1)
+    {
+        var arr=[0,1,2,3,4,5,6,7,8,0,1,2,3,4,5,6,7,8];
+        for(var i=17;i>=0;i-=1)
+        {
+            var rand_index=int(i*rand());
+            (arr[i],arr[rand_index])=(arr[rand_index],arr[i]);
+        }
+        #            0   1   2   3   4   5   6   7   8
+        var shadow=[" ","░","▒","▓","█","▀","▄","▐","▌"];
+        var s="";
+        for(var i=0;i<size(arr);i+=1)
+                s~=shadow[arr[i]];
+            print(s);
+    }
+    return;
+}
+trans_ttf("just for test");
+curve1();
+curve2();
+curve3();
+curve4();
+curve5();
\ No newline at end of file
diff --git a/testing_files/auto_crash.nas b/test/auto_crash.nas
similarity index 97%
rename from testing_files/auto_crash.nas
rename to test/auto_crash.nas
index 0d213d6..597e858 100644
--- a/testing_files/auto_crash.nas
+++ b/test/auto_crash.nas
@@ -1,83 +1,83 @@
-# Road check and auto pilot(??) by ValKmjolnir
-
-var position_change = func(position_val,value){
-    if(position_val+value>180)
-        position_val += value-360;
-    else if(position_val+value<-180)
-        position_val += value+360;
-    else
-        position_val += value;
-    return position_val;
-}
-var road_check_func = func(){
-    
-    var lat = props.getNode("/position/latitude-deg",1).getValue();
-    var lon = props.getNode("/position/longitude-deg",1).getValue();
-    var position_info = geodinfo(lat,lon);
-    var position_names = position_info[1].names;
-    # the friction_factor of freeway runway and road is 1
-
-    if((position_names[0]=="Freeway") or (position_names[0]=="Road"))
-    {
-        var car_heading = 0;
-        var lat_change  = 0;
-        var lon_change  = 0;
-        var left_range  = 0;
-        var right_range = 0;
-        
-        for(var i=0;i>-0.00005;i-=0.000001)
-        {
-            car_heading = props.getNode("/orientation/heading-deg",1).getValue();
-            lat_change  = math.sin(math.pi*car_heading/180);
-            lon_change  = -math.cos(math.pi*car_heading/180);
-            lat = props.getNode("/position/latitude-deg",1).getValue()+0.0001*math.cos(math.pi*car_heading/180);
-            lon = props.getNode("/position/longitude-deg",1).getValue()+0.0001*math.sin(math.pi*car_heading/180);
-            var other_position_info = geodinfo(position_change(lat,i*lat_change),position_change(lon,i*lon_change));
-            var other_names = other_position_info[1].names;
-            if((other_names[0]=="Freeway") or (other_names[0]=="Road"))
-                right_range += 1;
-            else
-                break;
-        }
-        for(var i=0;i<0.00005;i+=0.000001)
-        {
-            car_heading = props.getNode("/orientation/heading-deg",1).getValue();
-            lat_change  = math.sin(math.pi*car_heading/180);
-            lon_change  = -math.cos(math.pi*car_heading/180);
-            lat = props.getNode("/position/latitude-deg",1).getValue()+0.0001*math.cos(math.pi*car_heading/180);
-            lon = props.getNode("/position/longitude-deg",1).getValue()+0.0001*math.sin(math.pi*car_heading/180);
-            var other_position_info = geodinfo(position_change(lat,i*lat_change),position_change(lon,i*lon_change));
-            var other_names = other_position_info[1].names;
-            if((other_names[0]=="Freeway") or (other_names[0]=="Road"))
-                left_range+=1;
-            else
-                break;
-        }
-        #if(left_range>right_range)
-        #{
-        #    setprop("/controls/flight/rudder",-(right_range-left_range)*(right_range-left_range)/10000);
-        #    print("right ",right_range);
-        #}
-        #else if(left_range<right_range)
-        #{
-        #    setprop("/controls/flight/rudder",(right_range-left_range)*(right_range-left_range)/10000);
-        #    print("left ",left_range);
-        #}
-        #else
-        #    setprop("/controls/flight/rudder",0);
-        props.getNode("/controls/flight/rudder",1).setValue((right_range-left_range)/200);
-    }
-};
-var road_check_timer = maketimer(0.1,road_check_func);
-var toggle_auto_pilot = func(){
-    if(!road_check_timer.isRunning)
-    {
-        road_check_timer.start();
-        props.getNode("/sim/messages/copilot",1).setValue("ze dong sheng teaan see tong yee tse yung. Auto Sheng Teaan System Activated!");
-    }
-    else
-    {
-        road_check_timer.stop();
-        props.getNode("/sim/messages/copilot",1).setValue("ze dong sheng teaan see tong yee guan bee. Auto Sheng Teaan System is off.");
-    }
+# Road check and auto pilot(??) by ValKmjolnir
+
+var position_change = func(position_val,value){
+    if(position_val+value>180)
+        position_val += value-360;
+    else if(position_val+value<-180)
+        position_val += value+360;
+    else
+        position_val += value;
+    return position_val;
+}
+var road_check_func = func(){
+    
+    var lat = props.getNode("/position/latitude-deg",1).getValue();
+    var lon = props.getNode("/position/longitude-deg",1).getValue();
+    var position_info = geodinfo(lat,lon);
+    var position_names = position_info[1].names;
+    # the friction_factor of freeway runway and road is 1
+
+    if((position_names[0]=="Freeway") or (position_names[0]=="Road"))
+    {
+        var car_heading = 0;
+        var lat_change  = 0;
+        var lon_change  = 0;
+        var left_range  = 0;
+        var right_range = 0;
+        
+        for(var i=0;i>-0.00005;i-=0.000001)
+        {
+            car_heading = props.getNode("/orientation/heading-deg",1).getValue();
+            lat_change  = math.sin(math.pi*car_heading/180);
+            lon_change  = -math.cos(math.pi*car_heading/180);
+            lat = props.getNode("/position/latitude-deg",1).getValue()+0.0001*math.cos(math.pi*car_heading/180);
+            lon = props.getNode("/position/longitude-deg",1).getValue()+0.0001*math.sin(math.pi*car_heading/180);
+            var other_position_info = geodinfo(position_change(lat,i*lat_change),position_change(lon,i*lon_change));
+            var other_names = other_position_info[1].names;
+            if((other_names[0]=="Freeway") or (other_names[0]=="Road"))
+                right_range += 1;
+            else
+                break;
+        }
+        for(var i=0;i<0.00005;i+=0.000001)
+        {
+            car_heading = props.getNode("/orientation/heading-deg",1).getValue();
+            lat_change  = math.sin(math.pi*car_heading/180);
+            lon_change  = -math.cos(math.pi*car_heading/180);
+            lat = props.getNode("/position/latitude-deg",1).getValue()+0.0001*math.cos(math.pi*car_heading/180);
+            lon = props.getNode("/position/longitude-deg",1).getValue()+0.0001*math.sin(math.pi*car_heading/180);
+            var other_position_info = geodinfo(position_change(lat,i*lat_change),position_change(lon,i*lon_change));
+            var other_names = other_position_info[1].names;
+            if((other_names[0]=="Freeway") or (other_names[0]=="Road"))
+                left_range+=1;
+            else
+                break;
+        }
+        #if(left_range>right_range)
+        #{
+        #    setprop("/controls/flight/rudder",-(right_range-left_range)*(right_range-left_range)/10000);
+        #    print("right ",right_range);
+        #}
+        #else if(left_range<right_range)
+        #{
+        #    setprop("/controls/flight/rudder",(right_range-left_range)*(right_range-left_range)/10000);
+        #    print("left ",left_range);
+        #}
+        #else
+        #    setprop("/controls/flight/rudder",0);
+        props.getNode("/controls/flight/rudder",1).setValue((right_range-left_range)/200);
+    }
+};
+var road_check_timer = maketimer(0.1,road_check_func);
+var toggle_auto_pilot = func(){
+    if(!road_check_timer.isRunning)
+    {
+        road_check_timer.start();
+        props.getNode("/sim/messages/copilot",1).setValue("ze dong sheng teaan see tong yee tse yung. Auto Sheng Teaan System Activated!");
+    }
+    else
+    {
+        road_check_timer.stop();
+        props.getNode("/sim/messages/copilot",1).setValue("ze dong sheng teaan see tong yee guan bee. Auto Sheng Teaan System is off.");
+    }
 }
\ No newline at end of file
diff --git a/test/bp.nas b/test/bp.nas
new file mode 100644
index 0000000..25eea91
--- /dev/null
+++ b/test/bp.nas
@@ -0,0 +1,153 @@
+import("lib.nas");
+
+rand(time(0));
+
+var new_neuron=func()
+{
+    var neuron={
+        in:0,
+        out:0,
+        w:[],
+        bia:0,
+        diff:0
+    };
+    return neuron;
+}
+
+var sigmoid=func(x)
+{
+    return 1/(1+math.exp(-x));
+}
+var diffsigmoid=func(x)
+{
+    x=sigmoid(x);
+    return x*(1-x);
+}
+
+var inum=2;
+var hnum=4;
+var onum=1;
+var lr=0.1;
+var training_set=[[0,0],[0,1],[1,0],[1,1]];
+var expect=[[0],[1],[1],[0]];
+
+var hidden=[];
+for(var i=0;i<hnum;i+=1)
+{
+    append(hidden,new_neuron());
+    for(var j=0;j<inum;j+=1)
+        append(hidden[i].w,2*rand());
+    hidden[i].bia=5*rand();
+}
+
+var output=[];
+for(var i=0;i<onum;i+=1)
+{
+    append(output,new_neuron());
+    for(var j=0;j<hnum;j+=1)
+        append(output[i].w,2*rand());
+    output[i].bia=5*rand();
+}
+
+var forward=func(x)
+{
+    var input=training_set[x];
+    for(var i=0;i<hnum;i+=1)
+    {
+        hidden[i].in=hidden[i].bia;
+        for(var j=0;j<inum;j+=1)
+            hidden[i].in+=hidden[i].w[j]*input[j];
+        hidden[i].out=sigmoid(hidden[i].in);
+    }
+    for(var i=0;i<onum;i+=1)
+    {
+        output[i].in=output[i].bia;
+        for(var j=0;j<hnum;j+=1)
+            output[i].in+=output[i].w[j]*hidden[j].out;
+        output[i].out=sigmoid(output[i].in);
+    }
+    return;
+}
+var run=func(vec)
+{
+    var input=vec;
+    for(var i=0;i<hnum;i+=1)
+    {
+        hidden[i].in=hidden[i].bia;
+        for(var j=0;j<inum;j+=1)
+            hidden[i].in+=hidden[i].w[j]*input[j];
+        hidden[i].out=sigmoid(hidden[i].in);
+    }
+    for(var i=0;i<onum;i+=1)
+    {
+        output[i].in=output[i].bia;
+        for(var j=0;j<hnum;j+=1)
+            output[i].in+=output[i].w[j]*hidden[j].out;
+        output[i].out=sigmoid(output[i].in);
+    }
+    return;
+}
+var get_error=func(x)
+{
+    var error=0;
+    var expect_set=expect[x];
+    for(var i=0;i<onum;i+=1)
+        error+=(expect_set[i]-output[i].out)*(expect_set[i]-output[i].out);
+    error*=0.5;
+    return error;
+}
+var backward=func(x)
+{
+    var input=training_set[x];
+    var expect_set=expect[x];
+    for(var i=0;i<onum;i+=1)
+        output[i].diff=(expect_set[i]-output[i].out)*diffsigmoid(output[i].in);
+    for(var i=0;i<hnum;i+=1)
+    {
+        hidden[i].diff=0;
+        for(var j=0;j<onum;j+=1)
+            hidden[i].diff+=output[j].w[i]*output[j].diff;
+        hidden[i].diff*=diffsigmoid(hidden[i].in);
+    }
+    for(var i=0;i<hnum;i+=1)
+    {
+        hidden[i].bia+=hidden[i].diff;
+        for(var j=0;j<inum;j+=1)
+            hidden[i].w[j]+=hidden[i].diff*input[j];
+    }
+    for(var i=0;i<onum;i+=1)
+    {
+        output[i].bia+=output[i].diff;
+        for(var j=0;j<hnum;j+=1)
+            output[i].w[j]+=output[i].diff*hidden[j].out;
+    }
+    return;
+}
+
+var cnt=0;
+var error=1e8;
+while(error>0.01)
+{
+    error=0;
+    for(var i=0;i<4;i+=1)
+    {
+        forward(i);
+        error+=get_error(i);
+        backward(i);
+    }
+    cnt+=1;
+    print('epoch ',cnt,':',error);
+}
+print('\afinished.');
+while(1)
+{
+    var vec=[];
+    var command=input();
+    if(command=="exit")break;
+    append(vec,num(command));
+    command=input();
+    if(command=="exit")break;
+    append(vec,num(command));
+    run(vec);
+    print(output[0].out);
+}
\ No newline at end of file
diff --git a/testing_files/call_ide.txt b/test/call_ide.nas
similarity index 93%
rename from testing_files/call_ide.txt
rename to test/call_ide.nas
index 95ae9c3..4d593bb 100644
--- a/testing_files/call_ide.txt
+++ b/test/call_ide.nas
@@ -1,30 +1,30 @@
-id[0] and id[1];
-1 or 2;
-"str" ==1;
-1*1/1+1;
-2*3*4/1-2+3;
-1-1+20-2*10;
-1+s1*(s2+s3[0])-1;
-var e=1+s1*(s2+s3[0])-1;
-id;
-"str";
-id(id);
-id("str",1,1);
-var e=1;
-var x=10*2-20;
-var id;
-var id=[1,2,3,4];
-var id={id:"str"};
-id();
-id.id();
-id.id.id();
-id[0].id.id(id,"str",1,2,3,4).id[10];
-id(0)[1].id;
-var hash={
-   h:"hello",
-   parent:[id],
-};
-function_test([1,2,3,4,55],1,2,3,{str:"str"});
-var (i,j,k,l,m,n) =[1,2,3,4,5,6];
-(var i,j,k)=[1,2,3];
+id[0] and id[1];
+1 or 2;
+"str" ==1;
+1*1/1+1;
+2*3*4/1-2+3;
+1-1+20-2*10;
+1+s1*(s2+s3[0])-1;
+var e=1+s1*(s2+s3[0])-1;
+id;
+"str";
+id(id);
+id("str",1,1);
+var e=1;
+var x=10*2-20;
+var id;
+var id=[1,2,3,4];
+var id={id:"str"};
+id();
+id.id();
+id.id.id();
+id[0].id.id(id,"str",1,2,3,4).id[10];
+id(0)[1].id;
+var hash={
+   h:"hello",
+   parent:[id],
+};
+function_test([1,2,3,4,55],1,2,3,{str:"str"});
+var (i,j,k,l,m,n) =[1,2,3,4,5,6];
+(var i,j,k)=[1,2,3];
 e=e[1:][0];
\ No newline at end of file
diff --git a/testing_files/choose.txt b/test/choose.nas
similarity index 92%
rename from testing_files/choose.txt
rename to test/choose.nas
index 9d5ecf5..617b966 100644
--- a/testing_files/choose.txt
+++ b/test/choose.nas
@@ -1,38 +1,38 @@
-if(this_token.type==__if)
-{
-    parse.push(this_token);
-    return;
-}
-elsif(this_token.type==__elsif)
-{
-    parse.push(this_token);
-    return;
-}
-else if(this_token.type!=__else)
-{
-    exit(0);
-}
-elsif(this_token.type==__elsif)
-{
-    parse.push(this_token);
-    return;
-}
-elsif(this_token.type==__elsif)
-{
-    parse.push(this_token);
-    return;
-}
-else if(this==(1+2+3*1))
-{
-    return nil;
-}
-else
-{
-    parse.push(this_token);
-    return;
-}
-
-if(!id)
-{
-    exit(0);
-}
+if(this_token.type==__if)
+{
+    parse.push(this_token);
+    return;
+}
+elsif(this_token.type==__elsif)
+{
+    parse.push(this_token);
+    return;
+}
+else if(this_token.type!=__else)
+{
+    exit(0);
+}
+elsif(this_token.type==__elsif)
+{
+    parse.push(this_token);
+    return;
+}
+elsif(this_token.type==__elsif)
+{
+    parse.push(this_token);
+    return;
+}
+else if(this==(1+2+3*1))
+{
+    return nil;
+}
+else
+{
+    parse.push(this_token);
+    return;
+}
+
+if(!id)
+{
+    exit(0);
+}
diff --git a/testing_files/first_pro.nas b/test/first_pro.nas
similarity index 96%
rename from testing_files/first_pro.nas
rename to test/first_pro.nas
index 26e62d7..37cd2c1 100644
--- a/testing_files/first_pro.nas
+++ b/test/first_pro.nas
@@ -1,6 +1,6 @@
-print("hello world!\n");
-print("This is the first program for nasal--\n");
-var cnt=0;
-for(var i=1;i<101;i+=1)
-    cnt+=i;
+print("hello world!\n");
+print("This is the first program for nasal--\n");
+var cnt=0;
+for(var i=1;i<101;i+=1)
+    cnt+=i;
 print(cnt);
\ No newline at end of file
diff --git a/testing_files/func.txt b/test/func.nas
similarity index 95%
rename from testing_files/func.txt
rename to test/func.nas
index 023e5bd..bc335ce 100644
--- a/testing_files/func.txt
+++ b/test/func.nas
@@ -1,10 +1,10 @@
-var f=func(n,m,dynamic...)
-{
-    print(n+m," ",dynamic);
-    n=dynamic;
-    m=dynamic;
-    n+=m;
-    return dynamic;
-};
-print(f(1,1,0,0,0,0,0,(1+2+3+(1+2+3+4)))[3]);
+var f=func(n,m,dynamic...)
+{
+    print(n+m," ",dynamic);
+    n=dynamic;
+    m=dynamic;
+    n+=m;
+    return dynamic;
+};
+print(f(1,1,0,0,0,0,0,(1+2+3+(1+2+3+4)))[3]);
 function([0,1,2,3],{str:"str"});
\ No newline at end of file
diff --git a/testing_files/loop.txt b/test/loop.nas
similarity index 91%
rename from testing_files/loop.txt
rename to test/loop.nas
index 82319e9..0109613 100644
--- a/testing_files/loop.txt
+++ b/test/loop.nas
@@ -1,38 +1,38 @@
-while(n==1 )
-{
-    i=i+1;
-    f(i);
-    print("str");
-}
-
-while(n==1 and "str"==str)
-{
-    print("str");
-}
-
-i+=i1;
-i+=i.i[0];
-i=i.i[0].i(0);
-var hash={
-    f:func {var e=1;return 0;},
-};
-for(var i=0;i<1024;i+=1)
-{
-    print(i);
-}
-for(var i=0;(2*512)>=i;i+=1)
-{
-    print(i);
-}
-foreach(var i;[1+(1+1),2,3,4])
-{
-    print(i);
-}
-forindex(var i=list;[1,2,3,4])
-{
-    print(i[0]);
-}
-while(!id)
-{
-    print("yes");
+while(n==1 )
+{
+    i=i+1;
+    f(i);
+    print("str");
+}
+
+while(n==1 and "str"==str)
+{
+    print("str");
+}
+
+i+=i1;
+i+=i.i[0];
+i=i.i[0].i(0);
+var hash={
+    f:func {var e=1;return 0;},
+};
+for(var i=0;i<1024;i+=1)
+{
+    print(i);
+}
+for(var i=0;(2*512)>=i;i+=1)
+{
+    print(i);
+}
+foreach(var i;[1+(1+1),2,3,4])
+{
+    print(i);
+}
+forindex(var i=list;[1,2,3,4])
+{
+    print(i[0]);
+}
+while(!id)
+{
+    print("yes");
 }
\ No newline at end of file
diff --git a/testing_files/nasal_test.nas b/test/nasal_test.nas
similarity index 100%
rename from testing_files/nasal_test.nas
rename to test/nasal_test.nas
diff --git a/version1.2/ast.h b/version1.2/ast.h
deleted file mode 100644
index 688cabb..0000000
--- a/version1.2/ast.h
+++ /dev/null
@@ -1,189 +0,0 @@
-#ifndef __NASAL_ABSTRACT_SYNTAX_TREE_RUN_H__
-#define __NASAL_ABSTRACT_SYNTAX_TREE_RUN_H__
-
-class abstract_syntax_tree
-{
-	private:
-		int ast_node_type;
-		double var_number;
-		std::string var_string;
-		std::string var_name;
-		std::list<abstract_syntax_tree> children;
-	public:
-		abstract_syntax_tree()
-		{
-			ast_node_type=0;
-			var_number=0;
-			var_string="";
-			var_name="";
-			children.clear();
-			return;
-		}
-		abstract_syntax_tree(const abstract_syntax_tree& p)
-		{
-			ast_node_type=p.ast_node_type;
-			var_number=p.var_number;
-			var_string=p.var_string;
-			var_name=p.var_name;
-			children=p.children;
-			return;
-		}
-		abstract_syntax_tree& operator=(const abstract_syntax_tree& p)
-		{
-			ast_node_type=p.ast_node_type;
-			var_number=p.var_number;
-			var_string=p.var_string;
-			var_name=p.var_name;
-			children.clear();
-			children=p.children;
-			return *this;
-		}
-		void set_clear()
-		{
-			ast_node_type=0;
-			var_number=0;
-			var_string="";
-			var_name="";
-			children.clear();
-			return;
-		}
-		void print_tree(const int n)
-		{
-			std::string str="";
-			for(int i=0;i<n;++i)
-				str+="| ";
-			std::cout<<str;
-			print_token(ast_node_type);
-			switch(ast_node_type)
-			{
-				case __number:std::cout<<": "<<var_number;break;
-				case __string:std::cout<<": "<<var_string;break;
-				case __id:
-				case __list_search:
-				case __hash_search:
-				case __call_function:std::cout<<": "<<var_name;break;
-			}
-			std::cout<<std::endl;
-			if(!children.empty())
-			{
-				for(auto i=children.begin();i!=children.end();++i)
-					i->print_tree(n+1);
-			}
-			return;
-		}
-		void set_node_type(const int type)
-		{
-			ast_node_type=type;
-			return;
-		}
-		void set_var_string(std::string str)
-		{
-			var_string=str;
-			return;
-		}
-		void set_var_number(std::string str)
-		{
-			if(str=="nil")
-			{
-				var_number=0;
-				return;
-			}
-			if((int)str.length()>2 && (str[1]=='x' || str[1]=='o'))
-			{
-				if(str[1]=='x')
-				{
-					int num=0;
-					int pw=1;
-					for(int i=(int)str.length()-1;i>1;--i)
-					{
-						if('0'<=str[i] && str[i]<='9')
-							num+=(str[i]-'0')*pw;
-						else if('a'<=str[i] && str[i]<='f')
-							num+=(10+str[i]-'a')*pw;
-						else if('A'<=str[i] && str[i]<='F')
-							num+=(10+str[i]-'A')*pw;
-						pw<<=4;
-					}
-					var_number=(double)num;
-				}
-				else
-				{
-					int num=0;
-					int pw=1;
-					for(int i=(int)str.length()-1;i>1;--i)
-					{
-						num+=(str[i]-'0')*pw;
-						pw<<=3;
-					}
-					var_number=(double)num;
-				}
-				return;
-			}
-			int dot_place=-1;
-			for(int i=0;i<(int)str.length();++i)
-				if(str[i]=='.')
-				{
-					dot_place=i;
-					break;
-				}
-			if(dot_place==-1)
-			{
-				var_number=0;
-				double pw=1;
-				for(int i=(int)str.length()-1;i>=0;--i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw*=10;
-				}
-			}
-			else
-			{
-				var_number=0;
-				double pw=0.1;
-				for(int i=dot_place+1;i<(int)str.length();++i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw/=10;
-				}
-				pw=1;
-				for(int i=dot_place-1;i>=0;--i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw*=10;
-				}
-			}
-			return;
-		}
-		void set_var_name(std::string& str)
-		{
-			var_name=str;
-			return;
-		}
-		void add_child(abstract_syntax_tree p)
-		{
-			children.push_back(p);
-			return;
-		}
-		int get_type()
-		{
-			return ast_node_type;
-		}
-		double get_var_number()
-		{
-			return var_number;
-		}
-		std::string get_var_string()
-		{
-			return var_string;
-		}
-		std::string get_var_name()
-		{
-			return var_name;
-		}
-		std::list<abstract_syntax_tree>& get_children()
-		{
-			return children;
-		}
-};
-
-#endif
diff --git a/version1.2/hello.nas b/version1.2/hello.nas
deleted file mode 100644
index fdc302d..0000000
--- a/version1.2/hello.nas
+++ /dev/null
@@ -1 +0,0 @@
-print("hello world!\n");
\ No newline at end of file
diff --git a/version1.2/main.cpp b/version1.2/main.cpp
deleted file mode 100644
index 4747b8b..0000000
--- a/version1.2/main.cpp
+++ /dev/null
@@ -1,86 +0,0 @@
-#include "nasal.h"
-int main()
-{
-	resource_programme_process prog;
-	nasal_lexer lex;
-	nasal_parser pas;
-	nasal_runtime vm;
-	std::string command;
-	std::cout<<">> Nasal interpreter by ValKmjolnir"<<std::endl;
-	std::cout<<">> Input [help] to find help."<<std::endl;
-	while(1)
-	{
-		std::cout<<">> ";
-		std::getline(std::cin,command);
-		if(command=="help")
-		{
-			std::cout<<">> Nasal interpreter by ValKmjolnir"<<std::endl;
-			std::cout<<">> 1. [      ] |input file name to load the file."<<std::endl;
-			std::cout<<">> 2. [cls   ] |clear the screen."<<std::endl;
-			std::cout<<">> 3. [exit  ] |shut down the interpreter."<<std::endl;
-			std::cout<<">> 4. [lexer ] |run and show the lexer. (-lexer)"<<std::endl;
-			std::cout<<">> 5. [parser] |run parser and see parse stack & parse result(s). (-parser)"<<std::endl;
-			std::cout<<">> 6. [ast   ] |print the abstract syntax tree."<<std::endl;
-			std::cout<<">> 7. [del   ] |delete program in memory."<<std::endl;
-			std::cout<<">> 8. [run   ] |run the programme in stack. (-lexer -parser)"<<std::endl;
-			std::cout<<">> 9. [rs    ] |check the source program."<<std::endl;
-		}
-		else if(command=="cls")
-		{
-			system("cls");
-			//windows  system("cls");
-			//linux system("clear");
-			//macOS system("clear");
-		}
-		else if(command=="rs")
-			prog.print_file();
-		else if(command=="exit")
-			break;
-		else if(command=="lexer")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.print_lexer();
-		}
-		else if(command=="del")
-		{
-			prog.del_file();
-			std::cout<<">>[Delete] Complete."<<std::endl;
-		}
-		else if(command=="parser")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.token_list_type_detail_edit();
-			pas.parse_process(lex.return_list());
-			pas.print_parser_stack();
-			pas.parse_main_work();
-		}
-		else if(command=="ast")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.token_list_type_detail_edit();
-			pas.parse_process(lex.return_list());
-			pas.parse_main_work();
-			if(!pas.get_error_num())
-				pas.print_generated_ast();
-			else
-				std::cout<<">>[Abstract_syntax_tree] error(s) occurred,stop."<<std::endl;
-		}
-		else if(command=="run")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.token_list_type_detail_edit();
-			pas.parse_process(lex.return_list());
-			pas.parse_main_work();
-			if(!pas.get_error_num())
-			{
-				vm.set_root(pas.get_tree());
-				vm.run();
-			}
-			else
-				std::cout<<">>[Runtime] error(s) occurred,stop."<<std::endl;
-		}
-		else
-			prog.input_file(command);
-	}
-	return 0;
-}
diff --git a/version1.2/nasal.h b/version1.2/nasal.h
deleted file mode 100644
index b81bea8..0000000
--- a/version1.2/nasal.h
+++ /dev/null
@@ -1,19 +0,0 @@
-#ifndef __NASAL_H__
-#define __NASAL_H__
-
-#include <iostream>
-#include <cstring>
-#include <fstream>
-#include <thread>
-#include <stack>
-#include <list>
-#include <ctime>
-
-#include "nasal_token_type.h"
-#include "ast.h"
-#include "nasal_runtime.h"
-#include "nasal_lexer.h"
-#include "nasal_parser.h"
-
-
-#endif
diff --git a/version1.2/nasal_lexer.h b/version1.2/nasal_lexer.h
deleted file mode 100644
index 01bc9fc..0000000
--- a/version1.2/nasal_lexer.h
+++ /dev/null
@@ -1,543 +0,0 @@
-#ifndef __NASAL_LEXER_H__
-#define __NASAL_LEXER_H__
-
-#include <iostream>
-#include <fstream>
-#include <list>
-#include <cstring>
-
-#define OPERATOR     1  // operator
-#define IDENTIFIER   2  // id
-#define NUMBER       3  // number
-#define RESERVEWORD  4  // reserve word
-#define STRING       5  // string 
-#define DYNAMIC_ID   6 // id...
-#define FAIL        -1  //fail
-#define SCANEND     -2  //complete scanning
-#define ERRORFOUND  -3  //error occurred
-
-std::string reserve_word[15]=
-{
-	"for","foreach","forindex","while",
-	"var","func","break","continue","return",
-	"if","else","elsif","nil","and","or"
-};
-
-int isReserveWord(std::string &p)
-{
-	for(int i=0;i<15;++i)
-		if(reserve_word[i]==p)
-			return i+1;
-	return FAIL;
-}
-
-bool isLetter(char t)
-{
-	return (('a'<=t) && (t<='z') || ('A'<=t) && (t<='Z'));
-}
-
-bool isNumber(char t)
-{
-	return (('0'<=t) && (t<='9'));
-}
-
-bool isHex(char t)
-{
-	return ((('0'<=t) && (t<='9')) || (('a'<=t) && (t<='f')));
-}
-
-bool isOct(char t)
-{
-	return (('0'<=t) && (t<='7'));
-}
-
-class resource_programme_process
-{
-	private:
-		char *resource;
-	public:
-		resource_programme_process()
-		{
-			resource=NULL;
-			resource=new char[16777216];
-		}
-		~resource_programme_process()
-		{
-			if(resource)
-				delete []resource;
-		}
-		char* use_file()
-		{
-			return resource;
-		}
-		void input_file(std::string& filename)
-		{
-			std::ifstream fin(filename);
-			if(fin.fail())
-			{
-				std::cout<<">>[Error] Cannot load file: "<<filename<<" ."<<std::endl;
-				fin.close();
-				return;
-			}
-			memset(resource,0,sizeof(char));
-			int i=0;
-			int instring=0;
-			bool findnote=false;// to find the note with # at the head of line.
-			while(!fin.eof())
-			{
-				resource[i]=fin.get();
-				if(resource[i]=='\'' || resource[i]=='\"')
-					++instring;
-				if(resource[i]=='\n')
-					findnote=false;
-				//when meeting '\n' the findnote is set to false then the next statement can be executed.
-				if(resource[i]!='#' && !findnote)
-					++i;
-				else if(resource[i]=='#')
-				{
-					if(instring & 1)
-						++i;
-					else
-						findnote=true;
-				}
-				if(fin.eof())
-					break;
-			}
-			resource[i]='\0';
-			fin.close();
-			return;
-		}
-		void print_file()
-		{
-			if(!resource[0])
-			{
-				std::cout<<"0	null"<<std::endl;
-				return;
-			}
-			int line=1;
-			std::cout<<line<<"	";
-			for(int i=0;i<16777216;++i)
-			{
-				if(!resource[i])
-					break;
-				std::cout<<resource[i];
-				if(resource[i]=='\n')
-				{
-					++line;
-					std::cout<<line<<"	";
-				}
-			}
-			std::cout<<std::endl;
-			return;
-		}
-		void del_file()
-		{
-			memset(resource,0,sizeof(char));
-			return;
-		}
-};
-
-struct token
-{
-	int line;
-	int type;
-	std::string content;
-};
-
-class nasal_lexer
-{
-	private:
-		std::list<token> lexer;
-	public:
-		void scanner(int &syn,const char* source,std::string &__token,int &ptr,int &line)
-		{
-			char temp;
-			temp=source[ptr];
-			while(temp==' ' || temp=='\n' || temp=='\t' || temp=='\r' || temp<0 || temp>127)
-			{
-				++ptr;
-				if(temp=='\n')
-					++line;
-				temp=source[ptr];
-			}
-			__token="";
-			if(isLetter(temp) || temp=='_')
-			{
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				while(isLetter(temp) || isNumber(temp) || temp=='_')
-				{
-					__token+=temp;
-					++ptr;
-					temp=source[ptr];
-				}
-				syn=isReserveWord(__token);
-				if(syn==FAIL)
-					syn=IDENTIFIER;
-				else
-					syn=RESERVEWORD;
-				if((syn==IDENTIFIER) && source[ptr]=='.' && source[ptr+1]=='.' && source[ptr+2]=='.')
-				{
-					__token+="...";
-					syn=DYNAMIC_ID;
-					ptr+=3;
-				}
-			}
-			else if(isNumber(temp))
-			{
-				if((source[ptr]=='0') && (source[ptr+1]=='x'))
-				{
-					__token+=source[ptr];
-					__token+=source[ptr+1];
-					ptr+=2;
-					temp=source[ptr];
-					while(isNumber(temp) || isHex(temp))
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if((int)__token.length()==2)
-					{
-						std::cout<<">>[Lexer-warning] lexer: expect a hex-number string after '0x' ."<<std::endl;
-						__token+="0";
-					}
-				}
-				else if((source[ptr]=='0') && (source[ptr+1]=='o'))
-				{
-					__token+=source[ptr];
-					__token+=source[ptr+1];
-					ptr+=2;
-					temp=source[ptr];
-					while(isNumber(temp) || isOct(temp))
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if((int)__token.length()==2)
-					{
-						std::cout<<">>[Lexer-warning] lexer: expect a oct-number string after '0o' ."<<std::endl;
-						__token+="0";
-					}
-				}
-				else
-				{
-					int PointCnt=0;
-					while(isNumber(temp))
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-						if(temp=='.' && !PointCnt)
-						{
-							++PointCnt;
-							__token+=temp;
-							++ptr;
-							temp=source[ptr];
-						}
-					}
-				}
-				syn=NUMBER;
-			}
-			else if(temp=='(' || temp==')' || temp=='[' || temp==']' || temp=='{' ||
-					temp=='}' || temp==',' || temp==';' || temp=='|' || temp==':' ||
-					temp=='?' || temp=='.' || temp=='`' || temp=='&' || temp=='@' ||
-					temp=='%' || temp=='$' || temp=='^')
-			{
-				__token+=temp;
-				++ptr;
-				syn=OPERATOR;
-			}
-			else if(temp=='\'')
-			{
-				syn=STRING;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				while(temp!='\'')
-				{
-					if(temp=='\\')
-					{
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-					}
-					else
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if(temp==0 || temp=='\n')
-						break;
-				}
-				//add the last char \"
-				if(temp=='\'')
-				{
-					__token+=temp;
-					++ptr;
-				}
-				else
-					__token+=" __missing_end_of_string";
-			}
-			else if(temp=='=' || temp=='+' || temp=='-' || temp=='*' || temp=='!' || temp=='/' || temp=='<' || temp=='>' || temp=='~')
-			{
-				syn=OPERATOR;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				if(temp=='=')
-				{
-					__token+=temp;
-					++ptr;
-				}
-			}
-			else if(temp=='\\')
-			{
-				syn=OPERATOR;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				if(temp=='=' || temp=='n' || temp=='t' || temp=='r' || temp=='\\' || temp=='\'' || temp=='\"')
-				{
-					__token+=temp;
-					++ptr;
-				}
-			}
-			else if(temp=='\"')
-			{
-				syn=STRING;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				while(temp!='\"')
-				{
-					if(temp=='\\')
-					{
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-					}
-					else
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if(temp==0 || temp=='\n')
-						break;
-				}
-				//add the last char \"
-				if(temp=='\"')
-				{
-					__token+=temp;
-					++ptr;
-				}
-				else
-					__token+=" __missing_end_of_string";
-			}
-			else if(temp==0)
-			{
-				syn=SCANEND;
-				return;
-			}
-			else
-			{
-				syn=FAIL;
-				std::cout<<">>[Error] unexpected error occurred: "<<temp<<std::endl;
-				system("pause");
-				++ptr;
-				return;
-			}
-			if(__token=="")
-			{
-				syn=ERRORFOUND;
-				std::cout<<">>[Error] cannot identify "<<std::endl;
-			}
-			return;
-		}
-		void lexer_process(const char *source)
-		{
-			std::cout<<">>[Lexer] max size: "<<lexer.max_size()<<" ."<<std::endl;
-			lexer.clear();
-			int syn=0;//token type
-			int ptr=0;//pointer to one char in ResourcePrograme
-			int line=1;
-			std::string __token;
-			token temp;
-			while(syn!=SCANEND && syn!=ERRORFOUND)
-			{
-				scanner(syn,source,__token,ptr,line);
-				if(syn>0)//all Syn type is larger than zero
-				{
-					temp.line=line;
-					temp.type=syn;
-					temp.content=__token;
-					lexer.push_back(temp);
-				}
-			}
-			std::cout<<">>[Lexer] complete scanning."<<std::endl;
-			return;
-		}
-		void print_lexer()
-		{
-			token temp;
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				temp=*i;
-				std::cout<<"line "<<temp.line<<": ";
-				if(temp.type==OPERATOR)
-					std::cout<<"( Operator       | ";
-				else if(temp.type==IDENTIFIER)
-					std::cout<<"( Identifier     | ";
-				else if(temp.type==NUMBER)
-					std::cout<<"( Number         | ";
-				else if(temp.type==RESERVEWORD)
-					std::cout<<"( ReserveWord    | ";
-				else if(temp.type==STRING)
-					std::cout<<"( String         | ";
-				else if(temp.type==DYNAMIC_ID)
-					std::cout<<"( Identifier     | ";
-				std::cout<<temp.content<<" )"<<std::endl;
-			}
-			return;
-		}
-		void token_list_type_detail_edit()
-		{
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				if((*i).type==RESERVEWORD)
-				{
-					if((*i).content=="var")
-						(*i).type=__var;
-					else if((*i).content=="func")
-						(*i).type=__func;
-					else if((*i).content=="return")
-						(*i).type=__return;
-					else if((*i).content=="nil")
-						(*i).type=__number;
-					else if((*i).content=="continue")
-						(*i).type=__continue;
-					else if((*i).content=="break")
-						(*i).type=__break;
-					else if((*i).content=="and")
-						(*i).type=__and_operator;
-					else if((*i).content=="or")
-						(*i).type=__or_operator;
-					else if((*i).content=="for")
-						(*i).type=__for;
-					else if((*i).content=="forindex")
-						(*i).type=__forindex;
-					else if((*i).content=="foreach")
-						(*i).type=__foreach;
-					else if((*i).content=="while")
-						(*i).type=__while;
-					else if((*i).content=="if")
-						(*i).type=__if;
-					else if((*i).content=="else")
-						(*i).type=__else;
-					else if((*i).content=="elsif")
-						(*i).type=__elsif;
-				}
-				else if(((*i).content=="==") || ((*i).content=="!=") || ((*i).content==">") || ((*i).content==">=") || ((*i).content=="<") || ((*i).content=="<="))
-				{
-					if((*i).content=="==")
-						(*i).type=__cmp_equal;
-					else if((*i).content=="!=")
-						(*i).type=__cmp_not_equal;
-					else if((*i).content==">")
-						(*i).type=__cmp_more;
-					else if((*i).content==">=")
-						(*i).type=__cmp_more_or_equal;
-					else if((*i).content=="<")
-						(*i).type=__cmp_less;
-					else if((*i).content=="<=")
-						(*i).type=__cmp_less_or_equal;
-				}
-				else if(((*i).content==";") || ((*i).content==",") || ((*i).content=="=") || ((*i).content==":") || ((*i).content==".") || ((*i).content=="?") || ((*i).content=="|") || ((*i).content=="&") || ((*i).content=="%") || ((*i).content=="$") || ((*i).content=="`") || ((*i).content=="^") || ((*i).content=="@"))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case ';':(*i).type=__semi;break;
-						case ',':(*i).type=__comma;break;
-						case '=':(*i).type=__equal;break;
-						case ':':(*i).type=__colon;break;
-						case '.':(*i).type=__dot;break;
-						default:(*i).type=__unknown_operator;break;
-					}
-				}
-				else if(((*i).type==NUMBER) || ((*i).type==STRING) || ((*i).type==IDENTIFIER) || ((*i).type==DYNAMIC_ID))
-				{
-					int t=(*i).type;
-					switch(t)
-					{
-						case NUMBER:(*i).type=__number;break;
-						case STRING:(*i).type=__string;break;
-						case IDENTIFIER:(*i).type=__id;break;
-						case DYNAMIC_ID:(*i).type=__dynamic_id;break;
-					}
-				}
-				else if(((*i).content=="+") || ((*i).content=="-") || ((*i).content=="*") || ((*i).content=="/") || ((*i).content=="~") || ((*i).content=="!"))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case '+':(*i).type=__add_operator;break;
-						case '-':(*i).type=__sub_operator;break;
-						case '*':(*i).type=__mul_operator;break;
-						case '/':(*i).type=__div_operator;break;
-						case '~':(*i).type=__link_operator;break;
-						case '!':(*i).type=__nor_operator;break;
-					}
-				}
-				else if(((*i).content=="+=") || ((*i).content=="-=") || ((*i).content=="*=") || ((*i).content=="/=") || ((*i).content=="~="))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case '+':(*i).type=__add_equal;break;
-						case '-':(*i).type=__sub_equal;break;
-						case '*':(*i).type=__mul_equal;break;
-						case '/':(*i).type=__div_equal;break;
-						case '~':(*i).type=__link_equal;break;
-					}
-				}
-				else if(((*i).content=="(") || ((*i).content==")") || ((*i).content=="[") || ((*i).content=="]") || ((*i).content=="{") || ((*i).content=="}"))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case '(':(*i).type=__left_curve;break;
-						case ')':(*i).type=__right_curve;break;
-						case '[':(*i).type=__left_bracket;break;
-						case ']':(*i).type=__right_bracket;break;
-						case '{':(*i).type=__left_brace;break;
-						case '}':(*i).type=__right_brace;break;
-					}
-				}
-			}
-			return;
-		}
-		std::list<token>& return_list()
-		{
-			return lexer;
-		}
-};
-		
-
-		
-
-#endif
diff --git a/version1.2/nasal_parser.h b/version1.2/nasal_parser.h
deleted file mode 100644
index d40b6f0..0000000
--- a/version1.2/nasal_parser.h
+++ /dev/null
@@ -1,1821 +0,0 @@
-#ifndef __NASAL_PARSER_H__
-#define __NASAL_PARSER_H__
-
-class nasal_parser
-{
-	private:
-		abstract_syntax_tree root;
-		std::stack<token> parse;
-		token this_token;
-		int error;
-		int warning;
-	public:
-		nasal_parser()
-		{
-			error=0;
-			warning=0;
-			this_token.type=0;
-		}
-		void get_token()
-		{
-			if(parse.empty())
-			{
-				this_token.type=0;
-				return;
-			}
-			this_token=parse.top();
-			parse.pop();
-			return;
-		}
-		int get_error_num()
-		{
-			return error;
-		}
-		abstract_syntax_tree& get_tree()
-		{
-			return root;
-		}
-		void print_generated_ast()
-		{
-			std::cout<<">>[Abstract-syntax-tree]"<<std::endl;
-			root.print_tree(1);
-			return;
-		}
-		void print_parser_stack()
-		{
-			if(parse.empty())
-				return;
-			int line=0;
-			std::stack<token> temp;
-			while(!parse.empty())
-			{
-				temp.push(parse.top());
-				if(line!=temp.top().line)
-				{
-					if(line+1==temp.top().line)
-					{
-						line=temp.top().line;
-						if(line==1)
-							std::cout<<"line "<<line<<"   ";
-						else
-							std::cout<<std::endl<<"line "<<line<<"   ";
-					}
-					else
-					{
-						while(line!=temp.top().line)
-						{
-							++line;
-							std::cout<<std::endl<<"line "<<line<<"   ";
-						}
-					}
-				}
-				std::cout<<"<";
-				print_token(temp.top().type);
-				std::cout<<"> ";
-				parse.pop();
-			}
-			while(!temp.empty())
-			{
-				parse.push(temp.top());
-				temp.pop();
-			}
-			std::cout<<std::endl;
-			return;
-		}
-		void parse_process(std::list<token>& lexer)
-		{
-			while(!parse.empty())
-				parse.pop();
-			std::stack<token> temp;
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				token temp_parse;
-				temp_parse=*i;
-				temp.push(temp_parse);//push this into stack
-			}
-			if(temp.empty())
-			{
-				std::cout<<">>[Parse] warning: empty lexer list."<<std::endl;
-				return;
-			}
-			while(!temp.empty())
-			{
-				parse.push(temp.top());
-				temp.pop();
-			}
-			return;
-		}
-		void parse_main_work();
-		abstract_syntax_tree in_curve_calc_expr();
-		abstract_syntax_tree calculation_expr();
-		abstract_syntax_tree identifier_call_expr();
-		abstract_syntax_tree call_list_expr();
-		abstract_syntax_tree parameter_function_expr();
-		abstract_syntax_tree call_function_expr();
-		abstract_syntax_tree call_hash_expr();
-		abstract_syntax_tree list_generate_expr();
-		abstract_syntax_tree hash_generate_expr();
-		abstract_syntax_tree definition_expr();
-		abstract_syntax_tree assignment_expr();
-		abstract_syntax_tree loop_expr();
-		bool else_if_check();
-		abstract_syntax_tree if_else_expr();
-		abstract_syntax_tree and_operator_expr();
-		abstract_syntax_tree add_sub_cmp_operator_expr();
-		abstract_syntax_tree mul_div_operator_expr();
-		abstract_syntax_tree unary_operator_expr();
-		void check_semi_at_end();
-		abstract_syntax_tree statements_block();
-		abstract_syntax_tree function_generate_expr();
-		abstract_syntax_tree return_expr();
-};
-void nasal_parser::check_semi_at_end()
-{
-	get_token();
-	if(this_token.type!=__semi)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ';'."<<std::endl;
-	}
-	return;
-}
-abstract_syntax_tree nasal_parser::return_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__return);
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node.add_child(calculation_expr());
-			break;
-		case __func:
-			node.add_child(function_generate_expr());
-			break;
-		case __left_bracket:
-			node.add_child(list_generate_expr());
-			break;
-		case __left_brace:
-			node.add_child(hash_generate_expr());
-			break;
-		case __semi:parse.push(this_token);break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data or ';' after __return_expr."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::statements_block()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node.set_node_type(__normal_statement_block);
-	get_token();
-	if(this_token.type!=__left_brace)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '{' when generating a __block."<<std::endl;
-		return node;
-	}
-	get_token();
-	while(this_token.type!=__right_brace)
-	{
-		temp.set_clear();
-		switch(this_token.type)
-		{
-			case __var:
-				node.add_child(definition_expr());
-				check_semi_at_end();break;
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				check_semi_at_end();break;
-			case __if:
-				parse.push(this_token);
-				node.add_child(if_else_expr());
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:
-				parse.push(this_token);
-				node.add_child(loop_expr());
-				break;
-			case __continue:
-			case __break:
-				temp.set_node_type(this_token.type);
-				node.add_child(temp);
-				check_semi_at_end();break;
-			case __semi:break;
-			case __return:
-				node.add_child(return_expr());
-				check_semi_at_end();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": '";
-				print_token(this_token.type);
-				std::cout<<"' incorrect token as the beginning of statement."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::function_generate_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node.set_node_type(__function);
-	get_token();
-	if(this_token.type==__left_brace)
-		parse.push(this_token);
-	else if(this_token.type==__left_curve)
-	{
-		get_token();
-		while(this_token.type!=__right_curve)
-		{
-			temp.set_clear();
-			if(this_token.type==__id || this_token.type==__dynamic_id)
-			{
-				temp.set_node_type(__id);
-				temp.set_var_name(this_token.content);
-				get_token();
-				if(this_token.type!=__equal)
-					parse.push(this_token);
-				else
-				{
-					get_token();
-					switch(this_token.type)
-					{
-						case __left_curve:
-						case __id:
-						case __number:
-						case __string:
-						case __nor_operator:
-						case __sub_operator:
-							parse.push(this_token);
-							temp.add_child(calculation_expr());
-							break;
-						case __left_brace:
-							temp.add_child(hash_generate_expr());
-							break;
-						case __left_bracket:
-							temp.add_child(list_generate_expr());
-							break;
-						case __func:
-							temp.add_child(function_generate_expr());
-							break;
-						default:
-							++error;
-							std::cout<<">>[Error] line "<<this_token.line<<": expect a scalar after operator '=' ."<<std::endl;
-							return node;
-							break;
-					}
-				}
-				node.add_child(temp);
-				get_token();
-				if(this_token.type!=__right_curve && this_token.type!=__comma)
-				{
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ')' when creating a __function."<<std::endl;
-					return node;
-				}
-				else if(this_token.type==__right_curve)
-					parse.push(this_token);
-			}
-			else if(this_token.type==__dynamic_id)
-			{
-				get_token();
-				if(this_token.type!=__right_curve)
-				{
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": must put ')' after __dynamic_id."<<std::endl;
-					return node;
-				}
-				parse.push(this_token);
-			}
-			else
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect __id and __dynamic_id only."<<std::endl;
-				return node;
-			}
-			get_token();
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-		print_token(this_token.type);
-		std::cout<<"' when creating a __function."<<std::endl;
-		return node;
-	}
-	get_token();
-	if(this_token.type==__left_brace)
-	{
-		parse.push(this_token);
-		node.add_child(statements_block());
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": function must have a statement block begin with '{' ."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::list_generate_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__list);
-	get_token();
-	while(this_token.type!=__right_bracket)
-	{
-		switch(this_token.type)
-		{
-			case __nor_operator:
-			case __sub_operator:
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __left_bracket:
-				node.add_child(list_generate_expr());
-				break;
-			case __left_brace:
-				node.add_child(hash_generate_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when creating a __list."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_bracket)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ']' but get '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __list."<<std::endl;
-			return node;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::hash_generate_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	abstract_syntax_tree hashmember;
-
-	node.set_node_type(__hash);
-	get_token();
-	while(this_token.type!=__right_brace)
-	{
-		hashmember.set_clear();
-		hashmember.set_node_type(__hash_member);
-		if(this_token.type!=__id && this_token.type!=__string)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __hash_member."<<std::endl;
-			return node;
-		}
-		else
-		{
-			parse.push(this_token);
-			hashmember.add_child(calculation_expr());
-		}
-		get_token();
-		if(this_token.type!=__colon)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ':' when creating a __hash_member."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				hashmember.add_child(calculation_expr());
-				break;
-			case __func:
-				get_token();
-				if(this_token.type==__id)
-				{
-					parse.push(this_token);
-					hashmember.add_child(calculation_expr());
-				}
-				else
-				{
-					parse.push(this_token);
-					hashmember.add_child(function_generate_expr());
-				}
-				break;
-			case __left_bracket:
-				hashmember.add_child(list_generate_expr());
-				break;
-			case __left_brace:
-				hashmember.add_child(hash_generate_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when creating a __hash_member."<<std::endl;
-				return node;
-				break;
-		}
-		node.add_child(hashmember);
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_brace)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or '}' but get '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __hash."<<std::endl;
-			return node;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::definition_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__definition);
-	get_token();
-	if(this_token.type!=__id)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect an __id."<<std::endl;
-		return node;
-	}
-	else
-	{
-		abstract_syntax_tree new_identifier;
-		new_identifier.set_node_type(__id);
-		new_identifier.set_var_name(this_token.content);
-		node.add_child(new_identifier);
-	}
-	get_token();
-	if(this_token.type!=__equal && this_token.type!=__semi)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '=' after __id."<<std::endl;
-		return node;
-	}
-	else if(this_token.type==__semi)
-	{
-		parse.push(this_token);// for semi check
-		++warning;
-		std::cout<<">>[Warning] line "<<this_token.line<<": better initializing this."<<std::endl;
-		return node;
-	}
-	get_token();
-	token semi_token;
-	semi_token.line=this_token.line;
-	semi_token.type=__semi;
-	semi_token.content=";";
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node.add_child(calculation_expr());
-			break;
-		case __func:
-			node.add_child(function_generate_expr());
-			parse.push(semi_token);
-			break;
-		case __left_bracket:
-			node.add_child(list_generate_expr());
-			break;
-		case __left_brace:
-			node.add_child(hash_generate_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after this operator."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::assignment_expr()
-{
-	abstract_syntax_tree node;
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node=calculation_expr();
-			break;
-		case __func:
-			node=function_generate_expr();
-			break;
-		case __left_bracket:
-			node=list_generate_expr();
-			break;
-		case __left_brace:
-			node=hash_generate_expr();
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when doing assignment."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-bool nasal_parser::else_if_check()
-{
-	token temp=this_token;
-	if(this_token.type!=__else)
-		return false;
-	else
-	{
-		get_token();
-		if(this_token.type!=__if)
-		{
-			parse.push(this_token);
-			this_token=temp;
-			// to avoid when recognizing 'else' without 'if' 
-			return false;
-		}
-	}
-	return true;
-}
-abstract_syntax_tree nasal_parser::if_else_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	abstract_syntax_tree temp2;
-	node.set_node_type(__ifelse);
-	temp.set_clear();
-	get_token();
-	if(this_token.type!=__if)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a 'if' when creating new if-else statement."<<std::endl;
-		return node;
-	}
-	temp.set_node_type(__if);
-	get_token();
-	if(this_token.type!=__left_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when making a condition."<<std::endl;
-		return node;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			temp.add_child(calculation_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a correct condition."<<std::endl;
-			return node;
-			break;
-	}
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when making a condition."<<std::endl;
-		return node;
-	}
-	get_token();
-	if(this_token.type==__left_brace)
-	{
-		// if without { then only one statement is behind it
-		parse.push(this_token);
-		temp.add_child(statements_block());
-	}
-	else
-	{
-		switch(this_token.type)
-		{
-			case __var:
-				temp.add_child(definition_expr());
-				check_semi_at_end();
-				break;
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-			case __left_curve:
-				parse.push(this_token);
-				temp.add_child(calculation_expr());
-				check_semi_at_end();
-				break;
-			case __if:
-				parse.push(this_token);
-				temp.add_child(if_else_expr());
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:
-				parse.push(this_token);
-				temp.add_child(loop_expr());
-				break;
-			case __continue:
-			case __break:
-				temp2.set_clear();
-				temp2.set_node_type(this_token.type);
-				temp.add_child(temp2);
-				check_semi_at_end();
-				break;
-			case __semi:break;
-			case __return:
-				temp.add_child(return_expr());
-				check_semi_at_end();
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when generating a statement."<<std::endl;
-				return node;
-				break;
-		}
-	}
-	node.add_child(temp);
-	if(parse.empty())
-		return node;
-	get_token();
-	while(this_token.type==__elsif || else_if_check())
-	{
-		temp.set_clear(); 
-		temp.set_node_type(__elsif);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when making a condition."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				temp.add_child(calculation_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a correct condition."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when making a condition."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			temp.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					temp.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					temp.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					temp.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					temp.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp2.set_node_type(this_token.type);
-					temp.add_child(temp2);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					temp.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when generating a statement."<<std::endl;
-					return node;
-					break;
-			}
-		}
-		node.add_child(temp);
-		if(parse.empty())
-			return node;
-		get_token();
-	}
-	temp.set_clear();
-	if(this_token.type==__else)
-	{
-		temp.set_node_type(__else);
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			temp.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					temp.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					temp.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					temp.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					temp.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp2.set_node_type(this_token.type);
-					temp.add_child(temp2);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					temp.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when generating a statement."<<std::endl;
-					return node;
-					break;
-			}
-		}
-		node.add_child(temp);
-	}
-	else
-		parse.push(this_token);
-	return node;
-}
-abstract_syntax_tree nasal_parser::loop_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	get_token();
-	if(this_token.type==__while)
-	{
-		node.set_node_type(__while);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'while'."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a condition."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'while('."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			node.add_child(statements_block());
-		}
-		else
-		{
-
-			switch(this_token.type)
-			{
-				case __var:
-					node.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					node.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					node.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp.set_node_type(this_token.type);
-					node.add_child(temp);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					node.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					return node;
-					break;
-			}
-		}
-	}
-	else if(this_token.type==__for)
-	{
-		node.set_node_type(__for);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'for'."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				node.add_child(definition_expr());
-				break;
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __semi:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __semi:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __right_curve:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'for('."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			node.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					node.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					node.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					node.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp.set_node_type(this_token.type);
-					node.add_child(temp);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					node.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					return node;
-					break;
-			}
-		}
-	}
-	else if(this_token.type==__forindex || this_token.type==__foreach)
-	{
-		node.set_node_type(this_token.type);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'forindex' or 'foreach'."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				node.add_child(definition_expr());
-				break;
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __semi:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __left_bracket:
-				node.add_child(list_generate_expr());
-				break;
-			case __right_curve:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'forindex(' or 'foreach('."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			node.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					node.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					node.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					node.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp.set_node_type(this_token.type);
-					node.add_child(temp);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					node.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					return node;
-					break;
-			}
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-		print_token(this_token.type);
-		std::cout<<"' when creating a new loop."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::mul_div_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	get_token();
-	switch(this_token.type)
-	{
-		case __nor_operator:
-		case __sub_operator:
-			node=unary_operator_expr();
-			break;
-		case __number:
-			node.set_node_type(__number);
-			node.set_var_number(this_token.content);
-			break;
-		case __string:
-			node.set_node_type(__string);
-			node.set_var_string(this_token.content);
-			break;
-		case __id:
-			node=identifier_call_expr();
-			break;
-		case __left_curve:
-			node=in_curve_calc_expr();
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator."<<std::endl;
-			return node;
-			break;
-	}
-	while(1)
-	{
-		get_token();
-		if(this_token.type==__unknown_operator)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator."<<std::endl;
-			return node;
-		}
-		if(this_token.type!=__mul_operator && this_token.type!=__div_operator)
-		{
-			parse.push(this_token);
-			break;
-		}
-		else
-		{
-			temp.set_clear();
-			temp.set_node_type(this_token.type);
-			temp.add_child(node);
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __nor_operator:
-			case __sub_operator:
-				temp.add_child(unary_operator_expr());
-				node=temp;
-				break;
-			case __number:
-				node.set_clear();
-				node.set_node_type(__number);
-				node.set_var_number(this_token.content);
-				temp.add_child(node);
-				node=temp;
-				break;
-			case __string:
-				node.set_clear();
-				node.set_node_type(__string);
-				node.set_var_string(this_token.content);
-				temp.add_child(node);
-				node=temp;
-				break;
-			case __id:
-				node=identifier_call_expr();
-				temp.add_child(node);
-				node=temp;
-				break;
-			case __left_curve:
-				temp.add_child(in_curve_calc_expr());
-				node=temp;
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator."<<std::endl;
-				return node;
-				break;
-		}
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::add_sub_cmp_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	// number / string / identifier haven't been checked
-	get_token();
-	if(this_token.type==__func)// only lambda (func (){...})() can use this condition
-	{
-		node=(function_generate_expr());
-		return node;
-	}
-	else
-		parse.push(this_token);
-	node=mul_div_operator_expr();
-	while(1)
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __cmp_equal:
-			case __cmp_not_equal:
-			case __cmp_less:
-			case __cmp_more:
-			case __cmp_less_or_equal:
-			case __cmp_more_or_equal:
-			case __add_operator:
-			case __sub_operator:
-			case __link_operator:
-				temp.set_clear();
-				temp.set_node_type(this_token.type);
-				temp.add_child(node);
-				break;
-			case __semi:parse.push(this_token);return node;break;
-			case __unknown_operator:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator '"<<this_token.content<<"'."<<std::endl;
-				return node;break;
-			default:parse.push(this_token);return node;break;
-		}
-		temp.add_child(mul_div_operator_expr());
-		node=temp;
-	}
-	return node; 
-}
-abstract_syntax_tree nasal_parser::unary_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node.set_node_type(this_token.type);
-	get_token();
-	switch(this_token.type)
-	{
-		case __number:
-			temp.set_node_type(__number);
-			temp.set_var_number(this_token.content);
-			node.add_child(temp);
-			break;
-		case __string:
-			temp.set_node_type(__string);
-			temp.set_var_string(this_token.content);
-			node.add_child(temp);
-			break;
-		case __id:
-			temp=identifier_call_expr();
-			node.add_child(temp);
-			break;
-		case __left_curve:
-			node.add_child(in_curve_calc_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator '!' or '-'."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::in_curve_calc_expr()
-{
-	abstract_syntax_tree node;
-	node=calculation_expr();
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when generating __in_curve_calculation."<<std::endl;
-		return node;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:
-			node.add_child(call_list_expr());
-			break;
-		case __left_curve:
-			node.add_child(call_function_expr());
-			break;
-		default:parse.push(this_token);break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::and_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node=add_sub_cmp_operator_expr();
-	get_token();
-
-	while(this_token.type==__and_operator)
-	{
-		temp.set_clear();
-		temp.set_node_type(__and_operator);
-		temp.add_child(node);
-		temp.add_child(add_sub_cmp_operator_expr());
-		node=temp;
-		get_token();
-	}
-	parse.push(this_token);
-	return node;
-}
-abstract_syntax_tree nasal_parser::calculation_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node=and_operator_expr();
-	get_token();
-	while(this_token.type==__or_operator)
-	{
-		temp.set_clear();
-		temp.set_node_type(__or_operator);
-		temp.add_child(node);
-		temp.add_child(and_operator_expr());
-		node=temp;
-		get_token();
-	}
-	parse.push(this_token);
-	return node;
-}
-abstract_syntax_tree nasal_parser::call_list_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__list_search);
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node.add_child(calculation_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when calling a list."<<std::endl;
-			return node;
-			break;
-	}
-	get_token();
-	if(this_token.type==__colon)// to check if there is [number:number] or [number:]
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __right_bracket:parse.push(this_token);break;// this is [number:]
-			default:parse.push(this_token);break;
-		}
-		get_token();
-		if(this_token.type!=__right_bracket)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ']' when calling a list."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_bracket:
-				node.add_child(call_list_expr());
-				break;
-			case __left_curve:
-				node.add_child(call_function_expr());
-				break;
-			case __dot:
-				node.add_child(call_hash_expr());
-				break;
-			default:parse.push(this_token);break;
-		}
-	}
-	else if(this_token.type==__comma)
-	{
-		while(this_token.type!=__right_bracket)
-		{
-			get_token();
-			switch(this_token.type)
-			{
-				case __left_curve:
-				case __number:
-				case __string:
-				case __id:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					break;
-				case __right_bracket:parse.push(this_token);break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when calling a list."<<std::endl;
-					return node;
-					break;
-			}
-			get_token();
-			if(this_token.type!=__comma && this_token.type!=__right_bracket)
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ']' when calling a list."<<std::endl;
-				return node;
-			}
-		}
-	}
-	else if(this_token.type==__right_bracket)
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_bracket:
-				node.add_child(call_list_expr());
-				break;
-			case __left_curve:
-				node.add_child(call_function_expr());
-				break;
-			case __dot:
-				node.add_child(call_hash_expr());
-				break;
-			default:parse.push(this_token);break;
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ']' when calling a list."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::parameter_function_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__function);
-	get_token();
-	if(this_token.type==__id)
-	{
-		parse.push(this_token);
-		node.add_child(calculation_expr());
-		return node;
-	}
-	else if(this_token.type==__left_curve || this_token.type==__left_brace)
-	{
-		parse.push(this_token);
-		node.add_child(function_generate_expr());
-		return node;
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect an __id or '(' or '{' when calling or generating a function."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::call_function_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	abstract_syntax_tree hashmember;
-	node.set_node_type(__call_function);
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		parse.push(this_token);
-		while(this_token.type!=__right_curve)
-		{
-			get_token();
-			temp.set_clear();
-			hashmember.set_clear();
-			hashmember.set_node_type(__hash_member);
-			switch(this_token.type)
-			{
-				case __left_curve:
-				case __nor_operator:
-				case __sub_operator:
-				case __number:
-				case __string:
-				case __id:
-					parse.push(this_token);
-					temp=calculation_expr();
-					hashmember.add_child(temp);
-					break;
-				case __left_bracket:
-					temp=list_generate_expr();
-					hashmember.add_child(temp);
-					break;
-				case __left_brace:
-					temp=hash_generate_expr();
-					hashmember.add_child(temp);
-					break;
-				case __func:
-					temp=parameter_function_expr();
-					hashmember.add_child(temp);
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-					print_token(this_token.type);
-					std::cout<<"' when calling a function."<<std::endl;
-					return node;
-					break;
-			}
-			get_token();
-			if(this_token.type==__colon)
-			{
-				get_token();
-				switch(this_token.type)
-				{
-					case __left_curve:
-					case __nor_operator:
-					case __sub_operator:
-					case __number:
-					case __string:
-					case __id:
-						parse.push(this_token);
-						hashmember.add_child(calculation_expr());
-						break;
-					case __left_bracket:
-						hashmember.add_child(list_generate_expr());
-						break;
-					case __left_brace:
-						hashmember.add_child(hash_generate_expr());
-						break;
-					case __func:
-						hashmember.add_child(parameter_function_expr());
-						break;
-					default:
-						++error;
-						std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-						print_token(this_token.type);
-						std::cout<<"' when calling a function."<<std::endl;
-						return node;
-						break;
-				}
-				node.add_child(hashmember);
-			}
-			else
-			{
-				parse.push(this_token);
-				node.add_child(temp);
-			}
-			get_token();
-			if(this_token.type!=__comma && this_token.type!=__right_curve)
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' after parameter or ')' to end the call."<<std::endl;
-				return node;
-			}
-			if(this_token.type==__comma)
-			{
-				get_token();
-				if(this_token.type!=__right_curve)
-					parse.push(this_token);
-			}
-		}
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:
-			node.add_child(call_list_expr());
-			break;
-		case __left_curve:
-			node.add_child(call_function_expr());
-			break;
-		case __dot:
-			node.add_child(call_hash_expr());
-			break;
-		default:parse.push(this_token);break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::call_hash_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__hash_search);
-	get_token();
-	if(this_token.type!=__id)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": missing identifier when calling __hash_member."<<std::endl;
-		return node;
-	}
-	node.add_child(identifier_call_expr());
-	return node;
-}
-abstract_syntax_tree nasal_parser::identifier_call_expr()
-{
-	abstract_syntax_tree node;
-	std::string temp_name=this_token.content;
-	// __id has been checked
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:
-			node=call_list_expr();
-			break;
-		case __left_curve:
-			node=call_function_expr();
-			break;
-		case __dot:
-			node=call_hash_expr();
-			break;
-		case __unknown_operator:
-			node.set_node_type(__id);
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator."<<std::endl;
-			return node;
-			break;
-		default:
-			node.set_node_type(__id);
-			parse.push(this_token);
-			break;
-	}
-	node.set_var_name(temp_name);
-	abstract_syntax_tree temp;
-	abstract_syntax_tree assign;
-	get_token();
-	switch(this_token.type)
-	{
-		case __equal:
-		case __add_equal:
-		case __sub_equal:
-		case __mul_equal:
-		case __div_equal:
-		case __link_equal:
-			assign.set_node_type(__assignment);
-			temp.set_node_type(this_token.type);
-			temp.add_child(node);
-			temp.add_child(assignment_expr());
-			assign.add_child(temp);
-			node.set_clear();
-			node=assign;
-			break;
-		default:parse.push(this_token);break;
-	}
-	return node;
-}
-void nasal_parser::parse_main_work()
-{
-	root.set_clear();
-	root.set_node_type(__root);
-	error=0;
-	warning=0;
-	while(!parse.empty())
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				root.add_child(definition_expr());
-				check_semi_at_end();
-				break;
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-			case __left_curve:
-				parse.push(this_token);
-				root.add_child(calculation_expr());
-				check_semi_at_end();
-				break;
-			case __if:
-				parse.push(this_token);
-				root.add_child(if_else_expr());
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:
-				parse.push(this_token);
-				root.add_child(loop_expr());
-				break;
-			case __semi:break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when generating __main_statement_block."<<std::endl;
-				if(this_token.type==0)
-				{
-					std::cout<<">>[Error] parse stack empty."<<std::endl;
-					break;
-				}
-				break;
-		}
-	}
-	std::cout<<">>[Parse] complete generation."<<error<<" error(s),"<<warning<<" warning(s)."<<std::endl;
-	return;
-}
-
-#endif
diff --git a/version1.2/nasal_runtime.h b/version1.2/nasal_runtime.h
deleted file mode 100644
index 5c6784d..0000000
--- a/version1.2/nasal_runtime.h
+++ /dev/null
@@ -1,614 +0,0 @@
-#ifndef __NASAL_RUNTIME_H__
-#define __NASAL_RUNTIME_H__
-
-class var
-{
-	private:
-		int type;
-		std::string name;
-		double number;
-		std::string str;
-		std::list<var> var_list;
-		std::list<var> var_hash;
-		abstract_syntax_tree function;
-	public:
-		var()
-		{
-			type=0;
-			name="";
-			number=0;
-			str="";
-			function.set_clear();
-		}
-		var(const var& p)
-		{
-			type=p.type;
-			name=p.name;
-			number=p.number;
-			str=p.str;
-			function=p.function;
-		}
-		var& operator=(const var& p)
-		{
-			type=p.type;
-			name=p.name;
-			number=p.number;
-			str=p.str;
-			function=p.function;
-			return *this;
-		}
-		void print_information()
-		{
-			std::cout<<"[ type: ";print_token(type);std::cout<<" ]";
-			std::cout<<"[ name: "<<name<<" ]";
-			std::cout<<"[ number: "<<number<<" ]";
-			std::cout<<"[ string: "<<str<<" ]"<<std::endl;
-			std::cout<<"[ function: ";
-			function.print_tree(1);
-			std::cout<<" ]"<<std::endl;
-			return;
-		}
-		void print_detail()
-		{
-			switch(type)
-			{
-				case __function:
-					std::cout<<std::endl<<">>[Runtime-error] function type cannot be printed."<<std::endl;
-					break;
-				case __number:
-					std::cout<<number;
-					break;
-				case __string:
-					for(int i=1;i<str.length()-1;++i)
-					{
-						if(str[i]!='\\')
-							std::cout<<str[i];
-						else
-						{
-							switch(str[i+1])
-							{
-								case 'n':std::cout<<"\n";++i;break;
-								case 't':std::cout<<"\t";++i;break;
-								case 'r':std::cout<<"\r";++i;break;
-								case '\\':std::cout<<"\\";++i;break;
-								case '\'':std::cout<<"\'";++i;break;
-								case '\"':std::cout<<"\"";++i;break;
-								default:std::cout<<"\\";break;
-							}
-						}
-					}
-					break;
-			}
-			return;
-		}
-		void set_type(const int var_type)
-		{
-			type=var_type;
-			return;
-		}
-		void set_name(std::string var_name_str)
-		{
-			name=var_name_str;
-			return;
-		}
-		void set_number(const double var_number)
-		{
-			number=var_number;
-			return;
-		}
-		void set_string(std::string s)
-		{
-			str=s;
-			return;
-		}
-		void set_function(abstract_syntax_tree func)
-		{
-			function=func;
-			return;
-		}
-		void set_list(std::list<var> p)
-		{
-			var_list=p;
-			return;
-		}
-		void append_list(var p)
-		{
-			var_list.push_back(p);
-			return;
-		}
-		void set_hash(std::list<var> p)
-		{
-			var_hash=p;
-			return;
-		}
-		void append_hash(var p)
-		{
-			var_hash.push_back(p);
-			return;
-		}
-		int get_type()
-		{
-			return type;
-		}
-		std::string get_name()
-		{
-			return name;
-		}
-		double get_number()
-		{
-			return number;
-		}
-		std::string get_string()
-		{
-			return str;
-		}
-		abstract_syntax_tree get_function()
-		{
-			return function;
-		}
-		std::list<var> get_list()
-		{
-			return var_list;
-		}
-		std::list<var> get_hash()
-		{
-			return var_hash;
-		}
-};
-
-class var_scope_manager
-{
-	private:
-		std::list<std::list<var>> scope_list;
-		std::list<int> scope_type;
-		var error_var;
-	public:
-		var_scope_manager()
-		{
-			scope_list.clear();
-			std::string str="__nas_strc_error_ret";
-			error_var.set_name(str);
-			error_var.set_type(__null_type);
-			return;
-		}
-		void set_clear()
-		{
-			scope_list.clear();
-			scope_type.clear();
-			return;
-		}
-		var& search_var(std::string str)
-		{
-			for(std::list<std::list<var>>::iterator i=scope_list.begin();i!=scope_list.end();++i)
-				for(std::list<var>::iterator j=i->begin();j!=i->end();++j)
-					if(j->get_name()==str)
-						return *j;
-			std::cout<<std::endl<<">>[Runtime-error] could not find the var '"<<str<<"' ."<<std::endl;
-			return error_var;
-		}
-		void add_var(var new_var)
-		{
-			std::list<std::list<var>>::iterator i=scope_list.begin();
-			std::list<int>::iterator t=scope_type.begin();
-			// get global scopes
-			for(;i!=scope_list.end();++i,++t)
-			{
-				if(*t!=__function)
-				{
-					for(std::list<var>::iterator j=i->begin();j!=i->end();++j)
-						if(j->get_name()==new_var.get_name())
-						{
-							std::cout<<std::endl<<">>[Runtime-error] redeclaration of var '"<<new_var.get_name()<<"' ."<<std::endl;
-							return;
-						}
-				}
-			}
-			// get parameters_list scope
-			i=scope_list.end();
-			--i;
-			t=scope_type.end();
-			--t;
-			if(*t==__function)
-			{
-				for(std::list<var>::iterator j=i->begin();j!=i->end();++j)
-					if(j->get_name()==new_var.get_name())
-					{
-						std::cout<<std::endl<<">>[Runtime-error] redeclaration of var '"<<new_var.get_name()<<"' ."<<std::endl;
-						return;
-					}
-			}
-			if(!scope_list.empty())
-			{
-				i=scope_list.end();
-				--i;
-				i->push_back(new_var);
-			}
-			else
-				std::cout<<std::endl<<">>[Runtime-error] empty scope list."<<std::endl;
-			return;
-		}
-		void add_new_scope(int type)
-		{
-			std::list<var> new_list;
-			scope_list.push_back(new_list);
-			scope_type.push_back(type);
-			return;
-		}
-		void pop_last_scope()
-		{
-			if(!scope_list.empty())
-			{
-				scope_list.pop_back();
-				scope_type.pop_back();
-			}
-			else
-				std::cout<<std::endl<<">>[Runtime-error] scope poped empty thing."<<std::endl;
-			return;
-		}
-};
-
-class nasal_runtime
-{
-	private:
-		abstract_syntax_tree root;
-		var_scope_manager scope;
-	public:
-		nasal_runtime()
-		{
-			root.set_clear();
-			return;
-		}
-		void run()
-		{
-			std::cout<<">>[Runtime] process begins."<<std::endl;
-			int time_beg,time_end;
-			time_beg=time(NULL);
-			scope.set_clear();
-			run_root(root);
-			time_end=time(NULL);
-			std::cout<<std::endl<<">>[Runtime] process exited after "<<time_beg-time_end<<" sec(s)."<<std::endl;
-			return;
-		}
-		void set_root(abstract_syntax_tree& tree)
-		{
-			root.set_clear();
-			root=tree;
-			std::cout<<">>[Runtime] runtime got the ast-root: "<<((void *)&tree)<<"->"<<((void *)&root)<<"."<<std::endl;
-			return;
-		}
-		void run_definition(abstract_syntax_tree& tree);
-		void run_assignment(abstract_syntax_tree& tree);
-		void run_loop(abstract_syntax_tree& tree);
-		void run_if_else(abstract_syntax_tree& tree);
-		void run_block(abstract_syntax_tree& tree,int run_type);
-		void run_root(abstract_syntax_tree& tree);
-		var run_calculation(abstract_syntax_tree& tree);
-		var run_function(abstract_syntax_tree& tree);
-		var list_generation(abstract_syntax_tree& tree);
-		var hash_generation(abstract_syntax_tree& tree);
-		var list_search(abstract_syntax_tree& tree);
-		var hash_search(abstract_syntax_tree& tree);
-		var identifier_call(abstract_syntax_tree& tree);
-		var scalar_call(abstract_syntax_tree& tree);
-};
-
-void nasal_runtime::run_root(abstract_syntax_tree& tree)
-{
-	scope.add_new_scope(__root);
-	if(!tree.get_children().empty())
-	{
-		for(std::list<abstract_syntax_tree>::iterator i=tree.get_children().begin();i!=tree.get_children().end();++i)
-		{
-			switch(i->get_type())
-			{
-				case __add_operator:
-				case __sub_operator:
-				case __mul_operator:
-				case __div_operator:
-				case __link_operator:
-				case __and_operator:
-				case __or_operator:
-				case __nor_operator:
-				case __cmp_equal:
-				case __cmp_not_equal:
-				case __cmp_less:
-				case __cmp_less_or_equal:
-				case __cmp_more:
-				case __cmp_more_or_equal:
-					run_calculation(*i);
-					break;
-				case __definition:
-					run_definition(*i);
-					break;
-				case __assignment:
-					run_assignment(*i);
-					break;
-				case __while:
-				case __for:
-				case __forindex:
-				case __foreach:
-					run_loop(*i);
-					break;
-				case __ifelse:
-					run_if_else(*i);
-					break;
-				case __call_function:
-					run_function(*i);
-					break;
-				case __id:
-				case __hash_search:
-				case __list_search:
-					identifier_call(*i);
-					break;
-				case __number:
-				case __string:
-					scalar_call(*i);
-					break;
-				default:
-					std::cout<<">>[Debug] error occurred."<<std::endl;
-					scope.pop_last_scope();
-					return;
-					break;
-			}
-		}
-	}
-	scope.pop_last_scope();
-	return;
-}
-
-void nasal_runtime::run_definition(abstract_syntax_tree& tree)
-{
-	var new_var;
-	std::list<abstract_syntax_tree>::iterator iter=tree.get_children().begin();
-	std::string var_name=iter->get_var_name();
-	++iter;
-	if(iter==tree.get_children().end())
-	{
-		new_var.set_type(__null_type);
-		new_var.set_name(var_name);
-		scope.add_var(new_var);
-		return;
-	}
-	else
-	{
-		switch(iter->get_type())
-		{
-			case __add_operator:
-			case __sub_operator:
-			case __mul_operator:
-			case __div_operator:
-			case __link_operator:
-			case __and_operator:
-			case __or_operator:
-			case __nor_operator:
-			case __cmp_equal:
-			case __cmp_not_equal:
-			case __cmp_less:
-			case __cmp_less_or_equal:
-			case __cmp_more:
-			case __cmp_more_or_equal:
-				new_var=run_calculation(*iter);
-				break;
-			case __call_function:
-				new_var=run_function(*iter);
-				break;
-			case __id:
-			case __hash_search:
-			case __list_search:
-				break;
-			case __number:
-			case __string:
-				new_var=scalar_call(*iter);
-				break;
-			case __function:
-				new_var.set_type(__function);
-				new_var.set_function(*iter);
-				break;
-			case __list:
-				break;
-			case __hash:
-				break;
-			default:
-				std::cout<<">>[Debug] error occurred."<<std::endl;
-				return;
-				break;
-		}
-		new_var.set_name(var_name);
-		scope.add_var(new_var);
-	}
-	return;
-}
-void nasal_runtime::run_assignment(abstract_syntax_tree& tree)
-{
-	return;
-}
-void nasal_runtime::run_loop(abstract_syntax_tree& tree)
-{
-	return;
-}
-void nasal_runtime::run_if_else(abstract_syntax_tree& tree)
-{
-	return;
-}
-void nasal_runtime::run_block(abstract_syntax_tree& tree,int run_type)
-{
-	scope.add_new_scope(run_type);
-	
-	scope.pop_last_scope();
-	return;
-}
-
-var nasal_runtime::run_calculation(abstract_syntax_tree& tree)
-{
-	var ret_var;
-	var left_child;
-	var right_child;
-	
-	std::list<abstract_syntax_tree>::iterator i;
-	i=tree.get_children().begin();
-	switch(i->get_type())
-	{
-		case __id:left_child=identifier_call(*i);break;
-		case __number:
-		case __string:left_child=scalar_call(*i);break;
-		case __call_function:left_child=run_function(*i);break;
-		case __list_search:left_child=list_search(*i);break;
-		case __hash_search:left_child=hash_search(*i);break;
-		case __or_operator:
-		case __and_operator:
-		case __add_operator:
-		case __mul_operator:
-		case __div_operator:
-		case __link_operator:
-		case __nor_operator:
-		case __sub_operator:
-		case __cmp_equal:
-		case __cmp_not_equal:
-		case __cmp_less:
-		case __cmp_less_or_equal:
-		case __cmp_more:
-		case __cmp_more_or_equal:left_child=run_calculation(*i);break;
-		default:std::cout<<">>[Runtime-error] invalid var."<<std::endl;break;
-	}
-	++i;
-	if(i==tree.get_children().end())
-		return left_child;
-	switch(i->get_type())
-	{
-		case __id:right_child=identifier_call(*i);break;
-		case __number:
-		case __string:right_child=scalar_call(*i);break;
-		case __call_function:right_child=run_function(*i);break;
-		case __list_search:right_child=list_search(*i);break;
-		case __hash_search:right_child=hash_search(*i);break;
-		case __or_operator:
-		case __and_operator:
-		case __add_operator:
-		case __mul_operator:
-		case __div_operator:
-		case __link_operator:
-		case __nor_operator:
-		case __sub_operator:
-		case __cmp_equal:
-		case __cmp_not_equal:
-		case __cmp_less:
-		case __cmp_less_or_equal:
-		case __cmp_more:
-		case __cmp_more_or_equal:right_child=run_calculation(*i);break;
-		default:std::cout<<">>[Runtime-error] invalid var."<<std::endl;break;
-	}
-	switch(tree.get_type())
-	{
-		case __or_operator:
-		case __and_operator:
-			break;
-		case __add_operator:
-		case __mul_operator:
-		case __div_operator:
-		case __link_operator:
-			break;
-		case __nor_operator:
-		case __sub_operator:
-			break;
-		case __cmp_equal:
-		case __cmp_not_equal:
-		case __cmp_less:
-		case __cmp_less_or_equal:
-		case __cmp_more:
-		case __cmp_more_or_equal:
-			break;
-	}
-	return ret_var;
-}
-var nasal_runtime::run_function(abstract_syntax_tree& tree)
-{
-	var ret_var;
-	scope.add_new_scope(__function);
-	if(tree.get_var_name()=="print")
-	{
-		std::list<var> dynamic_para;
-		var list_member;
-		for(std::list<abstract_syntax_tree>::iterator i=tree.get_children().begin();i!=tree.get_children().end();++i)
-		{
-			switch(i->get_type())
-			{
-				case __id:list_member=identifier_call(*i);break;
-				case __number:
-				case __string:list_member=scalar_call(*i);break;
-				case __call_function:list_member=run_function(*i);break;
-				case __list_search:list_member=list_search(*i);break;
-				case __hash_search:list_member=hash_search(*i);break;
-				case __or_operator:
-				case __and_operator:
-				case __add_operator:
-				case __mul_operator:
-				case __div_operator:
-				case __link_operator:
-				case __nor_operator:
-				case __sub_operator:
-				case __cmp_equal:
-				case __cmp_not_equal:
-				case __cmp_less:
-				case __cmp_less_or_equal:
-				case __cmp_more:
-				case __cmp_more_or_equal:list_member=run_calculation(*i);break;
-				default:std::cout<<">>[Runtime-error] invalid var."<<std::endl;break;
-			}
-			dynamic_para.push_back(list_member);
-		}
-		for(std::list<var>::iterator i=dynamic_para.begin();i!=dynamic_para.end();++i)
-			i->print_detail();
-	}
-	scope.pop_last_scope();
-	return ret_var;
-}
-var nasal_runtime::list_generation(abstract_syntax_tree& tree)
-{
-	var new_list;
-	new_list.set_type(__list);
-	return new_list;
-}
-var nasal_runtime::hash_generation(abstract_syntax_tree& tree)
-{
-	var new_hash;
-	new_hash.set_type(__hash);
-	return new_hash;
-}
-var nasal_runtime::list_search(abstract_syntax_tree& tree)
-{
-	var ret_var;
-	return ret_var;
-}
-var nasal_runtime::hash_search(abstract_syntax_tree& tree)
-{
-	var ret_var;
-	return ret_var;
-}
-var nasal_runtime::identifier_call(abstract_syntax_tree& tree)
-{
-	var ret_var;
-	ret_var=scope.search_var(tree.get_var_name());
-	if(ret_var.get_type()==__null_type)
-		return ret_var;
-	if(ret_var.get_type()==__number)
-		std::cout<<ret_var.get_number()<<std::endl;
-	else if(ret_var.get_type()==__string)
-		std::cout<<ret_var.get_string()<<std::endl;
-	return ret_var;
-}
-var nasal_runtime::scalar_call(abstract_syntax_tree& tree)
-{
-	var ret_var;
-	if(tree.get_type()==__number)
-	{
-		ret_var.set_type(__number);
-		ret_var.set_number(tree.get_var_number());
-	}
-	else if(tree.get_type()==__string)
-	{
-		ret_var.set_type(__string);
-		ret_var.set_string(tree.get_var_string());
-	}
-	return ret_var;
-}
-#endif
diff --git a/version1.2/nasal_token_type.h b/version1.2/nasal_token_type.h
deleted file mode 100644
index 58760e8..0000000
--- a/version1.2/nasal_token_type.h
+++ /dev/null
@@ -1,118 +0,0 @@
-#ifndef __NASAL_TOKEN_TYPE_H__
-#define __NASAL_TOKEN_TYPE_H__
-
-#include <cstring>
-
-enum token_type
-{
-	__stack_end=1,
-	__equal,                                       // =
-	__cmp_equal,__cmp_not_equal,                   // == !=
-	__cmp_less,__cmp_less_or_equal,                // < <=
-	__cmp_more,__cmp_more_or_equal,                // > >=
-	__and_operator,__or_operator,__nor_operator,   // and or !
-	__add_operator,__sub_operator,                 // + -
-	__mul_operator,__div_operator,__link_operator, // * / ~
-	__add_equal,__sub_equal,                       // += -=
-	__mul_equal,__div_equal,__link_equal,          // *= /= ~=
-	__left_brace,__right_brace,                    // {}
-	__left_bracket,__right_bracket,                // []
-	__left_curve,__right_curve,                    // ()
-	__semi,__comma,__colon,__dot,                  // ; , : .
-	__unknown_operator,
-	__var,__func,__return,
-	__if,__elsif,__else,
-	__continue,__break,
-	__for,__forindex,__foreach,__while,
-	//operators & reserve words
-	
-	__number,__string,__id,__dynamic_id,
-	//basic elements
-	
-	__root,
-	__null_type,
-	__list,__hash,
-	__hash_member,
-	__call_function,__list_search,__hash_search,
-	__normal_statement_block,
-	__definition,__assignment,
-	__function,__loop,__ifelse
-};
-
-void print_token(int type)
-{
-	std::string context="";
-	switch(type)
-	{
-		case __stack_end:         context="#"; break;
-		case __equal:             context="="; break;
-		case __cmp_equal:         context="==";break;
-		case __cmp_not_equal:     context="!=";break;
-		case __cmp_less:          context="<"; break;
-		case __cmp_less_or_equal: context="<=";break;
-		case __cmp_more:          context=">"; break;
-		case __cmp_more_or_equal: context=">=";break;
-		case __and_operator:      context="and";break;
-		case __or_operator:       context="or"; break;
-		case __nor_operator:      context="!"; break;
-		case __add_operator:      context="+"; break;
-		case __sub_operator:      context="-"; break;
-		case __mul_operator:      context="*"; break;
-		case __div_operator:      context="/"; break;
-		case __link_operator:     context="~"; break;
-		case __add_equal:         context="+=";break;
-		case __sub_equal:         context="-=";break;
-		case __mul_equal:         context="*=";break;
-		case __div_equal:         context="/=";break;
-		case __link_equal:        context="~=";break;
-		case __left_brace:        context="{"; break;
-		case __right_brace:       context="}"; break;
-		case __left_bracket:      context="["; break;
-		case __right_bracket:     context="]"; break;
-		case __left_curve:        context="("; break;
-		case __right_curve:       context=")"; break;
-		case __semi:              context=";"; break;
-		case __comma:             context=","; break;
-		case __colon:             context=":"; break;
-		case __dot:               context="."; break;
-		case __unknown_operator:  context="unknown_operator";break;
-		case __var:               context="var"; break;
-		case __func:              context="func";break;
-		case __continue:          context="continye"; break;
-		case __break:             context="break"; break;
-		case __for:               context="for"; break;
-		case __forindex:          context="forindex";break;
-		case __foreach:           context="foreach";break;
-		case __while:             context="while";break;
-		case __if:                context="if";break;
-		case __elsif:             context="elsif";break;
-		case __else:              context="else";break;
-		case __return:            context="return";break;
-		
-		case __id:                context="id";break;
-		case __dynamic_id:        context="id...";break;
-		case __number:            context="num";break;
-		case __string:            context="str";break;
-		
-		case __root:              context="root";break;
-		case __null_type:         context="null_type";break;
-		case __list:              context="list";break;
-		case __hash:              context="hash";break;
-		case __hash_member:       context="hash_member";break;
-		case __call_function:     context="call_func";break;
-		case __list_search:       context="call_list";break;
-		case __hash_search:       context="call_hash";break;
-		case __normal_statement_block:context="block";break;
-		case __definition:        context="definition";break;
-		case __assignment:        context="assignment";break;
-		case __function:          context="function";break;
-		case __loop:              context="loop";break;
-		case __ifelse:            context="if-else";break;
-		default:                  context="undefined_token";break;
-	}
-	std::cout<<context;
-	return;
-}
-
-
-#endif
diff --git a/version1.3/ast.h b/version1.3/ast.h
deleted file mode 100644
index 63ad505..0000000
--- a/version1.3/ast.h
+++ /dev/null
@@ -1,191 +0,0 @@
-#ifndef __NASAL_ABSTRACT_SYNTAX_TREE_RUN_H__
-#define __NASAL_ABSTRACT_SYNTAX_TREE_RUN_H__
-
-class abstract_syntax_tree
-{
-	private:
-		int ast_node_type;
-		double var_number;
-		std::string var_string;
-		std::string var_name;
-		std::list<abstract_syntax_tree> children;
-	public:
-		abstract_syntax_tree()
-		{
-			ast_node_type=0;
-			var_number=0;
-			var_string="";
-			var_name="";
-			children.clear();
-			return;
-		}
-		abstract_syntax_tree(const abstract_syntax_tree& p)
-		{
-			ast_node_type=p.ast_node_type;
-			var_number=p.var_number;
-			var_string=p.var_string;
-			var_name=p.var_name;
-			children=p.children;
-			return;
-		}
-		abstract_syntax_tree& operator=(const abstract_syntax_tree& p)
-		{
-			ast_node_type=p.ast_node_type;
-			var_number=p.var_number;
-			var_string=p.var_string;
-			var_name=p.var_name;
-			children.clear();
-			children=p.children;
-			return *this;
-		}
-		void set_clear()
-		{
-			ast_node_type=0;
-			var_number=0;
-			var_string="";
-			var_name="";
-			children.clear();
-			return;
-		}
-		void print_tree(const int n)
-		{
-			std::string str="";
-			for(int i=0;i<n;++i)
-				str+="| ";
-			std::cout<<str;
-			print_token(ast_node_type);
-			switch(ast_node_type)
-			{
-				case __number:std::cout<<": "<<var_number;break;
-				case __string:std::cout<<": "<<var_string;break;
-				case __id:
-				case __list_search:
-				case __hash_search:
-				case __call_function:std::cout<<": "<<var_name;break;
-			}
-			std::cout<<std::endl;
-			if(!children.empty())
-			{
-				for(auto i=children.begin();i!=children.end();++i)
-					i->print_tree(n+1);
-			}
-			return;
-		}
-		void set_node_type(const int type)
-		{
-			ast_node_type=type;
-			return;
-		}
-		void set_var_string(std::string str)
-		{
-			var_string="";
-			for(int i=1;i<(int)str.length()-1;++i)
-				var_string+=str[i];
-			return;
-		}
-		void set_var_number(std::string str)
-		{
-			if(str=="nil")
-			{
-				var_number=0;
-				return;
-			}
-			if((int)str.length()>2 && (str[1]=='x' || str[1]=='o'))
-			{
-				if(str[1]=='x')
-				{
-					double num=0;
-					double pw=1;
-					for(int i=(int)str.length()-1;i>1;--i)
-					{
-						if('0'<=str[i] && str[i]<='9')
-							num+=(str[i]-'0')*pw;
-						else if('a'<=str[i] && str[i]<='f')
-							num+=(10+str[i]-'a')*pw;
-						else if('A'<=str[i] && str[i]<='F')
-							num+=(10+str[i]-'A')*pw;
-						pw*=16;
-					}
-					var_number=num;
-				}
-				else
-				{
-					double num=0;
-					double pw=1;
-					for(int i=(int)str.length()-1;i>1;--i)
-					{
-						num+=(str[i]-'0')*pw;
-						pw*=8;
-					}
-					var_number=num;
-				}
-				return;
-			}
-			int dot_place=-1;
-			for(int i=0;i<(int)str.length();++i)
-				if(str[i]=='.')
-				{
-					dot_place=i;
-					break;
-				}
-			if(dot_place==-1)
-			{
-				var_number=0;
-				double pw=1;
-				for(int i=(int)str.length()-1;i>=0;--i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw*=10;
-				}
-			}
-			else
-			{
-				var_number=0;
-				double pw=0.1;
-				for(int i=dot_place+1;i<(int)str.length();++i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw/=10;
-				}
-				pw=1;
-				for(int i=dot_place-1;i>=0;--i)
-				{
-					var_number+=(str[i]-'0')*pw;
-					pw*=10;
-				}
-			}
-			return;
-		}
-		void set_var_name(std::string& str)
-		{
-			var_name=str;
-			return;
-		}
-		void add_child(abstract_syntax_tree p)
-		{
-			children.push_back(p);
-			return;
-		}
-		int get_type()
-		{
-			return ast_node_type;
-		}
-		double get_var_number()
-		{
-			return var_number;
-		}
-		std::string get_var_string()
-		{
-			return var_string;
-		}
-		std::string get_var_name()
-		{
-			return var_name;
-		}
-		std::list<abstract_syntax_tree>& get_children()
-		{
-			return children;
-		}
-};
-
-#endif
diff --git a/version1.3/main.cpp b/version1.3/main.cpp
deleted file mode 100644
index a7e5f89..0000000
--- a/version1.3/main.cpp
+++ /dev/null
@@ -1,86 +0,0 @@
-#include "nasal.h"
-int main()
-{
-	resource_programme_process prog;
-	nasal_lexer lex;
-	nasal_parser pas;
-	nasal_vm vm;
-	std::string command;
-	std::cout<<">> Nasal interpreter by ValKmjolnir"<<std::endl;
-	std::cout<<">> Input [help] to find help."<<std::endl;
-	while(1)
-	{
-		std::cout<<">> ";
-		std::getline(std::cin,command);
-		if(command=="help")
-		{
-			std::cout<<">> Nasal interpreter by ValKmjolnir"<<std::endl;
-			std::cout<<">> 1. [      ] |input file name to load the file."<<std::endl;
-			std::cout<<">> 2. [cls   ] |clear the screen."<<std::endl;
-			std::cout<<">> 3. [exit  ] |shut down the interpreter."<<std::endl;
-			std::cout<<">> 4. [lexer ] |run and show the lexer. (-lexer)"<<std::endl;
-			std::cout<<">> 5. [parser] |run parser and see parse stack & parse result(s). (-parser)"<<std::endl;
-			std::cout<<">> 6. [ast   ] |print the abstract syntax tree."<<std::endl;
-			std::cout<<">> 7. [del   ] |delete program in memory."<<std::endl;
-			std::cout<<">> 8. [run   ] |run the programme in stack. (-lexer -parser)"<<std::endl;
-			std::cout<<">> 9. [rs    ] |check the source program."<<std::endl;
-		}
-		else if(command=="cls")
-		{
-			system("cls");
-			//windows  system("cls");
-			//linux system("clear");
-			//macOS system("clear");
-		}
-		else if(command=="rs")
-			prog.print_file();
-		else if(command=="exit")
-			break;
-		else if(command=="lexer")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.print_lexer();
-		}
-		else if(command=="del")
-		{
-			prog.del_file();
-			std::cout<<">>[Delete] Complete."<<std::endl;
-		}
-		else if(command=="parser")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.token_list_type_detail_edit();
-			pas.parse_process(lex.return_list());
-			pas.print_parser_stack();
-			pas.parse_main_work();
-		}
-		else if(command=="ast")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.token_list_type_detail_edit();
-			pas.parse_process(lex.return_list());
-			pas.parse_main_work();
-			if(!pas.get_error_num())
-				pas.print_generated_ast();
-			else
-				std::cout<<">>[Abstract_syntax_tree] error(s) occurred,stop."<<std::endl;
-		}
-		else if(command=="run")
-		{
-			lex.lexer_process(prog.use_file());
-			lex.token_list_type_detail_edit();
-			pas.parse_process(lex.return_list());
-			pas.parse_main_work();
-			if(!pas.get_error_num())
-			{
-				vm.set_root(pas.get_tree());
-				vm.run();
-			}
-			else
-				std::cout<<">>[Runtime] error(s) occurred,stop."<<std::endl;
-		}
-		else
-			prog.input_file(command);
-	}
-	return 0;
-}
diff --git a/version1.3/nasal.h b/version1.3/nasal.h
deleted file mode 100644
index 840d3d8..0000000
--- a/version1.3/nasal.h
+++ /dev/null
@@ -1,19 +0,0 @@
-#ifndef __NASAL_H__
-#define __NASAL_H__
-
-#include <iostream>
-#include <cstring>
-#include <fstream>
-#include <thread>
-#include <stack>
-#include <list>
-#include <ctime>
-
-#include "nasal_token_type.h"
-#include "ast.h"
-#include "nasal_vm.h"
-#include "nasal_lexer.h"
-#include "nasal_parser.h"
-
-
-#endif
diff --git a/version1.3/nasal_lexer.h b/version1.3/nasal_lexer.h
deleted file mode 100644
index 01bc9fc..0000000
--- a/version1.3/nasal_lexer.h
+++ /dev/null
@@ -1,543 +0,0 @@
-#ifndef __NASAL_LEXER_H__
-#define __NASAL_LEXER_H__
-
-#include <iostream>
-#include <fstream>
-#include <list>
-#include <cstring>
-
-#define OPERATOR     1  // operator
-#define IDENTIFIER   2  // id
-#define NUMBER       3  // number
-#define RESERVEWORD  4  // reserve word
-#define STRING       5  // string 
-#define DYNAMIC_ID   6 // id...
-#define FAIL        -1  //fail
-#define SCANEND     -2  //complete scanning
-#define ERRORFOUND  -3  //error occurred
-
-std::string reserve_word[15]=
-{
-	"for","foreach","forindex","while",
-	"var","func","break","continue","return",
-	"if","else","elsif","nil","and","or"
-};
-
-int isReserveWord(std::string &p)
-{
-	for(int i=0;i<15;++i)
-		if(reserve_word[i]==p)
-			return i+1;
-	return FAIL;
-}
-
-bool isLetter(char t)
-{
-	return (('a'<=t) && (t<='z') || ('A'<=t) && (t<='Z'));
-}
-
-bool isNumber(char t)
-{
-	return (('0'<=t) && (t<='9'));
-}
-
-bool isHex(char t)
-{
-	return ((('0'<=t) && (t<='9')) || (('a'<=t) && (t<='f')));
-}
-
-bool isOct(char t)
-{
-	return (('0'<=t) && (t<='7'));
-}
-
-class resource_programme_process
-{
-	private:
-		char *resource;
-	public:
-		resource_programme_process()
-		{
-			resource=NULL;
-			resource=new char[16777216];
-		}
-		~resource_programme_process()
-		{
-			if(resource)
-				delete []resource;
-		}
-		char* use_file()
-		{
-			return resource;
-		}
-		void input_file(std::string& filename)
-		{
-			std::ifstream fin(filename);
-			if(fin.fail())
-			{
-				std::cout<<">>[Error] Cannot load file: "<<filename<<" ."<<std::endl;
-				fin.close();
-				return;
-			}
-			memset(resource,0,sizeof(char));
-			int i=0;
-			int instring=0;
-			bool findnote=false;// to find the note with # at the head of line.
-			while(!fin.eof())
-			{
-				resource[i]=fin.get();
-				if(resource[i]=='\'' || resource[i]=='\"')
-					++instring;
-				if(resource[i]=='\n')
-					findnote=false;
-				//when meeting '\n' the findnote is set to false then the next statement can be executed.
-				if(resource[i]!='#' && !findnote)
-					++i;
-				else if(resource[i]=='#')
-				{
-					if(instring & 1)
-						++i;
-					else
-						findnote=true;
-				}
-				if(fin.eof())
-					break;
-			}
-			resource[i]='\0';
-			fin.close();
-			return;
-		}
-		void print_file()
-		{
-			if(!resource[0])
-			{
-				std::cout<<"0	null"<<std::endl;
-				return;
-			}
-			int line=1;
-			std::cout<<line<<"	";
-			for(int i=0;i<16777216;++i)
-			{
-				if(!resource[i])
-					break;
-				std::cout<<resource[i];
-				if(resource[i]=='\n')
-				{
-					++line;
-					std::cout<<line<<"	";
-				}
-			}
-			std::cout<<std::endl;
-			return;
-		}
-		void del_file()
-		{
-			memset(resource,0,sizeof(char));
-			return;
-		}
-};
-
-struct token
-{
-	int line;
-	int type;
-	std::string content;
-};
-
-class nasal_lexer
-{
-	private:
-		std::list<token> lexer;
-	public:
-		void scanner(int &syn,const char* source,std::string &__token,int &ptr,int &line)
-		{
-			char temp;
-			temp=source[ptr];
-			while(temp==' ' || temp=='\n' || temp=='\t' || temp=='\r' || temp<0 || temp>127)
-			{
-				++ptr;
-				if(temp=='\n')
-					++line;
-				temp=source[ptr];
-			}
-			__token="";
-			if(isLetter(temp) || temp=='_')
-			{
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				while(isLetter(temp) || isNumber(temp) || temp=='_')
-				{
-					__token+=temp;
-					++ptr;
-					temp=source[ptr];
-				}
-				syn=isReserveWord(__token);
-				if(syn==FAIL)
-					syn=IDENTIFIER;
-				else
-					syn=RESERVEWORD;
-				if((syn==IDENTIFIER) && source[ptr]=='.' && source[ptr+1]=='.' && source[ptr+2]=='.')
-				{
-					__token+="...";
-					syn=DYNAMIC_ID;
-					ptr+=3;
-				}
-			}
-			else if(isNumber(temp))
-			{
-				if((source[ptr]=='0') && (source[ptr+1]=='x'))
-				{
-					__token+=source[ptr];
-					__token+=source[ptr+1];
-					ptr+=2;
-					temp=source[ptr];
-					while(isNumber(temp) || isHex(temp))
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if((int)__token.length()==2)
-					{
-						std::cout<<">>[Lexer-warning] lexer: expect a hex-number string after '0x' ."<<std::endl;
-						__token+="0";
-					}
-				}
-				else if((source[ptr]=='0') && (source[ptr+1]=='o'))
-				{
-					__token+=source[ptr];
-					__token+=source[ptr+1];
-					ptr+=2;
-					temp=source[ptr];
-					while(isNumber(temp) || isOct(temp))
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if((int)__token.length()==2)
-					{
-						std::cout<<">>[Lexer-warning] lexer: expect a oct-number string after '0o' ."<<std::endl;
-						__token+="0";
-					}
-				}
-				else
-				{
-					int PointCnt=0;
-					while(isNumber(temp))
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-						if(temp=='.' && !PointCnt)
-						{
-							++PointCnt;
-							__token+=temp;
-							++ptr;
-							temp=source[ptr];
-						}
-					}
-				}
-				syn=NUMBER;
-			}
-			else if(temp=='(' || temp==')' || temp=='[' || temp==']' || temp=='{' ||
-					temp=='}' || temp==',' || temp==';' || temp=='|' || temp==':' ||
-					temp=='?' || temp=='.' || temp=='`' || temp=='&' || temp=='@' ||
-					temp=='%' || temp=='$' || temp=='^')
-			{
-				__token+=temp;
-				++ptr;
-				syn=OPERATOR;
-			}
-			else if(temp=='\'')
-			{
-				syn=STRING;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				while(temp!='\'')
-				{
-					if(temp=='\\')
-					{
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-					}
-					else
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if(temp==0 || temp=='\n')
-						break;
-				}
-				//add the last char \"
-				if(temp=='\'')
-				{
-					__token+=temp;
-					++ptr;
-				}
-				else
-					__token+=" __missing_end_of_string";
-			}
-			else if(temp=='=' || temp=='+' || temp=='-' || temp=='*' || temp=='!' || temp=='/' || temp=='<' || temp=='>' || temp=='~')
-			{
-				syn=OPERATOR;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				if(temp=='=')
-				{
-					__token+=temp;
-					++ptr;
-				}
-			}
-			else if(temp=='\\')
-			{
-				syn=OPERATOR;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				if(temp=='=' || temp=='n' || temp=='t' || temp=='r' || temp=='\\' || temp=='\'' || temp=='\"')
-				{
-					__token+=temp;
-					++ptr;
-				}
-			}
-			else if(temp=='\"')
-			{
-				syn=STRING;
-				__token+=temp;
-				++ptr;
-				temp=source[ptr];
-				while(temp!='\"')
-				{
-					if(temp=='\\')
-					{
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-						__token+=temp;
-						
-						++ptr;
-						temp=source[ptr];
-					}
-					else
-					{
-						__token+=temp;
-						++ptr;
-						temp=source[ptr];
-					}
-					if(temp==0 || temp=='\n')
-						break;
-				}
-				//add the last char \"
-				if(temp=='\"')
-				{
-					__token+=temp;
-					++ptr;
-				}
-				else
-					__token+=" __missing_end_of_string";
-			}
-			else if(temp==0)
-			{
-				syn=SCANEND;
-				return;
-			}
-			else
-			{
-				syn=FAIL;
-				std::cout<<">>[Error] unexpected error occurred: "<<temp<<std::endl;
-				system("pause");
-				++ptr;
-				return;
-			}
-			if(__token=="")
-			{
-				syn=ERRORFOUND;
-				std::cout<<">>[Error] cannot identify "<<std::endl;
-			}
-			return;
-		}
-		void lexer_process(const char *source)
-		{
-			std::cout<<">>[Lexer] max size: "<<lexer.max_size()<<" ."<<std::endl;
-			lexer.clear();
-			int syn=0;//token type
-			int ptr=0;//pointer to one char in ResourcePrograme
-			int line=1;
-			std::string __token;
-			token temp;
-			while(syn!=SCANEND && syn!=ERRORFOUND)
-			{
-				scanner(syn,source,__token,ptr,line);
-				if(syn>0)//all Syn type is larger than zero
-				{
-					temp.line=line;
-					temp.type=syn;
-					temp.content=__token;
-					lexer.push_back(temp);
-				}
-			}
-			std::cout<<">>[Lexer] complete scanning."<<std::endl;
-			return;
-		}
-		void print_lexer()
-		{
-			token temp;
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				temp=*i;
-				std::cout<<"line "<<temp.line<<": ";
-				if(temp.type==OPERATOR)
-					std::cout<<"( Operator       | ";
-				else if(temp.type==IDENTIFIER)
-					std::cout<<"( Identifier     | ";
-				else if(temp.type==NUMBER)
-					std::cout<<"( Number         | ";
-				else if(temp.type==RESERVEWORD)
-					std::cout<<"( ReserveWord    | ";
-				else if(temp.type==STRING)
-					std::cout<<"( String         | ";
-				else if(temp.type==DYNAMIC_ID)
-					std::cout<<"( Identifier     | ";
-				std::cout<<temp.content<<" )"<<std::endl;
-			}
-			return;
-		}
-		void token_list_type_detail_edit()
-		{
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				if((*i).type==RESERVEWORD)
-				{
-					if((*i).content=="var")
-						(*i).type=__var;
-					else if((*i).content=="func")
-						(*i).type=__func;
-					else if((*i).content=="return")
-						(*i).type=__return;
-					else if((*i).content=="nil")
-						(*i).type=__number;
-					else if((*i).content=="continue")
-						(*i).type=__continue;
-					else if((*i).content=="break")
-						(*i).type=__break;
-					else if((*i).content=="and")
-						(*i).type=__and_operator;
-					else if((*i).content=="or")
-						(*i).type=__or_operator;
-					else if((*i).content=="for")
-						(*i).type=__for;
-					else if((*i).content=="forindex")
-						(*i).type=__forindex;
-					else if((*i).content=="foreach")
-						(*i).type=__foreach;
-					else if((*i).content=="while")
-						(*i).type=__while;
-					else if((*i).content=="if")
-						(*i).type=__if;
-					else if((*i).content=="else")
-						(*i).type=__else;
-					else if((*i).content=="elsif")
-						(*i).type=__elsif;
-				}
-				else if(((*i).content=="==") || ((*i).content=="!=") || ((*i).content==">") || ((*i).content==">=") || ((*i).content=="<") || ((*i).content=="<="))
-				{
-					if((*i).content=="==")
-						(*i).type=__cmp_equal;
-					else if((*i).content=="!=")
-						(*i).type=__cmp_not_equal;
-					else if((*i).content==">")
-						(*i).type=__cmp_more;
-					else if((*i).content==">=")
-						(*i).type=__cmp_more_or_equal;
-					else if((*i).content=="<")
-						(*i).type=__cmp_less;
-					else if((*i).content=="<=")
-						(*i).type=__cmp_less_or_equal;
-				}
-				else if(((*i).content==";") || ((*i).content==",") || ((*i).content=="=") || ((*i).content==":") || ((*i).content==".") || ((*i).content=="?") || ((*i).content=="|") || ((*i).content=="&") || ((*i).content=="%") || ((*i).content=="$") || ((*i).content=="`") || ((*i).content=="^") || ((*i).content=="@"))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case ';':(*i).type=__semi;break;
-						case ',':(*i).type=__comma;break;
-						case '=':(*i).type=__equal;break;
-						case ':':(*i).type=__colon;break;
-						case '.':(*i).type=__dot;break;
-						default:(*i).type=__unknown_operator;break;
-					}
-				}
-				else if(((*i).type==NUMBER) || ((*i).type==STRING) || ((*i).type==IDENTIFIER) || ((*i).type==DYNAMIC_ID))
-				{
-					int t=(*i).type;
-					switch(t)
-					{
-						case NUMBER:(*i).type=__number;break;
-						case STRING:(*i).type=__string;break;
-						case IDENTIFIER:(*i).type=__id;break;
-						case DYNAMIC_ID:(*i).type=__dynamic_id;break;
-					}
-				}
-				else if(((*i).content=="+") || ((*i).content=="-") || ((*i).content=="*") || ((*i).content=="/") || ((*i).content=="~") || ((*i).content=="!"))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case '+':(*i).type=__add_operator;break;
-						case '-':(*i).type=__sub_operator;break;
-						case '*':(*i).type=__mul_operator;break;
-						case '/':(*i).type=__div_operator;break;
-						case '~':(*i).type=__link_operator;break;
-						case '!':(*i).type=__nor_operator;break;
-					}
-				}
-				else if(((*i).content=="+=") || ((*i).content=="-=") || ((*i).content=="*=") || ((*i).content=="/=") || ((*i).content=="~="))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case '+':(*i).type=__add_equal;break;
-						case '-':(*i).type=__sub_equal;break;
-						case '*':(*i).type=__mul_equal;break;
-						case '/':(*i).type=__div_equal;break;
-						case '~':(*i).type=__link_equal;break;
-					}
-				}
-				else if(((*i).content=="(") || ((*i).content==")") || ((*i).content=="[") || ((*i).content=="]") || ((*i).content=="{") || ((*i).content=="}"))
-				{
-					char c=(*i).content[0];
-					switch(c)
-					{
-						case '(':(*i).type=__left_curve;break;
-						case ')':(*i).type=__right_curve;break;
-						case '[':(*i).type=__left_bracket;break;
-						case ']':(*i).type=__right_bracket;break;
-						case '{':(*i).type=__left_brace;break;
-						case '}':(*i).type=__right_brace;break;
-					}
-				}
-			}
-			return;
-		}
-		std::list<token>& return_list()
-		{
-			return lexer;
-		}
-};
-		
-
-		
-
-#endif
diff --git a/version1.3/nasal_parser.h b/version1.3/nasal_parser.h
deleted file mode 100644
index d40b6f0..0000000
--- a/version1.3/nasal_parser.h
+++ /dev/null
@@ -1,1821 +0,0 @@
-#ifndef __NASAL_PARSER_H__
-#define __NASAL_PARSER_H__
-
-class nasal_parser
-{
-	private:
-		abstract_syntax_tree root;
-		std::stack<token> parse;
-		token this_token;
-		int error;
-		int warning;
-	public:
-		nasal_parser()
-		{
-			error=0;
-			warning=0;
-			this_token.type=0;
-		}
-		void get_token()
-		{
-			if(parse.empty())
-			{
-				this_token.type=0;
-				return;
-			}
-			this_token=parse.top();
-			parse.pop();
-			return;
-		}
-		int get_error_num()
-		{
-			return error;
-		}
-		abstract_syntax_tree& get_tree()
-		{
-			return root;
-		}
-		void print_generated_ast()
-		{
-			std::cout<<">>[Abstract-syntax-tree]"<<std::endl;
-			root.print_tree(1);
-			return;
-		}
-		void print_parser_stack()
-		{
-			if(parse.empty())
-				return;
-			int line=0;
-			std::stack<token> temp;
-			while(!parse.empty())
-			{
-				temp.push(parse.top());
-				if(line!=temp.top().line)
-				{
-					if(line+1==temp.top().line)
-					{
-						line=temp.top().line;
-						if(line==1)
-							std::cout<<"line "<<line<<"   ";
-						else
-							std::cout<<std::endl<<"line "<<line<<"   ";
-					}
-					else
-					{
-						while(line!=temp.top().line)
-						{
-							++line;
-							std::cout<<std::endl<<"line "<<line<<"   ";
-						}
-					}
-				}
-				std::cout<<"<";
-				print_token(temp.top().type);
-				std::cout<<"> ";
-				parse.pop();
-			}
-			while(!temp.empty())
-			{
-				parse.push(temp.top());
-				temp.pop();
-			}
-			std::cout<<std::endl;
-			return;
-		}
-		void parse_process(std::list<token>& lexer)
-		{
-			while(!parse.empty())
-				parse.pop();
-			std::stack<token> temp;
-			for(std::list<token>::iterator i=lexer.begin();i!=lexer.end();++i)
-			{
-				token temp_parse;
-				temp_parse=*i;
-				temp.push(temp_parse);//push this into stack
-			}
-			if(temp.empty())
-			{
-				std::cout<<">>[Parse] warning: empty lexer list."<<std::endl;
-				return;
-			}
-			while(!temp.empty())
-			{
-				parse.push(temp.top());
-				temp.pop();
-			}
-			return;
-		}
-		void parse_main_work();
-		abstract_syntax_tree in_curve_calc_expr();
-		abstract_syntax_tree calculation_expr();
-		abstract_syntax_tree identifier_call_expr();
-		abstract_syntax_tree call_list_expr();
-		abstract_syntax_tree parameter_function_expr();
-		abstract_syntax_tree call_function_expr();
-		abstract_syntax_tree call_hash_expr();
-		abstract_syntax_tree list_generate_expr();
-		abstract_syntax_tree hash_generate_expr();
-		abstract_syntax_tree definition_expr();
-		abstract_syntax_tree assignment_expr();
-		abstract_syntax_tree loop_expr();
-		bool else_if_check();
-		abstract_syntax_tree if_else_expr();
-		abstract_syntax_tree and_operator_expr();
-		abstract_syntax_tree add_sub_cmp_operator_expr();
-		abstract_syntax_tree mul_div_operator_expr();
-		abstract_syntax_tree unary_operator_expr();
-		void check_semi_at_end();
-		abstract_syntax_tree statements_block();
-		abstract_syntax_tree function_generate_expr();
-		abstract_syntax_tree return_expr();
-};
-void nasal_parser::check_semi_at_end()
-{
-	get_token();
-	if(this_token.type!=__semi)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ';'."<<std::endl;
-	}
-	return;
-}
-abstract_syntax_tree nasal_parser::return_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__return);
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node.add_child(calculation_expr());
-			break;
-		case __func:
-			node.add_child(function_generate_expr());
-			break;
-		case __left_bracket:
-			node.add_child(list_generate_expr());
-			break;
-		case __left_brace:
-			node.add_child(hash_generate_expr());
-			break;
-		case __semi:parse.push(this_token);break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data or ';' after __return_expr."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::statements_block()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node.set_node_type(__normal_statement_block);
-	get_token();
-	if(this_token.type!=__left_brace)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '{' when generating a __block."<<std::endl;
-		return node;
-	}
-	get_token();
-	while(this_token.type!=__right_brace)
-	{
-		temp.set_clear();
-		switch(this_token.type)
-		{
-			case __var:
-				node.add_child(definition_expr());
-				check_semi_at_end();break;
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				check_semi_at_end();break;
-			case __if:
-				parse.push(this_token);
-				node.add_child(if_else_expr());
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:
-				parse.push(this_token);
-				node.add_child(loop_expr());
-				break;
-			case __continue:
-			case __break:
-				temp.set_node_type(this_token.type);
-				node.add_child(temp);
-				check_semi_at_end();break;
-			case __semi:break;
-			case __return:
-				node.add_child(return_expr());
-				check_semi_at_end();break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": '";
-				print_token(this_token.type);
-				std::cout<<"' incorrect token as the beginning of statement."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::function_generate_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node.set_node_type(__function);
-	get_token();
-	if(this_token.type==__left_brace)
-		parse.push(this_token);
-	else if(this_token.type==__left_curve)
-	{
-		get_token();
-		while(this_token.type!=__right_curve)
-		{
-			temp.set_clear();
-			if(this_token.type==__id || this_token.type==__dynamic_id)
-			{
-				temp.set_node_type(__id);
-				temp.set_var_name(this_token.content);
-				get_token();
-				if(this_token.type!=__equal)
-					parse.push(this_token);
-				else
-				{
-					get_token();
-					switch(this_token.type)
-					{
-						case __left_curve:
-						case __id:
-						case __number:
-						case __string:
-						case __nor_operator:
-						case __sub_operator:
-							parse.push(this_token);
-							temp.add_child(calculation_expr());
-							break;
-						case __left_brace:
-							temp.add_child(hash_generate_expr());
-							break;
-						case __left_bracket:
-							temp.add_child(list_generate_expr());
-							break;
-						case __func:
-							temp.add_child(function_generate_expr());
-							break;
-						default:
-							++error;
-							std::cout<<">>[Error] line "<<this_token.line<<": expect a scalar after operator '=' ."<<std::endl;
-							return node;
-							break;
-					}
-				}
-				node.add_child(temp);
-				get_token();
-				if(this_token.type!=__right_curve && this_token.type!=__comma)
-				{
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ')' when creating a __function."<<std::endl;
-					return node;
-				}
-				else if(this_token.type==__right_curve)
-					parse.push(this_token);
-			}
-			else if(this_token.type==__dynamic_id)
-			{
-				get_token();
-				if(this_token.type!=__right_curve)
-				{
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": must put ')' after __dynamic_id."<<std::endl;
-					return node;
-				}
-				parse.push(this_token);
-			}
-			else
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect __id and __dynamic_id only."<<std::endl;
-				return node;
-			}
-			get_token();
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-		print_token(this_token.type);
-		std::cout<<"' when creating a __function."<<std::endl;
-		return node;
-	}
-	get_token();
-	if(this_token.type==__left_brace)
-	{
-		parse.push(this_token);
-		node.add_child(statements_block());
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": function must have a statement block begin with '{' ."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::list_generate_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__list);
-	get_token();
-	while(this_token.type!=__right_bracket)
-	{
-		switch(this_token.type)
-		{
-			case __nor_operator:
-			case __sub_operator:
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __left_bracket:
-				node.add_child(list_generate_expr());
-				break;
-			case __left_brace:
-				node.add_child(hash_generate_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when creating a __list."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_bracket)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ']' but get '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __list."<<std::endl;
-			return node;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::hash_generate_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	abstract_syntax_tree hashmember;
-
-	node.set_node_type(__hash);
-	get_token();
-	while(this_token.type!=__right_brace)
-	{
-		hashmember.set_clear();
-		hashmember.set_node_type(__hash_member);
-		if(this_token.type!=__id && this_token.type!=__string)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __hash_member."<<std::endl;
-			return node;
-		}
-		else
-		{
-			parse.push(this_token);
-			hashmember.add_child(calculation_expr());
-		}
-		get_token();
-		if(this_token.type!=__colon)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ':' when creating a __hash_member."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				hashmember.add_child(calculation_expr());
-				break;
-			case __func:
-				get_token();
-				if(this_token.type==__id)
-				{
-					parse.push(this_token);
-					hashmember.add_child(calculation_expr());
-				}
-				else
-				{
-					parse.push(this_token);
-					hashmember.add_child(function_generate_expr());
-				}
-				break;
-			case __left_bracket:
-				hashmember.add_child(list_generate_expr());
-				break;
-			case __left_brace:
-				hashmember.add_child(hash_generate_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-				print_token(this_token.type);
-				std::cout<<"' when creating a __hash_member."<<std::endl;
-				return node;
-				break;
-		}
-		node.add_child(hashmember);
-		get_token();
-		if(this_token.type!=__comma && this_token.type!=__right_brace)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or '}' but get '";
-			print_token(this_token.type);
-			std::cout<<"' when creating a __hash."<<std::endl;
-			return node;
-		}
-		else if(this_token.type==__comma)
-			get_token();
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::definition_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__definition);
-	get_token();
-	if(this_token.type!=__id)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect an __id."<<std::endl;
-		return node;
-	}
-	else
-	{
-		abstract_syntax_tree new_identifier;
-		new_identifier.set_node_type(__id);
-		new_identifier.set_var_name(this_token.content);
-		node.add_child(new_identifier);
-	}
-	get_token();
-	if(this_token.type!=__equal && this_token.type!=__semi)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '=' after __id."<<std::endl;
-		return node;
-	}
-	else if(this_token.type==__semi)
-	{
-		parse.push(this_token);// for semi check
-		++warning;
-		std::cout<<">>[Warning] line "<<this_token.line<<": better initializing this."<<std::endl;
-		return node;
-	}
-	get_token();
-	token semi_token;
-	semi_token.line=this_token.line;
-	semi_token.type=__semi;
-	semi_token.content=";";
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node.add_child(calculation_expr());
-			break;
-		case __func:
-			node.add_child(function_generate_expr());
-			parse.push(semi_token);
-			break;
-		case __left_bracket:
-			node.add_child(list_generate_expr());
-			break;
-		case __left_brace:
-			node.add_child(hash_generate_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after this operator."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::assignment_expr()
-{
-	abstract_syntax_tree node;
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node=calculation_expr();
-			break;
-		case __func:
-			node=function_generate_expr();
-			break;
-		case __left_bracket:
-			node=list_generate_expr();
-			break;
-		case __left_brace:
-			node=hash_generate_expr();
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when doing assignment."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-bool nasal_parser::else_if_check()
-{
-	token temp=this_token;
-	if(this_token.type!=__else)
-		return false;
-	else
-	{
-		get_token();
-		if(this_token.type!=__if)
-		{
-			parse.push(this_token);
-			this_token=temp;
-			// to avoid when recognizing 'else' without 'if' 
-			return false;
-		}
-	}
-	return true;
-}
-abstract_syntax_tree nasal_parser::if_else_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	abstract_syntax_tree temp2;
-	node.set_node_type(__ifelse);
-	temp.set_clear();
-	get_token();
-	if(this_token.type!=__if)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a 'if' when creating new if-else statement."<<std::endl;
-		return node;
-	}
-	temp.set_node_type(__if);
-	get_token();
-	if(this_token.type!=__left_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when making a condition."<<std::endl;
-		return node;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __sub_operator:
-		case __nor_operator:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			temp.add_child(calculation_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a correct condition."<<std::endl;
-			return node;
-			break;
-	}
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when making a condition."<<std::endl;
-		return node;
-	}
-	get_token();
-	if(this_token.type==__left_brace)
-	{
-		// if without { then only one statement is behind it
-		parse.push(this_token);
-		temp.add_child(statements_block());
-	}
-	else
-	{
-		switch(this_token.type)
-		{
-			case __var:
-				temp.add_child(definition_expr());
-				check_semi_at_end();
-				break;
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-			case __left_curve:
-				parse.push(this_token);
-				temp.add_child(calculation_expr());
-				check_semi_at_end();
-				break;
-			case __if:
-				parse.push(this_token);
-				temp.add_child(if_else_expr());
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:
-				parse.push(this_token);
-				temp.add_child(loop_expr());
-				break;
-			case __continue:
-			case __break:
-				temp2.set_clear();
-				temp2.set_node_type(this_token.type);
-				temp.add_child(temp2);
-				check_semi_at_end();
-				break;
-			case __semi:break;
-			case __return:
-				temp.add_child(return_expr());
-				check_semi_at_end();
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when generating a statement."<<std::endl;
-				return node;
-				break;
-		}
-	}
-	node.add_child(temp);
-	if(parse.empty())
-		return node;
-	get_token();
-	while(this_token.type==__elsif || else_if_check())
-	{
-		temp.set_clear(); 
-		temp.set_node_type(__elsif);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' when making a condition."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				temp.add_child(calculation_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a correct condition."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when making a condition."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			temp.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					temp.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					temp.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					temp.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					temp.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp2.set_node_type(this_token.type);
-					temp.add_child(temp2);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					temp.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when generating a statement."<<std::endl;
-					return node;
-					break;
-			}
-		}
-		node.add_child(temp);
-		if(parse.empty())
-			return node;
-		get_token();
-	}
-	temp.set_clear();
-	if(this_token.type==__else)
-	{
-		temp.set_node_type(__else);
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			temp.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					temp.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					temp.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					temp.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					temp.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp2.set_node_type(this_token.type);
-					temp.add_child(temp2);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					temp.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when generating a statement."<<std::endl;
-					return node;
-					break;
-			}
-		}
-		node.add_child(temp);
-	}
-	else
-		parse.push(this_token);
-	return node;
-}
-abstract_syntax_tree nasal_parser::loop_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	get_token();
-	if(this_token.type==__while)
-	{
-		node.set_node_type(__while);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'while'."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a condition."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'while('."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			node.add_child(statements_block());
-		}
-		else
-		{
-
-			switch(this_token.type)
-			{
-				case __var:
-					node.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					node.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					node.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp.set_node_type(this_token.type);
-					node.add_child(temp);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					node.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					return node;
-					break;
-			}
-		}
-	}
-	else if(this_token.type==__for)
-	{
-		node.set_node_type(__for);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'for'."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				node.add_child(definition_expr());
-				break;
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __semi:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __semi:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __right_curve:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'for('."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			node.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					node.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					node.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					node.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp.set_node_type(this_token.type);
-					node.add_child(temp);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					node.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					return node;
-					break;
-			}
-		}
-	}
-	else if(this_token.type==__forindex || this_token.type==__foreach)
-	{
-		node.set_node_type(this_token.type);
-		get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a '(' after 'forindex' or 'foreach'."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				node.add_child(definition_expr());
-				break;
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __semi:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		check_semi_at_end();
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __id:
-			case __number:
-			case __string:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __left_bracket:
-				node.add_child(list_generate_expr());
-				break;
-			case __right_curve:parse.push(this_token);break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when creating a new loop."<<std::endl;
-				return node;
-				break;
-		}
-		get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' after 'forindex(' or 'foreach('."<<std::endl;
-			return node;
-		}
-		get_token();
-		if(this_token.type==__left_brace)
-		{
-			// if without { then only one statement is behind it
-			parse.push(this_token);
-			node.add_child(statements_block());
-		}
-		else
-		{
-			switch(this_token.type)
-			{
-				case __var:
-					node.add_child(definition_expr());
-					check_semi_at_end();
-					break;
-				case __sub_operator:
-				case __nor_operator:
-				case __id:
-				case __number:
-				case __string:
-				case __left_curve:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					check_semi_at_end();
-					break;
-				case __if:
-					parse.push(this_token);
-					node.add_child(if_else_expr());
-					break;
-				case __while:
-				case __for:
-				case __foreach:
-				case __forindex:
-					parse.push(this_token);
-					node.add_child(loop_expr());
-					break;
-				case __continue:
-				case __break:
-					temp.set_node_type(this_token.type);
-					node.add_child(temp);
-					check_semi_at_end();
-					break;
-				case __semi:break;
-				case __return:
-					node.add_child(return_expr());
-					check_semi_at_end();
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": \'";
-					print_token(this_token.type);
-					std::cout<<"\' when creating a new loop."<<std::endl;
-					return node;
-					break;
-			}
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-		print_token(this_token.type);
-		std::cout<<"' when creating a new loop."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::mul_div_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	get_token();
-	switch(this_token.type)
-	{
-		case __nor_operator:
-		case __sub_operator:
-			node=unary_operator_expr();
-			break;
-		case __number:
-			node.set_node_type(__number);
-			node.set_var_number(this_token.content);
-			break;
-		case __string:
-			node.set_node_type(__string);
-			node.set_var_string(this_token.content);
-			break;
-		case __id:
-			node=identifier_call_expr();
-			break;
-		case __left_curve:
-			node=in_curve_calc_expr();
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator."<<std::endl;
-			return node;
-			break;
-	}
-	while(1)
-	{
-		get_token();
-		if(this_token.type==__unknown_operator)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator."<<std::endl;
-			return node;
-		}
-		if(this_token.type!=__mul_operator && this_token.type!=__div_operator)
-		{
-			parse.push(this_token);
-			break;
-		}
-		else
-		{
-			temp.set_clear();
-			temp.set_node_type(this_token.type);
-			temp.add_child(node);
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __nor_operator:
-			case __sub_operator:
-				temp.add_child(unary_operator_expr());
-				node=temp;
-				break;
-			case __number:
-				node.set_clear();
-				node.set_node_type(__number);
-				node.set_var_number(this_token.content);
-				temp.add_child(node);
-				node=temp;
-				break;
-			case __string:
-				node.set_clear();
-				node.set_node_type(__string);
-				node.set_var_string(this_token.content);
-				temp.add_child(node);
-				node=temp;
-				break;
-			case __id:
-				node=identifier_call_expr();
-				temp.add_child(node);
-				node=temp;
-				break;
-			case __left_curve:
-				temp.add_child(in_curve_calc_expr());
-				node=temp;
-				break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator."<<std::endl;
-				return node;
-				break;
-		}
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::add_sub_cmp_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	// number / string / identifier haven't been checked
-	get_token();
-	if(this_token.type==__func)// only lambda (func (){...})() can use this condition
-	{
-		node=(function_generate_expr());
-		return node;
-	}
-	else
-		parse.push(this_token);
-	node=mul_div_operator_expr();
-	while(1)
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __cmp_equal:
-			case __cmp_not_equal:
-			case __cmp_less:
-			case __cmp_more:
-			case __cmp_less_or_equal:
-			case __cmp_more_or_equal:
-			case __add_operator:
-			case __sub_operator:
-			case __link_operator:
-				temp.set_clear();
-				temp.set_node_type(this_token.type);
-				temp.add_child(node);
-				break;
-			case __semi:parse.push(this_token);return node;break;
-			case __unknown_operator:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator '"<<this_token.content<<"'."<<std::endl;
-				return node;break;
-			default:parse.push(this_token);return node;break;
-		}
-		temp.add_child(mul_div_operator_expr());
-		node=temp;
-	}
-	return node; 
-}
-abstract_syntax_tree nasal_parser::unary_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node.set_node_type(this_token.type);
-	get_token();
-	switch(this_token.type)
-	{
-		case __number:
-			temp.set_node_type(__number);
-			temp.set_var_number(this_token.content);
-			node.add_child(temp);
-			break;
-		case __string:
-			temp.set_node_type(__string);
-			temp.set_var_string(this_token.content);
-			node.add_child(temp);
-			break;
-		case __id:
-			temp=identifier_call_expr();
-			node.add_child(temp);
-			break;
-		case __left_curve:
-			node.add_child(in_curve_calc_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a data after operator '!' or '-'."<<std::endl;
-			return node;
-			break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::in_curve_calc_expr()
-{
-	abstract_syntax_tree node;
-	node=calculation_expr();
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ')' when generating __in_curve_calculation."<<std::endl;
-		return node;
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:
-			node.add_child(call_list_expr());
-			break;
-		case __left_curve:
-			node.add_child(call_function_expr());
-			break;
-		default:parse.push(this_token);break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::and_operator_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node=add_sub_cmp_operator_expr();
-	get_token();
-
-	while(this_token.type==__and_operator)
-	{
-		temp.set_clear();
-		temp.set_node_type(__and_operator);
-		temp.add_child(node);
-		temp.add_child(add_sub_cmp_operator_expr());
-		node=temp;
-		get_token();
-	}
-	parse.push(this_token);
-	return node;
-}
-abstract_syntax_tree nasal_parser::calculation_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	node=and_operator_expr();
-	get_token();
-	while(this_token.type==__or_operator)
-	{
-		temp.set_clear();
-		temp.set_node_type(__or_operator);
-		temp.add_child(node);
-		temp.add_child(and_operator_expr());
-		node=temp;
-		get_token();
-	}
-	parse.push(this_token);
-	return node;
-}
-abstract_syntax_tree nasal_parser::call_list_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__list_search);
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_curve:
-		case __number:
-		case __string:
-		case __id:
-			parse.push(this_token);
-			node.add_child(calculation_expr());
-			break;
-		default:
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when calling a list."<<std::endl;
-			return node;
-			break;
-	}
-	get_token();
-	if(this_token.type==__colon)// to check if there is [number:number] or [number:]
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_curve:
-			case __number:
-			case __string:
-			case __id:
-				parse.push(this_token);
-				node.add_child(calculation_expr());
-				break;
-			case __right_bracket:parse.push(this_token);break;// this is [number:]
-			default:parse.push(this_token);break;
-		}
-		get_token();
-		if(this_token.type!=__right_bracket)
-		{
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": expect a ']' when calling a list."<<std::endl;
-			return node;
-		}
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_bracket:
-				node.add_child(call_list_expr());
-				break;
-			case __left_curve:
-				node.add_child(call_function_expr());
-				break;
-			case __dot:
-				node.add_child(call_hash_expr());
-				break;
-			default:parse.push(this_token);break;
-		}
-	}
-	else if(this_token.type==__comma)
-	{
-		while(this_token.type!=__right_bracket)
-		{
-			get_token();
-			switch(this_token.type)
-			{
-				case __left_curve:
-				case __number:
-				case __string:
-				case __id:
-					parse.push(this_token);
-					node.add_child(calculation_expr());
-					break;
-				case __right_bracket:parse.push(this_token);break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": incorrect data type when calling a list."<<std::endl;
-					return node;
-					break;
-			}
-			get_token();
-			if(this_token.type!=__comma && this_token.type!=__right_bracket)
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' or ']' when calling a list."<<std::endl;
-				return node;
-			}
-		}
-	}
-	else if(this_token.type==__right_bracket)
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __left_bracket:
-				node.add_child(call_list_expr());
-				break;
-			case __left_curve:
-				node.add_child(call_function_expr());
-				break;
-			case __dot:
-				node.add_child(call_hash_expr());
-				break;
-			default:parse.push(this_token);break;
-		}
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect a ']' when calling a list."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::parameter_function_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__function);
-	get_token();
-	if(this_token.type==__id)
-	{
-		parse.push(this_token);
-		node.add_child(calculation_expr());
-		return node;
-	}
-	else if(this_token.type==__left_curve || this_token.type==__left_brace)
-	{
-		parse.push(this_token);
-		node.add_child(function_generate_expr());
-		return node;
-	}
-	else
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": expect an __id or '(' or '{' when calling or generating a function."<<std::endl;
-		return node;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::call_function_expr()
-{
-	abstract_syntax_tree node;
-	abstract_syntax_tree temp;
-	abstract_syntax_tree hashmember;
-	node.set_node_type(__call_function);
-	get_token();
-	if(this_token.type!=__right_curve)
-	{
-		parse.push(this_token);
-		while(this_token.type!=__right_curve)
-		{
-			get_token();
-			temp.set_clear();
-			hashmember.set_clear();
-			hashmember.set_node_type(__hash_member);
-			switch(this_token.type)
-			{
-				case __left_curve:
-				case __nor_operator:
-				case __sub_operator:
-				case __number:
-				case __string:
-				case __id:
-					parse.push(this_token);
-					temp=calculation_expr();
-					hashmember.add_child(temp);
-					break;
-				case __left_bracket:
-					temp=list_generate_expr();
-					hashmember.add_child(temp);
-					break;
-				case __left_brace:
-					temp=hash_generate_expr();
-					hashmember.add_child(temp);
-					break;
-				case __func:
-					temp=parameter_function_expr();
-					hashmember.add_child(temp);
-					break;
-				default:
-					++error;
-					std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-					print_token(this_token.type);
-					std::cout<<"' when calling a function."<<std::endl;
-					return node;
-					break;
-			}
-			get_token();
-			if(this_token.type==__colon)
-			{
-				get_token();
-				switch(this_token.type)
-				{
-					case __left_curve:
-					case __nor_operator:
-					case __sub_operator:
-					case __number:
-					case __string:
-					case __id:
-						parse.push(this_token);
-						hashmember.add_child(calculation_expr());
-						break;
-					case __left_bracket:
-						hashmember.add_child(list_generate_expr());
-						break;
-					case __left_brace:
-						hashmember.add_child(hash_generate_expr());
-						break;
-					case __func:
-						hashmember.add_child(parameter_function_expr());
-						break;
-					default:
-						++error;
-						std::cout<<">>[Error] line "<<this_token.line<<": incorrect token '";
-						print_token(this_token.type);
-						std::cout<<"' when calling a function."<<std::endl;
-						return node;
-						break;
-				}
-				node.add_child(hashmember);
-			}
-			else
-			{
-				parse.push(this_token);
-				node.add_child(temp);
-			}
-			get_token();
-			if(this_token.type!=__comma && this_token.type!=__right_curve)
-			{
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": expect a ',' after parameter or ')' to end the call."<<std::endl;
-				return node;
-			}
-			if(this_token.type==__comma)
-			{
-				get_token();
-				if(this_token.type!=__right_curve)
-					parse.push(this_token);
-			}
-		}
-	}
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:
-			node.add_child(call_list_expr());
-			break;
-		case __left_curve:
-			node.add_child(call_function_expr());
-			break;
-		case __dot:
-			node.add_child(call_hash_expr());
-			break;
-		default:parse.push(this_token);break;
-	}
-	return node;
-}
-abstract_syntax_tree nasal_parser::call_hash_expr()
-{
-	abstract_syntax_tree node;
-	node.set_node_type(__hash_search);
-	get_token();
-	if(this_token.type!=__id)
-	{
-		++error;
-		std::cout<<">>[Error] line "<<this_token.line<<": missing identifier when calling __hash_member."<<std::endl;
-		return node;
-	}
-	node.add_child(identifier_call_expr());
-	return node;
-}
-abstract_syntax_tree nasal_parser::identifier_call_expr()
-{
-	abstract_syntax_tree node;
-	std::string temp_name=this_token.content;
-	// __id has been checked
-	get_token();
-	switch(this_token.type)
-	{
-		case __left_bracket:
-			node=call_list_expr();
-			break;
-		case __left_curve:
-			node=call_function_expr();
-			break;
-		case __dot:
-			node=call_hash_expr();
-			break;
-		case __unknown_operator:
-			node.set_node_type(__id);
-			++error;
-			std::cout<<">>[Error] line "<<this_token.line<<": __unknown_operator."<<std::endl;
-			return node;
-			break;
-		default:
-			node.set_node_type(__id);
-			parse.push(this_token);
-			break;
-	}
-	node.set_var_name(temp_name);
-	abstract_syntax_tree temp;
-	abstract_syntax_tree assign;
-	get_token();
-	switch(this_token.type)
-	{
-		case __equal:
-		case __add_equal:
-		case __sub_equal:
-		case __mul_equal:
-		case __div_equal:
-		case __link_equal:
-			assign.set_node_type(__assignment);
-			temp.set_node_type(this_token.type);
-			temp.add_child(node);
-			temp.add_child(assignment_expr());
-			assign.add_child(temp);
-			node.set_clear();
-			node=assign;
-			break;
-		default:parse.push(this_token);break;
-	}
-	return node;
-}
-void nasal_parser::parse_main_work()
-{
-	root.set_clear();
-	root.set_node_type(__root);
-	error=0;
-	warning=0;
-	while(!parse.empty())
-	{
-		get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				root.add_child(definition_expr());
-				check_semi_at_end();
-				break;
-			case __sub_operator:
-			case __nor_operator:
-			case __id:
-			case __number:
-			case __string:
-			case __left_curve:
-				parse.push(this_token);
-				root.add_child(calculation_expr());
-				check_semi_at_end();
-				break;
-			case __if:
-				parse.push(this_token);
-				root.add_child(if_else_expr());
-				break;
-			case __while:
-			case __for:
-			case __foreach:
-			case __forindex:
-				parse.push(this_token);
-				root.add_child(loop_expr());
-				break;
-			case __semi:break;
-			default:
-				++error;
-				std::cout<<">>[Error] line "<<this_token.line<<": \'";
-				print_token(this_token.type);
-				std::cout<<"\' when generating __main_statement_block."<<std::endl;
-				if(this_token.type==0)
-				{
-					std::cout<<">>[Error] parse stack empty."<<std::endl;
-					break;
-				}
-				break;
-		}
-	}
-	std::cout<<">>[Parse] complete generation."<<error<<" error(s),"<<warning<<" warning(s)."<<std::endl;
-	return;
-}
-
-#endif
diff --git a/version1.3/nasal_token_type.h b/version1.3/nasal_token_type.h
deleted file mode 100644
index 58760e8..0000000
--- a/version1.3/nasal_token_type.h
+++ /dev/null
@@ -1,118 +0,0 @@
-#ifndef __NASAL_TOKEN_TYPE_H__
-#define __NASAL_TOKEN_TYPE_H__
-
-#include <cstring>
-
-enum token_type
-{
-	__stack_end=1,
-	__equal,                                       // =
-	__cmp_equal,__cmp_not_equal,                   // == !=
-	__cmp_less,__cmp_less_or_equal,                // < <=
-	__cmp_more,__cmp_more_or_equal,                // > >=
-	__and_operator,__or_operator,__nor_operator,   // and or !
-	__add_operator,__sub_operator,                 // + -
-	__mul_operator,__div_operator,__link_operator, // * / ~
-	__add_equal,__sub_equal,                       // += -=
-	__mul_equal,__div_equal,__link_equal,          // *= /= ~=
-	__left_brace,__right_brace,                    // {}
-	__left_bracket,__right_bracket,                // []
-	__left_curve,__right_curve,                    // ()
-	__semi,__comma,__colon,__dot,                  // ; , : .
-	__unknown_operator,
-	__var,__func,__return,
-	__if,__elsif,__else,
-	__continue,__break,
-	__for,__forindex,__foreach,__while,
-	//operators & reserve words
-	
-	__number,__string,__id,__dynamic_id,
-	//basic elements
-	
-	__root,
-	__null_type,
-	__list,__hash,
-	__hash_member,
-	__call_function,__list_search,__hash_search,
-	__normal_statement_block,
-	__definition,__assignment,
-	__function,__loop,__ifelse
-};
-
-void print_token(int type)
-{
-	std::string context="";
-	switch(type)
-	{
-		case __stack_end:         context="#"; break;
-		case __equal:             context="="; break;
-		case __cmp_equal:         context="==";break;
-		case __cmp_not_equal:     context="!=";break;
-		case __cmp_less:          context="<"; break;
-		case __cmp_less_or_equal: context="<=";break;
-		case __cmp_more:          context=">"; break;
-		case __cmp_more_or_equal: context=">=";break;
-		case __and_operator:      context="and";break;
-		case __or_operator:       context="or"; break;
-		case __nor_operator:      context="!"; break;
-		case __add_operator:      context="+"; break;
-		case __sub_operator:      context="-"; break;
-		case __mul_operator:      context="*"; break;
-		case __div_operator:      context="/"; break;
-		case __link_operator:     context="~"; break;
-		case __add_equal:         context="+=";break;
-		case __sub_equal:         context="-=";break;
-		case __mul_equal:         context="*=";break;
-		case __div_equal:         context="/=";break;
-		case __link_equal:        context="~=";break;
-		case __left_brace:        context="{"; break;
-		case __right_brace:       context="}"; break;
-		case __left_bracket:      context="["; break;
-		case __right_bracket:     context="]"; break;
-		case __left_curve:        context="("; break;
-		case __right_curve:       context=")"; break;
-		case __semi:              context=";"; break;
-		case __comma:             context=","; break;
-		case __colon:             context=":"; break;
-		case __dot:               context="."; break;
-		case __unknown_operator:  context="unknown_operator";break;
-		case __var:               context="var"; break;
-		case __func:              context="func";break;
-		case __continue:          context="continye"; break;
-		case __break:             context="break"; break;
-		case __for:               context="for"; break;
-		case __forindex:          context="forindex";break;
-		case __foreach:           context="foreach";break;
-		case __while:             context="while";break;
-		case __if:                context="if";break;
-		case __elsif:             context="elsif";break;
-		case __else:              context="else";break;
-		case __return:            context="return";break;
-		
-		case __id:                context="id";break;
-		case __dynamic_id:        context="id...";break;
-		case __number:            context="num";break;
-		case __string:            context="str";break;
-		
-		case __root:              context="root";break;
-		case __null_type:         context="null_type";break;
-		case __list:              context="list";break;
-		case __hash:              context="hash";break;
-		case __hash_member:       context="hash_member";break;
-		case __call_function:     context="call_func";break;
-		case __list_search:       context="call_list";break;
-		case __hash_search:       context="call_hash";break;
-		case __normal_statement_block:context="block";break;
-		case __definition:        context="definition";break;
-		case __assignment:        context="assignment";break;
-		case __function:          context="function";break;
-		case __loop:              context="loop";break;
-		case __ifelse:            context="if-else";break;
-		default:                  context="undefined_token";break;
-	}
-	std::cout<<context;
-	return;
-}
-
-
-#endif
diff --git a/version1.3/nasal_vm.h b/version1.3/nasal_vm.h
deleted file mode 100644
index 00dfa1a..0000000
--- a/version1.3/nasal_vm.h
+++ /dev/null
@@ -1,260 +0,0 @@
-#ifndef __NASAL_VM_H__
-#define __NASAL_VM_H__
-
-class var
-{
-	private:
-		int type;
-		std::string name;
-		double number;
-		std::string str;
-		std::list<var> var_list;
-		std::list<var> var_hash;
-		abstract_syntax_tree function;
-	public:
-		var()
-		{
-			type=0;
-			name="";
-			number=0;
-			str="";
-			function.set_clear();
-		}
-		var(const var& p)
-		{
-			type=p.type;
-			name=p.name;
-			number=p.number;
-			str=p.str;
-			function=p.function;
-		}
-		var& operator=(const var& p)
-		{
-			type=p.type;
-			name=p.name;
-			number=p.number;
-			str=p.str;
-			function=p.function;
-			return *this;
-		}
-		void print_information()
-		{
-			std::cout<<"[ type: ";print_token(type);std::cout<<" ]";
-			std::cout<<"[ name: "<<name<<" ]";
-			std::cout<<"[ number: "<<number<<" ]";
-			std::cout<<"[ string: "<<str<<" ]"<<std::endl;
-			std::cout<<"[ function: ";
-			function.print_tree(1);
-			std::cout<<" ]"<<std::endl;
-			return;
-		}
-		void print_detail()
-		{
-			switch(type)
-			{
-				case __function:
-					std::cout<<std::endl<<">>[Runtime-error] function type cannot be printed."<<std::endl;
-					break;
-				case __number:
-					std::cout<<number;
-					break;
-				case __string:
-					for(int i=1;i<str.length()-1;++i)
-					{
-						if(str[i]!='\\')
-							std::cout<<str[i];
-						else
-						{
-							switch(str[i+1])
-							{
-								case 'n':std::cout<<"\n";++i;break;
-								case 't':std::cout<<"\t";++i;break;
-								case 'r':std::cout<<"\r";++i;break;
-								case '\\':std::cout<<"\\";++i;break;
-								case '\'':std::cout<<"\'";++i;break;
-								case '\"':std::cout<<"\"";++i;break;
-								default:std::cout<<"\\";break;
-							}
-						}
-					}
-					break;
-			}
-			return;
-		}
-		void set_type(const int var_type)
-		{
-			type=var_type;
-			return;
-		}
-		void set_name(std::string var_name_str)
-		{
-			name=var_name_str;
-			return;
-		}
-		void set_number(const double var_number)
-		{
-			number=var_number;
-			return;
-		}
-		void set_string(std::string s)
-		{
-			str=s;
-			return;
-		}
-		void set_function(abstract_syntax_tree func)
-		{
-			function=func;
-			return;
-		}
-		void set_list(std::list<var> p)
-		{
-			var_list=p;
-			return;
-		}
-		void append_list(var p)
-		{
-			var_list.push_back(p);
-			return;
-		}
-		void set_hash(std::list<var> p)
-		{
-			var_hash=p;
-			return;
-		}
-		void append_hash(var p)
-		{
-			var_hash.push_back(p);
-			return;
-		}
-		int get_type()
-		{
-			return type;
-		}
-		std::string get_name()
-		{
-			return name;
-		}
-		double get_number()
-		{
-			return number;
-		}
-		std::string get_string()
-		{
-			return str;
-		}
-		abstract_syntax_tree get_function()
-		{
-			return function;
-		}
-		std::list<var> get_list()
-		{
-			return var_list;
-		}
-		std::list<var> get_hash()
-		{
-			return var_hash;
-		}
-};
-
-class var_scope_manager
-{
-	private:
-		std::list<std::list<var> > scope_list;
-		var error_var;
-	public:
-		var_scope_manager()
-		{
-			scope_list.clear();
-			std::string str="__nas_strc_lang_error_ret";
-			error_var.set_name(str);
-			error_var.set_type(__null_type);
-			return;
-		}
-		void set_clear()
-		{
-			scope_list.clear();
-			return;
-		}
-		var& search_var(std::string str)
-		{
-			std::list<std::list<var>>::iterator i=scope_list.end();
-			--i;
-			for(;;--i)
-			{
-				for(std::list<var>::iterator j=i->begin();j!=i->end();++j)
-					if(j->get_name()==str)
-						return *j;
-				if(i==scope_list.begin())
-					break;
-			}
-			std::cout<<std::endl<<">>[Runtime-error] could not find the var '"<<str<<"' ."<<std::endl;
-			return error_var;
-		}
-		void add_var(var new_var)
-		{
-			if(scope_list.empty())
-			{
-				std::cout<<std::endl<<">>[Runtime-error] empty scope list."<<std::endl;
-				return;
-			}
-			std::list<std::list<var>>::iterator i=scope_list.end();
-			--i;
-			for(std::list<var>::iterator j=i->begin();j!=i->end();++j)
-			{
-				if(j->get_name()==new_var.get_name())
-				{
-					std::cout<<std::endl<<">>[Runtime-error] redeclaration of var '"<<new_var.get_name()<<"' ."<<std::endl;
-					return;
-				}
-			}
-			i->push_back(new_var);
-			return;
-		}
-		void add_new_scope()
-		{
-			std::list<var> new_list;
-			scope_list.push_back(new_list);
-			return;
-		}
-		void pop_last_scope()
-		{
-			if(!scope_list.empty())
-				scope_list.pop_back();
-			else
-				std::cout<<std::endl<<">>[Runtime-error] scope poped empty thing."<<std::endl;
-			return;
-		}
-};
-
-class nasal_vm
-{
-	private:
-		abstract_syntax_tree root;
-		var_scope_manager scope;
-	public:
-		nasal_vm()
-		{
-			root.set_clear();
-			return;
-		}
-		void run()
-		{
-			std::cout<<">>[Runtime] process begins."<<std::endl;
-			int time_beg,time_end;
-			time_beg=time(NULL);
-			scope.set_clear();
-
-			time_end=time(NULL);
-			std::cout<<std::endl<<">>[Runtime] process exited after "<<time_beg-time_end<<" sec(s)."<<std::endl;
-			return;
-		}
-		void set_root(abstract_syntax_tree& tree)
-		{
-			root.set_clear();
-			root=tree;
-			std::cout<<">>[Runtime] runtime got the ast-root: "<<((void *)&tree)<<"->"<<((void *)&root)<<"."<<std::endl;
-			return;
-		}
-		
-};
-#endif
diff --git a/version2.0/lib/base.nas b/version2.0/lib/base.nas
deleted file mode 100644
index f99e814..0000000
--- a/version2.0/lib/base.nas
+++ /dev/null
@@ -1,172 +0,0 @@
-# nasal lib base.nas
-# 2020/2/4
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-# append
-# The first argument specifies a vector.
-# Appends the remaining arguments to the end of the vector. 
-var append=func(vector,elements...)
-{
-    nasal_call_builtin_push_back(vector,elements);
-    return nil;
-}
-
-# setsize
-# Sets the size of a vector.
-# The first argument specifies a vector, the second a number representing the desired size of that vector.
-# If the vector is currently larger than the specified size,it is truncated.
-# If it is smaller, it is padded with nil entries.Returns the vector operated upon. 
-var setsize=func(vector,__size)
-{
-    nasal_call_builtin_set_size(vector,__size);
-    return nil;
-}
-
-# subvec
-# Returns a sub-range of a vector.
-# The first argument specifies a vector, the second a starting index,
-# and the optional third argument indicates a length (the default is to the end of the vector).
-var subvec=func(vector,start,length=nil)
-{
-    return nasal_call_builtin_subvec(vector,start,length);
-}
-
-# contains
-# The first argument specifies a hash, the second must be a scalar.
-# Returns 1 if the hash contains the scalar as a key, 0 if not.
-var contains=func(hash,key)
-{
-    return nasal_call_builtin_contains(hash,key);
-}
-
-# delete
-# The first argument specifies a hash, the second must be a scalar key.
-# Deletes the key from the hash if it exists.
-# Operationally, this is identical to setting the hash value specified by the key to nil,
-# but this variant potentially frees storage by deleting the reference to the key and by shrinking the hash.
-var delete=func(hash,key)
-{
-    nasal_call_builtin_delete(hash,key);
-    return;
-}
-
-# int
-# Returns the integer part of the numeric value of the single argument, or nil if none exists.
-# Truncates towards zero, not negative infinity (i.e. it's implemented in C as a double tointeger typecast).
-var int=func(value)
-{
-    return nasal_call_builtin_trans_int(value);
-}
-
-# num
-# Returns the numeric value of the single argument, or nil if none exists.
-var num=func(value)
-{
-    return nasal_call_builtin_trans_num(value);
-}
-
-# keys
-# Returns a vector containing the list of keys found in the single hash argument.
-var keys=func(hash)
-{
-    return nasal_call_builtin_get_keys(hash);
-}
-
-# pop
-# Removes and returns the last element of the single vector argument.
-var pop=func(vector)
-{
-    return nasal_call_builtin_pop_back(vector);
-}
-
-# size
-# Returns the size of the single argument.
-# For strings, this is the length in bytes.
-# For vectors, this is the number of elements.
-# For hashes, it is the number of key/value pairs.
-# Returns nil for number and nil arguments.
-var size=func(object)
-{
-    return nasal_call_builtin_sizeof(object);
-}
-
-# streq
-# Tests the string values of the two arguments for equality.
-# Needed because the == operator in Nasal tests for numeric equality, as in perl.
-# So "0" == "0.0" is true,but streq("0", "0.0") is false.
-# This is rarely required in typical code. 
-var streq=func(__a,__b)
-{
-    return nasal_call_builtin_str_cmp_equal(__a,__b);
-}
-
-# cmp
-# 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)
-{
-    return nasal_call_builtin_cmp(__a,__b);
-}
-
-# sort
-# Creates a new vector containing the elements in the input vector sorted in ascending order according to the rule givenby function,
-# which takes two arguments (elements of the input vector) and should return less than zero, zero, or greater than zero if the first argument is,
-# respectively, less than, equal to, or greater than the second argument. Despite being implemented with ANSI C qsort(),
-# 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)
-{
-    nasal_call_builtin_cpp_sort(vector,function);
-    return;
-}
-
-# substr
-# Computes a substring.
-# The first argument specifes a string, the second is an integer index of the start of a substring,
-# the optional third argument specifies a length (the default is to return the remaining string).
-# Example: substr("abcde", 1, 3) returns "bcd". 
-var substr=func(__string,start,length=nil)
-{
-    return nasal_call_builtin_substr(__string,start,length);
-}
-
-# sprintf
-# Creates and returns a string formatted as per ANSI C sprintf(). 
-var sprintf=func(__format,var_args...)
-{
-    return nasal_call_builtin_sprintf(__format,var_args);
-}
-
-# 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.
-var find=func(needle,haystack)
-{
-    return nasal_call_builtin_find_first_occur(needle,haystack);
-}
-
-# split
-# Splits the input string into a vector of substrings bounded by occurences of the delimeter substring. 
-var split=func(delimeter,__string)
-{
-    return nasal_call_builtin_split(delimeter,__string);
-}
-
-# rand
-# Returns a random number in the range [0:1) (that is, 0.0 is a possible return value. 1.0 is not).
-# If a numeric argument is specified, it is used as a seed instead and the function returns nil.
-# Implemented in terms of the C library's rand/srand functions;
-# 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)
-{
-    return nasal_call_builtin_rand(seed);
-}
-
-# id
-# Returns a unique string identifying the object.
-# Two id strings are equal if and only if the two references point to the same object in memory.
-# Numbers don't have id's and will cause a runtime error if passed to id(). 
-var id=func(thing)
-{
-    return nasal_call_builtin_get_id(thing);
-}
\ No newline at end of file
diff --git a/version2.0/lib/bits.nas b/version2.0/lib/bits.nas
deleted file mode 100644
index d5b769f..0000000
--- a/version2.0/lib/bits.nas
+++ /dev/null
@@ -1,36 +0,0 @@
-# nasal lib bits.nas
-# 2020/2/8
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var bits=
-{
-    # Interpreting the string str as bits,
-    # returns the bitfield of the specified length starting at startbit.
-    # Interprets the result as an unsigned integer.
-    # The bit order is bytewise big endian: The 0th bit is the high bit of the first byte.
-    # The last bit is the low bit of the last byte in the string. 
-    fld:func(__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. 
-    sfld:func(__string,startbit,length)
-    {
-        return nasal_call_builtin_sbitcalc(__string,startbit,length);
-    },
-    # 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).
-    # Attempts to modify immutable strings (e.g. compile time constants) will produce a runtime error. 
-    setfld:func(__string,startbit,length,value)
-    {
-        return nasal_call_builtin_setbit(__string,startbit,length,value);
-    },
-    # Returns a zero-filled mutable string of the specified length. 
-    buf:func(length)
-    {
-        return nasal_call_builtin_null_string_gen(length);
-    },
-};
\ No newline at end of file
diff --git a/version2.0/lib/io.nas b/version2.0/lib/io.nas
deleted file mode 100644
index 29c6093..0000000
--- a/version2.0/lib/io.nas
+++ /dev/null
@@ -1,74 +0,0 @@
-# nasal lib io.nas
-# 2020/2/8
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var io=
-{
-    # Opens the file with the specified mode (as per ANSI fopen()) and returns a ghost object representing the filehandle.
-    # Failures are thrown as runtime errors as per die(). 
-    open:func(filename,mode="r")
-    {
-        return nasal_call_builtin_c_fopen(filename,mode);
-    },
-    # Closes the specified file as per ANSI fclose(). 
-    close:func(filehandle)
-    {
-        nasal_call_builtin_c_fclose(filehandle);
-        return;
-    },
-    # Attempts to read length bytes from the filehandle into the beginning of the mutable string buf.
-    # Failures (including overruns when length > size(buf)) are thrown as runtime errors as per die().
-    # Returns the number of bytes successfully read. 
-    read:func(filehandle,buf,length)
-    {
-        return nasal_call_builtin_c_read(filehandle,buf,length);
-    },
-    # Attempts to write the entirety of the specified string to the filehandle.
-    # Failures are thrown as runtime errors as per die().
-    # Returns the number of bytes successfully written. 
-    write:func(filehandle,str)
-    {
-        return nasal_call_builtin_c_write(filehandle,str);
-    },
-    # As ANSI fseek().
-    # Attempts to seek to the specified position based on the whence value
-    # (which must be one of io.SEEK_SET,io.SEEK_END, or io.SEEK_CUR)
-    SEEK_SET:1,
-    SEEK_CUR:2,
-    SEEK_END:3,
-    seek:func(filehandle,position,whence)
-    {
-        nasal_call_builtin_c_seek(filehandle,position,whence);
-        return;
-    },
-    # Returns the current seek position of the filehandle. 
-    tell:func(filehandle)
-    {
-        return nasal_call_builtin_c_tell(filehandle);
-    },
-    # Reads and returns a single text line from the filehandle.
-    # Interprets both "\n" and "\r\n" as end of line markers,
-    # and does not include the "\r" or "\n" bytes in the returned string.
-    # End offile or error is signaled by returning nil. 
-    readln:func(filehandle)
-    {
-        return nasal_call_builtin_builtin_c_getline(filehandle);
-    },
-    # Calls unix or win32 stat() on the specified file name and
-    # returns a seven element array whose contents are,
-    # in order: dev, ino, mode,nlink, uid, gid, rdef, size, atime, mtime, ctime.
-    # Errors are signaled as exceptions as per die().
-    stat:func(filename)
-    {
-        return nasal_call_builtin_builtin_stat(filename);
-    },
-};
-
-var print=func(dyn...)
-{
-    nasal_call_builtin_c_std_puts(dyn);
-    return nil;
-};
\ No newline at end of file
diff --git a/version2.0/lib/math.nas b/version2.0/lib/math.nas
deleted file mode 100644
index 1bbafa4..0000000
--- a/version2.0/lib/math.nas
+++ /dev/null
@@ -1,49 +0,0 @@
-# nasal lib math.nas
-# 2020/2/8
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var math=
-{
-    # Euler's constant
-    e:2.7182818284590452354,
-    pi:3.14159265358979323846,
-    # Returns the sine of the single argument 
-    sin:func(x)
-    {
-        return nasal_call_builtin_sin(x);
-    },
-    # Returns the cosine of the single argument
-    cos:func(x)
-    {
-        return nasal_call_builtin_cos(x);
-    },
-    # you know what the f*ck this is
-    tan:func(x)
-    {
-        return nasal_call_builtin_tan(x);
-    },
-    # Returns e (Euler's constant) raised to the power specified by the single argument 
-    exp:func(x)
-    {
-        return nasal_call_builtin_exp(x);
-    },
-    # Returns the natural logarithm of the single argument. 
-    ln:func(x)
-    {
-        return nasal_call_builtin_cpp_math_ln(x);
-    },
-    # Returns the square root of the single argument. 
-    sqrt:func(x)
-    {
-        return nasal_call_builtin_cpp_math_sqrt(x);
-    },
-    # Returns the arctangent of y/x, with the correct sign for the quadrant.
-    # Wraps the ANSI C function of the same name. 
-    atan2:func(x,y)
-    {
-        return nasal_call_builtin_cpp_atan2(x,y);
-    },
-};
\ No newline at end of file
diff --git a/version2.0/lib/readline.nas b/version2.0/lib/readline.nas
deleted file mode 100644
index 875d086..0000000
--- a/version2.0/lib/readline.nas
+++ /dev/null
@@ -1,12 +0,0 @@
-# nasal lib readline.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-# GNU Readline Library
-var readline=func(prompt="> ")
-{
-    return;
-}
\ No newline at end of file
diff --git a/version2.0/lib/regex.nas b/version2.0/lib/regex.nas
deleted file mode 100644
index f7642fd..0000000
--- a/version2.0/lib/regex.nas
+++ /dev/null
@@ -1,12 +0,0 @@
-# nasal lib regex.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var regex=
-{
-    comp:func(){},
-    exec:func(){},
-};
\ No newline at end of file
diff --git a/version2.0/lib/sqlite.nas b/version2.0/lib/sqlite.nas
deleted file mode 100644
index 838e612..0000000
--- a/version2.0/lib/sqlite.nas
+++ /dev/null
@@ -1,15 +0,0 @@
-# nasal lib sqlite.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var sqlite=
-{
-    open:func(){},
-    close:func(){},
-    prepare:func(){},
-    exec:func(){},
-    finalize:func(){},
-};
\ No newline at end of file
diff --git a/version2.0/lib/system.nas b/version2.0/lib/system.nas
deleted file mode 100644
index 9816478..0000000
--- a/version2.0/lib/system.nas
+++ /dev/null
@@ -1,9 +0,0 @@
-var system=
-{
-    # print the type of thing on the screen
-    type:func(thing)
-    {
-        nasal_call_builtin_scalar_type(thing);
-        return;
-    }
-};
\ No newline at end of file
diff --git a/version2.0/lib/thread.nas b/version2.0/lib/thread.nas
deleted file mode 100644
index 1cb52f9..0000000
--- a/version2.0/lib/thread.nas
+++ /dev/null
@@ -1,17 +0,0 @@
-# nasal lib thread.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var thread=
-{
-    newthread:func(){},
-    newlock:func(){},
-    lock:func(){},
-    unlock:func(){},
-    newsem:func(){},
-    semdown:func(){},
-    semup:func(){},
-};
\ No newline at end of file
diff --git a/version2.0/lib/unix.nas b/version2.0/lib/unix.nas
deleted file mode 100644
index 6237a2c..0000000
--- a/version2.0/lib/unix.nas
+++ /dev/null
@@ -1,22 +0,0 @@
-# nasal lib unix.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var unix=
-{
-    pipe:func(){},
-    fork:func(){},
-    dup2:func(){},
-    exec:func(){},
-    waitpid:func(){},
-    opendir:func(){},
-    readdir:func(){},
-    closedir:func(){},
-    time:func(){},
-    chdir:func(){},
-    environ:func(){},
-    sleep:func(){},
-};
\ No newline at end of file
diff --git a/version2.0/lib/utf8.nas b/version2.0/lib/utf8.nas
deleted file mode 100644
index 1bd2e82..0000000
--- a/version2.0/lib/utf8.nas
+++ /dev/null
@@ -1,15 +0,0 @@
-# nasal lib utf8.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var utf8=
-{
-    chstr:func(){},
-    strc:func(){},
-    substr:func(){},
-    size:func(){},
-    validate:func(){},
-};
\ No newline at end of file
diff --git a/version2.0/main.cpp b/version2.0/main.cpp
deleted file mode 100644
index f8f1889..0000000
--- a/version2.0/main.cpp
+++ /dev/null
@@ -1,195 +0,0 @@
-#include "nasal.h"
-
-// source code will be put in resource
-resource_file resource;
-// source code will be generated to tokens in lexer
-nasal_lexer lexer;
-// token list will be checked in parser and output the abstract syntax tree
-nasal_parse parser;
-// libroot stores the ast of lib file
-abstract_syntax_tree libroot;
-// root stores the ast of source code
-abstract_syntax_tree root;
-// executable_ast generates libroot and root together
-// this ast will be sent into nasal runtime
-abstract_syntax_tree executable_ast;
-// main process is running here
-nasal_runtime runtime;
-
-// command is used in main()
-std::string command;
-int main()
-{
-#ifdef _WIN32
-	// use chcp 65001 to use unicode io
-	system("chcp 65001");
-#endif
-	// this curve looks really cool
-	std::cout<<"       __                _      "<<std::endl;
-	std::cout<<"    /\\ \\ \\__ _ ___  __ _| |  "<<std::endl;
-	std::cout<<"   /  \\/ / _` / __|/ _` | |    "<<std::endl;
-	std::cout<<"  / /\\  / (_| \\__ \\ (_| | |  "<<std::endl;
-	std::cout<<"  \\_\\ \\/ \\__,_|___/\\__,_|_|"<<std::endl;
-#ifdef _WIN32
-	std::cout<<">> [system] Windows system."<<std::endl;
-#endif
-#ifdef _linux_
-	std::cout<<">> [system] Linux system."<<std::endl;
-#endif
-#ifdef TARGET_OS_MAC
-	std::cout<<">> [system] MacOS system."<<std::endl;
-#endif
-	std::cout<<">> Nasal interpreter ver 2.0 ."<<std::endl;
-	std::cout<<">> Code: https://github.com/ValKmjolnir/Nasal-Interpreter"<<std::endl;
-	std::cout<<">> More info: http://wiki.flightgear.org/Nasal_scripting_language"<<std::endl;
-	std::cout<<">> Input \"help\" to get help ."<<std::endl;
-	while(1)
-	{
-		std::cout<<">> ";
-		std::cin>>command;
-		if(command=="help")
-		{
-			std::cout<<">> [\'file\'] input a file."<<std::endl;
-			std::cout<<">> [cls   ] clear the screen."<<std::endl;
-			std::cout<<">> [del   ] clear the resource code."<<std::endl;
-			std::cout<<">> [lib   ] add lib file."<<std::endl;
-			std::cout<<">> [rs    ] print resource code."<<std::endl;
-			std::cout<<">> [lex   ] turn code into tokens."<<std::endl;
-			std::cout<<">> [par   ] turn tokens into abstract syntax tree."<<std::endl;
-			std::cout<<">> [ast   ] check the abstract syntax tree."<<std::endl;
-			std::cout<<">> [run   ] run code."<<std::endl;
-			std::cout<<">> [logo  ] print logo of nasal ."<<std::endl;
-			std::cout<<">> [exit  ] quit nasal interpreter."<<std::endl;
-		}
-		// clear the window
-		else if(command=="cls")
-		{
-#ifdef _WIN32
-			system("cls");
-#endif
-#ifdef _linux_
-			system("clear");
-#endif
-#ifdef TARGET_OS_MAC
-			system("clear");
-#endif
-		}
-		// del all the source codes and asts
-		else if(command=="del")
-		{
-			resource.delete_all_source();
-			lexer.delete_all_tokens();
-			parser.delete_all_elements();
-			root.set_clear();
-			executable_ast.set_clear();
-			std::cout<<">> [Delete] complete."<<std::endl;
-		}
-		// add lib
-		else if(command=="lib")
-		{
-			libroot.set_clear();
-			resource.load_lib_file();
-			lexer.scanner(resource.get_source());
-			lexer.generate_detail_token();
-			if(!lexer.get_error())
-			{
-				parser.get_token_list(lexer.get_detail_token_list());
-				parser.main_generate();
-				if(!parser.get_error())
-				{
-					libroot=parser.get_root();
-					std::cout<<">> [Lib] loaded."<<std::endl;
-				}
-				else
-					std::cout<<">> [Lib] lib files have parse error(s),stop."<<std::endl;
-			}
-			else
-				std::cout<<">> [Lib] lib files have lexer error(s),stop."<<std::endl;
-			resource.delete_all_source();
-			lexer.delete_all_tokens();
-			parser.delete_all_elements();
-		}
-		// print source codes
-		else if(command=="rs")
-			resource.print_resource();
-		// print detail token after scanning source codes
-		else if(command=="lex")
-		{
-			lexer.scanner(resource.get_source());
-			lexer.generate_detail_token();
-			if(!lexer.get_error())
-				lexer.print_token_list();
-			else
-				std::cout<<">> [Lexer] error occurred,stop."<<std::endl;
-		}
-		// print the parse result of source codes
-		else if(command=="par")
-		{
-			lexer.scanner(resource.get_source());
-			lexer.generate_detail_token();
-			if(!lexer.get_error())
-			{
-				parser.get_token_list(lexer.get_detail_token_list());
-				parser.print_detail_token();
-				parser.main_generate();
-			}
-			else
-				std::cout<<">> [Lexer] error occurred,stop."<<std::endl;
-		}
-		// print the ast of source codes
-		else if(command=="ast")
-		{
-			lexer.scanner(resource.get_source());
-			lexer.generate_detail_token();
-			if(!lexer.get_error())
-			{
-				parser.get_token_list(lexer.get_detail_token_list());
-				parser.main_generate();
-				if(!parser.get_error())
-					parser.get_root().print_tree();
-				else
-					std::cout<<">> [Parse] error occurred,stop."<<std::endl;
-			}
-			else
-				std::cout<<">> [Lexer] error occurred,stop."<<std::endl;
-		}
-		// running process begins here
-		else if(command=="run")
-		{
-			lexer.scanner(resource.get_source());
-			lexer.generate_detail_token();
-			if(!lexer.get_error())
-			{
-				parser.get_token_list(lexer.get_detail_token_list());
-				parser.main_generate();
-				if(!parser.get_error())
-				{
-					executable_ast.set_clear();
-					executable_ast=libroot;
-					executable_ast.merge_children(parser.get_root());
-					runtime.main_proc(executable_ast);
-					//root.print_tree();
-				}
-				else
-					std::cout<<">> [Parse] error occurred,stop."<<std::endl;
-			}
-			else
-				std::cout<<">> [Lexer] error occurred,stop."<<std::endl;
-		}
-		// do you wanna see it again?
-		else if(command=="logo")
-		{
-			std::cout<<"       __                _      "<<std::endl;
-			std::cout<<"    /\\ \\ \\__ _ ___  __ _| |  "<<std::endl;
-			std::cout<<"   /  \\/ / _` / __|/ _` | |    "<<std::endl;
-			std::cout<<"  / /\\  / (_| \\__ \\ (_| | |  "<<std::endl;
-			std::cout<<"  \\_\\ \\/ \\__,_|___/\\__,_|_|"<<std::endl;
-		}
-		// exit interpreter
-		else if(command=="exit")
-			break;
-		else
-			resource.input_file(command);
-	}
-	return 0;
-}
diff --git a/version2.0/nasal.h b/version2.0/nasal.h
deleted file mode 100644
index 18bfb3f..0000000
--- a/version2.0/nasal.h
+++ /dev/null
@@ -1,100 +0,0 @@
-#ifndef __NASAL_H__
-#define __NASAL_H__
-
-#include <iostream>
-#include <fstream>
-#include <cstring>
-#include <cstdlib>
-#include <ctime>
-#include <cmath>
-/* if thread is used, don't forget to add -std=c++11 or higher standard before executing */
-// #include <thread>
-#include <list>
-#include <stack>
-#include <queue>
-#include <vector>
-#include <map>
-
-/*
-nasal_misc.h:
-including some functions that change number to string or change string to number
-including a function that check if a string is a numerable string
-including a function that print the hex format number of an integer
-*/
-#include "nasal_misc.h"
-
-/*
-nasal_enum.h
-including enums of: lexer token type,parse generated type,scalar type
-lexer token type is used by nasal_lexer
-parse generated type is used both by nasal_parse and abstract_syntax_tree
-parse generated type is also used when lexer is generating detailed tokens which are used in nasal_parse
-scalar type is used in nasal_runtime and nasal_gc
-*/
-#include "nasal_enum.h"
-
-/*
-nasal_ast.h
-including a class named abstract_syntax_tree
-this class is frequently used in nasal_parse nasal_runtime
-*/
-#include "nasal_ast.h"
-
-/*
-nasal_lexer.h
-including a class named resource_file
-including a class named nasal_lexer
-including a string[] named lib_filename, by this way resource_file can load lib files
-including a string[] named reserve_word, it is used in lexer,when generating an identifier,nasal_lexer will check if it is a reserve word
-including a struct named token, this struct is often used in nasal_lexer and nasal_parse
-including a function named is_reserve_word, checking if an identifier is a reserve word
-*/
-#include "nasal_lexer.h"
-
-/*
-nasal_parse.h
-including a class named nasal_parse
-nasal_parse uses tokens generated by lexer and generats them into abstract syntax tree
-this class has a special enum named parse_error_type
-if parse errors occur,this enum will be into use
-*/
-#include "nasal_parse.h"
-
-/*
-nasal_gc.h(garbage collector and memory manager of nasal_runtime)
-including basic classed named: nasal_number, nasal_string, nasal_vector, nasal_hash, nasal_function
-including important class named gc_manager
-including struct named gc_unit, it is the smallest memory unit.used in gc_manager
-nasal_gc is an object of class gc_manager,and nasal_runtime uses this object as it's memory manager
-*/
-#include "nasal_gc.h"
-
-/*
-nasal_builtinfunc.h
-including built-in functions of nasal lib
-all functions in this .cpp will be used in nasal_runtime::builtin_function()
-*/
-#include "nasal_builtinfunc.h"
-
-/*
-nasal_runtime.h
-including a class named nasal_runtime
-including a string[] named inline_func_name
-function that mentioned in inline_func_name is special functions that were written by cpp,so they can be ca;;ed directly
-
-if you want to add new built-in functions:
-    add it's name into inline_func_name
-    change the number of nas_lib_func_num
-    write it's function in nasal_runtime::inline_function
-    and don't forget to warp it up with a function that written by nasal
-
-for example: print(dyn...)
-var print=func(dyn...)
-{
-    nasal_call_inline_c_std_puts(dyn);
-    return nil;
-}
-*/
-#include "nasal_runtime.h"
-
-#endif
diff --git a/version2.0/nasal_ast.h b/version2.0/nasal_ast.h
deleted file mode 100644
index 3f3cc9c..0000000
--- a/version2.0/nasal_ast.h
+++ /dev/null
@@ -1,786 +0,0 @@
-#ifndef __NASAL_AST_H__
-#define __NASAL_AST_H__
-
-class abstract_syntax_tree
-{
-	private:
-		/*
-			basic elements of ast node:
-			line: this marks the generated node's line in source code
-			node_type: this marks the node type
-			children: store the children of this node
-		*/
-		int line;
-		int node_type;
-		std::list<abstract_syntax_tree> children;
-
-		/*
-			var_number is used when the node_type is __number
-			var_string is used when the node_type is __string
-			var_name is used when the node_type is __id, __dynamic_id, call_hash
-		*/
-		double      var_number;
-		std::string var_string;
-		std::string var_name;
-	public:
-		/* basic */
-		abstract_syntax_tree();
-		abstract_syntax_tree(const abstract_syntax_tree&);
-		~abstract_syntax_tree();
-		abstract_syntax_tree& operator=(const abstract_syntax_tree&);
-		
-		/* main functions */
-		/*
-			print_tree is the entrance of print function
-			print_tree will print the root address and call print_tree_block(1)
-			print_tree_block will print the information of each node by using DFS
-		*/
-		void print_tree();
-		void print_tree_block(const int);
-
-		/*
-			set_clear     : clear all the elements in ast node
-			set_node_line : set the private:line
-			set_node_type : set the private:node_type
-			set_var_number: set the private:var_number
-			set_var_string: set the private:var_string
-			set_var_name  : set the private:var_name
-		*/
-		void set_clear();
-		void set_node_line(const int);
-		void set_node_type(const int);
-		void set_var_number(std::string);
-		void set_var_string(std::string);
-		void set_var_name(std::string);
-		void add_children(abstract_syntax_tree);
-
-		/*
-			get_node_line : get the private:line
-			get_node_type : get the private:node_type
-			get_var_number: get private:var_number
-			get_var_string: get private:var_string
-			get_var_name  : get private:var_name
-		*/
-		int         get_node_line();
-		int         get_node_type();
-		double      get_var_number();
-		std::string get_var_string();
-		std::string get_var_name();
-		std::list<abstract_syntax_tree>& get_children();
-
-		/*
-			merge children of another ast into this one
-			used to link lib ast and source codes' ast together
-		*/
-		void merge_children(abstract_syntax_tree&);
-};
-
-abstract_syntax_tree::abstract_syntax_tree()
-{
-	node_type=__null_type;
-	line=0;
-	var_number=0;
-	var_string="";
-	var_name="";
-	children.clear();
-	return;
-}
-
-abstract_syntax_tree::abstract_syntax_tree(const abstract_syntax_tree& tmp)
-{
-	node_type=tmp.node_type;
-	line=tmp.line;
-	var_number=tmp.var_number;
-	var_string=tmp.var_string;
-	var_name=tmp.var_name;
-	children=tmp.children;
-	return;
-}
-
-abstract_syntax_tree::~abstract_syntax_tree()
-{
-	node_type=__null_type;
-	line=0;
-	var_number=0;
-	var_string.clear();
-	var_name.clear();
-	children.clear();
-	return;
-}
-
-abstract_syntax_tree& abstract_syntax_tree::operator=(const abstract_syntax_tree& tmp)
-{
-	node_type=tmp.node_type;
-	line=tmp.line;
-	var_number=tmp.var_number;
-	var_string=tmp.var_string;
-	var_name=tmp.var_name;
-	children.clear();
-	children=tmp.children;
-	return *this;
-}
-
-void abstract_syntax_tree::print_tree()
-{
-	std::cout<<">> [Abstract-syntax-tree] get tree root: "<<(this)<<""<<std::endl;
-	print_tree_block(1);
-	return;
-}
-
-void abstract_syntax_tree::print_tree_block(const int n)
-{
-	std::string __str="";
-	for(int i=0;i<n;++i)
-		__str+="|  ";
-	std::cout<<__str;
-	print_ast_type(node_type);
-	switch(node_type)
-	{
-		case __number:  std::cout<<": "<<var_number;break;
-		case __string:  std::cout<<": "<<var_string;break;
-		case __id:
-		case __dynamic_id:
-		case __call_hash: std::cout<<": "<<var_name;break;
-		case __call_vector:
-		case __call_function: break;
-		default: break;
-	}
-	std::cout<<std::endl;
-	if(!children.empty())
-	{
-		for(std::list<abstract_syntax_tree>::iterator i=children.begin();i!=children.end();++i)
-			i->print_tree_block(n+1);
-	}
-	return;
-}
-
-void abstract_syntax_tree::set_clear()
-{
-	node_type=__null_type;
-	line=0;
-	var_number=0;
-	var_string="";
-	var_name="";
-	children.clear();
-	return;
-}
-
-void abstract_syntax_tree::set_node_type(const int __node_type)
-{
-	node_type=__node_type;
-	return;
-}
-
-void abstract_syntax_tree::set_node_line(const int __line)
-{
-	if(__line>=0)
-		line=__line;
-	else
-	{
-		std::cout<<">> [Abstract-syntax-tree-warning] incorrect line under 0: "<<__line<<"."<<std::endl;
-		line=0;
-	}
-	return;
-}
-
-void abstract_syntax_tree::set_var_string(std::string __str)
-{
-	var_string=__str;
-	return;
-}
-
-void abstract_syntax_tree::set_var_number(std::string __str)
-{
-	var_number=trans_string_to_number(__str);
-	return;
-}
-
-void abstract_syntax_tree::set_var_name(std::string __str)
-{
-	var_name=__str;
-	return;
-}
-
-void abstract_syntax_tree::add_children(abstract_syntax_tree p)
-{
-	// use abstract_syntax_tree instead of abstract_syntax_tree&
-	// because when this function get a 'p' from returned value of
-	// another function,this may result in s SIGSEGV.
-	children.push_back(p);
-	return;
-}
-
-int abstract_syntax_tree::get_node_type()
-{
-	return node_type;
-}
-
-int abstract_syntax_tree::get_node_line()
-{
-	return line;
-}
-
-double abstract_syntax_tree::get_var_number()
-{
-	return var_number;
-}
-
-std::string abstract_syntax_tree::get_var_string()
-{
-	return var_string;
-}
-
-std::string abstract_syntax_tree::get_var_name()
-{
-	return var_name;
-}
-
-std::list<abstract_syntax_tree>& abstract_syntax_tree::get_children()
-{
-	return children;
-}
-
-void abstract_syntax_tree::merge_children(abstract_syntax_tree& tmp)
-{
-	for(std::list<abstract_syntax_tree>::iterator i=tmp.children.begin();i!=tmp.children.end();++i)
-		this->children.push_back(*i);
-	return;
-}
-
-#endif
-/*
-examples of each type of sub-tree
-
-ast begins in root node:
-	root
-		statement_1
-		statement_2
-...
-
-note: interpreter in flightgear can recognize 1*(2+(var a=2))
-but this type of expression is meaningless
-so this interpreter does not recognize this.
-
-source code:
-0xdeadbeef;
-'str';
-"str";
-ast:
-	root
-		num: 3.73593e+009
-		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:
-	root
-		~
-			+
-			num: 1
-			/
-				*
-				num: 2
-				-
-					num: 1
-					num: 3
-				num:4
-			str: str
-
-source code:
-var a=cd? 1:0;
-ast:
-	root
-		definition
-			id: a
-			?
-				id: cd
-				num: 1
-				num: 0
-
-source code:
-var h={a:1,b:2,c:'3',};
-ast:
-	root
-		definition
-			id: h
-			hash
-				hash_member
-					id: a
-					num: 1
-				hash_member
-					id: b
-					num: 2
-				hash_member
-					id: c
-					str: 3
-
-source code:
-var id=1;
-ast:
-	root
-		definition
-			id: id
-			num: 1
-
-source code:
-var (id1,id2,id3)=(1,2,3);
-(var id1,id2,id3)=(1,2,3);
-ast:
-	root
-		definition
-			identifiers
-				id: id1
-				id: id2
-				id: id3
-			scalars
-				num: 1
-				num: 2
-				num: 3
-
-source code:
-var (id1,id2,id3)=[1,2,3];
-(var id1,id2,id3)=[1,2,3];
-ast:
-	root
-		definition
-			identifiers
-				id: id1
-				id: id2
-				id: id3
-			vector
-				num: 1
-				num: 2
-				num: 3
-
-source code:
-(id1,id2,id3)=(1,2,3);
-ast:
-	root
-		=
-			scalars
-				id: id1
-				id: id2
-				id: id3
-			scalars
-				num: 1
-				num: 2
-				num: 3
-
-source code:
-(id1[0],id2,id3)=[1,2,3];
-ast:
-	root
-		=
-			scalars
-				id: id1
-					call_vector
-						num: 0
-				id: id2
-				id: id3
-			vector
-				num: 1
-				num: 2
-				num: 3
-
-source code:
-id.call_hs(call_f)[call_vec][subvec1:subvec2,subvec3];
-ast:
-	root
-		id: id
-			call_hash: call_hs
-			call_function
-				id: call_f
-			call_vector
-				id: call_vec
-			call_vector
-				sub_vector
-					id: subvec1
-					id: subvec2
-				id: subvec3
-
-source code:
-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
-
-source code:
-function(a,b,c,d,e);
-function(func a);
-function(func a());
-ast:
-	root
-		id: function
-			call_function
-				id: a
-				id: b
-				id: c
-				id: d
-				id: e
-		id: function
-			call_function
-				id: a
-		id: function
-			call_function
-				id: a
-					call_function
-
-source code:
-function(
-	a,
-	b,
-	func{print("hello");}
-);
-ast:
-	id: function
-		call_function
-			id: a
-			id: b
-			function
-				parameters
-				block
-					id: print
-						call_function
-							str: hello
-
-source code:
-function(a:1,b:2,c:3,);
-ast:
-	root
-		id: function
-			call_function
-				special_parameter
-					id: a
-					num: 1
-				special_parameter
-					id: b
-					num: 2
-				special_parameter
-					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)
-{
-	fun();
-	var a=1;
-	var b=2;
-}
-ast:
-	root
-		while
-			id: id
-			block
-				id: func
-					call_function
-				definition
-					id: 1
-					num: 1
-				definition
-					id: b
-					num: 2
-
-source code:
-for(;;){}
-ast:
-	root
-		for
-			null_type
-			null_type
-			null_type
-			block
-
-source code:
-for(var i=1;i<100;i+=1){}
-ast:
-	root
-		for
-			definition
-				id: i
-				num: 1
-			<
-				id: i
-				num: 100
-			+=
-				id: i
-				num: 1
-			block
-
-source code:
-foreach(var i;[0,1,2]){}
-forindex(var i;[0,1,2]){}
-ast:
-	root
-		foreach
-			id: i
-			vector
-				num: 0
-				num: 1
-				num: 2
-			block
-		forindex
-			id: i
-			vector
-				num: 0
-				num: 1
-				num: 2
-			block
-
-source code:
-if(condition_1)
-{
-}
-else if(condition_2)
-{
-}
-else
-{
-}
-ast:
-	root
-		conditional
-			if
-				id: condition_1
-				block
-			else
-				block
-					if
-						id: condition_2
-						block
-					else
-						block
-
-source code:
-if(condition_1)
-{
-}
-elsif(condition_2)
-{
-}
-elsif(condition_3)
-{
-}
-ast:
-	root
-		conditional
-			if
-				id: condition_1
-				block
-			elsif
-				id: condition_2
-				block
-			elsif
-				id: condition_3
-				block
-
-source code:
-var function=func{};
-ast:
-	root
-		definition
-			id: function
-			function
-				parameters
-				block
-
-source code:
-var function=func(x,y,dyn...){};
-ast:
-	root
-		definition
-			id: function
-			function
-				parameters
-					id: x
-					id: y
-					id...: dyn
-				block
-
-source code:
-var function=func(x=2,y=1){};
-ast:
-	root
-		definition
-			id: function
-			function
-				parameters
-					default_parameter
-						id: x
-						num: 2
-					default_parameter
-						id: y
-						num: 1
-					block
-
-source code:
-var function=func(args...)
-{
-	if(size(args)<3)
-	{
-		print("error");
-		return 0;
-	}
-	if(args[0]==args[1] or args[1]==args[2])
-	{
-		return args[0]*args[1]*args[2];
-	}
-	elsif(args[2]>args[1])
-	{
-		return -1;
-	}
-	for(var i=0;i<size(args);i+=1)
-	{
-		if(args[i]>100)
-			break;
-		else if(args[i]<0)
-			return args[i];
-	}
-	return 0;
-}
-ast:
-	root
-		definition
-			id: function
-			function
-				parameters
-					id...: args
-				block
-					conditional
-						if
-							<
-								id: size
-									call_function
-										id: args
-								num: 3
-							block
-								id: print
-									call_function
-										str: error
-								return
-									num: 0
-					conditional
-						if
-							or
-								==
-									id: args
-										call_vector
-											num: 0
-									id: args
-										call_vector
-											num: 1
-								==
-									id: args
-										call_vector
-											num: 1
-									id: args
-										call_vector
-											num: 2
-							block
-								return
-									*
-										*
-											id: args
-												call_vector
-													num: 0
-											id: args
-												call_vector
-													num: 1
-										id: args
-											call_vector
-												num: 2
-						elsif
-							>
-								id: args
-									call_vector
-										num: 2
-								id: args
-									call_vector
-										num: 1
-							block
-								return
-									-
-										num: 0
-										num: 1
-					for
-						definition
-							id: i
-							num: 0
-						<
-							id: i
-							id: size
-								call_function
-									id: args
-						+=
-							id: i
-							num: 1
-						block
-							conditional
-								if
-									>
-										id: args
-											call_vector
-												id: i
-										num: 100
-									block
-										break
-								else
-									block
-										conditional
-											if
-												<
-													id: args
-														call_vector
-															id: i
-													num: 0
-												block
-													return
-														id: args
-															call_vector
-																id: i
-					return
-						num: 0
-*/
diff --git a/version2.0/nasal_builtinfunc.h b/version2.0/nasal_builtinfunc.h
deleted file mode 100644
index 728cdbe..0000000
--- a/version2.0/nasal_builtinfunc.h
+++ /dev/null
@@ -1,362 +0,0 @@
-#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 subvec(std::list<std::map<std::string,int> >& local_scope)
-{
-    int vector_addr=-1,start=-1,length=-1,type=-1;
-    int begin_iter=0,len_iter=0;
-    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("start")!=i->end())
-            start=(*i)["start"];
-        if(i->find("length")!=i->end())
-            length=(*i)["length"];
-    }
-    if(vector_addr<0 || start<0 || length<0)
-        return -1;
-    if(nasal_gc.get_scalar(vector_addr).get_type()!=scalar_vector)
-    {
-        std::cout<<">> subvec gets a value that is not a vector."<<std::endl;
-        return -1;
-    }
-    type=nasal_gc.get_scalar(start).get_type();
-    if(type!=scalar_number && type!=scalar_string)
-    {
-        std::cout<<">> [Runtime] \'start\' is not a number or numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_string && !check_numerable_string(nasal_gc.get_scalar(start).get_string().get_string()))
-    {
-        std::cout<<">> [Runtime] \'start\' is not a numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_number)
-        begin_iter=(int)nasal_gc.get_scalar(start).get_number().get_number();
-    else if(type==scalar_string)
-        begin_iter=(int)trans_string_to_number(nasal_gc.get_scalar(start).get_string().get_string());
-    type=nasal_gc.get_scalar(length).get_type();
-    if(type!=scalar_nil && type!=scalar_number && type!=scalar_string)
-    {
-        std::cout<<">> [Runtime] \'length\' is not a nil type,number or numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_string && !check_numerable_string(nasal_gc.get_scalar(length).get_string().get_string()))
-    {
-        std::cout<<">> [Runtime] \'length\' is not a numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_nil)
-        len_iter=nasal_gc.get_scalar(vector_addr).get_vector().get_size()-begin_iter;
-    else if(type==scalar_number)
-        len_iter=(int)nasal_gc.get_scalar(length).get_number().get_number();
-    else if(type==scalar_string)
-        len_iter=(int)trans_string_to_number(nasal_gc.get_scalar(length).get_string().get_string());
-    int ret_addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(ret_addr).set_type(scalar_vector);
-    if(type==scalar_nil)
-        for(int i=begin_iter;i<nasal_gc.get_scalar(vector_addr).get_vector().get_size();++i)
-        {
-            int tmp=nasal_gc.get_scalar(vector_addr).get_vector().get_elem(i);
-            if(tmp<0)
-            {
-                std::cout<<">> [Runtime] subvec out of memory boundary."<<std::endl;
-                return -1;
-            }
-            int new_addr=-1;
-            switch(nasal_gc.get_scalar(tmp).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(tmp).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(tmp).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(tmp).get_function());
-                    break;
-                case scalar_vector:
-                case scalar_hash:
-                    new_addr=tmp;
-                    nasal_gc.reference_add(new_addr);
-                    break;
-            }
-            nasal_gc.get_scalar(ret_addr).get_vector().vec_push(new_addr);
-        }
-    else
-        for(int i=0;i<len_iter;++i)
-        {
-            int tmp=nasal_gc.get_scalar(vector_addr).get_vector().get_elem(begin_iter+i);
-            if(tmp<0)
-            {
-                std::cout<<">> [Runtime] subvec out of memory boundary."<<std::endl;
-                return -1;
-            }
-            int new_addr=-1;
-            switch(nasal_gc.get_scalar(tmp).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(tmp).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(tmp).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(tmp).get_function());
-                    break;
-                case scalar_vector:
-                case scalar_hash:
-                    new_addr=tmp;
-                    nasal_gc.reference_add(new_addr);
-                    break;
-            }
-            nasal_gc.get_scalar(ret_addr).get_vector().vec_push(new_addr);
-        }
-    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;
-}
-
-int nas_trigfunc(std::list<std::map<std::string,int> >& local_scope,int func_type)
-{
-    int data=-1;
-    double num=0;
-    int type=-1;
-    for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
-        if(i->find("x")!=i->end())
-            data=(*i)["x"];
-    if(data<0) return -1;
-    type=nasal_gc.get_scalar(data).get_type();
-    if(type!=scalar_number && type!=scalar_string)
-    {
-        std::cout<<">> [Runtime] x must be a number or numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_string && !check_numerable_string(nasal_gc.get_scalar(data).get_string().get_string()))
-    {
-        std::cout<<">> [Runtime] x is not a numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_number)
-        num=nasal_gc.get_scalar(data).get_number().get_number();
-    else if(type==scalar_string)
-        num=trans_string_to_number(nasal_gc.get_scalar(data).get_string().get_string());
-    int ret_addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-    switch(func_type)
-    {
-        case 0:nasal_gc.get_scalar(ret_addr).get_number().set_number(std::sin(num));break;
-        case 1:nasal_gc.get_scalar(ret_addr).get_number().set_number(std::cos(num));break;
-        case 2:nasal_gc.get_scalar(ret_addr).get_number().set_number(std::tan(num));break;
-    }
-    return ret_addr;
-}
-
-int nas_exp(std::list<std::map<std::string,int> >& local_scope)
-{
-    int data=-1,type=-1;
-    double num=0;
-    for(std::list<std::map<std::string,int> >::iterator i=local_scope.begin();i!=local_scope.end();++i)
-        if(i->find("x")!=i->end())
-            data=(*i)["x"];
-    if(data<0)
-        return -1;
-    type=nasal_gc.get_scalar(data).get_type();
-    if(type!=scalar_number && type!=scalar_string)
-    {
-        std::cout<<">> [Runtime] x must be a number or numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_string && !check_numerable_string(nasal_gc.get_scalar(data).get_string().get_string()))
-    {
-        std::cout<<">> [Runtime] x is not a numerable string."<<std::endl;
-        return -1;
-    }
-    if(type==scalar_number)
-        num=nasal_gc.get_scalar(data).get_number().get_number();
-    else if(type==scalar_string)
-        num=trans_string_to_number(nasal_gc.get_scalar(data).get_string().get_string());
-    int ret_addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-    nasal_gc.get_scalar(ret_addr).get_number().set_number(std::exp(num));
-    return ret_addr;
-}
-#endif
\ No newline at end of file
diff --git a/version2.0/nasal_enum.h b/version2.0/nasal_enum.h
deleted file mode 100644
index f5a5843..0000000
--- a/version2.0/nasal_enum.h
+++ /dev/null
@@ -1,282 +0,0 @@
-#ifndef __NASAL_ENUM_H__
-#define __NASAL_ENUM_H__
-
-// lexer token type is only used in nasal_lexer
-/*
-__token_reserve_word:
-	for,foreach,forindex,while : loop head
-	var,func                   : definition
-	break,continue             : in loop
-	return                     : in function
-	if,else,elsif              : conditional expr
-	and,or                     : calculation
-	nil                        : special type
-__token_identifier:
-	must begin with '_' or 'a'~'z' or 'A'~'Z'
-	can include '_' or 'a'~'z' or 'A'~'Z' or '0'~'9'
-__token_string:
-	example:
-		"string"
-		'string'
-	if a string does not end with " or ' then lexer will throw an error
-__token_number:
-	example:
-		2147483647 (integer)
-		2.71828    (float)
-		0xdeadbeef (hex) or 0xDEADBEEF (hex)
-		0o170001   (oct)
-		1e-1234    (dec) or 10E2       (dec)
-__token_operator:
-	!  +  -  *  /  ~
-	=  += -= *= /= ~=
-	== != >  >= <  <=
-	('and'  'or' are operators too but they are recognized as operator in generate_detail_token())
-	() [] {} ; , . : ?
-	others: __unknown_operator
-*/
-enum lexer_token_type
-{
-	__token_reserve_word=1,
-	__token_identifier,
-	__token_number,
-	__token_string,
-	__token_operator,
-};
-void print_lexer_token(int type)
-{
-	switch(type)
-	{
-		case __token_reserve_word:std::cout<<"reserve word";break;
-		case __token_identifier:  std::cout<<"identifier  ";break;
-		case __token_number:      std::cout<<"number      ";break;
-		case __token_string:      std::cout<<"string      ";break;
-		case __token_operator:    std::cout<<"operator    ";break;
-	}
-	return;
-}
-
-// parse_gen_type include enums for parser and ast
-enum parse_gen_type
-{
-	/*
-	stack end is an important flag for parse token stack to
-	check if it's stack is at end/empty
-	if stack is empty,the parser will get a wrong memory space and cause SIGSEGV
-	*/
-	__stack_end=1,
-	
-	__cmp_equal,
-	__cmp_not_equal,
-	__cmp_less,__cmp_less_or_equal,
-	__cmp_more,__cmp_more_or_equal,                // operators == != < <= > >= 
-	
-	__and_operator,	__or_operator,__nor_operator,
-	__add_operator,__sub_operator,
-	__mul_operator,__div_operator,__link_operator, // operators and or ! + - * / ~
-	
-	__equal,
-	__add_equal,__sub_equal,
-	__mul_equal,__div_equal,__link_equal,          // operators = += -= *= /= ~=
-
-	__left_brace,__right_brace,                    // {}
-	__left_bracket,__right_bracket,                // []
-	__left_curve,__right_curve,                    // ()
-	__semi,__comma,__colon,__dot,__ques_mark,      // ; , : . ?
-	__unknown_operator,
-	
-	__var,
-	__func,__return,__nil,
-	__if,__elsif,__else,
-	__continue,__break,
-	__for,__forindex,__foreach,__while,            // reserve words
-	
-	__number,__string,                             // basic scalar type: number string
-	
-	__id,__dynamic_id,                             // basic identifier type: identifier dynamic_identifier
-	
-	// abstract_syntax_tree type below
-	// abstract_syntax_tree also uses the types above, such as operators
-	__root,
-	__null_type,
-	__multi_id,__multi_scalar,
-	__parameters,__special_parameter,__default_parameter,
-	__vector,__sub_vector,__call_vector,
-	__hash,__hash_member,__call_hash,
-	__function,__call_function,
-	__normal_statement_block,
-	__definition,
-	__conditional
-};
-// print tokens that used in nasal_parse 
-void print_parse_token(int type)
-{
-	std::string context="";
-	switch(type)
-	{
-		case __stack_end:         context=" # ";  break;
-		case __cmp_equal:         context=" == "; break;
-		case __cmp_not_equal:     context=" != "; break;
-		case __cmp_less:          context=" < ";  break;
-		case __cmp_less_or_equal: context=" <= "; break;
-		case __cmp_more:          context=" > ";  break;
-		case __cmp_more_or_equal: context=" >= "; break;
-		
-		case __and_operator:      context=" and ";break;
-		case __or_operator:       context=" or "; break;
-		case __nor_operator:      context=" ! ";  break;
-		case __add_operator:      context=" + ";  break;
-		case __sub_operator:      context=" - ";  break;
-		case __mul_operator:      context=" * ";  break;
-		case __div_operator:      context=" / ";  break;
-		case __link_operator:     context=" ~ ";  break;
-		
-		case __equal:             context=" = ";  break;
-		case __add_equal:         context=" += "; break;
-		case __sub_equal:         context=" -= "; break;
-		case __mul_equal:         context=" *= "; break;
-		case __div_equal:         context=" /= "; break;
-		case __link_equal:        context=" ~= "; break;
-		
-		case __left_brace:        context="{";    break;
-		case __right_brace:       context="}";    break;
-		case __left_bracket:      context="[";    break;
-		case __right_bracket:     context="]";    break;
-		case __left_curve:        context="(";    break;
-		case __right_curve:       context=")";    break;
-		
-		case __semi:              context=";";    break;
-		case __comma:             context=",";    break;
-		case __colon:             context=":";    break;
-		case __dot:               context=".";    break;
-		case __ques_mark:         context="?";    break;
-		
-		case __unknown_operator:  context="unknown_operator";break;
-		
-		case __var:               context="var ";      break;
-		case __func:              context="func ";     break;
-		case __continue:          context="continue";  break;
-		case __break:             context="break";     break;
-		case __for:               context="for";       break;
-		case __forindex:          context="forindex";  break;
-		case __foreach:           context="foreach ";  break;
-		case __while:             context="while";     break;
-		case __if:                context="if ";       break;
-		case __elsif:             context="elsif ";    break;
-		case __else:              context="else ";     break;
-		case __return:            context="return ";   break;
-		case __nil:               context="nil";       break;
-		
-		case __id:                context="id";        break;
-		case __dynamic_id:        context="id...";     break;
-		case __number:            context="num";       break;
-		case __string:            context="str";       break;
-		
-		default:                  context="undefined"; break;
-	}
-	std::cout<<context;
-	return;
-}
-// print node types that used in abstract_syntax_tree
-void print_ast_type(int type)
-{
-	std::string context="";
-	switch(type)
-	{
-		case __cmp_equal:         context=" == "; break;
-		case __cmp_not_equal:     context=" != "; break;
-		case __cmp_less:          context=" < ";  break;
-		case __cmp_less_or_equal: context=" <= "; break;
-		case __cmp_more:          context=" > ";  break;
-		case __cmp_more_or_equal: context=" >= "; break;
-		
-		case __and_operator:      context=" and ";break;
-		case __or_operator:       context=" or "; break;
-		case __nor_operator:      context=" ! ";  break;
-		case __add_operator:      context=" + ";  break;
-		case __sub_operator:      context=" - ";  break;
-		case __mul_operator:      context=" * ";  break;
-		case __div_operator:      context=" / ";  break;
-		case __link_operator:     context=" ~ ";  break;
-		
-		case __equal:             context=" = ";  break;
-		case __add_equal:         context=" += "; break;
-		case __sub_equal:         context=" -= "; break;
-		case __mul_equal:         context=" *= "; break;
-		case __div_equal:         context=" /= "; break;
-		case __link_equal:        context=" ~= "; break;
-		
-		case __ques_mark:         context="?";    break;
-
-		case __var:               context="var ";      break;
-		case __func:              context="func ";     break;
-		case __continue:          context="continue";  break;
-		case __break:             context="break";     break;
-		case __for:               context="for";       break;
-		case __forindex:          context="forindex";  break;
-		case __foreach:           context="foreach ";  break;
-		case __while:             context="while";     break;
-		case __if:                context="if ";       break;
-		case __elsif:             context="elsif ";    break;
-		case __else:              context="else ";     break;
-		case __return:            context="return ";   break;
-		case __nil:               context="nil";       break;
-		
-		case __id:                context="id";        break;
-		case __dynamic_id:        context="id...";     break;
-		case __number:            context="num";       break;
-		case __string:            context="str";       break;
-		
-		case __root:              context="root";              break; // root of the ast that parser generates
-		case __null_type:         context="null_type";         break; // type of the node of the tree is unknown
-		case __multi_id:          context="identifiers";       break; // id,id,id,id                |often used in multi-definition or multi-assignment
-		case __multi_scalar:      context="scalars";           break; // scalar,scalar,scalar,scalar|often used in multi-definition or multi-assignment
-		case __parameters:        context="parameters";        break; // parameter list
-		case __special_parameter: context="special_parameter"; break; // identifier:scalar          |special way of calling a function
-		case __default_parameter: context="default_parameter"; break; // identifier=scalar          |default parameter when generating a new function
-		case __vector:            context="vector";            break; // vector
-		case __sub_vector:        context="sub_vector";        break; // the same as subvec() but more flexible to use
-		case __call_vector:       context="call_vector";       break; // call vector member
-		case __hash:              context="hash";              break; // hash
-		case __hash_member:       context="hash_member";       break; // hash member
-		case __call_hash:         context="call_hash";         break; // call hash member
-		case __function:          context="function";          break; // function
-		case __call_function:     context="call_function";     break; // call function
-		case __normal_statement_block:context="block";         break; // block
-		case __definition:        context="definition";        break; // definition
-		case __conditional:       context="conditional";       break; // if-else
-		
-		default:                  context="undefined";         break;
-	}
-	std::cout<<context;
-	return;
-}
-
-// basic scalar type used in nasal_runtime and nasal_gc
-enum scalar_type
-{
-	scalar_nil=0,
-	scalar_number,
-	scalar_string,
-	scalar_vector,
-	scalar_hash,
-	scalar_function,
-	scalar_closure
-};
-// print types that used in nasal_runtime and nasal_gc
-void print_scalar_type(const int type)
-{
-	switch(type)
-	{
-		case scalar_nil:      std::cout<<"nil";break;
-		case scalar_number:
-		case scalar_string:   std::cout<<"scalar";break;
-		case scalar_vector:   std::cout<<"vector";break;
-		case scalar_hash:     std::cout<<"hash";break;
-		case scalar_function: std::cout<<"function";break;
-		case scalar_closure:  std::cout<<"closure";break;
-		default:              std::cout<<"nil";break;
-	}
-	return;
-}
-
-#endif
diff --git a/version2.0/nasal_gc.h b/version2.0/nasal_gc.h
deleted file mode 100644
index e026310..0000000
--- a/version2.0/nasal_gc.h
+++ /dev/null
@@ -1,729 +0,0 @@
-#ifndef __NASAL_GC_H__
-#define __NASAL_GC_H__
-
-// all identifiers in nasal points to a memory space in nasal_gc.
-// memory space uses std::vector<gc_unit>.
-// gc_unit is a struct which has nasal_scalar and refcnt in it.(more details please see the definition of gc_unit bellow)
-// when an identifier needs to be assigned,but the type of value is not the same as the identifier's value
-// the identifier will get a new memory space in nasal_gc and do deep_copy()
-// and the memory space that is not used ,its ref_cnt-=1.
-
-class nasal_closure
-{
-private:
-	std::list<std::map<std::string,int> > closure;
-public:
-	void set_clear();
-	void set_local_scope(std::list<std::map<std::string,int> >&);
-	std::list<std::map<std::string,int> >& get_local_scope();
-	void print_closure_ids();
-};
-
-class nasal_function
-{
-private:
-	// closure_updated flag is used to mark if this function's closure is updated.
-	// to avoid some unexpected errors,closure of each function must be updated before blocks popping back the last scope
-	bool closure_updated;
-	int  closure_addr;
-	abstract_syntax_tree parameter_list;
-	abstract_syntax_tree function_root;
-public:
-	nasal_function();
-	void set_clear();
-	void set_local_scope(int);
-	bool get_closure_update_state();
-	void set_closure_update_state(bool);
-	void set_paramemter_list(abstract_syntax_tree&);
-	void set_statement_block(abstract_syntax_tree&);
-	int  get_local_scope();
-	abstract_syntax_tree& get_parameter_list();
-	abstract_syntax_tree& get_statement_block();
-	void deep_copy(nasal_function&);
-};
-
-class nasal_number
-{
-private:
-	double nas_number;
-public:
-	void   set_clear();
-	void   set_number(double);
-	double get_number();
-	void   deep_copy(nasal_number&);
-};
-
-class nasal_string
-{
-private:
-	std::string nas_string;
-public:
-	void set_clear();
-	void set_string(std::string);
-	std::string get_string();
-	void deep_copy(nasal_string&);
-};
-
-class nasal_vector
-{
-private:
-	std::vector<int> nas_array;
-public:
-	void set_clear();
-	void vec_push(int);
-	int* get_elem_addr(int);
-	int  get_elem(int);
-	int  vec_pop();
-	int  get_size();
-	int* get_parent_hash_member_addr(std::string);
-	int  get_parent_hash_member(std::string);
-	void generate_new_hash();
-	void deep_copy(nasal_vector&);
-};
-
-class nasal_hash
-{
-private:
-	std::map<std::string,int> nas_hash;
-public:
-	void set_clear();
-	int* get_hash_member_addr(std::string);
-	int  get_hash_member(std::string);
-	std::vector<int> get_elem();
-	void hash_push(std::string,int);
-	void hash_pop(std::string);
-	void deep_copy(nasal_hash&);
-};
-
-class nasal_scalar
-{
-private:
-	int type;
-	nasal_string   var_string;
-	nasal_number   var_number;
-	nasal_vector   var_vector;
-	nasal_hash     var_hash;
-	nasal_function var_func;
-	nasal_closure  var_cls;
-public:
-	nasal_scalar();
-	void            set_type(int);
-	int             get_type();
-	nasal_number&   get_number();
-	nasal_string&   get_string();
-	nasal_vector&   get_vector();
-	nasal_hash&     get_hash();
-	nasal_function& get_function();
-	nasal_closure&  get_closure();
-};
-
-struct gc_unit
-{
-	// collected: If gc collected this item,it'll be set to true.Otherwise it is false. 
-	// elem:      Item that this unit stores
-	// refcnt:    Reference counter
-	bool         collected;
-	bool         is_const;
-	nasal_scalar elem;
-	int          refcnt;
-	gc_unit()
-	{
-		collected=true;
-		refcnt=0;
-		return;
-	}
-};
-#ifndef NAS_POOL_SIZE
-#define NAS_POOL_SIZE 128
-struct memory_block
-{
-	gc_unit space[NAS_POOL_SIZE];
-};
-
-class memory_block_base
-{
-private:
-	std::vector<memory_block*> mem_page;
-	int mem_size;
-public:
-	memory_block_base()
-	{
-		mem_size=0;
-		memory_block* tmp=new memory_block;
-		mem_page.push_back(tmp);
-		return;
-	}
-	~memory_block_base()
-	{
-		mem_size=0;
-		int page_size=mem_page.size();
-		for(int i=0;i<page_size;++i)
-			delete mem_page[i];
-		return;
-	}
-	void clear()
-	{
-		int page_size=mem_page.size();
-		for(int i=0;i<page_size;++i)
-			delete mem_page[i];
-		mem_page.clear();
-		mem_size=0;
-		memory_block* tmp=new memory_block;
-		mem_page.push_back(tmp);
-		return;
-	}
-	gc_unit& operator[](int address)
-	{
-		int page_num=address/NAS_POOL_SIZE;
-		int block_plc=address%NAS_POOL_SIZE;
-		return mem_page[page_num]->space[block_plc];
-	}
-	void push_back()
-	{
-		++mem_size;
-		if(mem_size>mem_page.size()*NAS_POOL_SIZE)
-		{
-			memory_block* tmp=new memory_block;
-			mem_page.push_back(tmp);
-		}
-		return;
-	}
-	int size()
-	{
-		return mem_size;
-	}
-	int capacity()
-	{
-		return NAS_POOL_SIZE*mem_page.size();
-	}
-};
-#endif
-
-class gc_manager
-{
-private:
-	// free_space list is used to store space that is not in use.
-	std::list<int> free_space;
-	/*
-	cannot use std::vector to simulate memory
-	because if vector memory is not enough,vector will use another larger memory as it's main memory
-	then all the things will be moved to a new space,
-	at this time if you reference a member in it,this will cause segmentation error.
-	*/
-	memory_block_base memory;
-	bool error_occurred;
-public:
-	void gc_init()
-	{
-		// this function must be called in class nasal_runtime before running any codes
-		memory.clear();
-		free_space.clear();
-		error_occurred=false;
-		return;
-	}
-	int gc_alloc()
-	{
-		// add a new space for a new value
-		// if list free_space is not empty,it will get the address at the front and give it to the new value
-		// if list free_space is empty,it will add new space in memory vector and give it to the new value
-		// by this way it can manage memory efficiently.
-		if(free_space.empty())
-		{
-			memory.push_back();
-			free_space.push_back(memory.size()-1);
-		}
-		int alloc_plc=free_space.front();
-		free_space.pop_front();
-		memory[alloc_plc].collected=false;
-		memory[alloc_plc].refcnt=1;
-		return alloc_plc;
-	}
-	int get_reference(int addr)
-	{
-		// get the reference counts of the scalar
-		if(addr>=memory.size())
-			return -1;
-		return memory[addr].refcnt;
-	}
-	nasal_scalar& get_scalar(int addr)
-	{
-		// get the reference of the scalar
-		return memory[addr].elem;
-	}
-	bool place_check(const int addr)
-	{
-		// check if this place is in memory
-		// and this place is uncollected
-		// this function is often used when an identifier is calling a space in memory
-		return (0<=addr) && (addr<memory.size()) && (!memory[addr].collected);
-	}
-	bool reference_add(const int addr)
-	{
-		if((0<=addr) && (addr<memory.size()) && (!memory[addr].collected))
-			++memory[addr].refcnt;
-		else
-		{
-			std::cout<<">> [Gc] fatal error: reference unexpected memory place ";
-			prt_hex(addr);
-			std::cout<<" ."<<std::endl;
-			return false;
-		}
-		return true;
-	}
-	bool reference_delete(const int addr)
-	{
-		if((0<=addr) && (addr<memory.size()) && (!memory[addr].collected))
-		{
-			--memory[addr].refcnt;
-			if(!memory[addr].refcnt)
-			{
-				// if refcnt is 0,then starting the destructor
-				// std::cout<<">> [Gc] collected ";prt_hex(addr);std::cout<<std::endl;
-				memory[addr].collected=true;
-				switch(memory[addr].elem.get_type())
-				{
-					case scalar_number:  memory[addr].elem.get_number().set_clear();  break;
-					case scalar_string:  memory[addr].elem.get_string().set_clear();  break;
-					case scalar_vector:  memory[addr].elem.get_vector().set_clear();  break;
-					case scalar_hash:    memory[addr].elem.get_hash().set_clear();    break;
-					case scalar_function:memory[addr].elem.get_function().set_clear();break;
-					case scalar_closure: memory[addr].elem.get_closure().set_clear(); break;
-					default:break;
-				}
-				memory[addr].elem.set_type(scalar_nil);
-				free_space.push_back(addr);
-			}
-		}
-		else
-		{
-			std::cout<<">> [Gc] fatal error: delete unexpected memory address: ";
-			prt_hex(addr);
-			std::cout<<" ."<<std::endl;
-			return false;
-		}
-		return true;
-	}
-	void info_print()
-	{
-		std::cout<<">> [Gc] memory size:"<<memory.size()*sizeof(gc_unit)<<" byte."<<std::endl;
-		std::cout<<">> [Gc] memory capacity:"<<memory.capacity()*sizeof(gc_unit)<<" byte."<<std::endl;
-		std::cout<<">> [Gc] memory usage: "<<std::endl;
-		int cnt=0;
-		for(int i=0;i<memory.size();++i)
-			if(!memory[i].collected)
-			{
-				prt_hex(i);
-				std::cout<<"["<<memory[i].refcnt<<"]";
-				// cnt is used to check if it is the right time to output in the next line
-				++cnt;
-				if(!(cnt%8))
-					std::cout<<std::endl;
-				else
-					std::cout<<" ";
-			}
-		if(cnt%8)
-			std::cout<<std::endl;
-		return;
-	}
-	bool check_error()
-	{
-		return error_occurred;
-	}
-};
-gc_manager nasal_gc;
-// this object is used in "nasal_runtime.h"
-// because there must be only one gc when running a program(one process)
-
-void nasal_closure::set_clear()
-{
-	if(!closure.size())
-		return;
-	for(std::list<std::map<std::string,int> >::iterator iter=closure.begin();iter!=closure.end();++iter)
-		for(std::map<std::string,int>::iterator i=iter->begin();i!=iter->end();++i)
-			nasal_gc.reference_delete(i->second);
-	closure.clear();
-	return;
-}
-void nasal_closure::set_local_scope(std::list<std::map<std::string,int> >& tmp_scope)
-{
-	if(closure.size())
-		for(std::list<std::map<std::string,int> >::iterator iter=closure.begin();iter!=closure.end();++iter)
-			for(std::map<std::string,int>::iterator i=iter->begin();i!=iter->end();++i)
-				nasal_gc.reference_delete(i->second);
-	closure.clear();
-	closure=tmp_scope;
-	for(std::list<std::map<std::string,int> >::iterator iter=closure.begin();iter!=closure.end();++iter)
-		for(std::map<std::string,int>::iterator i=iter->begin();i!=iter->end();++i)
-				nasal_gc.reference_add(i->second);
-	return;
-}
-std::list<std::map<std::string,int> >& nasal_closure::get_local_scope()
-{
-	return closure;
-}
-void nasal_closure::print_closure_ids()
-{
-	for(std::list<std::map<std::string,int> >::iterator iter=closure.begin();iter!=closure.end();++iter)
-		for(std::map<std::string,int>::iterator i=iter->begin();i!=iter->end();++i)
-		{
-			std::cout<<i->first<<": ";
-			prt_hex(i->second);
-			std::cout<<std::endl;
-		}
-	return;
-}
-
-nasal_function::nasal_function()
-{
-	closure_updated=false;
-	closure_addr=-1;
-	return;
-}
-void nasal_function::set_clear()
-{
-	closure_updated=false;
-	if(closure_addr>=0)
-		nasal_gc.reference_delete(closure_addr);
-	closure_addr=-1;
-	function_root.set_clear();
-	return;
-}
-void nasal_function::set_local_scope(int tmp_addr)
-{
-	if(closure_addr>=0)
-		nasal_gc.reference_delete(closure_addr);
-	closure_addr=tmp_addr;
-	return;
-}
-bool nasal_function::get_closure_update_state()
-{
-	return closure_updated;
-}
-void nasal_function::set_closure_update_state(bool _state)
-{
-	closure_updated=_state;
-	return;
-}
-void nasal_function::set_paramemter_list(abstract_syntax_tree& para_list)
-{
-	parameter_list=para_list;
-	return;
-}
-void nasal_function::set_statement_block(abstract_syntax_tree& func_block)
-{
-	function_root=func_block;
-	return;
-}
-int nasal_function::get_local_scope()
-{
-	return closure_addr;
-}
-abstract_syntax_tree& nasal_function::get_parameter_list()
-{
-	return parameter_list;
-}
-abstract_syntax_tree& nasal_function::get_statement_block()
-{
-	return function_root;
-}
-void nasal_function::deep_copy(nasal_function& tmp)
-{
-	if(closure_addr>=0)
-		nasal_gc.reference_delete(closure_addr);
-	closure_addr=tmp.closure_addr;
-	nasal_gc.reference_add(closure_addr);
-	// copy abstract_syntax_tree
-	parameter_list=tmp.parameter_list;
-	function_root=tmp.function_root;
-	return;
-}
-
-void nasal_number::set_clear()
-{
-	nas_number=0;
-	return;
-}
-void nasal_number::set_number(double num)
-{
-	nas_number=num;
-	return;
-}
-double nasal_number::get_number()
-{
-	return nas_number;
-}
-void nasal_number::deep_copy(nasal_number& tmp)
-{
-	nas_number=tmp.nas_number;
-	return;
-}
-
-void nasal_string::set_clear()
-{
-	nas_string="";
-	return;
-}
-void nasal_string::set_string(std::string str)
-{
-	nas_string=str;
-	return;
-}
-std::string nasal_string::get_string()
-{
-	return nas_string;
-}
-void nasal_string::deep_copy(nasal_string& tmp)
-{
-	nas_string=tmp.nas_string;
-	return;
-}
-
-void nasal_vector::set_clear()
-{
-	for(int i=0;i<nas_array.size();++i)
-		nasal_gc.reference_delete(nas_array[i]);
-	std::vector<int> vec_for_swap;
-	nas_array.swap(vec_for_swap);
-	return;
-}
-void nasal_vector::vec_push(int addr)
-{
-	nas_array.push_back(addr);
-	return;
-}
-int* nasal_vector::get_elem_addr(int addr)
-{
-	// 0 ~ size-1 -size ~ -1
-	int bound=nas_array.size();
-	if(-bound<=addr && addr<0)
-		return &nas_array[bound+addr];
-	else if(0<=addr && addr<bound)
-		return &nas_array[addr];
-	return NULL;
-}
-int nasal_vector::get_elem(int addr)
-{
-	// 0 ~ size-1 -size ~ -1
-	int bound=nas_array.size();
-	if(-bound<=addr && addr<0)
-		return nas_array[bound+addr];
-	else if(0<=addr && addr<bound)
-		return nas_array[addr];
-	return -1;
-}
-int nasal_vector::vec_pop()
-{
-	int ret=nas_array.back();
-	nas_array.pop_back();
-	return ret;
-}
-int nasal_vector::get_size()
-{
-	return nas_array.size();
-}
-int* nasal_vector::get_parent_hash_member_addr(std::string member_name)
-{
-	int* ret_addr=NULL;
-	for(int i=0;i<nas_array.size();++i)
-		if(nasal_gc.get_scalar(nas_array[i]).get_type()==scalar_hash)
-		{
-			ret_addr=nasal_gc.get_scalar(nas_array[i]).get_hash().get_hash_member_addr(member_name);
-			if(ret_addr)
-				break;
-		}
-	return ret_addr;
-}
-int nasal_vector::get_parent_hash_member(std::string member_name)
-{
-	int ret_addr=-1;
-	for(int i=0;i<nas_array.size();++i)
-		if(nasal_gc.get_scalar(nas_array[i]).get_type()==scalar_hash)
-		{
-			ret_addr=nasal_gc.get_scalar(nas_array[i]).get_hash().get_hash_member(member_name);
-			if(ret_addr>=0)
-				break;
-		}
-	return ret_addr;
-}
-void nasal_vector::generate_new_hash()
-{
-	for(int i=0;i<nas_array.size();++i)
-		if(nas_array[i]>=0 && nasal_gc.get_scalar(nas_array[i]).get_type()==scalar_hash)
-		{
-			int tmp_addr=nas_array[i];
-			nas_array[i]=nasal_gc.gc_alloc();
-			nasal_gc.get_scalar(nas_array[i]).set_type(scalar_hash);
-			nasal_gc.get_scalar(nas_array[i]).get_hash().deep_copy(nasal_gc.get_scalar(tmp_addr).get_hash());
-			nasal_gc.reference_delete(tmp_addr);;
-		}
-	return;
-}
-void nasal_vector::deep_copy(nasal_vector& tmp)
-{
-	// before deep copy,nasal_vector needs to delete all values in it.
-	for(int i=0;i<nas_array.size();++i)
-		nasal_gc.reference_delete(nas_array[i]);
-	// copy process
-	for(int i=0;i<tmp.nas_array.size();++i)
-	{
-		int tmp_type=nasal_gc.get_scalar(tmp.nas_array[i]).get_type();
-		int new_addr=nasal_gc.gc_alloc();
-		nasal_gc.get_scalar(new_addr).set_type(tmp_type);
-		if(tmp_type==scalar_nil)
-			;
-		else if(tmp_type==scalar_number)
-			nasal_gc.get_scalar(new_addr).get_number().deep_copy(nasal_gc.get_scalar(tmp.nas_array[i]).get_number());
-		else if(tmp_type==scalar_string)
-			nasal_gc.get_scalar(new_addr).get_string().deep_copy(nasal_gc.get_scalar(tmp.nas_array[i]).get_string());
-		else if(tmp_type==scalar_vector)
-			nasal_gc.get_scalar(new_addr).get_vector().deep_copy(nasal_gc.get_scalar(tmp.nas_array[i]).get_vector());
-		else if(tmp_type==scalar_hash)
-			nasal_gc.get_scalar(new_addr).get_hash().deep_copy(nasal_gc.get_scalar(tmp.nas_array[i]).get_hash());
-		else if(tmp_type==scalar_function)
-			nasal_gc.get_scalar(new_addr).get_function().deep_copy(nasal_gc.get_scalar(tmp.nas_array[i]).get_function());
-		nas_array.push_back(new_addr);
-	}
-	return;
-}
-
-void nasal_hash::set_clear()
-{
-	for(std::map<std::string,int>::iterator i=nas_hash.begin();i!=nas_hash.end();++i)
-		nasal_gc.reference_delete(i->second);
-	return;
-}
-int* nasal_hash::get_hash_member_addr(std::string member_name)
-{
-	if(nas_hash.find(member_name)!=nas_hash.end())
-		return &nas_hash[member_name];
-	else if(nas_hash.find("parents")!=nas_hash.end())
-		return nasal_gc.get_scalar(nas_hash["parents"]).get_vector().get_parent_hash_member_addr(member_name);
-	return NULL;
-}
-int nasal_hash::get_hash_member(std::string member_name)
-{
-	if(nas_hash.find(member_name)!=nas_hash.end())
-		return nas_hash[member_name];
-	else if(nas_hash.find("parents")!=nas_hash.end())
-			return nasal_gc.get_scalar(nas_hash["parents"]).get_vector().get_parent_hash_member(member_name);
-	return -1;
-}
-std::vector<int> nasal_hash::get_elem()
-{
-	std::vector<int> vec;
-	for(std::map<std::string,int>::iterator i=nas_hash.begin();i!=nas_hash.end();++i)
-		vec.push_back(i->second);
-	return vec;
-}
-void nasal_hash::hash_push(std::string member_name,int addr)
-{
-	nas_hash[member_name]=addr;
-	return;
-}
-void nasal_hash::hash_pop(std::string member_name)
-{
-	if(nas_hash.find(member_name)!=nas_hash.end())
-	{
-		nasal_gc.reference_delete(nas_hash[member_name]);
-		nas_hash.erase(member_name);
-	}
-	return;
-}
-void nasal_hash::deep_copy(nasal_hash& tmp)
-{
-	// defore deep copy,nasal_hash needs to delete all members in it
-	for(std::map<std::string,int>::iterator i=nas_hash.begin();i!=nas_hash.end();++i)
-		nasal_gc.reference_delete(i->second);
-	// copy process
-	for(std::map<std::string,int>::iterator i=tmp.nas_hash.begin();i!=tmp.nas_hash.end();++i)
-	{
-		int tmp_type=nasal_gc.get_scalar(i->second).get_type();
-		int new_addr=nasal_gc.gc_alloc();
-		nasal_gc.get_scalar(new_addr).set_type(tmp_type);
-		switch(tmp_type)
-		{
-			case scalar_nil     :break;
-			case scalar_number  :nasal_gc.get_scalar(new_addr).get_number().deep_copy(nasal_gc.get_scalar(i->second).get_number());break;
-			case scalar_string  :nasal_gc.get_scalar(new_addr).get_string().deep_copy(nasal_gc.get_scalar(i->second).get_string());break;
-			case scalar_vector  :nasal_gc.get_scalar(new_addr).get_vector().deep_copy(nasal_gc.get_scalar(i->second).get_vector());break;
-			case scalar_hash    :nasal_gc.get_scalar(new_addr).get_hash().deep_copy(nasal_gc.get_scalar(i->second).get_hash());break;
-			case scalar_function:nasal_gc.get_scalar(new_addr).get_function().deep_copy(nasal_gc.get_scalar(i->second).get_function());break;
-		}
-		nas_hash[i->first]=new_addr;
-	}
-	return;
-}
-
-nasal_scalar::nasal_scalar()
-{
-	type=scalar_nil;
-	return;
-}
-void nasal_scalar::set_type(int tmp_type)
-{
-	// scalar_function is the last enum in enum::scalar_type
-	type=tmp_type>scalar_closure? scalar_nil:tmp_type;
-	return;
-}
-int nasal_scalar::get_type()
-{
-	// get scalar type
-	return type;
-}
-nasal_number& nasal_scalar::get_number()
-{
-	// get nasal_number
-	return var_number;
-}
-nasal_string& nasal_scalar::get_string()
-{
-	// get nasal_string
-	return var_string;
-}
-nasal_vector& nasal_scalar::get_vector()
-{
-	// get nasal_vector
-	return var_vector;
-}
-nasal_hash& nasal_scalar::get_hash()
-{
-	// get nasal_hash
-	return var_hash;
-}
-nasal_function& nasal_scalar::get_function()
-{
-	// get nasal_function
-	return var_func;
-}
-nasal_closure& nasal_scalar::get_closure()
-{
-	// get nasal_closure
-	return var_cls;
-}
-
-#endif
-
-/*
-code: var i=1;
-int addr=nasal_gc.gc_alloc();
-nasal_gc.get_scalar(addr).set_type(scalar_number);
-nasal_gc.get_scalar(addr).set_number(1);
-
-code: var i='hello';
-int addr=nasal_gc.gc_alloc();
-nasal_gc.get_scalar(addr).set_type(scalar_string);
-nasal_gc.get_scalar(addr).set_string("hello");
-
-code: var i=[];
-int addr=vector_generation();
-nasal_gc.get_scalar(addr).set_type(scalar_vector);
-
-code: var i={};
-int addr=hash_generation();
-nasal_gc.get_scalar(addr).set_type(scalar_hash);
-nasal_gc.get_scalar(addr).get_hash().set_self_addr(addr);
-
-code: var i=func{return 0;}
-// copy local_scope if needed
-// copy abstract_syntax_tree
-*/
\ No newline at end of file
diff --git a/version2.0/nasal_lexer.h b/version2.0/nasal_lexer.h
deleted file mode 100644
index 97fa384..0000000
--- a/version2.0/nasal_lexer.h
+++ /dev/null
@@ -1,528 +0,0 @@
-#ifndef __NASAL_LEXER_H__
-#define __NASAL_LEXER_H__
-
-#define IS_IDENTIFIER_HEAD(c) (c=='_')||('a'<=c && c<='z')||('A'<=c&&c<='Z')
-#define IS_IDENTIFIER_BODY(c) (c=='_')||('a'<=c && c<='z')||('A'<=c&&c<='Z')||('0'<=c&&c<='9')
-#define IS_NUMBER_HEAD(c)     ('0'<=c&&c<='9')
-#define IS_NUMBER_BODY(c)     ('0'<=c&&c<='9')||('a'<=c&&c<='f')||('A'<=c&&c<='F')||(c=='e'||c=='E'||c=='.'||c=='x'||c=='o')
-#define IS_STRING_HEAD(c)     (c=='\''||c=='\"')
-// single operators have only one character
-#define IS_SINGLE_OPRATOR(c)  (c=='('||c==')'||c=='['||c==']'||c=='{'||c=='}'||c==','||c==';'||c=='|'||c==':'||\
-							   c=='?'||c=='.'||c=='`'||c=='&'||c=='@'||c=='%'||c=='$'||c=='^'||c=='\\')
-// calculation operators may have two chars, for example: += -= *= /= ~= != == >= <=
-#define IS_CALC_OPERATOR(c)   (c=='='||c=='+'||c=='-'||c=='*'||c=='!'||c=='/'||c=='<'||c=='>'||c=='~')
-#define IS_NOTE_HEAD(c)       (c=='#')
-
-/* filenames of lib files */
-#ifndef LIB_FILE_NUM
-#define LIB_FILE_NUM 11
-const std::string lib_filename[LIB_FILE_NUM]=
-{
-	"lib/base.nas",
-	"lib/bits.nas",
-	"lib/io.nas",
-	"lib/math.nas",
-	"lib/readline.nas",
-	"lib/regex.nas",
-	"lib/sqlite.nas",
-	"lib/system.nas",
-	"lib/thread.nas",
-	"lib/unix.nas",
-	"lib/utf8.nas"
-};
-#endif
-
-/* reserve words */
-#ifndef RESERVE_WORD_NUM
-#define RESERVE_WORD_NUM 15
-std::string reserve_word[RESERVE_WORD_NUM]=
-{
-	"for","foreach","forindex","while",
-	"var","func","break","continue","return",
-	"if","else","elsif","and","or","nil"
-};
-/* check if an identifier is a reserve word */
-int is_reserve_word(std::string str)
-{
-	for(int i=0;i<RESERVE_WORD_NUM;++i)
-		if(reserve_word[i]==str)
-			return __token_reserve_word;
-	return __token_identifier;
-}
-#endif
-
-class resource_file
-{
-private:
-	std::vector<char> source_code;
-public:
-	/*
-		delete_all_source: clear all the source codes in std::list<char> resource
-		input_file       : input source codes by filenames
-		load_lib_file    : input lib source codes
-		get_source       : get the std::vector<char> source_code
-		print_resource   : print source codes
-	*/
-	void delete_all_source();
-	void input_file(std::string);
-	void load_lib_file();
-	std::vector<char>& get_source();
-	void print_resource();
-};
-
-/* struct token: mainly used in nasal_lexer and nasal_parse*/
-struct token
-{
-	int line;
-	int type;
-	std::string str;
-	token& operator=(const token& tmp)
-	{
-		line=tmp.line;
-		type=tmp.type;
-		str =tmp.str;
-		return *this;
-	}
-};
-
-class nasal_lexer
-{
-private:
-	std::list<token> token_list;
-	std::list<token> detail_token_list;
-	int error;
-	std::string identifier_gen(std::vector<char>&,int&,int&);
-	std::string number_gen    (std::vector<char>&,int&,int&);
-	std::string string_gen    (std::vector<char>&,int&,int&);
-public:
-	/*
-		identifier_gen       : scan the source codes and generate identifiers
-		number_gen           : scan the source codes and generate numbers
-		string_gen           : scan the source codes and generate strings
-		print_token_list     : print generated token list
-		scanner              : scan the source codes and generate tokens
-		generate_detail_token: recognize and change token types to detailed types that can be processed by nasal_parse
-		get_error            : get the number of errors that occurred when generating tokens
-		get_detail_token     : output the detailed tokens,must be used after generate_detail_token()
-	*/
-	nasal_lexer();
-	~nasal_lexer();
-	void delete_all_tokens();
-	void print_token_list();
-	void scanner(std::vector<char>&);
-	void generate_detail_token();
-	int  get_error();
-	std::list<token>& get_detail_token_list();
-};
-
-
-void resource_file::delete_all_source()
-{
-	std::vector<char> tmp;
-	source_code.clear();
-	source_code.swap(tmp);
-	// use tmp's destructor to delete the memory space that source_code used before
-	return;
-}
-void resource_file::input_file(std::string filename)
-{
-	char c=0;
-	std::ifstream fin(filename,std::ios::binary);
-	if(fin.fail())
-	{
-		std::cout<<">> [Resource] cannot open file \'"<<filename<<"\' ."<<std::endl;
-		fin.close();
-		return;
-	}
-	while(!fin.eof())
-	{
-		c=fin.get();
-		if(fin.eof()) break;
-		source_code.push_back(c);
-	}
-	fin.close();
-	return;
-}
-void resource_file::load_lib_file()
-{
-	source_code.clear();
-	for(int i=0;i<LIB_FILE_NUM;++i)
-	{
-		std::ifstream fin(lib_filename[i],std::ios::binary);
-		if(fin.fail())
-			std::cout<<">> [Resource] fatal error: lack \'"<<lib_filename[i]<<"\'"<<std::endl;
-		else
-		{
-			char c=0;
-			while(!fin.eof())
-			{
-				c=fin.get();
-				if(fin.eof()) break;
-				source_code.push_back(c);
-			}
-		}
-		fin.close();
-	}
-	return;
-}
-std::vector<char>& resource_file::get_source()
-{
-	return source_code;
-}
-void resource_file::print_resource()
-{
-	int size=source_code.size();
-	int line=1;
-	std::cout<<line<<"\t";
-	std::string unicode_str="";
-	for(int i=0;i<size;++i)
-	{
-		if(source_code[i]>=0 && unicode_str.length())
-		{
-			std::cout<<unicode_str;
-			unicode_str="";
-		}
-		if(32<=source_code[i])    std::cout<<source_code[i];
-		else if(source_code[i]<0) unicode_str+=source_code[i];
-		else                      std::cout<<" ";
-		if(source_code[i]=='\n')
-		{
-			++line;
-			std::cout<<std::endl<<line<<"\t";
-		}
-	}
-	if(unicode_str.length())
-		std::cout<<unicode_str;
-	std::cout<<std::endl;
-	return;
-}
-
-std::string nasal_lexer::identifier_gen(std::vector<char>& res,int& ptr,int& line)
-{
-	int res_size=res.size();
-	std::string token_str="";
-	while(ptr<res_size && IS_IDENTIFIER_BODY(res[ptr]))
-	{
-		token_str+=res[ptr];
-		++ptr;
-	}
-	// check dynamic identifier "..."
-	if(ptr+2<res_size && res[ptr]=='.' && res[ptr+1]=='.' && res[ptr+2]=='.')
-	{
-		token_str+="...";
-		ptr+=3;
-	}
-	return token_str;
-	// after running this process, ptr will point to the next token's beginning character
-}
-
-std::string nasal_lexer::number_gen(std::vector<char>& res,int& ptr,int& line)
-{
-	int res_size=res.size();
-	bool scientific_notation=false;// numbers like 1e8 are scientific_notation
-	std::string token_str="";
-	while(ptr<res_size && IS_NUMBER_BODY(res[ptr]))
-	{
-		token_str+=res[ptr];
-		if(res[ptr]=='e' || res[ptr]=='E')
-		{
-			scientific_notation=true;
-			++ptr;
-			break;
-		}
-		++ptr;
-	}
-	if(scientific_notation && ptr<res_size)
-	{
-		if(res[ptr]=='-')
-		{
-			token_str+='-';
-			++ptr;
-		}
-		while(ptr<res_size && '0'<=res[ptr] && res[ptr]<='9')
-		{
-			token_str+=res[ptr];
-			++ptr;
-		}
-	}
-	if(!check_numerable_string(token_str))
-	{
-		++error;
-		std::cout<<">> [Lexer] line "<<line<<": "<<token_str<<" is not a numerable string."<<std::endl;
-		token_str="0";
-	}
-	return token_str;
-}
-std::string nasal_lexer::string_gen(std::vector<char>& res,int& ptr,int& line)
-{
-	int res_size=res.size();
-	std::string token_str="";
-	char str_begin=res[ptr];
-	++ptr;
-	if(ptr>=res_size) return token_str;
-	while(ptr<res_size && res[ptr]!=str_begin)
-	{
-		token_str+=res[ptr];
-		if(res[ptr]=='\n') ++line;
-		if(res[ptr]=='\\' && ptr+1<res.size())
-		{
-			++ptr;
-			switch(res[ptr])
-			{
-				case '\\':token_str.pop_back();token_str.push_back('\\');break;
-				case 'r': token_str.pop_back();token_str.push_back('\r');break;
-				case 't': token_str.pop_back();token_str.push_back('\t');break;
-				case 'n': token_str.pop_back();token_str.push_back('\n');break;
-				case '\'':token_str.pop_back();token_str.push_back('\'');break;
-				case '\"':token_str.pop_back();token_str.push_back('\"');break;
-				default:  token_str.push_back(res[ptr]);break;
-			}
-		}
-		++ptr;
-	}
-	// check if this string ends with a " or '
-	if(ptr>=res_size)
-	{
-		++error;
-		std::cout<<">> [Lexer] line "<<line<<": this string must have a \' "<<str_begin<<" \' as its end."<<std::endl;
-	}
-	++ptr;
-	return token_str;
-}
-nasal_lexer::nasal_lexer()
-{
-	token_list.clear();
-	detail_token_list.clear();
-	error=0;
-	return;
-}
-nasal_lexer::~nasal_lexer()
-{
-	token_list.clear();
-	detail_token_list.clear();
-	return;
-}
-void nasal_lexer::delete_all_tokens()
-{
-	token_list.clear();
-	detail_token_list.clear();
-	error=0;
-	return;
-}
-void nasal_lexer::print_token_list()
-{
-	for(std::list<token>::iterator i=token_list.begin();i!=token_list.end();++i)
-	{
-		std::cout<<"line "<<i->line<<" ( ";
-		print_lexer_token(i->type);
-		std::cout<<" | "<<i->str<<" )"<<std::endl;
-	}
-	return;
-}
-void nasal_lexer::scanner(std::vector<char>& res)
-{
-	token_list.clear();
-	detail_token_list.clear();
-	error=0;
-	
-	int line=1,ptr=0,res_size=res.size();
-	std::string token_str;
-	while(ptr<res_size)
-	{
-		while(ptr<res_size && (res[ptr]==' ' || res[ptr]=='\n' || res[ptr]=='\t' || res[ptr]=='\r' || res[ptr]<0))
-		{
-			// these characters will be ignored, and '\n' will cause ++line
-			if(res[ptr]=='\n') ++line;
-			++ptr;
-		}
-		if(ptr>=res_size) break;
-		if(IS_IDENTIFIER_HEAD(res[ptr]))
-		{
-			token_str=identifier_gen(res,ptr,line);
-			token new_token;
-			new_token.line=line;
-			new_token.type=is_reserve_word(token_str);
-			new_token.str=token_str;
-			token_list.push_back(new_token);
-		}
-		else if(IS_NUMBER_HEAD(res[ptr]))
-		{
-			token_str=number_gen(res,ptr,line);
-			token new_token;
-			new_token.line=line;
-			new_token.type=__token_number;
-			new_token.str=token_str;
-			token_list.push_back(new_token);
-		}
-		else if(IS_STRING_HEAD(res[ptr]))
-		{
-			token_str=string_gen(res,ptr,line);
-			token new_token;
-			new_token.line=line;
-			new_token.type=__token_string;
-			new_token.str=token_str;
-			token_list.push_back(new_token);
-		}
-		else if(IS_SINGLE_OPRATOR(res[ptr]))
-		{
-			token_str="";
-			token_str+=res[ptr];
-			token new_token;
-			new_token.line=line;
-			new_token.type=__token_operator;
-			new_token.str=token_str;
-			token_list.push_back(new_token);
-			++ptr;
-		}
-		else if(IS_CALC_OPERATOR(res[ptr]))
-		{
-			// get calculation operator
-			token_str="";
-			token_str+=res[ptr];
-			++ptr;
-			if(ptr<res.size() && res[ptr]=='=')
-			{
-				token_str+=res[ptr];
-				++ptr;
-			}
-			token new_token;
-			new_token.line=line;
-			new_token.type=__token_operator;
-			new_token.str=token_str;
-			token_list.push_back(new_token);
-		}
-		else if(IS_NOTE_HEAD(res[ptr]))
-		{
-			// avoid note
-			while(ptr<res_size && res[ptr]!='\n')
-				++ptr;
-			// after this process ptr will point to a '\n'
-			// don't ++ptr then the counter for line can work correctly
-		}
-		else
-		{
-			++error;
-			std::cout<<">> [Lexer] line "<<line<<": unknown char."<<std::endl;
-			++ptr;
-		}
-	}
-	std::cout<<">> [Lexer] complete scanning. "<<error<<" error(s)."<<std::endl;
-	return;
-}
-void nasal_lexer::generate_detail_token()
-{
-	token detail_token;
-	detail_token_list.clear();
-	for(std::list<token>::iterator i=token_list.begin();i!=token_list.end();++i)
-	{
-		if(i->type==__token_number)
-		{
-			detail_token.line=i->line;
-			detail_token.str =i->str;
-			detail_token.type=__number;
-			detail_token_list.push_back(detail_token);
-		}
-		else if(i->type==__token_string)
-		{
-			detail_token.line=i->line;
-			detail_token.str =i->str;
-			detail_token.type=__string;
-			detail_token_list.push_back(detail_token);
-		}
-		else if(i->type==__token_reserve_word)
-		{
-			detail_token.line=i->line;
-			detail_token.str ="";
-			if     (i->str=="for"     ) detail_token.type=__for;
-			else if(i->str=="foreach" ) detail_token.type=__foreach;
-			else if(i->str=="forindex") detail_token.type=__forindex;
-			else if(i->str=="while"   ) detail_token.type=__while;
-			else if(i->str=="var"     ) detail_token.type=__var;
-			else if(i->str=="func"    ) detail_token.type=__func;
-			else if(i->str=="break"   ) detail_token.type=__break;
-			else if(i->str=="continue") detail_token.type=__continue;
-			else if(i->str=="return"  ) detail_token.type=__return;
-			else if(i->str=="if"      ) detail_token.type=__if;
-			else if(i->str=="else"    ) detail_token.type=__else;
-			else if(i->str=="elsif"   ) detail_token.type=__elsif;
-			else if(i->str=="nil"     ) detail_token.type=__nil;
-			else if(i->str=="and"     ) detail_token.type=__and_operator;
-			else if(i->str=="or"      ) detail_token.type=__or_operator;
-			detail_token_list.push_back(detail_token);
-		}
-		else if(i->type==__token_identifier)
-		{
-			detail_token.line=i->line;
-			detail_token.str =i->str;
-			if(i->str.length()<=3)
-				detail_token.type=__id;
-			else
-			{
-				std::string tempstr=i->str;
-				int len=tempstr.length(),strback=tempstr.length()-1;
-				if(tempstr[strback]=='.' && tempstr[strback-1]=='.' && tempstr[strback-2]=='.')
-				{
-					detail_token.str="";
-					for(int j=0;j<len-3;++j)
-						detail_token.str+=tempstr[j];
-					detail_token.type=__dynamic_id;
-				}
-				else
-					detail_token.type=__id;
-			}
-			detail_token_list.push_back(detail_token);
-		}
-		else if(i->type==__token_operator)
-		{
-			detail_token.line=i->line;
-			detail_token.str ="";
-			if     (i->str=="+" ) detail_token.type=__add_operator;
-			else if(i->str=="-" ) detail_token.type=__sub_operator;
-			else if(i->str=="*" ) detail_token.type=__mul_operator;
-			else if(i->str=="/" ) detail_token.type=__div_operator;
-			else if(i->str=="~" ) detail_token.type=__link_operator;
-			else if(i->str=="+=") detail_token.type=__add_equal;
-			else if(i->str=="-=") detail_token.type=__sub_equal;
-			else if(i->str=="*=") detail_token.type=__mul_equal;
-			else if(i->str=="/=") detail_token.type=__div_equal;
-			else if(i->str=="~=") detail_token.type=__link_equal;
-			else if(i->str=="=" ) detail_token.type=__equal;
-			else if(i->str=="==") detail_token.type=__cmp_equal;
-			else if(i->str=="!=") detail_token.type=__cmp_not_equal;
-			else if(i->str=="<" ) detail_token.type=__cmp_less;
-			else if(i->str=="<=") detail_token.type=__cmp_less_or_equal;
-			else if(i->str==">" ) detail_token.type=__cmp_more;
-			else if(i->str==">=") detail_token.type=__cmp_more_or_equal;
-			else if(i->str==";" ) detail_token.type=__semi;
-			else if(i->str=="." ) detail_token.type=__dot;
-			else if(i->str==":" ) detail_token.type=__colon;
-			else if(i->str=="," ) detail_token.type=__comma;
-			else if(i->str=="?" ) detail_token.type=__ques_mark;
-			else if(i->str=="!" ) detail_token.type=__nor_operator;
-			else if(i->str=="[" ) detail_token.type=__left_bracket;
-			else if(i->str=="]" ) detail_token.type=__right_bracket;
-			else if(i->str=="(" ) detail_token.type=__left_curve;
-			else if(i->str==")" ) detail_token.type=__right_curve;
-			else if(i->str=="{" ) detail_token.type=__left_brace;
-			else if(i->str=="}" ) detail_token.type=__right_brace;
-			else
-			{
-				++error;
-				std::cout<<">> [Lexer] line "<<detail_token.line<<": unknown operator \'"<<i->str<<"\'."<<std::endl;
-				detail_token.type=__unknown_operator;
-			}
-			detail_token_list.push_back(detail_token);
-		}
-	}
-	std::cout<<">> [Lexer] complete generating. "<<error<<" error(s)."<<std::endl;
-	return;
-}
-int nasal_lexer::get_error()
-{
-	return error;
-}
-std::list<token>& nasal_lexer::get_detail_token_list()
-{
-	return detail_token_list;
-}
-#endif
diff --git a/version2.0/nasal_misc.h b/version2.0/nasal_misc.h
deleted file mode 100644
index b266027..0000000
--- a/version2.0/nasal_misc.h
+++ /dev/null
@@ -1,266 +0,0 @@
-#ifndef __NASAL_MISC_H__
-#define __NASAL_MISC_H__
-
-/*
-	check_numerable_string:
-	check if a string can be converted to a number
-	
-	strings like these below is correct:
-	'0.00012'
-	'12314.234'
-	'1234'
-	'0xdeadbeef'
-	'0xDEADBEEF'
-	'0o71230'
-	'1e23'
-	'1E-123'
-	'1.34E10'
-*/
-inline bool check_hex_string(std::string str,int len)
-{
-	for(int i=2;i<len;++i)
-		if(!(('0'<=str[i] && str[i]<='9') || ('a'<=str[i] && str[i]<='f') || ('A'<=str[i] && str[i]<='F')))
-			return false;
-	return true;
-}
-inline bool check_oct_string(std::string str,int len)
-{
-	for(int i=2;i<len;++i)
-		if(str[i]<'0' || str[i]>'7')
-			return false;
-	return true;
-}
-inline bool check_dec_string(std::string str,int len)
-{
-	int dot_cnt=0;
-	if(str[0]=='.') return false;
-	if(str[0]=='0' && ('0'<=str[1] && str[1]<='9')) return false;
-	int i=0;
-	for(;i<len;++i)
-	{
-		if(str[i]=='.')
-		{
-			if(i==len-1 || str[i+1]=='e' || str[i+1]=='E') return false;
-			++dot_cnt;
-		}
-		else if(str[i]=='e' || str[i]=='E') break;
-		else if(str[i]<'0'  || str[i]>'9' ) return false;
-	}
-	if(str[i]=='e' || str[i]=='E')
-	{
-		++i;
-		if(i==len) return false;
-		if(str[i]=='-')
-		{
-			++i;
-			if(i==len) return false;
-		}
-		for(;i<len;++i)
-			if(str[i]<'0' || str[i]>'9')
-				return false;
-	}
-	if(dot_cnt>1) return false;
-	return true;
-}
-
-bool check_numerable_string(std::string str)
-{
-	int len=str.length();
-	if(!len) return false;
-	if(str[0]=='-' && len>1)
-	{
-		std::string tmp="";
-		for(int i=1;i<len;++i)
-			tmp.push_back(str[i]);
-		str=tmp;
-	}
-	else if(str[0]=='-' && len==1)
-		return false;
-	if(len==1 && '0'<=str[0] && str[0]<='9')
-		return true;
-	else if(len>2 && str[0]=='0' && str[1]=='x')
-		return check_hex_string(str,len);
-	else if(len>2 && str[0]=='0' && str[1]=='o')
-		return check_oct_string(str,len);
-	else if('0'<=str[0] && str[0]<='9')
-		return check_dec_string(str,len);
-	return false;
-}
-
-/*
-	trans_string_to_number:
-	convert string to number
-*/
-inline double hex_to_double(std::string str,int len)
-{
-	double ret=0;
-	double num_pow=1;
-	for(int i=len-1;i>1;--i)
-	{
-		if('0'<=str[i] && str[i]<='9')
-			ret+=num_pow*(str[i]-'0');
-		else if('a'<=str[i] && str[i]<='f')
-			ret+=num_pow*(str[i]-'a'+10);
-		else if('A'<=str[i] && str[i]<='F')
-			ret+=num_pow*(str[i]-'A'+10);
-		num_pow*=16;
-	}
-	return ret;
-}
-inline double oct_to_double(std::string str,int len)
-{
-	double ret=0;
-	double num_pow=1;
-	for(int i=len-1;i>1;--i)
-	{
-		ret+=num_pow*(str[i]-'0');
-		num_pow*=8;
-	}
-	return ret;
-}
-inline double dec_to_double(std::string str,int len)
-{
-	double ret=0;
-	int i=0;
-	for(;i<len;++i)
-	{
-		if('0'<=str[i] && str[i]<='9')
-			ret=ret*10+(str[i]-'0');
-		else if(str[i]=='.' || str[i]=='e' || str[i]=='E')
-			break;
-	}
-	if(str[i]=='.')
-	{
-		++i;
-		double num_pow=0.1;
-		for(;i<len;++i)
-		{
-			if('0'<=str[i] && str[i]<='9')
-			{
-				ret+=num_pow*(str[i]-'0');
-				num_pow*=0.1;
-			}
-			else if(str[i]=='e' || str[i]=='E')
-				break;
-		}
-	}
-	if(str[i]=='e' || str[i]=='E')
-	{
-		
-		++i;
-		bool is_negative=(str[i]=='-');
-		if(is_negative) ++i;
-		double num_pow=0;
-		for(;i<len;++i) num_pow=num_pow*10+(str[i]-'0');
-		num_pow=std::pow(10,is_negative?-num_pow:num_pow);
-		ret*=num_pow;
-	}
-	return ret;
-}
-double trans_string_to_number(std::string str)
-{
-	bool is_negative=false;
-	int len=str.length();
-	double ret_num=0;
-	if(!len) return 0;
-	if(str[0]=='-' && len>1)
-	{
-		is_negative=true;
-		std::string tmp="";
-		for(int i=1;i<len;++i)
-			tmp.push_back(str[i]);
-		str=tmp;
-	}
-	else if(str[0]=='-' && len==1)
-		return 0;
-	if(len==1 && '0'<=str[0] && str[0]<='9')
-		ret_num=(double)(str[0]-'0');
-	else if(len>2 && str[0]=='0' && str[1]=='x')
-		ret_num=hex_to_double(str,len);
-	else if(len>2 && str[0]=='0' && str[1]=='o')
-		ret_num=oct_to_double(str,len);
-	else if('0'<=str[0] && str[0]<='9')
-		ret_num=dec_to_double(str,len);
-	return is_negative?-ret_num:ret_num;
-}
-
-/*
-	trans_number_to_string:
-	convert number to string
-*/
-std::string trans_number_to_string(double number)
-{
-	std::string trans_num_string="";
-	if(number<0)
-	{
-		trans_num_string+='-';
-		number=-number;
-	}
-	double integer_bit=1;
-	while(number>=integer_bit)
-		integer_bit*=10;
-	integer_bit/=10;
-	while(integer_bit!=0.1)
-	{
-		trans_num_string+=(char)('0'+(int(number/integer_bit)));
-		number-=(double)(int(number/integer_bit))*integer_bit;
-		integer_bit/=10;
-	}
-	if(number!=0)
-		trans_num_string+='.';
-	while(number!=0)
-	{
-		trans_num_string+=(char)('0'+int(number*10));
-		number*=10;
-		number-=(double)(int(number));
-	}
-	return trans_num_string;
-}
-
-/*
-	prt_hex:
-	transform int to hex format and print it out (std::cout)
-*/
-void prt_hex(const int ptr)
-{
-	char hex[9];
-	hex[8]=0;
-	int tmp_plc=ptr;
-	if(tmp_plc<0)
-	{
-		tmp_plc=-tmp_plc;
-		std::cout<<"-0x";
-	}
-	else
-		std::cout<<"0x";
-	/*
-		int: 00000000 00000000 00000000 00000000
-		int: 0x00 00 00 00
-		example:
-			a=0x13 57 9b df
-			a=00010011 01010111 10011011 11011111
-			a & 0x00 00 00 0f:
-				00010011 01010111 10011011 11011111
-			and	00000000 00000000 00000000 00001111
-			---------------------------------------
-				00000000 00000000 00000000 00001111
-			a>>=4:
-				00000001 00110101 01111001 10111101
-			a & 0x00 00 00 0f
-				00000001 00110101 01111001 10111101
-			and 00000000 00000000 00000000 00001111
-			---------------------------------------
-				00000000 00000000 00000000 00001101
-			then convert 0~15 to 0~9 a~f
-	*/
-	for(int j=7;j>=0;--j)
-	{
-		int tmp=(tmp_plc & 0x0000000f);
-		hex[j]=tmp<10? (char)('0'+tmp):(char)('a'+tmp-10);
-		tmp_plc>>=4;
-	}
-	std::cout<<hex;
-	return;
-}
-
-#endif
diff --git a/version2.0/nasal_parse.h b/version2.0/nasal_parse.h
deleted file mode 100644
index 35a78d8..0000000
--- a/version2.0/nasal_parse.h
+++ /dev/null
@@ -1,1870 +0,0 @@
-#ifndef __NASAL_PARSE_H__
-#define __NASAL_PARSE_H__
-
-class nasal_parse
-{
-	private:
-		/*
-			parse_token_stream: get detailed tokens from lexer and store them in this stack
-			checked_tokens    : checked tokens will be stored here
-			this_token        : changed by function get_token and push_token,and used when generating ast
-			error             : record the number of errors occurred when generating ast
-			root              : after generating process, the ast will be stored in root
-		*/
-		std::stack<token> parse_token_stream;
-		std::stack<token> checked_tokens;
-		token this_token;
-		int   error;
-		abstract_syntax_tree root;
-		/* parsse_error_type: used in print_parse_error,including all types of errors*/
-		enum parse_error_type
-		{
-			parse_unknown_error=0,       // unknown error
-			error_token_in_main,         // when a token should not be the begin of a statement in main
-			error_token_in_block,        // when a token should not be the begin of a statement in block
-
-			lack_semi,
-			lack_id,
-			lack_left_curve,
-			lack_right_curve,
-			lack_right_brace,
-
-			definition_lack_id,          // lack identifier
-			definition_lack_equal,       // lack '=' when not getting ';'
-			assignment_begin_error,      // assignment begins with more than one identifier_call
-			multi_definition_need_curve, // lack right curve when generating 'var (id,id,id)'
-
-			multi_assignment_need_curve, // lack right curve when generating (scalar,scalar)=(scalar,scalar)
-			multi_assignment_need_equal, // lack '=' when generating (scalar,scalar)=(scalar,scalar)
-
-			error_begin_token_of_scalar, // in scalar_generate() 
-			
-			need_default_parameter,      // parameters must have a default value if detected there is a default parameter before.
-			default_dynamic_parameter,   // default parameter should not be dynamic 
-			parameter_lack_part,         // parameter lack a ')' or identifier
-			parameter_lack_curve,        // parameter lack a ',' or ')'
-
-			special_call_func_lack_id,
-			special_call_func_lack_colon,
-			normal_call_func_has_colon,  // when calling a function,normal way and special way cannot be used together
-			call_func_lack_comma,        // lack comma when giving parameters to a function
-			call_hash_lack_id,           // lack identifier when calling a hash
-			call_vector_wrong_comma,     // wrong use of comma like this: id[0,4:6,7,] (the last comma is incorrect here)
-			call_vector_lack_bracket,    // lack ']' when calling a vector
-			call_vector_wrong_token,     // get wrong token when calling a vector
-
-			vector_gen_lack_end,         // lack ',' or ')' when generating a vector
-			hash_gen_lack_id,            // lack identifier or string when generating a hash
-			hash_gen_lack_colon,         // lack ':' when generating a hash
-			hash_gen_lack_end,           // lack ',' or '}' when generating a hash
-
-			ternary_operator_lack_colon, // lack ':'
-		};
-		/* print the error type and it's line*/
-		void print_parse_error(int,int,int);
-		/*
-			get_token and push_token are most important functions of parser
-			these two functions are used to get and push token
-			and the result will be stored in this_token
-		*/
-		void get_token();
-		void push_token();
-		/* block statements generation */
-		abstract_syntax_tree block_generate();
-		// check ';'
-		void check_semi();
-		/* check '(' confliction */
-		bool check_multi_assignment();                  // check multi_call_id '=' multi_scalar
-		bool check_multi_scalar();                      // check multi_scalar
-		bool check_var_in_curve();                      // check multi_definition: (var id,id,id)
-		bool check_function_end(abstract_syntax_tree&); // check end of definition or '=' is a function
-		/*
-			calculation         : will get elements generated by and_calculation()
-			and_calculation     : will get elements generated by or_calculation()
-			or_calculation      : will get elements generated by cmp_calculation()
-			cmp_calculation     : will get elements generated by additive_calculation()
-			additive_calculation: will get elements generated by multive_calculation()
-			multive_calculation : will get elements generated by assign_calculation()(assignment <call_id> '=' <calculation>) and scalar_generate()
-			assign_calculation  : get elements from scalar_generate()
-			please notice that:
-				if the elements begin with '!' or '-',multive_calculation() gets them from scalar_generate()
-				if not,multive_calculation() gets them from assign_calculation()
-				because '!' and '-' cannot be used with assignment together such as: -a=1
-		*/
-		abstract_syntax_tree calculation();
-		abstract_syntax_tree and_calculation();
-		abstract_syntax_tree or_calculation();
-		abstract_syntax_tree cmp_calculation();
-		abstract_syntax_tree additive_calculation();
-		abstract_syntax_tree multive_calculation();
-		abstract_syntax_tree scalar_generate();
-		/* normal data type generation */
-		abstract_syntax_tree hash_generate();
-		abstract_syntax_tree vector_generate();
-		abstract_syntax_tree function_generate();
-		/* return_expr() generates ebnf: <return> [<calculation>] ';' */
-		abstract_syntax_tree return_expr();
-		/* normal expressions */
-		abstract_syntax_tree multi_scalar_assignment();
-		abstract_syntax_tree definition();
-		abstract_syntax_tree loop_expr();
-		abstract_syntax_tree conditional_expr();
-	public:
-		// basic functions
-		void delete_all_elements()
-		{
-			// used in 'del' command in main()
-			while(!parse_token_stream.empty())
-				parse_token_stream.pop();
-			while(!checked_tokens.empty())
-				checked_tokens.pop();
-			root.set_clear();
-			return;
-		}
-		void print_detail_token();
-		void get_token_list(std::list<token>&);
-		int  get_error();
-		abstract_syntax_tree& get_root();
-		/* main process of parser */
-		void main_generate();
-};
-
-void nasal_parse::print_detail_token()
-{
-	// copy tokens from parse_token_stream
-	// so this function only works when generation hasn't begun.
-	std::stack<token> tmp=parse_token_stream;
-	// indent
-	std::string indent="";
-	int brace_cnt=0;
-	int line=1;
-	std::cout<<line<<"\t";
-	while((!tmp.empty()) && (tmp.top().type!=__stack_end))
-	{
-		if(tmp.top().line!=line)
-		{
-			// if line changes,print '\n' and number of line
-			// by using this loop,empty line will also be output
-			for(int i=line+1;i<tmp.top().line;++i)
-				std::cout<<std::endl<<i<<"\t";
-			line=tmp.top().line;
-			std::cout<<std::endl<<line<<"\t"<<indent;
-		}
-		print_parse_token(tmp.top().type);
-		if(tmp.top().type==__left_brace)
-		{
-			++brace_cnt;
-			indent+=' ';
-		}
-		else if(tmp.top().type==__right_brace)
-			--brace_cnt;
-		tmp.pop();
-		if((!tmp.empty()) && (tmp.top().type==__right_brace) && brace_cnt>=1)
-			indent.pop_back();
-	}
-	std::cout<<std::endl;
-	return;
-}
-
-void nasal_parse::get_token_list(std::list<token>& detail_token_stream)
-{
-	// get detail_token_stream from lexer
-	// clear the parse_token_stream and checked_tokens list
-	while(!parse_token_stream.empty())
-		parse_token_stream.pop();
-	while(!checked_tokens.empty())
-		checked_tokens.pop();
-	// add stack_end token
-	token end_token;
-	end_token.line=detail_token_stream.back().line;
-	end_token.str="stack_end";
-	end_token.type=__stack_end;
-
-	parse_token_stream.push(end_token);
-	checked_tokens.push(end_token);
-	// clear stacks and initialize them with stack_end token
-
-	std::stack<token> backward_tmp;
-	// backward_tmp is used to backward detail_token_stream
-	// to the parse_token_stream so get_token can get token
-	// according to the correct subsequence.
-	for(std::list<token>::iterator i=detail_token_stream.begin();i!=detail_token_stream.end();++i)
-		backward_tmp.push(*i);
-	while(!backward_tmp.empty())
-	{
-		parse_token_stream.push(backward_tmp.top());
-		backward_tmp.pop();
-	}
-	return;
-}
-
-void nasal_parse::print_parse_error(int error_type,int line,int error_token_type=__stack_end)
-{
-	std::cout<<">> [Parse] line "<<line<<": ";
-	switch(error_type)
-	{
-		case parse_unknown_error:
-			std::cout<<"unknown parse error.(token id: "<<error_token_type<<")."<<std::endl;break;
-		case error_token_in_main:
-			std::cout<<"statements should not begin with \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' in main scope."<<std::endl;
-			break;
-		case error_token_in_block:
-			std::cout<<"statements should not begin with \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' in block scope."<<std::endl;
-			break;
-		case lack_semi:
-			std::cout<<"expect a \';\' at the end of the statement."<<std::endl;break;
-		case lack_id:
-			std::cout<<"expect an identifier here."<<std::endl;break;
-		case lack_left_curve:
-			std::cout<<"expect a \'(\' here."<<std::endl;break;
-		case lack_right_curve:
-			std::cout<<"expect a \')\' here."<<std::endl;break;
-		case lack_right_brace:
-			std::cout<<"expect a \'}\' here."<<std::endl;break;
-		case definition_lack_id:
-			std::cout<<"expect identifier(s) after \'var\'."<<std::endl;break;
-		case definition_lack_equal:
-			std::cout<<"expect a \'=\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' when generating definition."<<std::endl;
-			break;
-		case assignment_begin_error:
-			std::cout<<"assignment should begin with one identifier_call."<<std::endl;
-			break;
-		case multi_definition_need_curve:
-			std::cout<<"expect a \')\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case multi_assignment_need_curve:
-			std::cout<<"expect a \')\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case multi_assignment_need_equal:
-			std::cout<<"expect a \'=\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case error_begin_token_of_scalar:
-			std::cout<<"expect a scalar here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case need_default_parameter:
-			std::cout<<"parameters after a default parameter must have their own default values."<<std::endl;break;
-		case default_dynamic_parameter:
-			std::cout<<"dynamic parameter should not have a default value."<<std::endl;break;
-		case parameter_lack_part:
-			std::cout<<"expect a \')\' or identifier here when generating parameter_list."<<std::endl;break;
-		case parameter_lack_curve:
-			std::cout<<"expect a \')\' or \',\' here when generating parameter_list."<<std::endl;break;
-		case special_call_func_lack_id:
-			std::cout<<"expect an identifier here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' when calling functions."<<std::endl;
-			break;
-		case special_call_func_lack_colon:
-			std::cout<<"expect an \':\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' when calling functions."<<std::endl;
-			break;
-		case normal_call_func_has_colon:
-			std::cout<<"normal and special ways of calling a function are not allowed to be used together."<<std::endl;break;
-		case call_func_lack_comma:
-			std::cout<<"expect a \',\' when calling a function but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case call_hash_lack_id:
-			std::cout<<"expect an identifier after \'.\' ."<<std::endl;break;
-		case call_vector_wrong_comma:
-			std::cout<<"expect a scalar after \',\' but get \']\' ."<<std::endl;
-			break;
-		case call_vector_lack_bracket:
-			std::cout<<"expect a \']\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case call_vector_wrong_token:
-			std::cout<<"expect \':\' or ',' or ']' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case vector_gen_lack_end:
-			std::cout<<"expect a \',\' or \')\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case hash_gen_lack_id:
-			std::cout<<"expect an identifier or string here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case hash_gen_lack_colon:
-			std::cout<<"expect a \':\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case hash_gen_lack_end:
-			std::cout<<"expect a \',\' or \'}\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		case ternary_operator_lack_colon:
-			std::cout<<"expect a \':\' here but get \'";
-			print_parse_token(error_token_type);
-			std::cout<<"\' ."<<std::endl;
-			break;
-		default:
-			std::cout<<"unknown parse error.(token id: "<<error_token_type<<")."<<std::endl;break;
-	}
-	return;
-}
-
-void nasal_parse::get_token()
-{
-	if(!parse_token_stream.empty())
-	{
-		this_token=parse_token_stream.top();
-		parse_token_stream.pop();
-		checked_tokens.push(this_token);
-	}
-	return;
-}
-
-void nasal_parse::push_token()
-{
-	if(!checked_tokens.empty())
-	{
-		parse_token_stream.push(checked_tokens.top());
-		checked_tokens.pop();
-		if(!checked_tokens.empty())
-			this_token=checked_tokens.top();
-	}
-	return;
-}
-
-int nasal_parse::get_error()
-{
-	// if error is larger than 0,
-	// the process after parser will stop.
-	return error;
-}
-
-abstract_syntax_tree& nasal_parse::get_root()
-{
-	return root;
-}
-
-void nasal_parse::check_semi()
-{
-	// check if this statement has ';' as its end.
-	if(this_token.type==__stack_end)
-	{
-		++error;
-		print_parse_error(lack_semi,this_token.line,this_token.type);
-		return;
-	}
-	this->get_token();
-	if(this_token.type==__semi)
-		return;
-	else if(this_token.type==__right_brace)
-	{
-		// this make func{return 0} as correct
-		this->push_token();
-		return;
-	}
-	else
-	{
-		++error;
-		this->push_token();
-		print_parse_error(lack_semi,this_token.line,this_token.type);
-		this->get_token();
-		if(this_token.type!=__stack_end)
-			this->push_token();
-	}
-	return;
-}
-
-bool nasal_parse::check_multi_assignment()
-{
-	bool ret=false;
-	int cnt=0;
-
-	this->get_token();
-	++cnt;// get '('
-
-	this->get_token();
-	++cnt;
-	if(this_token.type==__id)
-	{
-		int curve_cnt=0;
-		int bracket_cnt=0;
-		int brace_cnt=0;
-		while(1)
-		{
-			this->get_token();
-			++cnt;
-			// these determine statements are used with curve_cnt,bracket_cnt and brace_cnt together
-			// to avoid checking commas in other curves/brackets/braces such as ([0,1,2,3])
-			// but in multi_assignment, only things like (id[scalar],id.id[scalar]) can be recognized as multi_scalar
-			// if ([0,1,2,3]) and i don't use these judgements,then ([0,1,2,3]) will be recognized as multi_scalar
-			// but in fact ([0,1,2,3]) is not
-			if(this_token.type==__left_curve)   ++curve_cnt;
-			if(this_token.type==__left_bracket) ++bracket_cnt;
-			if(this_token.type==__left_brace)   ++brace_cnt;
-			if(this_token.type==__right_curve)  --curve_cnt;
-			if(this_token.type==__right_bracket)--bracket_cnt;
-			if(this_token.type==__right_brace)  --brace_cnt;
-
-			// if curves,brackets,braces are in pairs and this_token is comma,it is really multi_id calls
-			if(!curve_cnt && !bracket_cnt && !brace_cnt && this_token.type==__comma)
-			{
-				ret=true;
-				break;
-			}
-			// error occurred
-			if(curve_cnt<0 || brace_cnt<0 || brace_cnt<0)
-				break;
-			// exit when meeting stack end
-			if((!parse_token_stream.empty() && parse_token_stream.top().type==__stack_end) || (this_token.type==__semi))
-				break;
-		}
-	}
-	for(int i=0;i<cnt;++i)
-		this->push_token();
-	return ret;
-}
-
-bool nasal_parse::check_multi_scalar()
-{
-	bool ret=false;
-	int cnt=0;
-
-	this->get_token();
-	++cnt;// get '('
-	int curve_cnt=0;
-	int bracket_cnt=0;
-	int brace_cnt=0;
-	while(1)
-	{
-		this->get_token();
-		++cnt;
-		// these determine statements are used with curve_cnt,bracket_cnt and brace_cnt together
-		// to avoid checking commas in other curves/brackets/braces
-		// such as (a[0,1,2],b(2,3))
-		if(this_token.type==__left_curve)   ++curve_cnt;
-		if(this_token.type==__left_bracket) ++bracket_cnt;
-		if(this_token.type==__left_brace)   ++brace_cnt;
-		if(this_token.type==__right_curve)  --curve_cnt;
-		if(this_token.type==__right_bracket)--bracket_cnt;
-		if(this_token.type==__right_brace)  --brace_cnt;
-
-		// if curves,brackets,braces are in pairs and this_token is comma,it is really multi_scalar
-		if(!curve_cnt && !bracket_cnt && !brace_cnt && this_token.type==__comma)
-		{
-			ret=true;
-			break;
-		}
-		// error occurred
-		if(curve_cnt<0 || brace_cnt<0 || brace_cnt<0)
-			break;
-		// exit when meeting stack end
-		if((!parse_token_stream.empty() && parse_token_stream.top().type==__stack_end) || (this_token.type==__semi))
-			break;
-	}
-	for(int i=0;i<cnt;++i)
-		this->push_token();
-	return ret;
-}
-
-bool nasal_parse::check_var_in_curve()
-{
-	bool ret=false;
-	this->get_token();           // get '('
-	this->get_token();           // get 'var' if exists
-	ret=(this_token.type==__var);// check
-	this->push_token();          // push 'var'
-	this->push_token();          // push '('
-	return ret;
-}
-
-bool nasal_parse::check_function_end(abstract_syntax_tree& tmp)
-{
-	if(tmp.get_node_type()==__definition || tmp.get_node_type()==__equal)
-	{
-		if(!tmp.get_children().empty())
-		{
-			// func{}()
-			// function
-			//     parameters
-			//     block <- if the last child is __normal_statement_block,then don't need semi check
-			//     call_function
-			if(tmp.get_children().back().get_node_type()==__function &&
-				tmp.get_children().back().get_children().back().get_node_type()==__normal_statement_block)
-				return true;// func{}() should have a ';'
-			else
-				return check_function_end(tmp.get_children().back());// var a=b=c=d=e=f=g=func{}
-		}
-		return false;
-	}
-	return false;
-}
-
-void nasal_parse::main_generate()
-{
-	error=0;
-	// initialize error
-	root.set_clear();
-	root.set_node_line(1);
-	root.set_node_type(__root);
-	// initialize root node
-	while(!parse_token_stream.empty() && parse_token_stream.top().type!=__stack_end)
-	{
-		bool need_semi_check=false;
-		// if need_semi_check is true,this means needs check_semi()
-		this->get_token();
-		switch(this_token.type)
-		{
-			case __var:
-				this->push_token();
-				root.add_children(definition());
-				if((!root.get_children().empty()) && check_function_end(root.get_children().back()))
-					need_semi_check=false;
-				else
-					need_semi_check=true;
-				break;
-			case __nor_operator: case __sub_operator:
-			case __number:       case __nil:          case __string:     case __id:
-			case __left_bracket: case __left_brace:
-			case __func:
-				this->push_token();
-				root.add_children(calculation());
-				// check assignment function
-				if((!root.get_children().empty()) && check_function_end(root.get_children().back()))
-					need_semi_check=false;
-				else
-					need_semi_check=true;
-				break;
-			case __left_curve:
-				this->push_token();
-				if(check_var_in_curve())
-					root.add_children(definition());
-					// multi-definition must need semi_check
-				else if(check_multi_assignment())
-					root.add_children(multi_scalar_assignment());
-				else
-					root.add_children(calculation());
-				need_semi_check=true;
-				break;
-			// '(' is the beginning of too many statements
-			// '(' var id,id,id ')'
-			// '(' calculation ')'
-			// '(' scalar,scalar,scalar ')' '=' '(' scalar,scalar,scalar ')'
-			case __if:
-				this->push_token();
-				root.add_children(conditional_expr());
-				break;
-			case __while: case __for: case __foreach: case __forindex:
-				this->push_token();
-				root.add_children(loop_expr());
-				break;
-			case __semi:break;
-			case __stack_end:break;
-			default:
-				++error;
-				print_parse_error(error_token_in_main,this_token.line,this_token.type);
-				break;
-		}
-		if(need_semi_check)
-			check_semi();
-	}
-	std::cout<<">> [Parse] complete generation. "<<error<<" error(s)."<<std::endl;
-	return;
-}
-
-abstract_syntax_tree nasal_parse::block_generate()
-{
-	abstract_syntax_tree block_node;
-	abstract_syntax_tree continue_break_node;
-	this->get_token();
-	block_node.set_node_line(this_token.line);
-	block_node.set_node_type(__normal_statement_block);
-	if(this_token.type!=__left_brace)
-	{
-		// only one statement, so this doesn't need check_semi()
-		switch(this_token.type)
-		{
-			case __var:
-				this->push_token();
-				block_node.add_children(definition());
-				break;
-			case __nor_operator: case __sub_operator:
-			case __number:       case __nil:          case __string:     case __id:
-			case __left_bracket: case __left_brace:
-			case __func:
-				this->push_token();
-				block_node.add_children(calculation());
-				break;
-			case __left_curve:
-				this->push_token();
-				if(check_var_in_curve())
-					block_node.add_children(definition());
-					// multi-definition must need semi_check
-				else if(check_multi_assignment())
-					block_node.add_children(multi_scalar_assignment());
-				else
-					block_node.add_children(calculation());
-				break;
-			// '(' is the beginning of too many statements
-			// '(' var id,id,id ')'
-			// '(' calculation ')'
-			// '(' scalar,scalar,scalar ')' '=' '(' scalar,scalar,scalar ')'
-			case __if:
-				this->push_token();
-				block_node.add_children(conditional_expr());
-				break;
-			case __while: case __for: case __foreach: case __forindex:
-				this->push_token();
-				block_node.add_children(loop_expr());
-				break;
-			case __return:
-				this->push_token();
-				block_node.add_children(return_expr());
-				break;
-			case __continue:
-			case __break:
-				continue_break_node.set_node_line(this_token.line);
-				continue_break_node.set_node_type(this_token.type);
-				block_node.add_children(continue_break_node);
-				break;
-			case __semi:this->push_token();break;
-			case __stack_end:break;
-			default:
-				++error;
-				print_parse_error(error_token_in_block,this_token.line,this_token.type);
-				break;
-		}
-		// thought don't need to check semi at end, a statement having a semi at its end is also right
-		// this statement is used to check statement having a semi at its end
-		this->get_token();
-		if(this_token.type!=__semi)
-			this->push_token();
-	}
-	else
-	{
-		this->get_token();
-		while(this_token.type!=__right_brace && !parse_token_stream.empty() && parse_token_stream.top().type!=__stack_end)
-		{
-			bool need_semi_check=false;
-			// if need_semi_check is true,this means needs check_semi()
-			switch(this_token.type)
-			{
-				case __var:
-					this->push_token();
-					block_node.get_children().push_back(definition());
-					if((!block_node.get_children().empty()) && check_function_end(block_node.get_children().back()))
-						need_semi_check=false;
-					else
-						need_semi_check=true;
-					break;
-				case __nor_operator: case __sub_operator:
-				case __number:       case __nil:          case __string:     case __id:
-				case __left_bracket: case __left_brace:
-				case __func:
-					this->push_token();
-					block_node.add_children(calculation());
-					if((!block_node.get_children().empty()) && check_function_end(block_node.get_children().back()))
-						need_semi_check=false;
-					else
-						need_semi_check=true;
-					break;
-				case __left_curve:
-					this->push_token();
-					if(check_var_in_curve())
-						block_node.add_children(definition());
-					else if(check_multi_assignment())
-						block_node.add_children(multi_scalar_assignment());
-					else
-						block_node.add_children(calculation());
-					need_semi_check=true;
-					break;
-					// '(' is the beginning of too many statements
-					// '(' var id,id,id ')'
-					// '(' calculation ')'
-					// '(' scalar,scalar,scalar ')' '=' '(' scalar,scalar,scalar ')'
-				case __if:
-					this->push_token();
-					block_node.add_children(conditional_expr());
-					break;
-				case __while: case __for: case __foreach: case __forindex:
-					this->push_token();
-					block_node.add_children(loop_expr());
-					break;
-				case __return:
-					this->push_token();
-					block_node.add_children(return_expr());
-					need_semi_check=true;
-					break;
-				case __continue:
-				case __break:
-					continue_break_node.set_node_line(this_token.line);
-					continue_break_node.set_node_type(this_token.type);
-					block_node.add_children(continue_break_node);
-					need_semi_check=true;
-					break;
-				case __semi:break;
-				case __stack_end:break;
-				default:
-					++error;
-					print_parse_error(error_token_in_block,this_token.line,this_token.type);
-					break;
-			}
-			// the last statement can avoid semi check althought need_semi_check is true
-			// because check_semi will scan the next token,if this token is '}',then semi_check can be avoided
-			if(need_semi_check)
-				check_semi();
-			this->get_token();
-		}
-		if(this_token.type!=__right_brace)
-		{
-			++error;
-			print_parse_error(lack_right_brace,this_token.line,this_token.type);
-		}
-	}
-	return block_node;
-}
-
-abstract_syntax_tree nasal_parse::multi_scalar_assignment()
-{
-	abstract_syntax_tree assignment_node;
-	abstract_syntax_tree front_multi_scalar_node;
-	abstract_syntax_tree back_multi_scalar_node;
-	this->get_token();// get '('
-	front_multi_scalar_node.set_node_line(this_token.line);
-	front_multi_scalar_node.set_node_type(__multi_scalar);
-	while(this_token.type!=__right_curve)
-	{
-		front_multi_scalar_node.add_children(scalar_generate());
-		this->get_token();
-		if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-		{
-			++error;
-			print_parse_error(multi_assignment_need_curve,this_token.line,this_token.type);
-			break;
-		}
-		if(this_token.type==__comma)
-		{
-			this->get_token();
-			if(this_token.type!=__right_curve)
-				this->push_token();
-		}
-	}
-	this->get_token();
-	assignment_node.set_node_line(this_token.line);
-	assignment_node.set_node_type(this_token.type);
-	// only '=' is alowed in multi_assignment
-	if(this_token.type!=__equal)
-	{
-		++error;
-		print_parse_error(multi_assignment_need_equal,this_token.line,this_token.type);
-	}
-	this->get_token();
-	if(this_token.type!=__left_curve)
-	{
-		this->push_token();
-		back_multi_scalar_node=scalar_generate();
-	}
-	else
-	{
-		this->push_token();
-		if(check_multi_scalar())
-		{
-			this->get_token();// get '('
-			back_multi_scalar_node.set_node_line(this_token.line);
-			back_multi_scalar_node.set_node_type(__multi_scalar);
-			while(this_token.type!=__right_curve)
-			{
-				back_multi_scalar_node.add_children(scalar_generate());
-				this->get_token();
-				if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-				{
-					++error;
-					print_parse_error(multi_assignment_need_curve,this_token.line,this_token.type);
-					break;
-				}
-				if(this_token.type==__comma)
-				{
-					this->get_token();
-					if(this_token.type!=__right_curve)
-						this->push_token();
-				}
-			}
-		}
-		else
-			back_multi_scalar_node=calculation();
-	}
-	assignment_node.add_children(front_multi_scalar_node);
-	assignment_node.add_children(back_multi_scalar_node);
-	return assignment_node;
-}
-
-abstract_syntax_tree nasal_parse::calculation()
-{
-	abstract_syntax_tree calc_node;
-	abstract_syntax_tree tmp_node;
-	calc_node=and_calculation();
-	this->get_token();
-	while(this_token.type==__or_operator)
-	{
-		tmp_node.set_clear();
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(this_token.type);
-		tmp_node.add_children(calc_node);
-		tmp_node.add_children(and_calculation());
-		calc_node=tmp_node;
-		this->get_token();
-	}
-	
-	// assignment must has only one identifier_call as its beginning
-	// if not it is a parse-error
-	// this block is only used for assignment check(not multi-assignment)
-	this->push_token();
-	if(calc_node.get_node_type()==__id)
-	{
-		abstract_syntax_tree assignment_node;
-		this->get_token();// check if this token is '=' or '+=' or '-=' or '*=' or '/=' or '~='
-		if((this_token.type==__equal) || (this_token.type==__add_equal) || (this_token.type==__sub_equal) || (this_token.type==__mul_equal) || (this_token.type==__div_equal) || (this_token.type==__link_equal))
-		{
-			// <scalar> ('=' | '+=' | '-=' | '*=' | '/=' | '~=') <calculation>
-			assignment_node.set_node_line(this_token.line);
-			assignment_node.set_node_type(this_token.type);
-			assignment_node.add_children(calc_node);
-			assignment_node.add_children(calculation());
-			calc_node=assignment_node;
-		}
-		else
-			this->push_token();
-	}
-	else
-	{
-		this->get_token();
-		if((this_token.type==__equal) || (this_token.type==__add_equal) || (this_token.type==__sub_equal) || (this_token.type==__mul_equal) || (this_token.type==__div_equal) || (this_token.type==__link_equal))
-		{
-			++error;
-			print_parse_error(assignment_begin_error,this_token.line);
-		}
-		this->push_token();
-	}
-	
-	// check ternary_operator
-	this->get_token();
-	if(this_token.type==__ques_mark)
-	{
-		tmp_node.set_clear();
-		// <expr> '?' <expr> ';' <expr>
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(__ques_mark);
-		tmp_node.add_children(calc_node);
-		tmp_node.add_children(calculation());
-		this->get_token();
-		if(this_token.type!=__colon)
-		{
-			++error;
-			print_parse_error(ternary_operator_lack_colon,this_token.line,this_token.type);
-		}
-		tmp_node.add_children(calculation());
-		calc_node=tmp_node;
-	}
-	else
-		this->push_token();
-	return calc_node;
-}
-
-abstract_syntax_tree nasal_parse::and_calculation()
-{
-	abstract_syntax_tree calc_node;
-	abstract_syntax_tree tmp_node;
-	calc_node=or_calculation();
-	this->get_token();
-	while(this_token.type==__and_operator)
-	{
-		tmp_node.set_clear();
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(this_token.type);
-		tmp_node.add_children(calc_node);
-		tmp_node.add_children(or_calculation());
-		calc_node=tmp_node;
-		this->get_token();
-	}
-	this->push_token();
-	return calc_node;
-}
-
-abstract_syntax_tree nasal_parse::or_calculation()
-{
-	abstract_syntax_tree calc_node;
-	abstract_syntax_tree tmp_node;
-	calc_node=cmp_calculation();
-	this->get_token();
-	while(this_token.type==__or_operator)
-	{
-		tmp_node.set_clear();
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(this_token.type);
-		tmp_node.add_children(calc_node);
-		tmp_node.add_children(cmp_calculation());
-		calc_node=tmp_node;
-		this->get_token();
-	}
-	this->push_token();
-	return calc_node;
-}
-
-abstract_syntax_tree nasal_parse::cmp_calculation()
-{
-	abstract_syntax_tree calc_node;
-	abstract_syntax_tree tmp_node;
-	calc_node=additive_calculation();
-	this->get_token();
-	while((this_token.type==__cmp_equal) || (this_token.type==__cmp_not_equal) ||
-			(this_token.type==__cmp_less) || (this_token.type==__cmp_more) ||
-			(this_token.type==__cmp_less_or_equal) || (this_token.type==__cmp_more_or_equal)
-			)
-	{
-		tmp_node.set_clear();
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(this_token.type);
-		tmp_node.add_children(calc_node);
-		tmp_node.add_children(additive_calculation());
-		calc_node=tmp_node;
-		this->get_token();
-	}
-	this->push_token();
-	return calc_node;
-}
-
-abstract_syntax_tree nasal_parse::additive_calculation()
-{
-	abstract_syntax_tree calc_node;
-	abstract_syntax_tree tmp_node;
-	calc_node=multive_calculation();
-	this->get_token();
-	while((this_token.type==__add_operator) || (this_token.type==__sub_operator) || (this_token.type==__link_operator))
-	{
-		tmp_node.set_clear();
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(this_token.type);
-		tmp_node.add_children(calc_node);
-		tmp_node.add_children(multive_calculation());
-		calc_node=tmp_node;
-		this->get_token();
-	}
-	this->push_token();
-	return calc_node;
-}
-
-abstract_syntax_tree nasal_parse::multive_calculation()
-{
-	abstract_syntax_tree calc_node;
-	abstract_syntax_tree tmp_node;
-	this->get_token();
-	// be careful that unary calculation and assignment cannot be used together
-	// such as: -a=1; this is incorrect use.
-	if((this_token.type==__sub_operator) || (this_token.type==__nor_operator))
-	{
-		// unary calculation
-		calc_node.set_node_line(this_token.line);
-		calc_node.set_node_type(this_token.type);
-		calc_node.add_children(scalar_generate());
-	}
-	else
-	{
-		this->push_token();
-		calc_node=scalar_generate();
-	}
-	this->get_token();
-	while((this_token.type==__mul_operator) || (this_token.type==__div_operator))
-	{
-		tmp_node.set_clear();
-		tmp_node.set_node_line(this_token.line);
-		tmp_node.set_node_type(this_token.type);
-		tmp_node.add_children(calc_node);
-		this->get_token();
-		if((this_token.type==__sub_operator) || (this_token.type==__nor_operator))
-		{
-			// unary calculation
-			calc_node.set_clear();
-			calc_node.set_node_line(this_token.line);
-			calc_node.set_node_type(this_token.type);
-			calc_node.add_children(scalar_generate());
-		}
-		else
-		{
-			this->push_token();
-			calc_node=scalar_generate();
-		}
-		tmp_node.add_children(calc_node);
-		calc_node=tmp_node;
-		this->get_token();
-	}
-	this->push_token();
-	return calc_node;
-}
-
-abstract_syntax_tree nasal_parse::scalar_generate()
-{
-	this->get_token();
-	abstract_syntax_tree scalar_node;
-	scalar_node.set_node_line(this_token.line);
-
-	switch(this_token.type)
-	{
-		case __number:scalar_node.set_node_type(__number);scalar_node.set_var_number(this_token.str);break;
-		case __string:scalar_node.set_node_type(__string);scalar_node.set_var_string(this_token.str);break;
-		case __nil:scalar_node.set_node_type(__nil);break;
-		case __id:scalar_node.set_node_type(__id);scalar_node.set_var_name(this_token.str);break;
-		case __left_curve:
-			scalar_node=calculation();
-			this->get_token();
-			if(this_token.type!=__right_curve)
-			{
-				++error;
-				print_parse_error(lack_right_curve,this_token.line);
-			}
-			break;
-		case __left_brace:// hash
-			this->push_token();
-			scalar_node=hash_generate();
-			break;
-		case __left_bracket:// vector
-			this->push_token();
-			scalar_node=vector_generate();
-			break;
-		case __func:
-			this->get_token();
-			if(this_token.type!=__id)
-			{
-				this->push_token();
-				this->push_token();
-				scalar_node=function_generate();
-				// function
-			}
-			else
-			{
-				scalar_node.set_node_type(__id);
-				scalar_node.set_var_name(this_token.str);
-				// func id
-			}
-			break;
-		default:
-			++error;
-			print_parse_error(error_begin_token_of_scalar,this_token.line,this_token.type);
-			this->push_token();
-			break;
-	}
-	this->get_token(); // check if there is a '(' or '[' or '{' after id
-	while((this_token.type==__left_curve) || (this_token.type==__left_bracket) || (this_token.type==__dot))
-	{
-		if(this_token.type==__left_curve)
-		{
-			// call function
-			abstract_syntax_tree call_func_node;
-			call_func_node.set_node_line(this_token.line);
-			call_func_node.set_node_type(__call_function);
-			this->get_token();
-			if(this_token.type!=__right_curve)
-			{
-				bool scalar_para=true;
-				// scalar_para is used to record that parameters is in normal format like f(1,2,3,4)
-				// if scalar_para is false ,this means parameters is in special format like f(a:1,b:2)
-				if(this_token.type==__id)
-				{
-					this->get_token();
-					if(this_token.type==__colon)
-					{
-						scalar_para=false;
-						this->push_token();// colon
-						this->push_token();// identifier
-						while(this_token.type!=__right_curve)
-						{
-							abstract_syntax_tree special_para_node;
-							abstract_syntax_tree id_node;
-							this->get_token();
-							special_para_node.set_node_line(this_token.line);
-							special_para_node.set_node_type(__special_parameter);
-							if(this_token.type!=__id)
-							{
-								++error;
-								print_parse_error(special_call_func_lack_id,this_token.line,this_token.type);
-								break;
-							}
-							id_node.set_node_line(this_token.line);
-							id_node.set_node_type(__id);
-							id_node.set_var_name(this_token.str);
-							special_para_node.add_children(id_node);
-							this->get_token();
-							if(this_token.type!=__colon)
-							{
-								++error;
-								print_parse_error(special_call_func_lack_colon,this_token.line,this_token.type);
-								break;
-							}
-							special_para_node.add_children(calculation());
-							call_func_node.add_children(special_para_node);
-							this->get_token();
-							if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-							{
-								++error;
-								print_parse_error(call_func_lack_comma,this_token.line,this_token.type);
-								break;
-							}
-							if(this_token.type==__comma)
-							{
-								this->get_token();
-								if(this_token.type!=__right_curve)
-									this->push_token();
-							}
-						}
-					}
-					else
-					{
-						this->push_token();// not colon
-						this->push_token();// identifier
-					}
-				}
-				else
-					this->push_token();// if not identifier then push in
-				if(scalar_para)
-					while(this_token.type!=__right_curve)
-					{
-						call_func_node.add_children(calculation());
-						this->get_token();
-						if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-						{
-							++error;
-							if(this_token.type==__colon)
-								print_parse_error(normal_call_func_has_colon,this_token.line,this_token.type);
-							else
-								print_parse_error(call_func_lack_comma,this_token.line,this_token.type);
-							break;
-						}
-						if(this_token.type==__comma)
-						{
-							this->get_token();
-							if(this_token.type!=__right_curve)
-								this->push_token();
-						}
-					}
-			}
-			scalar_node.add_children(call_func_node);
-		}
-		else if(this_token.type==__left_bracket)
-		{
-			abstract_syntax_tree call_vector_node;
-			call_vector_node.set_node_line(this_token.line);
-			call_vector_node.set_node_type(__call_vector);
-			// there are many kinds of ways to call a vector
-			// such as: id[0] id[0:12] id[-2:0] id[2:] id[4,3,1,5,2] id[0,2,4:6]
-			while(this_token.type!=__right_bracket)
-			{
-				abstract_syntax_tree tmp=calculation();
-				this->get_token();
-				if(this_token.type==__colon)
-				{
-					abstract_syntax_tree subvec_node;
-					subvec_node.set_node_line(this_token.line);
-					subvec_node.set_node_type(__sub_vector);
-					subvec_node.add_children(tmp);
-					this->get_token();
-					if((this_token.type!=__comma) && (this_token.type!=__right_bracket))
-					{
-						this->push_token();
-						subvec_node.add_children(calculation());
-					}
-					else
-						this->push_token();
-					call_vector_node.add_children(subvec_node);
-				}
-				else if(this_token.type==__comma)
-				{
-					call_vector_node.add_children(tmp);
-					this->get_token();
-					if(this_token.type==__right_bracket)
-					{
-						++error;
-						print_parse_error(call_vector_wrong_comma,this_token.line,this_token.type);
-						break;
-					}
-					else
-						this->push_token();
-					this->push_token();// push comma
-				}
-				else if(this_token.type==__right_bracket)
-				{
-					call_vector_node.add_children(tmp);
-					this->push_token();// push ']'
-				}
-				else
-				{
-					++error;
-					print_parse_error(call_vector_wrong_token,this_token.line,this_token.type);
-					break;
-				}
-				this->get_token();
-				if((this_token.type!=__comma) && (this_token.type!=__right_bracket))
-				{
-					++error;
-					print_parse_error(call_vector_lack_bracket,this_token.line,this_token.type);
-					break;
-				}
-			}
-			scalar_node.add_children(call_vector_node);
-		}
-		else if(this_token.type==__dot)
-		{
-			this->get_token();
-			if(this_token.type!=__id)
-			{
-				++error;
-				print_parse_error(call_hash_lack_id,this_token.line);
-				break;
-			}
-			abstract_syntax_tree call_hash_node;
-			call_hash_node.set_node_line(this_token.line);
-			call_hash_node.set_node_type(__call_hash);
-			call_hash_node.set_var_name(this_token.str);
-			scalar_node.add_children(call_hash_node);
-		}
-		this->get_token();
-	}
-	// call identifier/vector/hash/function
-	this->push_token();
-	return scalar_node;
-}
-
-abstract_syntax_tree nasal_parse::hash_generate()
-{
-	this->get_token(); // get '{'
-	abstract_syntax_tree hash_node;
-	hash_node.set_node_line(this_token.line);
-	hash_node.set_node_type(__hash);
-	this->get_token();
-	if(this_token.type!=__right_brace)
-	{
-		this->push_token();
-		while(this_token.type!=__right_brace)
-		{
-			abstract_syntax_tree hash_member_node;
-			this->get_token();
-			hash_member_node.set_node_line(this_token.line);
-			hash_member_node.set_node_type(__hash_member);
-			if(this_token.type==__id || this_token.type==__string)
-			{
-				abstract_syntax_tree member_id;
-				member_id.set_node_line(this_token.line);
-				member_id.set_node_type(__id);
-				member_id.set_var_name(this_token.str);
-				hash_member_node.add_children(member_id);
-			}
-			else
-			{
-				++error;
-				print_parse_error(hash_gen_lack_id,this_token.line,this_token.type);
-				break;
-			}
-			this->get_token();
-			if(this_token.type!=__colon)
-			{
-				++error;
-				print_parse_error(hash_gen_lack_colon,this_token.line,this_token.type);
-				break;
-			}
-			hash_member_node.add_children(calculation());
-			this->get_token();
-			if((this_token.type!=__comma) && (this_token.type!=__right_brace))
-			{
-				++error;
-				print_parse_error(hash_gen_lack_end,this_token.line,this_token.type);
-				break;
-			}
-			if(this_token.type==__comma)
-			{
-				this->get_token();
-				if(this_token.type!=__right_brace)
-					this->push_token();
-				// {name:scalar,} 
-			}
-			hash_node.add_children(hash_member_node);
-		}
-	}
-	return hash_node;
-}
-
-abstract_syntax_tree nasal_parse::vector_generate()
-{
-	this->get_token(); // get '['
-	abstract_syntax_tree vector_node;
-	vector_node.set_node_line(this_token.line);
-	vector_node.set_node_type(__vector);
-	this->get_token();
-	if(this_token.type!=__right_bracket)
-	{
-		this->push_token();
-		while(this_token.type!=__right_bracket)
-		{
-			vector_node.add_children(calculation());
-			this->get_token();
-			if((this_token.type!=__comma) && (this_token.type!=__right_bracket))
-			{
-				++error;
-				print_parse_error(vector_gen_lack_end,this_token.line,this_token.type);
-				break;
-			}
-			if(this_token.type==__comma)
-			{
-				this->get_token();
-				if(this_token.type!=__right_bracket)
-					this->push_token();
-				// [0,1,2,]
-			}
-		}
-	}
-	return vector_node;
-}
-
-abstract_syntax_tree nasal_parse::function_generate()
-{
-	abstract_syntax_tree function_node;
-	abstract_syntax_tree parameter_list;
-	this->get_token(); // get 'func'
-	function_node.set_node_type(__function);
-	function_node.set_node_line(this_token.line);
-	parameter_list.set_node_type(__parameters);
-	parameter_list.set_node_line(this_token.line);
-	this->get_token();
-	if(this_token.type==__left_curve)
-	{
-		bool has_default_para=false;
-		while(this_token.type!=__right_curve)
-		{
-			// check identifier
-			abstract_syntax_tree parameter;
-			this->get_token();
-			int parameter_type=this_token.type;
-			if(this_token.type==__id)
-			{
-				parameter.set_node_line(this_token.line);
-				parameter.set_node_type(__id);
-				parameter.set_var_name(this_token.str);
-			}
-			else if(this_token.type==__dynamic_id)
-			{
-				parameter.set_node_line(this_token.line);
-				parameter.set_node_type(__dynamic_id);
-				parameter.set_var_name(this_token.str);
-			}
-			else if(this_token.type==__right_curve)
-			{
-				parameter.set_node_type(__null_type);
-				this->push_token();
-			}
-			else
-			{
-				++error;
-				print_parse_error(parameter_lack_part,this_token.line,this_token.type);
-				break;
-			}
-
-			// check equal operator
-			this->get_token();
-			if(has_default_para && this_token.type!=__equal)
-			{
-				++error;
-				print_parse_error(need_default_parameter,this_token.line,this_token.type);
-				break;
-			}
-			if(this_token.type==__equal)
-			{
-				has_default_para=true;
-				if(parameter_type==__id)
-				{
-					abstract_syntax_tree default_parameter;
-					default_parameter.set_node_line(this_token.line);
-					default_parameter.set_node_type(__default_parameter);
-					default_parameter.add_children(parameter);
-					default_parameter.add_children(calculation());
-					parameter=default_parameter;
-				}
-				else
-				{
-					++error;
-					print_parse_error(default_dynamic_parameter,this_token.line,this_token.type);
-					break;
-				}
-			}
-			else
-				this->push_token();
-			if(parameter.get_node_type()!=__null_type)
-				parameter_list.add_children(parameter);
-			// check comma or right_curve
-			this->get_token();
-			if((this_token.type!=__right_curve) && (this_token.type!=__comma))
-			{
-				++error;
-				print_parse_error(parameter_lack_curve,this_token.line,this_token.type);
-				break;
-			}
-			if(this_token.type==__comma)
-			{
-				this->get_token();
-				if(this_token.type!=__right_curve)
-					this->push_token();
-			}
-		}
-	}
-	else
-		this->push_token();
-	function_node.add_children(parameter_list);
-	function_node.add_children(block_generate());
-	return function_node;
-}
-
-abstract_syntax_tree nasal_parse::return_expr()
-{
-	abstract_syntax_tree ret_node;
-	this->get_token();
-	ret_node.set_node_line(this_token.line);
-	ret_node.set_node_type(__return);
-	this->get_token();
-	if((this_token.type==__sub_operator) || (this_token.type==__nor_operator) ||
-		(this_token.type==__number) || (this_token.type==__string) || (this_token.type==__func) ||
-		(this_token.type==__id) || (this_token.type==__nil) ||
-		(this_token.type==__left_curve) || (this_token.type==__left_brace) || (this_token.type==__left_bracket)
-		)
-	{
-		this->push_token();
-		ret_node.add_children(calculation());
-	}
-	return ret_node;
-}
-
-abstract_syntax_tree nasal_parse::definition()
-{
-	abstract_syntax_tree definition_node;
-	definition_node.set_node_type(__definition);
-	this->get_token();// get 'var' or '('
-	definition_node.set_node_line(this_token.line);
-	if(this_token.type==__left_curve)
-	{
-		this->get_token();// get 'var'
-		abstract_syntax_tree multi_identifier;
-		multi_identifier.set_node_type(__multi_id);
-		multi_identifier.set_node_line(this_token.line);
-		while(this_token.type!=__right_curve)
-		{
-			this->get_token();
-			if(this_token.type!=__id)
-			{
-				++error;
-				print_parse_error(definition_lack_id,this_token.line,this_token.type);
-				break;
-			}
-			else
-			{
-				abstract_syntax_tree id_node;
-				id_node.set_node_line(this_token.line);
-				id_node.set_node_type(__id);
-				id_node.set_var_name(this_token.str);
-				multi_identifier.add_children(id_node);
-			}
-			this->get_token();
-			if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-			{
-				this->push_token();
-				++error;
-				print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
-				break;
-			}
-		}
-		definition_node.add_children(multi_identifier);
-		this->get_token();
-		if(this_token.type==__equal)// (var id,id,id)=
-		{
-			this->get_token();
-			if(this_token.type==__left_curve)
-			{
-				this->push_token();
-				if(check_multi_scalar())
-				{
-					abstract_syntax_tree multi_scalar_node;
-					this->get_token();// get '('
-					multi_scalar_node.set_node_line(this_token.line);
-					multi_scalar_node.set_node_type(__multi_scalar);
-					while(this_token.type!=__right_curve)
-					{
-						multi_scalar_node.add_children(scalar_generate());
-						this->get_token();
-						if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-						{
-							++error;
-							print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
-							break;
-						}
-					}
-					definition_node.add_children(multi_scalar_node);
-				}
-			}
-			else
-			{
-				this->push_token();
-				definition_node.add_children(calculation());
-			}
-		}
-		else
-		{
-			this->push_token();
-			++error;
-			print_parse_error(definition_lack_equal,this_token.line,this_token.type);
-		}
-	}
-	else
-	{
-		this->get_token();
-		if(this_token.type==__id)
-		{
-			abstract_syntax_tree new_var_identifier;
-			new_var_identifier.set_node_type(__id);
-			new_var_identifier.set_node_line(this_token.line);
-			new_var_identifier.set_var_name(this_token.str);
-			definition_node.add_children(new_var_identifier);
-			this->get_token();
-			if(this_token.type==__equal)
-				definition_node.add_children(calculation());// var id = scalar
-			else
-			{
-				this->push_token();
-				++error;
-				print_parse_error(definition_lack_equal,this_token.line,this_token.type);
-			}
-		}
-		else if(this_token.type==__left_curve)
-		{
-			abstract_syntax_tree multi_identifier;
-			multi_identifier.set_node_type(__multi_id);
-			multi_identifier.set_node_line(this_token.line);
-			while(this_token.type!=__right_curve)
-			{
-				this->get_token();
-				if(this_token.type!=__id)
-				{
-					this->push_token();
-					++error;
-					print_parse_error(definition_lack_id,this_token.line,this_token.type);
-					break;
-				}
-				else
-				{
-					abstract_syntax_tree id_node;
-					id_node.set_node_line(this_token.line);
-					id_node.set_node_type(__id);
-					id_node.set_var_name(this_token.str);
-					multi_identifier.add_children(id_node);
-				}
-				this->get_token();
-				if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-				{
-					this->push_token();
-					++error;
-					print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
-					break;
-				}
-			}
-			definition_node.add_children(multi_identifier);
-			this->get_token();
-			if(this_token.type==__equal)// var (id,id,id)=
-			{
-				this->get_token();
-				if(this_token.type==__left_curve)
-				{
-					this->push_token();
-					if(check_multi_scalar())
-					{
-						abstract_syntax_tree multi_scalar_node;
-						this->get_token();// get '('
-						multi_scalar_node.set_node_line(this_token.line);
-						multi_scalar_node.set_node_type(__multi_scalar);
-						while(this_token.type!=__right_curve)
-						{
-							multi_scalar_node.add_children(scalar_generate());
-							this->get_token();
-							if((this_token.type!=__comma) && (this_token.type!=__right_curve))
-							{
-								++error;
-								print_parse_error(multi_definition_need_curve,this_token.line,this_token.type);
-								break;
-							}
-						}
-						definition_node.add_children(multi_scalar_node);
-					}
-				}
-				else
-				{
-					this->push_token();
-					definition_node.add_children(calculation());
-				}
-			}
-			else
-			{
-				this->push_token();
-				++error;
-				print_parse_error(definition_lack_equal,this_token.line,this_token.type);
-			}
-		}
-		else
-		{
-			this->push_token();
-			++error;
-			print_parse_error(definition_lack_id,this_token.line);
-		}
-	}
-	return definition_node;
-}
-
-abstract_syntax_tree nasal_parse::loop_expr()
-{
-	abstract_syntax_tree loop_main_node;
-	this->get_token(); // get the first token of loop
-	loop_main_node.set_node_line(this_token.line);
-	loop_main_node.set_node_type(this_token.type);
-	if(this_token.type==__for)
-	{
-		this->get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			print_parse_error(lack_left_curve,this_token.line);
-		}
-		this->get_token();
-		if(this_token.type==__semi)
-		{
-			abstract_syntax_tree null_node;
-			null_node.set_node_type(__null_type);
-			loop_main_node.add_children(null_node);
-			this->push_token();
-		}
-		else
-		{
-			if(this_token.type==__var)
-			{
-				this->push_token();
-				loop_main_node.add_children(definition());
-			}
-			else
-			{
-				this->push_token();
-				// cannot use calculation() here
-				// because for-loop's first statement must be definition or call_identifier
-				loop_main_node.add_children(calculation());
-			}
-		}
-		this->get_token();
-		if(this_token.type!=__semi)
-		{
-			++error;
-			print_parse_error(lack_semi,this_token.line);
-		}
-		this->get_token();
-		if(this_token.type==__semi)
-		{
-			abstract_syntax_tree null_node;
-			null_node.set_node_type(__null_type);
-			loop_main_node.add_children(null_node);
-			this->push_token();
-		}
-		else
-		{
-			this->push_token();
-			loop_main_node.add_children(calculation());
-		}
-		this->get_token();
-		if(this_token.type!=__semi)
-		{
-			++error;
-			print_parse_error(lack_semi,this_token.line);
-		}
-		this->get_token();
-		if(this_token.type==__right_curve)
-		{
-			abstract_syntax_tree null_node;
-			null_node.set_node_type(__null_type);
-			loop_main_node.add_children(null_node);
-			this->push_token();
-		}
-		else
-		{
-			this->push_token();
-			loop_main_node.add_children(calculation());
-		}
-		this->get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			print_parse_error(lack_right_curve,this_token.line);
-		}
-	}
-	else if(this_token.type==__while)
-	{
-		this->get_token();
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			print_parse_error(lack_left_curve,this_token.line,this_token.type);
-		}
-		loop_main_node.add_children(calculation());
-		this->get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			print_parse_error(lack_right_curve,this_token.line,this_token.type);
-		}
-	}
-	else if(this_token.type==__forindex || this_token.type==__foreach)
-	{
-		this->get_token();// '('
-		if(this_token.type!=__left_curve)
-		{
-			++error;
-			print_parse_error(lack_left_curve,this_token.line,this_token.type);
-		}
-		this->get_token();// 'var'
-		if(this_token.type!=__var)
-		{
-			// if checked not the 'var' then checking if this token is an identifier
-			if(this_token.type!=__id)
-			{
-				++error;
-				print_parse_error(lack_id,this_token.line);
-			}
-			else
-			{
-				this->push_token();
-				loop_main_node.add_children(scalar_generate());
-			}
-		}
-		else
-		{
-			abstract_syntax_tree new_definition_node;
-			new_definition_node.set_node_line(this_token.line);
-			new_definition_node.set_node_type(__definition);
-			this->get_token();
-			if(this_token.type!=__id)
-			{
-				++error;
-				print_parse_error(lack_id,this_token.line);
-			}
-			else
-			{
-				abstract_syntax_tree new_id_node;
-				new_id_node.set_node_line(this_token.line);
-				new_id_node.set_node_type(__id);
-				new_id_node.set_var_name(this_token.str);
-				new_definition_node.add_children(new_id_node);
-			}
-			loop_main_node.add_children(new_definition_node);
-		}
-		this->get_token();// ';'
-		if(this_token.type!=__semi)
-		{
-			++error;
-			print_parse_error(lack_semi,this_token.line);
-		}
-		loop_main_node.add_children(scalar_generate());// get hash/vector or keys(hash/vector)
-		this->get_token();
-		if(this_token.type!=__right_curve)
-		{
-			++error;
-			print_parse_error(lack_right_curve,this_token.line,this_token.type);
-		}
-	}
-	loop_main_node.add_children(block_generate());
-	return loop_main_node;
-}
-
-abstract_syntax_tree nasal_parse::conditional_expr()
-{
-	abstract_syntax_tree conditional_main_node;
-	abstract_syntax_tree if_node;
-	abstract_syntax_tree elsif_node;
-	abstract_syntax_tree else_node;
-	conditional_main_node.set_node_type(__conditional);
-	// get 'if'
-	this->get_token();
-	conditional_main_node.set_node_line(this_token.line);
-	if_node.set_node_type(__if);
-	if_node.set_node_line(this_token.line);
-	this->get_token();
-	if(this_token.type!=__left_curve)
-	{
-		++error;
-		print_parse_error(lack_left_curve,this_token.line);
-	}
-	if_node.add_children(calculation());
-	this->get_token();
-	if(this_token.type!=__right_curve)
-	{
-		++error;
-		print_parse_error(lack_right_curve,this_token.line);
-	}
-	if_node.add_children(block_generate());
-	conditional_main_node.add_children(if_node);
-	// add statements
-	this->get_token();
-	if(this_token.type==__elsif)
-	{
-		while(this_token.type==__elsif)
-		{
-			elsif_node.set_clear();
-			elsif_node.set_node_line(this_token.line);
-			elsif_node.set_node_type(__elsif);
-
-			this->get_token();
-			if(this_token.type!=__left_curve)
-			{
-				++error;
-				print_parse_error(lack_left_curve,this_token.line,this_token.type);
-			}
-			elsif_node.add_children(calculation());
-			this->get_token();
-			if(this_token.type!=__right_curve)
-			{
-				++error;
-				print_parse_error(lack_right_curve,this_token.line,this_token.type);
-			}
-			elsif_node.add_children(block_generate());
-			conditional_main_node.add_children(elsif_node);
-			this->get_token();// get next 'elsif' if it exists
-		}
-		this->push_token();
-	}
-	else
-		this->push_token();
-	this->get_token();
-	if(this_token.type==__else)
-	{
-		else_node.set_node_line(this_token.type);
-		else_node.set_node_type(__else);
-		else_node.add_children(block_generate());
-		conditional_main_node.add_children(else_node);
-	}
-	else
-		this->push_token();
-	// get elsif or else
-	return conditional_main_node;
-}
-#endif
diff --git a/version2.0/nasal_runtime.h b/version2.0/nasal_runtime.h
deleted file mode 100644
index 5a9a338..0000000
--- a/version2.0/nasal_runtime.h
+++ /dev/null
@@ -1,3044 +0,0 @@
-#ifndef __NASAL_RUNTIME_H__
-#define __NASAL_RUNTIME_H__
-#define NAS_LIB_FUNC_NUM 32
-std::string inline_func_name[NAS_LIB_FUNC_NUM]=
-{
-    //base.nas
-    "nasal_call_builtin_push_back",// append
-    "nasal_call_builtin_set_size", // setsize
-    "nasal_call_builtin_subvec",
-    "nasal_call_builtin_contains",
-    "nasal_call_builtin_delete",
-    "nasal_call_builtin_trans_int",
-    "nasal_call_builtin_trans_num",
-    "nasal_call_builtin_get_keys",
-    "nasal_call_builtin_pop_back",
-    "nasal_call_builtin_sizeof",
-    "nasal_call_builtin_str_cmp_equal",
-    "nasal_call_builtin_cmp",
-    "nasal_call_builtin_cpp_sort",
-    "nasal_call_builtin_substr",
-    "nasal_call_builtin_sprintf",
-    "nasal_call_builtin_find_first_occur",
-    "nasal_call_builtin_split",
-    "nasal_call_builtin_rand",
-    "nasal_call_builtin_get_id",
-    //bits.nas
-    "nasal_call_builtin_bitcalc",
-    "nasal_call_builtin_sbitcalc",
-    "nasal_call_builtin_setbit",
-    "nasal_call_builtin_null_string_gen",
-    //io.nas
-    "nasal_call_builtin_c_std_puts",// print
-    //math.nas
-    "nasal_call_builtin_sin",
-    "nasal_call_builtin_cos",
-    "nasal_call_builtin_tan",
-    "nasal_call_builtin_exp",
-    "nasal_call_builtin_cpp_math_ln",
-    "nasal_call_builtin_cpp_math_sqrt",
-    "nasal_call_builtin_cpp_atan2",
-    //system.nas
-    "nasal_call_builtin_scalar_type"//system.type
-};
-
-class nasal_runtime
-{
-    private:
-        // global scope is a hash_map
-        // main_local_scope is used in main block 
-        // when calling a loop or conditional expression
-        // when adding a new identifier into scope,you need to check if this identifier is already in the scope.
-        std::map<std::string,int> global_scope;
-        std::list<std::map<std::string,int> > main_local_scope;
-
-        // enum of state type used by loop/conditional
-        enum state_stack_member_type
-        {
-            __state_error = 0,
-            __state_no_operation,
-            __state_continue,
-            __state_break,
-            __state_return,
-        };
-        
-        // see detail of each enum type in function error_interrupt(const int)
-        enum runtime_error_type
-        {
-            __incorrect_head_of_tree,
-            __undefined_identifier,
-            __multi_assign_incorrect_value_number,
-            __multi_define_incorrect_value_number,
-            __invalid_vector_member,
-            __invalid_hash_member,
-            __class_inheritence_need_vector,
-            __memory_overflow,
-            __not_callable_vector,
-            __not_callable_hash,
-            __not_callable_function,
-            __not_numerable_str,
-            __error_value_type,
-            __error_value_type_when_calling_vector,
-            __error_value_type_when_calling_hash,
-            __special_call_vector_negative_value,
-            __special_call_vector_too_large_value,
-            __normal_call_vector_too_large_value,
-            __function_returned_value_be_assigned,
-            __subvec_value_be_assigned,
-            __call_function_lack_para,
-            __forindex_foreach_not_vector,
-            __break_not_used_in_loop,
-            __continue_not_used_in_loop,
-            __return_not_used_in_function,
-            __stack_overflow,
-        };
-        int  runtime_error_exit_mark;
-        int  function_returned_addr;
-        void error_interrupt    (const int,const int);
-        int  number_generation  (abstract_syntax_tree&);
-        int  string_generation  (abstract_syntax_tree&);
-        // sub-process of call_identifier/vector_generation/hash_generation/function_generation
-        int  bracket_call_vector(std::list<std::map<std::string,int> >&,std::list<abstract_syntax_tree>::iterator&,int);
-        int  dot_call_hash      (std::list<std::map<std::string,int> >&,std::list<abstract_syntax_tree>::iterator&,int);
-        int  call_function      (std::list<std::map<std::string,int> >&,std::list<abstract_syntax_tree>::iterator&,int,int);
-
-        int  vector_generation  (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  hash_generation    (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  function_generation(std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-
-        void update_closure     (std::vector<int>&,int);
-        bool check_condition    (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  calculation        (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  assignment         (std::list<std::map<std::string,int> >&,abstract_syntax_tree&,int);
-        int  call_identifier    (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        void definition         (std::list<std::map<std::string,int> >&,std::map<std::string,int>&,abstract_syntax_tree&);
-        int  loop_expr          (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  conditional        (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  block_proc         (std::list<std::map<std::string,int> >&,abstract_syntax_tree&);
-        int  func_proc          (std::list<std::map<std::string,int> >&,std::list<std::map<std::string,int> >&,abstract_syntax_tree&,abstract_syntax_tree&,abstract_syntax_tree&,int);// checked
-        int  builtin_function   (std::list<std::map<std::string,int> >&,std::string);
-    public:
-        nasal_runtime()
-        {
-            global_scope.clear();
-            nasal_gc.gc_init();
-            return;
-        }
-        ~nasal_runtime()
-        {
-            global_scope.clear();
-            nasal_gc.gc_init();
-            return;
-        }
-        void main_proc(abstract_syntax_tree&);
-};
-
-void nasal_runtime::error_interrupt(const int type,const int line)
-{
-    std::cout<<">> [Runtime] line "<<line<<": ";
-    switch (type)
-    {
-        case __incorrect_head_of_tree:
-            std::cout<<"lib hasn\'t been loaded."<<std::endl;break;
-        case __undefined_identifier:
-            std::cout<<"undefined identifier."<<std::endl;break;
-        case __multi_assign_incorrect_value_number:
-        	std::cout<<"numbers of assigned identifiers and values are not the same."<<std::endl;break;
-        case __multi_define_incorrect_value_number:
-            std::cout<<"numbers of defined identifiers and values are not the same.";break;
-        case __invalid_vector_member:
-            std::cout<<"this member of vector does not exist."<<std::endl;break;
-        case __invalid_hash_member:
-            std::cout<<"this member of hash does not exist."<<std::endl;break;
-        case __class_inheritence_need_vector:
-            std::cout<<"class inheritence needs vector type."<<std::endl;break;
-        case __memory_overflow:
-            std::cout<<"memory overflow occurred when calling vector or hash."<<std::endl;break;
-        case __not_callable_vector:
-            std::cout<<"called a value that is not a vector."<<std::endl;break;
-        case __not_callable_hash:
-            std::cout<<"called a value that is not a hash."<<std::endl;break;
-        case __not_callable_function:
-            std::cout<<"called a value that is not a function."<<std::endl;break;
-        case __not_numerable_str:
-            std::cout<<"this string is not a numerable one."<<std::endl;break;
-        case __error_value_type:
-            std::cout<<"incorrect value type."<<std::endl;break;
-        case __error_value_type_when_calling_vector:
-            std::cout<<"incorrect value type when calling a vector."<<std::endl;break;
-        case __error_value_type_when_calling_hash:
-            std::cout<<"incorrect value type when calling a hash."<<std::endl;break;
-        case __special_call_vector_negative_value:
-            std::cout<<"negative value occurred when calling sub-vector."<<std::endl;break;
-        case __special_call_vector_too_large_value:
-            std::cout<<"the number used to call the sub-vector is too large(over 0x7fffffff)."<<std::endl;break;
-        case __normal_call_vector_too_large_value:
-            std::cout<<"the number used to call the vector is too large(over 0x7fffffff)."<<std::endl;break;
-        case __function_returned_value_be_assigned:
-            std::cout<<"cannot assign a value that function returns."<<std::endl;break;
-        case __subvec_value_be_assigned:
-            std::cout<<"cannot assign a subvec value."<<std::endl;break;
-        case __call_function_lack_para:
-            std::cout<<"lack parameter(s) when calling a function."<<std::endl;break;
-        case __forindex_foreach_not_vector:
-            std::cout<<"forindex and foreach need vector here."<<std::endl;break;
-        case __break_not_used_in_loop:
-            std::cout<<"break must be used in a loop."<<std::endl;break;
-        case __continue_not_used_in_loop:
-            std::cout<<"continue must be used in a loop."<<std::endl;break;
-        case __return_not_used_in_function:
-            std::cout<<"return expr must be used in a function."<<std::endl;break;
-        case __stack_overflow:
-            std::cout<<"stack overflow."<<std::endl;break;
-        default:
-            std::cout<<"unknown error."<<std::endl;break;
-    }
-    runtime_error_exit_mark=type;
-    return;
-}
-
-int nasal_runtime::number_generation(abstract_syntax_tree& node)
-{
-    int addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(addr).set_type(scalar_number);
-    nasal_gc.get_scalar(addr).get_number().set_number(node.get_var_number());
-    return addr;
-}
-int nasal_runtime::string_generation(abstract_syntax_tree& node)
-{
-    int addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(addr).set_type(scalar_string);
-    nasal_gc.get_scalar(addr).get_string().set_string(node.get_var_string());
-    return addr;
-}
-int  nasal_runtime::bracket_call_vector(std::list<std::map<std::string,int> >& local_scope,std::list<abstract_syntax_tree>::iterator& call_node,int addr)
-{
-    // check the scalar type of called identifier here
-    int called_type=nasal_gc.get_scalar(addr).get_type();
-    if(call_node->get_children().size()==1 && called_type!=scalar_vector && called_type!=scalar_hash)
-    {
-        error_interrupt(__error_value_type_when_calling_vector,call_node->get_node_line());
-        return -1;
-    }
-    if(call_node->get_children().size()>1 && called_type!=scalar_vector)
-    {
-        error_interrupt(__error_value_type_when_calling_vector,call_node->get_node_line());
-        return -1;
-    }
-    if(call_node->get_children().size()==1)
-    {
-        if(call_node->get_children().front().get_node_type()==__sub_vector)
-        {
-            if(called_type==scalar_hash)
-            {
-                error_interrupt(__not_callable_vector,call_node->get_node_line());
-                return -1;
-            }
-            int num1_addr=-1;
-            int num2_addr=-1;
-            // identifier[num1:];
-            if(call_node->get_children().front().get_children().size()==1)
-            {
-                num1_addr=calculation(local_scope,call_node->get_children().front().get_children().front());
-                if(num1_addr<0)
-                    return -1;
-            }
-            // identifier[num1:num2];
-            else
-            {
-                num1_addr=calculation(local_scope,call_node->get_children().front().get_children().front());
-                num2_addr=calculation(local_scope,call_node->get_children().front().get_children().back());
-                if(num1_addr<0 || num2_addr<0)
-                    return -1;
-            }
-            if(nasal_gc.get_scalar(num1_addr).get_type()!=scalar_number
-                && nasal_gc.get_scalar(num1_addr).get_type()!=scalar_string)
-            {
-                error_interrupt(__error_value_type_when_calling_vector,call_node->get_children().front().get_children().front().get_node_line());
-                return -1;
-            }
-            if(num2_addr>=0
-                && (nasal_gc.get_scalar(num2_addr).get_type()!=scalar_number
-                && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_string
-                && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_nil))
-            {
-                error_interrupt(__error_value_type_when_calling_vector,call_node->get_children().front().get_children().back().get_node_line());
-                return -1;
-            }
-            if(nasal_gc.get_scalar(num1_addr).get_type()==scalar_string)
-            {
-                if(check_numerable_string(nasal_gc.get_scalar(num1_addr).get_string().get_string()))
-                {
-                    double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num1_addr).get_string().get_string());
-                    if(tmp_num<0)
-                    {
-                        error_interrupt(__special_call_vector_negative_value,call_node->get_children().front().get_children().front().get_node_line());
-                        return -1;
-                    }
-                    nasal_gc.reference_delete(num1_addr);
-                    num1_addr=nasal_gc.gc_alloc();
-                    nasal_gc.get_scalar(num1_addr).set_type(scalar_number);
-                    nasal_gc.get_scalar(num1_addr).get_number().set_number(tmp_num);
-                }
-                else
-                {
-                    error_interrupt(__not_numerable_str,call_node->get_children().front().get_children().front().get_node_line());
-                    return -1;
-                }
-            }
-            if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_type()==scalar_string)
-            {
-                if(check_numerable_string(nasal_gc.get_scalar(num2_addr).get_string().get_string()))
-                {
-                    double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num2_addr).get_string().get_string());
-                    if(tmp_num<0)
-                    {
-                        error_interrupt(__special_call_vector_negative_value,call_node->get_children().front().get_children().back().get_node_line());
-                        return -1;
-                    }
-                    nasal_gc.reference_delete(num2_addr);
-                    num2_addr=nasal_gc.gc_alloc();
-                    nasal_gc.get_scalar(num2_addr).set_type(scalar_number);
-                    nasal_gc.get_scalar(num2_addr).get_number().set_number(tmp_num);
-                }
-                else
-                {
-                    error_interrupt(__not_numerable_str,call_node->get_children().front().get_children().back().get_node_line());
-                    return -1;
-                }
-            }
-            if(nasal_gc.get_scalar(num1_addr).get_number().get_number()>2147483647)
-            {
-                error_interrupt(__special_call_vector_too_large_value,call_node->get_children().front().get_children().front().get_node_line());
-                return -1;
-            }
-            if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_number().get_number()>2147483647)
-            {
-                error_interrupt(__special_call_vector_too_large_value,call_node->get_children().front().get_children().back().get_node_line());
-                return -1;
-            }
-            int begin_num=(int)nasal_gc.get_scalar(num1_addr).get_number().get_number();
-            int end_num=0;
-            if(num2_addr<0 || nasal_gc.get_scalar(num2_addr).get_type()==scalar_nil)
-                end_num=nasal_gc.get_scalar(addr).get_vector().get_size();
-            else
-                end_num=(int)nasal_gc.get_scalar(num2_addr).get_number().get_number();
-            if(num1_addr>=0)
-                nasal_gc.reference_delete(num1_addr);
-            if(num2_addr>=0)
-                nasal_gc.reference_delete(num2_addr);
-            std::vector<int> subvec_result;
-            for(int i=begin_num;i<end_num;++i)
-            {
-                // addr used here
-                int tmp_data_addr=nasal_gc.get_scalar(addr).get_vector().get_elem(i);
-                int new_addr=-1;
-                if(tmp_data_addr<0)
-                {
-                    error_interrupt(__invalid_vector_member,call_node->get_children().front().get_children().front().get_node_line());
-                    return -1;
-                }
-                switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                        break;
-                    case scalar_vector:
-                    case scalar_hash:
-                        new_addr=tmp_data_addr;
-                        nasal_gc.reference_add(new_addr);
-                        break;
-                }
-                subvec_result.push_back(new_addr);
-            }
-            int tmp_addr=addr;
-            addr=nasal_gc.gc_alloc();
-            nasal_gc.get_scalar(addr).set_type(scalar_vector);
-            for(int i=0;i<subvec_result.size();++i)
-                nasal_gc.get_scalar(addr).get_vector().vec_push(subvec_result[i]);
-            nasal_gc.reference_delete(tmp_addr);
-        }// end sub-vector
-        else
-        {
-            // normal vector/hash calling
-            int data_addr=calculation(local_scope,call_node->get_children().front());
-            if(data_addr<0)
-                return -1;
-            if(nasal_gc.get_scalar(data_addr).get_type()!=scalar_number && nasal_gc.get_scalar(data_addr).get_type()!=scalar_string)
-            {
-                error_interrupt(__error_value_type_when_calling_vector,call_node->get_children().front().get_node_line());
-                return -1;
-            }
-            if(called_type==scalar_vector)
-            {
-                double place_num=0;
-                if(nasal_gc.get_scalar(data_addr).get_type()==scalar_string)
-                {
-                    if(check_numerable_string(nasal_gc.get_scalar(data_addr).get_string().get_string()))
-                        place_num=(int)trans_string_to_number(nasal_gc.get_scalar(data_addr).get_string().get_string());
-                    else
-                    {
-                        error_interrupt(__not_numerable_str,call_node->get_children().front().get_node_line());
-                        return -1;
-                    }
-                }
-                else if(nasal_gc.get_scalar(data_addr).get_type()==scalar_number)
-                    place_num=nasal_gc.get_scalar(data_addr).get_number().get_number();
-                if(place_num>2147483647 || place_num<-2147483648)
-                {
-                    error_interrupt(__normal_call_vector_too_large_value,call_node->get_children().front().get_node_line());
-                    return -1;
-                }
-                int tmp_data_addr=nasal_gc.get_scalar(addr).get_vector().get_elem((int)place_num);
-                if(tmp_data_addr<0)
-                {
-                    error_interrupt(__invalid_vector_member,call_node->get_children().front().get_node_line());
-                    return -1;
-                }
-                int new_addr=-1;
-                switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                        break;
-                    case scalar_vector:
-                    case scalar_hash:
-                        new_addr=tmp_data_addr;
-                        nasal_gc.reference_add(new_addr);
-                        break;
-                }
-                int tmp_addr=addr;
-                addr=new_addr;
-                nasal_gc.reference_delete(tmp_addr);
-            }
-            else if(called_type==scalar_hash)
-            {
-                if(nasal_gc.get_scalar(data_addr).get_type()!=scalar_string)
-                {
-                    error_interrupt(__error_value_type_when_calling_hash,call_node->get_children().front().get_node_line());
-                    return -1;
-                }
-                int tmp_data_addr=nasal_gc.get_scalar(addr).get_hash().get_hash_member(nasal_gc.get_scalar(data_addr).get_string().get_string());
-                if(tmp_data_addr<0)
-                {
-                    error_interrupt(__invalid_hash_member,call_node->get_children().front().get_node_line());
-                    return -1;
-                }
-                int new_addr=-1;
-                switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                        break;
-                    case scalar_vector:
-                    case scalar_hash:
-                        new_addr=tmp_data_addr;
-                        nasal_gc.reference_add(new_addr);
-                        break;
-                }
-                int tmp_addr=addr;
-                addr=new_addr;
-                nasal_gc.reference_delete(tmp_addr);
-            }
-            nasal_gc.reference_delete(data_addr);
-        }
-    }
-    else if(call_node->get_children().size()>1)
-    {
-        int generated_subvec_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(generated_subvec_addr).set_type(scalar_vector);
-        for(std::list<abstract_syntax_tree>::iterator i=call_node->get_children().begin();i!=call_node->get_children().end();++i)
-        {
-            if(i->get_node_type()==__sub_vector)
-            {
-                if(called_type==scalar_hash)
-                {
-                    error_interrupt(__not_callable_vector,i->get_node_line());
-                    return -1;
-                }
-                int num1_addr=-1;
-                int num2_addr=-1;
-                // identifier[num1:];
-                if(i->get_children().size()==1)
-                {
-                    num1_addr=calculation(local_scope,i->get_children().front());
-                    if(num1_addr<0)
-                        return -1;
-                }
-                // identifier[num1:num2];
-                else
-                {
-                    num1_addr=calculation(local_scope,i->get_children().front());
-                    num2_addr=calculation(local_scope,i->get_children().back());
-                    if(num1_addr<0 || num2_addr<0)
-                        return -1;
-                }
-                if(nasal_gc.get_scalar(num1_addr).get_type()!=scalar_number
-                    && nasal_gc.get_scalar(num1_addr).get_type()!=scalar_string)
-                {
-                    error_interrupt(__error_value_type_when_calling_vector,i->get_children().front().get_node_line());
-                    return -1;
-                }
-                if(num2_addr>=0
-                    && (nasal_gc.get_scalar(num2_addr).get_type()!=scalar_number
-                    && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_string
-                    && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_nil))
-                {
-                    error_interrupt(__error_value_type_when_calling_vector,i->get_children().back().get_node_line());
-                    return -1;
-                }
-                if(nasal_gc.get_scalar(num1_addr).get_type()==scalar_string)
-                {
-                    if(check_numerable_string(nasal_gc.get_scalar(num1_addr).get_string().get_string()))
-                    {
-                        double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num1_addr).get_string().get_string());
-                        if(tmp_num<0)
-                        {
-                            error_interrupt(__special_call_vector_negative_value,i->get_children().front().get_node_line());
-                            return -1;
-                        }
-                        nasal_gc.reference_delete(num1_addr);
-                        num1_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(num1_addr).set_type(scalar_number);
-                        nasal_gc.get_scalar(num1_addr).get_number().set_number(tmp_num);
-                    }
-                    else
-                    {
-                        error_interrupt(__not_numerable_str,i->get_children().front().get_node_line());
-                        return -1;
-                    }
-                }
-                if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_type()==scalar_string)
-                {
-                    if(check_numerable_string(nasal_gc.get_scalar(num2_addr).get_string().get_string()))
-                    {
-                        double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num2_addr).get_string().get_string());
-                        if(tmp_num<0)
-                        {
-                            error_interrupt(__special_call_vector_negative_value,i->get_children().back().get_node_line());
-                            return -1;
-                        }
-                        nasal_gc.reference_delete(num2_addr);
-                        num2_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(num2_addr).set_type(scalar_number);
-                        nasal_gc.get_scalar(num2_addr).get_number().set_number(tmp_num);
-                    }
-                    else
-                    {
-                        error_interrupt(__not_numerable_str,i->get_children().back().get_node_line());
-                        return -1;
-                    }
-                }
-                if(nasal_gc.get_scalar(num1_addr).get_number().get_number()>2147483647)
-                {
-                    error_interrupt(__special_call_vector_too_large_value,i->get_children().front().get_node_line());
-                    return -1;
-                }
-                if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_number().get_number()>2147483647)
-                {
-                    error_interrupt(__special_call_vector_too_large_value,i->get_children().back().get_node_line());
-                    return -1;
-                }
-                int begin_num=(int)nasal_gc.get_scalar(num1_addr).get_number().get_number();
-                int end_num=0;
-                if(num2_addr<0 || nasal_gc.get_scalar(num2_addr).get_type()==scalar_nil)
-                    end_num=nasal_gc.get_scalar(addr).get_vector().get_size();
-                else
-                    end_num=(int)nasal_gc.get_scalar(num2_addr).get_number().get_number();
-                if(num1_addr>=0)
-                    nasal_gc.reference_delete(num1_addr);
-                if(num2_addr>=0)
-                    nasal_gc.reference_delete(num2_addr);
-                std::vector<int> subvec_result;
-                for(int j=begin_num;j<end_num;++j)
-                {
-                    // addr used here
-                    int tmp_data_addr=nasal_gc.get_scalar(addr).get_vector().get_elem(j);
-                    int new_addr=-1;
-                    if(tmp_data_addr<0)
-                    {
-                        error_interrupt(__invalid_vector_member,i->get_children().front().get_node_line());
-                        return -1;
-                    }
-                    switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                            break;
-                        case scalar_vector:
-                        case scalar_hash:
-                            new_addr=tmp_data_addr;
-                            nasal_gc.reference_add(new_addr);
-                            break;
-                    }
-                    subvec_result.push_back(new_addr);
-                }
-                for(int j=0;j<subvec_result.size();++j)
-                    nasal_gc.get_scalar(generated_subvec_addr).get_vector().vec_push(subvec_result[j]);
-            }// end sub-vector
-            else
-            {
-                // normal vector calling
-                int data_addr=calculation(local_scope,*i);
-                if(data_addr<0)
-                    return -1;
-                if(nasal_gc.get_scalar(data_addr).get_type()!=scalar_number && nasal_gc.get_scalar(data_addr).get_type()!=scalar_string)
-                {
-                    error_interrupt(__error_value_type_when_calling_vector,i->get_node_line());
-                    return -1;
-                }
-                double place_num=0;
-                if(nasal_gc.get_scalar(data_addr).get_type()==scalar_string)
-                {
-                    if(check_numerable_string(nasal_gc.get_scalar(data_addr).get_string().get_string()))
-                        place_num=(int)trans_string_to_number(nasal_gc.get_scalar(data_addr).get_string().get_string());
-                    else
-                    {
-                        error_interrupt(__not_numerable_str,i->get_node_line());
-                        return -1;
-                    }
-                }
-                else if(nasal_gc.get_scalar(data_addr).get_type()==scalar_number)
-                    place_num=nasal_gc.get_scalar(data_addr).get_number().get_number();
-                if(place_num>2147483647 || place_num<-2147483648)
-                {
-                    error_interrupt(__normal_call_vector_too_large_value,i->get_node_line());
-                    return -1;
-                }
-                int tmp_data_addr=nasal_gc.get_scalar(addr).get_vector().get_elem((int)place_num);
-                if(tmp_data_addr<0)
-                {
-                    error_interrupt(__invalid_vector_member,i->get_node_line());
-                    return -1;
-                }
-                int new_addr=-1;
-                switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                        break;
-                    case scalar_vector:
-                    case scalar_hash:
-                        new_addr=tmp_data_addr;
-                        nasal_gc.reference_add(new_addr);
-                        break;
-                }
-                nasal_gc.get_scalar(generated_subvec_addr).get_vector().vec_push(new_addr);
-                nasal_gc.reference_delete(data_addr);
-            }
-        }
-        int tmp_addr=addr;
-        addr=generated_subvec_addr;
-        nasal_gc.reference_delete(tmp_addr);
-    }
-    return addr;
-}
-int  nasal_runtime::dot_call_hash(std::list<std::map<std::string,int> >& local_scope,std::list<abstract_syntax_tree>::iterator& call_node,int addr)
-{
-    if(nasal_gc.get_scalar(addr).get_type()!=scalar_hash)
-    {
-        error_interrupt(__not_callable_hash,call_node->get_node_line());
-        return -1;
-    }
-    int tmp_data_addr=nasal_gc.get_scalar(addr).get_hash().get_hash_member(call_node->get_var_name());
-    if(tmp_data_addr<0)
-    {
-        error_interrupt(__invalid_hash_member,call_node->get_node_line());
-        return -1;
-    }
-    int new_addr=-1;
-    switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-            break;
-        case scalar_vector:
-        case scalar_hash:
-            new_addr=tmp_data_addr;
-            nasal_gc.reference_add(new_addr);
-            break;
-    }
-    int tmp_addr=addr;
-    addr=new_addr;
-    nasal_gc.reference_delete(tmp_addr);
-    return addr;
-}
-int  nasal_runtime::call_function(std::list<std::map<std::string,int> >& local_scope,std::list<abstract_syntax_tree>::iterator& call_node,int addr,int last_hash_addr)
-{
-    if(nasal_gc.get_scalar(addr).get_type()!=scalar_function)
-    {
-        error_interrupt(__not_callable_function,call_node->get_node_line());
-        return -1;
-    }
-    int tmp_addr=addr;
-    addr=func_proc(
-        local_scope,
-        nasal_gc.get_scalar(nasal_gc.get_scalar(addr).get_function().get_local_scope()).get_closure().get_local_scope(),
-        nasal_gc.get_scalar(addr).get_function().get_parameter_list(),
-        nasal_gc.get_scalar(addr).get_function().get_statement_block(),
-        *call_node,
-        last_hash_addr
-    );
-    if(addr<0)
-        return -1;
-    nasal_gc.reference_delete(tmp_addr);
-    return addr;
-}
-int nasal_runtime::vector_generation(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    int addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(addr).set_type(scalar_vector);
-    std::list<abstract_syntax_tree>::iterator call_node=node.get_children().end();
-    for(std::list<abstract_syntax_tree>::iterator i=node.get_children().begin();i!=node.get_children().end();++i)
-    {
-        int var_type=i->get_node_type();
-        if(var_type==__number)        nasal_gc.get_scalar(addr).get_vector().vec_push(number_generation(*i));
-        else if(var_type==__string)   nasal_gc.get_scalar(addr).get_vector().vec_push(string_generation(*i));
-        else if(var_type==__id)       nasal_gc.get_scalar(addr).get_vector().vec_push(call_identifier(local_scope,*i));
-        else if(var_type==__vector)   nasal_gc.get_scalar(addr).get_vector().vec_push(vector_generation(local_scope,*i));
-        else if(var_type==__hash)     nasal_gc.get_scalar(addr).get_vector().vec_push(hash_generation(local_scope,*i));
-        else if(var_type==__function) nasal_gc.get_scalar(addr).get_vector().vec_push(function_generation(local_scope,*i));
-        else if(var_type==__id)       nasal_gc.get_scalar(addr).get_vector().vec_push(call_identifier(local_scope,*i));
-        else if(var_type==__add_operator  || var_type==__sub_operator || var_type==__mul_operator  || var_type==__div_operator || var_type==__link_operator
-            || var_type==__cmp_equal || var_type==__cmp_less || var_type==__cmp_more || var_type==__cmp_not_equal || var_type==__cmp_less_or_equal || var_type==__cmp_more_or_equal
-            || var_type==__and_operator || var_type==__or_operator || var_type==__ques_mark
-            || var_type==__equal || var_type==__add_equal || var_type==__sub_equal || var_type==__div_equal || var_type==__mul_equal || var_type==__link_equal)
-            nasal_gc.get_scalar(addr).get_vector().vec_push(calculation(local_scope,*i));
-        else
-        {
-            call_node=i;
-            break;
-        }
-    }
-    int last_hash_addr=-1;
-    for(;call_node!=node.get_children().end();++call_node)
-    {
-        if(nasal_gc.get_scalar(addr).get_type()==scalar_hash)
-        {
-            int tmp_hash_addr=last_hash_addr;
-            last_hash_addr=addr;
-            nasal_gc.reference_add(last_hash_addr);
-            if(tmp_hash_addr>=0)
-                nasal_gc.reference_delete(tmp_hash_addr);
-        }
-        // call vector/special call hash/subvec
-        // the special type of calling hash like a["name"] is also generated as calling vector
-        if(call_node->get_node_type()==__call_vector)
-            addr=bracket_call_vector(local_scope,call_node,addr);
-        // call hash identifier.identifier
-        else if(call_node->get_node_type()==__call_hash)
-            addr=dot_call_hash(local_scope,call_node,addr);
-        // call function identifier(...)
-        else if(call_node->get_node_type()==__call_function)
-            addr=call_function(local_scope,call_node,addr,last_hash_addr);
-        
-        if(addr<0)
-            break;
-    }
-    return addr;
-}
-int nasal_runtime::hash_generation(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    int addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(addr).set_type(scalar_hash);
-    std::list<abstract_syntax_tree>::iterator call_node=node.get_children().end();
-    for(std::list<abstract_syntax_tree>::iterator i=node.get_children().begin();i!=node.get_children().end();++i)
-    {
-        if(i->get_node_type()!=__hash_member)
-        {
-            call_node=i;
-            break;
-        }
-        else
-        {
-            // note:how does nasal_function change the address of me when a hash calls it?
-            // because before calling this function,hash gives the address if itself as a parameter to the function,
-            // and this parameter's name is 'me'
-            std::string member_name=i->get_children().front().get_var_name();
-            int var_type=i->get_children().back().get_node_type();
-            if(member_name=="parents")
-            {
-                int vector_addr=-1;
-                if(var_type==__id) vector_addr=call_identifier(local_scope,i->get_children().back());
-                else if(var_type==__vector) vector_addr=hash_generation(local_scope,i->get_children().back());
-                else
-                {
-                    error_interrupt(__class_inheritence_need_vector,i->get_children().back().get_node_line());
-                    return -1;
-                }
-                if(vector_addr<0)
-                    return -1;
-                if(nasal_gc.get_scalar(vector_addr).get_type()!=scalar_vector)
-                {
-                    error_interrupt(__class_inheritence_need_vector,i->get_children().back().get_node_line());
-                    return -1;
-                }
-                for(int i=0;i<nasal_gc.get_scalar(vector_addr).get_vector().get_size();++i)
-                    if(nasal_gc.get_scalar(vector_addr).get_vector().get_elem(i)<0)
-                        return -1;
-                nasal_gc.get_scalar(vector_addr).get_vector().generate_new_hash();
-                nasal_gc.get_scalar(addr).get_hash().hash_push("parents",vector_addr);
-            }
-            else
-            {
-                if(var_type==__number)        nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,number_generation(i->get_children().back()));
-                else if(var_type==__string)   nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,string_generation(i->get_children().back()));
-                else if(var_type==__id)       nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,call_identifier(local_scope,i->get_children().back()));
-                else if(var_type==__vector)   nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,vector_generation(local_scope,i->get_children().back()));
-                else if(var_type==__hash)     nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,hash_generation(local_scope,i->get_children().back()));
-                else if(var_type==__function) nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,function_generation(local_scope,i->get_children().back()));
-                else if(var_type==__add_operator  || var_type==__sub_operator || var_type==__mul_operator  || var_type==__div_operator || var_type==__link_operator
-                || var_type==__cmp_equal || var_type==__cmp_less || var_type==__cmp_more || var_type==__cmp_not_equal || var_type==__cmp_less_or_equal || var_type==__cmp_more_or_equal
-                || var_type==__and_operator || var_type==__or_operator || var_type==__ques_mark
-                || var_type==__equal || var_type==__add_equal || var_type==__sub_equal || var_type==__div_equal || var_type==__mul_equal || var_type==__link_equal)
-                    nasal_gc.get_scalar(addr).get_hash().hash_push(member_name,calculation(local_scope,i->get_children().back()));
-            }
-        }
-    }
-    int last_hash_addr=-1;
-    for(;call_node!=node.get_children().end();++call_node)
-    {
-        if(nasal_gc.get_scalar(addr).get_type()==scalar_hash)
-        {
-            int tmp_hash_addr=last_hash_addr;
-            last_hash_addr=addr;
-            nasal_gc.reference_add(last_hash_addr);
-            if(tmp_hash_addr>=0)
-                nasal_gc.reference_delete(tmp_hash_addr);
-        }
-        // call vector/special call hash/subvec
-        // the special type of calling hash like a["name"] is also generated as calling vector
-        if(call_node->get_node_type()==__call_vector)
-            addr=bracket_call_vector(local_scope,call_node,addr);
-        // call hash identifier.identifier
-        else if(call_node->get_node_type()==__call_hash)
-            addr=dot_call_hash(local_scope,call_node,addr);
-        // call function identifier(...)
-        else if(call_node->get_node_type()==__call_function)
-            addr=call_function(local_scope,call_node,addr,last_hash_addr);
-        
-        if(addr<0) break;
-    }
-    return addr;
-}
-int nasal_runtime::function_generation(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    // function
-    //     parameters
-    //     block
-    //     calls...
-    int addr=nasal_gc.gc_alloc();
-    int scope_addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(scope_addr).set_type(scalar_closure);
-    nasal_gc.get_scalar(scope_addr).get_closure().set_local_scope(local_scope);
-    nasal_gc.get_scalar(addr).set_type(scalar_function);
-    nasal_gc.get_scalar(addr).get_function().set_local_scope(scope_addr);
-    nasal_gc.get_scalar(addr).get_function().set_closure_update_state(false);
-    
-    std::list<abstract_syntax_tree>::iterator i=node.get_children().begin();
-    nasal_gc.get_scalar(addr).get_function().set_paramemter_list(*i);
-
-    ++i;
-    nasal_gc.get_scalar(addr).get_function().set_statement_block(*i);
-
-    ++i;
-    int last_hash_addr=-1;
-    for(std::list<abstract_syntax_tree>::iterator call_node=i;call_node!=node.get_children().end();++call_node)
-    {
-        if(nasal_gc.get_scalar(addr).get_type()==scalar_hash)
-        {
-            int tmp_hash_addr=last_hash_addr;
-            last_hash_addr=addr;
-            nasal_gc.reference_add(last_hash_addr);
-            if(tmp_hash_addr>=0)
-                nasal_gc.reference_delete(tmp_hash_addr);
-        }
-        // call vector/special call hash/subvec
-        // the special type of calling hash like a["name"] is also generated as calling vector
-        if(call_node->get_node_type()==__call_vector)
-            addr=bracket_call_vector(local_scope,call_node,addr);
-        // call hash identifier.identifier
-        else if(call_node->get_node_type()==__call_hash)
-            addr=dot_call_hash(local_scope,call_node,addr);
-        // call function identifier(...)
-        else if(call_node->get_node_type()==__call_function)
-            addr=call_function(local_scope,call_node,addr,last_hash_addr);
-        
-        if(addr<0)
-            break;
-    }
-    return addr;
-}
-void nasal_runtime::update_closure(std::vector<int>& update_list,int closure_addr)
-{
-    // update_closure
-    // each new function will be updated only once, after updating closure,functions' closure_updated flag will be set true
-    int size=update_list.size();
-    for(int i=0;i<size;++i)
-        if(!nasal_gc.get_scalar(update_list[i]).get_function().get_closure_update_state())
-        {
-            nasal_gc.get_scalar(update_list[i]).get_function().set_local_scope(closure_addr);
-            nasal_gc.reference_add(closure_addr);
-            nasal_gc.get_scalar(update_list[i]).get_function().set_closure_update_state(true);
-        }
-    return;
-}
-bool nasal_runtime::check_condition(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    bool ret=false;
-    int checked_addr=calculation(local_scope,node);
-    if(checked_addr<0)
-        return false;
-    int checked_type=nasal_gc.get_scalar(checked_addr).get_type();
-    if(checked_type==scalar_number)
-        ret=(nasal_gc.get_scalar(checked_addr).get_number().get_number()!=0);
-    else if(checked_type==scalar_string)
-    {
-        std::string tmp_str=nasal_gc.get_scalar(checked_addr).get_string().get_string();
-        if(!tmp_str.length())
-            ret=false;
-        else if(check_numerable_string(tmp_str))
-            ret=(trans_string_to_number(tmp_str)!=0);
-        else
-            ret=true;// not numerable string like 'hello' is also true
-    }
-    else
-    {
-        error_interrupt(__error_value_type,node.get_node_line());
-        return false;
-    }
-    nasal_gc.reference_delete(checked_addr);
-    return ret;
-}
-int nasal_runtime::calculation(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    // calculation will return a value that points to a new area in memory
-    int node_type=node.get_node_type();
-    if(node_type==__nil)
-    {
-        int ret=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(ret).set_type(scalar_nil);
-        return ret;
-    }
-    else if(node_type==__number)
-        return number_generation(node);
-    else if(node_type==__string)
-        return string_generation(node);
-    else if(node_type==__vector)
-        return vector_generation(local_scope,node);
-    else if(node_type==__hash)
-        return hash_generation(local_scope,node);
-    else if(node_type==__function)
-        return function_generation(local_scope,node);
-    else if(node_type==__id)
-        return call_identifier(local_scope,node);
-    else if(node_type==__add_operator || node_type==__sub_operator || node_type==__mul_operator || node_type==__div_operator)
-    {
-        // scalar_nil cannot be used here
-        int ret_addr=-1;
-        int addr_1=-1;
-        int addr_2=-1;
-        if(node.get_children().size()==1)
-        {
-            // note: sub operator may mean that this is unary calculation
-            addr_1=nasal_gc.gc_alloc();
-            nasal_gc.get_scalar(addr_1).set_type(scalar_number);
-            nasal_gc.get_scalar(addr_1).get_number().set_number(0);
-            addr_2=calculation(local_scope,node.get_children().front());
-        }
-        else
-        {
-            addr_1=calculation(local_scope,node.get_children().front());
-            addr_2=calculation(local_scope,node.get_children().back());
-        }
-        // check if the address is available
-        if(addr_1<0 || addr_2<0)
-            return -1;
-        int type_1=nasal_gc.get_scalar(addr_1).get_type();
-        int type_2=nasal_gc.get_scalar(addr_2).get_type();
-        double num_1=0;
-        double num_2=0;
-        if(type_1==scalar_number && type_2==scalar_number)
-        {
-            num_1=nasal_gc.get_scalar(addr_1).get_number().get_number();
-            num_2=nasal_gc.get_scalar(addr_2).get_number().get_number();
-        }
-        else if(type_1==scalar_number && type_2==scalar_string)
-        {
-            num_1=nasal_gc.get_scalar(addr_1).get_number().get_number();
-            std::string tmp_str=nasal_gc.get_scalar(addr_2).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_2=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().back().get_node_line());
-                return -1;
-            }
-        }
-        else if(type_1==scalar_string && type_2==scalar_number)
-        {
-            std::string tmp_str=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_1=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().front().get_node_line());
-                return -1;
-            }
-            num_2=nasal_gc.get_scalar(addr_2).get_number().get_number();
-        }
-        else if(type_1==scalar_string && type_2==scalar_string)
-        {
-            std::string tmp_str_1=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            std::string tmp_str_2=nasal_gc.get_scalar(addr_2).get_string().get_string();
-            if(check_numerable_string(tmp_str_1) && check_numerable_string(tmp_str_2))
-            {
-                num_1=trans_string_to_number(tmp_str_1);
-                num_2=trans_string_to_number(tmp_str_2);
-            }
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_node_line());
-                return -1;
-            }
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_node_line());
-            return -1;
-        }
-        ret_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-        switch(node_type)
-        {
-            case __add_operator:nasal_gc.get_scalar(ret_addr).get_number().set_number(num_1+num_2);break;
-            case __sub_operator:nasal_gc.get_scalar(ret_addr).get_number().set_number(num_1-num_2);break;
-            case __mul_operator:nasal_gc.get_scalar(ret_addr).get_number().set_number(num_1*num_2);break;
-            case __div_operator:nasal_gc.get_scalar(ret_addr).get_number().set_number(num_1/num_2);break;
-        }
-        nasal_gc.reference_delete(addr_1);
-        nasal_gc.reference_delete(addr_2);
-        return ret_addr;
-    }
-    else if(node_type==__link_operator)
-    {
-        // scalar_nil cannot be used here
-        int ret_addr=-1;
-        int addr_1=calculation(local_scope,node.get_children().front());
-        int addr_2=calculation(local_scope,node.get_children().back());
-        // check if the address is available
-        if(addr_1<0 || addr_2<0)
-            return -1;
-        int type_1=nasal_gc.get_scalar(addr_1).get_type();
-        int type_2=nasal_gc.get_scalar(addr_2).get_type();
-        std::string str_1;
-        std::string str_2;
-        if(type_1==scalar_number && type_2==scalar_number)
-        {
-            str_1=trans_number_to_string(nasal_gc.get_scalar(addr_1).get_number().get_number());
-            str_2=trans_number_to_string(nasal_gc.get_scalar(addr_2).get_number().get_number());
-        }
-        else if(type_1==scalar_number && type_2==scalar_string)
-        {
-            str_1=trans_number_to_string(nasal_gc.get_scalar(addr_1).get_number().get_number());
-            str_2=nasal_gc.get_scalar(addr_2).get_string().get_string();
-        }
-        else if(type_1==scalar_string && type_2==scalar_number)
-        {
-            str_1=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            str_2=trans_number_to_string(nasal_gc.get_scalar(addr_2).get_number().get_number());
-        }
-        else if(type_1==scalar_string && type_2==scalar_string)
-        {
-            str_1=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            str_2=nasal_gc.get_scalar(addr_2).get_string().get_string();
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_node_line());
-            return -1;
-        }
-        ret_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(ret_addr).set_type(scalar_string);
-        nasal_gc.get_scalar(ret_addr).get_string().set_string(str_1+str_2);
-        nasal_gc.reference_delete(addr_1);
-        nasal_gc.reference_delete(addr_2);
-        return ret_addr;
-    }
-    else if(node_type==__cmp_equal || node_type==__cmp_not_equal)
-    {
-        int ret_addr=-1;
-        int addr_1=calculation(local_scope,node.get_children().front());
-        int addr_2=calculation(local_scope,node.get_children().back());
-        // check if the address is available
-        if(addr_1<0 || addr_2<0)
-            return -1;
-        int type_1=nasal_gc.get_scalar(addr_1).get_type();
-        int type_2=nasal_gc.get_scalar(addr_2).get_type();
-        // note: cmp operator change strings into numbers then making comparation
-        ret_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-        if(type_1==scalar_number && type_2==scalar_number)
-        {
-            double num_1=nasal_gc.get_scalar(addr_1).get_number().get_number();
-            double num_2=nasal_gc.get_scalar(addr_2).get_number().get_number();
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?num_1==num_2:num_1!=num_2)));
-        }
-        else if(type_1==scalar_number && type_2==scalar_string)
-        {
-            double num_1=nasal_gc.get_scalar(addr_1).get_number().get_number();
-            double num_2=0;
-            std::string tmp_str=nasal_gc.get_scalar(addr_2).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_2=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().back().get_node_line());
-                return -1;
-            }
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?num_1==num_2:num_1!=num_2)));
-        }
-        else if(type_1==scalar_string && type_2==scalar_number)
-        {
-            double num_1=0;
-            double num_2=nasal_gc.get_scalar(addr_2).get_number().get_number();
-            std::string tmp_str=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_1=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().front().get_node_line());
-                return -1;
-            }
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?num_1==num_2:num_1!=num_2)));
-        }
-        else if(type_1==scalar_string && type_2==scalar_string)
-        {
-            std::string str_1=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            std::string str_2=nasal_gc.get_scalar(addr_2).get_string().get_string();
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?str_1==str_2:str_1!=str_2)));
-        }
-        else if(type_1==scalar_vector && type_2==scalar_vector)
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?addr_1==addr_2:addr_1!=addr_2)));
-        else if(type_1==scalar_hash && type_2==scalar_hash)
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?addr_1==addr_2:addr_1!=addr_2)));
-        else if(type_1==scalar_function && type_2==scalar_function)
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal?addr_1==addr_2:addr_1!=addr_2)));
-        else if(type_1==scalar_nil && type_2==scalar_nil)
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type==__cmp_equal)));
-        else if(type_1!=type_2)
-            nasal_gc.get_scalar(ret_addr).get_number().set_number((double(node_type!=__cmp_equal)));
-        else
-        {
-            error_interrupt(__error_value_type,node.get_node_line());
-            return -1;
-        }
-        nasal_gc.reference_delete(addr_1);
-        nasal_gc.reference_delete(addr_2);
-        return ret_addr;
-    }
-    else if(node_type==__cmp_less || node_type==__cmp_less_or_equal || node_type==__cmp_more || node_type==__cmp_more_or_equal)
-    {
-        int ret_addr=-1;
-        int addr_1=calculation(local_scope,node.get_children().front());
-        int addr_2=calculation(local_scope,node.get_children().back());
-        // check if the address is available
-        if(addr_1<0 || addr_2<0)
-            return -1;
-        int type_1=nasal_gc.get_scalar(addr_1).get_type();
-        int type_2=nasal_gc.get_scalar(addr_2).get_type();
-        // note: cmp operator change strings into numbers then making comparation
-        // only numbers and strings can take these calculations
-        ret_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-        if(type_1==scalar_number && type_2==scalar_number)
-        {
-            double num_1=nasal_gc.get_scalar(addr_1).get_number().get_number();
-            double num_2=nasal_gc.get_scalar(addr_2).get_number().get_number();
-            switch(node_type)
-            {
-                case __cmp_less:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1<num_2)));break;
-                case __cmp_less_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1<=num_2)));break;
-                case __cmp_more:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1>num_2)));break;
-                case __cmp_more_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1>=num_2)));break;
-            }
-        }
-        else if(type_1==scalar_number && type_2==scalar_string)
-        {
-            double num_1=nasal_gc.get_scalar(addr_1).get_number().get_number();
-            double num_2=0;
-            std::string tmp_str=nasal_gc.get_scalar(addr_2).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_2=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().back().get_node_line());
-                return -1;
-            }
-            switch(node_type)
-            {
-                case __cmp_less:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1<num_2)));break;
-                case __cmp_less_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1<=num_2)));break;
-                case __cmp_more:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1>num_2)));break;
-                case __cmp_more_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1>=num_2)));break;
-            }
-        }
-        else if(type_1==scalar_string && type_2==scalar_number)
-        {
-            double num_1=0;
-            double num_2=nasal_gc.get_scalar(addr_2).get_number().get_number();
-            std::string tmp_str=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_1=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().front().get_node_line());
-                return -1;
-            }
-            switch(node_type)
-            {
-                case __cmp_less:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1<num_2)));break;
-                case __cmp_less_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1<=num_2)));break;
-                case __cmp_more:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1>num_2)));break;
-                case __cmp_more_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(num_1>=num_2)));break;
-            }
-        }
-        else if(type_1==scalar_string && type_2==scalar_string)
-        {
-            std::string str_1=nasal_gc.get_scalar(addr_1).get_string().get_string();
-            std::string str_2=nasal_gc.get_scalar(addr_2).get_string().get_string();
-            switch(node_type)
-            {
-                case __cmp_less:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(str_1<str_2)));break;
-                case __cmp_less_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(str_1<=str_2)));break;
-                case __cmp_more:         nasal_gc.get_scalar(ret_addr).get_number().set_number((double(str_1>str_2)));break;
-                case __cmp_more_or_equal:nasal_gc.get_scalar(ret_addr).get_number().set_number((double(str_1>=str_2)));break;
-            }
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_node_line());
-            return -1;
-        }
-        nasal_gc.reference_delete(addr_1);
-        nasal_gc.reference_delete(addr_2);
-        return ret_addr;
-    }
-    else if(node_type==__equal)
-    {
-        // scalar_function needs 'me' changement here
-        // but now it is unfinished
-        int child_node_type_1=node.get_children().front().get_node_type();
-        int child_node_type_2=node.get_children().back().get_node_type();
-        if(child_node_type_1==__multi_scalar)
-        {
-        	std::vector<abstract_syntax_tree*> assignment_ast;
-        	for(std::list<abstract_syntax_tree>::iterator i=node.get_children().front().get_children().begin();i!=node.get_children().front().get_children().end();++i)
-				assignment_ast.push_back(&(*i));
-			if(assignment_ast.empty())
-				return -1;
-			if(child_node_type_2==__multi_scalar)
-			{
-				std::vector<int> data_addrs;
-				for(std::list<abstract_syntax_tree>::iterator i=node.get_children().back().get_children().begin();i!=node.get_children().back().get_children().end();++i)
-				{
-                    int new_addr=calculation(local_scope,*i);
-                    if(new_addr<0)
-                        return -1;
-                    data_addrs.push_back(new_addr);
-                }
-				if(data_addrs.size()!=assignment_ast.size())
-				{
-					error_interrupt(__multi_assign_incorrect_value_number,node.get_children().back().get_node_line());
-					return -1;
-				}
-                // multi assignment doesn't have returned value
-                // because multi assignment cannot be used in calculation expression
-				for(int i=0;i<assignment_ast.size();++i)
-                {
-                    int tmp_addr=assignment(local_scope,*assignment_ast[i],data_addrs[i]);
-                    if(tmp_addr>=0)
-                        nasal_gc.reference_delete(tmp_addr);
-                }
-                for(int i=0;i<data_addrs.size();++i)
-                    nasal_gc.reference_delete(data_addrs[i]);
-			}
-			else
-			{
-				int data_addr=calculation(local_scope,node.get_children().back());
-                if(data_addr<0)
-                    return -1;
-				if(nasal_gc.get_scalar(data_addr).get_type()!=scalar_vector)
-				{
-					error_interrupt(__error_value_type,node.get_children().back().get_node_line());
-					return -1;
-				}
-				else if(nasal_gc.get_scalar(data_addr).get_vector().get_size()!=assignment_ast.size())
-				{
-					error_interrupt(__multi_assign_incorrect_value_number,node.get_children().back().get_node_line());
-					return -1;
-				}
-				for(int i=0;i<assignment_ast.size();++i)
-				{
-                    int new_data_addr=-1;
-                    int vector_member_addr=nasal_gc.get_scalar(data_addr).get_vector().get_elem(i);
-                    if(vector_member_addr<0)
-                    {
-                        error_interrupt(__invalid_vector_member,node.get_children().back().get_node_line());
-                        return -1;
-                    }
-                    int tmp_addr=assignment(local_scope,*assignment_ast[i],vector_member_addr);
-                    if(tmp_addr>=0)
-                        nasal_gc.reference_delete(tmp_addr);
-                }
-                nasal_gc.reference_delete(data_addr);
-			}
-            return -1;
-		}
-        else
-        {
-        	int ret_addr=-1;
-        	abstract_syntax_tree* assignment_ast=&node.get_children().front();
-        	int data_addr=calculation(local_scope,node.get_children().back());
-            if(data_addr<0)
-                return -1;
-        	ret_addr=assignment(local_scope,*assignment_ast,data_addr);
-            nasal_gc.reference_delete(data_addr);
-        	return ret_addr;
-		}
-		return -1;
-    }
-    else if(node_type==__add_equal || node_type==__sub_equal || node_type==__mul_equal || node_type==__div_equal)
-    {
-        // scalar_nil also cannot be used here
-        // += -= *= /= ~= only works on scalar_number and scalar_string
-        int id_addr=calculation(local_scope,node.get_children().front());
-        int value_addr=calculation(local_scope,node.get_children().back());
-        if(id_addr<0 || value_addr<0)
-            return -1;
-        int type_1=nasal_gc.get_scalar(id_addr).get_type();
-        int type_2=nasal_gc.get_scalar(value_addr).get_type();
-        double num_1=0;
-        double num_2=0;
-        if(type_1==scalar_number && type_2==scalar_number)
-        {
-            num_1=nasal_gc.get_scalar(id_addr).get_number().get_number();
-            num_2=nasal_gc.get_scalar(value_addr).get_number().get_number();
-        }
-        else if(type_1==scalar_number && type_2==scalar_string)
-        {
-            num_1=nasal_gc.get_scalar(id_addr).get_number().get_number();
-            std::string tmp_str=nasal_gc.get_scalar(value_addr).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_2=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().back().get_node_line());
-                return -1;
-            }
-        }
-        else if(type_1==scalar_string && type_2==scalar_number)
-        {
-            std::string tmp_str=nasal_gc.get_scalar(id_addr).get_string().get_string();
-            if(check_numerable_string(tmp_str))
-                num_1=trans_string_to_number(tmp_str);
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_children().front().get_node_line());
-                return -1;
-            }
-            num_2=nasal_gc.get_scalar(value_addr).get_number().get_number();
-        }
-        else if(type_1==scalar_string && type_2==scalar_string)
-        {
-            std::string tmp_str_1=nasal_gc.get_scalar(id_addr).get_string().get_string();
-            std::string tmp_str_2=nasal_gc.get_scalar(value_addr).get_string().get_string();
-            if(check_numerable_string(tmp_str_1) && check_numerable_string(tmp_str_2))
-            {
-                num_1=trans_string_to_number(tmp_str_1);
-                num_2=trans_string_to_number(tmp_str_2);
-            }
-            else
-            {
-                error_interrupt(__not_numerable_str,node.get_node_line());
-                return -1;
-            }
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_node_line());
-            return -1;
-        }
-        if(nasal_gc.get_scalar(id_addr).get_type()==scalar_string)
-        {
-            nasal_gc.get_scalar(id_addr).get_string().set_clear();
-            nasal_gc.get_scalar(id_addr).set_type(scalar_number);
-        }
-        switch(node_type)
-        {
-            case __add_equal:nasal_gc.get_scalar(id_addr).get_number().set_number(num_1+num_2);break;
-            case __sub_equal:nasal_gc.get_scalar(id_addr).get_number().set_number(num_1-num_2);break;
-            case __mul_equal:nasal_gc.get_scalar(id_addr).get_number().set_number(num_1*num_2);break;
-            case __div_equal:nasal_gc.get_scalar(id_addr).get_number().set_number(num_1/num_2);break;
-        }
-        nasal_gc.reference_delete(value_addr);
-        return id_addr;
-    }
-    else if(node_type==__link_equal)
-    {
-        // scalar_nil also cannot be used here
-        // += -= *= /= ~= only works on scalar_number and scalar_string
-        int id_addr=calculation(local_scope,node.get_children().front());
-        int value_addr=calculation(local_scope,node.get_children().back());
-        if(id_addr<0 || value_addr<0)
-            return -1;
-        int type_1=nasal_gc.get_scalar(id_addr).get_type();
-        int type_2=nasal_gc.get_scalar(value_addr).get_type();
-        std::string str_1,str_2;
-        if(type_1==scalar_number && type_2==scalar_number)
-        {
-            str_1=trans_number_to_string(nasal_gc.get_scalar(id_addr).get_number().get_number());
-            str_2=trans_number_to_string(nasal_gc.get_scalar(value_addr).get_number().get_number());
-        }
-        else if(type_1==scalar_number && type_2==scalar_string)
-        {
-            str_1=trans_number_to_string(nasal_gc.get_scalar(id_addr).get_number().get_number());
-            str_2=nasal_gc.get_scalar(value_addr).get_string().get_string();
-        }
-        else if(type_1==scalar_string && type_2==scalar_number)
-        {
-            str_1=nasal_gc.get_scalar(id_addr).get_string().get_string();
-            str_2=trans_number_to_string(nasal_gc.get_scalar(value_addr).get_number().get_number());
-        }
-        else if(type_1==scalar_string && type_2==scalar_string)
-        {
-            str_1=nasal_gc.get_scalar(id_addr).get_string().get_string();
-            str_2=nasal_gc.get_scalar(value_addr).get_string().get_string();
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_node_line());
-            return -1;
-        }
-        if(nasal_gc.get_scalar(id_addr).get_type()==scalar_number)
-        {
-            nasal_gc.get_scalar(id_addr).get_number().set_clear();
-            nasal_gc.get_scalar(id_addr).set_type(scalar_string);
-        }
-        nasal_gc.get_scalar(id_addr).get_string().set_string(str_1+str_2);
-        nasal_gc.reference_delete(value_addr);
-        return id_addr;
-    }
-    else if(node_type==__and_operator)
-    {
-        // and will return the last value that is not null
-        // if and gets a null,and returns 0
-        // vector,hash,function is not allowed here
-        int ret_addr=-1;
-        int val_addr=calculation(local_scope,node.get_children().front());
-        if(val_addr<0) return -1;
-        int val_type=nasal_gc.get_scalar(val_addr).get_type();
-        if(val_type==scalar_number)
-        {
-            double num=nasal_gc.get_scalar(val_addr).get_number().get_number();
-            if(num==0)
-            {
-                ret_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(ret_addr).get_number().set_number(0);
-                nasal_gc.reference_delete(val_addr);
-                return ret_addr;
-            }
-            else
-                nasal_gc.reference_delete(val_addr);
-        }
-        else if(val_type==scalar_string)
-        {
-            std::string str=nasal_gc.get_scalar(val_addr).get_string().get_string();
-            if(str.length()==0 || (check_numerable_string(str) && trans_string_to_number(str)==0))
-            {
-                ret_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(ret_addr).get_number().set_number(0);
-                nasal_gc.reference_delete(val_addr);
-                return ret_addr;
-            }
-            else
-                nasal_gc.reference_delete(val_addr);
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_children().front().get_node_line());
-            return -1;
-        }
-        val_addr=calculation(local_scope,node.get_children().back());
-        if(val_addr<0) return -1;
-        val_type=nasal_gc.get_scalar(val_addr).get_type();
-        if(val_type==scalar_number)
-        {
-            double num=nasal_gc.get_scalar(val_addr).get_number().get_number();
-            if(num==0)
-            {
-                ret_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(ret_addr).get_number().set_number(0);
-                nasal_gc.reference_delete(val_addr);
-                return ret_addr;
-            }
-            else ret_addr=val_addr;
-        }
-        else if(val_type==scalar_string)
-        {
-            std::string str=nasal_gc.get_scalar(val_addr).get_string().get_string();
-            if(str.length()==0 || (check_numerable_string(str) && trans_string_to_number(str)==0))
-            {
-                ret_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(ret_addr).get_number().set_number(0);
-                nasal_gc.reference_delete(val_addr);
-                return ret_addr;
-            }
-            else ret_addr=val_addr;
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_children().back().get_node_line());
-            return -1;
-        }
-        return ret_addr;
-    }
-    else if(node_type==__or_operator)
-    {
-        // or will return the first value that is not null
-        // if or gets all null(0,'0',nil,"0",'',""),or returns 0
-        // vector,hash,function is not allowed here
-        int ret_addr=-1;
-        int val_addr=calculation(local_scope,node.get_children().front());
-        if(val_addr<0) return -1;
-        int val_type=nasal_gc.get_scalar(val_addr).get_type();
-        if(val_type==scalar_number)
-        {
-            double num=nasal_gc.get_scalar(val_addr).get_number().get_number();
-            if(num!=0) return val_addr;
-            else nasal_gc.reference_delete(val_addr);
-        }
-        else if(val_type==scalar_string)
-        {
-            std::string str=nasal_gc.get_scalar(val_addr).get_string().get_string();
-            if(str.length()!=0 && (!check_numerable_string(str) || !trans_string_to_number(str)==0))
-                return val_addr;
-            else nasal_gc.reference_delete(val_addr);
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_children().front().get_node_line());
-            return -1;
-        }
-        val_addr=calculation(local_scope,node.get_children().back());
-        if(val_addr<0) return -1;
-        val_type=nasal_gc.get_scalar(val_addr).get_type();
-        if(val_type==scalar_number)
-        {
-            double num=nasal_gc.get_scalar(val_addr).get_number().get_number();
-            if(num==0)
-            {
-                ret_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(ret_addr).get_number().set_number(0);
-                nasal_gc.reference_delete(val_addr);
-                return ret_addr;
-            }
-            else return val_addr;
-        }
-        else if(val_type==scalar_string)
-        {
-            std::string str=nasal_gc.get_scalar(val_addr).get_string().get_string();
-            if(str.length()==0 || (check_numerable_string(str) && trans_string_to_number(str)==0))
-            {
-                ret_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(ret_addr).get_number().set_number(0);
-                nasal_gc.reference_delete(val_addr);
-                return ret_addr;
-            }
-            else return val_addr;
-        }
-        else
-        {
-            error_interrupt(__error_value_type,node.get_children().back().get_node_line());
-            return -1;
-        }
-        return -1;
-    }
-    else if(node_type==__nor_operator)
-    {
-        // nor will return 0 if the value is not null
-        // nor will return 1 if the value is null(0,nil,'0',"0",'',"")
-        // vector,hash,function is not allowed here
-        int ret_addr=-1;
-        bool checked_result=check_condition(local_scope,node.get_children().front());
-        ret_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(ret_addr).set_type(scalar_number);
-        nasal_gc.get_scalar(ret_addr).get_number().set_number((double)checked_result);
-        return ret_addr;
-    }
-    else if(node_type==__ques_mark)
-    {
-    	// ?:
-    	// this will return the first element if the condition is true
-    	// this will return the second element if the condition is null(0,nil,"0",'0',"",'',"0x0","0o0")
-        std::list<abstract_syntax_tree>::iterator ptr=node.get_children().begin();
-        if(check_condition(local_scope,*ptr))
-        {
-            ++ptr;
-            return calculation(local_scope,*ptr);
-        }
-        else
-        {
-            ++ptr;++ptr;
-            return calculation(local_scope,*ptr);
-        }
-		return -1;
-    }
-    return -1;
-}
-int nasal_runtime::assignment(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node,int used_data_addr)
-{
-    int* assigned_addr=NULL;
-    std::string tmp_id_name=node.get_var_name();
-    if(global_scope.find(tmp_id_name)!=global_scope.end())
-        assigned_addr=&(global_scope[tmp_id_name]);
-    for(std::list<std::map<std::string,int> >::iterator iter=local_scope.begin();iter!=local_scope.end();++iter)
-        if(iter->find(tmp_id_name)!=iter->end())
-            assigned_addr=&((*iter)[tmp_id_name]);
-    if(!assigned_addr)
-        return -1;
-    std::vector<int> tmp_subvec_addr;
-    for(std::list<abstract_syntax_tree>::iterator iter=node.get_children().begin();iter!=node.get_children().end();++iter)
-    {
-        // call vector/special call hash/subvec
-        // the special type of calling hash like a["name"] is also generated as calling vector
-        if(iter->get_node_type()==__call_vector)
-        {
-            // check the scalar type of called identifier here
-            int called_type=-1;
-            if(!assigned_addr && tmp_subvec_addr.size())
-                called_type=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_type();
-            else if(assigned_addr)
-                called_type=nasal_gc.get_scalar(*assigned_addr).get_type();
-            if(iter->get_children().size()==1 && called_type!=scalar_vector && called_type!=scalar_hash)
-            {
-                error_interrupt(__error_value_type_when_calling_vector,iter->get_node_line());
-                return -1;
-            }
-            if(iter->get_children().size()>1 && called_type!=scalar_vector)
-            {
-                error_interrupt(__error_value_type_when_calling_vector,iter->get_node_line());
-                return -1;
-            }
-            if(iter->get_children().size()==1)
-            {
-                if(iter->get_children().front().get_node_type()==__sub_vector)
-                {
-                    if(called_type==scalar_hash)
-                    {
-                        error_interrupt(__not_callable_vector,iter->get_node_line());
-                        return -1;
-                    }
-                    int num1_addr=-1;
-                    int num2_addr=-1;
-                    // identifier[num1:];
-                    if(iter->get_children().front().get_children().size()==1)
-                    {
-                        num1_addr=calculation(local_scope,iter->get_children().front().get_children().front());
-                        if(num1_addr<0)
-                            return -1;
-                    }
-                    // identifier[num1:num2];
-                    else
-                    {
-                        num1_addr=calculation(local_scope,iter->get_children().front().get_children().front());
-                        num2_addr=calculation(local_scope,iter->get_children().front().get_children().back());
-                        if(num1_addr<0 || num2_addr<0)
-                            return -1;
-                    }
-                    if(nasal_gc.get_scalar(num1_addr).get_type()!=scalar_number
-                        && nasal_gc.get_scalar(num1_addr).get_type()!=scalar_string)
-                    {
-                        error_interrupt(__error_value_type_when_calling_vector,iter->get_children().front().get_children().front().get_node_line());
-                        return -1;
-                    }
-                    if(num2_addr>=0
-                        && (nasal_gc.get_scalar(num2_addr).get_type()!=scalar_number
-                        && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_string
-                        && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_nil))
-                    {
-                        error_interrupt(__error_value_type_when_calling_vector,iter->get_children().front().get_children().back().get_node_line());
-                        return -1;
-                    }
-                    if(nasal_gc.get_scalar(num1_addr).get_type()==scalar_string)
-                    {
-                        if(check_numerable_string(nasal_gc.get_scalar(num1_addr).get_string().get_string()))
-                        {
-                            double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num1_addr).get_string().get_string());
-                            if(tmp_num<0)
-                            {
-                                error_interrupt(__special_call_vector_negative_value,iter->get_children().front().get_children().front().get_node_line());
-                                return -1;
-                            }
-                            nasal_gc.reference_delete(num1_addr);
-                            num1_addr=nasal_gc.gc_alloc();
-                            nasal_gc.get_scalar(num1_addr).set_type(scalar_number);
-                            nasal_gc.get_scalar(num1_addr).get_number().set_number(tmp_num);
-                        }
-                        else
-                        {
-                            error_interrupt(__not_numerable_str,iter->get_children().front().get_children().front().get_node_line());
-                            return -1;
-                        }
-                    }
-                    if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_type()==scalar_string)
-                    {
-                        if(check_numerable_string(nasal_gc.get_scalar(num2_addr).get_string().get_string()))
-                        {
-                            double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num2_addr).get_string().get_string());
-                            if(tmp_num<0)
-                            {
-                                error_interrupt(__special_call_vector_negative_value,iter->get_children().front().get_children().back().get_node_line());
-                                return -1;
-                            }
-                            nasal_gc.reference_delete(num2_addr);
-                            num2_addr=nasal_gc.gc_alloc();
-                            nasal_gc.get_scalar(num2_addr).set_type(scalar_number);
-                            nasal_gc.get_scalar(num2_addr).get_number().set_number(tmp_num);
-                        }
-                        else
-                        {
-                            error_interrupt(__not_numerable_str,iter->get_children().front().get_children().back().get_node_line());
-                            return -1;
-                        }
-                    }
-                    if(nasal_gc.get_scalar(num1_addr).get_number().get_number()>2147483647)
-                    {
-                        error_interrupt(__special_call_vector_too_large_value,iter->get_children().front().get_children().front().get_node_line());
-                        return -1;
-                    }
-                    if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_number().get_number()>2147483647)
-                    {
-                        error_interrupt(__special_call_vector_too_large_value,iter->get_children().front().get_children().back().get_node_line());
-                        return -1;
-                    }
-                    int begin_num=(int)nasal_gc.get_scalar(num1_addr).get_number().get_number();
-                    int end_num=0;
-                    if(num2_addr<0 || nasal_gc.get_scalar(num2_addr).get_type()==scalar_nil)
-                    {
-                        if(!assigned_addr && tmp_subvec_addr.size())
-                            end_num=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_vector().get_size();
-                        else if(assigned_addr)
-                            end_num=nasal_gc.get_scalar(*assigned_addr).get_vector().get_size();
-                    }
-                    else
-                        end_num=(int)nasal_gc.get_scalar(num2_addr).get_number().get_number();
-                    if(num1_addr>=0)
-                        nasal_gc.reference_delete(num1_addr);
-                    if(num2_addr>=0)
-                        nasal_gc.reference_delete(num2_addr);
-                    std::vector<int> subvec_result;
-                    for(int i=begin_num;i<end_num;++i)
-                    {
-                        // addr used here
-                        int tmp_data_addr=-1;
-                        if(!assigned_addr && tmp_subvec_addr.size())
-                            tmp_data_addr=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_vector().get_elem(i);
-                        else if(assigned_addr)
-                            tmp_data_addr=nasal_gc.get_scalar(*assigned_addr).get_vector().get_elem(i);
-                        int new_addr=-1;
-                        if(tmp_data_addr<0)
-                        {
-                            error_interrupt(__invalid_vector_member,iter->get_children().front().get_children().front().get_node_line());
-                            return -1;
-                        }
-                        switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                                break;
-                            case scalar_vector:
-                            case scalar_hash:
-                                new_addr=tmp_data_addr;
-                                nasal_gc.reference_add(new_addr);
-                                break;
-                        }
-                        subvec_result.push_back(new_addr);
-                    }
-                    int tmp_addr=nasal_gc.gc_alloc();
-                    nasal_gc.get_scalar(tmp_addr).set_type(scalar_vector);
-                    for(int i=0;i<subvec_result.size();++i)
-                        nasal_gc.get_scalar(tmp_addr).get_vector().vec_push(subvec_result[i]);
-                    tmp_subvec_addr.push_back(tmp_addr);
-                    assigned_addr=NULL;
-                }// end sub-vector
-                else
-                {
-                    // normal vector/hash calling
-                    int tmp_data_addr=calculation(local_scope,iter->get_children().front());
-                    if(tmp_data_addr<0)
-                        return -1;
-                    if(nasal_gc.get_scalar(tmp_data_addr).get_type()!=scalar_number && nasal_gc.get_scalar(tmp_data_addr).get_type()!=scalar_string)
-                    {
-                        error_interrupt(__error_value_type_when_calling_vector,iter->get_children().front().get_node_line());
-                        return -1;
-                    }
-                    if(called_type==scalar_vector)
-                    {
-                        double place_num=0;
-                        if(nasal_gc.get_scalar(tmp_data_addr).get_type()==scalar_string)
-                        {
-                            if(check_numerable_string(nasal_gc.get_scalar(tmp_data_addr).get_string().get_string()))
-                                place_num=(int)trans_string_to_number(nasal_gc.get_scalar(tmp_data_addr).get_string().get_string());
-                            else
-                            {
-                                error_interrupt(__not_numerable_str,iter->get_children().front().get_node_line());
-                                return -1;
-                            }
-                        }
-                        else if(nasal_gc.get_scalar(tmp_data_addr).get_type()==scalar_number)
-                            place_num=nasal_gc.get_scalar(tmp_data_addr).get_number().get_number();
-                        if(place_num>2147483647 || place_num<-2147483648)
-                        {
-                            error_interrupt(__normal_call_vector_too_large_value,iter->get_children().front().get_node_line());
-                            return -1;
-                        }
-                        if(!assigned_addr && tmp_subvec_addr.size())
-                            assigned_addr=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_vector().get_elem_addr((int)place_num);
-                        else if(assigned_addr)
-                            assigned_addr=nasal_gc.get_scalar(*assigned_addr).get_vector().get_elem_addr((int)place_num);
-                        if(!assigned_addr)
-                        {
-                            error_interrupt(__invalid_vector_member,iter->get_children().front().get_node_line());
-                            return -1;
-                        }
-                    }
-                    else if(called_type==scalar_hash)
-                    {
-                        if(nasal_gc.get_scalar(tmp_data_addr).get_type()!=scalar_string)
-                        {
-                            error_interrupt(__error_value_type_when_calling_hash,iter->get_children().front().get_node_line());
-                            return -1;
-                        }
-                        // only subvec's addr is stored in tmp_subvec_addr
-                        // so hash doesn't need to do this
-                        assigned_addr=nasal_gc.get_scalar(*assigned_addr).get_hash().get_hash_member_addr(nasal_gc.get_scalar(tmp_data_addr).get_string().get_string());
-                        if(!assigned_addr)
-                        {
-                            error_interrupt(__invalid_hash_member,iter->get_children().front().get_node_line());
-                            return -1;
-                        }
-                    }
-                    nasal_gc.reference_delete(tmp_data_addr);
-                }
-            }
-            else if(iter->get_children().size()>1)
-            {
-                int generated_subvec_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(generated_subvec_addr).set_type(scalar_vector);
-                for(std::list<abstract_syntax_tree>::iterator i=iter->get_children().begin();i!=iter->get_children().end();++i)
-                {
-                    if(i->get_node_type()==__sub_vector)
-                    {
-                        if(called_type==scalar_hash)
-                        {
-                            error_interrupt(__not_callable_vector,i->get_node_line());
-                            return -1;
-                        }
-                        int num1_addr=-1;
-                        int num2_addr=-1;
-                        // identifier[num1:];
-                        if(i->get_children().size()==1)
-                        {
-                            num1_addr=calculation(local_scope,i->get_children().front());
-                            if(num1_addr<0)
-                                return -1;
-                        }
-                        // identifier[num1:num2];
-                        else
-                        {
-                            num1_addr=calculation(local_scope,i->get_children().front());
-                            num2_addr=calculation(local_scope,i->get_children().back());
-                            if(num1_addr<0 || num2_addr<0)
-                                return -1;
-                        }
-                        if(nasal_gc.get_scalar(num1_addr).get_type()!=scalar_number
-                            && nasal_gc.get_scalar(num1_addr).get_type()!=scalar_string)
-                        {
-                            error_interrupt(__error_value_type_when_calling_vector,i->get_children().front().get_node_line());
-                            return -1;
-                        }
-                        if(num2_addr>=0
-                            && (nasal_gc.get_scalar(num2_addr).get_type()!=scalar_number
-                            && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_string
-                            && nasal_gc.get_scalar(num2_addr).get_type()!=scalar_nil))
-                        {
-                            error_interrupt(__error_value_type_when_calling_vector,i->get_children().back().get_node_line());
-                            return -1;
-                        }
-                        if(nasal_gc.get_scalar(num1_addr).get_type()==scalar_string)
-                        {
-                            if(check_numerable_string(nasal_gc.get_scalar(num1_addr).get_string().get_string()))
-                            {
-                                double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num1_addr).get_string().get_string());
-                                if(tmp_num<0)
-                                {
-                                    error_interrupt(__special_call_vector_negative_value,i->get_children().front().get_node_line());
-                                    return -1;
-                                }
-                                nasal_gc.reference_delete(num1_addr);
-                                num1_addr=nasal_gc.gc_alloc();
-                                nasal_gc.get_scalar(num1_addr).set_type(scalar_number);
-                                nasal_gc.get_scalar(num1_addr).get_number().set_number(tmp_num);
-                            }
-                            else
-                            {
-                                error_interrupt(__not_numerable_str,i->get_children().front().get_node_line());
-                                return -1;
-                            }
-                        }
-                        if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_type()==scalar_string)
-                        {
-                            if(check_numerable_string(nasal_gc.get_scalar(num2_addr).get_string().get_string()))
-                            {
-                                double tmp_num=trans_string_to_number(nasal_gc.get_scalar(num2_addr).get_string().get_string());
-                                if(tmp_num<0)
-                                {
-                                    error_interrupt(__special_call_vector_negative_value,i->get_children().back().get_node_line());
-                                    return -1;
-                                }
-                                nasal_gc.reference_delete(num2_addr);
-                                num2_addr=nasal_gc.gc_alloc();
-                                nasal_gc.get_scalar(num2_addr).set_type(scalar_number);
-                                nasal_gc.get_scalar(num2_addr).get_number().set_number(tmp_num);
-                            }
-                            else
-                            {
-                                error_interrupt(__not_numerable_str,i->get_children().back().get_node_line());
-                                return -1;
-                            }
-                        }
-                        if(nasal_gc.get_scalar(num1_addr).get_number().get_number()>2147483647)
-                        {
-                            error_interrupt(__special_call_vector_too_large_value,i->get_children().front().get_node_line());
-                            return -1;
-                        }
-                        if(num2_addr>=0 && nasal_gc.get_scalar(num2_addr).get_number().get_number()>2147483647)
-                        {
-                            error_interrupt(__special_call_vector_too_large_value,i->get_children().back().get_node_line());
-                            return -1;
-                        }
-                        int begin_num=(int)nasal_gc.get_scalar(num1_addr).get_number().get_number();
-                        int end_num=0;
-                        if(num2_addr<0 || nasal_gc.get_scalar(num2_addr).get_type()==scalar_nil)
-                        {
-                            if(!assigned_addr && tmp_subvec_addr.size())
-                                end_num=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_vector().get_size();
-                            else if(assigned_addr)
-                                end_num=nasal_gc.get_scalar(*assigned_addr).get_vector().get_size();
-                        }
-                        else
-                            end_num=(int)nasal_gc.get_scalar(num2_addr).get_number().get_number();
-                        if(num1_addr>=0)
-                            nasal_gc.reference_delete(num1_addr);
-                        if(num2_addr>=0)
-                            nasal_gc.reference_delete(num2_addr);
-                        std::vector<int> subvec_result;
-                        for(int j=begin_num;j<end_num;++j)
-                        {
-                            // addr used here
-                            int tmp_data_addr=-1;
-                            if(!assigned_addr && tmp_subvec_addr.size())
-                                tmp_data_addr=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_vector().get_elem(j);
-                            else if(assigned_addr)
-                                tmp_data_addr=nasal_gc.get_scalar(*assigned_addr).get_vector().get_elem(j);
-                            
-                            if(tmp_data_addr<0)
-                            {
-                                error_interrupt(__invalid_vector_member,i->get_children().front().get_node_line());
-                                return -1;
-                            }
-                            int new_addr=-1;
-                            switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                                    break;
-                                case scalar_vector:
-                                case scalar_hash:
-                                    new_addr=tmp_data_addr;
-                                    nasal_gc.reference_add(new_addr);
-                                    break;
-                            }
-                            subvec_result.push_back(new_addr);
-                        }
-                        for(int j=0;j<subvec_result.size();++j)
-                            nasal_gc.get_scalar(generated_subvec_addr).get_vector().vec_push(subvec_result[j]);
-                    }// end sub-vector
-                    else
-                    {
-                        // normal vector calling
-                        int data_addr=calculation(local_scope,*i);
-                        if(data_addr<0) return -1;
-                        if(nasal_gc.get_scalar(data_addr).get_type()!=scalar_number && nasal_gc.get_scalar(data_addr).get_type()!=scalar_string)
-                        {
-                            error_interrupt(__error_value_type_when_calling_vector,i->get_node_line());
-                            return -1;
-                        }
-                        double place_num=0;
-                        if(nasal_gc.get_scalar(data_addr).get_type()==scalar_string)
-                        {
-                            if(check_numerable_string(nasal_gc.get_scalar(data_addr).get_string().get_string()))
-                                place_num=(int)trans_string_to_number(nasal_gc.get_scalar(data_addr).get_string().get_string());
-                            else
-                            {
-                                error_interrupt(__not_numerable_str,i->get_node_line());
-                                return -1;
-                            }
-                        }
-                        else if(nasal_gc.get_scalar(data_addr).get_type()==scalar_number)
-                            place_num=nasal_gc.get_scalar(data_addr).get_number().get_number();
-                        if(place_num>2147483647 || place_num<-2147483648)
-                        {
-                            error_interrupt(__normal_call_vector_too_large_value,i->get_node_line());
-                            return -1;
-                        }
-                        int tmp_data_addr=-1;
-                        if(!assigned_addr && tmp_subvec_addr.size())
-                            tmp_data_addr=nasal_gc.get_scalar(tmp_subvec_addr.back()).get_vector().get_elem((int)place_num);
-                        else if(assigned_addr)
-                            tmp_data_addr=nasal_gc.get_scalar(*assigned_addr).get_vector().get_elem((int)place_num);
-                        if(tmp_data_addr<0)
-                        {
-                            error_interrupt(__invalid_vector_member,i->get_node_line());
-                            return -1;
-                        }
-                        int new_addr=-1;
-                        switch(nasal_gc.get_scalar(tmp_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(tmp_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(tmp_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(tmp_data_addr).get_function());
-                                break;
-                            case scalar_vector:
-                            case scalar_hash:
-                                new_addr=tmp_data_addr;
-                                nasal_gc.reference_add(new_addr);
-                                break;
-                        }
-                        nasal_gc.get_scalar(generated_subvec_addr).get_vector().vec_push(new_addr);
-                        nasal_gc.reference_delete(data_addr);
-                    }
-                }
-                tmp_subvec_addr.push_back(generated_subvec_addr);
-                assigned_addr=NULL;
-            }
-        }// end call vector
-        // call hash identifier.identifier
-        else if(iter->get_node_type()==__call_hash)
-        {
-            if(nasal_gc.get_scalar(*assigned_addr).get_type()!=scalar_hash)
-            {
-                error_interrupt(__not_callable_hash,iter->get_node_line());
-                return -1;
-            }
-            assigned_addr=nasal_gc.get_scalar(*assigned_addr).get_hash().get_hash_member_addr(iter->get_var_name());
-            if(!assigned_addr)
-            {
-                error_interrupt(__invalid_hash_member,iter->get_node_line());
-                return -1;
-            }
-        }// end call hash
-        // call function identifier(...)
-        else if(iter->get_node_type()==__call_function)
-        {
-            error_interrupt(__function_returned_value_be_assigned,iter->get_node_line());
-            return -1;
-        }
-    }
-    if(assigned_addr)
-    {
-        // delete the value that assigned_addr points to and update it with a new one
-        nasal_gc.reference_delete(*assigned_addr);
-        switch(nasal_gc.get_scalar(used_data_addr).get_type())
-        {
-            case scalar_nil:
-                *assigned_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(*assigned_addr).set_type(scalar_nil);
-                break;
-            case scalar_number:
-                *assigned_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(*assigned_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(*assigned_addr).get_number().deep_copy(nasal_gc.get_scalar(used_data_addr).get_number());
-                break;
-            case scalar_string:
-                *assigned_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(*assigned_addr).set_type(scalar_string);
-                nasal_gc.get_scalar(*assigned_addr).get_string().deep_copy(nasal_gc.get_scalar(used_data_addr).get_string());
-                break;
-            case scalar_function:
-                *assigned_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(*assigned_addr).set_type(scalar_function);
-                nasal_gc.get_scalar(*assigned_addr).get_function().deep_copy(nasal_gc.get_scalar(used_data_addr).get_function());
-                break;
-            case scalar_vector:
-            case scalar_hash:
-                *assigned_addr=used_data_addr;
-                nasal_gc.reference_add(used_data_addr);
-                break;
-        }
-    }
-    else
-    {
-        error_interrupt(__subvec_value_be_assigned,node.get_children().back().get_node_line());
-        return -1;
-    }
-    /*
-        assigned_addr=find_address();
-        while(children.size())
-        {
-            assigned_addr=new_addr();
-        }
-        *assigned_addr->refcnt--;
-        *assigned_addr=new_value_addr;
-    */
-    // data_addr is only a parameter here,and it's refcnt has not been changed when using it here
-    nasal_gc.reference_add(*assigned_addr);
-    for(int i=0;i<tmp_subvec_addr.size();++i)
-        nasal_gc.reference_delete(tmp_subvec_addr[i]);
-    return *assigned_addr;
-}
-int nasal_runtime::call_identifier(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    int addr=-1;
-    std::string tmp_id_name=node.get_var_name();
-    if(global_scope.find(tmp_id_name)!=global_scope.end())
-        addr=global_scope[tmp_id_name];
-    for(std::list<std::map<std::string,int> >::iterator iter=local_scope.begin();iter!=local_scope.end();++iter)
-        if(iter->find(tmp_id_name)!=iter->end())
-            addr=(*iter)[tmp_id_name];
-    if(addr>0 && !nasal_gc.get_reference(addr))
-    {
-        std::cout<<">> [Runtime] line "<<node.get_node_line()<<": \'"<<tmp_id_name<<"\' has 0 reference ,address: ";
-        prt_hex(addr);
-        std::cout<<std::endl;
-        return -1;
-    }
-    if(addr<0)
-    {
-        // built in function call only needs local_scope and function name
-        // because all the built in functions are wraped in lib functions that can be found in global scope
-        // you cannot use built in functions without wraping it in a function that written by yourself
-        addr=builtin_function(local_scope,tmp_id_name);
-        if(addr>=0) return addr;
-    }
-    if(addr<0)
-    {
-        error_interrupt(__undefined_identifier,node.get_node_line());
-        return -1;
-    }
-    int last_hash_addr=-1;
-    // after calculation or assignment/definition,reference counter of this address will -1
-    // to avoid nasal_gc collecting this address,reference counter+1 here
-    nasal_gc.reference_add(addr);
-    for(std::list<abstract_syntax_tree>::iterator iter=node.get_children().begin();iter!=node.get_children().end();++iter)
-    {
-        if(nasal_gc.get_scalar(addr).get_type()==scalar_hash)
-        {
-            int tmp_hash_addr=last_hash_addr;
-            last_hash_addr=addr;
-            nasal_gc.reference_add(last_hash_addr);
-            if(tmp_hash_addr>=0)
-                nasal_gc.reference_delete(tmp_hash_addr);
-        }
-        // call vector/special call hash/subvec
-        // the special type of calling hash like a["name"] is also generated as calling vector
-        if(iter->get_node_type()==__call_vector)
-            addr=bracket_call_vector(local_scope,iter,addr);
-        // call hash identifier.identifier
-        else if(iter->get_node_type()==__call_hash)
-            addr=dot_call_hash(local_scope,iter,addr);
-        // call function identifier(...)
-        else if(iter->get_node_type()==__call_function)
-            addr=call_function(local_scope,iter,addr,last_hash_addr);
-        if(addr<0) break;
-    }
-    return addr;
-}
-void nasal_runtime::definition(std::list<std::map<std::string,int> >&local_scope,std::map<std::string,int>& now_scope,abstract_syntax_tree& node)
-{
-    if(node.get_children().front().get_node_type()==__multi_id)
-    {
-        std::vector<std::string> id_names;
-        for(std::list<abstract_syntax_tree>::iterator i=node.get_children().front().get_children().begin();i!=node.get_children().front().get_children().end();++i)
-            id_names.push_back(i->get_var_name());
-        int child_node_type=node.get_children().back().get_node_type();
-        if(child_node_type==__multi_scalar)
-        {
-            std::vector<int> data_addrs;
-            for(std::list<abstract_syntax_tree>::iterator i=node.get_children().back().get_children().begin();i!=node.get_children().back().get_children().end();++i)
-            {
-                int new_addr=calculation(local_scope,*i);
-                if(new_addr<0) return;
-                data_addrs.push_back(new_addr);
-            }
-            if(data_addrs.size()!=id_names.size())
-            {
-                error_interrupt(__multi_define_incorrect_value_number,node.get_children().back().get_node_line());
-                return;
-            }
-            for(int i=0;i<id_names.size();++i)
-            {
-                int new_data_addr=-1;
-                switch(nasal_gc.get_scalar(data_addrs[i]).get_type())
-                {
-                    case scalar_nil:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_nil);
-                        break;
-                    case scalar_number:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_number);
-                        nasal_gc.get_scalar(new_data_addr).get_number().deep_copy(nasal_gc.get_scalar(data_addrs[i]).get_number());
-                        break;
-                    case scalar_string:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_string);
-                        nasal_gc.get_scalar(new_data_addr).get_string().deep_copy(nasal_gc.get_scalar(data_addrs[i]).get_string());
-                        break;
-                    case scalar_function:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_function);
-                        nasal_gc.get_scalar(new_data_addr).get_function().deep_copy(nasal_gc.get_scalar(data_addrs[i]).get_function());
-                        break;
-                    case scalar_vector:
-                    case scalar_hash:
-                        new_data_addr=data_addrs[i];
-                        nasal_gc.reference_add(data_addrs[i]);
-                        break;
-                }
-                now_scope[id_names[i]]=new_data_addr;
-            }
-            for(int i=0;i<data_addrs.size();++i)
-                nasal_gc.reference_delete(data_addrs[i]);
-        }
-        else
-        {
-            int data_addr=calculation(local_scope,node.get_children().back());
-            if(data_addr<0) return;
-            if(nasal_gc.get_scalar(data_addr).get_type()!=scalar_vector)
-            {
-                error_interrupt(__error_value_type,node.get_children().back().get_node_line());
-                return;
-            }
-            else if(nasal_gc.get_scalar(data_addr).get_vector().get_size()!=id_names.size())
-            {
-                error_interrupt(__multi_define_incorrect_value_number,node.get_children().back().get_node_line());
-                return;
-            }
-            for(int i=0;i<id_names.size();++i)
-            {
-                int new_data_addr=-1;
-                int vector_member_addr=nasal_gc.get_scalar(data_addr).get_vector().get_elem(i);
-                if(vector_member_addr<0)
-                {
-                    error_interrupt(__invalid_vector_member,node.get_children().back().get_node_line());
-                    return;
-                }
-                switch(nasal_gc.get_scalar(vector_member_addr).get_type())
-                {
-                    case scalar_nil:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_nil);
-                        break;
-                    case scalar_number:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_number);
-                        nasal_gc.get_scalar(new_data_addr).get_number().deep_copy(nasal_gc.get_scalar(vector_member_addr).get_number());
-                        break;
-                    case scalar_string:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_string);
-                        nasal_gc.get_scalar(new_data_addr).get_string().deep_copy(nasal_gc.get_scalar(vector_member_addr).get_string());
-                        break;
-                    case scalar_function:
-                        new_data_addr=nasal_gc.gc_alloc();
-                        nasal_gc.get_scalar(new_data_addr).set_type(scalar_function);
-                        nasal_gc.get_scalar(new_data_addr).get_function().deep_copy(nasal_gc.get_scalar(vector_member_addr).get_function());
-                        break;
-                    case scalar_vector:
-                    case scalar_hash:
-                        new_data_addr=vector_member_addr;
-                        nasal_gc.reference_add(vector_member_addr);
-                        break;
-                }
-                now_scope[id_names[i]]=new_data_addr;
-            }
-            nasal_gc.reference_delete(data_addr);
-        }
-    }
-    else
-    {
-        std::string id_name=node.get_children().front().get_var_name();
-        int data_addr=calculation(local_scope,node.get_children().back());
-        if(data_addr<0)
-            return;
-        int new_data_addr=-1;
-        switch(nasal_gc.get_scalar(data_addr).get_type())
-        {
-            case scalar_nil:
-                new_data_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(new_data_addr).set_type(scalar_nil);
-                break;
-            case scalar_number:
-                new_data_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(new_data_addr).set_type(scalar_number);
-                nasal_gc.get_scalar(new_data_addr).get_number().deep_copy(nasal_gc.get_scalar(data_addr).get_number());
-                break;
-            case scalar_string:
-                new_data_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(new_data_addr).set_type(scalar_string);
-                nasal_gc.get_scalar(new_data_addr).get_string().deep_copy(nasal_gc.get_scalar(data_addr).get_string());
-                break;
-            case scalar_function:
-                new_data_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(new_data_addr).set_type(scalar_function);
-                nasal_gc.get_scalar(new_data_addr).get_function().deep_copy(nasal_gc.get_scalar(data_addr).get_function());
-                break;
-            case scalar_vector:
-            case scalar_hash:
-                new_data_addr=data_addr;
-                nasal_gc.reference_add(new_data_addr);
-                break;
-        }
-        nasal_gc.reference_delete(data_addr);
-        if(now_scope.find(id_name)!=now_scope.end())
-            nasal_gc.reference_delete(now_scope[id_name]);
-        now_scope[id_name]=new_data_addr;
-    }
-    return;
-}
-int nasal_runtime::loop_expr(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    std::map<std::string,int> new_scope;
-    local_scope.push_back(new_scope);
-    int loop_type=node.get_node_type();
-    int state=__state_no_operation;
-    if(loop_type==__while)
-    {
-        while(check_condition(local_scope,node.get_children().front()))
-        {
-            state=block_proc(local_scope,node.get_children().back());
-            if(state==__state_break || state==__state_return || state==__state_error)
-                break;
-        }
-    }
-    else if(loop_type==__foreach)
-    {
-        // foreach(i;vector)
-        // foreach gives elements in the vector to the identifier 'i' and the 'i' will take part in calculation
-        std::list<abstract_syntax_tree>::iterator iter=node.get_children().begin();
-        abstract_syntax_tree& assignment_ast=*iter;// definition/assignment
-        if(iter->get_node_type()==__definition)
-        {
-            std::string identifier_name=iter->get_children().front().get_var_name();
-            int new_identifier_addr=nasal_gc.gc_alloc();
-            local_scope.back()[identifier_name]=new_identifier_addr;
-            nasal_gc.get_scalar(new_identifier_addr).set_type(scalar_nil);
-            assignment_ast=iter->get_children().front();
-        }
-        else
-            assignment_ast=*iter;
-        ++iter;
-        int vec_addr=calculation(local_scope,*iter);
-        if(vec_addr<0)
-            return __state_error;
-        if(nasal_gc.get_scalar(vec_addr).get_type()!=scalar_vector)
-        {
-            error_interrupt(__forindex_foreach_not_vector,iter->get_node_line());
-            return __state_error;
-        }
-        ++iter;
-        for(int i=0;i<nasal_gc.get_scalar(vec_addr).get_vector().get_size();++i)
-        {
-            int now_step_elem_addr=nasal_gc.get_scalar(vec_addr).get_vector().get_elem(i);
-            int tmp_val=assignment(local_scope,assignment_ast,now_step_elem_addr);
-            if(tmp_val>=0)
-                nasal_gc.reference_delete(tmp_val);
-            state=block_proc(local_scope,*iter);
-            if(state==__state_break || state==__state_return || state==__state_error)
-                break;
-        }
-        nasal_gc.reference_delete(vec_addr);
-    }
-    else if(loop_type==__forindex)
-    {
-        // forindex(i;vector)
-        // forindex gives the index of elements in the vector to identifier 'i'
-        // and the 'i' will take part in the calculation
-        std::list<abstract_syntax_tree>::iterator iter=node.get_children().begin();
-        abstract_syntax_tree& assignment_ast=*iter;// definition/assignment
-        if(iter->get_node_type()==__definition)
-        {
-            std::string identifier_name=iter->get_children().front().get_var_name();
-            int new_identifier_addr=nasal_gc.gc_alloc();
-            local_scope.back()[identifier_name]=new_identifier_addr;
-            nasal_gc.get_scalar(new_identifier_addr).set_type(scalar_number);
-            nasal_gc.get_scalar(new_identifier_addr).get_number().set_number(0);
-            assignment_ast=iter->get_children().front();
-        }
-        else
-            assignment_ast=*iter;
-        ++iter;
-        int vec_addr=calculation(local_scope,*iter);
-        if(vec_addr<0)
-            return __state_error;
-        if(nasal_gc.get_scalar(vec_addr).get_type()!=scalar_vector)
-        {
-            error_interrupt(__forindex_foreach_not_vector,iter->get_node_line());
-            return __state_error;
-        }
-        ++iter;
-        for(int i=0;i<nasal_gc.get_scalar(vec_addr).get_vector().get_size();++i)
-        {
-            int tmp_addr=nasal_gc.gc_alloc();
-            nasal_gc.get_scalar(tmp_addr).set_type(scalar_number);
-            nasal_gc.get_scalar(tmp_addr).get_number().set_number((double)i);
-            int tmp_val=assignment(local_scope,assignment_ast,tmp_addr);
-            if(tmp_val>=0)
-                nasal_gc.reference_delete(tmp_val);
-            nasal_gc.reference_delete(tmp_addr);
-            state=block_proc(local_scope,*iter);
-            if(state==__state_break || state==__state_return || state==__state_error)
-                break;
-        }
-        nasal_gc.reference_delete(vec_addr);
-    }
-    else if(loop_type==__for)
-    {
-        std::list<abstract_syntax_tree>::iterator iter=node.get_children().begin();
-        if(iter->get_node_type()!=__null_type)
-            definition(local_scope,local_scope.back(),*iter);
-        // definition before loop
-        ++iter; std::list<abstract_syntax_tree>::iterator condition_iterator=iter;
-        // conditional
-        ++iter; std::list<abstract_syntax_tree>::iterator step_iterator=iter;
-        // step length
-        ++iter; std::list<abstract_syntax_tree>::iterator block_proc_iterator=iter;
-        // run block
-        while(check_condition(local_scope,*condition_iterator))
-        {
-            state=block_proc(local_scope,*block_proc_iterator);
-            if(state==__state_break || state==__state_return || state==__state_error)
-                break;
-            // step update here
-            if(step_iterator->get_node_type()!=__null_type)
-            {
-                int assign_addr=calculation(local_scope,*step_iterator);
-                if(assign_addr<0)
-                {
-                    state=__state_error;
-                    break;
-                }
-                nasal_gc.reference_delete(assign_addr);
-            }
-        }
-    }
-    for(std::map<std::string,int>::iterator i=local_scope.back().begin();i!=local_scope.back().end();++i)
-        nasal_gc.reference_delete(i->second);
-    local_scope.pop_back();
-    return state;
-}
-int nasal_runtime::conditional(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    int ret_state=__state_no_operation;
-    std::map<std::string,int> new_scope;
-    local_scope.push_back(new_scope);
-    for(std::list<abstract_syntax_tree>::iterator i=node.get_children().begin();i!=node.get_children().end();++i)
-    {
-        int condition_node_type=i->get_node_type();
-        if(condition_node_type==__if || condition_node_type==__elsif)
-        {
-            if(check_condition(local_scope,i->get_children().front()))
-            {
-                int state=block_proc(local_scope,i->get_children().back());
-                ret_state=state;
-                break;
-            }
-        }
-        else
-        {
-            int state=block_proc(local_scope,i->get_children().front());
-            ret_state=state;
-            break;
-        }
-    }
-    for(std::map<std::string,int>::iterator i=local_scope.back().begin();i!=local_scope.back().end();++i)
-        nasal_gc.reference_delete(i->second);
-    local_scope.pop_back();
-    return ret_state;
-}
-int nasal_runtime::block_proc(std::list<std::map<std::string,int> >& local_scope,abstract_syntax_tree& node)
-{
-    int state=__state_no_operation;
-    int closure_addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(closure_addr).set_type(scalar_closure);
-    std::vector<int> assignedfunc_addrs;
-    for(std::list<abstract_syntax_tree>::iterator iter=node.get_children().begin();iter!=node.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)
-        {
-            int addr=this->call_identifier(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__vector)
-        {
-            int addr=this->vector_generation(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__hash)
-        {
-            int addr=this->hash_generation(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__function)
-        {
-            int addr=this->function_generation(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        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 ||
-                node_type==__equal || node_type==__add_equal || node_type==__sub_equal || node_type==__div_equal || node_type==__mul_equal || node_type==__link_equal)
-        {
-            int addr=this->calculation(local_scope,*iter);
-            if(addr>=0)
-            {
-                if(nasal_gc.get_scalar(addr).get_type()==scalar_function) assignedfunc_addrs.push_back(addr);
-                nasal_gc.reference_delete(addr);
-            }
-        }
-        else if(node_type==__definition)
-            this->definition(local_scope,local_scope.back(),*iter);
-        else if(node_type==__conditional)
-            state=this->conditional(local_scope,*iter);
-        else if((node_type==__while) || (node_type==__for) || (node_type==__foreach) || (node_type==__forindex))
-            state=this->loop_expr(local_scope,*iter);
-        else if(node_type==__return)
-        {
-            if(!iter->get_children().size())
-            {
-                function_returned_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(function_returned_addr).set_type(scalar_nil);
-            }
-            else function_returned_addr=calculation(local_scope,iter->get_children().front());
-            state=__state_return;
-        }
-        if(runtime_error_exit_mark>=0)
-        {
-            state=__state_error;
-            break;
-        }
-        if(state==__state_break || state==__state_continue || state==__state_return || state==__state_error)
-            break;
-    }
-    // update_closure
-    nasal_gc.get_scalar(closure_addr).get_closure().set_local_scope(local_scope);
-    update_closure(assignedfunc_addrs,closure_addr);
-    nasal_gc.reference_delete(closure_addr);
-    return state;
-}
-int nasal_runtime::func_proc(
-    std::list<std::map<std::string,int> >& parameters_assist_scope,// scope that used to generate parameters
-    std::list<std::map<std::string,int> >& local_scope,// running scope,often gets the scope that calls it
-    abstract_syntax_tree& parameter_list,              // parameter list format of nasal function
-    abstract_syntax_tree& func_root,                   // main runnning block of nasal function
-    abstract_syntax_tree& input_parameters,            // input parameters when calling this nasal function
-    int called_hash_addr                               // if called a hash before calling this nasal function,this address will be given to 'me'
-)
-{
-    // local scope should not used as reference
-    // because this will change the elements in scalar_function value itself
-    // if you call the same function in the function,the scope will be in a mess
-    function_returned_addr=-1;
-    std::map<std::string,int> new_scope;
-    // new_scope will be used in parameters initialling process
-    // if push back this scope to local_scope
-    // there may be an error if an identifier has the same name as one identifier in the local_scope before
-
-    if(called_hash_addr>=0)
-    {
-        new_scope["me"]=called_hash_addr;
-        nasal_gc.reference_add(called_hash_addr);
-    }
-    // loading parameters
-    std::vector<std::string> para_name_list;
-    int dynamic_args=-1;
-    for(std::list<abstract_syntax_tree>::iterator iter=parameter_list.get_children().begin();iter!=parameter_list.get_children().end();++iter)
-    {
-        if(iter->get_node_type()==__id)
-        {
-            para_name_list.push_back(iter->get_var_name());
-            new_scope[para_name_list.back()]=-1;
-        }
-        else if(iter->get_node_type()==__default_parameter)
-        {
-            para_name_list.push_back(iter->get_children().front().get_var_name());
-            int default_val_addr=calculation(parameters_assist_scope,iter->get_children().back());
-            if(default_val_addr<0)
-                return -1;
-            new_scope[para_name_list.back()]=default_val_addr;
-        }
-        else if(iter->get_node_type()==__dynamic_id)
-        {
-            dynamic_args=nasal_gc.gc_alloc();
-            nasal_gc.get_scalar(dynamic_args).set_type(scalar_vector);
-            new_scope[iter->get_var_name()]=dynamic_args;
-            break;
-        }
-    }
-    if(!input_parameters.get_children().empty() && input_parameters.get_children().front().get_node_type()!=__special_parameter)
-    {
-        int tmp_ptr=0;
-        for(std::list<abstract_syntax_tree>::iterator iter=input_parameters.get_children().begin();iter!=input_parameters.get_children().end();++iter)
-        {
-            if(tmp_ptr>=para_name_list.size())
-            {
-                if(dynamic_args>=0)
-                {
-                    int val_addr=calculation(parameters_assist_scope,*iter);
-                    if(val_addr<0)
-                        return -1;
-                    nasal_gc.get_scalar(dynamic_args).get_vector().vec_push(val_addr);
-                }
-                else
-                    break;
-            }
-            else
-            {
-                int val_addr=calculation(parameters_assist_scope,*iter);
-                if(val_addr<0)
-                    return -1;
-                if(new_scope[para_name_list[tmp_ptr]]<0)
-                    new_scope[para_name_list[tmp_ptr]]=val_addr;
-                else
-                {
-                    nasal_gc.reference_delete(new_scope[para_name_list[tmp_ptr]]);
-                    new_scope[para_name_list[tmp_ptr]]=val_addr;
-                }
-            }
-            ++tmp_ptr;
-        }
-    }
-    else// special parameter f(a:1,b:2)
-    {
-        for(std::list<abstract_syntax_tree>::iterator iter=input_parameters.get_children().begin();iter!=input_parameters.get_children().end();++iter)
-        {
-            std::string tmp_para_name=iter->get_children().front().get_var_name();
-            if(new_scope.find(tmp_para_name)!=new_scope.end())
-            {
-                int val_addr=calculation(parameters_assist_scope,iter->get_children().back());
-                if(val_addr<0)
-                    return -1;
-                if(new_scope[tmp_para_name]<0)
-                    new_scope[tmp_para_name]=val_addr;
-                else
-                {
-                    nasal_gc.reference_delete(new_scope[tmp_para_name]);
-                    new_scope[tmp_para_name]=val_addr;
-                }
-            }
-        }
-    }
-    for(int i=0;i<para_name_list.size();++i)
-        if(new_scope[para_name_list[i]]<0)
-        {
-            error_interrupt(__call_function_lack_para,input_parameters.get_node_line());
-            return -1;
-        }
-    local_scope.push_back(new_scope);
-    // process
-    int state=__state_no_operation;
-    int closure_addr=nasal_gc.gc_alloc();
-    nasal_gc.get_scalar(closure_addr).set_type(scalar_closure);
-    std::vector<int> assignedfunc_addrs;
-    for(std::list<abstract_syntax_tree>::iterator iter=func_root.get_children().begin();iter!=func_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)
-        {
-            int addr=this->call_identifier(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__vector)
-        {
-            int addr=this->vector_generation(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        } 
-        else if(node_type==__hash)
-        {
-            int addr=this->hash_generation(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__function)
-        {
-            int addr=this->function_generation(local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        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 ||
-                node_type==__equal || node_type==__add_equal || node_type==__sub_equal || node_type==__div_equal || node_type==__mul_equal || node_type==__link_equal)
-        {
-            int addr=this->calculation(local_scope,*iter);
-            if(addr>=0)
-            {
-                if(nasal_gc.get_scalar(addr).get_type()==scalar_function) assignedfunc_addrs.push_back(addr);
-                nasal_gc.reference_delete(addr);
-            }
-        }
-        else if(node_type==__definition)
-            this->definition(local_scope,local_scope.back(),*iter);
-        else if(node_type==__conditional)
-            state=this->conditional(local_scope,*iter);
-        else if((node_type==__while) || (node_type==__for) || (node_type==__foreach) || (node_type==__forindex))
-            state=this->loop_expr(local_scope,*iter);
-        else if(node_type==__return)
-        {
-            if(!iter->get_children().size())
-            {
-                function_returned_addr=nasal_gc.gc_alloc();
-                nasal_gc.get_scalar(function_returned_addr).set_type(scalar_nil);
-            }
-            else function_returned_addr=calculation(local_scope,iter->get_children().front());
-            state=__state_return;
-        }
-        if(runtime_error_exit_mark>=0)
-            break;
-        if(state==__state_return)
-            break;
-        else if(state==__state_break)
-        {
-            error_interrupt(__break_not_used_in_loop,iter->get_node_line());
-            return -1;
-        }
-        else if(state==__state_continue)
-        {
-            error_interrupt(__continue_not_used_in_loop,iter->get_node_line());
-            return -1;
-        }
-        else if(state==__state_error)
-            return -1;
-        else if(state==__state_no_operation)
-            ;
-    }
-    if(state!=__state_return)
-    {
-        function_returned_addr=nasal_gc.gc_alloc();
-        nasal_gc.get_scalar(function_returned_addr).set_type(scalar_nil);
-    }
-    // update closure
-    nasal_gc.get_scalar(closure_addr).get_closure().set_local_scope(local_scope);
-    update_closure(assignedfunc_addrs,closure_addr);
-    nasal_gc.reference_delete(closure_addr);
-    for(std::map<std::string,int>::iterator i=local_scope.back().begin();i!=local_scope.back().end();++i)
-        nasal_gc.reference_delete(i->second);
-    local_scope.pop_back();
-    return function_returned_addr;
-}
-int nasal_runtime::builtin_function(std::list<std::map<std::string,int> >& local_scope,std::string func_name)
-{
-    int ret_addr=-1;
-    if(func_name=="nasal_call_builtin_push_back")
-        ret_addr=append(local_scope);
-    else if(func_name=="nasal_call_builtin_set_size")
-        ret_addr=setsize(local_scope);
-    else if(func_name=="nasal_call_builtin_subvec")
-        ret_addr=subvec(local_scope);
-    else if(func_name=="nasal_call_builtin_c_std_puts")
-        ret_addr=print(local_scope);
-    else if(func_name=="nasal_call_builtin_scalar_type")
-        ret_addr=system_type(local_scope);
-    else if(func_name=="nasal_call_builtin_sin")
-        ret_addr=nas_trigfunc(local_scope,0);
-    else if(func_name=="nasal_call_builtin_cos")
-        ret_addr=nas_trigfunc(local_scope,1);
-    else if(func_name=="nasal_call_builtin_tan")
-        ret_addr=nas_trigfunc(local_scope,2);
-    else if(func_name=="nasal_call_builtin_exp")
-        ret_addr=nas_exp(local_scope);
-    // "nasal_call_builtin_contains",
-    // "nasal_call_builtin_delete",
-    // "nasal_call_builtin_trans_int",
-    // "nasal_call_builtin_trans_num",
-    // "nasal_call_builtin_get_keys",
-    // "nasal_call_builtin_pop_back",
-    // "nasal_call_builtin_sizeof",
-    // "nasal_call_builtin_str_cmp_equal",
-    // "nasal_call_builtin_cmp",
-    // "nasal_call_builtin_cpp_sort",
-    // "nasal_call_builtin_substr",
-    // "nasal_call_builtin_sprintf",
-    // "nasal_call_builtin_find_first_occur",
-    // "nasal_call_builtin_split",
-    // "nasal_call_builtin_rand",
-    // "nasal_call_builtin_get_id",
-
-    // "nasal_call_builtin_bitcalc",
-    // "nasal_call_builtin_sbitcalc",
-    // "nasal_call_builtin_setbit",
-    // "nasal_call_builtin_null_string_gen",
-
-    // "nasal_call_builtin_cpp_math_ln",
-    // "nasal_call_builtin_cpp_math_sqrt",
-    // "nasal_call_builtin_cpp_atan2",
-    return ret_addr;
-}
-
-void nasal_runtime::main_proc(abstract_syntax_tree& root)
-{
-    time_t begin_time,end_time;
-    begin_time=std::time(NULL);
-    // initializing global scope and nasal_gc
-    // runtime_error_exit_mark is set to -1,if runtime_error_exit_mark >=0,this means an error occurred
-    global_scope.clear();
-    main_local_scope.clear();
-    nasal_gc.gc_init();
-    runtime_error_exit_mark=-1;
-    if(root.get_node_type()!=__root)
-    {
-        error_interrupt(__incorrect_head_of_tree,root.get_node_line());
-        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();
-        int state=__state_no_operation;
-        if(node_type==__number || node_type==__string)
-            ;
-        else if(node_type==__id)
-        {
-            int addr=this->call_identifier(main_local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__vector)
-        {
-            int addr=this->vector_generation(main_local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__hash)
-        {
-            int addr=this->hash_generation(main_local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        else if(node_type==__function)
-        {
-            int addr=this->function_generation(main_local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-        }
-        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 ||
-                node_type==__equal || node_type==__add_equal || node_type==__sub_equal || node_type==__div_equal || node_type==__mul_equal || node_type==__link_equal)
-        {
-            int addr=this->calculation(main_local_scope,*iter);
-            if(addr>=0) nasal_gc.reference_delete(addr);
-            // new functions in global scope must set its closure_update_state to true
-            // or its local scope maybe changed after running other expressions
-            if(nasal_gc.get_scalar(addr).get_type()==scalar_function && !nasal_gc.get_scalar(addr).get_function().get_closure_update_state())
-                nasal_gc.get_scalar(addr).get_function().set_closure_update_state(true);
-        }
-        else if(node_type==__definition)
-            this->definition(main_local_scope,global_scope,*iter);
-        else if(node_type==__conditional)
-            state=this->conditional(main_local_scope,*iter);
-        else if((node_type==__while) || (node_type==__for) || (node_type==__foreach) || (node_type==__forindex))
-            state=this->loop_expr(main_local_scope,*iter);
-        if(runtime_error_exit_mark>=0)
-            break;
-        if(state==__state_no_operation)
-            ;
-        else if(state==__state_break)
-        {
-            error_interrupt(__break_not_used_in_loop,iter->get_node_line());
-            break;
-        }
-        else if(state==__state_continue)
-        {
-            error_interrupt(__continue_not_used_in_loop,iter->get_node_line());
-            break;
-        }
-        else if(state==__state_return)
-        {
-            error_interrupt(__return_not_used_in_function,iter->get_node_line());
-            break;
-        }
-        else if(state==__state_error)
-            break;
-    }
-    end_time=std::time(NULL);
-    std::cout<<std::endl<<">> [Runtime] process exited after "<<end_time-begin_time<<" s ."<<std::endl;
-    global_scope.clear();
-    main_local_scope.clear();
-    nasal_gc.gc_init();
-    return;
-}
-
-#endif
diff --git a/version2.0/parse.ebnf b/version2.0/parse.ebnf
deleted file mode 100644
index e853457..0000000
--- a/version2.0/parse.ebnf
+++ /dev/null
@@ -1,116 +0,0 @@
-(*
- <>  must choose
- []  can choose
- {}  can repeat 0 to infinite time(s)
- |   or
- ::= is defined as
-*)
-<var> = <token_var_reserve_word> ;
-<func> = <token_func_reserve_word> ;
-<and> = <token_and_operator> ;
-<or> = <token_or_operator> ;
-<number> = <token_number> ;
-<string> = <token_string> ;
-<nil> = <token_reserve_word_nil> ;
-<id> = <token_identifier> ;
-<dynamic_id> = <token_dynamic_id> ;
-
-<vector> = '[' { <calculation> ',' } ']' ;
-<hash> = '{' {(<id> | <string>) ':' <scalar> ','} '}' ;
-<scalar> =
-    <number>
-|   <nil>
-|   <string>
-|   <id>
-|   <hash>
-|   <vector>
-|   <func> <id>
-|   <function>
-|   '(' <calculation> ')'
-|   <scalar> { ('[' {<calculation> ','} ']') | ('[' <calculation> ':' [<calculation>] ']') | ('.' <id>) | ('(' {<calculation> ','} ')') | ('(' {<id> ':' <calculation> ','} ')') }
-;
-
-<function> =
-    <func> ['(' ')'] <statement>
-|   <func> ['(' ')'] '{' {<statement> ';'} '}'
-|   <func> '(' {<id> ','} {<id> '=' <calculation> ','} {<dynamic_id>} ')' <statement>
-|   <func> '(' {<id> ','} {<id> '=' <calculation> ','} {<dynamic_id>} ')' '{' {<statement> ';'} '}'
-;
-
-<calculation> =
-    <and_calc>
-|   <or_calc>
-|   <additive_calc>
-|   <multive_calc>
-|   [('-' | '!')] <scalar>
-|   <calculation> '?' <calculation> ':' <calculation>
-;
-<and_calc> = <or_calc> {<and> <or_calc>} ;
-<or_calc> = <additive_calc> {<or> <additive_calc>} ;
-<additive_calc> = <multive_calc> {('+' | '-' | '~') <multive_calc>} ;
-<multive_calc> = [('-' | '!')] <scalar> {('*' | '/') [('-' | '!')] <scalar>};
-
-(* this definition is also used in for loop*)
-<definition> =
-    <var> <id> '=' <scalar>
-|   <var> '(' {<id> ','} ')' '=' (<scalar> | '(' {<scalar> ','} ')')
-|   '(' <var> {<id> ','} ')' '=' (<scalar> | '(' {<scalar> ','} ')')
-;
-
-<assignment> =
-    <scalar> ('=' | '+=' | '-=' | '*=' | '/=' | '~=') <calculation>
-|   '(' {<scalar> ','} ')' ('=' | '+=' | '-=' | '*=' | '/=' | '~=') (<calculation> | '(' {<calculation> ','} ')')
-;
-<loop_expr> =
-    <for_loop>
-|   <while_loop>
-|   <forindex_loop>
-|   <foreach_loop>
-;
-<for_loop> =
-    <for> '(' [<statement>] ';' [<calculation>] ';' [<statement>] ')' <statement> [';']
-|   <for> '(' [<statement>] ';' [<calculation>] ';' [<statement>] ')' '{' {<statement> ';'} '}'
-;
-<while_loop> =
-    <while> '(' <calculation> ')' <statement> [';']
-|   <while> '(' <calculation> ')' '{' {<statement> ';'} '}'
-;
-(* in forindex and foreach the scalar and definition cannot be lacked*)
-<forindex_loop> =
-    <forindex> '(' (<var> <id>)|(<id>) ';' <scalar> ')' <statement> [';']
-|   <forindex> '(' (<var> <id>)|(<id>) ';' <scalar> ')' '{' {<statement> ';'} '}'
-;
-<foreach_loop> =
-    <foreach> '(' (<var> <id>)|(<id>) ';' <scalar> ')' <statement> [';']
-|   <foreach> '(' (<var> <id>)|(<id>) ';' <scalar> ')' '{' {<statement> ';'} '}'
-;
-
-<conditional_expr> = <conditional_expr_if> {<conditional_expr_elsif>} [<conditional_expr_else>]
-;
-<conditional_expr_if> =
-    <if> '(' <calculation> ')' <statement> [';']
-|   <if> '(' <calculation> ')' '{' {<statement> ';'} '}'
-;
-<conditional_expr_elsif> =
-    <elsif> '(' <calculation> ')' <statement> [';']
-|   <elsif> '(' <calculation> ')' '{' {<statement> ';'} '}'
-|   <else> <if> '(' <calculation> ')' <statement> [';']
-|   <else> <if> '(' <calculation> ')' '{' {<statement> ';'} '}'
-;
-<conditional_expr_else> =
-    <else> <statement> [';']
-|   <else> '{' {<statement> ';'} '}'
-;
-
-<continue_expr> = <continue> ;
-<break_expr> = <break> ;
-<return_expr> = <return> [<calculation>] ;
-<statement> =
-    <definition>
-|   <assignment>
-|   <conditional_expr>
-|   <loop_expr>
-|   <continue_expr>
-|   <break_expr>
-|   <return_expr>
-;
\ No newline at end of file
diff --git a/version2.0/run/closure.nas b/version2.0/run/closure.nas
deleted file mode 100644
index 5d6b467..0000000
--- a/version2.0/run/closure.nas
+++ /dev/null
@@ -1,56 +0,0 @@
-var a=1;
-var f=func
-{
-	var a=4;
-	return func{return a;}
-}
-var b=f();
-print(b());
-# output 4
-
-var h=func
-{
-	var a=4;
-	var k=func{return a;};
-	a=0;
-	return k;
-}
-b=h();
-print(b());
-# output 0
-
-var c=0;
-var f2=func
-{
-	var a=4;
-	var k=func{return a;};
-	a=0;
-	c=func{a=2;};
-	return k;
-}
-b=f2();
-print(b());
-# output 0
-c();
-print(b());
-# output 2
-
-var cl_fun=func(x)
-{
-	var a=x;
-	return func{return a;};
-}
-b=cl_fun(1);
-c=cl_fun(10);
-print(b());
-# output 1
-
-a=3;
-b=0;
-if(a==3)
-{
-var c=10;
-b=func{return c;};
-}
-print(b());
-# output 10
\ No newline at end of file
diff --git a/version2.0/run/run1.nas b/version2.0/run/run1.nas
deleted file mode 100644
index 87cb37b..0000000
--- a/version2.0/run/run1.nas
+++ /dev/null
@@ -1,8 +0,0 @@
-var f=func(x)
-{
-	if(x>9)return;
-	x+=1;
-	f(x);
-	return;
-}
-f(0);
\ No newline at end of file
diff --git a/version2.0/run/run2.txt b/version2.0/run/run2.txt
deleted file mode 100644
index 4c506b7..0000000
--- a/version2.0/run/run2.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-var hash={
-	str:1,
-	f:func{print(me.str);}
-};
\ No newline at end of file
diff --git a/version2.0/test/choice.nas b/version2.0/test/choice.nas
deleted file mode 100644
index 64ed27b..0000000
--- a/version2.0/test/choice.nas
+++ /dev/null
@@ -1,29 +0,0 @@
-
-var condition_true=1;
-var condition_false=0;
-if(condition_true)
-{
-    var a=1;
-}
-else if(!condition_false)
-{
-    var b=1;
-}
-elsif(!condition_true and condition_false)
-{
-    print("impossible");
-}
-else
-{
-    var c=1;
-    var d=1;
-}
-
-if(condition_true)
-    var a=1;
-else if(!condition_false)
-    var b=1;
-elsif(!condition_true and condition_false)
-    print("impossible");
-else
-    var c=1;
\ No newline at end of file
diff --git a/version2.0/test/final.nas b/version2.0/test/final.nas
deleted file mode 100644
index ac5d13c..0000000
--- a/version2.0/test/final.nas
+++ /dev/null
@@ -1,210 +0,0 @@
-var smartScreen = canvas.new({
-  "name": "smartScreen",   # The name is optional but allow for easier identification
-  "size": [2048, 2048], # Size of the underlying texture (should be a power of 2, required) [Resolution]
-  "view": [768, 768],  # Virtual resolution (Defines the coordinate system of the canvas [Dimensions]
-                        # which will be stretched the size of the texture, required)
-  "mipmapping": 1       # Enable mipmapping (optional)
-});
-
-smartScreen.addPlacement({"node": "screen", "texture": "screen.jpeg"});
-var group = smartScreen.createGroup();
-
-# Create a text element and set some values
-var text = group.createChild("text", "optional-id-for element")
-          .setTranslation(10, 20)      # The origin is in the top left corner
-          .setAlignment("left-center") # All values from osgText are supported (see $FG_ROOT/Docs/README.osgtext)
-          .setFont("LiberationFonts/LiberationSans-Regular.ttf") # Fonts are loaded either from $AIRCRAFT_DIR/Fonts or $FG_ROOT/Fonts
-          .setFontSize(14, 1.2)        # Set fontsize and optionally character aspect ratio
-          .setColor(1,0,0)             # Text color
-          .setText("This is a text element");
-text.hide();
-text.setText("SELF TEST NORMAL").show();
-
-
-
-var ui_root = smartScreen.createGroup();
-var vbox = canvas.VBoxLayout.new();
-smartScreen.setLayout(vbox);
-
-
-var button_onl = canvas.gui.widgets.Button.new(ui_root, canvas.style, {}).setText("Online OSM").listen("clicked", func showOnlineMap());
-var button_offl = canvas.gui.widgets.Button.new(ui_root, canvas.style, {}).setText("Offline OSM").listen("clicked", func showOfflineMap());
-button_onl.setSizeHint([32, 128]);
-button_offl.setSizeHint([32, 128]);
-
-var label = canvas.gui.widgets.Label.new(ui_root, canvas.style, {});
-
-var button_box = canvas.HBoxLayout.new();
-button_box.addItem(button_onl);
-button_box.addItem(button_offl);
-button_box.addItem(label);
-button_box.addStretch(1);
-
-vbox.addItem(button_box);
-vbox.addStretch(1);
-
-
-var showOnlineMap = func(){
-  TestMap.show();
-  g.hide();
-  label.setText("Online Mode");
-}
-
-
-var showOfflineMap = func(){
-  TestMap.hide();
-  g.show();
-  label.setText("Offline Mode");
-}
-
-
-# Online Map using MapStructure
-var TestMap = smartScreen.createGroup().createChild("map");
-TestMap.setTranslation(smartScreen.get("view[0]")/2,smartScreen.get("view[1]")/2);
-
-
-var ctrl_ns = canvas.Map.Controller.get("Aircraft position");
-var source = ctrl_ns.SOURCES["map-dialog"];
-if (source == nil) {
-  # TODO: amend
-  var source = ctrl_ns.SOURCES["map-dialog"] = {
-    getPosition: func subvec(geo.aircraft_position().latlon(), 0, 2),# ? ? ?
-    getAltitude: func getprop('/position/altitude-ft'),
-    getHeading:  func {
-      if (me.aircraft_heading)
-        getprop('/orientation/heading-deg');
-      else
-        0;
-    },
-    aircraft_heading: 1,
-  };
-}
-setlistener("/sim/gui/dialogs/map-canvas/aircraft-heading-up", func(n){source.aircraft_heading = n.getBoolValue();}, 1);
-TestMap.setController("Aircraft position", "map-dialog");
-TestMap.setRange(1); 
-
-var r = func(name,vis=1,zindex=nil){return caller(0)[0];};
-# TODO: we'll need some z-indexing here, right now it's just random
-
-foreach(var type; [r('APS')] ){
-    TestMap.addLayer(factory: canvas.SymbolLayer, type_arg: type.name, visible: type.vis, priority: 2);
-}
-
-foreach(var type; [ r('OSM')]) {
-    TestMap.addLayer(factory: canvas.OverlayLayer,
-                    type_arg: type.name,
-                     visible: type.vis,
-                    priority: 1);
-}
-
-
-TestMap.hide();
-
-# Offline map
-
-var g = smartScreen.createGroup();
-var zoom = 15;
-var type = "intl";
-var tile_size = 256;
-
-
-var changeZoom = func(d)
-{
-  zoom = math.max(2, math.min(19, zoom + d));
-  updateTiles();
-}
-
-# http://polymaps.org/docs/
-# https://github.com/simplegeo/polymaps
-# https://github.com/Leaflet/Leaflet
-
-var maps_base = getprop("/sim/fg-home") ~ '/cache/maps';
-
-var makePath =
-string.compileTemplate(maps_base ~ '/osm-{type}/{z}/{x}/{y}.jpg');
-var num_tiles = [4, 4];
-
-var center_tile_offset = [(num_tiles[0]-1)/2, (num_tiles[1]-1)/ 2];
-
-# simple aircraft icon at current position/center of the map
-g.createChild("path")
-  .moveTo( tile_size*center_tile_offset[0]-10, tile_size*center_tile_offset[1])
-  .horiz(20)
-  .move(-10,-10)
-  .vert(20)
-  .set("stroke", "red")
-  .set("stroke-width", 2)
-  .set("z-index", 1);
-
-# initialize the map by setting up
-# a grid of raster images  
-
-var tiles = setsize([], num_tiles[0]);
-for(var x=0; x<num_tiles[0]; x+=1)
-{
-  tiles[x] = setsize([], num_tiles[1]);
-  for(var y=0; y<num_tiles[1]; y+=1)
-    tiles[x][y] = g.createChild("image", "map-tile");
-}
-
-var last_tile = [-1,-1];
-var last_type = type;
-
-# this is the callback that will be regularly called by the timer
-# to update the map
-var updateTiles = func()
-{
-  # get current position
-  var lat = getprop('/position/latitude-deg');
-  var lon = getprop('/position/longitude-deg');
-
-  var n = math.pow(2, zoom);
-  var offset = [n*((lon+180)/360)-center_tile_offset[0], (1-math.ln(math.tan(lat*math.pi/180)+1/math.cos(lat*math.pi/180))/math.pi)/2*n-center_tile_offset[1]];
-  var tile_index = [int(offset[0]), int(offset[1])];
-
-  var ox = tile_index[0] - offset[0];
-  var oy = tile_index[1] - offset[1];
-
-  for(var x = 0; x < num_tiles[0]; x += 1)
-    for(var y = 0; y < num_tiles[1]; y += 1)
-      tiles[x][y].setTranslation(int((ox + x) * tile_size + 0.5), int((oy + y) * tile_size + 0.5));
-
-  if(  tile_index[0] != last_tile[0]
-    or tile_index[1] != last_tile[1]
-    or type != last_type )
-  {
-    for(var x = 0; x < num_tiles[0]; x += 1)
-      for(var y = 0; y < num_tiles[1]; y += 1)
-      {
-        var pos = {
-          z: zoom,
-          x: int(offset[0] + x),
-          y: int(offset[1] + y),
-          type: type
-        };
-
-        (func {
-            var img_path = makePath(pos);
-            var tile = tiles[x][y];
-            print('loading ' ~ img_path);
-            tile.set("src", img_path);
-          })();
-        # lambda
-      }
-
-      last_tile = tile_index;
-      last_type = type;
-  }
-};
-
-# set up a timer that will invoke updateTiles at 2-second intervals
-var update_timer = maketimer(2, updateTiles);
-# actually start the timer
-update_timer.start();
-
-# set up default zoom level
-changeZoom(0);
-
-#g.hide();
-
-
diff --git a/version2.0/test/final2.nas b/version2.0/test/final2.nas
deleted file mode 100644
index 4d71d3a..0000000
--- a/version2.0/test/final2.nas
+++ /dev/null
@@ -1,643 +0,0 @@
-###############################################################################
-##
-## Nasal module for dual control over the multiplayer network.
-##
-##  Copyright (C) 2007 - 2010  Anders Gidenstam  (anders(at)gidenstam.org)
-##  This file is licensed under the GPL license version 2 or later.
-##
-###############################################################################
-## MP properties
-var lat_mpp     = "position/latitude-deg";
-var lon_mpp     = "position/longitude-deg";
-var alt_mpp     = "position/altitude-ft";
-var heading_mpp = "orientation/true-heading-deg";
-var pitch_mpp   = "orientation/pitch-deg";
-var roll_mpp    = "orientation/roll-deg";
-
-# Import components from the mp_broadcast module.
-var Binary         = mp_broadcast.Binary;
-var MessageChannel = mp_broadcast.MessageChannel;
-
-###############################################################################
-# Utility classes
-
-############################################################
-# Translate a property into another.
-#  Factor and offsets are only used for numeric values.
-#   src    - source      : property node
-#   dest   - destination : property node
-#   factor -             : double
-#   offset -             : double
-var Translator = {};
-Translator.new = func (src = nil, dest = nil, factor = 1, offset = 0) {
-  var obj = { parents   : [Translator],
-              src       : src,
-              dest      : dest,
-              factor    : factor,
-              offset    : offset };
-  if (obj.src == nil or obj.dest == nil) {
-    print("Translator[");
-    print("  ", debug.string(obj.src));
-    print("  ", debug.string(obj.dest));
-    print("]");
-    fail();
-  }
-
-  return obj;
-}
-Translator.update = func () {
-  var v = me.src.getValue();
-  if (is_num(v)) {
-    me.dest.setValue(me.factor * v + me.offset);
-  } else {
-    if (typeof(v) == "scalar")
-      me.dest.setValue(v);
-  }
-}
-
-############################################################
-# Detects flanks on two insignals encoded in a property.
-# - positive signal up/down flank
-# - negative signal up/down flank
-#   n                 - source : property node
-#   on_positive_flank - action : func (v)
-#   on_negative_flank - action : func (v)
-var EdgeTrigger = {};
-EdgeTrigger.new = func (n, on_positive_flank, on_negative_flank) {
-  var obj = { parents   : [EdgeTrigger],
-              old       : 0,
-              node      : n, 
-              pos_flank : on_positive_flank,
-              neg_flank : on_negative_flank };
-  if (obj.node == nil) {
-    print("EdgeTrigger[");
-    print("  ", debug.string(obj.node));
-    print("]");
-    fail();
-  }
-  return obj;
-}
-EdgeTrigger.update = func {
-  # NOTE: float MP properties get interpolated.
-  #       This detector relies on that steady state is reached between
-  #       flanks.
-  var val = me.node.getValue();
-  if (!is_num(val)) return;
-  if (me.old == 1) {
-    if (val < me.old) {
-      me.pos_flank(0);
-    }
-  } elsif (me.old == 0) {
-    if (val > me.old) {
-      me.pos_flank(1);
-    } elsif (val < me.old) {
-      me.neg_flank(1);
-    }
-  } elsif (me.old == -1) {
-    if (val > me.old) {
-      me.neg_flank(0);
-    }
-  }
-  me.old = val;
-}
-
-############################################################
-# StableTrigger: Triggers an action when a MPP property
-#                becomes stable (i.e. doesn't change for
-#                MIN_STABLE seconds).
-#   src     - MP prop : property node
-#   action  - action to take when the value becomes stable : [func(v)]
-# An action is triggered when value has stabilized.
-var StableTrigger = {};
-StableTrigger.new = func (src, action) {
-  var obj = { parents      : [StableTrigger],
-              src          : src,
-              action       : action,
-              old          : 0,
-              stable_since : 0,
-              wait         : 0,
-              MIN_STABLE   : 0.01 };
-  # Error checking.
-  var bad = (obj.src == nil) or (action = nil);
-
-  if (bad) {
-    print("StableTrigger[");
-    print("  ", debug.string(obj.src));
-    print("  ", debug.string(obj.action));
-    print("]");
-    fail();
-  }
-
-  return obj;
-}
-StableTrigger.update = func () {
-  var v   = me.src.getValue();
-  if (!is_num(v)) return;
-  var t = getprop("/sim/time/elapsed-sec"); # NOTE: simulated time.
-
-  if ((me.old == v) and
-      ((t - me.stable_since) > me.MIN_STABLE) and (me.wait == 1)) {
-    # Trigger action.
-    me.action(v);
-
-    me.wait = 0;
-  } elsif (me.old == v) {
-    # Wait. This is either before the signal is stable or after the action. 
-  } else {
-    me.stable_since = t;
-    me.wait         = 1;
-    me.old          = me.src.getValue();
-  }
-}
-
-############################################################
-# Selects the most recent value of two properties.
-#   src1      -  : property node
-#   src2      -  : property node
-#   dest      -  : property node
-#   threshold -  : double
-var MostRecentSelector = {};
-MostRecentSelector.new = func (src1, src2, dest, threshold) {
-  var obj = { parents   : [MostRecentSelector],
-              old1      : 0,
-              old2      : 0,
-              src1      : src1,
-              src2      : src2,
-              dest      : dest,
-              thres     : threshold };
-  if (obj.src1 == nil or obj.src2 == nil or obj.dest == nil) {
-    print("MostRecentSelector[");
-    print("  ", debug.string(obj.src1));
-    print("  ", debug.string(obj.src2));
-    print("  ", debug.string(obj.dest));
-    print("]");
-  }
-
-  return obj;
-}
-MostRecentSelector.update = func {
-  var v1 = me.src1.getValue();
-  var v2 = me.src2.getValue();
-  if (!is_num(v1) and !is_num(v2)) return;
-  elsif (!is_num(v1)) me.dest.setValue(v2);
-  elsif (!is_num(v2)) me.dest.setValue(v1);
-  else {
-      if (abs (v2 - me.old2) > me.thres) {
-          me.old2 = v2;
-          me.dest.setValue(me.old2);
-      }
-      if (abs (v1 - me.old1) > me.thres) {
-          me.old1 = v1;
-          me.dest.setValue(me.old1);
-      }
-  }
-}
-
-############################################################
-# Adds two input properties.
-#   src1      -  : property node
-#   src2      -  : property node
-#   dest      -  : property node
-var Adder = {};
-Adder.new = func (src1, src2, dest) {
-  var obj = { parents : [DeltaAccumulator],
-              src1    : src1,
-              src2    : src2,
-              dest    : dest };
-  if (obj.src1 == nil or obj.src2 == nil or obj.dest == nil) {
-    print("Adder[");
-    print("  ", debug.string(obj.src1));
-    print("  ", debug.string(obj.src2));
-    print("  ", debug.string(obj.dest));
-    print("]");
-    fail();
-  }
-
-  return obj;
-}
-Adder.update = func () {
-  var v1 = me.src1.getValue();
-  var v2 = me.src2.getValue();
-  if (!is_num(v1) or !is_num(v2)) return;
-  me.dest.setValue(v1 + v2);
-}
-
-############################################################
-# Adds the delta of src to dest.
-#   src       -  : property node
-#   dest      -  : property node
-var DeltaAdder = {};
-DeltaAdder.new = func (src, dest) {
-  var obj = { parents : [DeltaAdder],
-              old     : 0,
-              src     : src,
-              dest    : dest };
-  if (obj.src == nil or obj.dest == nil) {
-    print("DeltaAdder[", debug.string(obj.src), ", ",
-          debug.string(obj.dest), "]");
-    fail();
-  }
-
-  return obj;
-}
-DeltaAdder.update = func () {
-  var v = me.src.getValue();
-  if (!is_num(v)) return;
-  me.dest.setValue((v - me.old) + me.dest.getValue());
-  me.old = v;
-}
-
-############################################################
-# Switch encoder: Encodes upto 32 boolean properties in one
-# int property.
-#   inputs    - list of property nodes
-#   dest      - where the bitmask is stored : property node
-var SwitchEncoder = {};
-SwitchEncoder.new = func (inputs, dest) {
-  var obj = { parents : [SwitchEncoder],
-              inputs  : inputs,
-              dest    : dest };
-  # Error checking.
-  var bad = (obj.dest == nil);
-  foreach (var i; inputs) {
-    if (i == nil) { bad = 1; }
-  }
-
-  if (bad) {
-    print("SwitchEncoder[");
-    foreach (var i; inputs) {
-      print("  ", debug.string(i));
-    }
-    print("  ", debug.string(obj.dest));
-    print("]");
-    fail();
-  }
-
-  return obj;
-}
-SwitchEncoder.update = func () {
-  var v = 0;
-  var b = 1;
-  forindex (var i; me.inputs) {
-    if (me.inputs[i].getBoolValue()) {
-      v = v + b;
-    }
-    b *= 2;
-  }
-  me.dest.setIntValue(v);
-}
-
-############################################################
-# Switch decoder: Decodes a bitmask in an int property.
-#   src     -                 : property node
-#   actions - list of actions : [func(b)]
-# Actions are triggered when their input bit change.
-# Due to interpolation the decoder needs to wait for a
-# stable input value.
-var SwitchDecoder = {};
-SwitchDecoder.new = func (src, actions) {
-  var obj = { parents : [SwitchDecoder],
-              wait         : 0,
-              old          : 0,
-              old_stable   : 0,
-              stable_since : 0,
-              reset        : 1,
-              src          : src,
-              actions      : actions,
-              MIN_STABLE   : 0.1 };
-  # Error checking.
-  var bad = (obj.src == nil);
-  foreach (var a; obj.actions) {
-    if (a == nil) { bad = 1; }
-  }
-  
-  if (bad) {
-    print("SwitchDecoder[");
-    print("  ", debug.string(obj.src));
-    foreach (var a; obj.actions) {
-      print("  ", debug.string(a));
-    }
-    print("]");
-    fail();
-  }
-
-  return obj;
-}
-SwitchDecoder.update = func () {
-  var t = getprop("/sim/time/elapsed-sec"); # NOTE: simulated time.
-  var v = me.src.getValue();
-  if (!is_num(v)) return;
-
-  if ((me.old == v) and ((t - me.stable_since) > me.MIN_STABLE) and
-      (me.wait == 1)) {
-    var ov = me.old_stable;
-# Use this to improve.
-#<cptf> here's the boring version:  var bittest = func(u, b) { while (b) { u = int(u / 2); b -= 1; } u != int(u / 2) * 2; }
-    forindex (var i; me.actions) {
-      var m  = math.mod(v, 2);
-      var om = math.mod(ov, 2);
-      if ((m != om or me.reset)) { me.actions[i](m?1:0); }
-      v  = (v - m)/2;
-      ov = (ov - om)/2;
-    }
-    me.old_stable = me.src.getValue();
-    me.wait  = 0;
-    me.reset = 0;
-  } elsif (me.old == v) {
-    # Wait. This is either before the bitmask is stable or after
-    # it has been processed. 
-  } else {
-    me.stable_since = t;
-    me.wait         = 1;
-    me.old          = me.src.getValue();
-  }
-}
-
-############################################################
-# Time division multiplexing encoder: Transmits a list of
-# properties over a MP enabled string property.
-#   inputs  - input properties : [property node]
-#   dest    - MP string prop   : property node
-# Note: TDM can have high latency so it is best used for
-# non-time critical properties.
-var TDMEncoder = {};
-TDMEncoder.new = func (inputs, dest) {
-  var obj = { parents   : [TDMEncoder],
-              inputs    : inputs,
-              channel   : MessageChannel.new(dest,
-                                             func (msg) {
-                                               print("This should not happen!");
-                                             }),
-              MIN_INT   : 0.25,
-              last_time : 0,
-              next_item : 0,
-              old       : [] };
-  # Error checking.
-  var bad = (dest == nil) or (obj.channel == nil);
-  foreach (var i; inputs) {
-    if (i == nil) { bad = 1; }
-  }
-
-  if (bad) {
-    print("TDMEncoder[");
-    foreach (var i; inputs) {
-      print("  ", debug.string(i));
-    }
-    print("  ", debug.string(dest));
-    print("]");
-  }
-
-  setsize(obj.old, size(obj.inputs));
-
-  return obj;
-}
-TDMEncoder.update = func () {
-  var t = getprop("/sim/time/elapsed-sec"); # NOTE: simulated time.
-  if (t > me.last_time + me.MIN_INT) {
-    var n = size(me.inputs);
-    while (1) {
-      var v = me.inputs[me.next_item].getValue();
-
-      if ((n <= 0) or (me.old[me.next_item] != v)) {
-        # Set the MP properties to send the next item.
-        me.channel.send(Binary.encodeByte(me.next_item) ~
-                        Binary.encodeDouble(v));
-
-        me.old[me.next_item] = v;
-
-        me.last_time = t;
-        me.next_item += 1;
-        if (me.next_item >= size(me.inputs)) { me.next_item = 0; }
-        return;
-      } else {
-        # Search for changed property.
-        n -= 1;
-        me.next_item += 1;
-        if (me.next_item >= size(me.inputs)) { me.next_item = 0; }
-      }         
-    }
-  }
-}
-
-############################################################
-# Time division multiplexing decoder: Receives a list of
-# properties over a MP enabled string property.
-#   src     - MP string prop  : property node
-#   actions - list of actions : [func(v)]
-# An action is triggered when its value is received.
-# Note: TDM can have high latency so it is best used for
-# non-time critical properties.
-var TDMDecoder = {};
-TDMDecoder.new = func (src, actions) {
-  var obj = { parents      : [TDMDecoder],
-              actions      : actions };
-  obj.channel = MessageChannel.new(src,
-                                   func (msg) {
-                                     obj.process(msg);
-                                   });
-
-  # Error checking.
-  var bad = (src == nil) or (obj.channel == nil);
-  foreach (var a; actions) {
-    if (a == nil) { bad = 1; }
-  }
-
-  if (bad) {
-    print("TDMDecoder[");
-    print("  ", debug.string(src));
-    foreach (var a; actions) {
-      print("  ", debug.string(a));
-    }
-    print("]");
-    fail();
-  }
-
-  return obj;
-}
-TDMDecoder.process = func (msg) {
-  var v1 = Binary.decodeByte(msg);
-  var v2 = Binary.decodeDouble(substr(msg, 1));
-  # Trigger action.
-  me.actions[v1](v2);
-}
-TDMDecoder.update = func {
-  me.channel.update();
-}
-
-###############################################################################
-# Internal utility functions
-
-var is_num = func (v) {
-    return num(v) != nil;
-}
-
-# fail causes a Nasal runtime error so we get a backtrace.
-var fail = func {
-    error_detected_in_calling_context();
-}
-
-###############################################################################
-
-###############################################################################
-# Copilot selection dialog.
-#
-# Usage: dual_control_tools.copilot_dialog.show(<copilot type string>);
-#
-var COPILOT_DLG = 0;
-var copilot_dialog = {};
-############################################################
-copilot_dialog.init = func (copilot_type, x = nil, y = nil) {
-    me.x = x;
-    me.y = y;
-    me.bg = [0, 0, 0, 0.3];    # background color
-    me.fg = [[1.0, 1.0, 1.0, 1.0]]; 
-    #
-    # "private"
-    if (contains(aircraft_dual_control, "copilot_view")) {
-        me.title = "Pilot selection";
-    } else {
-        me.title = "Copilot selection";
-    }
-    me.basenode = props.globals.getNode("sim/remote", 1);
-    me.dialog = nil;
-    me.namenode = props.Node.new({"dialog-name" : me.title });
-    me.listeners = [];
-    me.copilot_type = copilot_type;
-}
-############################################################
-copilot_dialog.create = func {
-    if (me.dialog != nil)
-        me.close();
-
-    me.dialog = gui.Widget.new();
-    me.dialog.set("name", me.title);
-    if (me.x != nil)
-        me.dialog.set("x", me.x);
-    if (me.y != nil)
-        me.dialog.set("y", me.y);
-
-    me.dialog.set("layout", "vbox");
-    me.dialog.set("default-padding", 0);
-    var titlebar = me.dialog.addChild("group");
-    titlebar.set("layout", "hbox");
-    titlebar.addChild("empty").set("stretch", 1);
-    if (contains(aircraft_dual_control, "copilot_view")) {
-        titlebar.addChild("text").set("label", "Book your flight");
-    } else {
-        titlebar.addChild("text").set("label", "Passengers online");
-    }
-    var w = titlebar.addChild("button");
-    w.set("pref-width", 16);
-    w.set("pref-height", 16);
-    w.set("legend", "");
-    w.set("default", 0);
-    w.set("key", "esc");
-    w.setBinding("nasal", "dual_control_tools.copilot_dialog.destroy(); ");
-    w.setBinding("dialog-close");
-    me.dialog.addChild("hrule");
-
-    var content = me.dialog.addChild("group");
-    content.set("layout", "vbox");
-    content.set("halign", "center");
-    content.set("default-padding", 5);
-
-    # Generate the dialog contents.
-    me.players = me.find_copilot_players();
-    var i = 0;
-    var tmpbase  = me.basenode.getNode("dialog", 1);
-    var selected = me.basenode.getNode("pilot-callsign").getValue();
-    foreach (var p; me.players) {
-        var tmp = tmpbase.getNode("b[" ~ i ~ "]", 1);
-        tmp.setBoolValue(streq(selected, p));
-        var w = content.addChild("checkbox");
-        w.node.setValues({"label"    : p,
-                          "halign"   : "left",
-                          "property" : tmp.getPath()});
-        w.setBinding
-            ("nasal",
-             "dual_control_tools.copilot_dialog.select_action(" ~ i ~ ");");
-        i = i + 1;
-    }
-    me.dialog.addChild("hrule");
-
-    # Display the dialog.
-    fgcommand("dialog-new", me.dialog.prop());
-    fgcommand("dialog-show", me.namenode);
-}
-############################################################
-copilot_dialog.close = func {
-    fgcommand("dialog-close", me.namenode);
-}
-############################################################
-copilot_dialog.destroy = func {
-    COPILOT_DLG = 0;
-    me.close();
-    foreach(var l; me.listeners)
-        removelistener(l);
-    delete(gui.dialog, "\"" ~ me.title ~ "\"");
-}
-############################################################
-copilot_dialog.show = func (copilot_type) {
-#    print("Showing MPCopilots dialog!");
-    if (!COPILOT_DLG) {
-        COPILOT_DLG = int(getprop("/sim/time/elapsed-sec"));
-        me.init(copilot_type);
-        me.create();
-        me._update_(COPILOT_DLG);
-    }
-}
-############################################################
-copilot_dialog._redraw_ = func {
-    if (me.dialog != nil) {
-        me.close();
-        me.create();
-    }
-}
-############################################################
-copilot_dialog._update_ = func (id) {
-    if (COPILOT_DLG != id) return;
-    me._redraw_();
-    settimer(func { me._update_(id); }, 4.1);
-}
-############################################################
-copilot_dialog.select_action = func (n) {
-    var selected = me.basenode.getNode("pilot-callsign").getValue();
-    var bs = me.basenode.getNode("dialog").getChildren();
-    # Assumption: There are two true b:s or none. The one not matching selected
-    #             is the new selection.
-    var i = 0;
-    me.basenode.getNode("pilot-callsign").setValue("");
-    foreach (var b; bs) {
-        if (!b.getValue() and (i == n)) {
-            b.setValue(1);
-            me.basenode.getNode("pilot-callsign").setValue(me.players[i]);
-        } else {
-            b.setValue(0);
-        }
-        i = i + 1;
-    }
-    dual_control.main.reset();
-    me._redraw_();
-}
-############################################################
-# Return a list containing all nearby copilot players of the right type.
-copilot_dialog.find_copilot_players = func {
-    var mpplayers =
-        props.globals.getNode("ai/models").getChildren("multiplayer");
-
-    var res = [];
-    foreach (var pilot; mpplayers) {
-        if ((pilot.getNode("valid") != nil) and
-            (pilot.getNode("valid").getValue()) and
-            (pilot.getNode("sim/model/path") != nil)) {
-            var type = pilot.getNode("sim/model/path").getValue();
-
-            if (type == me.copilot_type) {
-                append(res, pilot.getNode("callsign").getValue());
-            }
-        }
-    }
-#    debug.dump(res);
-    return res; 
-}
-###############################################################################
diff --git a/version2.0/test/loop.nas b/version2.0/test/loop.nas
deleted file mode 100644
index b8d6228..0000000
--- a/version2.0/test/loop.nas
+++ /dev/null
@@ -1,30 +0,0 @@
-for(;;)break;
-for(;;)
-{
-    var a=1;
-    break;
-}
-for(var i=1;;)break;
-for(var i=1;;i+=1)break;
-for(var i=1;i<10;i+=1)print(i);
-
-while(1)break;
-var j=0;
-while(j<10)
-{
-    print(j);
-    j+=1;
-}
-
-forindex(var j;[0,1,2,3])print(j);
-forindex(var j;[0,1,2,3])
-{
-    var a=j;
-    print(a*a);
-}
-foreach(var j;[0,1,2,3])print([0,1,2,3][j]);
-foreach(var j;[0,1,2,3])
-{
-    var a=[0,1,2,3][j];
-    print(a*a-1);
-}
diff --git a/version2.0/test/scalar.nas b/version2.0/test/scalar.nas
deleted file mode 100644
index f176a6e..0000000
--- a/version2.0/test/scalar.nas
+++ /dev/null
@@ -1,124 +0,0 @@
-# basic type
-nil;
-2147483647;
-0x7fffffff;
-0xdeadbeef;
-0o70120327;
-"hello world!";
-'hello world!';
--12;
-!0;
--((30));
-[];
-{};
-[0,1,2,3,4,5][2];       # 2
-([0,1,2,3,4])[2];       # 2
-(([0,1,2,3]))[2];       # 2
-[0,1,2,3,4,5][5,4,3,2+1][0:2][0]; # 5
-{str:"hello"}.str;      # "hello"
-{str:"hello"}["str"];   # "hello"
-{"str":"hello\"\"\n"}["str"]; # "hello"
-20? 1:0;
-
-# normal scalar
-var number_1=1;
-var number_2=0xdeadbeef;
-var number_3=0x13702;
-var number_4=0.12341490239423;
-var string_1="hello";
-var string_2='hello';
-var string_3=number_1? 'yes':'no'; # yes
-
-# vector
-var vector_1=[];
-var vector_2=[0,1,2,"str",number_1,vector_1];
-var vector_3=vector_2[-3,-1];
-var vector_4=vector_2[0:3];
-var vector_5=vector_2[3:];
-
-# hash
-var hash_1={};
-var hash_2={str1:'str1', str2:'str2', num1:0x7fffffff};
-var hash_3={
- "member_1":1,
- "member_2":2,
- "member_3":3,
-};
-var hash_4={
- mem_1:hash_1,
- mem_2:hash_2.num1, # also this can be written as hash_2["num1"]
- mem_3:hash_3["member_1"]
-};
-
-# function
-var func_1=func(){return 1;}
-var prt=func(x){print(x);return nil;}
-var func_with_dynamic_id=func(a,b,c,d...){return [a,b,c,d];}
-var func_with_lack_para=func(a,b,c=1,d=2){return a+b+c+d;}
-var func_with_func_para=func(a,f){return f(a);}
-
-func_with_lack_para(a:1, b:2, c:3, d:4);
-func_with_lack_para(b:1, c:3, a:4, d:1);
-func_with_func_para(f:func prt,a:1);
-func_with_func_para(func func_1(),func(x){return x;});
-func_with_func_para(func_1(),func_1);
-prt(func func_1());
-var test_func_ret_number_1=func func_1(); # 1
-var test_func_ret_number_2=func_1();      # 1
-
-var source={
- member_1: func func_1(),         # this will get a number
- member_2: func {return 2.71828;} # this will get a function
-};
-print(source['member_2']());
-print(source.member_2());
-
-var test_func=func{return 1;}
-print(func test_func());       # 1
-print(test_func());            # 1
-print(func test_func);         # nothing
-print(test_func);              # nothing
-print(([0,1,2,3])[1]);         # 1
-print(({str:"what?"})["str"]); # what?
-print(({str:"what?"}).str);    # what?
-
-# lambda
-(func(x){return x>0? x:0;})(12);
-(func{print("hello world");})();
-(((func(x){return 1.0/math.exp(x);})))(0);
-
-# flexible definition & assignment
-var (r,g,b)=[0x00,0x10,0xff];
-(var r,g,b)=[0x00,0x10,0xff];
-var color=[0x00,0x10,0xff];
-var (r,g,b)=color;
-(var r,g,b)=color;
-(r,g,b)=(b,g,r);
-(number_1,number_2)=(number_2,number_1);
-var (swap_a,swap_b)=(0x1,0x80);
-(swap_a,swap_b)=(swap_b,swap_a);
-# ((swap_a),(swap_b))=(swap_b,swap_a) is wrong
-# anything that use multi_assignment must not have curve around them
-var multi_assign_1=[0,1,2,3,4];
-var multi_assign_2=[10,9,8,7];
-(multi_assign_1[1],multi_assign_2[0])=(multi_assign_1[2],multi_assign_2[1]);
-
-# calculation
-1+1;
-1+1-2+3-4+5-6;
-1+1*8-9/3;
-1*-1;
-1*(1+2*(3+4*(5+6*(7+8*(9+10/(1+1))))));
-((-1*2+9))/7-1;
-((({num:2})))["num"]*2*2*2;
-((((([0,1,2])[0:2]))[0:2]))[1]-1;
-(((((((((((((((((((1+1+2+3+5)+8))+13)))+21))))+34)))))+55))))*89;
-number_1*(number_2+number_3)/90-number_4;
-(func test_func)()-1;
-hash_3.member_3+(func {return {what:"i don't tell you.",case_small:80,case_large:100}})["case_large"]/10;
--1*10+5 or 10-10;
-nil and 1+7*8;
-(number_1 or number_2) and (number_3 or number_4-number_4*1);
-[0,1,4,3,2][4]*2-4+1*2*2*2*2*2/8;
-{num:0}.num or {what_is_the_secret_of_universe:42}["what_is_the_secret_of_universe"];
-"123"~"456"-123456*2/2;
\ No newline at end of file
diff --git a/version2.0/test/scope.nas b/version2.0/test/scope.nas
deleted file mode 100644
index c49f02c..0000000
--- a/version2.0/test/scope.nas
+++ /dev/null
@@ -1,62 +0,0 @@
-var global_value=0;
-var global_hash=
-{
-    var1:1,
-    var2:2,
-    var3:func(){return me.var2;}
-};
-print(global_value);
-print(global_hash.var3());
-
-var func1=func()
-{
-    global_value=1;
-    print(global_value);
-    var closure_value=1;
-    var temp_value=1;
-    print(temp_value);
-    return func{return closure_value;};
-}
-
-var func2=func()
-{
-    for(var temp_value=0;temp_value<100;temp_value+=1)
-    {
-        if(temp_value<10)
-            print(temp_value,"< 10");
-        elsif(10<=temp_value and temp_value<50)
-            print(temp_value,"< 50");
-        temp_value=10;
-    }
-    return;
-}
-
-var func3=func()
-{
-    var fake_closure_value=1;
-    return func()
-    {
-        var fake_closure_value=2;
-        return fake_closure_value;
-    };
-}
-
-func1()();
-func2();
-func3()();
-
-if(!global_value)
-{
-    var temp_value=1;
-    if(temp_value)
-    {
-        var temp_value=2;
-        if(temp_value>=1)
-        {
-            var temp_value=3;
-            print(temp_value);
-        }
-        print(temp_value);
-    }
-    print(temp_value);
-}
\ No newline at end of file
diff --git a/version3.0/lib/base.nas b/version3.0/lib/base.nas
deleted file mode 100644
index 4c13b3f..0000000
--- a/version3.0/lib/base.nas
+++ /dev/null
@@ -1,179 +0,0 @@
-# nasal lib base.nas
-# 2020/2/4
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-# print
-var print=func(elements...)
-{
-    nasal_call_builtin_std_cout(elements);
-    return nil;
-};
-
-# append
-# The first argument specifies a vector.
-# Appends the remaining arguments to the end of the vector. 
-var append=func(vector,elements...)
-{
-    nasal_call_builtin_push_back(vector,elements);
-    return nil;
-}
-
-# setsize
-# Sets the size of a vector.
-# The first argument specifies a vector, the second a number representing the desired size of that vector.
-# If the vector is currently larger than the specified size,it is truncated.
-# If it is smaller, it is padded with nil entries.Returns the vector operated upon. 
-var setsize=func(vector,size)
-{
-    nasal_call_builtin_set_size(vector,size);
-    return nil;
-}
-
-# subvec
-# Returns a sub-range of a vector.
-# The first argument specifies a vector, the second a starting index,
-# and the optional third argument indicates a length (the default is to the end of the vector).
-var subvec=func(vector,start,length=nil)
-{
-    return nasal_call_builtin_subvec(vector,start,length);
-}
-
-# contains
-# The first argument specifies a hash, the second must be a scalar.
-# Returns 1 if the hash contains the scalar as a key, 0 if not.
-var contains=func(hash,key)
-{
-    return nasal_call_builtin_contains(hash,key);
-}
-
-# delete
-# The first argument specifies a hash, the second must be a scalar key.
-# Deletes the key from the hash if it exists.
-# Operationally, this is identical to setting the hash value specified by the key to nil,
-# but this variant potentially frees storage by deleting the reference to the key and by shrinking the hash.
-var delete=func(hash,key)
-{
-    nasal_call_builtin_delete(hash,key);
-    return;
-}
-
-# int
-# Returns the integer part of the numeric value of the single argument, or nil if none exists.
-# Truncates towards zero, not negative infinity (i.e. it's implemented in C as a double tointeger typecast).
-var int=func(value)
-{
-    return nasal_call_builtin_trans_int(value);
-}
-
-# num
-# Returns the numeric value of the single argument, or nil if none exists.
-var num=func(value)
-{
-    return nasal_call_builtin_trans_num(value);
-}
-
-# keys
-# Returns a vector containing the list of keys found in the single hash argument.
-var keys=func(hash)
-{
-    return nasal_call_builtin_get_keys(hash);
-}
-
-# pop
-# Removes and returns the last element of the single vector argument.
-var pop=func(vector)
-{
-    return nasal_call_builtin_pop_back(vector);
-}
-
-# size
-# Returns the size of the single argument.
-# For strings, this is the length in bytes.
-# For vectors, this is the number of elements.
-# For hashes, it is the number of key/value pairs.
-# Returns nil for number and nil arguments.
-var size=func(object)
-{
-    return nasal_call_builtin_sizeof(object);
-}
-
-# streq
-# Tests the string values of the two arguments for equality.
-# Needed because the == operator in Nasal tests for numeric equality, as in perl.
-# So "0" == "0.0" is true,but streq("0", "0.0") is false.
-# This is rarely required in typical code. 
-var streq=func(__a,__b)
-{
-    return nasal_call_builtin_str_cmp_equal(__a,__b);
-}
-
-# cmp
-# 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)
-{
-    return nasal_call_builtin_cmp(__a,__b);
-}
-
-# sort
-# Creates a new vector containing the elements in the input vector sorted in ascending order according to the rule givenby function,
-# which takes two arguments (elements of the input vector) and should return less than zero, zero, or greater than zero if the first argument is,
-# respectively, less than, equal to, or greater than the second argument. Despite being implemented with ANSI C qsort(),
-# 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)
-{
-    nasal_call_builtin_cpp_sort(vector,function);
-    return;
-}
-
-# substr
-# Computes a substring.
-# The first argument specifes a string, the second is an integer index of the start of a substring,
-# the optional third argument specifies a length (the default is to return the remaining string).
-# Example: substr("abcde", 1, 3) returns "bcd". 
-var substr=func(__string,start,length=nil)
-{
-    return nasal_call_builtin_substr(__string,start,length);
-}
-
-# sprintf
-# Creates and returns a string formatted as per ANSI C sprintf(). 
-var sprintf=func(__format,var_args...)
-{
-    return nasal_call_builtin_sprintf(__format,var_args);
-}
-
-# 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.
-var find=func(needle,haystack)
-{
-    return nasal_call_builtin_find_first_occur(needle,haystack);
-}
-
-# split
-# Splits the input string into a vector of substrings bounded by occurences of the delimeter substring. 
-var split=func(delimeter,__string)
-{
-    return nasal_call_builtin_split(delimeter,__string);
-}
-
-# rand
-# Returns a random number in the range [0:1) (that is, 0.0 is a possible return value. 1.0 is not).
-# If a numeric argument is specified, it is used as a seed instead and the function returns nil.
-# Implemented in terms of the C library's rand/srand functions;
-# 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)
-{
-    return nasal_call_builtin_rand(seed);
-}
-
-# id
-# Returns a unique string identifying the object.
-# Two id strings are equal if and only if the two references point to the same object in memory.
-# Numbers don't have id's and will cause a runtime error if passed to id(). 
-var id=func(thing)
-{
-    return nasal_call_builtin_get_id(thing);
-}
\ No newline at end of file
diff --git a/version3.0/lib/bits.nas b/version3.0/lib/bits.nas
deleted file mode 100644
index d5b769f..0000000
--- a/version3.0/lib/bits.nas
+++ /dev/null
@@ -1,36 +0,0 @@
-# nasal lib bits.nas
-# 2020/2/8
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var bits=
-{
-    # Interpreting the string str as bits,
-    # returns the bitfield of the specified length starting at startbit.
-    # Interprets the result as an unsigned integer.
-    # The bit order is bytewise big endian: The 0th bit is the high bit of the first byte.
-    # The last bit is the low bit of the last byte in the string. 
-    fld:func(__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. 
-    sfld:func(__string,startbit,length)
-    {
-        return nasal_call_builtin_sbitcalc(__string,startbit,length);
-    },
-    # 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).
-    # Attempts to modify immutable strings (e.g. compile time constants) will produce a runtime error. 
-    setfld:func(__string,startbit,length,value)
-    {
-        return nasal_call_builtin_setbit(__string,startbit,length,value);
-    },
-    # Returns a zero-filled mutable string of the specified length. 
-    buf:func(length)
-    {
-        return nasal_call_builtin_null_string_gen(length);
-    },
-};
\ No newline at end of file
diff --git a/version3.0/lib/io.nas b/version3.0/lib/io.nas
deleted file mode 100644
index 1541824..0000000
--- a/version3.0/lib/io.nas
+++ /dev/null
@@ -1,68 +0,0 @@
-# nasal lib io.nas
-# 2020/2/8
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var io=
-{
-    # Opens the file with the specified mode (as per ANSI fopen()) and returns a ghost object representing the filehandle.
-    # Failures are thrown as runtime errors as per die(). 
-    open:func(filename,mode="r")
-    {
-        return nasal_call_builtin_c_fopen(filename,mode);
-    },
-    # Closes the specified file as per ANSI fclose(). 
-    close:func(filehandle)
-    {
-        nasal_call_builtin_c_fclose(filehandle);
-        return;
-    },
-    # Attempts to read length bytes from the filehandle into the beginning of the mutable string buf.
-    # Failures (including overruns when length > size(buf)) are thrown as runtime errors as per die().
-    # Returns the number of bytes successfully read. 
-    read:func(filehandle,buf,length)
-    {
-        return nasal_call_builtin_c_read(filehandle,buf,length);
-    },
-    # Attempts to write the entirety of the specified string to the filehandle.
-    # Failures are thrown as runtime errors as per die().
-    # Returns the number of bytes successfully written. 
-    write:func(filehandle,str)
-    {
-        return nasal_call_builtin_c_write(filehandle,str);
-    },
-    # As ANSI fseek().
-    # Attempts to seek to the specified position based on the whence value
-    # (which must be one of io.SEEK_SET,io.SEEK_END, or io.SEEK_CUR)
-    SEEK_SET:1,
-    SEEK_CUR:2,
-    SEEK_END:3,
-    seek:func(filehandle,position,whence)
-    {
-        nasal_call_builtin_c_seek(filehandle,position,whence);
-        return;
-    },
-    # Returns the current seek position of the filehandle. 
-    tell:func(filehandle)
-    {
-        return nasal_call_builtin_c_tell(filehandle);
-    },
-    # Reads and returns a single text line from the filehandle.
-    # Interprets both "\n" and "\r\n" as end of line markers,
-    # and does not include the "\r" or "\n" bytes in the returned string.
-    # End offile or error is signaled by returning nil. 
-    readln:func(filehandle)
-    {
-        return nasal_call_builtin_builtin_c_getline(filehandle);
-    },
-    # Calls unix or win32 stat() on the specified file name and
-    # returns a seven element array whose contents are,
-    # in order: dev, ino, mode,nlink, uid, gid, rdef, size, atime, mtime, ctime.
-    # Errors are signaled as exceptions as per die().
-    stat:func(filename)
-    {
-        return nasal_call_builtin_builtin_stat(filename);
-    },
-};
\ No newline at end of file
diff --git a/version3.0/lib/math.nas b/version3.0/lib/math.nas
deleted file mode 100644
index 1bbafa4..0000000
--- a/version3.0/lib/math.nas
+++ /dev/null
@@ -1,49 +0,0 @@
-# nasal lib math.nas
-# 2020/2/8
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var math=
-{
-    # Euler's constant
-    e:2.7182818284590452354,
-    pi:3.14159265358979323846,
-    # Returns the sine of the single argument 
-    sin:func(x)
-    {
-        return nasal_call_builtin_sin(x);
-    },
-    # Returns the cosine of the single argument
-    cos:func(x)
-    {
-        return nasal_call_builtin_cos(x);
-    },
-    # you know what the f*ck this is
-    tan:func(x)
-    {
-        return nasal_call_builtin_tan(x);
-    },
-    # Returns e (Euler's constant) raised to the power specified by the single argument 
-    exp:func(x)
-    {
-        return nasal_call_builtin_exp(x);
-    },
-    # Returns the natural logarithm of the single argument. 
-    ln:func(x)
-    {
-        return nasal_call_builtin_cpp_math_ln(x);
-    },
-    # Returns the square root of the single argument. 
-    sqrt:func(x)
-    {
-        return nasal_call_builtin_cpp_math_sqrt(x);
-    },
-    # Returns the arctangent of y/x, with the correct sign for the quadrant.
-    # Wraps the ANSI C function of the same name. 
-    atan2:func(x,y)
-    {
-        return nasal_call_builtin_cpp_atan2(x,y);
-    },
-};
\ No newline at end of file
diff --git a/version3.0/lib/readline.nas b/version3.0/lib/readline.nas
deleted file mode 100644
index 875d086..0000000
--- a/version3.0/lib/readline.nas
+++ /dev/null
@@ -1,12 +0,0 @@
-# nasal lib readline.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-# GNU Readline Library
-var readline=func(prompt="> ")
-{
-    return;
-}
\ No newline at end of file
diff --git a/version3.0/lib/regex.nas b/version3.0/lib/regex.nas
deleted file mode 100644
index f7642fd..0000000
--- a/version3.0/lib/regex.nas
+++ /dev/null
@@ -1,12 +0,0 @@
-# nasal lib regex.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var regex=
-{
-    comp:func(){},
-    exec:func(){},
-};
\ No newline at end of file
diff --git a/version3.0/lib/sqlite.nas b/version3.0/lib/sqlite.nas
deleted file mode 100644
index 838e612..0000000
--- a/version3.0/lib/sqlite.nas
+++ /dev/null
@@ -1,15 +0,0 @@
-# nasal lib sqlite.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var sqlite=
-{
-    open:func(){},
-    close:func(){},
-    prepare:func(){},
-    exec:func(){},
-    finalize:func(){},
-};
\ No newline at end of file
diff --git a/version3.0/lib/system.nas b/version3.0/lib/system.nas
deleted file mode 100644
index 870d1ad..0000000
--- a/version3.0/lib/system.nas
+++ /dev/null
@@ -1,14 +0,0 @@
-var system=func(str)
-{
-    nasal_call_builtin_system(str);
-    return;
-}
-var sleep=func(duration)
-{
-    nasal_call_builtin_sleep(duration);
-    return;
-}
-var input=func()
-{
-    return nasal_call_builtin_input();
-}
\ No newline at end of file
diff --git a/version3.0/lib/thread.nas b/version3.0/lib/thread.nas
deleted file mode 100644
index 1cb52f9..0000000
--- a/version3.0/lib/thread.nas
+++ /dev/null
@@ -1,17 +0,0 @@
-# nasal lib thread.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var thread=
-{
-    newthread:func(){},
-    newlock:func(){},
-    lock:func(){},
-    unlock:func(){},
-    newsem:func(){},
-    semdown:func(){},
-    semup:func(){},
-};
\ No newline at end of file
diff --git a/version3.0/lib/unix.nas b/version3.0/lib/unix.nas
deleted file mode 100644
index 6237a2c..0000000
--- a/version3.0/lib/unix.nas
+++ /dev/null
@@ -1,22 +0,0 @@
-# nasal lib unix.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var unix=
-{
-    pipe:func(){},
-    fork:func(){},
-    dup2:func(){},
-    exec:func(){},
-    waitpid:func(){},
-    opendir:func(){},
-    readdir:func(){},
-    closedir:func(){},
-    time:func(){},
-    chdir:func(){},
-    environ:func(){},
-    sleep:func(){},
-};
\ No newline at end of file
diff --git a/version3.0/lib/utf8.nas b/version3.0/lib/utf8.nas
deleted file mode 100644
index 1bd2e82..0000000
--- a/version3.0/lib/utf8.nas
+++ /dev/null
@@ -1,15 +0,0 @@
-# nasal lib utf8.nas
-# 2020/2/6
-# this file is used to avoid name confliction
-# and is used to avoid name undefined
-# before running this file will be translated to abstract syntax tree
-# and this ast will be linked before main ast as main-ast's beginning
-
-var utf8=
-{
-    chstr:func(){},
-    strc:func(){},
-    substr:func(){},
-    size:func(){},
-    validate:func(){},
-};
\ No newline at end of file