qse/ase/cmd/awk/simple-004.out

37 lines
371 B
Plaintext
Raw Normal View History

2007-12-08 00:24:28 +00:00
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";
}
0
2
END OF PROGRAM