Artifact 3cf513460f5e4c147c6ec766f6a40a40671c35b3:

• Executable file work_in_progress/ParaSail_compiler_fork/ParaSail_v_6_5_console_version/parser/parasail_main.adb — part of check-in [c4610bf5b1] at 2016-09-12 01:57:24 on branch trunk — no fork related modifications yet (user: martin_vahi, size: 2633) [annotate] [blame] [check-ins using]
• Executable file work_in_progress/ParaSail_compiler_fork/ParaSail_v_7_0_console_version/parser/parasail_main.adb — part of check-in [23073bb4ac] at 2016-11-11 22:54:28 on branch trunk — ParaSail_v_7_0 upstream deliverables added (user: martin_vahi, size: 2633) [annotate] [blame] [check-ins using]
• Executable file work_in_progress/ParaSail_compiler_fork/upstream_deliverables/ParaSail_v_7_0/parser/parasail_main.adb — part of check-in [18752d1a53] at 2016-12-25 12:47:28 on branch trunk — ParaSail_v_7_0_console_version initial entry (user: martin_vahi, size: 2633) [annotate] [blame] [check-ins using]

------------------------------------------------------------------------------
--                              P A R A S A I L                             --
--                                                                          --
--                     Copyright (C) 2012-2015, AdaCore                     --
--                                                                          --
-- This is free software;  you can redistribute it  and/or modify it  under --
-- terms of the  GNU General Public License as published  by the Free Soft- --
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
-- sion.  This software is distributed in the hope  that it will be useful, --
-- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License for  more details.  You should have  received  a copy of the GNU --
-- General  Public  License  distributed  with  this  software;   see  file --
-- COPYING3.  If not, go to http://www.gnu.org/licenses for a complete copy --
-- of the license.                                                          --
--                                                                          --
-- The ParaSail language and implementation were originally developed by    --
-- S. Tucker Taft.                                                          --
------------------------------------------------------------------------------

with ParaSail_Parser, ParaSail_Lex_IO, ParaSail_Lex;
with PSC.Languages;
with PSC.Syntax;
with PSC.Trees.Semantics;

pragma Warnings (Off);
with PSC.Interpreter.IO;  --  Pull in I/O builtins
with PSC.Interpreter.Math;  --  Pull in Math builtins
with PSC.Trees.Semantics.Translator;  --  So will have translator primitives
with RL_C_Interface;  --  Pull in readline/add_history interface
pragma Warnings (On);

procedure ParaSail_Main is
--  Main procedure for ParaSail.
--  See ParaSail_Main_GTK for version that pulls in builtins for GTK graphics.
   Total_Errors : Natural := 0;
   Command_Given : Boolean := False;

   procedure Lex_Initialize is
   begin
      ParaSail_Lex.Top := 0;
   end Lex_Initialize;

   procedure Parse_ParaSail is new PSC.Syntax.Parse_All
     (ParaSail_Lex_IO.Open_Input,
      Lex_Initialize,
      ParaSail_Lex_IO.Close_Input,
      ParaSail_Parser.YYParse);

begin  --  Parasail_Main

   PSC.Trees.Semantics.Set_Language (PSC.Languages.ParaSail);

   Parse_ParaSail (Total_Errors, Command_Given);

   PSC.Trees.Semantics.Analyze_And_Interpret_All (Total_Errors, Command_Given);

end ParaSail_Main;