libtexttools-doc 2.1.0-10 / usr / share / doc / libtexttools-doc / examples / b__alert.adb

pragma Ada_95;
pragma Warnings (Off);
pragma Source_File_Name (ada_main, Spec_File_Name => "b__alert.ads");
pragma Source_File_Name (ada_main, Body_File_Name => "b__alert.adb");
pragma Suppress (Overflow_Check);
with Ada.Exceptions;

package body ada_main is

   E011 : Short_Integer; pragma Import (Ada, E011, "system__soft_links_E");
   E021 : Short_Integer; pragma Import (Ada, E021, "system__exception_table_E");
   E023 : Short_Integer; pragma Import (Ada, E023, "system__exceptions_E");
   E015 : Short_Integer; pragma Import (Ada, E015, "system__secondary_stack_E");
   E063 : Short_Integer; pragma Import (Ada, E063, "ada__containers_E");
   E069 : Short_Integer; pragma Import (Ada, E069, "ada__io_exceptions_E");
   E190 : Short_Integer; pragma Import (Ada, E190, "ada__numerics_E");
   E075 : Short_Integer; pragma Import (Ada, E075, "ada__strings_E");
   E120 : Short_Integer; pragma Import (Ada, E120, "interfaces__c_E");
   E134 : Short_Integer; pragma Import (Ada, E134, "interfaces__c__strings_E");
   E122 : Short_Integer; pragma Import (Ada, E122, "system__os_lib_E");
   E049 : Short_Integer; pragma Import (Ada, E049, "ada__tags_E");
   E068 : Short_Integer; pragma Import (Ada, E068, "ada__streams_E");
   E125 : Short_Integer; pragma Import (Ada, E125, "system__file_control_block_E");
   E071 : Short_Integer; pragma Import (Ada, E071, "system__finalization_root_E");
   E066 : Short_Integer; pragma Import (Ada, E066, "ada__finalization_E");
   E118 : Short_Integer; pragma Import (Ada, E118, "system__file_io_E");
   E112 : Short_Integer; pragma Import (Ada, E112, "ada__streams__stream_io_E");
   E099 : Short_Integer; pragma Import (Ada, E099, "system__storage_pools_E");
   E093 : Short_Integer; pragma Import (Ada, E093, "system__finalization_masters_E");
   E091 : Short_Integer; pragma Import (Ada, E091, "system__storage_pools__subpools_E");
   E146 : Short_Integer; pragma Import (Ada, E146, "ada__calendar_E");
   E152 : Short_Integer; pragma Import (Ada, E152, "ada__calendar__time_zones_E");
   E181 : Short_Integer; pragma Import (Ada, E181, "ada__text_io_E");
   E081 : Short_Integer; pragma Import (Ada, E081, "ada__strings__maps_E");
   E130 : Short_Integer; pragma Import (Ada, E130, "ada__strings__maps__constants_E");
   E077 : Short_Integer; pragma Import (Ada, E077, "ada__strings__unbounded_E");
   E105 : Short_Integer; pragma Import (Ada, E105, "system__pool_global_E");
   E142 : Short_Integer; pragma Import (Ada, E142, "system__regexp_E");
   E168 : Short_Integer; pragma Import (Ada, E168, "ada__directories_E");
   E062 : Short_Integer; pragma Import (Ada, E062, "common_E");
   E138 : Short_Integer; pragma Import (Ada, E138, "equal_case_insensitive_E");
   E174 : Short_Integer; pragma Import (Ada, E174, "hash_case_insensitive_E");
   E144 : Short_Integer; pragma Import (Ada, E144, "os_E");
   E185 : Short_Integer; pragma Import (Ada, E185, "strings_E");
   E189 : Short_Integer; pragma Import (Ada, E189, "userio_E");
   E127 : Short_Integer; pragma Import (Ada, E127, "controls_E");
   E205 : Short_Integer; pragma Import (Ada, E205, "windows_E");

   Local_Priority_Specific_Dispatching : constant String := "";
   Local_Interrupt_States : constant String := "";

   Is_Elaborated : Boolean := False;

   procedure finalize_library is
   begin
      declare
         procedure F1;
         pragma Import (Ada, F1, "windows__finalize_body");
      begin
         E205 := E205 - 1;
         F1;
      end;
      declare
         procedure F2;
         pragma Import (Ada, F2, "controls__finalize_body");
      begin
         E127 := E127 - 1;
         F2;
      end;
      declare
         procedure F3;
         pragma Import (Ada, F3, "controls__finalize_spec");
      begin
         F3;
      end;
      declare
         procedure F4;
         pragma Import (Ada, F4, "userio__finalize_body");
      begin
         E189 := E189 - 1;
         F4;
      end;
      declare
         procedure F5;
         pragma Import (Ada, F5, "os__finalize_body");
      begin
         E144 := E144 - 1;
         F5;
      end;
      E062 := E062 - 1;
      declare
         procedure F6;
         pragma Import (Ada, F6, "common__finalize_spec");
      begin
         F6;
      end;
      E168 := E168 - 1;
      declare
         procedure F7;
         pragma Import (Ada, F7, "ada__directories__finalize_spec");
      begin
         F7;
      end;
      E142 := E142 - 1;
      declare
         procedure F8;
         pragma Import (Ada, F8, "system__regexp__finalize_spec");
      begin
         F8;
      end;
      E105 := E105 - 1;
      declare
         procedure F9;
         pragma Import (Ada, F9, "system__pool_global__finalize_spec");
      begin
         F9;
      end;
      E077 := E077 - 1;
      declare
         procedure F10;
         pragma Import (Ada, F10, "ada__strings__unbounded__finalize_spec");
      begin
         F10;
      end;
      E181 := E181 - 1;
      declare
         procedure F11;
         pragma Import (Ada, F11, "ada__text_io__finalize_spec");
      begin
         F11;
      end;
      E091 := E091 - 1;
      declare
         procedure F12;
         pragma Import (Ada, F12, "system__storage_pools__subpools__finalize_spec");
      begin
         F12;
      end;
      E093 := E093 - 1;
      declare
         procedure F13;
         pragma Import (Ada, F13, "system__finalization_masters__finalize_spec");
      begin
         F13;
      end;
      E112 := E112 - 1;
      declare
         procedure F14;
         pragma Import (Ada, F14, "ada__streams__stream_io__finalize_spec");
      begin
         F14;
      end;
      declare
         procedure F15;
         pragma Import (Ada, F15, "system__file_io__finalize_body");
      begin
         E118 := E118 - 1;
         F15;
      end;
      declare
         procedure Reraise_Library_Exception_If_Any;
            pragma Import (Ada, Reraise_Library_Exception_If_Any, "__gnat_reraise_library_exception_if_any");
      begin
         Reraise_Library_Exception_If_Any;
      end;
   end finalize_library;

   procedure adafinal is
      procedure s_stalib_adafinal;
      pragma Import (C, s_stalib_adafinal, "system__standard_library__adafinal");

      procedure Runtime_Finalize;
      pragma Import (C, Runtime_Finalize, "__gnat_runtime_finalize");

   begin
      if not Is_Elaborated then
         return;
      end if;
      Is_Elaborated := False;
      Runtime_Finalize;
      s_stalib_adafinal;
   end adafinal;

   type No_Param_Proc is access procedure;

   procedure adainit is
      Main_Priority : Integer;
      pragma Import (C, Main_Priority, "__gl_main_priority");
      Time_Slice_Value : Integer;
      pragma Import (C, Time_Slice_Value, "__gl_time_slice_val");
      WC_Encoding : Character;
      pragma Import (C, WC_Encoding, "__gl_wc_encoding");
      Locking_Policy : Character;
      pragma Import (C, Locking_Policy, "__gl_locking_policy");
      Queuing_Policy : Character;
      pragma Import (C, Queuing_Policy, "__gl_queuing_policy");
      Task_Dispatching_Policy : Character;
      pragma Import (C, Task_Dispatching_Policy, "__gl_task_dispatching_policy");
      Priority_Specific_Dispatching : System.Address;
      pragma Import (C, Priority_Specific_Dispatching, "__gl_priority_specific_dispatching");
      Num_Specific_Dispatching : Integer;
      pragma Import (C, Num_Specific_Dispatching, "__gl_num_specific_dispatching");
      Main_CPU : Integer;
      pragma Import (C, Main_CPU, "__gl_main_cpu");
      Interrupt_States : System.Address;
      pragma Import (C, Interrupt_States, "__gl_interrupt_states");
      Num_Interrupt_States : Integer;
      pragma Import (C, Num_Interrupt_States, "__gl_num_interrupt_states");
      Unreserve_All_Interrupts : Integer;
      pragma Import (C, Unreserve_All_Interrupts, "__gl_unreserve_all_interrupts");
      Detect_Blocking : Integer;
      pragma Import (C, Detect_Blocking, "__gl_detect_blocking");
      Default_Stack_Size : Integer;
      pragma Import (C, Default_Stack_Size, "__gl_default_stack_size");
      Leap_Seconds_Support : Integer;
      pragma Import (C, Leap_Seconds_Support, "__gl_leap_seconds_support");
      Bind_Env_Addr : System.Address;
      pragma Import (C, Bind_Env_Addr, "__gl_bind_env_addr");

      procedure Runtime_Initialize (Install_Handler : Integer);
      pragma Import (C, Runtime_Initialize, "__gnat_runtime_initialize");

      Finalize_Library_Objects : No_Param_Proc;
      pragma Import (C, Finalize_Library_Objects, "__gnat_finalize_library_objects");
   begin
      if Is_Elaborated then
         return;
      end if;
      Is_Elaborated := True;
      Main_Priority := -1;
      Time_Slice_Value := -1;
      WC_Encoding := 'b';
      Locking_Policy := ' ';
      Queuing_Policy := ' ';
      Task_Dispatching_Policy := ' ';
      Priority_Specific_Dispatching :=
        Local_Priority_Specific_Dispatching'Address;
      Num_Specific_Dispatching := 0;
      Main_CPU := -1;
      Interrupt_States := Local_Interrupt_States'Address;
      Num_Interrupt_States := 0;
      Unreserve_All_Interrupts := 0;
      Detect_Blocking := 0;
      Default_Stack_Size := -1;
      Leap_Seconds_Support := 0;

      Runtime_Initialize (1);

      Finalize_Library_Objects := finalize_library'access;

      System.Soft_Links'Elab_Spec;
      System.Exception_Table'Elab_Body;
      E021 := E021 + 1;
      System.Exceptions'Elab_Spec;
      E023 := E023 + 1;
      System.Soft_Links'Elab_Body;
      E011 := E011 + 1;
      System.Secondary_Stack'Elab_Body;
      E015 := E015 + 1;
      Ada.Containers'Elab_Spec;
      E063 := E063 + 1;
      Ada.Io_Exceptions'Elab_Spec;
      E069 := E069 + 1;
      Ada.Numerics'Elab_Spec;
      E190 := E190 + 1;
      Ada.Strings'Elab_Spec;
      E075 := E075 + 1;
      Interfaces.C'Elab_Spec;
      E120 := E120 + 1;
      Interfaces.C.Strings'Elab_Spec;
      E134 := E134 + 1;
      System.Os_Lib'Elab_Body;
      E122 := E122 + 1;
      Ada.Tags'Elab_Spec;
      Ada.Tags'Elab_Body;
      E049 := E049 + 1;
      Ada.Streams'Elab_Spec;
      E068 := E068 + 1;
      System.File_Control_Block'Elab_Spec;
      E125 := E125 + 1;
      System.Finalization_Root'Elab_Spec;
      E071 := E071 + 1;
      Ada.Finalization'Elab_Spec;
      E066 := E066 + 1;
      System.File_Io'Elab_Body;
      E118 := E118 + 1;
      Ada.Streams.Stream_Io'Elab_Spec;
      E112 := E112 + 1;
      System.Storage_Pools'Elab_Spec;
      E099 := E099 + 1;
      System.Finalization_Masters'Elab_Spec;
      System.Finalization_Masters'Elab_Body;
      E093 := E093 + 1;
      System.Storage_Pools.Subpools'Elab_Spec;
      E091 := E091 + 1;
      Ada.Calendar'Elab_Spec;
      Ada.Calendar'Elab_Body;
      E146 := E146 + 1;
      Ada.Calendar.Time_Zones'Elab_Spec;
      E152 := E152 + 1;
      Ada.Text_Io'Elab_Spec;
      Ada.Text_Io'Elab_Body;
      E181 := E181 + 1;
      Ada.Strings.Maps'Elab_Spec;
      E081 := E081 + 1;
      Ada.Strings.Maps.Constants'Elab_Spec;
      E130 := E130 + 1;
      Ada.Strings.Unbounded'Elab_Spec;
      E077 := E077 + 1;
      System.Pool_Global'Elab_Spec;
      E105 := E105 + 1;
      System.Regexp'Elab_Spec;
      E142 := E142 + 1;
      Ada.Directories'Elab_Spec;
      Ada.Directories'Elab_Body;
      E168 := E168 + 1;
      Common'Elab_Spec;
      E062 := E062 + 1;
      E138 := E138 + 1;
      E174 := E174 + 1;
      os'elab_body;
      E144 := E144 + 1;
      E185 := E185 + 1;
      userio'elab_body;
      E189 := E189 + 1;
      controls'elab_spec;
      controls'elab_body;
      E127 := E127 + 1;
      windows'elab_spec;
      windows'elab_body;
      E205 := E205 + 1;
   end adainit;

   procedure Ada_Main_Program;
   pragma Import (Ada, Ada_Main_Program, "_ada_alert");

   function main
     (argc : Integer;
      argv : System.Address;
      envp : System.Address)
      return Integer
   is
      procedure Initialize (Addr : System.Address);
      pragma Import (C, Initialize, "__gnat_initialize");

      procedure Finalize;
      pragma Import (C, Finalize, "__gnat_finalize");
      SEH : aliased array (1 .. 2) of Integer;

      Ensure_Reference : aliased System.Address := Ada_Main_Program_Name'Address;
      pragma Volatile (Ensure_Reference);

   begin
      gnat_argc := argc;
      gnat_argv := argv;
      gnat_envp := envp;

      Initialize (SEH'Address);
      adainit;
      Ada_Main_Program;
      adafinal;
      Finalize;
      return (gnat_exit_status);
   end;

--  BEGIN Object file/option list
   --   /build/libtexttools-vo8XEf/libtexttools-2.1.0/examples/alert.o
   --   -L/build/libtexttools-vo8XEf/libtexttools-2.1.0/examples/
   --   -L/build/libtexttools-vo8XEf/libtexttools-2.1.0/examples/
   --   -L/build/libtexttools-vo8XEf/libtexttools-2.1.0/build-lib-static/
   --   -L/usr/lib/gcc/x86_64-linux-gnu/7/adalib/
   --   -shared
   --   -lgnat-7
--  END Object file/option list   

end ada_main;