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-13 06:33:30 +00:00
parent 1bd23651cf
commit ddeb802ade
3 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c,v 1.70 2006-08-10 16:06:52 bacon Exp $ * $Id: awk.c,v 1.71 2006-08-13 06:33:30 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
@ -525,16 +525,13 @@ static void __on_run_start (xp_awk_t* awk, void* handle, void* arg)
xp_printf (XP_T("AWK PRORAM ABOUT TO START...\n")); xp_printf (XP_T("AWK PRORAM ABOUT TO START...\n"));
} }
static void __on_run_end (xp_awk_t* awk, void* handle, void* arg) static void __on_run_end (xp_awk_t* awk, void* handle, int errnum, void* arg)
{ {
int x; if (errnum != XP_AWK_ENOERR)
xp_awk_getrunerrnum (app_awk, app_run, &x);
if (x != XP_AWK_ENOERR)
{ {
xp_printf (XP_T("AWK PRORAM ABOUT TO END WITH AN ERROR - %d - %s\n"), x, xp_awk_geterrstr (x)); xp_printf (XP_T("AWK PRORAM ABOUT TO END WITH AN ERROR - %d - %s\n"), errnum, xp_awk_geterrstr (errnum));
} }
else xp_printf (XP_T("AWK PRORAM ABOUT TO END...\n")); else xp_printf (XP_T("AWK PRORAM ENDED SUCCESSFUL\n"));
app_awk = NULL; app_awk = NULL;
app_run = NULL; app_run = NULL;
@ -635,8 +632,8 @@ static int __main (int argc, xp_char_t* argv[])
runios.file = process_extio_file; runios.file = process_extio_file;
runios.console = process_extio_console; runios.console = process_extio_console;
runcbs.start = __on_run_start; runcbs.on_start = __on_run_start;
runcbs.end = __on_run_end; runcbs.on_end = __on_run_end;
runcbs.custom_data = XP_NULL; runcbs.custom_data = XP_NULL;
if (xp_awk_run (awk, &runios, &runcbs) == -1) if (xp_awk_run (awk, &runios, &runcbs) == -1)

1
ase/test/awk/t23.awk
View File

@ -10,6 +10,7 @@
} }
*/ */
BEGIN { c["Europe"] = "XXX"; } BEGIN { c["Europe"] = "XXX"; }
/Europe/, /Africa/ { print $0; } /Europe/, /Africa/ { print $0; }

5
ase/test/awk/t28.awk Normal file
View File

@ -0,0 +1,5 @@
END {
print index ("abc", "abc");
print index ("abc", "b");
print index ("abc", "k");
}