1. --  (c) Copyright, Real-Time Innovations 2018 
  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.  
  10. --  <internal> 
  11. --  The default implementation for these methods does almost nothing and 
  12. --  returns the unsupported error code by default, signaling the type does not 
  13. --  support zero copy operations. 
  14. -- 
  15. --  For actual zero copy types, the generated type support code will define 
  16. --  and implement a subclass of DDS.MetpTypeSupport.Unsupported overriding 
  17. --  these methods and using the real METP routines from the C library. This 
  18. --  subclass will be used as part of the type traits. 
  19. --  </internal> 
  20.  
  21. with System; 
  22.  
  23. package DDS.MetpTypeSupport is 
  24.  
  25.    type Unsupported is tagged private; 
  26.  
  27.    function Metp_Supported (This : Unsupported) return Standard.Boolean; 
  28.  
  29.    function DataWriter_Create_Metp_Data 
  30.      (This            : Unsupported; 
  31.       Writer          : System.Address; 
  32.       Sample          : out System.Address; 
  33.       Initialize_Data : out Standard.Boolean) return DDS.ReturnCode_T; 
  34.  
  35.    function DataWriter_Delete_Metp_Data 
  36.      (This   : Unsupported; 
  37.       Writer : System.Address; 
  38.       Sample : System.Address) return DDS.ReturnCode_T; 
  39.  
  40.    function DataWriter_Is_Metp_Writer 
  41.      (This   : Unsupported; 
  42.       Writer : System.Address) return Standard.Boolean; 
  43.  
  44.    function DataWriter_Write_Metp_Data 
  45.      (This     : Unsupported; 
  46.       Writer   : System.Address; 
  47.       Sample   : System.Address; 
  48.       Handle   : DDS.InstanceHandle_T_Access; 
  49.       W_Params : DDS.WriteParams_T_Access) return DDS.ReturnCode_T; 
  50.  
  51.    function DataReader_Is_Metp_Data_Consistent 
  52.      (This        : Unsupported; 
  53.       Reader      : System.Address; 
  54.       Sample      : System.Address; 
  55.       Sample_Info : DDS.SampleInfo_Access; 
  56.       Consistent  : out Standard.Boolean) return DDS.ReturnCode_T; 
  57.  
  58. private 
  59.  
  60.    type Unsupported is tagged null record; 
  61.  
  62. end DDS.MetpTypeSupport;