with Text_IO;          use Text_IO;
with Ada.Command_Line; use Ada.Command_Line;
with Scan;             use Scan;
with Parse;            use Parse;
with Parse_Tree;       use Parse_Tree;
with Typecheck;        use Typecheck;
with Interpreter;      use Interpreter;

procedure Main is
    Parse_Tree : Parse_Node_Access;
begin
    -- open the desired file
    if Argument_Count /= 1 then
        Put_Line("usage: myada filename");
        return;
    end if;
    Open_For_Scan(Argument(1));
    Parse_File(Parse_Tree);
    Put_Line("Parse successful: No errors found");
    Type_Check(Parse_Tree);
	Interpret(Parse_Tree);
end Main;