luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

By using '$.parametername' in a control section, it is now possible to access parameters specified with .param.

This commit is contained in:
mhx 2016-12-30 13:52:39 +01:00
parent 4804b7e30b
commit 0c87e6600c
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/frontend/variable.c
View File

@ -18,6 +18,7 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
#include "quote.h"
#include "ngspice/cpextern.h"
#include "variable.h"
#include "numparam/numpaif.h"
bool cp_noglob = TRUE;
@ -718,7 +719,8 @@ vareval(char *string)
char buf[BSIZE_SP], *s;
char *oldstring = copy(string);
char *range = NULL;
int i, up, low;
int i, up, low, found;
double val;
cp_wstrip(string);
if ((s = strchr(string, '[')) != NULL) {
@ -783,6 +785,18 @@ vareval(char *string)
free_struct_variable(vfree); /* bug: free still used struct variable */
return (wl);
case '.': /* mhx: evaluate parameters */
string++;
val = nupa_get_param(string, &found);
if (!found) {
fprintf(cp_err, "ERROR: %s: no such parameter.\n", string);
tfree(oldstring);
return NULL;
}
wl = wl_cons(tprintf("%20.16e", val), NULL);
tfree(oldstring);
return wl;
case '\0':
wl = wl_cons(copy("$"), NULL);
tfree(oldstring);