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-08-02 03:34:34 +00:00
parent 52aee1d6f8
commit a771d672f5
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.152 2006-08-02 03:22:51 bacon Exp $ * $Id: run.c,v 1.153 2006-08-02 03:34:34 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -1370,12 +1370,20 @@ static int __run_print (xp_awk_run_t* run, xp_awk_nde_print_t* nde)
} }
xp_awk_refdownval (run, v); xp_awk_refdownval (run, v);
if (len <= 0)
{
/* the output destination name is empty. */
xp_free (out);
n = -1;
goto skip_write;
}
while (len > 0) while (len > 0)
{ {
if (out[--len] == XP_T('\0')) if (out[--len] == XP_T('\0'))
{ {
/* the output destination name contains a null /* the output destination name contains a null
* character. make getline return -1 */ * character. */
xp_free (out); xp_free (out);
goto skip_write; goto skip_write;
/* TODO: how to handle error??? /* TODO: how to handle error???
@ -3904,6 +3912,15 @@ static xp_awk_val_t* __eval_getline (xp_awk_run_t* run, xp_awk_nde_t* nde)
} }
xp_awk_refdownval (run, v); xp_awk_refdownval (run, v);
if (len <= 0)
{
/* the input source name is empty.
* make getline return -1 */
xp_free (in);
n = -1;
goto skip_read;
}
while (len > 0) while (len > 0)
{ {
if (in[--len] == XP_T('\0')) if (in[--len] == XP_T('\0'))