You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
300 lines
7.4 KiB
300 lines
7.4 KiB
//C- -*- C++ -*-
|
|
//C- -------------------------------------------------------------------
|
|
//C- DjVuLibre-3.5
|
|
//C- Copyright (c) 2002 Leon Bottou and Yann Le Cun.
|
|
//C- Copyright (c) 2001 AT&T
|
|
//C-
|
|
//C- This software is subject to, and may be distributed under, the
|
|
//C- GNU General Public License, Version 2. The license should have
|
|
//C- accompanied the software or you may obtain a copy of the license
|
|
//C- from the Free Software Foundation at http://www.fsf.org .
|
|
//C-
|
|
//C- This program is distributed in the hope that it will be useful,
|
|
//C- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
//C- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
//C- GNU General Public License for more details.
|
|
//C-
|
|
//C- DjVuLibre-3.5 is derived from the DjVu(r) Reference Library
|
|
//C- distributed by Lizardtech Software. On July 19th 2002, Lizardtech
|
|
//C- Software authorized us to replace the original DjVu(r) Reference
|
|
//C- Library notice by the following text (see doc/lizard2002.djvu):
|
|
//C-
|
|
//C- ------------------------------------------------------------------
|
|
//C- | DjVu (r) Reference Library (v. 3.5)
|
|
//C- | Copyright (c) 1999-2001 LizardTech, Inc. All Rights Reserved.
|
|
//C- | The DjVu Reference Library is protected by U.S. Pat. No.
|
|
//C- | 6,058,214 and patents pending.
|
|
//C- |
|
|
//C- | This software is subject to, and may be distributed under, the
|
|
//C- | GNU General Public License, Version 2. The license should have
|
|
//C- | accompanied the software or you may obtain a copy of the license
|
|
//C- | from the Free Software Foundation at http://www.fsf.org .
|
|
//C- |
|
|
//C- | The computer code originally released by LizardTech under this
|
|
//C- | license and unmodified by other parties is deemed "the LIZARDTECH
|
|
//C- | ORIGINAL CODE." Subject to any third party intellectual property
|
|
//C- | claims, LizardTech grants recipient a worldwide, royalty-free,
|
|
//C- | non-exclusive license to make, use, sell, or otherwise dispose of
|
|
//C- | the LIZARDTECH ORIGINAL CODE or of programs derived from the
|
|
//C- | LIZARDTECH ORIGINAL CODE in compliance with the terms of the GNU
|
|
//C- | General Public License. This grant only confers the right to
|
|
//C- | infringe patent claims underlying the LIZARDTECH ORIGINAL CODE to
|
|
//C- | the extent such infringement is reasonably necessary to enable
|
|
//C- | recipient to make, have made, practice, sell, or otherwise dispose
|
|
//C- | of the LIZARDTECH ORIGINAL CODE (or portions thereof) and not to
|
|
//C- | any greater extent that may be necessary to utilize further
|
|
//C- | modifications or combinations.
|
|
//C- |
|
|
//C- | The LIZARDTECH ORIGINAL CODE is provided "AS IS" WITHOUT WARRANTY
|
|
//C- | OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
|
|
//C- | TO ANY WARRANTY OF NON-INFRINGEMENT, OR ANY IMPLIED WARRANTY OF
|
|
//C- | MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
|
|
//C- +------------------------------------------------------------------
|
|
//
|
|
// $Id: debug.cpp,v 1.14 2005/05/27 14:26:00 leonb Exp $
|
|
// $Name: release_3_5_15 $
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
# include "config.h"
|
|
#endif
|
|
#if NEED_GNUG_PRAGMAS
|
|
# pragma implementation
|
|
#endif
|
|
|
|
#include "debug.h"
|
|
|
|
#if ( DEBUGLVL > 0 )
|
|
|
|
#include "GThreads.h"
|
|
#include "GContainer.h"
|
|
#include "GString.h"
|
|
#include "GString.h"
|
|
#include "ByteStream.h"
|
|
#include "GURL.h"
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
|
|
#ifdef HAVE_NAMESPACES
|
|
namespace DJVU {
|
|
# ifdef NOT_DEFINED // Just to fool emacs c++ mode
|
|
}
|
|
#endif
|
|
#endif
|
|
|
|
|
|
#ifndef UNIX
|
|
#ifndef WIN32
|
|
#ifndef macintosh
|
|
#define UNIX
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
static GCriticalSection debug_lock;
|
|
#ifdef RUNTIME_DEBUG_ONLY
|
|
static int debug_level = 0;
|
|
#else
|
|
static int debug_level = DEBUGLVL;
|
|
#endif
|
|
static int debug_id;
|
|
static FILE *debug_file;
|
|
static int debug_file_count;
|
|
|
|
#if THREADMODEL==NOTHREADS
|
|
static DjVuDebug debug_obj;
|
|
#else
|
|
static GMap<long, DjVuDebug> &
|
|
debug_map(void)
|
|
{
|
|
static GMap<long, DjVuDebug> xmap;
|
|
return xmap;
|
|
}
|
|
#endif
|
|
|
|
DjVuDebug::DjVuDebug()
|
|
: block(0), indent(0)
|
|
{
|
|
id = debug_id++;
|
|
#ifdef UNIX
|
|
if (debug_file_count++ == 0 && !debug_file)
|
|
set_debug_file(stderr);
|
|
#endif
|
|
}
|
|
|
|
DjVuDebug::~DjVuDebug()
|
|
{
|
|
#ifdef UNIX
|
|
if (--debug_file_count == 0)
|
|
{
|
|
if (debug_file && (debug_file != stderr))
|
|
fclose(debug_file);
|
|
debug_file = 0;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
void
|
|
DjVuDebug::format(const char *fmt, ... )
|
|
{
|
|
if (! block)
|
|
{
|
|
va_list ap;
|
|
va_start(ap, fmt);
|
|
GUTF8String buffer(fmt,ap);
|
|
va_end(ap);
|
|
GCriticalSectionLock glock(&debug_lock);
|
|
if (debug_file)
|
|
{
|
|
fprintf(debug_file,"%s", (const char*)buffer);
|
|
fflush(debug_file);
|
|
}
|
|
#ifdef WIN32
|
|
else
|
|
{
|
|
USES_CONVERSION;
|
|
OutputDebugString(A2CT((const char *)buffer));
|
|
}
|
|
#endif
|
|
}
|
|
}
|
|
|
|
void
|
|
DjVuDebug::set_debug_level(int lvl)
|
|
{
|
|
debug_level = lvl;
|
|
}
|
|
|
|
void
|
|
DjVuDebug::set_debug_file(FILE * file)
|
|
{
|
|
GCriticalSectionLock glock(&debug_lock);
|
|
if (debug_file && (debug_file != stderr))
|
|
fclose(debug_file);
|
|
debug_file = file;
|
|
}
|
|
|
|
void
|
|
DjVuDebug::modify_indent(int rindent)
|
|
{
|
|
indent += rindent;
|
|
}
|
|
|
|
DjVuDebug&
|
|
DjVuDebug::lock(int lvl, int noindent)
|
|
{
|
|
int threads_num=1;
|
|
debug_lock.lock();
|
|
// Find Debug object
|
|
#if THREADMODEL==NOTHREADS
|
|
// Get no-threads debug object
|
|
DjVuDebug &dbg = debug_obj;
|
|
#else
|
|
// Get per-thread debug object
|
|
long threadid = (long) GThread::current();
|
|
DjVuDebug &dbg = debug_map()[threadid];
|
|
threads_num=debug_map().size();
|
|
#endif
|
|
// Check level
|
|
dbg.block = (lvl > debug_level);
|
|
// Output thread id and indentation
|
|
if (! noindent)
|
|
{
|
|
if (threads_num>1)
|
|
dbg.format("[T%d] ", dbg.id);
|
|
int ind = dbg.indent;
|
|
char buffer[257];
|
|
memset(buffer,' ', sizeof(buffer)-1);
|
|
buffer[sizeof(buffer)-1] = 0;
|
|
while (ind > (int)sizeof(buffer)-1)
|
|
{
|
|
dbg.format("%s", buffer);
|
|
ind -= sizeof(buffer)-1;
|
|
}
|
|
if (ind > 0)
|
|
{
|
|
buffer[ind] = 0;
|
|
dbg.format("%s", buffer);
|
|
}
|
|
}
|
|
// Return
|
|
return dbg;
|
|
}
|
|
|
|
void
|
|
DjVuDebug::unlock()
|
|
{
|
|
debug_lock.unlock();
|
|
}
|
|
|
|
#define OP(type, fmt) \
|
|
DjVuDebug& DjVuDebug::operator<<(type arg)\
|
|
{ format(fmt, arg); return *this; }
|
|
|
|
DjVuDebug& DjVuDebug::operator<<(bool arg)
|
|
{
|
|
format("%s", arg ? "TRUE" : "FALSE"); return *this;
|
|
}
|
|
|
|
OP(char, "%c")
|
|
OP(unsigned char, "%c")
|
|
OP(int, "%d")
|
|
OP(unsigned int, "%u")
|
|
OP(short int, "%hd")
|
|
OP(unsigned short int, "%hu")
|
|
OP(long, "%ld")
|
|
OP(unsigned long, "%lu")
|
|
OP(float, "%g")
|
|
OP(double, "%g")
|
|
OP(const void * const, "0x%08x")
|
|
|
|
DjVuDebug& DjVuDebug::operator<<(const char * const ptr)
|
|
{
|
|
GUTF8String buffer(ptr?ptr:"(null)");
|
|
if(buffer.length() > 255)
|
|
{
|
|
buffer=buffer.substr(0,252)+"...";
|
|
}
|
|
format("%s", (const char *)buffer);
|
|
return *this;
|
|
}
|
|
|
|
DjVuDebug& DjVuDebug::operator<<(const unsigned char * const ptr)
|
|
{
|
|
return operator<<( (const char *) ptr );
|
|
}
|
|
|
|
DjVuDebug& DjVuDebug::operator<<(const GUTF8String &ptr)
|
|
{
|
|
GUTF8String buffer(ptr);
|
|
if(buffer.length() > 255)
|
|
buffer=buffer.substr(0,252)+"...";
|
|
format("%s", (const char *)buffer);
|
|
return *this;
|
|
}
|
|
|
|
DjVuDebugIndent::DjVuDebugIndent(int inc)
|
|
: inc(inc)
|
|
{
|
|
DjVuDebug &dbg = DjVuDebug::lock(0,1);
|
|
dbg.modify_indent(inc);
|
|
dbg.unlock();
|
|
}
|
|
|
|
DjVuDebugIndent::~DjVuDebugIndent()
|
|
{
|
|
DjVuDebug &dbg = DjVuDebug::lock(0,1);
|
|
dbg.modify_indent(-inc);
|
|
dbg.unlock();
|
|
}
|
|
|
|
|
|
#ifdef HAVE_NAMESPACES
|
|
}
|
|
# ifndef NOT_USING_DJVU_NAMESPACE
|
|
using namespace DJVU;
|
|
# endif
|
|
#endif
|
|
#endif
|