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, ...@@ -27,15 +27,17 @@ use PolyORB_HI_Generated.Deployment,
package @_CAPITALIZE:Thread_Name_@_Wrappers is 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 @@IF@@ @_Param_Names'Length_@ > 0
@@TABLE@@ @@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@@ @@END_TABLE@@
@@ELSE@@ @@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_IF@@
@@END_INLINE@@ @@END_INLINE@@
......
...@@ -56,6 +56,7 @@ void init_@_LOWER:Name_@() ...@@ -56,6 +56,7 @@ void init_@_LOWER:Name_@()
extern void init_@_LOWER:Sync_RIs_Parent_@(); extern void init_@_LOWER:Sync_RIs_Parent_@();
init_@_LOWER:Sync_RIs_Parent_@(); init_@_LOWER:Sync_RIs_Parent_@();
@@END_TABLE@@ @@END_TABLE@@
puts ("init done");
} }
} }
@@-- For blackbox devices, don't generate the PI functions, they will be @@-- 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 ...@@ -26,4 +26,5 @@ void *OUT_@_LOWER:Param_Names_@, size_t *OUT_@_LOWER:Param_Names_@_len
void @_LOWER:Parent_Function_@_@_LOWER:Name_@() void @_LOWER:Parent_Function_@_@_LOWER:Name_@()
@@END_IF@@ @@END_IF@@
{ {
puts ("@_LOWER:Parent_Function_@_@_LOWER:Name_@ called");
} }
...@@ -48,7 +48,7 @@ dataviews: ...@@ -48,7 +48,7 @@ dataviews:
@@-- Then symlink the files for each function @@-- Then symlink the files for each function
@@TABLE@@ @@TABLE@@
@@IF@@ @_Language_@ = "SDL" @@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_IF@@
@@END_TABLE@@ @@END_TABLE@@
......
...@@ -11,17 +11,27 @@ all: compile-linux ...@@ -11,17 +11,27 @@ all: compile-linux
clean: clean:
rm -rf obj rm -rf obj
compile-linux: generate-code:
mkdir -p code && cd code && \ mkdir -p code && cd code && \
@@IF@@ @_EXIST:Instance_Of_@ @@IF@@ @_EXIST:Instance_Of_@
opengeode --toAda ../src/system_structure.pr ../../../@_LOWER:Instance_Of_@/SDL/src/@_LOWER:Instance_Of_@.pr && \ opengeode --toAda ../src/system_structure.pr ../../../@_LOWER:Instance_Of_@/SDL/src/@_LOWER:Instance_Of_@.pr && \
mv *.gpr .. && cd .. && \ mv *.gpr ..
ADA_INCLUDE_PATH=../../../@_LOWER:Instance_Of_@/SDL/code/:../../../dataview/Ada gprbuild -p -P @_LOWER:Name_@_ada.gpr
@@ELSE@@ @@ELSE@@
opengeode --toAda ../src/@_LOWER:Name_@.pr ../src/system_structure.pr && \ opengeode --toAda ../src/@_LOWER:Name_@.pr ../src/system_structure.pr && \
@@END_IF@@ @@END_IF@@
@@IF@@ not @_Is_Type_@ and not @_EXIST:Instance_Of_@ @@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@@ @@ELSE@@
: :
@@END_IF@@ @@END_IF@@
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