generic-library/ChaiScript
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added inline map creation

Browse Source
This commit is contained in:
Jonathan Turner 2009-07-01 13:19:26 +00:00
parent 2cba593c53
commit bb174b37a6
5 changed files with 83 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
chaiscript/chaiscript.hpp
View File

@ -39,12 +39,12 @@ namespace chaiscript
*/
class Token_Type { public: enum Type { Error, Int, Float, Id, Char, Str, Eol, Fun_Call, Arg_List, Variable, Equation, Var_Decl,
Expression, Comparison, Additive, Multiplicative, Negate, Not, Array_Call, Dot_Access, Quoted_String, Single_Quoted_String,
Lambda, Block, Def, While, If, For, Inline_Array, Inline_Map, Return, File, Prefix }; };
Lambda, Block, Def, While, If, For, Inline_Array, Inline_Map, Return, File, Prefix, Break, Map_Pair }; };
const char *token_type_to_string(int tokentype) {
const char *token_types[] = { "Internal Parser Error", "Int", "Float", "Id", "Char", "Str", "Eol", "Fun_Call", "Arg_List", "Variable", "Equation", "Var_Decl",
"Expression", "Comparison", "Additive", "Multiplicative", "Negate", "Not", "Array_Call", "Dot_Access", "Quoted_String", "Single_Quoted_String",
"Lambda", "Block", "Def", "While", "If", "For", "Inline_Array", "Inline_Map", "Return", "File", "Prefix" };
"Lambda", "Block", "Def", "While", "If", "For", "Inline_Array", "Inline_Map", "Return", "File", "Prefix", "Break", "Map_Pair" };
return token_types[tokentype];
}

6
chaiscript/chaiscript_engine.hpp
View File

@ -85,11 +85,9 @@ namespace chaiscript
dispatchkit::Boxed_Value value;
try {
parser.clear_match_stack();
if (parser.parse(input, filename)) {
//show_match_stack();
//parser.show_match_stack();
value = eval_token<Eval_Engine>(engine, parser.ast());
//clear_match_stack();
}
}
catch (const ReturnValue &rv) {
@ -97,7 +95,6 @@ namespace chaiscript
}
catch (Parse_Error &pe) {
std::cout << pe.reason << " in " << pe.filename << " at " << pe.position.line << ", " << pe.position.column << std::endl;
parser.clear_match_stack();
}
catch (EvalError &ee) {
if (filename != std::string("__EVAL__")) {
@ -110,6 +107,7 @@ namespace chaiscript
catch (std::exception &e) {
std::cout << "Exception: " << e.what() << std::endl;
}
parser.clear_match_stack();
return value;
}

18
chaiscript/chaiscript_eval.hpp
View File

@ -186,27 +186,25 @@ namespace chaiscript
}
}
break;
/*
case (TokenType::Map_Init) : {
case (Token_Type::Inline_Map) : {
try {
retval = dispatch(ss.get_function("Map"), dispatchkit::Param_List_Builder());
for (i = 0; i < node->children.size(); ++i) {
for (i = 0; i < node->children[0]->children.size(); ++i) {
try {
dispatchkit::Boxed_Value key = eval_token(ss, node->children[i]->children[0]);
dispatchkit::Boxed_Value key = eval_token(ss, node->children[0]->children[i]->children[0]);
dispatchkit::Boxed_Value slot = dispatch(ss.get_function("[]"), dispatchkit::Param_List_Builder() << retval << key);
dispatch(ss.get_function("="), dispatchkit::Param_List_Builder() << slot << eval_token(ss, node->children[i]->children[1]));
dispatch(ss.get_function("="), dispatchkit::Param_List_Builder() << slot << eval_token(ss, node->children[0]->children[i]->children[1]));
}
catch (const dispatchkit::dispatch_error &inner_e) {
throw EvalError("Can not find appropriate '=' for map init", node->children[i]);
throw EvalError("Can not find appropriate '=' for map init", node->children[0]->children[i]);
}
}
}
catch (const dispatchkit::dispatch_error &e) {
throw EvalError("Can not find appropriate 'Vector()'", node);
throw EvalError("Can not find appropriate 'Map()'", node);
}
}
break;
*/
case (Token_Type::Fun_Call) : {
dispatchkit::Param_List_Builder plb;
@ -461,11 +459,11 @@ namespace chaiscript
throw ReturnValue(retval, node);
}
break;
/*
case (TokenType::Break) : {
case (Token_Type::Break) : {
throw BreakLoop(node);
}
break;
/*
case (TokenType::Statement) :
case (TokenType::Carriage_Return) :
case (TokenType::Semicolon) :

70
chaiscript/chaiscript_parser.hpp
View File

@ -613,6 +613,27 @@ namespace chaiscript
}
bool Container_Arg_List() {
bool retval = false;
int prev_stack_top = match_stack.size();
if (Map_Pair()) {
retval = true;
if (Char(',')) {
do {
if (!Map_Pair()) {
throw Parse_Error("Unexpected value in container", match_stack.back());
}
} while (retval && Char(','));
}
build_match(Token_Type::Arg_List, prev_stack_top);
}
return retval;
}
bool Lambda() {
bool retval = false;
@ -762,6 +783,20 @@ namespace chaiscript
return retval;
}
bool Break() {
bool retval = false;
int prev_stack_top = match_stack.size();
if (Keyword("break")) {
retval = true;
build_match(Token_Type::Break, prev_stack_top);
}
return retval;
}
bool Id_Fun_Array() {
bool retval = false;
std::string::iterator prev_pos = input_pos;
@ -852,12 +887,22 @@ namespace chaiscript
if (Char('[')) {
retval = true;
Arg_List();
Container_Arg_List();
if (!Char(']')) {
throw Parse_Error("Missing closing square bracket", File_Position(line, col), filename);
}
if ((prev_stack_top != match_stack.size()) && (match_stack.back()->children.size() > 0)) {
if (match_stack.back()->children[0]->identifier == Token_Type::Map_Pair) {
build_match(Token_Type::Inline_Map, prev_stack_top);
}
else {
build_match(Token_Type::Inline_Array, prev_stack_top);
}
}
else {
build_match(Token_Type::Inline_Array, prev_stack_top);
}
}
return retval;
}
@ -1069,6 +1114,27 @@ namespace chaiscript
return retval;
}
bool Map_Pair() {
bool retval = false;
int prev_stack_top = match_stack.size();
if (Expression()) {
retval = true;
if (Symbol(":")) {
do {
if (!Expression()) {
throw Parse_Error("Incomplete map pair", File_Position(line, col), filename);
}
} while (retval && Symbol(":"));
build_match(Token_Type::Map_Pair, prev_stack_top);
}
}
return retval;
}
bool Equation() {
bool retval = false;
@ -1090,7 +1156,7 @@ namespace chaiscript
}
bool Statement() {
if (Return() || Equation()) {
if (Return() || Break() || Equation()) {
return true;
}
else {

2
chaiscript/main.cpp
View File

@ -26,7 +26,7 @@ int main(int argc, char *argv[]) {
dispatchkit::dispatch(chai.get_eval_engine().get_function("print"),
dispatchkit::Param_List_Builder() << printeval);
} catch (const std::runtime_error &e) {
std::cout << "result: object #" << &val << " Error: " << e.what() << std::endl;
//std::cout << "result: object #" << &val << " Error: " << e.what() << std::endl;
}
}
std::cout << "eval> ";