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-09 03:00:25 +00:00
parent af63818095
commit 39f19102f0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.87 2006-05-07 17:45:08 bacon Exp $ * $Id: run.c,v 1.88 2006-05-09 03:00:25 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -459,12 +459,15 @@ static int __run_pattern_blocks (xp_awk_run_t* run)
if (x == 0) break; /* end of input */ if (x == 0) break; /* end of input */
/* /*
xp_printf (XP_T("**** line [%s]\n"), XP_STR_BUF(&run->input.line));
* TODO: execute pattern blocks. * TODO: execute pattern blocks.
*/ */
/* for each block { run it } /* for each block { run it }
* handle according if next and nextfile has been called * TODO: handle according if next and nextfile has been called
*/ */
xp_printf (XP_T("**** line [%s]\n"), XP_STR_BUF(&run->input.line)); /* TODO */
if (__run_block (run,
(xp_awk_nde_blk_t*)run->tree->begin) == -1) n = -1;
} }
n = run->txtio (XP_AWK_INPUT_CLOSE, run->txtio_arg, XP_NULL, 0); n = run->txtio (XP_AWK_INPUT_CLOSE, run->txtio_arg, XP_NULL, 0);