Token next_token(char **str)
{
Token t = {'\0', NULL};
char *s = *str;
if ((str == NULL) || (*str == NULL) || (**str == NULLCHAR)) {
return t;
}
// Eat whitespace
while (isspace(*s)) ++s;
// If we match a delimiter, we're done
if (matchDelim(*s) != NULLCHAR) {
t.n = AST_new();
AST_settype(t.n, chartoTYPE(*s));
t.c = *s;
*str = ++s;
return t;
}
char *jump = NULL;
double literal = strtod(s, &jump);
// If we matched a number, we're done
if (s != jump) {
t.n = AST_new();
AST_settype(t.n, LITERAL);
AST_setnum(t.n, literal);
*str = jump;
return t;
}
// If we don't know what to do with the string, print an error
fprintf(stderr, "%s: [%s]\n", "next_token: invalid expression",
s);
return t;
}
AST* AST_newStringToken(char* text, int tipo, int linha){
// printf("Teste5\n");
AST* novo = AST_new(tipo,linha);
novo->sVal = text;
return novo;
}
AST_Node parse(char *l)
{
Explist e = Explist_new();
Explist e_;
Token t;
Token last = {'\0', NULL};
AST_Node root = NULL;
bool done = false;
while (!done) {
t = next_token(&l);
if (t.n == NULL) {
done = true;
continue;
}
TYPE type = AST_gettype(t.n);
// Closing paren followed by opening paren or literal
if ((last.c == RPAREN) && ((type == LITERAL) || (t.c == LPAREN))) {
AST_Node mul = AST_settype(AST_new(), PROD);
e = Explist_add(mul, e);
}
// Literal followed by opening paren
else if ((last.n != NULL) &&
(AST_gettype(last.n) == LITERAL) && (t.c == LPAREN)) {
AST_Node mul = AST_settype(AST_new(), PROD);
e = Explist_add(mul, e);
}
if (t.c == LPAREN) {
e = Explist_add(t.n, e);
e = Explist_prepend(Explist_new(), e);
AST_free(&last.n);
last.c = t.c;
last.n = AST_copy(t.n);
continue;
}
if (t.c == RPAREN) {
e_ = Explist_collapse(e);
if (e == e_) {
fprintf(stderr, "%s\n", "Unexpected right parenthesis");
Explist_free(&e_);
AST_free(&t.n);
return NULL;
}
e= e_;
AST_free(&t.n);
AST_free(&last.n);
last.c = t.c;
last.n = AST_copy(t.n);
continue;
}
e = Explist_add(t.n, e);
AST_free(&last.n);
last.c = t.c;
last.n = AST_copy(t.n);
}
if (!Explist_singleton(e)) fprintf(stderr, "%s\n", "Unclosed parenthesis");
root = Explist_toAST(e);
Explist_free(&e);
AST_free(&last.n);
return root;
}
AST* AST_newNumToken(int val, int tipo, int linha){
// printf("Teste4\n");
AST* novo = AST_new(tipo,linha);
novo->iVal = val;
return novo;
}
