#include <string.h>
#include <stdio.h>
#include <grass/gis.h>
#include <grass/display.h>
#include <grass/raster.h>
#include <grass/glocale.h>
#include "local_proto.h"

#define NL	012
#define TAB	011
#define BACK	0134
#define MTEXT	1024

#define TOP	0
#define CENT	1
#define BOT	2
#define LEFT	0
#define RITE	2
#define YES	1
#define NO	0

static double east ;
static double north ;
static int xoffset ;
static int yoffset ;
static int xref ;
static int yref ;
static int color, highlight_color ;
static double size ;
static int fontsize;
static int width, highlight_width ;
static int background ;
static int border ;
static int opaque ;
static double rotation;
static char text[MTEXT] ;
static char font[256];

static int ymatch ( char *);
static int xmatch (char *);

#define STANDARD_FONT "romans"

int initialize_options (void)
{
    east = 0.0 ;
    north = 0.0 ;
    xoffset = 0 ;
    yoffset = 0 ;
    xref = CENT ;
    yref = CENT ;
    color = D_translate_color("black") ;
    highlight_color = D_translate_color("white") ;
    size = 1000. ;
    fontsize = 0;
    width = 1 ;
    highlight_width = 0;
    background = D_translate_color("white") ;
    border = D_translate_color("black") ;
    opaque = YES ;
    rotation = 0.0;
    strcpy (font, STANDARD_FONT);

    return 0;
}

int 
do_labels (FILE *infile, int do_rotation)
{
    char buff[128];

    initialize_options() ;

    while (G_getl2(text, MTEXT, infile))
    {
	if (! strncmp(text, "eas", 3))
		sscanf(text,"%*s %lf",&east) ;
	else if (! strncmp(text, "nor", 3))
		sscanf(text,"%*s %lf",&north) ;
	else if (! strncmp(text, "xof", 3))
		sscanf(text,"%*s %d",&xoffset) ;
	else if (! strncmp(text, "yof", 3))
		sscanf(text,"%*s %d",&yoffset) ;
	else if (! strncmp(text, "col", 3))
	{
		sscanf(text,"%*s %s", buff) ;
		color = D_translate_color(buff) ;
	}
	else if (! strncmp(text, "siz", 3))
		sscanf(text,"%*s %lf",&size) ;
	else if (! strncmp(text, "fontsize", 8))
		sscanf(text,"%*s %d",&fontsize) ;
	else if (! strncmp(text, "wid", 3))
		sscanf(text,"%*s %d",&width) ;
	else if (! strncmp(text, "bac", 3))
	{
		sscanf(text,"%*s %s", buff) ;
		background = D_translate_color(buff) ;
	}
	else if (! strncmp(text, "bor", 3))
	{
		sscanf(text,"%*s %s", buff) ;
		border = D_translate_color(buff) ;
	}
	else if (! strncmp(text, "opa", 3))
	{
		sscanf(text,"%*s %s", buff) ;
		if (! strncmp(buff, "YES", 3))
			opaque = YES ;
		else
			opaque = NO ;
	}
	else if (! strncmp(text, "ref", 3))
	{
		if(sscanf(text,"%*s %16[^\n]", buff) < 1 
		|| scan_ref (buff) == 0)
		{
			xref = CENT ;
			yref = CENT ;
		}
	}
	else if (! strncmp (text, "fon", 3))
	{
		if (sscanf (text, "%*s %s", font) != 1
		||  !strcmp (font, "standard"))
			strcpy (font, STANDARD_FONT);
	}
	else if (! strncmp (text, "rot", 3))
	{
	    if(do_rotation)
		sscanf(text,"%*s %lf", &rotation);
	}
	else if (! strncmp(text, "hco", 3))
	{
		sscanf(text,"%*s %s", buff) ;
		highlight_color = D_translate_color(buff) ;
	}
	else if (! strncmp(text, "hwi", 3))
	    sscanf(text,"%*s %d", &highlight_width) ;

	else if (! strncmp(text, "tex", 3))
		show_it() ;
	
	  
	else
	{
		if (sscanf (text, "%1s", buff) == 1)
		    fprintf(stderr,_("Error: %s\n"), text) ;
	}
    }

    return 0;
}

