summaryrefslogtreecommitdiff
path: root/TAO/tao/debug.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tao/debug.cpp')
-rw-r--r--TAO/tao/debug.cpp371
1 files changed, 0 insertions, 371 deletions
diff --git a/TAO/tao/debug.cpp b/TAO/tao/debug.cpp
deleted file mode 100644
index 0dd77a56140..00000000000
--- a/TAO/tao/debug.cpp
+++ /dev/null
@@ -1,371 +0,0 @@
-// $Id$
-// @ (#)debug.cpp 1.3 95/10/02
-
-// Copyright 1994-1995 by Sun Microsystems Inc.
-// All Rights Reserved
-//
-// ORB: Simple debug/trace support
-//
-// THREADING NOTE: the global values here (debug_{level,filter,stream)
-// are assumed to be modified "safely", e.g. in the main thread as
-// part of process initialization. They are treated as immutable
-// values through all of this debuging package.
-//
-// XXX on Windows, make it always use OutputDebugString () instead of stdio.
-
-#include "tao/corba.h"
-
-ACE_RCSID(tao, debug, "$Id$")
-
-#if !defined (ACE_HAS_PTHREADS) && !defined (ACE_HAS_DCE_DRAFT4_THREADS)
- // _POSIX_THREAD_SAFE_FUNCTIONS implied
-# define flockfile(f)
-# define funlockfile(f)
-#endif /* ! ACE_HAS_PTHREADS && ! ACE_HAS_DCE_DRAFT4_THREADS */
-
-TAO_Export u_int TAO_debug_level = 0;
-TAO_Export u_int TAO_orbdebug = 0;
-TAO_Export char *TAO_debug_filter = "l";
-
-static FILE *debug_stream = stderr;
-
-// Dummy function to get rid of "'debug_stream' defined but not used"
-// warning.
-
-FILE *
-use_debug_stream_to_get_rid_of_warning (void)
-{
- return debug_stream;
-}
-
-// The rest of this file is not needed without -DDEBUG, and unless the
-// vfprintf () call is available it can't work.
-//
-// NOTE: some older platforms have "_doprnt" that provides much the
-// same functionality ... this could be modified to use that routine
-// where it's available.
-
-#if defined (DEBUG) && defined (HAVE_VPRINTF)
-
-// Support for prefixing debug messages with process ID and, if
-// threaded, the thread ID. This lets messages from different sources
-// be safely disentangled, even though they're interspersed in the
-// output stream.
-static pid_t my_pid;
-
-#if defined (unix) || defined (VXWORKS)
-
-#if defined (ACE_HAS_PTHREADS)
-
-// Use POSIX initialization support to initialize just once.
-
-static pthread_once_t debug_init = PTHREAD_ONCE_INIT;
-
-#define setup() pthread_once (&debug_init, setup_once)
-
-static void
-setup_once ()
-{
- my_pid = ACE_OS::getpid ();
-}
-
-static void
-emit_prefix (FILE *stream)
-{
- pthread_t self = pthread_self ();
-
- ACE_OS::fprintf (stream, "p%ld t%ld: ", (long) my_pid, (long) self);
-}
-
-// !defined (ACE_HAS_PTHREADS)
-#else
-
-// Without threads, guard initialization so it can be repeated,
-// and don't emit the thread ID in the messages.
-
-static void
-setup (void)
-{
- if (my_pid == 0)
- my_pid = ACE_OS::getpid ();
-
-// Any other setup goes here.
-}
-
-#define emit_prefix(stream) fprintf (stream, "p%ld: ", (long) my_pid)
-#endif /* !ACE_HAS_PTHREADS */
-
-#elif defined (_WIN32)
-
-// Not all implementations of Win32 have threads, but in any case this
-// code doesn't yet support Win32 threads.
-
-static void
-setup (void)
-{
- if (my_pid == 0)
- my_pid = GetCurrentProcessId ();
- // Any other setup goes here.
-}
-
-#define emit_prefix(stream) fprintf (stream, "p%ld: ", my_pid)
-
-#else
-# error "unknown OS platform"
-#endif /* OS-specific initialization */
-
-void TAO_Export
-dmsg_filter (const char *categories,
- const char *fmt,
- ...)
-{
- const char *cp = 0;
-
- if (!categories || !TAO_debug_filter)
- return;
- else if (*TAO_debug_filter != '*')
- { // filter with "*" --> all pass
- for (cp = categories; *cp; cp++)
- if (strchr (TAO_debug_filter, *cp) != 0)
- break;
-
- if (!*cp)
- return;
- }
-
- va_list ap;
-
- setup ();
- flockfile (debug_stream);
- emit_prefix (debug_stream);
-
- switch (*cp)
- { // standard categories
- case 'l':
- ACE_OS::fprintf (debug_stream, " (LEAK) ");
- break;
- }
-
- va_start (ap, fmt);
- vfprintf (debug_stream, fmt, ap);
- va_end (ap);
-
- if (strchr (fmt, '\n') == 0)
- ACE_OS::fprintf (debug_stream, "\n");
-
- funlockfile (debug_stream);
-
-#if defined (_WIN32)
- OutputDebugString ("called dmsg_filter\n"); // experimental
-#endif /* _WIN32 */
-}
-
-void TAO_Export
-dmsg_filter (u_int level,
- const char *fmt,
- ...)
-{
- if (level > TAO_debug_level)
- return;
-
- va_list ap;
-
- setup ();
- flockfile (debug_stream);
- emit_prefix (debug_stream);
- va_start (ap, fmt);
- vfprintf (debug_stream, fmt, ap);
- va_end (ap);
- if (strchr (fmt, '\n') == 0)
- ACE_OS::fprintf (debug_stream, "\n");
- funlockfile (debug_stream);
-
-#if defined (_WIN32)
- OutputDebugString ("called dmsg_filter\n"); // experimental
-#endif /* _WIN32 */
-}
-
-void TAO_Export
-dmsg_v (const char *fmt,
- ...)
-{
- va_list ap;
-
- setup ();
- flockfile (debug_stream);
- emit_prefix (debug_stream);
- va_start (ap, fmt);
- vfprintf (debug_stream, fmt, ap);
- va_end (ap);
- if (strchr (fmt, '\n') == 0)
- ACE_OS::fprintf (debug_stream, "\n");
- funlockfile (debug_stream);
-
-#if defined (_WIN32)
- OutputDebugString ("called dmsg_v\n"); // experimental
-#endif /* _WIN32 */
-}
-
-void TAO_Export
-_dmsg_x (CORBA::Environment &env,
- const char *info)
-{
- const CORBA::Exception *ex = env.exception ();
-
- setup ();
- flockfile (debug_stream);
- emit_prefix (debug_stream);
- ACE_OS::fprintf (debug_stream,
- "exception '%s' at '%s'\n",
- ex->_id (),
- info);
-
- if (env.exception_type () == CORBA::SYSTEM_EXCEPTION)
- {
- CORBA::SystemException *sysex = (CORBA::SystemException *) ex;
-
- emit_prefix (debug_stream);
- ACE_OS::fprintf (debug_stream,
- "minor %#lx, completed %#lx\n",
- sysex->minor (),
- (long) sysex->completed ());
- }
- funlockfile (debug_stream);
-
-#if defined (_WIN32)
- OutputDebugString ("called _dmsg_x\n"); // experimental
-#endif /* _WIN32 */
-}
-
-void TAO_Export
-dmsg_opaque (char *label,
- u_char *buffer,
- u_long len)
-{
- setup ();
- flockfile (debug_stream);
- emit_prefix (debug_stream);
- ACE_OS::fprintf (debug_stream,
- "%s ",
- label);
-
- if (len == 0 || !buffer)
- ACE_OS::fprintf (debug_stream,
- " (empty)");
- else if (len > UINT_MAX)
- ACE_OS::fprintf (debug_stream,
- "Oversized opaque data: %ld bytes",
- len);
- else
- {
- u_int i;
-
- for (i = 0; i < len; i++)
- if (!isprint (buffer [i]))
- break;
-
- if (i < len)
- {
- if (len >= 20)
- ACE_OS::fprintf (debug_stream,
- "%ld bytes binary data",
- len);
- else
- {
- ACE_OS::fprintf (debug_stream,
- "binary data {%2X", buffer [0]);
- for (i = 1; i < len; i++)
- ACE_OS::fprintf (debug_stream,
- ", %2x",
- buffer [i]);
- ACE_OS::fprintf (debug_stream,
- "}");
- }
- }
- else
- {
- if (len >= 50)
- ACE_OS::fprintf (debug_stream,
- "%ld bytes string data",
- len);
- else
- ACE_OS::fprintf (debug_stream,
- "string data { \"%.*s\" }",
- (int) len,
- buffer);
- }
- }
- ACE_OS::fprintf (debug_stream,
- "\n");
- funlockfile (debug_stream);
-
-#if defined (_WIN32)
- OutputDebugString ("called dmsg_opaque\n"); // experimental
-#endif /* _WIN32 */
-}
-
-void TAO_Export
-dmsg_opaque_full (char *label,
- const u_char *buffer,
- u_long len)
-{
- setup ();
- flockfile (debug_stream);
-
- emit_prefix (debug_stream);
- ACE_OS::fprintf (debug_stream,
- "%s ",
- label);
-
- if (len == 0 || !buffer)
- ACE_OS::fprintf (debug_stream,
- " (empty)");
- else
- {
- u_int i;
-
- for (i = 0; i < len; i++)
- {
- if (i == 0)
- ACE_OS::fprintf (debug_stream,
- "\nhex: ");
- else if ((i % 32) == 0)
- ACE_OS::fprintf (debug_stream,
- "\n ");
- else if ((i % 4) == 0)
- ACE_OS::fprintf (debug_stream,
- " ");
- ACE_OS::fprintf (debug_stream,
- "%02x",
- buffer[i]);
- }
-
- for (i = 0; i < len; i++)
- {
- if (i == 0)
- ACE_OS::fprintf (debug_stream,
- "\nchars: ");
- else if ((i % 32) == 0)
- ACE_OS::fprintf (debug_stream,
- "\n ");
- else if ((i % 4) == 0)
- ACE_OS::fprintf (debug_stream,
- " ");
- ACE_OS::fprintf (debug_stream, "%c ",
- (isprint (buffer[i]) ? buffer[i] : '?'));
-
- }
-
- ACE_OS::fprintf (debug_stream,
- "\n");
- }
- ACE_OS::fprintf (debug_stream,
- "\n");
- funlockfile (debug_stream);
-
-#if defined (_WIN32)
- OutputDebugString ("called dmsg_opaque_full\n"); // experimental
-#endif /* _WIN32 */
-}
-
-#endif /* DEBUG && HAVE_VPRINTF */