Пакет Ada.Text_IO.Enumeration_IO
Пакет Ada.Text_IO.Enumeration_IO
generic
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; |