hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
hyung-hwan
2007-12-07 23:58:44 +00:00
parent 742f92043b
commit 99685d17a1
12 changed files with 319 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ase/test/awk/Awk.cpp
View File

@ -21,6 +21,10 @@
#include <crtdbg.h>
#endif
#if defined(__linux) && defined(_DEBUG)
#include <mcheck.h>
#endif
class TestAwk: public ASE::StdAwk
{
public:

5
ase/test/awk/main-001.awk Normal file
View File

@ -0,0 +1,5 @@
function main() {
x = 0;
y = 0;
return 999;
}

36
ase/test/awk/main-002.awk Normal file
View File

@ -0,0 +1,36 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
function main() {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
return 999;
}
END {
print "END OF PROGRAM";
return 10;
}
END {
print "END OF PROGRAM 2";
exit (100);
}
END {
print "END OF PROGRAM 3";
exit (900);
}

18
ase/test/awk/simple-001.awk Normal file
View File

@ -0,0 +1,18 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
BEGIN {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
}

24
ase/test/awk/simple-002.awk Normal file
View File

@ -0,0 +1,24 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
BEGIN {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
}
END {
print "END OF PROGRAM";
}

25
ase/test/awk/simple-003.awk Normal file
View File

@ -0,0 +1,25 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
BEGIN {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
}
END {
print "END OF PROGRAM";
exit (20);
}

28
ase/test/awk/simple-004.awk Normal file
View File

@ -0,0 +1,28 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
BEGIN {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
}
END {
print "END OF PROGRAM";
exit (20);
}
END {
print "END OF PROGRAM 2";
}

29
ase/test/awk/simple-005.awk Normal file
View File

@ -0,0 +1,29 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
BEGIN {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
}
END {
print "END OF PROGRAM";
return 10;
}
END {
print "END OF PROGRAM 2";
return 20;
}

34
ase/test/awk/simple-006.awk Normal file
View File

@ -0,0 +1,34 @@
function error() { exit (200); }
function getx()
{
if (x == 2) error();
return x++;
}
function gety() { return y++; }
BEGIN {
x = 0;
y = 0;
print getx() + gety();
print getx() + gety();
print getx() + gety();
print getx() + gety();
}
END {
print "END OF PROGRAM";
return 10;
}
END {
print "END OF PROGRAM 2";
exit (100);
}
END {
print "END OF PROGRAM 3";
exit (900);
}