Commit 8a52fe1f authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Fix relative path name support

parent 1a51af32
......@@ -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;
--------------------------------------------------------
--! 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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment