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
8a52fe1f
Commit
8a52fe1f
authored
Aug 05, 2019
by
Maxime Perrotin
Browse files
Fix relative path name support
parent
1a51af32
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/taste-data_view.adb
View file @
8a52fe1f
...
...
@@ -162,11 +162,11 @@ package body TASTE.Data_View is
procedure
Export_ASN1_Files
(
DV
:
Taste_Data_View
;
Output_Path
:
String
)
is
begin
for
Each
of
DV
.
ASN1_Files
loop
for
Idx
in
DV
.
ASN1_Files
.
Iterate
loop
Ada
.
Directories
.
Copy_File
(
Source_Name
=>
To_String
(
Each
.
Path
),
Target_Name
=>
Output_Path
&
Ada
.
Directories
.
Simple_Name
(
To_String
(
Each
.
path
)));
(
Source_Name
=>
ASN1_File_Maps
.
Key
(
Idx
),
Target_Name
=>
Output_Path
&
Ada
.
Directories
.
Simple_Name
(
ASN1_File_Maps
.
Key
(
Idx
)));
end
loop
;
end
Export_ASN1_Files
;
end
TASTE
.
Data_View
;
test/test-air-interpartcomm/DataView.aadl
View file @
8a52fe1f
--------------------------------------------------------
--
! File generated by asn2aadl v2.1.31: DO NOT EDIT !
--------------------------------------------------------
--
! InputASN1FileChecksum:6bf664b31ce9ca6fd89af52cea7ea0f2:
/home/taste/kazoo/test/test-air-interpartcomm/
DataView.asn:
--
! InputASN1FileChecksum:6bf664b31ce9ca6fd89af52cea7ea0f2:DataView.asn:
--
! InputASN1FileChecksum:ee8a7e01f29874c0d50f437d5abb9599:/home/taste/tool-inst/share/taste-types/taste-types.asn:
--------------------------------------------------------
...
...
@@ -46,7 +46,7 @@ end Stream_Element_Buffer;
DATA
TASTE_Boolean
PROPERTIES
--
name
of
the
ASN
.1
source
file
:
Source_Text
=>
(
"
/home/taste/kazoo/test/test-air-interpartcomm/
DataView.asn"
);
Source_Text
=>
(
"DataView.asn"
);
TASTE
::
EncodingDefinitionFile
=>
classifier
(
DataView
::
ACN_DataView
);
TASTE
::
Ada_Package_Name
=>
"TASTE_Dataview"
;
Deployment
::
ASN1_Module_Name
=>
"TASTE-Dataview"
;
...
...
@@ -316,7 +316,7 @@ SUBCOMPONENTS
END
Taste_DataView
.
others
;
DATA
ACN_DataView
PROPERTIES
Source_Text
=>
(
"
/home/taste/kazoo/test/test-air-interpartcomm/
DataView.acn"
);
Source_Text
=>
(
"DataView.acn"
);
Source_Language
=>
(
ACN
);
END
ACN_DataView
;
...
...
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