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-16 08:48:19 +00:00
parent 28c5b1e215
commit f987802feb
5 changed files with 102 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
ase/test/awk/arr.awk Normal file
View File

@ -0,0 +1,18 @@
BEGIN {
a[1,2,3] = 20;
a[4,5,6] = 30;
for (i in a)
{
n = split (i, k, SUBSEP);
for (j = 1; j < n; j++)
{
print k[j]
}
}
if ((1,2,3) in a)
{
print a[1,2,3];
}
}

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.97 2006-10-15 15:46:14 bacon Exp $
* $Id: awk.c,v 1.98 2006-10-16 08:48:19 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -99,7 +99,12 @@ static int __dprintf (const xp_char_t* fmt, ...)
va_start (ap, fmt);
#ifdef _WIN32
n = xp_vsprintf (buf, xp_countof(buf), fmt, ap);
MessageBox (NULL, buf, XP_T("ASSERTION FAILURE"), MB_OK | MB_ICONERROR);
#if defined(_MSC_VER) && (_MSC_VER>=1400)
MessageBox (NULL, buf, XP_T("\uD655\uC778\uC2E4\uD328 Assertion Failure"), MB_OK | MB_ICONERROR);
#else
MessageBox (NULL, buf, XP_T("Assertion Failure"), MB_OK | MB_ICONERROR);
#endif
#else
n = xp_vprintf (fmt, ap);
#endif