debug.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include "gis.h"

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;
}

---