# 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"

# 12/2001: switch to PROCINFO. ADR

	pid = PROCINFO["pid"]

	ppid = PROCINFO["ppid"]

	if (pid != ok_pid)

		printf "Bad pid %d, wanted %d\n", pid, ok_pid

	else

		print "PID ok"

	if (ppid != ok_ppid)

		printf "Bad ppid %d, wanted %d\n", ppid, ok_ppid

	else

		print "PPID ok"

	# ADR --- added

#	close("/dev/pid")

#	close("/dev/ppid")

	print "All Done."

}