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 ...@@ -277,6 +277,10 @@ package body TASTE.AADL_Parser is
Put_Info ("Dump of the Command Line"); Put_Info ("Dump of the Command Line");
Model.Configuration.Debug_Dump (Output); Model.Configuration.Debug_Dump (Output);
Close (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; end if;
exception exception
when Error : others => when Error : others =>
......
...@@ -151,4 +151,14 @@ package body TASTE.Data_View is ...@@ -151,4 +151,14 @@ package body TASTE.Data_View is
end loop; end loop;
end loop; end loop;
end Debug_Dump; end Debug_Dump;
procedure Export_ASN1_Files (DV : Taste_Data_View; Output_Path : String) is
begin
for Each of DV.ASN1_Files loop
Ada.Directories.Copy_File
(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; end TASTE.Data_View;
...@@ -64,4 +64,7 @@ package TASTE.Data_View is ...@@ -64,4 +64,7 @@ package TASTE.Data_View is
procedure Debug_Dump (DV : Taste_Data_View; Output : File_Type); 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; 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