Commit 0262adff authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add user code folders to the partition gpr file

parent c9c289e6
......@@ -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)
......
......@@ -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_@
......@@ -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", ":");
......
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