138 lines
2.3 KiB
C
138 lines
2.3 KiB
C
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1987 Jeffrey M. Hsu
|
|
**********/
|
|
|
|
/*
|
|
This files contains the routines to evalute arguments to a command
|
|
and prompt the user if necessary.
|
|
*/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/fteinput.h"
|
|
#include "ngspice/cpdefs.h"
|
|
#include "ngspice/fteext.h"
|
|
|
|
#include "arg.h"
|
|
#include "variable.h"
|
|
|
|
|
|
static void common(char *string, struct wordlist *wl, struct comm *command);
|
|
|
|
|
|
/* returns a private copy of the string */
|
|
|
|
char *
|
|
prompt(FILE *fp)
|
|
{
|
|
char buf[100];
|
|
char *p;
|
|
size_t n;
|
|
|
|
if (!fgets(buf, sizeof(buf), fp))
|
|
return NULL;
|
|
n = strlen(buf) - 1;
|
|
buf[n] = '\0'; /* fgets leaves the \n */
|
|
p = TMALLOC(char, n + 1);
|
|
strcpy(p, buf);
|
|
return p;
|
|
}
|
|
|
|
|
|
int
|
|
countargs(wordlist *wl)
|
|
{
|
|
int number = 0;
|
|
wordlist *w;
|
|
|
|
for (w = wl; w; w = w->wl_next)
|
|
number++;
|
|
|
|
return (number);
|
|
}
|
|
|
|
|
|
wordlist *
|
|
process(wordlist *wlist)
|
|
{
|
|
wlist = cp_variablesubst(wlist);
|
|
wlist = cp_bquote(wlist);
|
|
wlist = cp_doglob(wlist);
|
|
return (wlist);
|
|
}
|
|
|
|
|
|
void
|
|
arg_print(wordlist *wl, struct comm *command)
|
|
{
|
|
common("which variable", wl, command);
|
|
}
|
|
|
|
|
|
void
|
|
arg_plot(wordlist *wl, struct comm *command)
|
|
{
|
|
common("which variable", wl, command);
|
|
}
|
|
|
|
|
|
void
|
|
arg_load(wordlist *wl, struct comm *command)
|
|
{
|
|
/* just call com_load */
|
|
command->co_func(wl);
|
|
}
|
|
|
|
|
|
void arg_let(wordlist *wl, struct comm *command)
|
|
{
|
|
common("which vector", wl, command);
|
|
}
|
|
|
|
|
|
void
|
|
arg_set(wordlist *wl, struct comm *command)
|
|
{
|
|
common("which variable", wl, command);
|
|
}
|
|
|
|
|
|
void
|
|
arg_display(wordlist *wl, struct comm *command)
|
|
{
|
|
NG_IGNORE(wl);
|
|
NG_IGNORE(command);
|
|
|
|
/* just return; display does the right thing */
|
|
}
|
|
|
|
|
|
/* a common prompt routine */
|
|
static void
|
|
common(char *string, struct wordlist *wl, struct comm *command)
|
|
{
|
|
struct wordlist *w;
|
|
char *buf;
|
|
|
|
if (!countargs(wl)) {
|
|
outmenuprompt(string);
|
|
if ((buf = prompt(cp_in)) == NULL) /* prompt aborted */
|
|
return; /* don't execute command */
|
|
/* do something with the wordlist */
|
|
w = wl_cons(buf, NULL);
|
|
|
|
w = process(w);
|
|
/* O.K. now call fn */
|
|
command->co_func(w);
|
|
}
|
|
}
|
|
|
|
|
|
void
|
|
outmenuprompt(char *string)
|
|
{
|
|
fprintf(cp_out, "%s: ", string);
|
|
fflush(cp_out);
|
|
return;
|
|
}
|