File : adagio-os.adb
with System.Error_reporting;
with Text_io;
package body Adagio.Os is
------------------------------------------------------------------------
-- Message_box --
------------------------------------------------------------------------
procedure Message_box
(title, text: String; Kind: Message_kind:= Message_error) is
use Text_io;
begin
Put_line ("** " & Title & " **");
Put_line ("** " & Text & " **");
end Message_box;
------------------------------------------------------------------------
-- Kill_me --
------------------------------------------------------------------------
-- Kill entire process inmediately:
procedure Kill_me is
begin
if System.Error_reporting.Shutdown ("Forced shutdown") then
null;
end if;
end Kill_me;
end Adagio.Os;