qse/ase/test/awk/t12.awk

39 lines
640 B
Awk
Raw Normal View History

2006-08-22 15:11:13 +00:00
BEGIN {
2006-06-29 14:38:01 +00:00
/*
2006-06-28 10:46:49 +00:00
print "line 1" >> "1";
print "line 2" > "1";
print "line 3" >> "1";
print "line 4" >> "2";
print "line 4" >> "3";
print "line 4" >> "4";
2006-06-28 14:19:01 +00:00
while ((getline x < "abc") > 0) print x;
2006-06-29 09:21:00 +00:00
close ("abc");
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";
getline x < "abc";
if (x == "a") print "xxxxxxxxxxxxxxxx"; else print x;
2006-06-29 14:38:01 +00:00
*/
/*
print getline x;
print "[", x, "]";
print "--------------";
*/
2006-07-30 15:53:42 +00:00
if (getline x < "abc" == -1)
{
print "ERRNO = ", ERRNO;
}
print x > "def";
2006-09-01 06:45:05 +00:00
#print "fflush(def) = ", fflush ("def");
2006-08-23 15:43:45 +00:00
print "fflush() = ", fflush ("");
2006-06-29 14:38:01 +00:00
2006-09-01 06:45:05 +00:00
# print (1 (2 getline j) j);
# print "abc" 1 + 2 3 + 49 2 / 3;
2006-06-28 10:46:49 +00:00
}