1. pragma Ada_2012; 
  2. with DDS.TypeCodeFactory; 
  3. with RTIDDS.Low_Level.ndds_dds_c_dds_c_typecode_h; 
  4. package DDS.TypeCodeFactory_Impl is 
  5.  
  6.    use DDS.TypeCodeFactory; 
  7.    use RTIDDS.Low_Level.ndds_dds_c_dds_c_typecode_h; 
  8.  
  9.    type Ref is new  DDS.TypeCodeFactory.Ref with record 
  10.       Impl : access DDS_TypeCodeFactory; 
  11.    end record; 
  12.  
  13.    function Create_Alias_Tc 
  14.      (This             : not null access Ref; 
  15.       Name             : in String; 
  16.       Original_Type    : in TypeCode; 
  17.       Is_Pointer       : in Boolean) return TypeCode; 
  18.  
  19.    function Create_Array_Tc 
  20.      (This  : not null access Ref; 
  21.       Ai    :  in Long_Array; 
  22.       Tc    :  in TypeCode) return TypeCode; 
  23.    function Create_Enum_Tc 
  24.      (This         : not null access Ref; 
  25.       Name         :  in String; 
  26.       Aenummember  :  in EnumMember) return TypeCode; 
  27.  
  28.    function Create_Sequence_Tc 
  29.      (This  : not null access Ref; 
  30.       I     :  in Long; 
  31.       Tc    :  in TypeCode) return TypeCode; 
  32.  
  33.    function Create_Sparse_Tc 
  34.      (This   : not null access Ref; 
  35.       Name   :  in String; 
  36.       Word0  :  in Short; 
  37.       Tc     :  in TypeCode) return TypeCode; 
  38.  
  39.    function Create_String_Tc 
  40.      (This : not null access Ref; 
  41.       I    :  in Long) return TypeCode; 
  42.  
  43.    function Create_Struct_Tc 
  44.      (This           : not null access Ref; 
  45.       Name           :  in String; 
  46.       Astructmember  :  in StructMember) return TypeCode; 
  47.    function Create_Tc_From_Stream 
  48.      (This        : not null access Ref; 
  49.       Inputstream :  in CdrInputStream) return TypeCode; 
  50.    function Create_Union_Tc 
  51.      (This         : not null access Ref; 
  52.       Name         :  in String; 
  53.       Tc           :  in TypeCode; 
  54.       I            :  in Long; 
  55.       Aunionmember :  in UnionMember) return TypeCode; 
  56.    function Create_Value_Tc 
  57.      (This          : not null access Ref; 
  58.       Name          :  in String; 
  59.       Word0         :  in Short; 
  60.       Tc            :  in TypeCode; 
  61.       Avaluemember  :  in ValueMember) return TypeCode; 
  62.  
  63.    function Create_Wstring_Tc 
  64.      (This : not null access Ref; 
  65.       I    :  in Long) return TypeCode; 
  66.  
  67.    function Get_Primitive_Tc 
  68.      (This  : not null access Ref; 
  69.       Kind  :  in TCKind) return TypeCode; 
  70.  
  71.    function Get_Instance return Ref_Access; 
  72.  
  73. end DDS.TypeCodeFactory_Impl;