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-12-16 16:22:05 +00:00
parent 51c8b72b8e
commit c3f93fe857
1 changed files with 72 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.302 2006-12-16 16:14:40 bacon Exp $ * $Id: run.c,v 1.303 2006-12-16 16:22:05 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -2496,8 +2496,25 @@ static int __run_print (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
{ {
/* if the destination name is empty, it skips the /* if the destination name is empty, it skips the
* writing and flags an error and ERRNO */ * writing and flags an error and ERRNO */
ase_awk_val_t* no;
ASE_AWK_FREE (run->awk, out); ASE_AWK_FREE (run->awk, out);
ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, ase_awk_val_negone);
no = ase_awk_makeintval (run, ASE_AWK_ENOENT);
if (no == ASE_NULL)
{
run->errnum = ASE_AWK_ENOMEM;
return -1;
}
ase_awk_refupval (run, no);
if (ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, no) == -1)
{
ase_awk_refdownval (run, no);
return -1;
}
ase_awk_refdownval (run, no);
goto skip_write; goto skip_write;
} }
@ -2508,8 +2525,25 @@ static int __run_print (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
if (out[--len] == ASE_T('\0')) if (out[--len] == ASE_T('\0'))
{ {
/* if so, the error is flagged thru ERRNO */ /* if so, the error is flagged thru ERRNO */
ase_awk_val_t* no;
ASE_AWK_FREE (run->awk, out); ASE_AWK_FREE (run->awk, out);
ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, ase_awk_val_negone);
no = ase_awk_makeintval (run, ASE_AWK_ENOENT);
if (no == ASE_NULL)
{
run->errnum = ASE_AWK_ENOMEM;
return -1;
}
ase_awk_refupval (run, no);
if (ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, no) == -1)
{
ase_awk_refdownval (run, no);
return -1;
}
ase_awk_refdownval (run, no);
goto skip_write; goto skip_write;
} }
} }
@ -2648,8 +2682,24 @@ static int __run_printf (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
if (len <= 0) if (len <= 0)
{ {
/* the output destination name is empty. */ /* the output destination name is empty. */
ase_awk_val_t* no;
ASE_AWK_FREE (run->awk, out); ASE_AWK_FREE (run->awk, out);
ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, ase_awk_val_negone);
no = ase_awk_makeintval (run, ASE_AWK_ENOENT);
if (no == ASE_NULL)
{
run->errnum = ASE_AWK_ENOMEM;
return -1;
}
ase_awk_refupval (run, no);
if (ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, no) == -1)
{
ase_awk_refdownval (run, no);
return -1;
}
ase_awk_refdownval (run, no);
goto skip_write; goto skip_write;
} }
@ -2659,8 +2709,25 @@ static int __run_printf (ase_awk_run_t* run, ase_awk_nde_print_t* nde)
{ {
/* the output destination name contains a null /* the output destination name contains a null
* character. */ * character. */
ase_awk_val_t* no;
ASE_AWK_FREE (run->awk, out); ASE_AWK_FREE (run->awk, out);
ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, ase_awk_val_negone);
no = ase_awk_makeintval (run, ASE_AWK_ENOENT);
if (no == ASE_NULL)
{
run->errnum = ASE_AWK_ENOMEM;
return -1;
}
ase_awk_refupval (run, no);
if (ase_awk_setglobal (run, ASE_AWK_GLOBAL_ERRNO, no) == -1)
{
ase_awk_refdownval (run, no);
return -1;
}
ase_awk_refdownval (run, no);
goto skip_write; goto skip_write;
} }
} }