UNSAFE INTERFACEUdir ; FROM Ctypes IMPORT const_char_star, int; TYPE (* DIR is opaque *) DIR_star = ADDRESS; <*EXTERNAL Udir__opendir*> PROCEDURE opendir (filename: const_char_star): DIR_star; <*EXTERNAL*> PROCEDURE closedir(dirp: DIR_star): int; END Udir.