/* plt/optn2.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 "optn.h"
#include "plot.h"
#include "axis.h"
#include "figs.h"
#include "text.h"
#define H(STRING) STRING
#define MATCH(CODE) ( !match && (match = !strcmp(CODE,o->name)) )
#define IF(STR,CMD) { if( !match && strcmp(STR,o->name) == 0 ) CMD; }
#define P(ITEM) (char *)(&ITEM)
#define PP(ITEM) (char **)(&ITEM)
#define NOFG ((char **)0)
static double d0, d1, d2, d3;
static long l0, l1, l3;
static char *s0, *s1, *s2, *s3, *s4;
static OptInfo otable[] = {
{ "p", H("specify (plotmodes) -- /ceEilmnsSt,0-9/"),
1, 1, SPECIAL|ALLINE, "+s", NOFG, P(s0) },
{ "s", H("supress (parts) of graph -- eflnmtpxyBCXY"),
1, 1, SPECIAL|ALLINE, "+s", NOFG, P(s0) },
{ "X", H("x axis (min) (max) -- use xa instead"),
1, 2, FIELDS, "FF", PP(xa.numfg), P(xa.min), P(xa.max) },
{ "Y", H("y axis (min) (max) -- use ya instead"),
1, 2, FIELDS, "FF", PP(ya.numfg), P(ya.min), P(ya.max) },
{ "t", H("graph (title)"),
0, 1, ALLINE, "+S", PP(title.fgName), P(title.text) },
{ "T", H("graph device is (PTERM)"),
1, 1, FIELDS, "s", NOFG, P(pterm) },
{ "g", H("specify tic mark grid (instructions)"),
0, 1, ALLINE, "s", PP(gridfg), P(gridtype) },
{ "h", H("help on (option) (option) ..."),
0, 4, SPECIAL|HELPTHEM, "+sssss", NOFG, P(s0), P(s1), P(s2), P(s3), P(s4) },
{ "a", H("arrow to data (x0) (y0) from (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "A", H("arrow to window (x0) (y0) from (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "b", H("box data at (x0) (y0) to (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "B", H("box at window (x0) (y0) to (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "c", H("connect from data (x0) (y0) to (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "C", H("connect from window (x0) (y0) to (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "d", H("dark box data at (x0) (y0) to (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "D", H("dark box at window (x0) (y0) to (x1) (y1)"),
0, 4, SPECIAL|FIGURE, "+FFFF", PP(fgs), P(d0), P(d1), P(d2), P(d3) },
{ "l", H("label at data (x) (y) with (just) (text)"),
3, 4, SPECIAL|SLABEL|ALLINE4, "+FFss", PP(fgs), P(d0), P(d1), P(s2), P(s3) },
{ "L", H("label at window (x) (y) with (just) (text)"),
3, 5, SPECIAL|SLABEL|ALLINE4, "+FFss", PP(fgs), P(d0), P(d1), P(s2), P(s3) },
{ "w", H("plot in window (configuration) (subwindow)"),
1, 2, SPECIAL, "+ss", NOFG, P(s0), P(s1) },
{ "W", H("plot in device window (x0) (y0) (x1) (y1)"),
1, 4, FIELDS, "FFFF", NOFG, P(xwmins), P(ywmins), P(xwmaxs), P(ywmaxs) },
{ "f", H("format (file)"),
1, 1, SPECIAL, "+s", NOFG, P(s0) },
{ "fa", H("write axis information to format (file)"),
1, 1, FIELDS, "s", NOFG, P(axisfile) },
{ "F", H("format (string)"),
1, 1, SPECIAL, "+s", NOFG, P(s0) },
{ "n", 0,
2, 2, SPECIAL|ALLINE2, "+ls", PP(fgs), P(l0), P(s1) },
{ "o", H("supress all output except plots"),
0, 0, SPECIAL, "" },
{ "cz", H("generate column 0 using (xfrom) and (xincr)"),
0, 2, FIELDS, "yFF", NOFG, P(Plot.xDrive), P(Plot.xFrom), P(Plot.xIncr) },
{ "ex", H("don't exclude points outside axis limits"),
0, 0, FIELDS, "n", NOFG, P(Plot.exclude) },
{ "hl", H("horizontal label at window (x) (y) (just) (lines) (file)"),
0, 5, NOTARGV|SLABEL, "+FFsls", PP(fgs), P(d0), P(d1), P(s2), P(l3), P(s4) },
{ "vl", H("vertical label at window (x) (y) (just) (lines) (file)"),
0, 5, NOTARGV|SLABEL, "+FFsls", PP(fgs), P(d0), P(d1), P(s2), P(l3), P(s4) },
{ "le", H("legend (entry #) is (plot #) with (text)"),
1, 3, SPECIAL|ALLINE3, "+llS", NOFG, P(l0), P(l1), P(s2) },
{ "lp", H("put legend at window (x) (y) with (boxScl) (segLen) (erase)"),
1, 5, FIELDS, "FFFFS", PP(Figure.legfg), P(Figure.xlPos), P(Figure.ylPos),
P(Figure.xlBoxScl), P(Figure.xlDel), P(Figure.eStat) },
{ "lx", H("log x axis with (base) and (subtics?)"),
0, 2, FIELDS, "yss", PP(xa.numfg), P(xa.logflg), P(xa.base), P(xa.extra) },
{ "ly", H("log y axis with (base) and (subtics?)"),
0, 2, FIELDS, "yss", PP(ya.numfg), P(ya.logflg), P(ya.base), P(ya.extra) },
{ "tf", H("use plot text from (file) with (just)"),
1, 2, FIELDS, "yss", NOFG, P(pstr.file), P(pstr.str), P(pstr.just) },
{ "ts", H("use plot text from (string) with (just)"),
1, 2, ALLINE, "ss", NOFG, P(pstr.str), P(pstr.just) },
{ "fs", H("take font group strings from (string)"),
1, 1, ALLINE, "s", NOFG, P(fgstr.str)},
{ "x", H("x axis (title)"),
0, 1, ALLINE, "+S", PP(xa.lblfg), P(xa.lbl), },
{ "xa", H("x axis (min) (max) (tic) (fmt) (tskip) (cross)"),
1, 6, FIELDS, "FFFslF", PP(xa.numfg), P(xa.min), P(xa.max), P(xa.tic),
P(xa.pfm), P(xa.skp), P(xa.cr) },
{ "xe", H("allowed error in (xmin) and (xmax)"),
1, 2, FIELDS, "FF", NOFG, P(xa.acclo), P(xa.acchi) },
{ "xm", H("make x axis tics a multiple of (num)" ),
1, 1, FIELDS, "F", PP(xa.numfg), P(xa.mlt) },
{ "xo", H("move x axis down by (xwfract)"),
1, 1, FIELDS, "F", NOFG, P(xa.aoff) },
{ "xr", H("reverse x axis tics and labels"),
0, 0, FIELDS, "y", NOFG, P(xa.rev) },
{ "xt", H("add x axis tic at (pos) with (label)"),
1, 3, SPECIAL,"+FsF", PP(fgs), P(d0), P(s1), P(d2) },
{ "xts", H("specify x tic (anchor) (scl)"),
1, 2, FIELDS,"FF", NOFG, P(xa.tmark), P(xa.tscl) },
{ "y", H("y axis (title)"),
0, 1, ALLINE, "+S", PP(ya.lblfg), P(ya.lbl), },
{ "ya", H("y axis (min) (max) (tic) (fmt) (tskip) (cross)"),
1, 6, FIELDS, "FFFslF", PP(ya.numfg), P(ya.min), P(ya.max), P(ya.tic),
P(ya.pfm), P(ya.skp), P(ya.cr) },
{ "ye", H("allowed error in (ymin) and (ymax)"),
1, 2, FIELDS, "FF", NOFG, P(ya.acclo), P(ya.acchi) },
{ "ym", H("make y axis tics a multiple of (num)" ),
1, 1, FIELDS, "F", PP(ya.numfg), P(ya.mlt) },
{ "yo", H("move y axis over by (ywfract)"),
1, 1, FIELDS, "F", NOFG, P(ya.aoff) },
{ "yr", H("reverse y axis tics and labels"),
0, 0, FIELDS, "y", NOFG, P(ya.rev) },
{ "yt", H("add y axis tic at (pos) with (label)"),
1, 3, SPECIAL,"+FsF", PP(fgs), P(d0), P(s1), P(d2) },
{ "yts", H("specify y tic (anchor) (scl)"),
1, 2, FIELDS, "FF", NOFG, P(ya.tmark), P(ya.tscl) },
{ "dev", H("if PTERM is (pterm) process (options)"),
2, 2, SPECIAL|ALLINE2, "+ss", NOFG, P(s0), P(s1) },
{ "tic", 0,
0, 1, FIELDS, "y", NOFG, P(ticlogic) },
{ "sf", H("set (fgroup) to (specs) using FPCGWLE"),
2, 2, SPECIAL|ALLINE2, "+ss", NOFG, P(s0), P(s1) },
{ "ch", H("scale factor for char (height) (width)"),
1, 2, FIELDS, "FF", NOFG, P(chhtscl), P(chwdscl) },
{ "size", H("specify page (fscale) (x1-x0) (y1-y0) (x0) (y0)"),
1, 5, FIELDS, "FFFFF", NOFG, P(fscl), P(xdim), P(ydim), P(xorig), P(yorig) },
{ "data", 0,
1, 6, FIELDS, "+ssssss", NOFG, P(df[0]), P(df[1]), P(df[2]), P(df[3]), P(df[4]), P(df[5]) },
{ "optn", 0,
0, 1, FIELDS, "y", NOFG, P(optn) },
{ "", 0, /* Options beyondn here can't give "help" */
0, 0, COMMENT },
};
Options() /* Read options from format string or file */
{
OptPtr o;
short c, n, nflds, status;
char obj[MAXLINE], *s[MAXFLDS];
while( !(in_obj(obj,sizeof(obj),IN_OBJ|SAVE_TERM) == (END_LINE+END_INPUT)) ) {
if( optn )
eprintf( "OPTION: `%s'\n", obj );
if( obj[0] == '#' ) {
do { c = in_char();
} while( c != '\n' && c != EOF );
continue;
}
else
o = lookup( obj );
do { c = in_char();
} while( c == ' ' || c == '\t' );
fgs = NULLS;
if( o->fgnamep && c == '(' || c == '[' ) {
n = 0; /* get inline font group spec */
do {
c = in_char();
obj[n++] = c;
if( c == '\n' ) {
in_unchar( (short)c );
break;
}
} while( c != EOF && c != ']' && c != ')' );
if( c != ']' && c != ')' )
err( YES, "Unterminated fgroup spec for `%s'", o->name );
obj[n-1] = 0;
*o->fgnamep = StringSave( obj );
do { c = in_char();
} while( c == ' ' || c == '\t' );
}
in_unchar( (short)c );
n = (o->mode & ALLMASK);
if( n > 0 ) {
nflds = status = 0;
while( nflds < n-1 && !(status&END_LINE) ) {
status = in_obj( obj, sizeof(obj), IN_OBJ|SAVE_TERM );
if( status & HAVE_OBJ )
s[nflds++] = StringSave( obj );
}
if( in_obj(obj,sizeof(obj),SEMI_TERM) & HAVE_OBJ )
s[nflds++] = StringSave( obj );
}
else
nflds = in_parse( s, MAXFLDS, obj, sizeof(obj) );
if( (o->mode & TYPEMASK) == SLABEL ) {
SetParams( o, s, nflds );
slabel( o );
}
else
OneLiner( o, s, nflds );
}
}
slabel( o ) /* process the hl, vl, l, and L options */
OptPtr o;
{
LblPtr l;
Uint len, maxlen;
short n, nc, nlines, status;
char text[MAXLINE];
if( nlbls == maxlbls )
lbls = (LblPtr)azmem(lbls,&maxlbls,5,sizeof(*lbls));
l = &lbls[nlbls++];
if( strcmp(o->name,"l") == 0 || strcmp(o->name,"L") == 0 ) {
l->xpos = d0;
l->ypos = d1;
l->just = (s2 == NULLS) ? "CC" : JustMap(s2);
l->text = (s3 == NULLS) ? "" : s3;
l->fgName = fgs;
l->coord = (strcmp(o->name,"l") == 0) ? DATAC : WINC;
return;
}
if( s4 != NULLS ) {
in_file( s4, YES );
nlines = (l3 == DEFAULT) ? 1000 : l3;
}
else
nlines = (l3 == DEFAULT) ? 1 : l3;
l->text = 0;
l->xpos = d0;
l->ypos = d1;
l->angle = (o->name[0] == 'h') ? 0 : 90;
l->fgName = fgs;
l->coord = WINC;
if( s2 == 0 )
l->just = nlines > 1 ? "LB": "CB";
else
l->just = JustMap( s2 );
maxlen = nc = 0;
for( n=0; n < nlines; n++ ) {
status = in_obj( text, sizeof(text), SEMI_TERM );
if( status == (END_LINE+END_INPUT) || strcmp(text,"<END>") == 0 )
break;
len = strlen(text);
l->text = azmem( l->text, &maxlen, len+1, sizeof(char) );
if( n > 0 )
l->text[nc++] = '\n';
strcpy( &l->text[nc], text );
nc += len;
}
if( l->text == NULLS )
l->text = "";
else
l->text[nc++] = 0;
if( s4 != NULLS )
in_close( (short)1 );
}
OneLiner( o, s, nflds) /* process simple, (i.e. one line) options */
register OptPtr o;
char *s[];
{
short n;
char match;
if( nflds < o->minflds )
err( YES, "Too few fields for `%s'", o->name );
match = NO;
SetParams( o, s, nflds );
if( o->mode & SPECIAL ) {
switch( o->mode & TYPEMASK ) {
case 0:
IF( "dev", SetPTERMSpecificOpt(s0, s1) );
IF( "f", FileOptions(s0) );
IF( "F", StringOptions(s0) );
IF( "le", LegendDef(l0, l1, s2) );
IF( "n", PlotNameDef(l0,s1) );
IF( "o", SupressionDef("xyte") );
IF( "p", Plot.pModes=s0 );
IF( "s", SupressionDef(s0) );
IF( "sf", FontGroupDef(s0,s1) );
IF( "xt", TicDef(&xa, d0, s1, d2, YES) );
IF( "yt", TicDef(&ya, d0, s1, d2, YES) );
IF( "w", WindowDef(s0, s1) );
break;
case SLABEL:
slabel( o );
case COMMENT:
break;
case FIGURE:
n = (*o->name & 040) ? DATAC : WINC;
FigureDef((*o->name& ~040), n, d0, d1, d2, d3, fgs );
break;
case HELPTHEM:
optnHelp( otable, s, nflds );
break;
default:
err( YES, "Missing special case `%s'", o->name );
}
}
}
OptPtr lookup( opt )
char *opt;
{
register OptPtr o;
for( o=ENDP(otable)-1; o >= otable; o-- ) {
if( strcmp(o->name,opt) == 0 )
return( o );
}
err( YES, "Illegal option `%s'", opt );
return( NO ); /* for lint */
}
OptPtr lookup2( argv, np )
char *argv[];
short *np;
{
register OptPtr o;
register char *opt;
opt = ++argv[*np];
for( o=ENDP(otable)-1; o >= otable; o-- ) {
if( o->name[1] == 0 && *opt == o->name[0] ) {
if( *(++argv[*np]) == 0 )
argv[(*np)++] = 0;
return( o );
}
else {
if( strcmp(o->name,opt) == 0 ) {
argv[(*np)++] = 0;
return( o );
}
}
}
err( YES, "Illegal option: `%s'", opt );
return( NO ); /* for lint */
}