1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
-- Low level routines to Read character from the input
package Input is
function Next_Word return String;
-- Reads and returns the next word from the input. Alphabetical
-- characters are converted to upper case. A word is a contiguous
-- sequence of printable symbols (letters, digits, +, *, etc.) not
-- interrupted by a space or TAB.
type Number_Kind is (No_Number, Int_Number, Real_Number);
procedure Read_Number
(S : in String;
I : out Integer;
R : out Float;
K : out Number_Kind);
-- If string S contains an integer or real number this routine reads the
-- number into either I or R and sets K to either Int_Number or Real_Number
-- If no number is found or the number is ill-formed K is set to No_Number.
-- The number must have the same format as Ada integers or floats.
procedure Skip_Line;
-- Skips to the next input line.
function Current_Line return String;
-- Returns the current input Line;
function Column_Number return Natural;
-- Returns the column number of the last character read.
function Line_Number return Natural;
-- Returns the current line number.
end Input;
|
