1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
# 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."
}
|
