#include "ngspice/ngspice.h"
#include "ngspice/bool.h"
#include "ngspice/dvec.h"

#include "com_setscale.h"
#include "quote.h"
#include "ngspice/cpextern.h"
#include "vectors.h"
#include "plotting/plotting.h"
#include "plotting/pvec.h"
#include "ngspice/fteext.h"


/* Set the default scale to the named vector.  If no vector named,
 * find and print the default scale.  */
void
com_setscale(wordlist *wl)
{
    struct dvec *d;
    char *s;

    if (plot_cur) {
	if (wl) {
	    s = cp_unquote(wl->wl_word);
	    d = vec_get(s);
            if(s) tfree(s);/*DG to avoid the cp_unquote memory leak */
	    if (d == NULL)
		fprintf(cp_err, "Error: no such vector as %s.\n", 
			wl->wl_word);
	    else
		plot_cur->pl_scale = d;
	} else if (plot_cur->pl_scale) {
	    pvec(plot_cur->pl_scale);
	}
    } else {
	fprintf(cp_err, "Error: no current plot.\n");
    }
}