/*	plt/text.c		Paul Albrecht		Sept 1987

	Copyright (C) Paul Albrecht 1988.  All rights reserved.

	Last Update:	May 21, 1989
	EMACS_MODES:	tabstop=4
*/

#include	"plt.h"
#include	"axis.h"
#include	"text.h"
#include	"optn.h"


TextInit( psdel )	/* initalize the font groups a, f, l, p and t */
{
char	changes[MAXLINE];

	sprintf( changes, "P%g,W3,Ea", 14.0+psdel );
	FontGroupDef( "a", changes );
	sprintf( changes, "P%g,W3,Ef", 14.0+psdel );
	FontGroupDef( "f", changes );
	sprintf( changes, "P%g,W3,El", 15.0+psdel );
	FontGroupDef( "l", changes );
	sprintf( changes, "P%g,W2,Ep", 12.0+psdel );
	FontGroupDef( "p", "P12,W2,Ep" );
	sprintf( changes, "P%g,W4,Et", 16.0+psdel );
	FontGroupDef( "t", changes );
}


MakeGraphTitle( argv )
char	*argv[];
{
long	time(), seconds;
Ptype	n, x, y, xsize, ysize;
char	*ptr, *ctime(), *getenv(), str[50], titleText[120];

	if( !(omode & TITLES) )
		return;
			
	if( title.text == 0 ) {
		titleText[0] = 0;
		while( *argv ) {
			strcat(titleText, *argv++);
			strcat(titleText, " " );
		}
		if( strlen(titleText) > 0 )
			strcat( titleText, "-- <" );

		ptr = getenv( "LOGNAME" );
		if( ptr ) {
			strcat( titleText, ptr );
			strcat( titleText, "-" );
		}

		time( &seconds );
		ptr = ctime( &seconds );
		n = (ptr[8] == ' ') ? 9 : 8;
		sprintf( str, "%.5s-%.4s%d>",
			&ptr[11], &ptr[4], atoi(&ptr[n]) );
		strcat( titleText, str );
		title.text = titleText;
	}
	else
		if( strlen(title.text) == 0 )
			return;

	FontGroupSelect( "t", title.fgName );

	x = (xwmin + xwmax)/2;
	if( theight == 0 ) {
		strsize( title.text, &xsize, &ysize, 0.0 );
		y = ywmax + (int)((yfract+0.4)*ysize + yfract*yinch/12);
		title.just = "CB";
	}
	else
		y = ywmin + (int)((ywmax-ywmin)*theight);

	plabel( title.text, x, y, title.just, 0.0 );
}

/****************** Output user defined labels ***********************/

TextDraw( l )
LblPtr	l;
{
short	n, nc, x, y, xsize, ysize;
char	c, lbl[MAXLINE];

	if( l->text == 0 || *l->text == 0 )
		return;

	FontGroupSelect( "l", l->fgName );
	transform( &x, &y, l->xpos, l->ypos, 0.5, l->coord );

	nc = 0;
	c = 1;
	while( c ) {
		n = 0;
		do {	c = l->text[nc++];
			lbl[n++] = (c == '\n') ? 0 : c;
		} while( c && c != '\n');

		plabel( lbl, x, y, l->just, l->angle );
		strsize( lbl, &xsize, &ysize, l->angle );
		if( fabs(l->angle) < 1 )
			y -= ysize;
		else	x += xsize;
	}
}

/******* Read plotting labels for text scatterplots **********/

ReadStrings( ps )	/* can be called to add to ps also */
PStrPtr	ps;
{
FILE	*fp;
short	k;
char	c, *str, line[200];

	if( ps->file ) {
		fp = fopen( ps->str, "r" );
		if( fp == 0 )
			err( YES, "Can't open string file %s", ps->str );
	}
	else	str = ps->str;

	while( YES ) {
		if( ps->file ) {
			if( fgets(line,sizeof(line),fp) == NULLS )
				break;
			k = strlen(line);
			if( line[k-1] == '\n' )
				line[k-1] = 0;
		}
		else {	if( *str == 0 )
				break;
			for( k=0;  (c=str[k]) && c != ' ' && c != '\n'; k++ )
				line[k] = c;
			line[k] = 0;
			str += (c == 0) ? k : k+1;
		}
		if( ps->n == ps->nmax )
			ps->list = (char **)azmem(ps->list,&ps->nmax,50,sizeof(*ps->list) );
		ps->list[ps->n++] = StringSave( line );
	}

	ps->just = (ps->just == 0) ? "CC" : JustMap( ps->just );

	if( ps->file )
		fclose( fp );
}

/******** Map user specified justification to a two character string *********/

