Bringing apdf from vendor into main branch.
[AROS-Contrib.git] / apdf / freetype2 / base / ftdebug.c
blob4c6bcc55ccc06ea3da35b75e0e9b8af7bf85a7a1
1 /***************************************************************************/
2 /* */
3 /* ftdebug.c */
4 /* */
5 /* Debugging and logging component (body). */
6 /* */
7 /* Copyright 1996-2001 by */
8 /* David Turner, Robert Wilhelm, and Werner Lemberg. */
9 /* */
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. */
15 /* */
16 /***************************************************************************/
19 /*************************************************************************/
20 /* */
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. */
24 /* */
25 /* There are now three debugging modes: */
26 /* */
27 /* - trace mode */
28 /* */
29 /* Error and trace messages are sent to the log file (which can be the */
30 /* standard error output). */
31 /* */
32 /* - error mode */
33 /* */
34 /* Only error messages are generated. */
35 /* */
36 /* - release mode: */
37 /* */
38 /* No error message is sent or generated. The code is free from any */
39 /* debugging parts. */
40 /* */
41 /*************************************************************************/
44 #include <ft2build.h>
45 #include FT_FREETYPE_H
46 #include FT_INTERNAL_DEBUG_H
49 #if defined( FT_DEBUG_LEVEL_ERROR )
51 FT_EXPORT_DEF( void )
52 FT_Message( const char* fmt, ... )
54 va_list ap;
57 va_start( ap, fmt );
58 vprintf( fmt, ap );
59 va_end( ap );
63 FT_EXPORT_DEF( void )
64 FT_Panic( const char* fmt, ... )
66 va_list ap;
69 va_start( ap, fmt );
70 vprintf( fmt, ap );
71 va_end( ap );
73 exit( EXIT_FAILURE );
76 #endif /* FT_DEBUG_LEVEL_ERROR */
80 #ifdef FT_DEBUG_LEVEL_TRACE
82 /* array of trace levels, initialized to 0 */
83 int ft_trace_levels[trace_count];
85 /* define array of trace toggle names */
86 #define FT_TRACE_DEF(x) #x ,
88 static const char* ft_trace_toggles[trace_count + 1] =
90 #include FT_INTERNAL_TRACE_H
91 NULL
94 #undef FT_TRACE_DEF
97 /*************************************************************************/
98 /* */
99 /* Initialize the tracing sub-system. This is done by retrieving the */
100 /* value of the "FT2_DEBUG" environment variable. It must be a list of */
101 /* toggles, separated by spaces, `;' or `:'. Example: */
102 /* */
103 /* "any=3 memory=6 stream=5" */
104 /* */
105 /* This will request that all levels be set to 3, except the trace level */
106 /* for the memory and stream components which are set to 6 and 5, */
107 /* respectively. */
108 /* */
109 /* See the file <freetype/internal/fttrace.h> for details of the */
110 /* available toggle names. */
111 /* */
112 /* The level must be between 0 and 6; 0 means quiet (except for serious */
113 /* runtime errors), and 6 means _very_ verbose. */
114 /* */
115 FT_BASE_DEF( void )
116 ft_debug_init( void )
118 const char* ft2_debug = getenv( "FT2_DEBUG" );
120 if ( ft2_debug )
122 const char* p = ft2_debug;
123 const char* q;
126 for ( ; *p; p++ )
128 /* skip leading whitespace and separators */
129 if ( *p == ' ' || *p == '\t' || *p == ':' || *p == ';' || *p == '=' )
130 continue;
132 /* read toggle name, followed by '=' */
133 q = p;
134 while ( *p && *p != '=' )
135 p++;
137 if ( *p == '=' && p > q )
139 int n, i, len = p - q;
140 int level = -1, found = -1;
143 for ( n = 0; n < trace_count; n++ )
145 const char* toggle = ft_trace_toggles[n];
148 for ( i = 0; i < len; i++ )
150 if ( toggle[i] != q[i] )
151 break;
154 if ( i == len && toggle[i] == 0 )
156 found = n;
157 break;
161 /* read level */
162 p++;
163 if ( *p )
165 level = *p++ - '0';
166 if ( level < 0 || level > 6 )
167 level = -1;
170 if ( found >= 0 && level >= 0 )
172 if ( found == trace_any )
174 /* special case for "any" */
175 for ( n = 0; n < trace_count; n++ )
176 ft_trace_levels[n] = level;
178 else
179 ft_trace_levels[found] = level;
186 #else /* !FT_DEBUG_LEVEL_TRACE */
188 FT_BASE_DEF( void )
189 ft_debug_init( void )
191 /* nothing */
194 #endif /* !FT_DEBUG_LEVEL_TRACE */
197 /* END */