int show_it (void)
{
    int i;
    int n_lines ;
    int n_chars ;
    char line[256] ;
    char *lptr, *tptr ;
    double line_size ;
    int text_size ;
    int X, Y ;
    int T, B, L, R ;
    int scrT, scrB, scrL, scrR ;
    int t, b, l, r ;
    int xarr[5] ;
    int yarr[5] ;
    int Xoffset ;
    int Yoffset ;

    G_debug ( 3, "Doing '%s'", text) ;
    X = (int)(D_u_to_d_col(east)) ;

/* Set font */
    R_font (font);

/* Set text size */
    if(fontsize) {
	text_size = fontsize;
	line_size = (D_d_to_u_row(0.0) - D_d_to_u_row((double)fontsize)) * 1.2;
    }
    else {
	text_size = D_u_to_d_row(0.0) - D_u_to_d_row(size);
	line_size = size * 1.2 ;
    }

    R_text_size(text_size, text_size);

/* Set font rotation */
    R_text_rotation((float)rotation);
    G_debug(3, "  rotation = %.2f", rotation);

/* Find extent of all text (assume ref point is upper left) */
    T = 999999 ;
    B = 0 ;
    L = 999999 ;
    R = 0 ;

/* Scan to beginning of text string */
    for(tptr=text; *tptr != ':'; tptr++) ;
    tptr++ ;

    n_lines = 0 ;
    for(;;)
    {
	n_chars = 0 ;
	for(lptr = line; *tptr && *tptr != NL; *lptr++ = *tptr++)
	{
		if ((*tptr == BACK) && (*(tptr+1) == 'n'))
			break ;
		n_chars++ ;
	}
	n_lines++ ;

	if (n_chars == 0)
		break ;

	*lptr = '\0' ;

	Y = (int)(D_u_to_d_row(north - (line_size*1.2) - ((n_lines-1)*line_size) ));

	R_move_abs(X, Y) ;
	R_get_text_box(line, &t, &b, &l, &r) ;
	if (t < T) T = t ;
	if (b > B) B = b ;
	if (l < L) L = l ;
	if (r > R) R = r ;

	if ( (*tptr == '\0') || (*tptr == NL) )
		break ;
	tptr++ ; tptr++ ;
    }

    /* Expand border 1/2 of text size */
    T = T - (text_size * 0.2) - .5;
    B = B + (text_size * 0.2) + .5;
    L = L - (text_size * 0.2) - .5;
    R = R + (text_size * 0.2) + .5;

    Xoffset = xoffset ;
    Yoffset = -yoffset ;

    if (xref == CENT)
	    Xoffset -= (R - L) / 2 ;
    if (xref == RITE)
	    Xoffset -= R - L ;
    if (yref == CENT)
	    Yoffset -= (B - T) / 2 ;
    if (yref == BOT)
	    Yoffset -= B - T ;

/* Draw box */
    scrL = L + Xoffset ;
    scrR = R + Xoffset ;
    scrT = T + Yoffset ;
    scrB = B + Yoffset ;

    /* If the window is outside of current map window, ignore */;
    if (scrR < (int)D_get_d_west())   return 0;
    if (scrL > (int)D_get_d_east())   return 0;
    if (scrB < (int)D_get_d_north())  return 0;
    if (scrT > (int)D_get_d_south())  return 0;
    if (scrT < 0)  return 0;
    if (scrL < 0)  return 0;

    /* Clip parts of label to inside map window */
    if (scrL < (int)D_get_d_west()) scrL = (int)D_get_d_west() ;
    if (scrR > (int)D_get_d_east()) scrR = (int)D_get_d_east() ;
    if (scrT < (int)D_get_d_north())  scrT = (int)D_get_d_north()  ;
    if (scrB > (int)D_get_d_south())  scrB = (int)D_get_d_south()  ;

    xarr[0] = scrL ;
    xarr[1] = scrL ;
    xarr[2] = scrR ;
    xarr[3] = scrR ;
    xarr[4] = scrL ;
    yarr[0] = scrB ;
    yarr[1] = scrT ;
    yarr[2] = scrT ;
    yarr[3] = scrB ;
    yarr[4] = scrB ;
    if(background)
    {
	    R_standard_color(background) ;
	    R_polygon_abs(xarr, yarr, 5) ;
    }

/* Draw border */
    if(border)
    {
	    R_standard_color(border) ;
	    R_polyline_abs(xarr, yarr, 5) ;
    }

    for(tptr=text; *tptr != ':'; tptr++) ;
    tptr++ ;

/* Draw text */

    /* draw highlighted text background */
    if(highlight_width && highlight_color) {
	R_standard_color(highlight_color);

	n_lines = 0 ;
	for(;;) {
	    n_chars = 0 ;
	    for(lptr = line; *tptr && *tptr != NL; *lptr++ = *tptr++) {
		if ((*tptr == BACK) && (*(tptr+1) == 'n'))
		    break ;
		n_chars++ ;
	    }

	    n_lines++ ;
	    if (n_chars == 0)
		break ;

	    *lptr = '\0' ;

	    Y = (int)(D_u_to_d_row(north - (line_size*1.2) - ((n_lines-1)*line_size) ));
	    R_set_window(scrT, scrB, scrL, scrR) ;

	    for(i = 1; i <= highlight_width; i++) {
		/* smear it around. probably a better way (knight's move? rand?) */
		R_move_abs(X + Xoffset, Y + Yoffset + i);
		R_text(line);
		R_move_abs(X + Xoffset, Y + Yoffset - i);
		R_text(line);
		R_move_abs(X + Xoffset + i, Y + Yoffset);
		R_text(line);
		R_move_abs(X + Xoffset - i, Y + Yoffset);
		R_text(line);

		R_move_abs(X + Xoffset +i, Y + Yoffset +i);
		R_text(line);
		R_move_abs(X + Xoffset -i, Y + Yoffset -i);
		R_text(line);
		R_move_abs(X + Xoffset +i, Y + Yoffset -i);
		R_text(line);
		R_move_abs(X + Xoffset -i, Y + Yoffset +i);
		R_text(line);
	    }

	    if ( (*tptr == '\0') || (*tptr == NL) )
		break ;
	    tptr++ ; tptr++ ;
	}
    }

    /* reset pointer for main text draw */
    for(tptr=text; *tptr != ':'; tptr++) ;
    tptr++ ;

    R_standard_color(color) ;

    n_lines = 0 ;
    for(;;)
    {
	n_chars = 0 ;
	for(lptr = line; *tptr && *tptr != NL; *lptr++ = *tptr++)
	{
		if ((*tptr == BACK) && (*(tptr+1) == 'n'))
			break ;
		n_chars++ ;
	}

	n_lines++ ;
	if (n_chars == 0)
		break ;

	*lptr = '\0' ;

	Y = (int)(D_u_to_d_row(north - (line_size*1.2) - ((n_lines-1)*line_size) ));
	R_set_window(scrT, scrB, scrL, scrR) ;
	R_move_abs(X + Xoffset, Y + Yoffset) ;
	R_text(line) ;

	if ( (*tptr == '\0') || (*tptr == NL) )
		break ;
	tptr++ ; tptr++ ;
    }

    return 0;
}

