MyFavMirrors
/
owntone-server
mirror of https://github.com/owntone/owntone-server.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix string parsing, precedence problems, add more detailed error reporting

This commit is contained in:
Ron Pedde 2005-10-22 23:05:29 +00:00
parent dda666ea8e
commit 1d0ecad346
3 changed files with 212 additions and 141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/parser-driver.c
View File

@ -34,9 +34,11 @@ int main(int argc, char *argv[]) {
printf("Parsing %s\n",argv[optind]); printf("Parsing %s\n",argv[optind]);
pt=sp_init(); pt=sp_init();
sp_parse(pt,argv[optind]); if(!sp_parse(pt,argv[optind])) {
printf("%s\n",sp_get_error(pt));
} else {
printf("SQL: %s\n",sp_sql_clause(pt)); printf("SQL: %s\n",sp_sql_clause(pt));
}
sp_dispose(pt); sp_dispose(pt);

251
src/smart-parser.c
View File

@ -185,24 +185,72 @@ FIELDLOOKUP sp_fields[] = {
}; };
typedef struct tag_parsetree { typedef struct tag_parsetree {
int in_string;
char *term; char *term;
char *current; char *current;
SP_TOKEN token; SP_TOKEN token;
SP_TOKEN next_token; int token_pos;
SP_NODE *tree; SP_NODE *tree;
char *error;
char level;
} PARSESTRUCT, *PARSETREE; } PARSESTRUCT, *PARSETREE;
#define SP_E_SUCCESS 0
#define SP_E_CLOSE 1
#define SP_E_FIELD 2
#define SP_E_STRCMP 3
#define SP_E_CLOSEQUOTE 4
#define SP_E_STRING 5
#define SP_E_OPENQUOTE 6
#define SP_E_INTCMP 7
#define SP_E_NUMBER 8
char *sp_errorstrings[] = {
"Success",
"Expecting ')'",
"Expecting field name",
"Expecting string comparison operator (=, includes)",
"Expecting '\"' (closing quote)",
"Expecting literal string",
"Expecting '\"' (opening quote)",
"Expecting integer comparison operator (=,<,>, etc)",
"Expecting integer"
};
/* Forwards */ /* Forwards */
SP_NODE *sp_parse_phrase(PARSETREE tree); SP_NODE *sp_parse_phrase(PARSETREE tree);
SP_NODE *sp_parse_aexpr(PARSETREE tree);
SP_NODE *sp_parse_oexpr(PARSETREE tree); SP_NODE *sp_parse_oexpr(PARSETREE tree);
SP_NODE *sp_parse_aexpr(PARSETREE tree);
SP_NODE *sp_parse_expr(PARSETREE tree); SP_NODE *sp_parse_expr(PARSETREE tree);
SP_NODE *sp_parse_criterion(PARSETREE tree); SP_NODE *sp_parse_criterion(PARSETREE tree);
SP_NODE *sp_parse_string_criterion(PARSETREE tree); SP_NODE *sp_parse_string_criterion(PARSETREE tree);
SP_NODE *sp_parse_int_criterion(PARSETREE tree); SP_NODE *sp_parse_int_criterion(PARSETREE tree);
SP_NODE *sp_parse_date_criterion(PARSETREE tree); SP_NODE *sp_parse_date_criterion(PARSETREE tree);
void sp_free_node(SP_NODE *); void sp_free_node(SP_NODE *node);
int sp_node_size(SP_NODE *); int sp_node_size(SP_NODE *node);
void sp_set_error(PARSETREE tree,int error);
/**
* simple logging funcitons
*
* @param tree tree ew are parsing
* @param function funtion entering/exiting
* @param result result of param (if exiting)
*/
void sp_enter_exit(PARSETREE tree, char *function, int enter, void *result) {
char *str_result = result ? "success" : "failure";
if(enter) {
tree->level++;
DPRINTF(E_DBG,L_PARSE,"%*s Entering %s\n",tree->level," ",function);
} else {
DPRINTF(E_DBG,L_PARSE,"%*s Exiting %s (%s)\n",tree->level," ",
function, str_result);
tree->level--;
}
}
/** /**
* see if a string is actually a number * see if a string is actually a number
@ -228,7 +276,6 @@ int sp_isnumber(char *string) {
* @returns next token (token, not the value) * @returns next token (token, not the value)
*/ */
int sp_scan(PARSETREE tree) { int sp_scan(PARSETREE tree) {
int is_string=0;
char *terminator=NULL; char *terminator=NULL;
char *tail; char *tail;
int advance=0; int advance=0;
@ -242,10 +289,8 @@ int sp_scan(PARSETREE tree) {
free(tree->token.data.cvalue); free(tree->token.data.cvalue);
} }
tree->token=tree->next_token;
if(tree->token.token_id == T_EOF) { if(tree->token.token_id == T_EOF) {
DPRINTF(E_SPAM,L_PARSE,"Returning token T_EOF\n"); DPRINTF(E_DBG,L_PARSE,"%*s Returning token T_EOF\n",tree->level," ");
return T_EOF; return T_EOF;
} }
@ -253,70 +298,76 @@ int sp_scan(PARSETREE tree) {
while(*(tree->current) && strchr(" \t\n\r",*(tree->current))) while(*(tree->current) && strchr(" \t\n\r",*(tree->current)))
tree->current++; tree->current++;
tree->token_pos = tree->current - tree->term;
if(!*(tree->current)) { if(!*(tree->current)) {
tree->next_token.token_id = T_EOF; tree->token.token_id = T_EOF;
DPRINTF(E_SPAM,L_PARSE,"Returning token %04x\n",tree->token.token_id); DPRINTF(E_DBG,L_PARSE,"%*s Returning token %04x\n",tree->level," ",
tree->token.token_id);
return tree->token.token_id; return tree->token.token_id;
} }
DPRINTF(E_SPAM,L_PARSE,"Current offset: %d, char: %c\n", DPRINTF(E_SPAM,L_PARSE,"Current offset: %d, char: %c\n",
tree->current - tree->term, *(tree->current)); tree->token_pos, *(tree->current));
/* check singletons */ /* check singletons */
if(!tree->in_string) {
switch(*(tree->current)) { switch(*(tree->current)) {
case '|': case '|':
if((*(tree->current + 1) == '|')) { if((*(tree->current + 1) == '|')) {
advance = 2; advance = 2;
tree->next_token.token_id = T_OR; tree->token.token_id = T_OR;
} }
break; break;
case '&': case '&':
if((*(tree->current + 1) == '&')) { if((*(tree->current + 1) == '&')) {
advance = 2; advance = 2;
tree->next_token.token_id = T_AND; tree->token.token_id = T_AND;
} }
break; break;
case '=': case '=':
advance=1; advance=1;
tree->next_token.token_id = T_EQUAL; tree->token.token_id = T_EQUAL;
break; break;
case '<': case '<':
if((*(tree->current + 1)) == '=') { if((*(tree->current + 1)) == '=') {
advance = 2; advance = 2;
tree->next_token.token_id = T_LESSEQUAL; tree->token.token_id = T_LESSEQUAL;
} else { } else {
advance = 1; advance = 1;
tree->next_token.token_id = T_LESS; tree->token.token_id = T_LESS;
} }
break; break;
case '>': case '>':
if((*(tree->current + 1)) == '=') { if((*(tree->current + 1)) == '=') {
advance = 2; advance = 2;
tree->next_token.token_id = T_GREATEREQUAL; tree->token.token_id = T_GREATEREQUAL;
} else { } else {
advance = 1; advance = 1;
tree->next_token.token_id = T_GREATER; tree->token.token_id = T_GREATER;
} }
break; break;
case '(': case '(':
advance=1; advance=1;
tree->next_token.token_id = T_OPENPAREN; tree->token.token_id = T_OPENPAREN;
break; break;
case ')': case ')':
advance=1; advance=1;
tree->next_token.token_id = T_CLOSEPAREN; tree->token.token_id = T_CLOSEPAREN;
break; break;
}
}
case '"': if(*tree->current == '"') {
advance = 1; advance = 1;
tree->next_token.token_id = T_QUOTE; tree->in_string = !tree->in_string;
break; tree->token.token_id = T_QUOTE;
} }
if(advance) { /* singleton */ if(advance) { /* singleton */
@ -328,8 +379,7 @@ int sp_scan(PARSETREE tree) {
tail = tree->current; tail = tree->current;
terminator = " \t\n\r\"<>=()|&"; terminator = " \t\n\r\"<>=()|&";
if(tree->token.token_id == T_QUOTE) { if(tree->in_string) {
is_string=1;
terminator="\""; terminator="\"";
} }
@ -340,7 +390,7 @@ int sp_scan(PARSETREE tree) {
found=0; found=0;
len = tail - tree->current; len = tail - tree->current;
if(!is_string) { if(!tree->in_string) {
/* find it in the token list */ /* find it in the token list */
pfield=sp_fields; pfield=sp_fields;
DPRINTF(E_SPAM,L_PARSE,"Len is %d\n",len); DPRINTF(E_SPAM,L_PARSE,"Len is %d\n",len);
@ -356,35 +406,36 @@ int sp_scan(PARSETREE tree) {
} }
if(found) { if(found) {
tree->next_token.token_id = pfield->type; tree->token.token_id = pfield->type;
} else { } else {
tree->next_token.token_id = T_STRING; tree->token.token_id = T_STRING;
} }
if(tree->next_token.token_id & 0x2000) { if(tree->token.token_id & 0x2000) {
tree->next_token.data.cvalue = malloc(len + 1); tree->token.data.cvalue = malloc(len + 1);
if(!tree->next_token.data.cvalue) { if(!tree->token.data.cvalue) {
/* fail on malloc error */ /* fail on malloc error */
DPRINTF(E_FATAL,L_PARSE,"Malloc error.\n"); DPRINTF(E_FATAL,L_PARSE,"Malloc error.\n");
} }
strncpy(tree->next_token.data.cvalue,tree->current,len); strncpy(tree->token.data.cvalue,tree->current,len);
tree->next_token.data.cvalue[len] = '\x0'; tree->token.data.cvalue[len] = '\x0';
} }
/* check for numberic? */ /* check for numberic? */
if(tree->next_token.token_id == T_STRING && if(tree->token.token_id == T_STRING &&
sp_isnumber(tree->next_token.data.cvalue)) { sp_isnumber(tree->token.data.cvalue)) {
/* woops! */ /* woops! */
numval = atoi(tree->next_token.data.cvalue); numval = atoi(tree->token.data.cvalue);
free(tree->next_token.data.cvalue); free(tree->token.data.cvalue);
tree->next_token.data.ivalue = numval; tree->token.data.ivalue = numval;
tree->next_token.token_id = T_NUMBER; tree->token.token_id = T_NUMBER;
} }
tree->current=tail; tree->current=tail;
} }
DPRINTF(E_SPAM,L_PARSE,"Returning token %04x\n",tree->token.token_id); DPRINTF(E_DBG,L_PARSE,"%*s Returning token %04x\n",tree->level," ",
tree->token.token_id);
if(tree->token.token_id & 0x2000) if(tree->token.token_id & 0x2000)
DPRINTF(E_SPAM,L_PARSE,"String val: %s\n",tree->token.data.cvalue); DPRINTF(E_SPAM,L_PARSE,"String val: %s\n",tree->token.data.cvalue);
if(tree->token.token_id & 0x1000) if(tree->token.token_id & 0x1000)
@ -416,10 +467,10 @@ PARSETREE sp_init(void) {
* I'm not a language expert, so I'd welcome suggestions on the * I'm not a language expert, so I'd welcome suggestions on the
* following production rules: * following production rules:
* *
* phrase -> aexpr T_EOF * phrase -> oexpr T_EOF
* aexpr -> oexpr { T_AND oexpr } * oexpr -> aexpr { T_AND aexpr }
* oexpr -> expr { T_OR expr } * aexpr -> expr { T_OR expr }
* expr -> T_OPENPAREN aexpr T_CLOSEPAREN | criterion * expr -> T_OPENPAREN oexpr T_CLOSEPAREN | criterion
* criterion -> field op value * criterion -> field op value
* *
* field -> T_STRINGFIELD, T_INTFIELD, T_DATEFIELD * field -> T_STRINGFIELD, T_INTFIELD, T_DATEFIELD
@ -434,13 +485,11 @@ int sp_parse(PARSETREE tree, char *term) {
tree->term = strdup(term); /* will be destroyed by parsing */ tree->term = strdup(term); /* will be destroyed by parsing */
tree->current=tree->term; tree->current=tree->term;
tree->token.token_id=T_BOF; tree->token.token_id=T_BOF;
tree->next_token.token_id=T_BOF;
sp_scan(tree);
sp_scan(tree);
if(tree->tree) if(tree->tree)
sp_free_node(tree->tree); sp_free_node(tree->tree);
sp_scan(tree);
tree->tree = sp_parse_phrase(tree); tree->tree = sp_parse_phrase(tree);
if(tree->tree) { if(tree->tree) {
@ -465,24 +514,25 @@ int sp_parse(PARSETREE tree, char *term) {
SP_NODE *sp_parse_phrase(PARSETREE tree) { SP_NODE *sp_parse_phrase(PARSETREE tree) {
SP_NODE *expr; SP_NODE *expr;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_phrase\n"); sp_enter_exit(tree,"sp_parse_phrase",1,NULL);
expr = sp_parse_aexpr(tree); DPRINTF(E_SPAM,L_PARSE,"%*s Entering sp_parse_phrase\n",tree->level," ");
tree->level++;
expr = sp_parse_oexpr(tree);
if((!expr) || (tree->token.token_id != T_EOF)) { if((!expr) || (tree->token.token_id != T_EOF)) {
sp_free_node(expr); sp_free_node(expr);
expr = NULL; expr = NULL;
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_phrase: %s\n",expr ? sp_enter_exit(tree,"sp_parse_phrase",0,expr);
"success" : "fail");
return expr; return expr;
} }
/** /**
* parse for an ANDed expression * parse for an ANDed expression
* *
* aexpr -> oexpr { T_AND oexpr } * aexpr -> expr { T_AND expr }
* *
* @param tree tree we are building * @param tree tree we are building
* @returns new SP_NODE pointer if successful, NULL otherwise * @returns new SP_NODE pointer if successful, NULL otherwise
@ -491,7 +541,7 @@ SP_NODE *sp_parse_aexpr(PARSETREE tree) {
SP_NODE *expr; SP_NODE *expr;
SP_NODE *pnew; SP_NODE *pnew;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_aexpr\n"); sp_enter_exit(tree,"sp_parse_aexpr",1,NULL);
expr = sp_parse_expr(tree); expr = sp_parse_expr(tree);
@ -517,16 +567,14 @@ SP_NODE *sp_parse_aexpr(PARSETREE tree) {
expr=pnew; expr=pnew;
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_aexpr: %s\n",expr ? sp_enter_exit(tree,"sp_parse_aexpr",0,NULL);
"success" : "fail");
return expr; return expr;
} }
/** /**
* parse for an ORed expression * parse for an ORed expression
* *
* oexpr -> expr { T_OR expr } * oexpr -> aexpr { T_OR aexpr }
* *
* @param tree tree we are building * @param tree tree we are building
* @returns new SP_NODE pointer if successful, NULL otherwise * @returns new SP_NODE pointer if successful, NULL otherwise
@ -535,9 +583,9 @@ SP_NODE *sp_parse_oexpr(PARSETREE tree) {
SP_NODE *expr; SP_NODE *expr;
SP_NODE *pnew; SP_NODE *pnew;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_oexpr\n"); sp_enter_exit(tree,"sp_parse_oexpr",1,NULL);
expr = sp_parse_expr(tree); expr = sp_parse_aexpr(tree);
while(expr && (tree->token.token_id == T_OR)) { while(expr && (tree->token.token_id == T_OR)) {
pnew = (SP_NODE*)malloc(sizeof(SP_NODE)); pnew = (SP_NODE*)malloc(sizeof(SP_NODE));
@ -551,7 +599,7 @@ SP_NODE *sp_parse_oexpr(PARSETREE tree) {
pnew->left.node = expr; pnew->left.node = expr;
sp_scan(tree); sp_scan(tree);
pnew->right.node = sp_parse_expr(tree); pnew->right.node = sp_parse_aexpr(tree);
if(!pnew->right.node) { if(!pnew->right.node) {
sp_free_node(pnew); sp_free_node(pnew);
@ -561,16 +609,14 @@ SP_NODE *sp_parse_oexpr(PARSETREE tree) {
expr=pnew; expr=pnew;
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_oexpr: %s\n",expr ? sp_enter_exit(tree,"sp_parse_oexptr",0,expr);
"success" : "fail");
return expr; return expr;
} }
/** /**
* parse for an expression * parse for an expression
* *
* expr -> T_OPENPAREN aexpr T_CLOSEPAREN | criteria * expr -> T_OPENPAREN oexpr T_CLOSEPAREN | criteria
* *
* @param tree tree we are building * @param tree tree we are building
* @returns pointer to new SP_NODE if successful, NULL otherwise * @returns pointer to new SP_NODE if successful, NULL otherwise
@ -578,14 +624,16 @@ SP_NODE *sp_parse_oexpr(PARSETREE tree) {
SP_NODE *sp_parse_expr(PARSETREE tree) { SP_NODE *sp_parse_expr(PARSETREE tree) {
SP_NODE *expr; SP_NODE *expr;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_expr\n"); sp_enter_exit(tree,"sp_parse_expr",1,NULL);
if(tree->token.token_id == T_OPENPAREN) { if(tree->token.token_id == T_OPENPAREN) {
sp_scan(tree); sp_scan(tree);
expr = sp_parse_aexpr(tree); expr = sp_parse_oexpr(tree);
if((expr) && (tree->token.token_id == T_CLOSEPAREN)) { if((expr) && (tree->token.token_id == T_CLOSEPAREN)) {
sp_scan(tree); sp_scan(tree);
} else { } else {
/* Error: expecting close paren */ /* Error: expecting close paren */
sp_set_error(tree,SP_E_CLOSE);
sp_free_node(expr); sp_free_node(expr);
expr=NULL; expr=NULL;
} }
@ -593,9 +641,7 @@ SP_NODE *sp_parse_expr(PARSETREE tree) {
expr = sp_parse_criterion(tree); expr = sp_parse_criterion(tree);
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_expr: %s\n",expr ? sp_enter_exit(tree,"sp_parse_expr",0,expr);
"success" : "fail");
return expr; return expr;
} }
@ -610,7 +656,7 @@ SP_NODE *sp_parse_expr(PARSETREE tree) {
SP_NODE *sp_parse_criterion(PARSETREE tree) { SP_NODE *sp_parse_criterion(PARSETREE tree) {
SP_NODE *expr=NULL; SP_NODE *expr=NULL;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_criterion\n"); sp_enter_exit(tree,"sp_parse_criterion",1,expr);
switch(tree->token.token_id) { switch(tree->token.token_id) {
case T_STRING_FIELD: case T_STRING_FIELD:
@ -627,13 +673,12 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
default: default:
/* Error: expecting field */ /* Error: expecting field */
sp_set_error(tree,SP_E_FIELD);
expr = NULL; expr = NULL;
break; break;
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_criterion: %s\n",expr ? sp_enter_exit(tree,"sp_parse_criterion",0,expr);
"success" : "fail");
return expr; return expr;
} }
@ -647,7 +692,7 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
int result=0; int result=0;
SP_NODE *pnew = NULL; SP_NODE *pnew = NULL;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_string_criterion\n"); sp_enter_exit(tree,"sp_parse_string_criterion",1,NULL);
pnew = malloc(sizeof(SP_NODE)); pnew = malloc(sizeof(SP_NODE));
if(!pnew) { if(!pnew) {
@ -666,6 +711,7 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
break; break;
default: default:
/* Error: expecting legal string comparison operator */ /* Error: expecting legal string comparison operator */
sp_set_error(tree,SP_E_STRCMP);
break; break;
} }
@ -682,12 +728,15 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
result=1; result=1;
sp_scan(tree); sp_scan(tree);
} else { } else {
sp_set_error(tree,SP_E_CLOSEQUOTE);
DPRINTF(E_SPAM,L_PARSE,"Expecting closign quote\n"); DPRINTF(E_SPAM,L_PARSE,"Expecting closign quote\n");
} }
} else { } else {
sp_set_error(tree,SP_E_STRING);
DPRINTF(E_SPAM,L_PARSE,"Expecting literal string\n"); DPRINTF(E_SPAM,L_PARSE,"Expecting literal string\n");
} }
} else { } else {
sp_set_error(tree,SP_E_OPENQUOTE);
DPRINTF(E_SPAM,L_PARSE,"Expecting opening quote\n"); DPRINTF(E_SPAM,L_PARSE,"Expecting opening quote\n");
} }
} }
@ -698,9 +747,7 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
pnew=NULL; pnew=NULL;
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_string_criterion: %s\n",result ? sp_enter_exit(tree,"sp_parse_string_criterion",0,pnew);
"success" : "fail");
return pnew; return pnew;
} }
@ -714,7 +761,7 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
int result=0; int result=0;
SP_NODE *pnew = NULL; SP_NODE *pnew = NULL;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_int_criterion\n"); sp_enter_exit(tree,"sp_parse_int_criterion",1,pnew);
pnew = malloc(sizeof(SP_NODE)); pnew = malloc(sizeof(SP_NODE));
if(!pnew) { if(!pnew) {
DPRINTF(E_FATAL,L_PARSE,"Malloc Error\n"); DPRINTF(E_FATAL,L_PARSE,"Malloc Error\n");
@ -735,8 +782,9 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
pnew->op_type = SP_OPTYPE_INT; pnew->op_type = SP_OPTYPE_INT;
break; break;
default: default:
/* Error: expecting legal string comparison operator */ /* Error: expecting legal int comparison operator */
DPRINTF(E_LOG,L_PARSE,"Expecting string comparison op, got %04X\n", sp_set_error(tree,SP_E_INTCMP);
DPRINTF(E_LOG,L_PARSE,"Expecting int comparison op, got %04X\n",
tree->token.token_id); tree->token.token_id);
break; break;
} }
@ -750,6 +798,7 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
sp_scan(tree); sp_scan(tree);
} else { } else {
/* Error: Expecting number */ /* Error: Expecting number */
sp_set_error(tree,SP_E_NUMBER);
DPRINTF(E_LOG,L_PARSE,"Expecting number, got %04X\n", DPRINTF(E_LOG,L_PARSE,"Expecting number, got %04X\n",
tree->token.token_id); tree->token.token_id);
result = 0; result = 0;
@ -761,8 +810,7 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
pnew=NULL; pnew=NULL;
} }
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_int_criterion: %s\n",result ? sp_enter_exit(tree,"sp_parse_int_criterion",0,pnew);
"success" : "fail");
return pnew; return pnew;
} }
@ -775,13 +823,11 @@ SP_NODE *sp_parse_criterion(PARSETREE tree) {
* @returns pointer to new SP_NODE if successful, NULL otherwise * @returns pointer to new SP_NODE if successful, NULL otherwise
*/ */
SP_NODE *sp_parse_date_criterion(PARSETREE tree) { SP_NODE *sp_parse_date_criterion(PARSETREE tree) {
int result=0;
SP_NODE *pnew=NULL; SP_NODE *pnew=NULL;
DPRINTF(E_SPAM,L_PARSE,"Entering sp_parse_date_criterion\n"); sp_enter_exit(tree,"sp_parse_date_criterion",1,pnew);
DPRINTF(E_SPAM,L_PARSE,"Exiting sp_parse_date_criterion: %s\n",result ? sp_enter_exit(tree,"sp_parse_date_criterion",0,pnew);
"success" : "fail");
return pnew; return pnew;
} }
@ -837,8 +883,8 @@ int sp_dispose(PARSETREE tree) {
if(tree->token.token_id & 0x2000) if(tree->token.token_id & 0x2000)
free(tree->token.data.cvalue); free(tree->token.data.cvalue);
if(tree->next_token.token_id & 0x2000) if(tree->error)
free(tree->next_token.data.cvalue); free(tree->error);
free(tree); free(tree);
return 1; return 1;
@ -948,7 +994,30 @@ char *sp_sql_clause(PARSETREE tree) {
* @param tree tree that generated the last error * @param tree tree that generated the last error
* @returns text of the last error * @returns text of the last error
*/ */
char *sp_geterror(PARSETREE tree) { char *sp_get_error(PARSETREE tree) {
return "blah"; return tree->error;
}
/**
* set the parse tree error for retrieval above
*
* @param tree tree we are setting error for
* @param error error code
*/
void sp_set_error(PARSETREE tree, int error) {
int len;
if(tree->error)
free(tree->error);
len = 10 + (tree->token_pos / 10) + 1 + strlen(sp_errorstrings[error]) + 1;
tree->error = (char*)malloc(len);
if(!tree->error) {
DPRINTF(E_FATAL,L_PARSE,"Malloc error");
return;
}
sprintf(tree->error,"Offset %d: %s",tree->token_pos + 1,sp_errorstrings[error]);
return;
} }

4
src/smart-parser.h
View File

@ -10,8 +10,8 @@ typedef void* PARSETREE;
extern PARSETREE sp_init(void); extern PARSETREE sp_init(void);
extern int sp_parse(PARSETREE *tree, char *term); extern int sp_parse(PARSETREE *tree, char *term);
extern int sp_dispose(PARSETREE tree); extern int sp_dispose(PARSETREE tree);
extern char *sp_geterror(PARSETREE tree); extern char *sp_get_error(PARSETREE tree);
char *sp_sql_clause(PARSETREE tree); extern char *sp_sql_clause(PARSETREE tree);
#endif /* _SMART_PARSER_H_ */ #endif /* _SMART_PARSER_H_ */