1. pragma Ada_2012; 
  2. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 
  3. --  All rights reserved. 
  4. -- 
  5. --  No duplications, whole or partial, manual or electronic, may be made 
  6. --  without express written permission.  Any such copies, or 
  7. --  revisions thereof, must display this notice unaltered. 
  8. --  This code contains trade secrets of Real-Time Innovations, Inc. 
  9.  
  10.  
  11.  
  12. --  <module name="DDSTypeCodeModule" actualName="Type Code Support">typecode</module> 
  13. --  <dref>TypeCodeFactory</dref> 
  14. package DDS.TypeCodeFactory is 
  15.  
  16.    --  Just a stub to be compleated. 
  17.    -- 
  18.    type Ref is interface; 
  19.    type Ref_Access is access all Ref'Class; 
  20.    type StructMember is new Integer; 
  21.    type EnumMember is new Integer; 
  22.    type ValueMember is new Integer; 
  23.    type UnionMember is new Integer; 
  24.    type CdrInputStream is new Integer; 
  25.    type TCKind is new Integer; 
  26.  
  27.    function Get_Instance return Ref_Access; 
  28.  
  29.    function Create_Alias_Tc (This     : not null access Ref; 
  30.                              S        :  in String; 
  31.                              Tc       :  in TypeCode; 
  32.                              Flag     :  in Boolean) return TypeCode is abstract; 
  33.    --  <dref>TypeCodeFactory_create_alias_tc</dref> 
  34.  
  35.    function Create_Array_Tc (This     : not null access Ref; 
  36.                              Ai       :  in Long_Array; 
  37.                              Tc       :  in TypeCode) return TypeCode is abstract; 
  38.    --  <dref>TypeCodeFactory_create_array_tc</dref> 
  39.  
  40.    function Create_Enum_Tc (This        : not null access Ref; 
  41.                             S           :  in String; 
  42.                             Aenummember :  in EnumMember) return TypeCode is abstract; 
  43.    --  <dref>TypeCodeFactory_create_enum_tc</dref> 
  44.  
  45.    function Create_Sequence_Tc (This    : not null access Ref; I :  in Long; 
  46.                                 Tc      :  in TypeCode) return TypeCode is abstract; 
  47.    --  <dref>TypeCodeFactory_create_sequence_tc</dref> 
  48.  
  49.    function Create_Sparse_Tc (This     : not null access Ref; 
  50.                               S        :  in String; 
  51.                               Word0    :  in Short; 
  52.                               Tc       :  in TypeCode) return TypeCode is abstract; 
  53.    --  <dref>TypeCodeFactory_create_sparse_tc</dref> 
  54.  
  55.    function Create_String_Tc (This : not null access Ref; 
  56.                               I    :  in Long) 
  57.                               return TypeCode is abstract; 
  58.    --  <dref>TypeCodeFactory_create_string_tc</dref> 
  59.  
  60.    function Create_Struct_Tc (This          : not null access Ref; 
  61.                               S             :  in String; 
  62.                               Astructmember :  in StructMember) return TypeCode is abstract; 
  63.    --  <dref>TypeCodeFactory_create_struct_tc</dref> 
  64.  
  65.    function Create_Tc_From_Stream (This : not null access Ref; Inputstream :  in CdrInputStream) return TypeCode is abstract; 
  66.  
  67.    function Create_Union_Tc (This         : not null access Ref; S :  in String; 
  68.                              Tc           :  in TypeCode; 
  69.                              I            :  in Long; 
  70.                              Aunionmember :  in UnionMember) return TypeCode is abstract; 
  71.    --  <dref>TypeCodeFactory_create_union_tc</dref> 
  72.  
  73.    function Create_Value_Tc (This         : not null access Ref; 
  74.                              S            :  in String; 
  75.                              Word0        :  in Short; 
  76.                              Tc           :  in TypeCode; 
  77.                              Avaluemember :  in ValueMember) return TypeCode is abstract; 
  78.    --  <dref>TypeCodeFactory_create_value_tc</dref> 
  79.  
  80.    function Create_Wstring_Tc (This : not null access Ref; I :  in Long) return TypeCode is abstract; 
  81.    --  <dref>TypeCodeFactory_create_wstring_tc</dref> 
  82.  
  83.    function Get_Primitive_Tc (This   : not null access Ref; 
  84.                               Kind   :  in TCKind) return TypeCode is abstract; 
  85.    --  <dref>TypeCodeFactory_get_primitive_tc</dref> 
  86.  
  87.  
  88. end DDS.TypeCodeFactory;