type
COUNT is range
0 .. implementation_defined;
subtype
POSITIVE_COUNT is
COUNT range
1 .. COUNT'LAST;
procedure
SET_OUTPUT(FILE : in
FILE_TYPE);
function
STANDARD_INPUT return
FILE_TYPE;
function
STANDARD_OUTPUT return
FILE_TYPE;
function
CURRENT_INPUT return
FILE_TYPE;
function
CURRENT_OUTPUT return
FILE_TYPE;
in out
.
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 COUNT;
procedure
NEW_LINE(FILE : in
FILE_TYPE; in
POSITIVE_COUNT := 1);procedure
NEW_LINE(SPACING : in
POSITIVE_COUNT := 1);
procedure
SKIP_LINE(FILE : in
FILE_TYPE; 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_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;
--
|
Characters at input
|
Sequence input
|
Value of N
|
--
|
bb-12535b
|
-12535
|
-12535
|
--
|
bb12_535E1b
|
12_535E1
|
125350
|
--
|
bb12_535E;
|
12_535E
|
(none) DATA_ERROR raised
|
PUT(ITEM => -23, WIDTH => 2); -- "-23"