(38 . 12)(38 . 21)
838 -- Exit with an error condition report.
839 procedure Eggog(M : String);
840
841 -- Warn operator re: potentially-dangerous condition.
842 procedure Achtung(M : String);
843
844 procedure Quit(Return_Code : Integer);
845 pragma Import
846 (Convention => C,
847 Entity => Quit,
848 External_Name => "exit");
849
850 -- Result Codes for Termination
851 Yes_Code : constant Integer := 1;
852 No_Code : constant Integer := 0;
853 Mu_Code : constant Integer := -1;
854 Sad_Code : constant Integer := -2;
855
856 private
857
858 -- POSIX stdio:
(59 . 6)(68 . 4)
860 procedure To_Stderr(C : Character);
861 pragma Import(Ada, To_Stderr, "__gnat_to_stderr_char");
862
863 Sadness_Code : constant Integer := -1;
864
865 end OS;