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