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