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

Fun call parsing fixed, but parsing waaaaay slower

Browse Source
This commit is contained in:
Jonathan Turner 2009-06-27 20:59:43 +00:00
parent cb1706242e
commit 88e0d15efd
1 changed files with 48 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
chaioop/main.cpp
View File

@ -392,17 +392,25 @@ namespace langkit {
if (retval) {
Finish_Parse(Token_Type::Arg_List);
return true;
}
else {
Fail_Parse();
return false;
}
return retval;
}
bool Fun_Call() {
bool retval = false;
Start_Parse();
if (Id(true) && Char('(') && (Arg_List() || true) && Char(')')) {
if (Id(true) && Char('(')) {
Arg_List();
retval = Char(')');
}
if (retval) {
Finish_Parse(Token_Type::Fun_Call);
return true;
}
@ -429,6 +437,7 @@ namespace langkit {
return true;
}
else {
Fail_Parse();
return false;
}
}
@ -450,6 +459,7 @@ namespace langkit {
return true;
}
else {
Fail_Parse();
return false;
}
}
@ -462,6 +472,7 @@ namespace langkit {
return true;
}
else {
Fail_Parse();
return false;
}
}
@ -471,18 +482,20 @@ namespace langkit {
Start_Parse();
if ( (retval = (Additive() && ((Str(">=", true) || Char('>', true) || Str("<=", true) || Char('<', true) || Str("==", true) || Str("!=", true))))) ) {
do {
retval = Additive();
while (retval && (Str(">=", true) || Char('>', true) || Str("<=", true) || Char('<', true) || Str("==", true) || Str("!=", true))) {
retval = Additive();
} while (retval && ((Str(">=", true) || Char('>', true) || Str("<=", true) || Char('<', true) || Str("==", true) || Str("!=", true))));
}
if (retval) {
Finish_Parse(Token_Type::Comparison);
return true;
}
else {
Fail_Parse();
return Additive();
}
return retval;
}
bool Additive() {
@ -490,18 +503,20 @@ namespace langkit {
Start_Parse();
if ( (retval = (Multiplicative() && (Char('+', true) || Char('-', true)))) ) {
do {
retval = Multiplicative();
while (retval && (Char('+', true) || Char('-', true))) {
retval = Multiplicative();
} while (retval && (Char('+', true) || Char('-', true)));
}
if (retval) {
Finish_Parse(Token_Type::Additive);
return true;
}
else {
Fail_Parse();
return Multiplicative();
}
return retval;
}
bool Multiplicative() {
@ -509,26 +524,20 @@ namespace langkit {
Start_Parse();
if ( (retval = (Value() && (Char('*', true) || Char('/', true)))) ) {
do {
retval = Value();
while (retval && (Char('*', true) || Char('/', true))) {
retval = Value();
} while (retval && (Char('*', true) || Char('/', true)));
}
if (retval) {
Finish_Parse(Token_Type::Multiplicative);
return true;
}
else {
Fail_Parse();
return Value();
}
/*
* The above can be shortened to this, but let's not get carried away :)
if (!(Start_Parse() && Id(true) && Char('(') && (Arg_List() || true) && Char(')') && Finish_Parse(Token_Type::Fun_Call))) {
Fail_Parse();
}
*/
return retval;
}
bool Expression() {
@ -536,29 +545,40 @@ namespace langkit {
Start_Parse();
if ( (retval = (Comparison() && (Str("&&", true) || Str("||", true)))) ) {
do {
retval = Comparison();
while (retval && (Str("&&", true) || Str("||", true))) {
retval = Comparison();
} while (retval && (Str("&&", true) || Str("||", true)));
}
if (retval) {
Finish_Parse(Token_Type::Expression);
return true;
}
else {
Fail_Parse();
return Comparison();
}
return retval;
}
bool Equation() {
bool retval;
Start_Parse();
if (LHS() && Char('=') && Expression()) {
if ( (retval = (Expression() && (Char('=', true)))) ) {
do {
retval = Expression();
} while (retval && (Char('=', true)));
}
if (retval) {
Finish_Parse(Token_Type::Equation);
return true;
}
else {
Fail_Parse();
return false;
return Expression();
}
}