separate (RPC)

procedure UUID_Display(UUID : in UUID_Type) is
-- ****************************************************************************

  Ctr : natural := 0;

begin
  Text_IO.Put_Line("Time = Low: " &
                   DCE_Base.unsigned32'IMAGE(UUID.time_low) &
                   "  Mid: " &
                   DCE_Base.unsigned16'IMAGE(UUID.time_mid) &
                   "  Hi&Ver: " &
                   DCE_Base.unsigned16'IMAGE(UUID.time_hi_and_version));
  Text_IO.Put_Line("Clock = SeqHi&Rsrv: " &
                   DCE_Base.unsigned8'IMAGE(UUID.clock_seq_hi_and_reserved) &
                   "  SeqLow: " &
                   DCE_Base.unsigned8'IMAGE(UUID.clock_seq_low));
  Text_IO.Put("Nodes:");
  for Ctr in 1 .. Max_Node_Count
  loop
    Text_IO.Put(" " & IDL_Byte'IMAGE(UUID.Node(Ctr)));
  end loop;
  Text_IO.New_Line;
end UUID_Display;


separate (RPC)

procedure UUID_Display_String(
  UUID_String : in UUID_String_Type;
  Line_Feed   : in boolean := TRUE) is
-- ****************************************************************************
begin
  if Line_Feed then
    Text_IO.Put_Line(string(UUID_String));
  else
    Text_IO.Put(string(UUID_String));
  end if;
end UUID_Display_String;