Move to gawk-3.0.3.

1 files changed, 44 insertions, 0 deletions

diff --git a/test/pid.awk b/test/pid.awk
new file mode 100644
index 00000000..9b47d908
--- /dev/null
+++ b/test/pid.awk
@@ -0,0 +1,44 @@
+# From: John C. Oppenheimer <jco@slinky.convex.com>
+# Subject: gawk-3.0.2 pid test
+# To: arnold@skeeve.atl.ga.us
+# Date: Mon, 10 Feb 1997 08:31:55 -0600 (CST)
+# 
+# Thanks for the very quick reply.
+# 
+# This all started when I was looking for how to do the equivalent of
+# "nextfile." I was after documentation and found our gawk down a few
+# revs.
+# 
+# Looks like the nextfile functionality was added somewhere around
+# 2.15.5.  There wasn't a way to do it, until now! Thanks for the
+# functionality!
+# 
+# Saw the /dev/xxx capability and just tried it.
+# 
+# Anyway, I wrote a pid test.  I hope that it is portable.  Wanted to
+# make a user test, but looks like id(1) is not very portable.  But a
+# little test is better than none.
+# 
+# John
+# 
+# pid.ok is a zero length file
+# 
+# ================== pid.awk ============
+BEGIN {
+	getline pid <"/dev/pid"
+	getline ppid <"/dev/ppid"
+}
+NR == 1 {
+	if (pid != $0) {
+		printf "Bad pid %d, wanted %d\n", $0, pid
+	}
+}
+NR == 2 {
+	if (ppid != $0) {
+		printf "Bad ppid %d, wanted %d\n", $0, ppid
+	}
+}
+END {	# ADR --- added
+	close("/dev/pid")
+	close("/dev/ppid")
+}