gnoga_2.1.2_5f127c56/deps/zanyblue/src/zbinfo/mesg/zbinfo_messages-zbinfo_exceptions.adb

--  -*- coding: utf-8 -*-
--
--  Ada implementation generated by ZBMCompile, V1.4.0 (r3199).
--  This is a generated file and should not be edited.
--

with ZanyBlue.Text.Formatting;

package body ZBInfo_Messages.ZBInfo_Exceptions is

   use ZanyBlue.Text.Formatting;

   -----------------
   -- Raise_00001 --
   -----------------

   procedure Raise_00001 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Argument3   : Any_Category_Type'Class;
      Argument4   : Calendar_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Append (Arguments, Argument3);
      Append (Arguments, Argument4);
      Raise_Exception (E, Facility (1), Key (3),
                       Arguments, Locale, Catalog);
   end Raise_00001;

   -----------------
   -- Raise_00002 --
   -----------------

   procedure Raise_00002 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (6),
                       Arguments, Locale, Catalog);
   end Raise_00002;

   -----------------
   -- Raise_00003 --
   -----------------

   procedure Raise_00003 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Calendar_Category_Type'Class;
      Argument1   : Duration_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (4),
                       Arguments, Locale, Catalog);
   end Raise_00003;

   -----------------
   -- Raise_00004 --
   -----------------

   procedure Raise_00004 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (1),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00004;

   -----------------
   -- Raise_00005 --
   -----------------

   procedure Raise_00005 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : String_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (13),
                       Arguments, Locale, Catalog);
   end Raise_00005;

   -----------------
   -- Raise_00006 --
   -----------------

   procedure Raise_00006 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (9),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00006;

   -----------------
   -- Raise_00007 --
   -----------------

   procedure Raise_00007 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (22),
                       Arguments, Locale, Catalog);
   end Raise_00007;

   -----------------
   -- Raise_00008 --
   -----------------

   procedure Raise_00008 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (34),
                       Arguments, Locale, Catalog);
   end Raise_00008;

   -----------------
   -- Raise_00009 --
   -----------------

   procedure Raise_00009 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (35),
                       Arguments, Locale, Catalog);
   end Raise_00009;

   -----------------
   -- Raise_00010 --
   -----------------

   procedure Raise_00010 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Raise_Exception (E, Facility (1), Key (14),
                       Arguments, Locale, Catalog);
   end Raise_00010;

   -----------------
   -- Raise_00011 --
   -----------------

   procedure Raise_00011 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (16),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00011;

   -----------------
   -- Raise_00012 --
   -----------------

   procedure Raise_00012 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (2),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00012;

   -----------------
   -- Raise_00013 --
   -----------------

   procedure Raise_00013 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Argument3   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Append (Arguments, Argument3);
      Raise_Exception (E, Facility (1), Key (20),
                       Arguments, Locale, Catalog);
   end Raise_00013;

   -----------------
   -- Raise_00014 --
   -----------------

   procedure Raise_00014 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (29),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00014;

   -----------------
   -- Raise_00015 --
   -----------------

   procedure Raise_00015 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (11),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00015;

   -----------------
   -- Raise_00016 --
   -----------------

   procedure Raise_00016 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Raise_Exception (E, Facility (1), Key (7),
                       Arguments, Locale, Catalog);
   end Raise_00016;

   -----------------
   -- Raise_00017 --
   -----------------

   procedure Raise_00017 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (36),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00017;

   -----------------
   -- Raise_00018 --
   -----------------

   procedure Raise_00018 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (28),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00018;

   -----------------
   -- Raise_00019 --
   -----------------

   procedure Raise_00019 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (8),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00019;

   -----------------
   -- Raise_00020 --
   -----------------

   procedure Raise_00020 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (26),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00020;

   -----------------
   -- Raise_00021 --
   -----------------

   procedure Raise_00021 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Raise_Exception (E, Facility (1), Key (21),
                       Arguments, Locale, Catalog);
   end Raise_00021;

   -----------------
   -- Raise_00022 --
   -----------------

   procedure Raise_00022 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (18),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00022;

   -----------------
   -- Raise_00023 --
   -----------------

   procedure Raise_00023 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (23),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00023;

   -----------------
   -- Raise_00024 --
   -----------------

   procedure Raise_00024 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (37),
                       Arguments, Locale, Catalog);
   end Raise_00024;

   -----------------
   -- Raise_00025 --
   -----------------

   procedure Raise_00025 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (5),
                       Arguments, Locale, Catalog);
   end Raise_00025;

   -----------------
   -- Raise_00026 --
   -----------------

   procedure Raise_00026 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (33),
                       Arguments, Locale, Catalog);
   end Raise_00026;

   -----------------
   -- Raise_00027 --
   -----------------

   procedure Raise_00027 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (12),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00027;

   -----------------
   -- Raise_00028 --
   -----------------

   procedure Raise_00028 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (25),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00028;

   -----------------
   -- Raise_00029 --
   -----------------

   procedure Raise_00029 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (27),
                       Arguments, Locale, Catalog);
   end Raise_00029;

   -----------------
   -- Raise_00030 --
   -----------------

   procedure Raise_00030 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (32),
                       Arguments, Locale, Catalog);
   end Raise_00030;

   -----------------
   -- Raise_00031 --
   -----------------

   procedure Raise_00031 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (38),
                       Arguments, Locale, Catalog);
   end Raise_00031;

   -----------------
   -- Raise_00032 --
   -----------------

   procedure Raise_00032 (
      E           : Ada.Exceptions.Exception_Id;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
   begin
      Raise_Exception (E, Facility (1), Key (31),
                       Empty_Argument_List, Locale, Catalog);
   end Raise_00032;

   -----------------
   -- Raise_00033 --
   -----------------

   procedure Raise_00033 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Raise_Exception (E, Facility (1), Key (24),
                       Arguments, Locale, Catalog);
   end Raise_00033;

   -----------------
   -- Raise_00034 --
   -----------------

   procedure Raise_00034 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Raise_Exception (E, Facility (1), Key (30),
                       Arguments, Locale, Catalog);
   end Raise_00034;

   -----------------
   -- Raise_00035 --
   -----------------

   procedure Raise_00035 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Argument3   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Append (Arguments, Argument3);
      Raise_Exception (E, Facility (1), Key (17),
                       Arguments, Locale, Catalog);
   end Raise_00035;

   -----------------
   -- Raise_00036 --
   -----------------

   procedure Raise_00036 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Argument1   : Any_Category_Type'Class;
      Argument2   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Append (Arguments, Argument1);
      Append (Arguments, Argument2);
      Raise_Exception (E, Facility (1), Key (19),
                       Arguments, Locale, Catalog);
   end Raise_00036;

   -----------------
   -- Raise_10001 --
   -----------------

   procedure Raise_10001 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (10),
                       Arguments, Locale, Catalog);
   end Raise_10001;

   -----------------
   -- Raise_10002 --
   -----------------

   procedure Raise_10002 (
      E           : Ada.Exceptions.Exception_Id;
      Argument0   : Any_Category_Type'Class;
      Locale      : Locale_Type  := Current_Locale;
      Catalog     : Catalog_Type := Standard_Catalog)
   is
      Arguments : Argument_List;
   begin
      Append (Arguments, Argument0);
      Raise_Exception (E, Facility (1), Key (15),
                       Arguments, Locale, Catalog);
   end Raise_10002;

end ZBInfo_Messages.ZBInfo_Exceptions;