diff --git a/src/frontend/com_dump.c b/src/frontend/com_dump.c index d692a46b0..25caa31b2 100644 --- a/src/frontend/com_dump.c +++ b/src/frontend/com_dump.c @@ -3,10 +3,10 @@ #include #include #include - #include "circuits.h" #include "com_dump.h" #include "streams.h" +#include "fteext.h" void diff --git a/src/frontend/com_ghelp.c b/src/frontend/com_ghelp.c index ffdd2661e..7ce58c041 100644 --- a/src/frontend/com_ghelp.c +++ b/src/frontend/com_ghelp.c @@ -8,6 +8,7 @@ #include "com_help.h" #include "variable.h" #include "streams.h" +#include "cpextern.h" void com_ghelp(wordlist *wl) diff --git a/src/frontend/control.c b/src/frontend/control.c index 038f44a90..7b1a3e403 100644 --- a/src/frontend/control.c +++ b/src/frontend/control.c @@ -11,6 +11,8 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group #include "control.h" #include "com_cdump.h" #include "variable.h" +#include "fteext.h" + /* Return values from doblock(). I am assuming that nobody will use * these characters in a string. */ @@ -184,7 +186,7 @@ docommand(wordlist *wlist) nargs++; if (command->co_stringargs) { lcom = wl_flatten(wlist->wl_next); - (*command->co_func) (lcom); + (*command->co_func) ((void *)(lcom)); } else { if (nargs < command->co_minargs) { if (command->co_argfn) { @@ -242,7 +244,7 @@ doblock(struct control *bl, int *num) switch (bl->co_type) { case CO_WHILE: - while (bl->co_cond && cp_isTRUE(bl->co_cond)) { + while (bl->co_cond && cp_istrue(bl->co_cond)) { for (ch = bl->co_children; ch; ch = cn) { cn = ch->co_next; i = doblock(ch, &nn); @@ -310,7 +312,7 @@ doblock(struct control *bl, int *num) return (i); } } - } while (bl->co_cond && cp_isTRUE(bl->co_cond)); + } while (bl->co_cond && cp_istrue(bl->co_cond)); break; case CO_REPEAT: @@ -353,7 +355,7 @@ doblock(struct control *bl, int *num) break; case CO_IF: - if (bl->co_cond && cp_isTRUE(bl->co_cond)) { + if (bl->co_cond && cp_istrue(bl->co_cond)) { for (ch = bl->co_children; ch; ch = cn) { cn = ch->co_next; i = doblock(ch, &nn); diff --git a/src/frontend/define.c b/src/frontend/define.c index fbe42a47c..0cf15ee31 100644 --- a/src/frontend/define.c +++ b/src/frontend/define.c @@ -266,7 +266,7 @@ ft_substdef(char *name, struct pnode *args) struct udfunc *udf; struct pnode *tp; char *s; - int arity = 0, rarity; + int arity = 0, rarity = 0; bool found = FALSE; if (args) diff --git a/src/frontend/terminal.c b/src/frontend/terminal.c index 0000cb8fe..75f98ef48 100644 --- a/src/frontend/terminal.c +++ b/src/frontend/terminal.c @@ -9,6 +9,7 @@ Author: 1986 Wayne A. Christopher, U. C. Berkeley CAD Group * can be written for every possible machine... */ #include +#include #ifdef HAVE_SGTTY_H #include diff --git a/src/frontend/variable.c b/src/frontend/variable.c index e6f476be0..c1b0c34f0 100644 --- a/src/frontend/variable.c +++ b/src/frontend/variable.c @@ -15,6 +15,7 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group #include #include #include +#include #include "circuits.h" #include "com_history.h" @@ -390,9 +391,12 @@ cp_remvar(char *varname) cp_nonomatch = FALSE; else if (eq(varname, "noclobber")) cp_noclobber = FALSE; - else if (eq(varname, "prompt")) + else if (eq(varname, "prompt")){ /* cp_promptstring = ""; Memory leak here the last allocated reference wil be lost*/ - if(cp_promptstring)strcpy(cp_promptstring,"");/*DG avoid memory leak*/ + if(cp_promptstring) { + strcpy(cp_promptstring,"");/*DG avoid memory leak*/ + } + } else if (eq(varname, "cpdebug")) cp_debug = FALSE; else if (eq(varname, "ignoreeof")) diff --git a/src/include/cpextern.h b/src/include/cpextern.h index daac18a79..1ffbc97b6 100644 --- a/src/include/cpextern.h +++ b/src/include/cpextern.h @@ -171,7 +171,7 @@ extern bool cp_getvar(char *name, int type, void *retval); /* cpinterface.c etc -- stuff CP needs from FTE */ -extern bool cp_istrue(); +extern bool cp_istrue(wordlist *wl); extern bool cp_oddcomm(); extern void cp_doquit(); extern void cp_periodic(); diff --git a/src/misc/ivars.c b/src/misc/ivars.c index 20490d6a1..b63a007d8 100644 --- a/src/misc/ivars.c +++ b/src/misc/ivars.c @@ -4,6 +4,7 @@ Copyright 1991 Regents of the University of California. All rights reserved. #include "ngspice.h" #include "ivars.h" +#include #include char *Spice_Path; @@ -37,7 +38,9 @@ mkvar(char **p, char *path_prefix, char *var_dir, char *env_var) void ivars(void) { - + + char *temp; + env_overr(&Spice_Exec_Dir, "SPICE_EXEC_DIR"); env_overr(&Spice_Lib_Dir, "SPICE_LIB_DIR"); @@ -50,7 +53,10 @@ ivars(void) env_overr(&Spice_Host, "SPICE_HOST"); env_overr(&Bug_Addr, "SPICE_BUGADDR"); env_overr(&Def_Editor, "SPICE_EDITOR"); - env_overr(&AsciiRawFile, "SPICE_ASCIIRAWFILE"); + env_overr(&temp, "SPICE_ASCIIRAWFILE"); + + AsciiRawFile = atoi(temp); + } void