Build up templates parser structures

src/taste-concurrency_view.adb

@@ -41,12 +41,55 @@ package body TASTE.Concurrency_View is
       end loop;
    end Debug_Dump;
 
+   --  This function translates a protected block into a template
+   function Pro_To_ST (B : Protected_Block) return Translate_Set is
+      Calling_Threads : Tag;
+      --  TODO: Provided and Required
+   begin
+      for Thread of B.Calling_Threads loop
+         Calling_Threads := Calling_Threads & Thread;
+      end loop;
+
+      return Result : constant Translate_Set :=
+        (+Assoc  ("Name",            To_String (B.Name))
+         & Assoc ("Calling_Threads", Calling_Threads)
+         & Assoc ("Node_Name",       To_String (B.Node.Value_Or
+           (Taste_Node'(Name => US (""), others => <>)).Name)));
+   end Pro_To_ST;
+
+   --  This function translates a thread definition into a template
+   function Thread_To_ST (T : AADL_Thread) return Translate_Set is
+      Remote_Thread : Vector_Tag;
+      Remote_PI     : Vector_Tag;
+      Ports_Matrix  : Matrix_Tag;
+   begin
+      for Out_Port of T.Output_Ports loop
+         Remote_Thread := Remote_Thread & To_String (Out_Port.Remote_Thread);
+         Remote_PI     := Remote_PI     & To_String (Out_Port.Remote_PI);
+      end loop;
+
+      Ports_Matrix := +Remote_Thread & Remote_PI;
+
+      return Result : constant Translate_Set :=
+        (+Assoc  ("Name",            To_String (T.Name))
+         & Assoc ("Entry_Port_Name", To_String (T.Entry_Port_Name))
+         & Assoc ("Pro_Block_Name",  To_String (T.Protected_Block_Name))
+         & Assoc ("Node_Name",       To_String (T.Node.Value_Or
+           (Taste_Node'(Name => US (""), others => <>)).Name))
+         & Assoc ("Out_Ports",       Ports_Matrix));
+   end Thread_To_ST;
+
    function Concurrency_View_Template (CV : Taste_Concurrency_View)
-                                       return CV_As_Template is
+                                       return CV_As_Template
+   is
       Result : CV_As_Template;
-      pragma Unreferenced (CV);
    begin
+      for Thread of CV.Threads loop
+         Result.Threads.Append (Thread_To_ST (Thread));
+      end loop;
+      for Pro of CV.Blocks loop
+         Result.Blocks.Append (Pro_To_ST (Pro));
+      end loop;
       return Result;
    end Concurrency_View_Template;
-
 end TASTE.Concurrency_View;

src/taste-concurrency_view.ads

@@ -75,28 +75,14 @@ package TASTE.Concurrency_View is
    procedure Debug_Dump (CV     : Taste_Concurrency_View;
                          Output : File_Type);
 
-   --  Set of types to transform the AST into String Template entities
-
-   type ST_port is
-      record
-         Header : Translate_Set;
-      end record;
-
-   package ST_Ports is new Indefinite_Vectors (Natural, ST_Port);
-
-   type ST_Thread is
-      record
-         Header       : Translate_Set;
-         Output_Ports : ST_Ports.Vector;
-      end record;
-
-   package ST_Threads is new Indefinite_Ordered_Maps (String, ST_Thread);
-   --  package ST_Blocks  is new Indefinite_Ordered_Maps (String, ST_Block);
+   --  Set of constructs for transforming the AST into Template entities
+   package ST_Threads is new Indefinite_Vectors (Natural, Translate_Set);
+   package ST_Blocks  is new Indefinite_Vectors (Natural, Translate_Set);
 
    type CV_As_Template is
       record
-         Threads : ST_Threads.Map;
-         --  Blocks  : ST_Blocks.Map;
+         Threads : ST_Threads.Vector;
+         Blocks  : ST_Blocks.Vector;
       end record;
 
    function Concurrency_View_Template (CV : Taste_Concurrency_View)