Справочник Ada 2012
A.10.4 Указание длины строки и страницы
Статическая семантика
Подпрограммы, описанные в этом подпункте, относятся к структуре строк и страниц файла в режиме Out_File или Append_File. Они работают либо с файлом, заданным в качестве первого параметра, либо, при отсутствии такого параметра, с текущим файлом вывода по умолчанию. Они обеспечивают вывод текста с заданной максимальной длиной строки или страницы. В этих случаях разделители строк и страниц выводятся неявно и автоматически при необходимости. Когда длина строки и страницы неограничена (то есть, когда они имеют значение по умолчанию ноль), как в случае с только что открытым файлом, новые строки и новые страницы начинаются только при явном вызове.
Во всех случаях исключение Status_Error распространяется, если используемый файл не открыт; исключение Mode_Error распространяется, если режим файла не Out_File или Append_File.
procedure Set_Line_Length(File : in File_Type; To : in Count);
procedure Set_Line_Length(To : in Count);
procedure Set_Line_Length(To : in Count);
Устанавливает максимальную длину строки указанного файла вывода или добавления до числа символов, указанных в To. Значение ноль для To указывает неограниченную длину строки.
Исключение Use_Error распространяется, если заданная длина строки не подходит для связанного внешнего файла.
procedure Set_Page_Length(File : in File_Type; To : in Count);
procedure Set_Page_Length(To : in Count);
procedure Set_Page_Length(To : in Count);
Устанавливает максимальную длину страницы указанного файла вывода или добавления до числа строк, указанных в To. Значение ноль для To указывает неограниченную длину страницы.
Исключение Use_Error распространяется, если заданная длина страницы не подходит для связанного внешнего файла.
function Line_Length(File : in File_Type) return Count;
function Line_Length return Count;
function Line_Length return Count;
Возвращает максимальную длину строки, в данный момент установленную для указанного файла вывода или добавления, или ноль, если длина строки не ограничена.
function Page_Length(File : in File_Type) return Count;
function Page_Length return Count;
function Page_Length return Count;
Возвращает максимальную длину страницы, в данный момент установленную для указанного файла вывода или добавления, или ноль, если длина страницы не ограничена.
