1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include "gis.h"
/*!
*
* \brief print debugging message
*
* Print debugging message if environment variable GRASS_DEBUG_LEVEL
* is set to level equal or greater
*
* Levels: (recommended levels)<br>
* 1 - message is printed once or few times per module<br>
* 3 - each row (raster) or line (vector)<br>
* 5 - each cell (raster) or point (vector)
*
* \param int level
* \param char *msg
*
*/
static int grass_debug_level = -1;
int G_debug (int level, char *msg,...)
{
#ifdef GDEBUG
char *lstr, *filen;
va_list ap;
FILE *fd;
if (grass_debug_level < 0) {
lstr = G__getenv( "DEBUG" );
if ( lstr != NULL )
grass_debug_level = atoi ( lstr );
else
grass_debug_level = 0;
}
if ( grass_debug_level >= level ) {
va_start(ap, msg);
filen = getenv("GRASS_DEBUG_FILE");
if ( filen != NULL ) {
fd = fopen (filen,"a");
if ( !fd ) {
G_warning ( "Cannot open debug file '%s'", filen);
return 0;
}
} else {
fd = stderr;
}
fprintf (fd, "D%d/%d: ", level, grass_debug_level);
vfprintf (fd, msg, ap);
fprintf (fd, "\n");
if ( filen != NULL ) fclose ( fd );
va_end(ap);
}
#endif
return 1;
}
|
