kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-13 11:23:59 +03:00
Code Issues Projects Releases Wiki Activity

Ada: add *ARGV*

Browse Source
This commit is contained in:
Chris M Moore 2015-05-30 17:12:57 +01:00
parent 936693cffe
commit 4594c34d34
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ada/reader.adb
View File

@ -71,7 +71,7 @@ package body Reader is
Start_Chars : Ada.Strings.Maps.Character_Set :=
Ada.Strings.Maps."or"
(Ada.Strings.Maps.Constants.Letter_Set,
Ada.Strings.Maps.To_Set (':'));
Ada.Strings.Maps.To_Set (":*"));
Body_Chars : Ada.Strings.Maps.Character_Set :=
Ada.Strings.Maps."or"

15
ada/step6_file.adb
View File

@ -44,20 +44,33 @@ procedure Step6_File is
S : String (1..Reader.Max_Line_Len);
Last : Natural;
Cmd_Args : Natural;
Command_Args : Types.Mal_Handle;
Command_List : Types.List_Ptr;
begin
Core.Init;
Cmd_Args := 0;
Command_Args := Types.New_List_Mal_Type (Types.List_List);
Command_List := Types.Deref_List (Command_Args);
while Ada.Command_Line.Argument_Count > Cmd_Args loop
Cmd_Args := Cmd_Args + 1;
if Ada.Command_Line.Argument (Cmd_Args) = "-d" then
Evaluation.Debug := True;
elsif Ada.Command_Line.Argument (Cmd_Args) = "-e" then
Envs.Debug := True;
else
Command_List.Append
(Types.New_Atom_Mal_Type (Ada.Command_Line.Argument (Cmd_Args)));
end if;
end loop;
Core.Init;
Envs.Set (Envs.Get_Current, "*ARGV*", Command_Args);
Ada.Text_IO.Put_Line (Rep ("(def! not (fn* (a) (if a false true)))"));
Ada.Text_IO.Put_Line (Rep ("(def! load-file (fn* (f) (eval (read-string (str ""(do "" (slurp f) "")"")))))"));