separate (RPC)

procedure RPC_NS_Entry_Expand_Name(
  Entry_Name_Syntax : in     DCE_Base.NS_Syntax_Type;
  Entry_Name        : in     NS_Entry_Name_Type;
  Expanded_Name     :    out NS_Expanded_Name_Type;
  Status            :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  use C_String_Pkg; -- /// Direct visibility to the "/=" operator

  procedure rpc_ns_entry_expand_name(
              entry_name_syntax : DCE_Base.NS_Syntax_Type;
              entry_name        : NS_Expanded_Name_Type;
              expanded_name     : System.Address;
              status            : System.Address);
  pragma INTERFACE (C, rpc_ns_entry_expand_name);

  Local_CStr   : C_String_Pkg.C_String;
  Local_Status : DCE_Status.Status_Type;
  Length       : natural := 0;

begin
  rpc_ns_entry_expand_name(Entry_Name_Syntax,
                           Entry_Name,
                           Local_CStr'ADDRESS,
                           Local_Status'ADDRESS);
  Status := Local_Status;
  if (Local_CStr /= NULL) then
    C_String_Pkg.C_to_Ada_String(Local_CStr, string(Expanded_Name), FALSE);
    RPC_String_Free(Local_CStr'ADDRESS, Local_Status);
  end if;
end RPC_NS_Entry_Expand_Name;