#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <grass/gis.h>
#include <grass/glocale.h>
#include "local_proto.h"


FILE *Tmp_fd = NULL;
char *Tmp_file = NULL;

const float GS_BLANK=1.70141E+038;

static int file_cpy (FILE *, FILE *);


int 
main (int argc, char *argv[])
{
	char *input;
	char *output;
	char *title;
	char *temp;
	FILE *fd, *ft;
	int cf,direction,sz;
	struct Cell_head cellhd;
	void *rast, *rast_ptr;
	int row, col;
	int nrows, ncols;
	double x;
	char y[128];
	struct GModule *module;
	struct
	{
		struct Option *input, *output, *title, *mult, *nv;
	} parm;
	struct
	{
		struct Flag *i, *f, *d, *s;
	} flag;
	char *null_val_str;
	DCELL mult;
	RASTER_MAP_TYPE data_type;
	double atof();

	G_gisinit (argv[0]);

	module = G_define_module();
	module->keywords = _("raster");
    module->description =
		_("Convert an ASCII raster text file into a (binary) raster map layer.");

	parm.input = G_define_standard_option(G_OPT_R_INPUT);
	parm.input->description = _("Ascii raster file to be imported");
	parm.input->gisprompt = "old_file,file,input";

	parm.output = G_define_standard_option(G_OPT_R_OUTPUT);

	parm.title = G_define_option();
	parm.title->key = "title";
	parm.title->key_desc = "\"phrase\"";
	parm.title->type = TYPE_STRING;
	parm.title->required = NO;
	parm.title->description = _("Title for resultant raster map");

	parm.mult = G_define_option();
	parm.mult->key = "mult";
	parm.mult->type = TYPE_DOUBLE;
	parm.mult->answer = "1.0 or read from header";
	parm.mult->required = NO;
	parm.mult->description = _("Multiplier for ascii data") ;

        parm.nv = G_define_option();
        parm.nv->key = "nv";
        parm.nv->type = TYPE_STRING;
        parm.nv->required = NO;
        parm.nv->multiple = NO;
	parm.nv->answer = "* or read from header";
        parm.nv->description = _("String representing NULL value data cell");

	flag.i = G_define_flag();
	flag.i->key = 'i';
	flag.i->description = 
		_("integer values are imported");

	flag.f = G_define_flag();
	flag.f->key = 'f';
	flag.f->description = 
		_("floating point values are imported");

	flag.d = G_define_flag();
	flag.d->key = 'd';
	flag.d->description = 
	     _("double floating point values are imported");

	flag.s = G_define_flag();
	flag.s->key = 's';
	flag.s->description =
		_("SURFER (Golden Software) ascii grid file will be imported");

	if (G_parser(argc,argv))
		exit(EXIT_FAILURE);

	input = parm.input->answer;
	output = parm.output->answer;

	temp = G_tempfile();
	ft=fopen(temp,"w+");
	if(ft==NULL)
            G_fatal_error(_("Unable to open temporary file"));

	if ((title = parm.title->answer))
		G_strip (title);
        if(strcmp(parm.mult->answer, "1.0 or read from header")==0)
	    G_set_d_null_value(&mult, 1);
        else
	   if ((sscanf(parm.mult->answer,"%lf",&mult)) != 1) 
	      G_fatal_error ( _("Wrong entry for multiplier: %s"), parm.mult->answer);
	if(strcmp(parm.nv->answer, "* or read from header")==0)
	   null_val_str = NULL;
        else
	   null_val_str = parm.nv->answer;

        data_type = -1;
	if (flag.i->answer) {		/* interger data */
	  data_type = CELL_TYPE;
	}
	if (flag.f->answer) {		/* floating-point data */
	  data_type = FCELL_TYPE;
	}
	if (flag.d->answer) {		/* double data; overwrite others */
	  data_type = DCELL_TYPE;
	} 

	if (strcmp ("-", input) == 0)
	{
		Tmp_file = G_tempfile();
		if (NULL == (Tmp_fd = fopen (Tmp_file, "w+")))
                    G_fatal_error(_("Unable to open temp file"));
		unlink (Tmp_file);
		if (0 > file_cpy(stdin, Tmp_fd))
                    G_fatal_error(_("Unable to read input from stdin"));
		fd = Tmp_fd;
	}
	else
		fd = fopen(input, "r");

	if (fd == NULL)
	{
                G_warning(_("Unable to read input from '%s'"), input);
		G_usage();
		exit(EXIT_FAILURE);
	}

	direction=1;
        sz=0;
	if(flag.s->answer)
        {
		sz=getgrdhead(fd, &cellhd);
                /* for Surfer files, the data type is always FCELL_TYPE,
                   the multiplier and the null_val_str are never used */
		data_type=FCELL_TYPE;
		mult=1.;
		null_val_str="";
		/* rows in surfer files are ordered from bottom to top,
		   opposite of normal GRASS ordering */
		direction=-1;
        }
	else sz=gethead(fd, &cellhd, &data_type, &mult, &null_val_str);

	if(!sz)
		G_fatal_error ( _("Can't get cell header"));

	nrows = cellhd.rows;
	ncols = cellhd.cols;
	if(G_set_window(&cellhd) < 0)
		G_fatal_error ( _("Can't set window"));

	if (nrows != G_window_rows())
		G_fatal_error ( _("OOPS: rows changed from %d to %d"), nrows, G_window_rows());
	if (ncols != G_window_cols())
		G_fatal_error ( _("OOPS: cols changed from %d to %d"), ncols, G_window_cols());


	rast_ptr=G_allocate_raster_buf(data_type);
	rast = rast_ptr;
	if (G_legal_filename(output) < 0)
	   G_fatal_error ( _("%s -- illegal output file name"), output);
	cf = G_open_raster_new(output, data_type);
	if (cf < 0)
	   G_fatal_error ( _("Unable to create raster map %s"), output);
	for (row = 0; row < nrows; row++)
	{
		G_percent(row, nrows, 2);
		for (col = 0; col < ncols; col++)
		{
			if (fscanf (fd, "%s", y) != 1)
			{
				G_unopen_cell (cf);
				G_fatal_error ( _("Data conversion failed at row %d, col %d"), row+1, col+1);
			}
			if (strcmp(y, null_val_str)) {
			  x = atof(y);
			  if((float)x==GS_BLANK)
			  {
			    G_set_null_value(rast_ptr, 1, data_type);
			  }
			  else
			  {
			    G_set_raster_value_d(rast_ptr,
				(DCELL)(x * mult), data_type);
			  }
			}
			else {
			   G_set_null_value(rast_ptr, 1, data_type);
			}
			rast_ptr = G_incr_void_ptr(rast_ptr,
					G_raster_size(data_type));
		}
		fwrite(rast,G_raster_size(data_type),ncols,ft);
		rast_ptr = rast;
	}
	G_percent(nrows, nrows, 2);
	G_message (_("CREATING SUPPORT FILES FOR %s"), output);

	sz=0;
	if(direction<0)
	{
		sz=-ncols*G_raster_size(data_type);
		fseek(ft,sz,SEEK_END);
		sz*=2;	
	}
	else
	{
		fseek(ft, 0L, SEEK_SET);
	}

	for (row=0; row< nrows; row+=1)
	{
		fread(rast, G_raster_size(data_type),ncols,ft);
		G_put_raster_row (cf, rast, data_type);
		fseek(ft,sz,SEEK_CUR);
        }
	fclose(ft);
	unlink(temp);

	G_close_cell (cf);
	if (title)
		G_put_cell_title (output, title);

        G_done_msg("");
        exit(EXIT_SUCCESS);
}


static int file_cpy (FILE *from, FILE *to)
{
	char buf[BUFSIZ];
	size_t size;
	int  written = 0;

	while (1)
	{
		size = fread (buf, 1, BUFSIZ, from);
		if (!size)
		{
			if (written)
			{
				fflush (to);
				fseek (to, 0L, SEEK_SET);
			}
			return (0);
		}
		if (!fwrite (buf, 1, size, to))
		{
                        G_warning(_("Unable to write to file"));
			return (-1);
		}
		written = 1;
	}

	/* NOTREACHED */
        return -1;
}