Пакет AdaText_IO

package Ada.Text_IO is

pragma Elaborate_Body (Text_IO);

type File_Type is limited private; -- внутреннее представление -- файла для программы

type File_Mode is (In_File, Out_File, Append_File); -- управляет направлением -- передачи данных -- (в/из файла)

type Count is range 0 .. Определяется_Реализацией; subtype Positive_Count is Count range 1 .. Count'Last;

Unbounded : constant Count := 0; -- длина строки и страницы

subtype Field is Integer range 0 .. Определяется_Реализацией;

subtype Number_Base is Integer range 2 .. 16; -- используются только: -- 2, 8, 10 и 16

type Type_Set is (Lower_Case, Upper_Case); -- для перечислимых типов

-- Подпрограммы управления файлами

procedure Create (File : in out File_Type; -- ассоциируемая с внешним файлом -- переменная в программе Mode : in File_Mode := Out_File; -- по умолчанию - файл для вывода данных Name : in String := ""; -- имя внешнего файла Form : in String := ""); -- использование, не определено стандартом

procedure Open (File : in out File_Type; Mode : in File_Mode; Name : in String; Form : in String := "");

procedure Close (File : in out File_Type); procedure Delete (File : in out File_Type); procedure Reset (File : in out File_Type; Mode : in File_Mode); -- меняет режим -- доступа -- к файлу procedure Reset (File : in out File_Type);

function Mode (File : in File_Type) return File_Mode; -- режим доступа к файлу function Name (File : in File_Type) return String; -- имя внешнего файла function Form (File : in File_Type) return String; -- зависит от реализации

function Is_Open (File : in File_Type) return Boolean;

-- Подпрограммы управления файлами ввода, вывода и вывода ошибок -- устанавливаемыми по умолчанию

procedure Set_Input (File : in File_Type); -- установить как файл ввода procedure Set_Output (File : in File_Type); -- установить как файл вывода procedure Set_Error (File : in File_Type); -- установить как файл вывода ошибок -- ПРИМЕЧАНИЕ: перед вызовом подпрограмм Set_Input, -- Set_Output и/или Set_Error, -- файл File должен быть открыт

function Standard_Input return File_Type; -- обычно, клавиатура function Standard_Output return File_Type; -- обычно, видеодисплей function Standard_Error return File_Type;

function Current_Input return File_Type; -- обычно, то же что и Standard_Input function Current_Output return File_Type; function Current_Error return File_Type;

type File_Access is access constant File_Type; -- ссылочный тип (указатель) -- позволяющий ссылаться -- на переменные внутреннего -- представления файла, что -- во многих случаях удобно -- (введен стандартом Ada-95)

function Standard_Input return File_Access; function Standard_Output return File_Access; function Standard_Error return File_Access;

function Current_Input return File_Access; function Current_Output return File_Access; function Current_Error return File_Access;

-- Подпрограммы управления буферами

procedure Flush (File : in out File_Type); procedure Flush;

-- Подпрограммы спецификации длин строк и страниц для ввода/вывода

procedure Set_Line_Length (File : in File_Type; To : in Count); procedure Set_Line_Length (To : in Count);

procedure Set_Page_Length (File : in File_Type; To : in Count); procedure Set_Page_Length (To : in Count);

function Line_Length (File : in File_Type) return Count; function Line_Length return Count;

function Page_Length (File : in File_Type) return Count; function Page_Length return Count;

-- Подпрограммы спецификации Column, Line и Page (колонка, строка и страница)

procedure New_Line (File : in File_Type; -- вывод терминатора строки Spacing : in Positive_Count := 1); -- по умолчанию, один раз procedure New_Line (Spacing : in Positive_Count := 1);

procedure Skip_Line (File : in File_Type; -- отбросить ввод символов Spacing : in Positive_Count := 1); -- по умолчанию, для одной procedure Skip_Line (Spacing : in Positive_Count := 1);-- строки

function End_Of_Line (File : in File_Type) return Boolean; function End_Of_Line return Boolean;

procedure New_Page (File : in File_Type); -- завершить текущую страницу procedure New_Page; -- выводом терминатора страницы

procedure Skip_Page (File : in File_Type); -- отбросить ввод символов procedure Skip_Page; -- вплоть до терминатора страницы

function End_Of_Page (File : in File_Type) return Boolean; function End_Of_Page return Boolean;

function End_Of_File (File : in File_Type) return Boolean; function End_Of_File return Boolean;

procedure Set_Col (File : in File_Type; To : in Positive_Count); procedure Set_Col (To : in Positive_Count);

procedure Set_Line (File : in File_Type; To : in Positive_Count); procedure Set_Line (To : in Positive_Count);

function Col (File : in File_Type) return Positive_Count; function Col return Positive_Count;

function Line (File : in File_Type) return Positive_Count; function Line return Positive_Count;

function Page (File : in File_Type) return Positive_Count; function Page return Positive_Count;

-- Посимвольный ввод/вывод

procedure Get (File : in File_Type; Item : out Character); procedure Get (Item : out Character); procedure Put (File : in File_Type; Item : in Character); procedure Put (Item : in Character);

procedure Look_Ahead (File : in File_Type; Item : out Character; End_Of_Line : out Boolean);

procedure Look_Ahead (Item : out Character; End_Of_Line : out Boolean);

procedure Get_Immediate (File : in File_Type; Item : out Character);

procedure Get_Immediate (Item : out Character);

procedure Get_Immediate (File : in File_Type; Item : out Character; Available : out Boolean);

procedure Get_Immediate (Item : out Character; Available : out Boolean);

-- Построчный ввод/вывод

procedure Get (File : in File_Type; Item : out String); procedure Get (Item : out String); procedure Put (File : in File_Type; Item : in String); procedure Put (Item : int String);

procedure Get_Line (File : in File_Type; Item : out String; Last : out Natural);

procedure Get_Line (Item : out String; Last : out Natural);

procedure Put_Line (File : in File_Type; Item : in String);

procedure Put_Line (Item : in String);

-- Исключения

Status_Error : exception renames IO_Exceptions.Status_Error; Mode_Error : exception renames IO_Exceptions.Mode_Error; Name_Error : exception renames IO_Exceptions.Name_Error; Use_Error : exception renames IO_Exceptions.Use_Error; Device_Error : exception renames IO_Exceptions.Device_Error; End_Error : exception renames IO_Exceptions.End_Error; Data_Error : exception renames IO_Exceptions.Data_Error; Layout_Error : exception renames IO_Exceptions.Layout_Error;

private

. . . -- стандартом языка не определено

end Ada.Text_IO;