kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 18:18:51 +03:00
Code Issues Projects Releases Wiki Activity

Ada: add readline

Browse Source
This commit is contained in:
Chris M Moore 2016-03-03 22:25:46 +00:00
parent 02840f7551
commit 02c3208ae9
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ada/core.adb
View File

@ -820,6 +820,26 @@ package body Core is
end Read_String;
function Read_Line (Rest_Handle : Mal_Handle; Env : Envs.Env_Handle)
return Types.Mal_Handle is
Rest_List : Types.List_Mal_Type;
First_Param : Mal_Handle;
S : String (1..Reader.Max_Line_Len);
Last : Natural;
begin
Rest_List := Deref_List (Rest_Handle).all;
First_Param := Car (Rest_List);
declare
Prompt : String := Deref_String (First_Param).Get_String;
begin
-- Print the prompt, less the quote marks.
Ada.Text_IO.Put (Prompt (2 .. Prompt'Last - 1));
end;
Ada.Text_IO.Get_Line (S, Last);
return New_String_Mal_Type ('"' & S (1 .. Last) & '"');
end Read_Line;
function Slurp (Rest_Handle : Mal_Handle; Env : Envs.Env_Handle)
return Types.Mal_Handle is
Rest_List : Types.List_Mal_Type;
@ -1072,6 +1092,10 @@ package body Core is
"read-string",
New_Func_Mal_Type ("read-string", Read_String'access));
Set (Get_Current,
"readline",
New_Func_Mal_Type ("readline", Read_Line'access));
Set (Get_Current,
"slurp",
New_Func_Mal_Type ("slurp", Slurp'access));