Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
buildsupport
Commits
35bf61b4
Commit
35bf61b4
authored
Jan 13, 2017
by
Maxime Perrotin
Browse files
Fix email and add --help
parent
43ecb12e
Changes
2
Hide whitespace changes
Inline
Side-by-side
ada/buildsupport.adb
View file @
35bf61b4
...
...
@@ -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
);
...
...
ada/buildsupport_utils.adb
View file @
35bf61b4
-- *************************** buildsupport **************************** --
-- (c) 20
15
European Space Agency - maxime.perrotin@esa.int
-- (c) 20
08-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:
m
axime.
p
errotin@esa.int or "
&
"
ttsiodras@semantix.gr
"
"buildsupport - contact:
M
axime.
P
errotin@esa.int or "
&
"
Thanassis.Tsiodras@esa.int
"
&
ASCII
.
LF
&
ASCII
.
CR
&
"Based on Ocarina: "
&
Ocarina
.
Configuration
.
Ocarina_Version
&
" ("
&
Ocarina
.
Configuration
.
Ocarina_SVN_Revision
&
")"
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment