Add user code folders to the partition gpr file

src/taste-concurrency_view.adb

@@ -204,7 +204,8 @@ package body TASTE.Concurrency_View is
                Partition       : constant CV_Partition :=
                  CV.Nodes (Node_Name).Partitions (Partition_Name);
                Thread_Names    : Tag;
-               Block_Names     : Tag;
+               Block_Names     : Vector_Tag;
+               Block_Languages : Vector_Tag;
                Blocks          : Unbounded_String;
                Partition_Assoc : Translate_Set;
                --  Connections between threads:
@@ -294,7 +295,9 @@ package body TASTE.Concurrency_View is
                         then Strip_String (Parse (Block_File_Id, Block_Tag))
                         else "");
                   begin
-                     Block_Names := Block_Names & Block_Name;
+                     Block_Names     := Block_Names & Block_Name;
+                     Block_Languages := Block_Languages & B.Language;
+
                      for PI_Assoc of Tmpl.Provided loop
                         PI_Tag := PI_Tag & Newline
                           & String'(Parse (Path & "/pi.tmplt", PI_Assoc));
@@ -332,6 +335,7 @@ package body TASTE.Concurrency_View is
                  & Assoc ("Node_Name",       Node_Name)
                  & Assoc ("Blocks",          Blocks)
                  & Assoc ("Block_Names",     Block_Names)
+                 & Assoc ("Block_Languages", Block_Languages)
                  & Assoc ("Thread_Src_Name", Thread_Src_Name)
                  & Assoc ("Thread_Src_Port", Thread_Src_Port)
                  & Assoc ("Thread_Dst_Name", Thread_Dst_Name)

templates/concurrency_view/aadl_4_makefile/block.tmplt

@@ -7,4 +7,4 @@
 @@-- @_Provided_@         : Provided interfaces (from pi.tmplt)
 @@-- @_Required_@         : Required interfaces (from ri.tmplt)
 @_LOWER:Name_@ :
-	# Generate DMT glue code for this block (coded in @_Language_@)
+	# Placeholder if anything has to be done for this function coded in @_Language_@

templates/concurrency_view/ada_pohi_gpr/partition.tmplt

@@ -5,11 +5,16 @@
 @@-- @_Thread_Names_@    : Tag: list of thread names
 @@-- @_Node_Name_@       : Name of the node containing this partition
 @@-- @_Blocks_@          : Code generated for protected functions
+@@-- @_Block_Names@      : Vector Tag: list of block (user functions) names
+@@-- @_Block_Languages@  :   |_ Corresponding implementation language
 @@-- @_Coverage_@        : True if user requested code coverage enable
 @@-- @_Package_Name_@    : AADL Package name for the target (e.g. ocarina_porocessors_x86)
 @@-- @_CPU_Name_@        : CPU Name (e.g. x86_linux)
 @@-- @_CPU_Platform_@    : AADL CPU_Platform (e.g. PLATFORM_NATIVE)
 @@-- @_CPU_Classifier_@  : AADL CPU Classifier (e.g. ocarina_processors_x86::x86.linux)
+@@-- @_VP_Name_@         : Virtual processor name on which the partition is bounded
+@@-- @_VP_Platform_@     : Virtual processor platform (e.g. PLATFORM_AIR)
+@@-- @_VP_Classifier_@   : Virtual processor classifier
 @@-- @_Ada_Runtime_@     : Set if CPU_Platform = PLATFORM_GNAT_RUNTIME
 @@-- @_Bound_Functions_@ : List of user functions from Interface view
 @@-- @_Thread_Src_Name_@ : Vector tag : connection thread name (source)
@@ -35,6 +40,10 @@ project @_CAPITALIZE:Name_@ is
    for Source_Dirs use
       (".",
        "/home/taste/tool-inst/include/ocarina/runtime/polyorb-hi-ada",
+@@TABLE@@
+       "../../@_LOWER:Block_Names_@/@_UPPER:Block_Languages_@/src",
+       "../../@_LOWER:Block_Names_@/@_UPPER:Block_Languages_@/wrappers",
+@@END_TABLE@@
        "../deploymentview_final/@_LOWER:Name_@")
         & external_as_list("ADA_INCLUDE_PATH", ":");