Fix relative path name support

src/taste-data_view.adb

@@ -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

 --------------------------------------------------------
 --! 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;