Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
9cc8a70e
Commit
9cc8a70e
authored
Jan 03, 2018
by
Maxime Perrotin
Browse files
Get properly the program directory
parent
c87b811b
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/taste-parser_utils.adb
View file @
9cc8a70e
...
...
@@ -3,11 +3,10 @@
-- LGPL license, see LICENSE file
with
Ada
.
Text_IO
,
Ada
.
Command_Line
,
GNAT
.
Directory_Operations
,
GNAT
.
OS_Lib
,
GNAT
.
Command_Line
,
Templates_Parser
,
Templates_Parser
.
Utils
,
Ocarina
.
AADL_Values
,
Ocarina
.
Configuration
,
Ocarina
.
FE_AADL
.
Parser
,
...
...
@@ -18,10 +17,10 @@ with Ada.Text_IO,
package
body
TASTE
.
Parser_Utils
is
use
Ada
.
Text_IO
,
GNAT
.
Directory_Operations
,
GNAT
.
OS_Lib
,
GNAT
.
Command_Line
,
Templates_Parser
,
Templates_Parser
.
Utils
,
Ocarina
.
Instances
.
Queries
,
Ocarina
.
ME_AADL
,
TASTE
.
Templates
;
...
...
@@ -42,8 +41,7 @@ package body TASTE.Parser_Utils is
procedure
Parse_Command_Line
(
Result
:
out
Taste_Configuration
)
is
Config
:
Command_Line_Configuration
;
begin
Result
.
Binary_Path
:=
new
String
'(
Dir_Name
(
Ada
.
Command_Line
.
Command_Name
));
Result
.
Binary_Path
:=
new
String
'(
Get_Program_Directory
);
Define_Switch
(
Config
,
Output
=>
Result
.
Interface_View
'
Access
,
Switch
=>
"-i:"
,
Long_Switch
=>
"--interfaceview="
,
Help
=>
"Mandatory interface view (AADL model)"
,
...
...
src/taste-parser_version.ads
View file @
9cc8a70e
package
TASTE
.
Parser_Version
is
Parser_Release
:
constant
String
:=
"
539e376
; Commit Date: Wed Jan 3
18:21:39
2018 "
;
"
c87b811
; Commit Date: Wed Jan 3
20:39:51
2018 "
;
Ocarina_Version
:
constant
String
:=
"Ocarina 2017.x (Working Copy from rd078c54)"
;
end
TASTE
.
Parser_Version
;
\ No newline at end of file
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