(* Copyright (C) 1990, Digital Equipment Corporation.         *)
(* All rights reserved.                                       *)
(* See the file COPYRIGHT for a full description.             *)

(* Last modified on Wed Jun 24 18:44:55 1992 by rustan        *)
(*      modified on Fri Mar 16 12:35:23 1990 by muller        *)

INTERFACE Uprocess;

FROM Ctypes IMPORT int;


(*** getpgrp(2) - get process group ***)

(********************************* KRML
<*EXTERNAL*> PROCEDURE getpgrp (pid: int): int;
******************************* KRML *)


(*** getpid(2), getppid(2) - get process identification ***)

<*EXTERNAL*> PROCEDURE getpid (): int;
(********************************* KRML
<*EXTERNAL*> PROCEDURE getppid (): int;
******************************* KRML *)


(*** setpgrp - set process group ***)

(********************************* KRML
<*EXTERNAL*> PROCEDURE setpgrp (pid, pgrp: int): int;
******************************* KRML *)


END Uprocess.