#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <grass/gis.h>
#include "G.h"
#include <grass/glocale.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");
        fflush (fd);
	
	if ( filen != NULL ) fclose ( fd );
	
	va_end(ap);
    }
#endif

    return 1;
}


/*!
 * \brief dumps status of various GIS parameters
 * 
 * Dumps status of various GIS parameters of a particular
 * file descriptor..
 *
 * \param int fd
 * \return int
 *
*/

int G_dump(int fd)
{
    struct fileinfo *fcb = &G__.fileinfo[fd];

    G_message(_("G_dump: memory allocated to G__"));
    G_message(_("Size of cell in fp maps = %d"), G__.fp_nbytes);
    G_message(_("type for writing floating maps = %d"), G__.fp_type);
    G_message(_("current window = %p"), &G__.window);
    G_message(_("Flag: window set? %d"), G__.window_set);
    G_message(_("File descriptor for automatic mask %d"), G__.mask_fd);
    G_message(_("Flag denoting automatic masking %d"), G__.auto_mask); 
    G_message(_("CELL mask buffer %p"), G__.mask_buf);
    G_message(_("buffer for reading null rows %p"), G__.null_buf);
    G_message(_("Pre/post compressed data buffer %p"), G__.compressed_buf);
    G_message(_("sizeof compressed_buf %d"), G__.compressed_buf_size);
    G_message(_("work data buffer %p"), G__.work_buf);
    G_message(_("sizeof work_buf %d"), G__.work_buf_size);
    G_message(_("sizeof null_buf %d"), G__.null_buf_size);
    G_message(_("sizeof mask_buf %d"), G__.mask_buf_size);
    G_message(_("Histogram request %d"), G__.want_histogram);

    G_message(_("G_dump: file #%d"), fd);
    G_message(_("open mode = %d"), fcb->open_mode);
    G_message(_("Cell header %p"),&fcb->cellhd);
    G_message(_("Table reclass %p"), &fcb->reclass);
    G_message(_("Cell stats %p"), &fcb->statf);
    G_message(_("Range structure %p"), &fcb->range);
    G_message(_("float Range structure %p"), &fcb->fp_range);
    G_message(_("want histogram?  %d"), fcb->want_histogram);
    G_message(_("Automatic reclass flag %d"), fcb->reclass_flag);
    G_message(_("File row addresses %p"), fcb->row_ptr);
    G_message(_("Data to window col mapping %p"), fcb->col_map);
    G_message(_("Data to window row constants %f,%f"), fcb->C1,fcb->C2);
    G_message(_("Current data row in memory %d"), fcb->cur_row);
    G_message(_("Current null row in memory %d"), fcb->null_cur_row);
    G_message(_("nbytes per cell for current row %d"), fcb->cur_nbytes);
    G_message(_("Decompressed data buffer %s"), fcb->data);
    G_message(_("bytes per cell %d"), fcb->nbytes);
    G_message(_("type: int, float or double map %d"), fcb->map_type);
    G_message(_("Temporary name for NEW files %s"), fcb->temp_name);
    G_message(_("Temporary name for NEW NULL files %s"), fcb->null_temp_name);
    G_message(_("for existing raster maps %d"), fcb->null_file_exists);
    G_message(_("Name of open file %s"), fcb->name);
    G_message(_("Mapset of open file %s"), fcb->mapset);
    G_message(_("io error warning given %d"), fcb->io_error);
    G_message(_("xdr stream for reading fp %p"), &fcb->xdrstream);
    G_message(_("NULL_ROWS array[%d] = %p"), NULL_ROWS_INMEM, fcb->NULL_ROWS);
    G_message(_("data buffer for reading null rows %p"), fcb->null_work_buf);
    G_message(_("Minimum row null row number in memory %d"), fcb->min_null_row);
    G_message(_("Quant ptr = %p"), &fcb->quant);
    G_message(_("G_dump: end"));

    return 0;
}