void
plot_add(struct plot *pl)
{
struct dvec *v;
struct plot *tp;
char *s, buf[BSIZE_SP];
fprintf(cp_out, "Title: %s\nName: %s\nDate: %s\n\n", pl->pl_title,
pl->pl_name, pl->pl_date);
if (plot_cur)
plot_cur->pl_ccom = cp_kwswitch(CT_VECTOR, pl->pl_ccom);
for (v = pl->pl_dvecs; v; v = v->v_next)
cp_addkword(CT_VECTOR, v->v_name);
cp_addkword(CT_VECTOR, "all");
if ((s = ft_plotabbrev(pl->pl_name)) == NULL)
s = "unknown";
do {
(void) sprintf(buf, "%s%d", s, plot_num);
for (tp = plot_list; tp; tp = tp->pl_next)
if (cieq(tp->pl_typename, buf)) {
plot_num++;
break;
}
} while (tp);
pl->pl_typename = copy(buf);
plot_new(pl);
cp_addkword(CT_PLOT, buf);
pl->pl_ccom = cp_kwswitch(CT_VECTOR, NULL);
plot_setcur(pl->pl_typename);
}
void
plot_setcur(char *name)
{
struct plot *pl;
if (cieq(name, "new")) {
pl = plot_alloc("unknown");
pl->pl_title = copy("Anonymous");
pl->pl_name = copy("unknown");
pl->pl_date = copy(datestring());
plot_new(pl);
plot_cur = pl;
return;
}
for (pl = plot_list; pl; pl = pl->pl_next)
if (plot_prefix(name, pl->pl_typename))
break;
if (!pl) {
fprintf(cp_err, "Error: no such plot named %s\n", name);
return;
}
/* va: we skip cp_kwswitch, because it confuses the keyword-tree management for
* repeated op-commands. When however cp_kwswitch is necessary for other
* reasons, we should hold the original keyword table pointer in an
* permanent variable, since it will lost here, and can never tfree'd.
if (plot_cur)
{
plot_cur->pl_ccom = cp_kwswitch(CT_VECTOR, pl->pl_ccom);
}
*/
plot_cur = pl;
}
