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-09-01 16:31:13 +00:00
parent 599d50d936
commit cb27721259
6 changed files with 113 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.85 2006-09-01 07:18:40 bacon Exp $
* $Id: awk.c,v 1.86 2006-09-01 16:31:13 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -768,6 +768,16 @@ int xp_main (int argc, xp_char_t* argv[])
_CrtSetDbgFlag (_CRTDBG_LEAK_CHECK_DF | _CRTDBG_ALLOC_MEM_DF | _CRTDBG_CHECK_ALWAYS_DF);
#endif*/
{
xp_char_t buf[xp_sizeof(xp_long_t)*8+2+2];
xp_size_t n;
n = xp_awk_longtostr (-0x7FFFFFFFFFFFFFFFi64, 16, XP_T("0x"), buf, xp_countof(buf));
if (n == (xp_size_t)-1)
{
xp_printf (XP_T("cannot convert...\n"));
}
else xp_printf (XP_T("%d, %s\n"), n, buf);
}
n = __main (argc, argv);
#if defined(__linux) && defined(_DEBUG)

16
ase/test/awk/t28.awk
View File

@ -1,7 +1,7 @@
//global xyz;
#global xyz;
END {
//local xyz;
#local xyz;
print index ("abc", "abc");
print index ("abc", "b");
@ -25,13 +25,13 @@ END {
print toupper ("AbcDEF");
arr[0] = "xxx";
//print split ("abc def abc", arr);
print split ("abc def abc", j);
#print split ("abc def abc", arr);
print split ("abc def kkk", j);
//xyz = 20;
//print xyz;
print split ("abc def abc", ((xyz)));
//for (i in arr)
#xyz = 20;
#print xyz;
print split ("abc def kkk", ((xyz)));
#for (i in arr)
for (i in xyz)
{