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