qse/ase/test/awk/t10.awk

23 lines
508 B
Awk
Raw Normal View History

2006-08-27 15:29:21 +00:00
BEGIN {
2006-06-25 15:26:57 +00:00
print "more";
//print | "more";
//print > "echo";
//print >> "echo";
2006-06-22 14:15:02 +00:00
2006-06-21 11:45:26 +00:00
getline x < "abc"; /* open("abc", O_RDONLY|O_LARGEFILE) = 3 */
2006-06-21 13:52:15 +00:00
//print 10 >> "abc"; /* open("abc", O_WRONLY|O_APPEND|O_CREAT|O_LARGEFILE, 0666) = 4 */
2006-06-21 11:45:26 +00:00
getline x < "abc";
2006-06-21 13:52:15 +00:00
//print x;
a = close ("abc"); /* close(4) */
2006-07-14 04:19:22 +00:00
print "a=" a;
2006-06-21 13:52:15 +00:00
//print "hey"
b = close ("abc"); /* close(3) */
2006-07-14 04:19:22 +00:00
print "b=" b;
2006-06-21 15:37:51 +00:00
getline x < "Makefile.cl";
getline y < "awk.c";
c = close ("Makefile.cl");
d = close ("awk.c");
2006-06-21 11:45:26 +00:00
}