File : adagio-os.ads


-- Package with OS dependent functions.


package Adagio.Os is

   Nul: constant Character:= Character'Val(0);

   Folder_separator: constant Character:= '/';

   -- Simple message box:

   type Message_kind is (Message_error, Message_informative);
   procedure Message_box
     (title, text: String; Kind: Message_kind:= Message_error);

   -- Kill entire process inmediately:

   procedure Kill_me;

end Adagio.Os;