Copyright (C) 1994, Digital Equipment Corp. INTERFACE** getuid(2), geteuid(2) - get user identity **Uugid ; FROM Ctypes IMPORT int; FROM Utypes IMPORT u_short;
<*EXTERNAL*> PROCEDURE getuid (): u_short; <*EXTERNAL*> PROCEDURE geteuid (): u_short;** getgid(2), getguid(2) - get group identity **
<*EXTERNAL*> PROCEDURE getgid (): u_short; <*EXTERNAL*> PROCEDURE getegid (): u_short;** setreuid(2) - set real and effective user ID's **
<*EXTERNAL*> PROCEDURE setreuid (ruid, euid: int): int;** setregid(2) - set real and effective group ID **
<*EXTERNAL*> PROCEDURE setregid (rgid, egid: int): int; END Uugid.