void
op_asgngvarexpr(void)
{
Var arg1, arg2;
Error r;
arg2 = pop(); arg1 = pop();
if (arg1.type != STR) {
raise(E_ARGTYPE);
} else if (!valid_ident(arg1.v.str->str)) {
raise(E_RANGE);
} else {
r = var_assign_global(this, arg1.v.str, arg2);
if (r != E_NONE) {
raise(r);
} else {
push (var_dup(arg2));
}
}
var_free(arg1);
}
static inline int
sql_get_next_token(YYSTYPE *yylval, void *parm) {
mvc *c = (mvc*)parm;
struct scanner *lc = &c->scanner;
int token = 0, cur = 0;
if (lc->rs->buf == NULL) /* malloc failure */
return EOF;
if (lc->yynext) {
int next = lc->yynext;
lc->yynext = 0;
return(next);
}
if (lc->yybak) {
lc->rs->buf[lc->rs->pos + lc->yycur] = lc->yybak;
lc->yybak = 0;
}
lc->yysval = lc->yycur;
lc->yylast = lc->yyval;
cur = scanner_getc(lc);
if (cur < 0)
return EOF;
token = tokenize(c, cur);
yylval->sval = (lc->rs->buf + (int)lc->rs->pos + lc->yysval);
/* This is needed as ALIAS and aTYPE get defined too late, see
sql_keyword.mx */
if (token == KW_ALIAS)
token = ALIAS;
if (token == KW_TYPE)
token = aTYPE;
if (token == IDENT || token == COMPARISON || token == FILTER_FUNC || token == AGGR || token == AGGR2 || token == RANK || token == aTYPE || token == ALIAS)
yylval->sval = sa_strndup(c->sa, yylval->sval, lc->yycur-lc->yysval);
else if (token == STRING) {
char quote = *yylval->sval;
char *str = sa_alloc( c->sa, (lc->yycur-lc->yysval-2)*2 + 1 );
assert(quote == '"' || quote == '\'');
lc->rs->buf[lc->rs->pos+lc->yycur- 1] = 0;
if (quote == '"') {
if (valid_ident(yylval->sval+1,str)) {
token = IDENT;
} else {
sql_error(c, 1, "Invalid identifier '%s'", yylval->sval+1);
return LEX_ERROR;
}
} else {
memcpy(str, yylval->sval+1, lc->yycur-lc->yysval - 1);
}
yylval->sval = str;
/* reset original */
lc->rs->buf[lc->rs->pos+lc->yycur- 1] = quote;
}
return(token);
}
