Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
bb6684df
Commit
bb6684df
authored
Oct 27, 2013
by
yoogx
Browse files
* Move Usage to Ocarina.Utils
parent
27fc9af7
Changes
5
Expand all
Hide whitespace changes
Inline
Side-by-side
src/main/ocarina-scripts.adb
View file @
bb6684df
------------------------------------------------------------------------------
-- --
-- OCARINA COMPONENTS --
-- --
-- O C A R I N A . S C R I P T S --
-- --
-- B o d y --
-- --
-- Copyright (C) 2013 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
-- Free Software Foundation; either version 2, or (at your option) any --
-- later version. Ocarina 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 Ocarina; see file COPYING. --
-- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth --
-- Floor, Boston, MA 02111-1301, USA. --
-- --
-- As a special exception, if other files instantiate generics from this --
-- unit, or you link this unit with other files to produce an executable, --
-- this unit does not by itself cause the resulting executable to be --
-- covered by the GNU General Public License. This exception does not --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- Ocarina is maintained by the TASTE project --
-- (taste-users@lists.tuxfamily.org) --
-- --
------------------------------------------------------------------------------
with
Errors
;
use
Errors
;
with
Locations
;
use
Locations
;
with
Namet
;
use
Namet
;
...
...
src/main/ocarina-scripts.ads
View file @
bb6684df
------------------------------------------------------------------------------
-- --
-- OCARINA COMPONENTS --
-- --
-- O C A R I N A . S C R I P T S --
-- --
-- S p e c --
-- --
-- Copyright (C) 2013 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
-- Free Software Foundation; either version 2, or (at your option) any --
-- later version. Ocarina 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 Ocarina; see file COPYING. --
-- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth --
-- Floor, Boston, MA 02111-1301, USA. --
-- --
-- As a special exception, if other files instantiate generics from this --
-- unit, or you link this unit with other files to produce an executable, --
-- this unit does not by itself cause the resulting executable to be --
-- covered by the GNU General Public License. This exception does not --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- Ocarina is maintained by the TASTE project --
-- (taste-users@lists.tuxfamily.org) --
-- --
------------------------------------------------------------------------------
package
Ocarina
.
Scripts
is
procedure
Ocarina_Shell
;
...
...
src/main/ocarina-utils.adb
View file @
bb6684df
with
Output
;
use
Output
;
with
Ocarina
.
Configuration
;
use
Ocarina
.
Configuration
;
------------------------------------------------------------------------------
-- --
-- OCARINA COMPONENTS --
-- --
-- O C A R I N A . U T I L S --
-- --
-- B o d y --
-- --
-- Copyright (C) 2013 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
-- Free Software Foundation; either version 2, or (at your option) any --
-- later version. Ocarina 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 Ocarina; see file COPYING. --
-- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth --
-- Floor, Boston, MA 02111-1301, USA. --
-- --
-- As a special exception, if other files instantiate generics from this --
-- unit, or you link this unit with other files to produce an executable, --
-- this unit does not by itself cause the resulting executable to be --
-- covered by the GNU General Public License. This exception does not --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- Ocarina is maintained by the TASTE project --
-- (taste-users@lists.tuxfamily.org) --
-- --
------------------------------------------------------------------------------
with
Ada
.
Command_Line
;
use
Ada
.
Command_Line
;
with
GNAT
.
Directory_Operations
;
use
GNAT
.
Directory_Operations
;
with
GNAT
.
OS_Lib
;
use
GNAT
.
OS_Lib
;
with
Output
;
use
Output
;
with
Ocarina
.
Backends
;
use
Ocarina
.
Backends
;
with
Ocarina
.
Configuration
;
use
Ocarina
.
Configuration
;
with
Ocarina
.
FE_AADL
;
use
Ocarina
.
FE_AADL
;
with
Ocarina
.
FE_REAL
;
use
Ocarina
.
FE_REAL
;
package
body
Ocarina
.
Utils
is
...
...
@@ -22,4 +62,62 @@ package body Ocarina.Utils is
&
Ocarina_Last_Configure_Year
&
" ESA & ISAE"
);
end
Version
;
-----------
-- Usage --
-----------
procedure
Usage
is
Exec_Suffix
:
String_Access
:=
Get_Executable_Suffix
;
begin
Set_Standard_Error
;
Write_Line
(
"Usage: "
);
Write_Line
(
" "
&
Base_Name
(
Command_Name
,
Exec_Suffix
.
all
)
&
" [options] files"
);
Write_Line
(
" OR"
);
Write_Line
(
" "
&
Base_Name
(
Command_Name
,
Exec_Suffix
.
all
)
&
" -help"
);
Write_Line
(
" files are a non null sequence of AADL files"
);
Write_Eol
;
Write_Line
(
" General purpose options:"
);
Write_Line
(
" -V Output Ocarina version, then exit"
);
Write_Line
(
" -s Output Ocarina search directory, then exit"
);
Write_Eol
;
Write_Line
(
" Scenario file options:"
);
Write_Line
(
" -b Generate and build code from the AADL model"
);
Write_Line
(
" -z Clean code generated from the AADL model"
);
Write_Line
(
" -ec Execute the generated application code and"
);
Write_Line
(
" retrieve coverage information"
);
Write_Line
(
" -er Execute the generated application code and"
);
Write_Line
(
" verify that there is no regression"
);
Write_Line
(
" -p Only parse and instantiate the application model"
);
Write_Line
(
" -c Only perform schedulability analysis"
);
Write_Eol
;
Write_Line
(
" Advanced user options:"
);
Write_Line
(
" -d Debug mode for developpers"
);
Write_Line
(
" -q Quiet mode (default)"
);
Write_Line
(
" -t [script] Run Ocarina in terminal interactive mode."
);
Write_Line
(
" If a script is given, interpret it then exit."
);
Write_Line
(
" -v Verbose mode for users"
);
Write_Line
(
" -x Parse AADL file as an AADL scenario file"
);
Ocarina
.
FE_AADL
.
Usage
;
Ocarina
.
FE_REAL
.
Usage
;
Ocarina
.
Backends
.
Usage
;
Write_Line
(
" -disable-annexes={annexes}"
&
" Desactive one or all annexes"
);
Write_Line
(
" Annexes :"
);
Write_Line
(
" all"
);
Write_Line
(
" behavior"
);
Write_Line
(
" real"
);
Write_Eol
;
Free
(
Exec_Suffix
);
end
Usage
;
end
Ocarina
.
Utils
;
src/main/ocarina-utils.ads
View file @
bb6684df
------------------------------------------------------------------------------
-- --
-- OCARINA COMPONENTS --
-- --
-- O C A R I N A . U T I L S --
-- --
-- S p e c --
-- --
-- Copyright (C) 2013 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
-- Free Software Foundation; either version 2, or (at your option) any --
-- later version. Ocarina 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 Ocarina; see file COPYING. --
-- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth --
-- Floor, Boston, MA 02111-1301, USA. --
-- --
-- As a special exception, if other files instantiate generics from this --
-- unit, or you link this unit with other files to produce an executable, --
-- this unit does not by itself cause the resulting executable to be --
-- covered by the GNU General Public License. This exception does not --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- Ocarina is maintained by the TASTE project --
-- (taste-users@lists.tuxfamily.org) --
-- --
------------------------------------------------------------------------------
package
Ocarina
.
Utils
is
procedure
Version
;
-- Display version information
procedure
Usage
;
-- Display a message describing the usage of Ocarina
end
Ocarina
.
Utils
;
src/main/ocarina_cmd.adb
View file @
bb6684df
This diff is collapsed.
Click to expand it.
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