Commit 6f14dbb9 authored by Maxime Perrotin's avatar Maxime Perrotin

Complete POHIAda interface

parent 55ed4b44
......@@ -11,13 +11,21 @@
procedure @_CAPITALIZE:Name_@
@@INLINE( \()(;\n )(\) is\n)@@
@@TABLE'ALIGN_ON(":")@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN"
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@ELSE@@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : out Integer
@@END_IF@@
@@END_TABLE@@
@@END_INLINE@@
procedure C_@_CAPITALIZE:Name_@
@@INLINE( \()(;\n )(\)\n)@@
@@TABLE'ALIGN_ON(":")@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN"
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@ELSE@@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : out Integer
@@END_IF@@
@@END_TABLE@@
@@END_INLINE@@
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_Name_@";
......
......@@ -21,7 +21,11 @@ procedure @_CAPITALIZE:Name_@
procedure @_CAPITALIZE:Name_@
@@INLINE( \()(;\n )(\))@@
@@TABLE'ALIGN_ON(":")@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN"
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@ELSE@@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : out Integer
@@END_IF@@
@@END_TABLE@@
@@END_INLINE@@
@@END_IF@@
......
......@@ -13,7 +13,11 @@ procedure @_CAPITALIZE:Name_@;
procedure @_CAPITALIZE:Name_@
@@INLINE( \()(;\n )(\);)@@
@@TABLE'ALIGN_ON(":")@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN"
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@ELSE@@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : out Integer
@@END_IF@@
@@END_TABLE@@
@@END_INLINE@@
@@END_IF@@
......@@ -17,7 +17,11 @@ procedure @_CAPITALIZE:Name_@
procedure @_CAPITALIZE:Name_@
@@INLINE( \()(;\n )(\))@@
@@TABLE'ALIGN_ON(":")@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN"
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@ELSE@@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : out Integer
@@END_IF@@
@@END_TABLE@@
@@END_INLINE@@
@@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