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-10-10 14:09:23 +00:00
parent fb46759c43
commit 2797fb2d36
5 changed files with 85 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ase/test/awk/arg.awk Normal file
View File

@ -0,0 +1,3 @@
BEGIN {
print "ARGC=", ARGC;
}

10
ase/test/awk/awk.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.92 2006-10-09 14:37:41 bacon Exp $
* $Id: awk.c,v 1.93 2006-10-10 14:09:23 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -592,6 +592,7 @@ static int __main (int argc, xp_char_t* argv[])
xp_awk_srcios_t srcios;
xp_awk_runcbs_t runcbs;
xp_awk_runios_t runios;
xp_awk_runarg_t runarg[10];
xp_awk_syscas_t syscas;
struct src_io src_io = { NULL, NULL };
int opt, i, file_count = 0;
@ -738,7 +739,12 @@ static int __main (int argc, xp_char_t* argv[])
runcbs.on_end = __on_run_end;
runcbs.custom_data = XP_NULL;
if (xp_awk_run (awk, &runios, &runcbs) == -1)
runarg[0].ptr = XP_T("argument 0");
runarg[0].len = xp_awk_strlen(runarg[0].ptr);
runarg[1].ptr = XP_NULL;
runarg[1].len = 0;
if (xp_awk_run (awk, &runios, &runcbs, runarg) == -1)
{
int errnum = xp_awk_geterrnum(awk);
#if defined(__STAND_ALONE) && !defined(_WIN32) && defined(XP_CHAR_IS_WCHAR)