INTERFACE OS;

IMPORT AtomList, Compiler;

EXCEPTION Error(TEXT);

CONST
  on_unix = (Compiler.ThisOS = Compiler.OS.POSIX);

PROCEDURE IsDirectory (file: TEXT): BOOLEAN;
PROCEDURE IsExecutable (file: TEXT): BOOLEAN;
PROCEDURE FileNameEq (a, b: TEXT): BOOLEAN;
PROCEDURE CleanDirName (dir: TEXT): TEXT;

PROCEDURE FindExecutable (file: TEXT): TEXT;

Return the fully qualified name of file on the current search path. Returns NIL if no match is found.

PROCEDURE MakePath (a, b, c, d: TEXT := NIL): TEXT;
PROCEDURE MakeDir (dir: TEXT): BOOLEAN;

PROCEDURE GetAbsolutePath (a, b: TEXT := NIL): TEXT;

PROCEDURE GetDiskSpace (dir: TEXT): INTEGER;

PROCEDURE WriteFile (name, contents: TEXT);
PROCEDURE RemoveFile (file: TEXT);
PROCEDURE MoveFile (src, dest: TEXT);

PROCEDURE Err (ec: AtomList.T): TEXT;

PROCEDURE FilenameWithoutSpaces (fn: TEXT): TEXT;

PROCEDURE GetShortFilename (longFilename: TEXT): TEXT RAISES {Error};
  (* Return a mangled filename without spaces (WIN32). *)

END OS.