INTERFACEUpwd ; FROM Ctypes IMPORT char_star, int; FROM Utypes IMPORT uid_t, gid_t; TYPE struct_passwd = RECORD pw_name : char_star; pw_passwd : char_star; pw_uid : uid_t; pw_gid : gid_t; pw_gecos : char_star; pw_dir : char_star; pw_shell : char_star; END; struct_passwd_star = UNTRACED REF struct_passwd; <*EXTERNAL*> PROCEDURE getpwuid (uid: int): struct_passwd_star; <*EXTERNAL*> PROCEDURE getpwnam (name: char_star): struct_passwd_star; END Upwd.