mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 02:27:10 +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.
33 lines
895 B
Ada
33 lines
895 B
Ada
with Interfaces.C.Strings;
|
|
|
|
package body Readline is
|
|
|
|
function Input (Prompt : in String) return String is
|
|
|
|
use Interfaces.C;
|
|
use Interfaces.C.Strings;
|
|
|
|
function C_Readline (Prompt : in char_array) return chars_ptr
|
|
with Import, Convention => C, External_Name => "readline";
|
|
|
|
procedure Add_History (Line : in chars_ptr)
|
|
with Import, Convention => C, External_Name => "add_history";
|
|
|
|
procedure Free (Line : in chars_ptr)
|
|
with Import, Convention => C, External_Name => "free";
|
|
|
|
C_Line : constant chars_ptr := C_Readline (To_C (Prompt));
|
|
begin
|
|
if C_Line = Null_Ptr then
|
|
raise End_Of_File;
|
|
end if;
|
|
return Ada_Line : constant String := Value (C_Line) do
|
|
if Ada_Line /= "" then
|
|
Add_History (C_Line);
|
|
end if;
|
|
Free (C_Line);
|
|
end return;
|
|
end Input;
|
|
|
|
end Readline;
|