1 /***************************************************************************/
5 /* Debugging and logging component (body). */
7 /* Copyright 1996-2001, 2002, 2004, 2005 by */
8 /* David Turner, Robert Wilhelm, Werner Lemberg and Detlef Würkner. */
10 /* This file is part of the FreeType project, and may only be used, */
11 /* modified, and distributed under the terms of the FreeType project */
12 /* license, LICENSE.TXT. By continuing to use, modify, or distribute */
13 /* this file you indicate that you have read the license and */
14 /* understand and accept it fully. */
16 /***************************************************************************/
19 /*************************************************************************/
21 /* This component contains various macros and functions used to ease the */
22 /* debugging of the FreeType engine. Its main purpose is in assertion */
23 /* checking, tracing, and error detection. */
25 /* There are now three debugging modes: */
29 /* Error and trace messages are sent to the log file (which can be the */
30 /* standard error output). */
34 /* Only error messages are generated. */
38 /* No error message is sent or generated. The code is free from any */
39 /* debugging parts. */
41 /*************************************************************************/
45 * Based on the default ftdebug.c,
46 * replaced vprintf() with KVPrintF(),
47 * commented out exit(),
48 * replaced getenv() with GetVar().
51 #include <exec/types.h>
52 #include <utility/tagitem.h>
53 #include <dos/exall.h>
56 #define __NOLOBALIFACE__
57 #define __USE_INLINE__
58 #include <proto/dos.h>
59 #include <clib/debug_protos.h>
62 extern struct Library *DOSBase;
64 extern struct DOSIFace *IDOS;
69 #include FT_FREETYPE_H
70 #include FT_INTERNAL_DEBUG_H
73 #if defined( FT_DEBUG_LEVEL_ERROR )
75 /* documentation is in ftdebug.h */
78 FT_Message( const char* fmt, ... )
84 /* vprintf( fmt, ap ); */
90 /* documentation is in ftdebug.h */
93 FT_Panic( const char* fmt, ... )
99 /* vprintf( fmt, ap ); */
103 /* exit( EXIT_FAILURE ); */
106 #endif /* FT_DEBUG_LEVEL_ERROR */
110 #ifdef FT_DEBUG_LEVEL_TRACE
112 /* array of trace levels, initialized to 0 */
113 int ft_trace_levels[trace_count];
116 /* define array of trace toggle names */
117 #define FT_TRACE_DEF( x ) #x ,
119 static const char* ft_trace_toggles[trace_count + 1] =
121 #include FT_INTERNAL_TRACE_H
128 /* documentation is in ftdebug.h */
130 FT_BASE_DEF( FT_Int )
131 FT_Trace_Get_Count( void )
137 /* documentation is in ftdebug.h */
139 FT_BASE_DEF( const char * )
140 FT_Trace_Get_Name( FT_Int idx )
142 int max = FT_Trace_Get_Count();
146 return ft_trace_toggles[idx];
152 /*************************************************************************/
154 /* Initialize the tracing sub-system. This is done by retrieving the */
155 /* value of the `FT2_DEBUG' environment variable. It must be a list of */
156 /* toggles, separated by spaces, `;', or `,'. Example: */
158 /* export FT2_DEBUG="any:3 memory:7 stream:5" */
160 /* This requests that all levels be set to 3, except the trace level for */
161 /* the memory and stream components which are set to 7 and 5, */
164 /* See the file <include/freetype/internal/fttrace.h> for details of the */
165 /* available toggle names. */
167 /* The level must be between 0 and 7; 0 means quiet (except for serious */
168 /* runtime errors), and 7 means _very_ verbose. */
171 ft_debug_init( void )
173 /* const char* ft2_debug = getenv( "FT2_DEBUG" ); */
175 const char* ft2_debug = &buf[0];
178 /* if ( ft2_debug ) */
179 if ( GetVar( "FT2_DEBUG", (STRPTR)ft2_debug, 256, LV_VAR ) > 0 )
181 const char* p = ft2_debug;
187 /* skip leading whitespace and separators */
188 if ( *p == ' ' || *p == '\t' || *p == ',' || *p == ';' || *p == '=' )
191 /* read toggle name, followed by ':' */
193 while ( *p && *p != ':' )
196 if ( *p == ':' && p > q )
198 FT_Int n, i, len = (FT_Int)( p - q );
199 FT_Int level = -1, found = -1;
202 for ( n = 0; n < trace_count; n++ )
204 const char* toggle = ft_trace_toggles[n];
207 for ( i = 0; i < len; i++ )
209 if ( toggle[i] != q[i] )
213 if ( i == len && toggle[i] == 0 )
225 if ( level < 0 || level > 7 )
229 if ( found >= 0 && level >= 0 )
231 if ( found == trace_any )
233 /* special case for `any' */
234 for ( n = 0; n < trace_count; n++ )
235 ft_trace_levels[n] = level;
238 ft_trace_levels[found] = level;
246 #else /* !FT_DEBUG_LEVEL_TRACE */
250 ft_debug_init( void )
256 FT_BASE_DEF( FT_Int )
257 FT_Trace_Get_Count( void )
263 FT_BASE_DEF( const char * )
264 FT_Trace_Get_Name( FT_Int idx )
272 #endif /* !FT_DEBUG_LEVEL_TRACE */