char	*JustMap( userJust )
char	*userJust;
{
static	char	just[3];
short	n;

	for( n=0;  n < 2;  n++ ) {
		just[n] = (userJust[n] == 0) ? 0 : userJust[n];
		if( just[n] >= 'a' && just[n] <= 'z' )
			just[n] &= ~040;
	}

	if( just[0] == 'C' && just[1] == 0 )
			return( "CC" );		
	else	if(  just[1] == 0 && (just[0] == 'L' || just[0] == 'D') )
			return( "LB" );		
	else	if(  just[1] == 0 && (just[0] == 'R' || just[0] == 'U') )
			return( "RB" );		

	return( StringSave(just) );
}

/*************** Set font type, point size, etc ******************/

FontGroupSelect( dflt_fgName, fgName )
char	*dflt_fgName, *fgName;
{
PtrUnion	arg0, arg1;
FgPtr		fg;
double		scl;

	if( fgName != 0 ) {
		if( (fg=FontGroupFind(fgName,NO)) == 0 )
			/* use fgName as changes to make to default fgroup */
			fg = FontGroupCat( dflt_fgName, fgName );
	}
	else {
		if( dflt_fgName == 0 )
			err( YES, "Bad call to FontGroupSelect()" );
		fg = FontGroupFind( dflt_fgName, YES );
	}

	arg0.c = fg->gelem;
	special( GRAPHELEMENT, arg0, arg1 );

	if( strcmp(old_lm,fg->lm) != 0 ) { /* must precede to point size set */
		arg0.c = fg->lm;
		special( SETLINEMODE, arg0, arg1 );
	}
	arg0.c = fg->color;
	special( SETCOLOR, arg0, arg1 );

	if( oldGrayLevel < 0 || oldGrayLevel != fg->gray ) {
		oldGrayLevel = fg->gray;
		arg0.d = &oldGrayLevel;
		special( SETGRAY, arg0, arg1 );
	}
	if( old_lw < 0 ||  old_lw != fg->lw ) {
		old_lw = fg->lw;
		arg0.d = &old_lw;
		special( SETLINEWIDTH, arg0, arg1 );
	}

	if( fixed_font || (old_font != 0 &&
		strcmp(fg->font,old_font) == 0 && fg->ps == old_ps) )
			return;

	scl  = fg->ps/default_ps;
	chht = p->ch * scl + 0.5;
	chwd = p->cw * scl + 0.5;

	old_font = fg->font;
	old_ps = fg->ps;
	arg0.c = old_font;
	arg1.d = &old_ps;
	special( SETFONT, arg0, arg1 );
}

/****** Define the parameters for a font group ********/

FontGroupDef( fgName, specs )
char	*fgName, *specs;
{
FgPtr	fg;

	if( specs == 0 )
		return;

	if( fgName == 0 || strcmp(fgName,"all") == 0 ) {
		FontGroupDef( "a", specs );
		FontGroupDef( "f", specs );
		FontGroupDef( "l", specs );
		FontGroupDef( "p", specs );
		FontGroupDef( "t", specs );
	}	
	else {	if( (fg=FontGroupFind(fgName, NO)) == 0 )
			fg = FontGroupInit( fgName );

		FontGroupModify( fg, specs );
	}
}

/****** Create a new font group as a modified version of an old one ******/

FgPtr	FontGroupCat( fgName, changes )
char	*fgName, *changes;
{
FgPtr	fg, FontGroupInit();
char	newfgName[MAXLINE];

	sprintf( newfgName, "%s%s", fgName, changes );
	fg = FontGroupFind( newfgName, NO );
	if( fg != 0 )
		return( fg );

	fg = FontGroupInit( newfgName );
	*fg = *FontGroupFind( fgName, YES );
	fg->name = StringSave( newfgName );

	FontGroupModify( fg, changes );
	return( fg );
}

/***** Modify an existing font group according to the specs in `changes' ****/

