2 with Ada
.IO_Exceptions
;
4 procedure Step0_Repl
is
6 function Read
(Param
: String) return String is
11 function Eval
(Param
: String) return String is
16 function Print
(Param
: String) return String is
21 function Rep
(Param
: String) return String is
22 Read_Str
: String := Read
(Param
);
23 Eval_Str
: String := Eval
(Read_Str
);
24 Print_Str
: String := Print
(Eval_Str
);
35 Ada
.Text_IO
.Put
("user> ");
36 Ada
.Text_IO
.Get_Line
(S
, Last
);
37 Ada
.Text_IO
.Put_Line
(Rep
(S
(1..Last
)));
41 when Ada
.IO_Exceptions
.End_Error
=> null;
42 -- i.e. exit without textual output