mirror of
https://github.com/kanaka/mal.git
synced 2024-10-06 02:17:09 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
35 lines
730 B
Ada
35 lines
730 B
Ada
with Ada.Text_IO;
|
|
|
|
procedure Step0_Repl is
|
|
|
|
function Read (Param : String) return String is
|
|
begin
|
|
return Param;
|
|
end Read;
|
|
|
|
function Eval (Param : String) return String is
|
|
begin
|
|
return Param;
|
|
end Eval;
|
|
|
|
function Print (Param : String) return String is
|
|
begin
|
|
return Param;
|
|
end Print;
|
|
|
|
function Rep (Param : String) return String is
|
|
Read_Str : String := Read (Param);
|
|
Eval_Str : String := Eval (Read_Str);
|
|
Print_Str : String := Print (Eval_Str);
|
|
begin
|
|
return Print_Str;
|
|
end Rep;
|
|
|
|
begin
|
|
loop
|
|
Ada.Text_IO.Put ("user> ");
|
|
exit when Ada.Text_IO.End_Of_File;
|
|
Ada.Text_IO.Put_Line (Rep (Ada.Text_IO.Get_Line));
|
|
end loop;
|
|
end Step0_Repl;
|