INTERFACE Uutmp; FROM Ctypes IMPORT char_star; <*EXTERNAL*> PROCEDURE getlogin (): char_star; END Uutmp.