1 files changed, 0 insertions, 141 deletions
diff --git a/TAO/utils/nslist/nslist.cpp b/TAO/utils/nslist/nslist.cpp
deleted file mode 100644
index 5c910a23ece..00000000000
--- a/TAO/utils/nslist/nslist.cpp
+++ /dev/null
@@ -1,141 +0,0 @@
-// $Id$
-
-// ============================================================================
-//
-// = LIBRARY
-//    utils
-//
-// = FILENAME
-//    nslist.cpp
-//
-// = DESCRIPTION
-//    Naming Service listing utility
-//
-// = AUTHOR
-//     Written 1999-06-03 by Thomas Lockhart, NASA/JPL <Thomas.Lockhart@jpl.nasa.gov>
-//
-// ============================================================================
-
-#include "tao/TAO.h"
-#include "orbsvcs/CosNamingC.h"
-
-static void list_context (CosNaming::NamingContext_ptr nc, int level);
-
-// Display NS entries from a finite list.
-
-static void
-show_chunk (CosNaming::NamingContext_ptr nc,
-            const CosNaming::BindingList &bl,
-            int level)
-{
-  for (CORBA::ULong i = 0;
-       i < bl.length ();
-       i++)
-    {
-      ACE_DEBUG ((LM_DEBUG,
-                  "%*s%s",
-                  2 * level,
-                  "",
-                  bl[i].binding_name[0].id.in ()));
-
-      if (ACE_OS::strlen(bl[i].binding_name[0].kind) > 0)
-        ACE_DEBUG ((LM_DEBUG,
-                    "(%s)",
-                    bl[i].binding_name[0].kind.in ()));
-
-      // If this is a context node, follow it down to the next
-      // level...
-      if (bl[i].binding_type == CosNaming::ncontext)
-        {
-          ACE_DEBUG ((LM_DEBUG,
-                      ": context\n"));
-
-          CosNaming::Name Name;
-          Name.length (1);
-          Name[0].id =
-            CORBA::string_dup (bl[i].binding_name[0].id);
-
-          CORBA::Object_var obj = nc->resolve (Name);
-
-          CosNaming::NamingContext_var xc =
-            CosNaming::NamingContext::_narrow (obj);
-          list_context (xc, level + 1);
-        }
-      // Mark this node as a reference
-      else
-        // The next version should resolve and show the IOR...
-        ACE_DEBUG ((LM_DEBUG,
-                    ": reference\n"));
-    }
-}
-
-static void
-list_context (CosNaming::NamingContext_ptr nc,
-              int level)
-{
-  CosNaming::BindingIterator_var it;
-  CosNaming::BindingList_var bl;
-  const CORBA::ULong CHUNK = 100;
-
-  nc->list (CHUNK, bl, it);
-  show_chunk (nc, bl, level);
-
-  if (!CORBA::is_nil (it.in ()))
-    {
-      CORBA::Boolean more;
-
-      do
-        {
-          more = it->next_n (CHUNK, bl);
-          show_chunk (nc, bl, level);
-        }
-      while (more);
-
-      it->destroy();
-    }
-}
-
-int
-main (int argc, char *argv[])
-{
-  ACE_DECLARE_NEW_CORBA_ENV;
-
-  ACE_TRY
-    {
-      CORBA::ORB_var orb =
-        CORBA::ORB_init (argc, argv);
-
-      CORBA::Object_var obj;
-      obj = orb->resolve_initial_references ("NameService");
-      ACE_TRY_CHECK;
-
-      CosNaming::NamingContext_var root_nc =
-        CosNaming::NamingContext::_narrow (obj);
-      ACE_TRY_CHECK;
-
-      CORBA::String_var str =
-        orb->object_to_string (root_nc.in (),
-                               ACE_TRY_ENV);
-      ACE_TRY_CHECK;
-
-      if (CORBA::is_nil (obj))
-        ACE_ERROR_RETURN ((LM_ERROR,
-                           "Naming Service not found"),
-                          -1);
-
-      ACE_DEBUG ((LM_DEBUG,
-                  "Naming Service: <%s> ---------\n",
-                  str.in ()));
-
-      list_context (root_nc, 1);
-    }
-  ACE_CATCHANY
-    {
-      ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
-                           "Exception in nslist");
-      return -1;
-    }
-  ACE_ENDTRY;
-
-  return 0;
-}