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-07-26 16:43:35 +00:00
parent fceb523c6f
commit b33e583071
10 changed files with 96 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.52 2006-07-06 13:57:31 bacon Exp $
* $Id: awk.c,v 1.53 2006-07-26 16:43:35 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -504,15 +504,24 @@ static int __main (int argc, xp_char_t* argv[])
{
#if defined(__STAND_ALONE) && !defined(_WIN32) && defined(XP_CHAR_IS_WCHAR)
xp_printf (
XP_T("error: cannot parse program - line %u [%d] %ls\n"),
XP_T("ERROR: cannot parse program - line %u [%d] %ls"),
(unsigned int)xp_awk_getsrcline(awk),
xp_awk_geterrnum(awk), xp_awk_geterrstr(awk));
if (xp_awk_getsuberrnum(awk) != XP_AWK_ENOERR)
{
xp_printf (XP_T(" - %ls\n"), xp_awk_getsuberrstr(awk));
}
#else
xp_printf (
XP_T("error: cannot parse program - line %u [%d] %s\n"),
XP_T("ERROR: cannot parse program - line %u [%d] %s"),
(unsigned int)xp_awk_getsrcline(awk),
xp_awk_geterrnum(awk), xp_awk_geterrstr(awk));
if (xp_awk_getsuberrnum(awk) != XP_AWK_ENOERR)
{
xp_printf (XP_T(" - %s\n"), xp_awk_getsuberrstr(awk));
}
#endif
xp_printf (XP_T("\n"));
xp_awk_close (awk);
return -1;
}

2
ase/test/awk/t17.awk
View File

@ -1 +1 @@
/hello/ { print $0; }
/hello[[:space:]]/ { print $0; }