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