Browse Source

Corrected errors I made in adding tclspice code.

pre-master-46
pnenzi 23 years ago
parent
commit
d154d16449
  1. 2
      src/frontend/hpgl.c
  2. 14
      src/frontend/outitf.c
  3. 2
      src/frontend/vectors.c
  4. 6
      src/main.c
  5. 1
      src/spicelib/analysis/acan.c
  6. 1
      src/spicelib/analysis/dctran.c

2
src/frontend/hpgl.c

@ -30,7 +30,7 @@ Author: Jim Groves
#include "spice.h"
#include "ngspice.h"
#include "cpdefs.h"
#include "graph.h"
#include "ftedbgra.h"

14
src/frontend/outitf.c

@ -57,7 +57,6 @@ static bool getSpecial(dataDesc *desc, runDesc *run, IFvalue *val);
static void freeRun(runDesc *run);
#define DOUBLE_PRECISION 15
@ -78,8 +77,7 @@ extern bool ft_getOutReq (FILE **fpp, struct plot **plotp, bool *binp, char *nam
int
OUTpBeginPlot(void *circuitPtr, void *analysisPtr, IFuid analName, IFuid refName, int refType, int numNames, IFuid *dataNames, int dataType, void **plotPtr)
{
char *name;
char *name;
#ifdef PARALLEL_ARCH
if (ARCHme != 0) return(OK);
#endif /* PARALLEL_ARCH */
@ -121,8 +119,7 @@ beginPlot(void *analysisPtr, void *circuitPtr, char *cktName, char *analName, ch
char *ch, tmpname[BSIZE_SP];
bool saveall = TRUE;
bool savealli = FALSE;
char *an_name;
char *an_name;
/*to resume a run saj
*All it does is reassign the file pointer and return (requires *runp to be NULL if this is not needed)
*/
@ -133,6 +130,7 @@ beginPlot(void *analysisPtr, void *circuitPtr, char *cktName, char *analName, ch
} else {
/*end saj*/
/* Check to see if we want to print informational data. */
if (cp_getvar("printinfo", VT_BOOL, (char *) &printinfo))
fprintf(cp_err, "(debug printing enabled)\n");
@ -355,7 +353,7 @@ beginPlot(void *analysisPtr, void *circuitPtr, char *cktName, char *analName, ch
if (refName)
run->runPlot->pl_ndims = 1;
}
}
return (OK);
}
@ -1098,7 +1096,9 @@ OUTstopnow(void)
static struct mesg {
char *string;
long flag;
} msgs[] = {
}
msgs[] = {
{ "Warning", ERR_WARNING } ,
{ "Fatal error", ERR_FATAL } ,
{ "Panic", ERR_PANIC } ,

2
src/frontend/vectors.c

@ -7,7 +7,7 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
* Routines for dealing with the vector database.
*/
#include <spice.h>
#include <ngspice.h>
#include <cpdefs.h>
#include <ftedefs.h>
#include <dvec.h>

6
src/main.c

@ -30,7 +30,7 @@
#include <misc/getopt.h>
#include <frontend/resource.h>
#include <frontend/variable.h>
#include "frontend/display.h" /* va */
//#include "frontend/display.h" /* va */
/* saj xspice headers */
#ifdef XSPICE
@ -60,7 +60,7 @@ bool ft_intrpt = FALSE; /* Set by the (void) signal handlers. */
bool ft_setflag = FALSE; /* Don't abort after an interrupt. */
char *ft_rawfile = "rawspice.raw";
bool oflag = FALSE; /* Output über redefinierte Funktionen */
bool oflag = FALSE; /* Output über redefinierte Funktionen */
FILE *flogp; // hvogt 15.12.2001
/* Frontend and circuit options */
@ -480,7 +480,7 @@ main(int argc, char **argv)
shutdown (EXIT_BAD);
}
#endif
// *** Log-File öffnen *******
// *** Log-File Ãffnen *******
if (!(flogp = fopen(buf, "w"))) {
perror(buf);
shutdown(EXIT_BAD);

1
src/spicelib/analysis/acan.c

@ -17,6 +17,7 @@ Modified 2001: AlansFixes
#include "evtproto.h"
#include "ipctiein.h"
/* gtri - end - wbk */
#endif
#ifdef HAS_WINDOWS
void SetAnalyse( char * Analyse, int Percent);

1
src/spicelib/analysis/dctran.c

@ -28,6 +28,7 @@ Modified: 2000 AlansFixes
#ifdef CLUSTER
#include "cluster.h"
#endif
#ifdef HAS_WINDOWS /* hvogt 10.03.99, nach W. Mues */
void SetAnalyse( char * Analyse, int Percent);

Loading…
Cancel
Save