imported_routines.ads 13.9 KB
Newer Older
Maxime Perrotin's avatar
Maxime Perrotin committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
--  *************************** buildsupport ****************************  --
--  (c) 2015 European Space Agency - maxime.perrotin@esa.int
--  LGPL license, see LICENSE file

with Types; use Types;

package Imported_Routines is

   procedure C_Set_OutDir (Dir : String; Len : Integer);
   procedure C_Set_Stack  (Val : String; Len : Integer);
   procedure C_New_APLC   (Arg : String; Len : Integer);
   procedure C_New_FV     (Arg : String; Len : Integer; CS : String);

   procedure C_Set_PolyORBHI_C;

   procedure C_Add_PI (Arg : String;
                       Len : Integer);

   procedure C_Add_RI (Arg : String;
                       Len : Integer;
                       DistFV : String;
                       DLen : Integer;
                       DistName : String;
                       DistNameLen : Integer);

   procedure C_Set_Distant_APLC (Arg : String; Len : Integer);
   procedure C_End_IF;
   procedure C_End_FV;

   procedure C_Set_Root_Node (Arg : String; Len : Integer);

   procedure C_New_Process (Arg           : String;
                            Len           : Integer;
                            Id            : String;
                            LenId         : Integer;
                            Node_Name     : String;
Maxime Perrotin's avatar
Maxime Perrotin committed
37 38
                            Len_Node      : Integer;
                            Coverage      : Integer);
Maxime Perrotin's avatar
Maxime Perrotin committed
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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 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

   procedure C_New_Processor (Name           : String;
                              Name_Len       : Integer;
                              Classifier     : String;
                              Classifier_Len : Integer;
                              Platform       : String;
                              Platform_Len   : Integer);

   procedure C_New_Bus (Name           : String;
                        Name_Len       : Integer;
                        Classifier     : String;
                        Classifier_Len : Integer);

   procedure C_New_Device (Name                         : String;
                           Name_Len                     : Integer;
                           Classifier                   : String;
                           Classifier_Len               : Integer;
                           Associated_Processor         : String;
                           Associated_Processor_Len     : Integer;
                           Configuration                : String;
                           Configuration_Len            : Integer;
                           Accessed_Bus                 : String;
                           Accessed_Bus_Len             : Integer;
                           Access_Port                  : String;
                           Access_Port_Len              : Integer;
                           Asn1_Filename                : String;
                           Asn1_Filename_Len            : Integer;
                           Asn1_Typename                : String;
                           Asn1_Typename_Len            : Integer;
                           Asn1_Modulename              : String;
                           Asn1_Modulename_Len          : Integer);

   procedure C_New_Connection (Src_System          : String;
                               Src_System_Length   : Integer;
                               Src_Port            : String;
                               Src_Port_Length     : Integer;
                               Bus                 : String;
                               Bus_Length          : Integer;
                               Dst_System          : String;
                               Dst_System_Length   : Integer;
                               Dst_Port            : String;
                               Dst_Port_Length     : Integer);

   procedure C_Add_Binding (Arg : String; Len : Integer);
   procedure C_End_Process;
   procedure C_End_Bus;
   procedure C_End_Device;
   procedure C_End_Connection;
   procedure C_Add_In_Param
     (name     : String;
      Len1     : Integer;
      partype  : String;
      Len2     : Integer;
      module   : String;
      Len3     : Integer;
      filename : String;
      Len4     : Integer);
   procedure C_Add_Out_Param
     (name     : String;
      Len1     : Integer;
      partype  : String;
      Len2     : Integer;
      module   : String;
      Len3     : Integer;
      filename : String;
      Len4     : Integer);
   procedure C_Add_Package
     (Name    : String;
      Len     : Integer);
   procedure C_Set_Compute_Time
     (Lower_Bound    : Unsigned_Long_Long;
      Lower_Unit     : String;
      Len2           : Integer;
      Upper_Bound    : Unsigned_Long_Long;
      Upper_Unit     : String;
      Len4           : Integer);
   procedure C_Set_Context_Variable
     (varName : String;
      nameLen : Integer;
      varType : String;
      typeLen : Integer;
      varVal  : String;
      valLen  : Integer;
      varMod  : String;
      modLen  : Integer;
      varFile : String;
      fileLen : Integer;
      fullName : String);
   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;
   procedure C_Set_Interfaceview
     (name : String;
      len  : Integer);
   procedure C_Set_Dataview
     (name : String;
      len  : Integer);
   procedure C_Set_Zipfile
      (name : String;
       len  : Integer);
   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;
153
   procedure C_Set_Language_To_VDM;
Maxime Perrotin's avatar
Maxime Perrotin committed
154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235
   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;
   procedure C_Set_Language_To_VHDL;
   procedure C_Set_Language_To_System_C;
   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;

private
   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");
   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");
   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");
236 237
   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
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 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311
   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");
   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");
   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");

   pragma Linker_Options ("c_backend.o");
   pragma Linker_Options ("sdl_gateway.o");
   pragma Linker_Options ("build_sdl_glue.o");
   pragma Linker_Options ("simulink_gateway.o");
   pragma Linker_Options ("concurrency_view.o");
   pragma Linker_Options ("vertical_transformation.o");
   pragma Linker_Options ("practical_functions.o");
   pragma Linker_Options ("build_c_glue.o");
   pragma Linker_Options ("build_gui_glue.o");
   pragma Linker_Options ("ada_wrappers_backend.o");
   pragma Linker_Options ("c_wrappers_backend.o");
   pragma Linker_Options ("build_c_skeletons.o");
   pragma Linker_Options ("build_ada_skeletons.o");
   pragma Linker_Options ("preprocessing_backend.o");
   pragma Linker_Options ("semantic_checks.o");
   pragma Linker_Options ("build_rtds_glue.o");
   pragma Linker_Options ("c_ast_construction.o");
   pragma Linker_Options ("build_protected_glue.o");
   pragma Linker_Options ("build_script.o");
   pragma Linker_Options ("system_config.o");
   pragma Linker_Options ("build_scade_skeletons.o");
Maxime Perrotin's avatar
Maxime Perrotin committed
312
   pragma Linker_Options ("build_vdm_skeletons.o");
Maxime Perrotin's avatar
Maxime Perrotin committed
313
   pragma Linker_Options ("build_vhdl_skeletons.o");
Maxime Perrotin's avatar
Maxime Perrotin committed
314 315 316 317 318 319 320 321 322
   pragma Linker_Options ("build_rtds_skeletons.o");
   pragma Linker_Options ("build_driver_skeletons.o");
   pragma Linker_Options ("asn2datamodel.o");
   pragma Linker_Options ("context_parameters.o");
   pragma Linker_Options ("aadl_cv_unparser.o");
   pragma Linker_Options ("driver_configuration.o");
   pragma Linker_Options ("taste_directives.o");
   pragma Linker_Options ("python_ast_backend.o");
end Imported_Routines;