static int xok, yok;

int scan_ref (char *buf)
{
    char word1[50], word2[50];
    int i;

    xok = yok = 0;

    for (i = 0; buf[i]; i++)
	if (buf[i] >= 'A' && buf[i] <= 'Z')
		buf[i] += 'a' - 'A';
    xref = yref = CENT;
    switch (sscanf (buf, "%s%s", word1, word2))
    {
    case 2:
	if (!(xmatch (word2) || ymatch (word2)))
	    return 0;
    case 1:
	if (xmatch (word1) || ymatch (word1))
	    return 1;
    default:
	return 0;
    }
}

static int xmatch (char *word)
{
    if (strcmp (word, "center") == 0)
	return 1;
    if (strcmp (word, "middle") == 0)
	return 1;
    if (xok) return 0;

    if (strcmp (word, "left") == 0)
	xref = LEFT;
    else if (strcmp (word, "right") == 0)
	xref = RITE;
    else
	return 0;
    xok = 1;
    return 1;
}

static int ymatch ( char *word)
{
    if (strcmp (word, "center") == 0)
	return 1;
    if (strcmp (word, "middle") == 0)
	return 1;
    if (yok) return 0;

    if (strcmp (word, "upper") == 0)
	yref = TOP;
    else if (strcmp (word, "top") == 0)
	yref = TOP;
    else if (strcmp (word, "lower") == 0)
	yref = BOT;
    else if (strcmp (word, "bottom") == 0)
	yref = BOT;
    else
	return 0;
    yok = 1;
    return 1;
}