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
1275d362
Commit
1275d362
authored
Dec 22, 2017
by
Maxime Perrotin
Browse files
Reshape the project as a library
parent
95913803
Changes
12
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
1275d362
...
...
@@ -8,32 +8,31 @@ all: build
build
:
ifeq
($(UNAME), Linux)
@
echo
"package Parser_Version is"
>
src/parser_version.ads.new
@
echo
" Parser_Release : constant String :="
>>
src/parser_version.ads.new
@
echo
-n
' "'
>>
src/parser_version.ads.new
@
git log
--oneline
|
head
-1
|
cut
-f1
-d
' '
|
tr
-d
'\012'
>>
src/parser_version.ads.new
@
echo
" ; Commit "
|
tr
-d
'\r\n'
>>
src/parser_version.ads.new
@
git log |
head
-3
|
tail
-1
|
cut
-f1
-d
"+"
|
tr
-d
'\r\n'
>>
src/parser_version.ads.new
@
echo
"
\"
;"
>>
src/parser_version.ads.new
@
echo
" Ocarina_Version : constant String :="
>>
src/parser_version.ads.new
@
echo
-n
' "'
>>
src/parser_version.ads.new
@
ocarina
--version
|
head
-1
|
tr
-d
'\012'
>>
src/parser_version.ads.new
@
echo
"
\"
;"
>>
src/parser_version.ads.new
@
echo
-n
"end Parser_Version;"
>>
src/parser_version.ads.new
@
if
[
!
-f
"src/parser_version.ads"
]
;
then
\
mv
src/parser_version.ads.new src/parser_version.ads
;
\
@
echo
"package
TASTE.
Parser_Version is"
>
src/
taste-
parser_version.ads.new
@
echo
" Parser_Release : constant String :="
>>
src/
taste-
parser_version.ads.new
@
echo
-n
' "'
>>
src/
taste-
parser_version.ads.new
@
git log
--oneline
|
head
-1
|
cut
-f1
-d
' '
|
tr
-d
'\012'
>>
src/
taste-
parser_version.ads.new
@
echo
" ; Commit "
|
tr
-d
'\r\n'
>>
src/
taste-
parser_version.ads.new
@
git log |
head
-3
|
tail
-1
|
cut
-f1
-d
"+"
|
tr
-d
'\r\n'
>>
src/
taste-
parser_version.ads.new
@
echo
"
\"
;"
>>
src/
taste-
parser_version.ads.new
@
echo
" Ocarina_Version : constant String :="
>>
src/
taste-
parser_version.ads.new
@
echo
-n
' "'
>>
src/
taste-
parser_version.ads.new
@
ocarina
--version
|
head
-1
|
tr
-d
'\012'
>>
src/
taste-
parser_version.ads.new
@
echo
"
\"
;"
>>
src/
taste-
parser_version.ads.new
@
echo
-n
"end
TASTE.
Parser_Version;"
>>
src/
taste-
parser_version.ads.new
@
if
[
!
-f
"src/
taste-
parser_version.ads"
]
;
then
\
mv
src/
taste-
parser_version.ads.new src/
taste-
parser_version.ads
;
\
else
\
MD1
=
`
cat
src/parser_version.ads |
md5sum
`
;
\
MD2
=
`
cat
src/parser_version.ads.new |
md5sum
`
;
\
MD1
=
`
cat
src/
taste-
parser_version.ads |
md5sum
`
;
\
MD2
=
`
cat
src/
taste-
parser_version.ads.new |
md5sum
`
;
\
if
[
"
$$
MD1"
!=
"
$$
MD2"
]
;
then
\
mv
src/parser_version.ads.new src/parser_version.ads
;
\
mv
src/
taste-
parser_version.ads.new src/
taste-
parser_version.ads
;
\
else
\
rm
src/parser_version.ads.new
;
\
rm
src/
taste-
parser_version.ads.new
;
\
fi
;
\
fi
endif
#[
$(ARCH)
==
64
]
&&
EXTRAFLAG
=
"--target=x86_64-linux"
;
\
@
#[
$(ARCH)
==
64
]
&&
EXTRAFLAG
=
"--target=x86_64-linux"
;
OCARINA_PATH
=
`
ocarina-config
--prefix
`
\
$(gnatpath)
gprbuild
-j0
-x
-g
$(exec)
-p
-P
aadl_parser.gpr
-XBUILD
=
"debug"
$$
EXTRAFLAG
...
...
src/aadl_parser.adb
View file @
1275d362
-- ************************ TASTE AADL Parser ************************** --
-- Based on Ocarina **************************************************** --
-- (c) 2017 European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
with
GNAT
.
Command_Line
,
Ada
.
Exceptions
,
Ada
.
Text_IO
,
GNAT
.
OS_Lib
,
Errors
,
Locations
,
Ocarina
.
Namet
,
Ocarina
.
Types
,
Ocarina
.
Configuration
,
Ocarina
.
Files
,
Ocarina
.
Parser
,
Parser_Utils
,
Interface_View
,
Deployment_View
;
with
GNAT
.
OS_Lib
;
use
Ada
.
Text_IO
,
Ada
.
Exceptions
,
Locations
,
Ocarina
.
Namet
,
Ocarina
.
Types
,
Ocarina
,
Parser_Utils
,
Interface_View
,
Deployment_View
,
GNAT
.
OS_Lib
;
with
TASTE
,
TASTE
.
AADL_Parser
;
use
TASTE
.
AADL_Parser
;
procedure
AADL_Parser
is
IV_AST
:
Complete_Interface_View
;
DV_AST
:
Complete_Deployment_View
;
Interface_Root
:
Node_Id
:=
No_Node
;
Deployment_root
:
Node_Id
:=
No_Node
;
Dataview_root
:
Node_ID
:=
No_Node
;
----------------
-- Initialize --
----------------
procedure
Initialize
is
File_Name
:
Name_Id
;
File_Descr
:
Location
;
begin
Banner
;
-- Parse arguments before initializing Ocarina, otherwise Ocarina eats
-- some arguments (all file parameters).
Parse_Command_Line
(
Current_Config
);
Initialize_Ocarina
;
Dump_Configuration
(
Current_Config
);
AADL_Language
:=
Get_String_Name
(
"aadl"
);
if
Current_Config
.
Interface_View
.
all
'
Length
=
0
then
Current_Config
.
Interface_View
:=
Default_Interface_View
'
Access
;
end
if
;
Set_Str_To_Name_Buffer
(
Current_Config
.
Interface_View
.
all
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"File not found : "
&
Current_Config
.
Interface_View
.
all
;
end
if
;
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
Interface_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Interface_Root
,
File_Descr
);
if
Current_Config
.
Glue
then
if
Current_Config
.
Deployment_View
.
all
'
Length
=
0
then
Current_Config
.
Deployment_View
:=
Default_Deployment_View
'
Access
;
end
if
;
Set_Str_To_Name_Buffer
(
Current_Config
.
Deployment_View
.
all
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"File not found : "
&
Current_Config
.
Deployment_View
.
all
;
end
if
;
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
Deployment_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Deployment_Root
,
File_Descr
);
if
Deployment_Root
=
No_Node
then
raise
AADL_Parser_Error
with
"Deployment View is incorrect"
;
end
if
;
end
if
;
for
Each
of
Current_Config
.
Other_Files
loop
Set_Str_To_Name_Buffer
(
Each
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"File not found: "
&
Each
;
end
if
;
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
-- Add other files to the Interface and (if any) deployment roots
Interface_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Interface_Root
,
File_Descr
);
if
Deployment_Root
/=
No_Node
then
Deployment_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Deployment_Root
,
File_Descr
);
end
if
;
end
loop
;
-- Missing data view is actually not an error.
-- Systems can live with parameterless messages
if
Current_Config
.
Data_View
.
all
'
Length
>
0
then
Set_Str_To_Name_Buffer
(
Current_Config
.
Data_View
.
all
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"Cannot find the Data View file"
;
end
if
;
else
-- Try with default name
Set_Str_To_Name_Buffer
(
Default_Data_View
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
/=
No_Name
then
Current_Config
.
Data_View
:=
Default_Data_View
'
Access
;
end
if
;
end
if
;
if
File_Name
/=
No_Name
then
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
-- Add the Data View to the Interface View root
Interface_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Interface_Root
,
File_Descr
);
-- Add the Data View to the Deployment View root, if any
if
Deployment_Root
/=
No_Node
then
Deployment_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Deployment_Root
,
File_Descr
);
end
if
;
Dataview_root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Dataview_root
,
File_Descr
);
end
if
;
end
Initialize
;
Model
:
TASTE_Model
;
begin
Initialize
;
IV_AST
:=
Parse_Interface_View
(
Interface_Root
);
IV_AST
.
Debug_Dump
;
if
Current_Config
.
Deployment_View
.
all
'
Length
>
0
then
DV_AST
:=
Parse_Deployment_View
(
Deployment_Root
);
DV_AST
.
Debug_Dump
;
end
if
;
Ocarina
.
Configuration
.
Reset_Modules
;
Ocarina
.
Reset
;
Model
:=
Parse_Project
;
Model
.
Dump
;
exception
when
Error
:
AADL_Parser_Error
|
Interface_Error
|
Function_Error
|
No_RCM_Error
|
Deployment_View_Error
|
Device_Driver_Error
=>
Put
(
Red_Bold
&
"[ERROR] "
&
White_Bold
);
Put_Line
(
Exception_Message
(
Error
)
&
No_Color
);
OS_Exit
(
1
);
when
GNAT
.
Command_Line
.
Exit_From_Command_Line
=>
New_Line
;
Put
(
Yellow_Bold
&
"[INFO] "
&
No_Color
);
Put
(
"For more information, visit "
&
Underline
&
White_Bold
);
Put_Line
(
"https://taste.tools"
&
No_Color
);
when
GNAT
.
Command_Line
.
Invalid_Switch
|
GNAT
.
Command_Line
.
Invalid_Parameter
|
GNAT
.
Command_Line
.
Invalid_Section
=>
Put
(
Red_Bold
&
"[ERROR] "
&
White_Bold
);
Put_Line
(
"Invalid switch or parameter (try --help)"
&
No_Color
);
OS_Exit
(
1
);
when
E
:
others
=>
Errors
.
Display_Bug_Box
(
E
);
when
TASTE
.
Quit_TASTE
=>
GNAT
.
OS_Lib
.
OS_Exit
(
1
);
end
AADL_Parser
;
src/taste-aadl_parser.adb
0 → 100644
View file @
1275d362
-- ************************ TASTE AADL Parser ************************** --
-- Based on Ocarina **************************************************** --
-- (c) 2017 European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
with
GNAT
.
Command_Line
,
Ada
.
Exceptions
,
Ada
.
Text_IO
,
Errors
,
Locations
,
Ocarina
.
Namet
,
Ocarina
.
Configuration
,
Ocarina
.
Files
,
Ocarina
.
Parser
;
use
Ada
.
Text_IO
,
Ada
.
Exceptions
,
Locations
,
Ocarina
.
Namet
,
Ocarina
;
package
body
TASTE
.
AADL_Parser
is
function
Initialize
return
Taste_Configuration
is
File_Name
:
Name_Id
;
File_Descr
:
Location
;
Current_Config
:
Taste_Configuration
;
begin
Banner
;
-- Parse arguments before initializing Ocarina, otherwise Ocarina eats
-- some arguments (all file parameters).
Parse_Command_Line
(
Current_Config
);
Initialize_Ocarina
;
AADL_Language
:=
Get_String_Name
(
"aadl"
);
if
Current_Config
.
Interface_View
.
all
'
Length
=
0
then
Current_Config
.
Interface_View
:=
Default_Interface_View
'
Access
;
end
if
;
Set_Str_To_Name_Buffer
(
Current_Config
.
Interface_View
.
all
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"File not found : "
&
Current_Config
.
Interface_View
.
all
;
end
if
;
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
Interface_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Interface_Root
,
File_Descr
);
if
Current_Config
.
Glue
then
if
Current_Config
.
Deployment_View
.
all
'
Length
=
0
then
Current_Config
.
Deployment_View
:=
Default_Deployment_View
'
Access
;
end
if
;
Set_Str_To_Name_Buffer
(
Current_Config
.
Deployment_View
.
all
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"File not found : "
&
Current_Config
.
Deployment_View
.
all
;
end
if
;
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
Deployment_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Deployment_Root
,
File_Descr
);
if
Deployment_Root
=
No_Node
then
raise
AADL_Parser_Error
with
"Deployment View is incorrect"
;
end
if
;
end
if
;
for
Each
of
Current_Config
.
Other_Files
loop
Set_Str_To_Name_Buffer
(
Each
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"File not found: "
&
Each
;
end
if
;
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
-- Add other files to the Interface and (if any) deployment roots
Interface_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Interface_Root
,
File_Descr
);
if
Deployment_Root
/=
No_Node
then
Deployment_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Deployment_Root
,
File_Descr
);
end
if
;
end
loop
;
-- Missing data view is actually not an error.
-- Systems can live with parameterless messages
if
Current_Config
.
Data_View
.
all
'
Length
>
0
then
Set_Str_To_Name_Buffer
(
Current_Config
.
Data_View
.
all
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
=
No_Name
then
raise
AADL_Parser_Error
with
"Cannot find the Data View file"
;
end
if
;
else
-- Try with default name
Set_Str_To_Name_Buffer
(
Default_Data_View
);
File_Name
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
if
File_Name
/=
No_Name
then
Current_Config
.
Data_View
:=
Default_Data_View
'
Access
;
end
if
;
end
if
;
if
File_Name
/=
No_Name
then
File_Descr
:=
Ocarina
.
Files
.
Load_File
(
File_Name
);
-- Add the Data View to the Interface View root
Interface_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Interface_Root
,
File_Descr
);
-- Add the Data View to the Deployment View root, if any
if
Deployment_Root
/=
No_Node
then
Deployment_Root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Deployment_Root
,
File_Descr
);
end
if
;
Dataview_root
:=
Ocarina
.
Parser
.
Parse
(
AADL_Language
,
Dataview_root
,
File_Descr
);
end
if
;
return
Current_Config
;
end
Initialize
;
function
Parse_Project
return
TASTE_Model
is
Result
:
TASTE_Model
;
begin
Result
.
Configuration
:=
Initialize
;
Result
.
Interface_View
:=
Parse_Interface_View
(
Interface_Root
);
if
Result
.
Configuration
.
Deployment_View
.
all
'
Length
>
0
then
AADL_Lib
.
Append
(
Result
.
Configuration
.
Interface_View
.
all
);
Result
.
Deployment_View
:=
Parse_Deployment_View
(
Deployment_Root
);
end
if
;
Ocarina
.
Configuration
.
Reset_Modules
;
Ocarina
.
Reset
;
return
Result
;
exception
when
Error
:
AADL_Parser_Error
|
Interface_Error
|
Function_Error
|
No_RCM_Error
|
Deployment_View_Error
|
Device_Driver_Error
=>
Put
(
Red_Bold
&
"[ERROR] "
&
White_Bold
);
Put_Line
(
Exception_Message
(
Error
)
&
No_Color
);
raise
Quit_Taste
;
when
GNAT
.
Command_Line
.
Exit_From_Command_Line
=>
New_Line
;
Put
(
Yellow_Bold
&
"[INFO] "
&
No_Color
);
Put
(
"For more information, visit "
&
Underline
&
White_Bold
);
Put_Line
(
"https://taste.tools"
&
No_Color
);
raise
Quit_Taste
;
when
GNAT
.
Command_Line
.
Invalid_Switch
|
GNAT
.
Command_Line
.
Invalid_Parameter
|
GNAT
.
Command_Line
.
Invalid_Section
=>
Put
(
Red_Bold
&
"[ERROR] "
&
White_Bold
);
Put_Line
(
"Invalid switch or parameter (try --help)"
&
No_Color
);
raise
Quit_Taste
;
when
E
:
others
=>
Errors
.
Display_Bug_Box
(
E
);
raise
Quit_Taste
;
end
Parse_Project
;
procedure
Dump
(
Model
:
TASTE_Model
)
is
begin
Put_Line
(
"==== Dump of the Interface View ===="
);
Model
.
Interface_View
.
Debug_Dump
;
if
Model
.
Configuration
.
Deployment_View
.
all
'
Length
>
0
then
Put_Line
(
"==== Dump of the Deployment View ===="
);
Model
.
Deployment_View
.
Debug_Dump
;
end
if
;
Put_Line
(
"==== Dump of the Command Line ===="
);
Model
.
Configuration
.
Debug_Dump
;
end
Dump
;
end
TASTE
.
AADL_Parser
;
src/taste-aadl_parser.ads
0 → 100644
View file @
1275d362
-- ************************ TASTE AADL Parser ************************** --
-- (c) 2017 European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
with
Ocarina
.
Types
,
TASTE
.
Parser_Utils
,
TASTE
.
Interface_View
,
TASTE
.
Deployment_View
;
use
Ocarina
.
Types
,
TASTE
.
Parser_Utils
,
TASTE
.
Interface_View
,
TASTE
.
Deployment_View
;
package
TASTE
.
AADL_Parser
is
Interface_Root
:
Node_Id
:=
No_Node
;
Deployment_Root
:
Node_Id
:=
No_Node
;
Dataview_Root
:
Node_Id
:=
No_Node
;
type
TASTE_Model
is
tagged
record
Interface_View
:
Complete_Interface_View
;
Deployment_View
:
Complete_Deployment_View
;
Configuration
:
Taste_Configuration
;
end
record
;
function
Parse_Project
return
TASTE_Model
;
procedure
Dump
(
Model
:
TASTE_Model
);
private
function
Initialize
return
Taste_Configuration
;
end
TASTE
.
AADL_Parser
;
src/deployment_view.adb
→
src/
taste-
deployment_view.adb
View file @
1275d362
...
...
@@ -8,7 +8,6 @@ with Ada.Text_IO,
Ada
.
Exceptions
,
Ada
.
Strings
.
Fixed
,
System
.
Assertions
,
-- Ada.Command_Line,
Ocarina
.
Instances
.
Queries
,
Ocarina
.
Instances
,
Ocarina
.
Files
,
...
...
@@ -21,9 +20,8 @@ with Ada.Text_IO,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nodes
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nutils
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Entities
;
-- Ocarina.Backends.Utils;
package
body
Deployment_View
is
package
body
TASTE
.
Deployment_View
is
use
Ada
.
Text_IO
,
Ada
.
Exceptions
,
...
...
@@ -38,11 +36,6 @@ package body Deployment_View is
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nutils
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Entities
,
Ocarina
.
ME_AADL
;
-- Ocarina.Backends.Utils;
----------------
-- Initialize --
----------------
function
Initialize
(
Root
:
Node_Id
)
return
Node_Id
is
Root_Depl
:
Node_Id
:=
Root
;
...
...
@@ -55,8 +48,6 @@ package body Deployment_View is
Ocarina
.
FE_AADL
.
Parser
.
Add_Pre_Prop_Sets
:=
True
;
-- Parse all AADL files possibly needed to instantiate the model
-- Add the interface view, first...
AADL_Lib
.
Append
(
Current_Config
.
Interface_View
.
all
);
for
Each
of
AADL_Lib
loop
Set_Str_To_Name_Buffer
(
Each
);
F
:=
Ocarina
.
Files
.
Search_File
(
Name_Find
);
...
...
@@ -545,4 +536,4 @@ package body Deployment_View is
DV
.
Dump_Connections
;
end
Debug_Dump
;
end
Deployment_View
;
end
TASTE
.
Deployment_View
;
src/deployment_view.ads
→
src/
taste-
deployment_view.ads
View file @
1275d362
...
...
@@ -10,16 +10,16 @@ with Ocarina,
Ada
.
Containers
.
Indefinite_Vectors
,
Ada
.
Strings
.
Unbounded
,
Ocarina
.
Backends
.
Properties
,
Parser_Utils
;
TASTE
.
Parser_Utils
;
use
Ocarina
,
Ocarina
.
Types
,
Ocarina
.
Backends
.
Properties
,
Ada
.
Containers
,
Ada
.
Strings
.
Unbounded
,
Parser_Utils
;
TASTE
.
Parser_Utils
;
package
Deployment_View
is
package
TASTE
.
Deployment_View
is
use
Option_UString
;
use
Option_ULL
;
...
...
@@ -128,4 +128,4 @@ package Deployment_View is
procedure
Dump_Busses
(
DV
:
Complete_Deployment_View
);
procedure
Debug_Dump
(
DV
:
Complete_Deployment_View
);
end
Deployment_View
;
end
TASTE
.
Deployment_View
;
src/interface_view.adb
→
src/
taste-
interface_view.adb
View file @
1275d362
...
...
@@ -12,12 +12,11 @@ with Ada.Text_IO,
Ocarina
.
Instances
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nodes
,
Ocarina
.
Namet
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nutils
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nutils
,
Ocarina
.
ME_AADL
.
AADL_Instances
.
Entities
,
Ocarina
.
Backends
.
Utils
;
-- Ada.Characters.Latin_1;
package
body
Interface_View
is
package
body
TASTE
.
Interface_View
is
use
Ada
.
Text_IO
,
Ada
.
Exceptions
,
...
...
@@ -845,4 +844,4 @@ package body Interface_View is
New_Line
;
end
loop
;
end
Debug_Dump
;
end
Interface_View
;
end
TASTE
.
Interface_View
;
src/interface_view.ads
→
src/
taste-
interface_view.ads
View file @
1275d362
...
...
@@ -11,16 +11,16 @@ with Ocarina,
Ada
.
Containers
.
Indefinite_Vectors
,
Ada
.
Strings
.
Unbounded
,
Option_Type
,
Parser_Utils
;
TASTE
.
Parser_Utils
;
use
Ocarina
,
Ocarina
.
Types
,
Ocarina
.
Backends
.
Properties
,
Ada
.
Containers
,
Ada
.
Strings
.
Unbounded
,
Parser_Utils
;
TASTE
.
Parser_Utils
;
package
Interface_View
is
package
TASTE
.
Interface_View
is
use
Option_UString
;
use
Option_ULL
;
...
...
@@ -181,4 +181,4 @@ package Interface_View is
procedure
Debug_Dump
(
IV
:
Complete_Interface_View
);
end
Interface_View
;
end
TASTE
.
Interface_View
;
src/parser_utils.adb
→
src/
taste-
parser_utils.adb
View file @
1275d362
...
...
@@ -3,38 +3,33 @@
-- LGPL license, see LICENSE file
with
Ada
.
Text_IO
,
Parser_Version
,
GNAT
.
OS_Lib
,
GNAT
.
Command_Line
,
Ocarina
.
AADL_Values
,
Ocarina
.
Configuration
,
Ocarina
.
FE_AADL
.
Parser
,
Ocarina
.
Instances
.
Queries
,
GNAT
.
OS_Lib
,
GNAT
.
Command_Line
;
TASTE
.
Parser_Version
;
package
body
Parser_Utils
is
package
body
TASTE
.
Parser_Utils
is
use
Ada
.
Text_IO
,
Ocarina
.
Instances
.
Queries
,
GNAT
.
OS_Lib
,
Ocarina
.
ME_AADL
,
GNAT
.
Command_Line
;
------------
-- Banner --
------------
GNAT
.
Command_Line
,
Ocarina
.
Instances
.
Queries
,
Ocarina
.
ME_AADL
;
procedure
Banner
is
The_Banner
:
constant
String
:=
Yellow_Bold
&
"TASTE AADL Parser"
&
No_Color
&
" (Version "
&
Parser_Version
.
Parser_Release
&
") "