hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-05-11 17:32:37 +00:00
parent 131dc2f77f
commit 6d3ccf1fb1
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ase/awk/awk.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.48 2006-05-10 16:02:38 bacon Exp $
* $Id: awk.c,v 1.49 2006-05-11 17:32:37 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -97,7 +97,6 @@ int xp_awk_close (xp_awk_t* awk)
return 0;
}
/* TODO: write a function to clear awk->parse data structure.
this would be need either as a separate function or as a part of xp_awk_clear...
do i have to pass an option to xp_awk_clear to do this??? */

10
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.103 2006-05-10 16:02:39 bacon Exp $
* $Id: parse.c,v 1.104 2006-05-11 17:32:37 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -339,15 +339,14 @@ static void __dump (xp_awk_t* awk)
int xp_awk_parse (xp_awk_t* awk)
{
if (awk->srcio == XP_NULL)
{
/* the source code io handler is not set */
awk->errnum = XP_AWK_ENOSRCIO;
return -1;
}
/* if you want to parse anew, call xp_awk_clear first.
* otherwise, the result is appened to the accumulated result */
xp_awk_clear (awk);
GET_CHAR (awk);
GET_TOKEN (awk);
@ -358,8 +357,7 @@ int xp_awk_parse (xp_awk_t* awk)
if (__parse_progunit(awk) == XP_NULL)
{
/* TODO: cleanup the parse tree created so far....
function tables also etc... */
xp_awk_clear (awk);
return -1;
}
}