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

cpitf.c, cleanup using wl_ functions

This commit is contained in:
rlar 2012-07-19 20:15:30 +02:00
parent 3062e25184
commit 75d6f6da5e
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/frontend/cpitf.c
View File

@ -27,8 +27,6 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
void
ft_cpinit(void)
{
wordlist *wl;
wordlist wl1, wl2, wl3;
bool found = FALSE, t = TRUE;
char buf[BSIZE_SP], **x, *s, *r,*copys;
struct comm *c;
@ -176,6 +174,9 @@ ft_cpinit(void)
/* Make vectors from values in predefs[] for the current plot.
Define functions from entries in udfs[] (like user defined functions).
*/
{
wordlist wl1, wl2, wl3;
wl1.wl_next = &wl2;
wl1.wl_prev = NULL;
wl2.wl_next = NULL;
@ -211,6 +212,7 @@ ft_cpinit(void)
wl2.wl_word = udfs[i + 1];
com_define(&wl1);
}
}
/* Reset this for the front end. */
cp_hash = '*';
@ -225,10 +227,14 @@ ft_cpinit(void)
(void) sprintf(buf, "sourcepath = ( %s %s %s )", DIR_CWD, Lib_Path, Inp_Path);
else
(void) sprintf(buf, "sourcepath = ( %s %s )", DIR_CWD, Lib_Path);
{
wordlist *wl;
wl = cp_doglob(cp_lexer(buf));
cp_striplist(wl);
com_set(wl);
wl_free(wl);
}
/* Now source the standard startup file spinit or tclspinit. */
@ -352,7 +358,6 @@ cp_oddcomm(char *s, wordlist *wl)
{
FILE *fp;
char buf[BSIZE_SP];
wordlist ww;
if ((fp = inp_pathopen(s, "r")) != NULL) {
(void) fclose(fp);
@ -369,11 +374,10 @@ cp_oddcomm(char *s, wordlist *wl)
cp_remvar("argv");
return (TRUE);
} else if (wl && eq(wl->wl_word, "=")) {
ww.wl_next = wl;
wl->wl_prev = &ww;
ww.wl_prev = NULL;
ww.wl_word = s;
com_let(&ww);
wordlist *ww = wl_cons(copy(s), wl);
com_let(ww);
wl_chop_rest(ww);
wl_free(ww);
return (TRUE);
} else
return (FALSE);