Commit ef856fae authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add list of asn1 files

parent ef251076
......@@ -84,6 +84,16 @@ package body TASTE.Backend.Skeletons is
return Result;
end Get_Module_List;
-- Return a Tag list of ASN.1 Files for the skeleton headers
function Get_ASN1_File_List return Tag is
Result : Tag;
begin
for Each of Model.Data_View.ASN1_Files loop
Result := Result & Each.Path;
end loop;
return Result;
end Get_ASN1_File_List;
begin
Put_Info ("=== Generate skeletons ===");
for Each of Model.Interface_View.Flat_Functions loop
......@@ -103,6 +113,7 @@ package body TASTE.Backend.Skeletons is
& Assoc ("Required_Interfaces",
Process_Interfaces (Func_Tmpl.Required, Path, Header))
& Assoc ("ASN1_Modules", Get_Module_List)
& Assoc ("ASN1_Files", Get_ASN1_File_List)
else Null_Set);
Header_Text : constant String :=
......
......@@ -10,6 +10,7 @@
@@-- @_List_Of_ASync_RIs@ : List of asynchronous Required Interfaces
@@-- @_List_Of_RIs_@ : List of all Required Interfaces (just names)
@@-- @_ASN1_Modules_@ : List of ASN.1 Modules names
@@-- @_ASN1_Files_@ : List of ASN.1 Files with path
@@-- @_Timers_@ : List of timers (just names)
@@-- @_Has_Context_@ : Flag, True if there are context parameters
@@-- @_Provided_Interfaces_@ : From template: Provided interfaces with params
......@@ -31,8 +32,7 @@
-- * @_Property_Names_@ = @_Property_Values_@
@@END_TABLE@@
-- DO NOT EDIT THIS FILE, IT WILL BE OVERWRITTEN DURING THE BUILD
/* CIF Keep Specific Geode ASNFilname 'dataview-uniq.asn' */
/* CIF Keep Specific Geode ASNFilename '@_ASN1_Files_@' */
use Datamodel;
system @_CAPITALIZE:Name_@;
......
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