-- Abstract:
--
-- see spec
--
-- Copyright (C) 2018, 2020 - 2022 Stephe Leake
--
-- This file is part of the WisiToken package.
--
-- The WisiToken package is free software; you can redistribute it
-- and/or modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; either version 3, or
-- (at your option) any later version. The WisiToken package is
-- distributed in the hope that it will be useful, but WITHOUT ANY
-- WARRANTY; without even the implied warranty of MERCHANTABILITY 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 the WisiToken package;
-- see file GPL.txt. If not, write to the Free Software Foundation,
-- 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
pragma License (GPL);
with Ada.Command_Line;
with Ada.Exceptions;
with Ada.Strings.Unbounded;
with Ada.Text_IO; use Ada.Text_IO;
with GNAT.Traceback.Symbolic;
with WisiToken.Parse;
procedure Parser_Run_Common (Parser : in out WisiToken.Parse.Base_Parser'Class)
is
procedure Put_Usage
is begin
Put_Line ("usage: *_run [--verbosity <string>] filename");
Put_Line (" parse input file, execute grammar actions");
Put_Line (" --verbosity <string> : trace options");
end Put_Usage;
File_Name : Ada.Strings.Unbounded.Unbounded_String;
function "+" (Item : in String) return Ada.Strings.Unbounded.Unbounded_String
renames Ada.Strings.Unbounded.To_Unbounded_String;
function "-" (Item : in Ada.Strings.Unbounded.Unbounded_String) return String
renames Ada.Strings.Unbounded.To_String;
Log_File : Ada.Text_IO.File_Type; -- not used
begin
declare
use Ada.Command_Line;
Arg_Next : Integer := 1;
begin
loop
exit when Argument (Arg_Next)(1) /= '-';
if Argument (Arg_Next) = "--verbosity" then
Arg_Next := Arg_Next + 1;
WisiToken.Enable_Trace (Argument (Arg_Next));
Arg_Next := Arg_Next + 1;
else
Set_Exit_Status (Failure);
Put_Usage;
return;
end if;
end loop;
File_Name := +Argument (Arg_Next);
exception
when others =>
Set_Exit_Status (Failure);
Put_Usage;
return;
end;
Parser.Tree.Lexer.Reset_With_File (-File_Name);
Parser.Parse (Log_File);
-- No user data, so no point in Execute_Actions
if WisiToken.Trace_Parse > WisiToken.Extra then
Parser.Tree.Print_Tree (Parser.Tree.Root);
Parser.Tree.Lexer.Trace.New_Line;
end if;
Parser.Put_Errors;
exception
when WisiToken.Syntax_Error =>
Parser.Put_Errors;
when E : WisiToken.Parse_Error =>
Put_Line (Ada.Exceptions.Exception_Message (E));
when Name_Error =>
Put_Line (-File_Name & " cannot be opened");
raise WisiToken.User_Error;
when E : others =>
New_Line;
Put_Line (Ada.Exceptions.Exception_Name (E) & ": " & Ada.Exceptions.Exception_Message (E));
Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback (E));
end Parser_Run_Common;