Commit 8a89a782 authored by jdelange's avatar jdelange

* ocarina/src/main/ocarina_cmd.adb

   - Handle the asn1 option in the scenario files

 * ocarina/src/backends/ocarina-backends-po_hi_c.adb
   ocarina/src/backends/ocarina-backends-po_hi_c.ads
   - Set_ASN1_Deployment to indicate to the generator
     we would like to generate deployment informations
     using ASN1.



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2961 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 9c75fa44
......@@ -633,6 +633,15 @@ package body Ocarina.Backends.PO_HI_C is
return Generate_ASN1_Deployment;
end Use_ASN1_Deployment;
--------------------------
-- Set_ASN1_Deployment --
--------------------------
procedure Set_ASN1_Deployment (Use_It : Boolean) is
begin
Generate_ASN1_Deployment := Use_It;
end Set_ASN1_Deployment;
-------------------------------
-- Set_Performance_Analysis --
-------------------------------
......
......@@ -56,6 +56,10 @@ package Ocarina.Backends.PO_HI_C is
-- Indicate to the generator if we use performance
-- analysis or not.
procedure Set_ASN1_Deployment (Use_It : Boolean);
-- Indicate if we would like to generate deployment
-- data using ASN1.
function Use_ASN1_Deployment return Boolean;
-- Just returns a boolean to indicate if the user
-- wants the ASN1 deployment information.
......
......@@ -925,6 +925,10 @@ procedure Ocarina_Cmd is
Ocarina.Backends.PO_HI_C.Set_Performance_Analysis (True);
end if;
if P = Get_String_Name ("asn1") then
Ocarina.Backends.PO_HI_C.Set_ASN1_Deployment (True);
end if;
N := Next_Node (N);
end;
end loop;
......
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