Copyright (C) 1994, Digital Equipment Corp. INTERFACE** getuid(2), geteuid(2) - get user identity **Uugid ; FROM Ctypes IMPORT int; FROM Utypes IMPORT u_long;
<*EXTERNAL*> PROCEDURE getuid (): u_long; <*EXTERNAL*> PROCEDURE geteuid (): u_long;** getgid(2), getguid(2) - get group identity **
<*EXTERNAL*> PROCEDURE getgid (): u_long; <*EXTERNAL*> PROCEDURE getegid (): u_long;** 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.