conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use pic_strdup in lexer and parser

This commit is contained in:
Yuichi Nishiwaki 2014-02-01 19:33:23 +09:00
parent 1746243b15
commit c68a7c41c7
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/parse.y
View File

@ -17,7 +17,7 @@
/* just for supressing warnings. a little bit evil */
int yylex();
int yylex_();
void yylex_init();
void yylex_init_extra();
void yyset_in();
void yy_scan_string();
void yylex_destroy();
@ -36,7 +36,7 @@ parser_control_new(pic_state *pic)
p->value = pic_undef_value();
p->yy_arena = pic_vec_new(pic, YY_ARENA_SIZE);
p->yy_arena_idx = 0;
yylex_init(&p->yyscanner);
yylex_init_extra(p, &p->yyscanner);
return p;
}
@ -94,7 +94,7 @@ yy_str_new_cstr(struct parser_control *p, const char *cstr)
str = (struct pic_string *)yy_obj_alloc(p, sizeof(struct pic_string), PIC_TT_STRING);
str->len = strlen(cstr);
str->str = strdup(cstr);
str->str = pic_strdup(p->pic, cstr);
return pic_obj_value(str);
}
@ -123,7 +123,7 @@ yy_blob_new(struct parser_control *p, char *dat, int len)
struct pic_blob *bv;
bv = (struct pic_blob *)yy_obj_alloc(p, sizeof(struct pic_blob), PIC_TT_BLOB);
bv->data = strndup(dat, len);
bv->data = pic_strndup(p->pic, dat, len);
bv->len = len;
return pic_obj_value(bv);
}

5
src/scan.l
View File

@ -27,6 +27,7 @@
%option reentrant
%option noinput
%option nounput
%option extra-type="struct parser_control *"
/* comment */
comment ;.*$
@ -88,7 +89,7 @@ infnan "+inf.0"|"-inf.0"|"+nan.0"|"-nan.0"
}
{identifier} {
yylvalp->cstr = strdup(yytext);
yylvalp->cstr = pic_strdup(yyextra->pic, yytext);
return tSYMBOL;
}
@ -97,7 +98,7 @@ infnan "+inf.0"|"-inf.0"|"+nan.0"|"-nan.0"
[^\\"]* yymore();
"\"" {
yytext[yyleng-1] = '\0';
yylvalp->cstr = strdup(yytext);
yylvalp->cstr = pic_strdup(yyextra->pic, yytext);
BEGIN(INITIAL);
return tSTRING;
}