interface.tmplt 1.96 KB
Newer Older
1
2
3
4
5
6
7
8
@@-- The documentation of the templates is there:
@@-- https://taste.tuxfamily.org/wiki/index.php?title=Kazoo_Templates_Documentation
@@-- If you are using vim, go over the URL and pres gx in to follow the link
@@-- If you have no internet access you can also use (with vim) Ctrl-W-f or gf in vim to open the text doc:
@@-- $HOME/tool-inst/share/kazoo/doc/templates_skeletons_sub_interface.ascii
@@IF@@ @_Direction_@ = "PI"
@@IF@@ @_EXIST:Param_Names_@
procedure @_CAPITALIZE:Name_@
9
10
   (Global_State : in out asn1SccSystem_State;
   @@INLINE(   )(;\n    )(\);\n)@@
11
12
      @@TABLE'ALIGN_ON(":")@@
         @@IF@@ @_Param_Directions_@ = "PARAM_IN"
Maxime Perrotin's avatar
Maxime Perrotin committed
13
            @_CAPITALIZE:Param_Names_@ : in out asn1Scc@_CAPITALIZE:REPLACE_ALL(-/_):Param_Types_@
14
         @@ELSE@@
Maxime Perrotin's avatar
Maxime Perrotin committed
15
            @_CAPITALIZE:Param_Names_@ :    out asn1Scc@_CAPITALIZE:REPLACE_ALL(-/_):Param_Types_@
16
17
18
         @@END_IF@@
      @@END_TABLE@@
   @@END_INLINE@@
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
@@IF@@ @_Language_@ /= Ada and @_Language_@ /= SDL and @_Language_@ /= Timer_Manager
@@-- for non-Ada functions we must import the C symbol of the PI
--  Interface to the C implementation of the interface
procedure C_@_CAPITALIZE:Name_@
   @@INLINE(  \()(;\n    )(\)\n)@@
      @@TABLE'ALIGN_ON(":")@@
         @@IF@@ @_Param_Directions_@ = "PARAM_IN"
            @_CAPITALIZE:Param_Names_@ : in out asn1Scc@_CAPITALIZE:REPLACE_ALL(-/_):Param_Types_@
         @@ELSE@@
            @_CAPITALIZE:Param_Names_@ :    out asn1Scc@_CAPITALIZE:REPLACE_ALL(-/_):Param_Types_@
         @@END_IF@@
      @@END_TABLE@@
   @@END_INLINE@@
   with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_PI_@_Name_@";
@@END_IF@@   @@-- non-Ada/SDL
@@ELSE@@     @@-- no params
35
procedure @_CAPITALIZE:Name_@ (Global_State : in out asn1SccSystem_State);
36
37
38
39
@@IF@@ @_Language_@ /= Ada and @_Language_@ /= SDL and @_Language_@ /= Timer_Manager
procedure C_@_CAPITALIZE:Name_@
   with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_PI_@_Name_@";
@@END_IF@@
40
41
@@END_IF@@
@@END_IF@@