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

In Debug mode, copy locally all ASN.1 files

To support project export
parent 1621ade4
......@@ -277,6 +277,10 @@ package body TASTE.AADL_Parser is
Put_Info ("Dump of the Command Line");
Model.Configuration.Debug_Dump (Output);
Close (Output);
Put_Info ("Make a local copy of ASN.1 files for export");
Create_Path (Output_Path & "/Export");
Model.Data_View.Export_ASN1_Files (Output_Path & "/Export/");
end if;
when Error : others =>
......@@ -151,4 +151,14 @@ package body TASTE.Data_View is
end loop;
end loop;
end Debug_Dump;
procedure Export_ASN1_Files (DV : Taste_Data_View; Output_Path : String) is
for Each of DV.ASN1_Files loop
(Source_Name => To_String (Each.Path),
Target_Name => Output_Path
& Ada.Directories.Simple_Name (To_String (Each.path)));
end loop;
end Export_ASN1_Files;
end TASTE.Data_View;
......@@ -64,4 +64,7 @@ package TASTE.Data_View is
procedure Debug_Dump (DV : Taste_Data_View; Output : File_Type);
-- Make a local copy of ASN.1 files to allow project export
procedure Export_ASN1_Files (DV : Taste_Data_View; Output_Path : String);
end TASTE.Data_View;
Supports Markdown
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