1. --   (c) Copyright, Real-Time Innovations, 2025. 
  2. --   All rights reserved. 
  3. --   No duplications, whole or partial, manual or electronic, may be made 
  4. --   without express written permission.  Any such copies, or 
  5. --   revisions thereof, must display this notice unaltered. 
  6. --   This code contains trade secrets of Real-Time Innovations, Inc. 
  7.  
  8.  
  9. with RTIDDS.Low_Level.ndds_pres_pres_participant_h; 
  10. with RTIDDS.Low_Level.ndds_mig_mig_rtps_h; 
  11. with RTIDDS.Low_Level.ndds_osapi_osapi_rtpsGuid_h; 
  12.  
  13. package RTIDDS.c_macros is 
  14.    use RTIDDS.Low_Level.ndds_pres_pres_participant_h; 
  15.  
  16.    procedure MIGRtpsKeyHash_fromGuid (keyHash : access RTIDDS.Low_Level.ndds_mig_mig_rtps_h.MIGRtpsKeyHash; 
  17.                                       guid    : access constant RTIDDS.Low_Level.ndds_osapi_osapi_rtpsGuid_h.RTIOsapiRtpsGuid)  -- ndds/mig/mig_rtps.h:458 
  18.         with Export => True, 
  19.      Convention     => C, 
  20.      External_Name  => "MIGRtpsKeyHash_fromGuid"; 
  21.    procedure PRESInstanceHandle_fromGuid (me   : access PRESInstanceHandle; 
  22.                                           guid : access constant RTIDDS.Low_Level.ndds_osapi_osapi_rtpsGuid_h.RTIOsapiRtpsGuid)  -- ndds/pres/pres_participant.h:1921 
  23.         with Export => True, 
  24.      Convention     => C, 
  25.      External_Name  => "PRESInstanceHandle_fromGuid"; 
  26. end RTIDDS.c_macros;