sys/etc/getpid.x


1
2
3
4
5
6
7
8
9
10
11
12

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# GETPID -- Get the process id.

int procedure getpid()

int	pid

begin
	call zgtpid (pid)
	return (pid)
end