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

Make first binary run

parent d7489203
......@@ -27,15 +27,17 @@ use PolyORB_HI_Generated.Deployment,
package @_CAPITALIZE:Thread_Name_@_Wrappers is
procedure C_Init_@_CAPITALIZE:Thread_Name_@ is null;
procedure C_Init_@_CAPITALIZE:Thread_Name_@
with Import, Convention => C, Link_Name => "init_@_LOWER:Pro_Block_Name_@";
@@INLINE( )()()@@
@@INLINE( )(\n )(\n)@@
@@IF@@ @_Param_Names'Length_@ > 0
@@TABLE@@
procedure @_CAPITALIZE:Entry_Port_Name_@ (dummy_Entity : Entity_Type; Param_Buffer : @_REPLACE_ALL((-)/_):Param_Types_@_Buffer_Impl) is null;
procedure @_CAPITALIZE:Entry_Port_Name_@ (dummy_Entity : Entity_Type; Param_Buffer : @_REPLACE_ALL((-)/_):Param_Types_@_Buffer_Impl);
@@END_TABLE@@
@@ELSE@@
procedure @_CAPITALIZE:Entry_Port_Name_@ (dummy_Entity : Entity_Type) is null;
procedure @_CAPITALIZE:Entry_Port_Name_@ (dummy_Entity : Entity_Type);
procedure @_CAPITALIZE:Pro_Block_Name_@_@_CAPITALIZE:Entry_Port_Name_@ with Import, Convention => C, Link_Name => "@_LOWER:Pro_Block_Name_@_@_LOWER:Entry_Port_Name_@";
@@END_IF@@
@@END_INLINE@@
......
......@@ -56,6 +56,7 @@ void init_@_LOWER:Name_@()
extern void init_@_LOWER:Sync_RIs_Parent_@();
init_@_LOWER:Sync_RIs_Parent_@();
@@END_TABLE@@
puts ("init done");
}
}
@@-- For blackbox devices, don't generate the PI functions, they will be
......
......@@ -26,4 +26,5 @@ void *OUT_@_LOWER:Param_Names_@, size_t *OUT_@_LOWER:Param_Names_@_len
void @_LOWER:Parent_Function_@_@_LOWER:Name_@()
@@END_IF@@
{
puts ("@_LOWER:Parent_Function_@_@_LOWER:Name_@ called");
}
......@@ -48,7 +48,7 @@ dataviews:
@@-- Then symlink the files for each function
@@TABLE@@
@@IF@@ @_Language_@ = "SDL"
ln -fs ${PWD}/dataview/dataview-uniq.asn @_LOWER:Function_Names_@/@_Language_@/src
ln -fs ${OUTDIR}/dataview/dataview-uniq.asn @_LOWER:Function_Names_@/@_Language_@/src
@@END_IF@@
@@END_TABLE@@
......
......@@ -11,17 +11,27 @@ all: compile-linux
clean:
rm -rf obj
compile-linux:
generate-code:
mkdir -p code && cd code && \
@@IF@@ @_EXIST:Instance_Of_@
opengeode --toAda ../src/system_structure.pr ../../../@_LOWER:Instance_Of_@/SDL/src/@_LOWER:Instance_Of_@.pr && \
mv *.gpr .. && cd .. && \
ADA_INCLUDE_PATH=../../../@_LOWER:Instance_Of_@/SDL/code/:../../../dataview/Ada gprbuild -p -P @_LOWER:Name_@_ada.gpr
mv *.gpr ..
@@ELSE@@
opengeode --toAda ../src/@_LOWER:Name_@.pr ../src/system_structure.pr && \
@@END_IF@@
@@IF@@ not @_Is_Type_@ and not @_EXIST:Instance_Of_@
mv *.gpr .. && cd .. && CODE_PATH=code ADA_INCLUDE_PATH=../../../dataview/Ada gprbuild -p -P @_LOWER:Name_@_ada.gpr
mv *.gpr ..
@@ELSE@@
:
@@END_IF@@
compile-linux: generate-code
@@IF@@ @_EXIST:Instance_Of_@
ADA_INCLUDE_PATH=../../../@_LOWER:Instance_Of_@/SDL/code/:../../../dataview/Ada gprbuild -p -P @_LOWER:Name_@_ada.gpr
@@ELSE@@
@@END_IF@@
@@IF@@ not @_Is_Type_@ and not @_EXIST:Instance_Of_@
CODE_PATH=code ADA_INCLUDE_PATH=../../../dataview/Ada gprbuild -p -P @_LOWER:Name_@_ada.gpr
@@ELSE@@
:
@@END_IF@@
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