imported_routines.ads 11.6 KB
Newer Older
Maxime Perrotin's avatar
Maxime Perrotin committed
1 2 3 4
--  *************************** buildsupport ****************************  --
--  (c) 2015 European Space Agency - maxime.perrotin@esa.int
--  LGPL license, see LICENSE file

Maxime Perrotin's avatar
Maxime Perrotin committed
5
with Ocarina.Types; use Ocarina.Types;
6
with Interfaces.C;  use Interfaces.C;
Maxime Perrotin's avatar
Maxime Perrotin committed
7
--  with Types; use Types;
Maxime Perrotin's avatar
Maxime Perrotin committed
8 9 10

package Imported_Routines is

11 12 13 14 15
   procedure C_Set_OutDir (Dir : char_array);
   procedure C_Set_Stack  (Val : char_array);
   procedure C_Set_Timer_Resolution  (Val : char_array);
   procedure C_New_APLC   (Arg : char_array);
   procedure C_New_FV     (Arg : char_array; CS : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
16 17 18

   procedure C_Set_PolyORBHI_C;

19
   procedure C_Add_PI (Arg : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
20

21 22 23
   procedure C_Add_RI (Arg : char_array;
                       DistFV : char_array;
                       DistName : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
24

25 26
   procedure C_Set_Property (Name    : char_array;
                             Val     : char_array);
27

28
   procedure C_Set_Distant_APLC (Arg : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
29 30 31
   procedure C_End_IF;
   procedure C_End_FV;

32
   procedure C_Set_Root_Node (Arg : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
33

34 35 36
   procedure C_New_Process (Arg           : char_array;
                            Id            : char_array;
                            Node_Name     : char_array;
Maxime Perrotin's avatar
Maxime Perrotin committed
37
                            Coverage      : Integer);
Maxime Perrotin's avatar
Maxime Perrotin committed
38

39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
   procedure C_New_Processor (Name           : char_array;
                              Classifier     : char_array;
                              Platform       : char_array;
                              EnvVars        : char_array;
                              CFflags        : char_array;
                              LdFlags        : char_array);

   procedure C_New_Bus (Name           : char_array;
                        Classifier     : char_array);

   procedure C_New_Device (Name                         : char_array;
                           Classifier                   : char_array;
                           Associated_Processor         : char_array;
                           Configuration                : char_array;
                           Accessed_Bus                 : char_array;
                           Access_Port                  : char_array;
                           Asn1_Filename                : char_array;
                           Asn1_Typename                : char_array;
                           Asn1_Modulename              : char_array);

   procedure C_New_Connection (Src_System          : char_array;
                               Src_Port            : char_array;
                               Bus                 : char_array;
                               Dst_System          : char_array;
                               Dst_Port            : char_array);

   procedure C_Add_Binding (Arg : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
66 67 68 69 70
   procedure C_End_Process;
   procedure C_End_Bus;
   procedure C_End_Device;
   procedure C_End_Connection;
   procedure C_Add_In_Param
71 72 73 74
     (name     : char_array;
      partype  : char_array;
      module   : char_array;
      filename : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
75
   procedure C_Add_Out_Param
76 77 78 79 80
     (name     : char_array;
      partype  : char_array;
      module   : char_array;
      filename : char_array);
   procedure C_Add_Package (Name : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
81 82
   procedure C_Set_Compute_Time
     (Lower_Bound    : Unsigned_Long_Long;
83
      Lower_Unit     : char_array;
Maxime Perrotin's avatar
Maxime Perrotin committed
84
      Upper_Bound    : Unsigned_Long_Long;
85
      Upper_Unit     : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
86
   procedure C_Set_Context_Variable
87 88 89 90 91 92
     (varName : char_array;
      varType : char_array;
      varVal  : char_array;
      varMod  : char_array;
      varFile : char_array;
      fullName : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
93 94 95 96
   procedure C_Set_Period (Period : Unsigned_Long_Long);
   procedure C_Set_Interface_Queue_Size (Size : Unsigned_Long_Long);
   procedure C_Set_Glue;
   procedure C_Set_SMP2;
97 98 99
   procedure C_Set_Interfaceview (Name : char_array);
   procedure C_Set_Dataview (Name : char_array);
   procedure C_Set_Zipfile (Name : char_array);
Maxime Perrotin's avatar
Maxime Perrotin committed
100 101 102 103 104 105 106 107 108 109 110 111 112
   procedure C_Set_Gateway;
   procedure C_Keep_case;
   procedure C_Set_Test;
   procedure C_Set_Future;
   procedure C_Set_OnlyCV;
   procedure C_Set_AADLV2;
   procedure C_Set_Language_To_SDL;
   procedure C_Set_Language_To_Simulink;
   procedure C_Set_Language_To_Other;
   procedure C_Set_Language_To_C;
   procedure C_Set_Language_To_QGenAda;
   procedure C_Set_Language_To_QGenC;
   procedure C_Set_Language_To_CPP;
113
   procedure C_Set_Language_To_VDM;
Maxime Perrotin's avatar
Maxime Perrotin committed
114 115 116 117 118 119 120
   procedure C_Set_Language_To_OpenGEODE;
   procedure C_Set_Language_To_BlackBox_Device;
   procedure C_Set_Language_To_RTDS;
   procedure C_Set_Language_To_Rhapsody;
   procedure C_Set_Language_To_Scade;
   procedure C_Set_Language_To_Ada;
   procedure C_Set_Language_To_GUI;
121
   procedure C_Set_Language_To_VHDL_BRAVE;
Maxime Perrotin's avatar
Maxime Perrotin committed
122 123
   procedure C_Set_Language_To_VHDL;
   procedure C_Set_Language_To_System_C;
124
   procedure C_Set_Language_To_MicroPython;
Maxime Perrotin's avatar
Maxime Perrotin committed
125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153
   procedure C_Set_Native_Encoding;
   procedure C_Set_UPER_Encoding;
   procedure C_Set_ACN_Encoding;
   procedure C_Set_Sync_IF;
   procedure C_Set_ASync_IF;
   procedure C_Set_Unknown_IF;
   procedure C_Set_Cyclic_IF;
   procedure C_Set_Sporadic_IF;
   procedure C_Set_Variator_IF;
   procedure C_Set_Protected_IF;
   procedure C_Set_Unprotected_IF;
   procedure C_Set_UndefinedKind_IF;
   procedure C_Init;
   procedure C_End;
   procedure C_Set_ASN1_BasicType_Sequence;
   procedure C_Set_ASN1_BasicType_SequenceOf;
   procedure C_Set_ASN1_BasicType_Enumerated;
   procedure C_Set_ASN1_BasicType_Set;
   procedure C_Set_ASN1_BasicType_SetOf;
   procedure C_Set_ASN1_BasicType_Integer;
   procedure C_Set_ASN1_BasicType_Boolean;
   procedure C_Set_ASN1_BasicType_Real;
   procedure C_Set_ASN1_BasicType_Choice;
   procedure C_Set_ASN1_BasicType_String;
   procedure C_Set_ASN1_BasicType_Unknown;
   procedure C_Set_ASN1_BasicType_OctetString;
   procedure C_Set_Debug_Messages;
   procedure C_New_Drivers_Section;
   procedure C_End_Drivers_Section;
154
   procedure C_Set_Instance_Of (Component : char_array);
155
   procedure C_Set_Is_Component_Type;
Maxime Perrotin's avatar
Maxime Perrotin committed
156 157

private
158 159
   pragma Import (C, C_Set_Instance_Of, "Set_Instance_Of");
   pragma Import (C, C_Set_Is_Component_Type, "Set_Is_Component_Type");
Maxime Perrotin's avatar
Maxime Perrotin committed
160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179
   pragma Import (C, C_New_Drivers_Section, "New_Drivers_Section");
   pragma Import (C, C_End_Drivers_Section, "End_Drivers_Section");
   pragma Import (C, C_Set_PolyORBHI_C, "Set_PolyorbHI_C");
   pragma Import (C, C_Set_Root_Node, "Set_Root_Node");
   pragma Import (C, C_New_Process, "New_Process");
   pragma Import (C, C_New_Connection, "New_Connection");
   pragma Import (C, C_New_Processor, "New_Processor");
   pragma Import (C, C_New_Bus, "New_Bus");
   pragma Import (C, C_New_Device, "New_Device");
   pragma Import (C, C_Add_Binding, "Add_Binding");
   pragma Import (C, C_End_Process, "End_Process");
   pragma Import (C, C_End_Bus, "End_Bus");
   pragma Import (C, C_End_Device, "End_Device");
   pragma Import (C, C_End_Connection, "End_Connection");
   pragma Import (C, C_Init, "C_Init");
   pragma Import (C, C_End, "C_End");
   pragma Import (C, C_Set_OutDir, "Set_OutDir");
   pragma Import (C, C_Set_Interfaceview, "Set_Interfaceview");
   pragma Import (C, C_Set_Dataview, "Set_Dataview");
   pragma Import (C, C_Set_Stack, "Set_Stack");
180
   pragma Import (C, C_Set_Timer_Resolution, "Set_Timer_Resolution");
Maxime Perrotin's avatar
Maxime Perrotin committed
181 182 183 184
   pragma Import (C, C_New_APLC, "New_APLC");
   pragma Import (C, C_New_FV, "New_FV");
   pragma Import (C, C_Add_PI, "Add_PI");
   pragma Import (C, C_Add_RI, "Add_RI");
185
   pragma Import (C, C_Set_Property, "Set_Property");
Maxime Perrotin's avatar
Maxime Perrotin committed
186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203
   pragma Import (C, C_Set_Distant_APLC, "Set_Distant_APLC");
   pragma Import (C, C_End_IF, "End_IF");
   pragma Import (C, C_End_FV, "End_FV");
   pragma Import (C, C_Add_In_Param, "Add_In_Param");
   pragma Import (C, C_Add_Out_Param, "Add_Out_Param");
   pragma Import (C, C_Set_Glue, "Set_Glue");
   pragma Import (C, C_Set_SMP2, "Set_SMP2");
   pragma Import (C, C_Set_Gateway, "Set_Gateway");
   pragma Import (C, C_Keep_case, "Set_keep_case");
   pragma Import (C, C_Set_Test, "Set_Test");
   pragma Import (C, C_Set_Future, "Set_Future");
   pragma Import (C, C_Set_OnlyCV, "Set_OnlyCV");
   pragma Import (C, C_Set_AADLV2, "Set_AADLV2");
   pragma Import (C, C_Set_Language_To_SDL, "Set_Language_To_SDL");
   pragma Import (C, C_Set_Language_To_Simulink, "Set_Language_To_Simulink");
   pragma Import (C, C_Set_Language_To_Other, "Set_Language_To_Other");
   pragma Import (C, C_Set_Language_To_C, "Set_Language_To_C");
   pragma Import (C, C_Set_Language_To_CPP, "Set_Language_To_CPP");
204 205
   pragma Import (C, C_Set_Language_To_VDM, "Set_Language_To_VDM");
   pragma Import (C, C_Set_Language_To_OpenGEODE, "Set_Language_To_SDL");
Maxime Perrotin's avatar
Maxime Perrotin committed
206 207 208 209 210 211 212 213 214
   pragma Import (C, C_Set_Language_To_BlackBox_Device,
     "Set_Language_To_BlackBox_Device");
   pragma Import (C, C_Set_Language_To_RTDS, "Set_Language_To_RTDS");
   pragma Import (C, C_Set_Language_To_Rhapsody, "Set_Language_To_Rhapsody");
   pragma Import (C, C_Set_Language_To_Ada, "Set_Language_To_Ada");
   pragma Import (C, C_Set_Language_To_QGenAda, "Set_Language_To_QGenAda");
   pragma Import (C, C_Set_Language_To_QGenC, "Set_Language_To_QGenC");
   pragma Import (C, C_Set_Language_To_Scade, "Set_Language_To_Scade");
   pragma Import (C, C_Set_Language_To_GUI, "Set_Language_To_GUI");
215 216
   pragma Import (C, C_Set_Language_To_VHDL_BRAVE,
                  "Set_Language_To_VHDL_BRAVE");
Maxime Perrotin's avatar
Maxime Perrotin committed
217 218
   pragma Import (C, C_Set_Language_To_VHDL, "Set_Language_To_VHDL");
   pragma Import (C, C_Set_Language_To_System_C, "Set_Language_To_System_C");
219 220
   pragma Import (C, C_Set_Language_To_MicroPython,
     "Set_Language_To_MicroPython");
Maxime Perrotin's avatar
Maxime Perrotin committed
221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263
   pragma Import (C, C_Set_UPER_Encoding, "Set_UPER_Encoding");
   pragma Import (C, C_Set_ACN_Encoding, "Set_ACN_Encoding");
   pragma Import (C, C_Set_Native_Encoding, "Set_Native_Encoding");
   pragma Import (C, C_Set_Sync_IF, "Set_Sync_IF");
   pragma Import (C, C_Set_ASync_IF, "Set_ASync_IF");
   pragma Import (C, C_Set_Unknown_IF, "Set_Unknown_IF");
   pragma Import (C, C_Set_Cyclic_IF, "Set_Cyclic_IF");
   pragma Import (C, C_Set_Sporadic_IF, "Set_Sporadic_IF");
   pragma Import (C, C_Set_Variator_IF, "Set_Variator_IF");
   pragma Import (C, C_Set_Protected_IF, "Set_Protected_IF");
   pragma Import (C, C_Set_Unprotected_IF, "Set_Unprotected_IF");
   pragma Import (C, C_Set_UndefinedKind_IF, "Set_UndefinedKind_IF");
   pragma Import (C, C_Set_Compute_Time, "Set_Compute_Time");
   pragma Import (C, C_Set_Period, "Set_Period");
   pragma Import (C, C_Set_Interface_Queue_Size, "Set_Interface_Queue_Size");
   pragma Import (C, C_Set_Context_Variable, "Set_Context_Variable");
   pragma Import (C, C_Set_Debug_Messages, "Set_Debug_Messages");
   pragma Import (C, C_Set_Zipfile, "Set_Zipfile");
   pragma Import (C, C_Set_ASN1_BasicType_Sequence,
                  "Set_ASN1_BasicType_Sequence");
   pragma Import (C, C_Set_ASN1_BasicType_SequenceOf,
                  "Set_ASN1_BasicType_SequenceOf");
   pragma Import (C, C_Set_ASN1_BasicType_Enumerated,
                  "Set_ASN1_BasicType_Enumerated");
   pragma Import (C, C_Set_ASN1_BasicType_Set,
                  "Set_ASN1_BasicType_Set");
   pragma Import (C, C_Set_ASN1_BasicType_SetOf,
                  "Set_ASN1_BasicType_SetOf");
   pragma Import (C, C_Set_ASN1_BasicType_Integer,
                  "Set_ASN1_BasicType_Integer");
   pragma Import (C, C_Set_ASN1_BasicType_Boolean,
                  "Set_ASN1_BasicType_Boolean");
   pragma Import (C, C_Add_Package,
                  "Add_Package");
   pragma Import (C, C_Set_ASN1_BasicType_Real, "Set_ASN1_BasicType_Real");
   pragma Import (C, C_Set_ASN1_BasicType_Choice, "Set_ASN1_BasicType_Choice");
   pragma Import (C, C_Set_ASN1_BasicType_String, "Set_ASN1_BasicType_String");
   pragma Import (C, C_Set_ASN1_BasicType_Unknown,
                  "Set_ASN1_BasicType_Unknown");
   pragma Import (C, C_Set_ASN1_BasicType_OctetString,
                  "Set_ASN1_BasicType_OctetString");

end Imported_Routines;