separate (RPC)

procedure UUID_From_String
  (
  UUID_String      : in     UUID_String_Type;
  UUID             :    out UUID_Type;
  Status           :    out DCE_Status.Status_Type;
  Use_NULL_String  : in     boolean := FALSE
  ) is
-- ****************************************************************************

  procedure uuid_from_string(
    uuid_str : System.Address;
    uuid     : System.Address;
    status   : System.Address);
  pragma INTERFACE (C, uuid_from_string);

  Local_Str    : UUID_String_Type := UUID_String;
  Local_UUID   : UUID_Type;
  Local_Status : DCE_Status.Status_Type;
 
begin
  if Use_NULL_String then
    Local_Str := (others => Ascii.NUL);
  end if;

  uuid_from_string(Local_Str'ADDRESS, Local_UUID'ADDRESS, Local_Status'ADDRESS);

  UUID   := Local_UUID;
  Status := Local_Status;
end UUID_From_String;