version 1.47, 2021/11/02 15:29:41 |
version 1.48, 2022/06/03 19:42:27 |
|
|
|
|
void setclvar(char *s) /* set var=value from s */ |
void setclvar(char *s) /* set var=value from s */ |
{ |
{ |
char *p; |
char *e, *p; |
Cell *q; |
Cell *q; |
double result; |
double result; |
|
|
for (p=s; *p != '='; p++) |
for (p=s; *p != '='; p++) |
; |
; |
|
e = p; |
*p++ = 0; |
*p++ = 0; |
p = qstring(p, '\0'); |
p = qstring(p, '\0'); |
q = setsymtab(s, p, 0.0, STR, symtab); |
q = setsymtab(s, p, 0.0, STR, symtab); |
|
|
q->tval |= NUM; |
q->tval |= NUM; |
} |
} |
DPRINTF("command line set %s to |%s|\n", s, p); |
DPRINTF("command line set %s to |%s|\n", s, p); |
|
*e = '='; |
} |
} |
|
|
|
|