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 16:05:04 +00:00
parent ddeb802ade
commit 8dd23af516
12 changed files with 325 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.71 2006-08-13 06:33:30 bacon Exp $
* $Id: awk.c,v 1.72 2006-08-13 16:05:04 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -558,7 +558,7 @@ static int __main (int argc, xp_char_t* argv[])
opt = XP_AWK_EXPLICIT | XP_AWK_UNIQUE | XP_AWK_DBLSLASHES |
XP_AWK_SHADING | XP_AWK_IMPLICIT | XP_AWK_SHIFT |
XP_AWK_EXTIO | XP_AWK_BLOCKLESS;
XP_AWK_EXTIO | XP_AWK_BLOCKLESS | XP_AWK_STRINDEXONE;
if (argc == 2)
{

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

@ -1,5 +1,17 @@
END {
print index ("abc", "abc");
print index ("abc", "b");
print index ("abc", "k");
print index ("abc", "kabc");
print "----------------------------";
print substr ("abc", "abcdefg", 5);
print substr ("abc", -1, 5);
print substr ("abc", 0, 5);
print substr ("abc", 1, 5);
print substr ("abc", 2.829, 5);
print substr ("abc", "3", 5);
print substr ("abc", 4, 5);
a[1] = 20;
substr (a, 3, 4);
}

2
ase/test/awk/t29.awk Normal file
View File

@ -0,0 +1,2 @@
{ gsub ("abc", "&&&&"); print $0; }