*** empty log message ***

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

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> #include <xp/awk/awk_i.h>
@ -97,7 +97,6 @@ int xp_awk_close (xp_awk_t* awk)
return 0; return 0;
} }
/* TODO: write a function to clear awk->parse data structure. /* 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... 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??? */ do i have to pass an option to xp_awk_clear to do this??? */

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> #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) int xp_awk_parse (xp_awk_t* awk)
{ {
if (awk->srcio == XP_NULL) if (awk->srcio == XP_NULL)
{ {
/* the source code io handler is not set */
awk->errnum = XP_AWK_ENOSRCIO; awk->errnum = XP_AWK_ENOSRCIO;
return -1; return -1;
} }
/* if you want to parse anew, call xp_awk_clear first. xp_awk_clear (awk);
* otherwise, the result is appened to the accumulated result */
GET_CHAR (awk); GET_CHAR (awk);
GET_TOKEN (awk); GET_TOKEN (awk);
@ -358,8 +357,7 @@ int xp_awk_parse (xp_awk_t* awk)
if (__parse_progunit(awk) == XP_NULL) if (__parse_progunit(awk) == XP_NULL)
{ {
/* TODO: cleanup the parse tree created so far.... xp_awk_clear (awk);
function tables also etc... */
return -1; return -1;
} }
} }