FontGroupModify( fg, changes )
FgPtr	fg;
char	*changes;
{
FgPtr	fgnew;
short	errFlag;
char	*cp, *fgName;

	errFlag = NO;
	cp = changes;

	if( *cp == '(' || *cp == '[' )
		cp++;

	while( *cp ) {
		if( *cp == ')' || *cp == ']' ) {
			cp++;
			while( *cp == ' ' )
				cp++;
			if( *cp == 0 )
				break;
			/* go get the error */
		}
		switch( *cp++ ) {
			case ' ':
			case ',':
			case '\t':
				break;
			case GCOLOR:
				errFlag |= !getstr( &cp, &fg->color );
				break;
			case GELEMENT:
				errFlag |= !getstr( &cp, &fg->gelem );
				break;
			case GFONT:
				errFlag |= !getstr( &cp, &fg->font );
				break;
			case GGRAY:
				errFlag |= !getdbl(&cp,&fg->gray);
				if( fg->gray > 1)
					fg->gray = 1;
				break;
			case GLINEMODE:
				errFlag |= !getstr( &cp, &fg->lm );
				checklm( fg );
				break;
			case GPS:
				errFlag |= !getdbl( &cp, &fg->ps );
				break;
			case GLINEWIDTH:
				errFlag |= !getdbl( &cp, &fg->lw );
				break;
		   default:
				cp--;
				errFlag |= !getstr( &cp, &fgName );
				fgnew = FontGroupFind( fgName, NO );
				if( fgnew == 0 )
					errFlag = YES;
				else {
					fgName = fg->name;
					*fg = *fgnew;
					fg->name = fgName;
				}
				break;
		}

		if( errFlag ) {
			err( YES, "Font group syntax error `%s'", changes );
			break;
		}
	}
}


FgPtr	FontGroupFind( fgName, mustFind )
char	*fgName;
Boolean	mustFind;
{
FgPtr	fg;
short	n;
	
	for( n=0;  n < nfgrps;  n++ ) {
		fg = &fgrps[n];
		if( strcmp(fg->name,fgName) == 0 )
			return( fg );
	}
	if( mustFind )
		err( YES, "No font group `%s'", fgName );
	return( 0 );
}


FgPtr	FontGroupInit( fgName )
char	*fgName;
{
FgPtr	fg;

	if( nfgrps == maxfgrps )		
		fgrps = (FgPtr)azmem(fgrps,&maxfgrps,6,sizeof(*fgrps));

	fg = &fgrps[nfgrps++];
	fg->name = fgName;
	fg->font = DEFAULT_FONT;
	fg->ps = DEFAULT_PS;
	fg->lw = DEFAULT_LW;
	fg->gray = PS_BLACK;
	fg->lm = "solid";
	fg->color = "";
	fg->gelem = "";
	return( fg );
}


getstr( cpp, strp )
char	**cpp, **strp;
{
short	n;
char	*cp, str[MAXLINE];

	while( **cpp == ' ' )
		(*cpp)++;
	n = 0;
	cp = *cpp;
	while( *cp ) {
		if( *cp == ' ' || *cp == ',' || *cp == ')' || *cp == ']' )
			break;
		str[n++] = *cp++;
	}
	str[n] = 0;

	if( *cpp != cp ) {
		*cpp = cp;
		*strp = StringSave( str );
		return( YES );
	}
	else	return( NO );

}


getdbl( cpp, dblp )
char	**cpp;
double	*dblp;
{
double	dbl, dec;
char	*cp, operation;

	while( **cpp == ' ' )
		(*cpp)++;
	dbl = 1e-6;
	cp = *cpp;

	if( *cp == '+' || *cp == '-' || *cp == '*' || *cp == '/' )
		operation = *cp++;
	else
		operation = 0;

	while( *cp >= '0' && *cp <= '9' ) {
		dbl = 10*dbl + ((*cp++ -'0')&0177);
	}

	if( *cp == '.' ) {
		dec = .1;
		cp++;
		while( *cp >= '0' && *cp <= '9' ) {
			dbl += dec * ((*cp++ -'0')&0177);
			dec *= 0.1;
		}
	}

	if( *cpp != cp ) {
		*cpp = cp;
		switch( operation ) {
			case '+':	*dblp += dbl;	break;
			case '-':	*dblp -= dbl;	break;
			case '*':	*dblp *= dbl;	break;
			case '/':	*dblp /= dbl;	break;
			default:	*dblp = dbl;	break;
		}
		return( YES );
	}
	else	return( NO );
}


checklm( fg )
FgPtr	fg;
{
static	struct	{
	char	*name;
	short	n;
	}	*l, lm[] = {	/* the first 5 must appear first !!!!!!! ... */
	"solid", 0, "dotted", 1, "shortdashed", 2,
	"dotdashed", 3, "longdashed", 4, 
	"0", 0, "1", 1, "2", 2, "3", 3, "4", 4, "5", 5,
	"dash", 2 };
short	n;

	for( l=lm;  l < ENDP(lm);  l++ ) {
		n = strlen(fg->lm);
		if( strcmp(l->name,fg->lm) == 0 || strncmp(l->name,fg->lm,n) == 0 ) {
			fg->lm = lm[l->n].name;	/* ... and this is why !!!!!!!! */
			return;
		}
	}
	err( YES, "No linemode type `%s'", fg->lm );
}