Пакет AdaText_IOEnumeration_IO

type Enum is (<>); -- параметр настройки модуля

package Ada.Text_IO.Enumeration_IO is

Default_Width : Field := 0; Default_Setting : Type_Set := Upper_Case;

procedure Get -- ввод значения перечислимого типа из указанного файла (File : in File_Type; Item : out Enum);

procedure Get -- ввод значения перечислимого типа из файла стандартного ввода (Item : out Enum);

procedure Put -- вывод значения перечислимого типа в указанный файл (File : in File_Type; Item : in Enum; Width : in Field := Default_Width; Set : in Type_Set := Default_Setting);

procedure Put -- вывод значения перечислимого типа в файл стандартного вывода (Item : in Enum; Width : in Field := Default_Width; Set : in Type_Set := Default_Setting);

procedure Get -- ввод значения перечислимого типа из строки -- (преобразование из строкового представления) (From : in String; Item : out Enum; Last : out Positive);

procedure Put -- вывод значения перечислимого типа в строку -- (преобразование в строковое представление) (To : out String; Item : in Enum; Set : in Type_Set := Default_Setting);

end Ada.Text_IO.Enumeration_IO;