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
fdfcaa93
Commit
fdfcaa93
authored
Jan 02, 2018
by
Maxime Perrotin
Browse files
Look for templates in dedicated directory
parent
e9c639e9
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/aadl_parser.adb
View file @
fdfcaa93
...
...
@@ -32,7 +32,8 @@ procedure AADL_Parser is
Map
(
"Version"
,
Model
.
Configuration
.
Version
);
Map
(
"Timer_Resolution"
,
Model
.
Configuration
.
Timer_Resolution
);
Put_Line
(
"=== Template-generated debug output ==="
);
Put_Line
(
Generate
(
"configuration.tmplt"
));
Put_Line
(
Generate
(
Model
.
Configuration
.
Binary_Path
.
all
&
"templates/configuration.tmplt"
));
end
Dump_With_Templates
;
begin
Model
:=
Parse_Project
;
...
...
src/taste-parser_utils.adb
View file @
fdfcaa93
...
...
@@ -3,6 +3,8 @@
-- LGPL license, see LICENSE file
with
Ada
.
Text_IO
,
Ada
.
Command_Line
,
GNAT
.
Directory_Operations
,
GNAT
.
OS_Lib
,
GNAT
.
Command_Line
,
Ocarina
.
AADL_Values
,
...
...
@@ -14,6 +16,7 @@ with Ada.Text_IO,
package
body
TASTE
.
Parser_Utils
is
use
Ada
.
Text_IO
,
GNAT
.
Directory_Operations
,
GNAT
.
OS_Lib
,
GNAT
.
Command_Line
,
Ocarina
.
Instances
.
Queries
,
...
...
@@ -35,6 +38,8 @@ 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
));
Define_Switch
(
Config
,
Output
=>
Result
.
Interface_View
'
Access
,
Switch
=>
"-i:"
,
Long_Switch
=>
"--interfaceview="
,
Help
=>
"Mandatory interface view (AADL model)"
,
...
...
src/taste-parser_utils.ads
View file @
fdfcaa93
...
...
@@ -98,6 +98,7 @@ package TASTE.Parser_Utils is
type
Taste_Configuration
is
tagged
record
Binary_Path
:
GNAT
.
Strings
.
String_Access
;
Interface_View
:
aliased
GNAT
.
Strings
.
String_Access
;
Deployment_View
:
aliased
GNAT
.
Strings
.
String_Access
;
Data_View
:
aliased
GNAT
.
Strings
.
String_Access
;
...
...
src/taste-parser_version.ads
View file @
fdfcaa93
package
TASTE
.
Parser_Version
is
Parser_Release
:
constant
String
:=
"
607e11b
; Commit Date:
Sun Dec 31 15:42:19
201
7
"
;
"
e9c639e
; Commit Date:
Mon Jan 1 17:22:01
201
8
"
;
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