Commit 35bf61b4 authored by Maxime Perrotin's avatar Maxime Perrotin

Fix email and add --help

parent 43ecb12e
......@@ -1462,6 +1462,11 @@ procedure BuildSupport is
then
Imported_Routines.C_Set_Debug_Messages;
elsif Ada.Command_Line.Argument (J) = "--help"
or else Ada.Command_Line.Argument (J) = "-h"
then
Usage;
else
Set_Str_To_Name_Buffer (Ada.Command_Line.Argument (J));
FN := Ocarina.Files.Search_File (Name_Find);
......
-- *************************** buildsupport **************************** --
-- (c) 2015 European Space Agency - maxime.perrotin@esa.int
-- (c) 2008-2017 European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
with Ada.Text_IO;
......@@ -30,8 +30,8 @@ package body Buildsupport_Utils is
procedure Banner is
The_Banner : constant String :=
"buildsupport - contact: maxime.perrotin@esa.int or "
& "ttsiodras@semantix.gr "
"buildsupport - contact: Maxime.Perrotin@esa.int or "
& "Thanassis.Tsiodras@esa.int "
& ASCII.LF & ASCII.CR
& "Based on Ocarina: " & Ocarina.Configuration.Ocarina_Version
& " (" & Ocarina.Configuration.Ocarina_SVN_Revision & ")";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment