improve tcl bridge for xcircuit
This commit is contained in:
parent
87ae2dabc1
commit
8a4d7e93b0
@ -1,3 +1,4 @@
|
|||||||
ngspice-18-1_fc10:EL-5:ngspice-18-1.fc10.src.rpm:1231713953
|
ngspice-18-1_fc10:EL-5:ngspice-18-1.fc10.src.rpm:1231713953
|
||||||
ngspice-19-1_fc11:EL-5:ngspice-19-1.fc11.src.rpm:1249833383
|
ngspice-19-1_fc11:EL-5:ngspice-19-1.fc11.src.rpm:1249833383
|
||||||
ngspice-20-1_fc12:EL-5:ngspice-20-1.fc12.src.rpm:1259910513
|
ngspice-20-1_fc12:EL-5:ngspice-20-1.fc12.src.rpm:1259910513
|
||||||
|
ngspice-20-2_fc12:EL-5:ngspice-20-2.fc12.src.rpm:1260232344
|
||||||
|
@ -1,14 +1,76 @@
|
|||||||
--- src/main.c 2009-10-24 08:28:09.000000000 +0200
|
--- src/main.c 2009-10-24 08:28:09.000000000 +0200
|
||||||
+++ main.c 2009-11-16 15:05:57.196403105 +0100
|
+++ main.c 2009-12-07 22:42:09.000000000 +0100
|
||||||
@@ -553,6 +553,7 @@
|
@@ -5,7 +5,7 @@
|
||||||
|
Author: 1985 Wayne A. Christopher
|
||||||
|
|
||||||
|
The main routine for ngspice
|
||||||
|
- $Id: main.c,v 1.58 2009/10/24 06:28:09 dwarning Exp $
|
||||||
|
+ $Id: main.c,v 1.60 2009/12/07 21:42:09 h_vogt Exp $
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "ngspice.h"
|
||||||
|
@@ -53,6 +53,7 @@
|
||||||
|
#include "frontend/variable.h"
|
||||||
|
#include "frontend/display.h" /* added by SDB to pick up Input() fcn */
|
||||||
|
#include "frontend/signal_handler.h"
|
||||||
|
+#include "compatmode.h"
|
||||||
|
|
||||||
|
/* saj xspice headers */
|
||||||
|
#ifdef XSPICE
|
||||||
|
@@ -188,9 +189,14 @@
|
||||||
|
extern struct comm spcp_coms[ ];
|
||||||
|
struct comm *cp_coms = spcp_coms;
|
||||||
|
|
||||||
|
-extern int OUTpBeginPlot(), OUTpData(), OUTwBeginPlot(), OUTwReference();
|
||||||
|
-extern int OUTwData(), OUTwEnd(), OUTendPlot(), OUTbeginDomain();
|
||||||
|
-extern int OUTendDomain(), OUTstopnow(), OUTerror(), OUTattributes();
|
||||||
|
+extern int OUTpBeginPlot(void *,void *,IFuid,IFuid,int,int,IFuid *,int,void **);
|
||||||
|
+extern int OUTpData(void *,IFvalue *,IFvalue *);
|
||||||
|
+extern int OUTwBeginPlot(void *,void *,IFuid,IFuid,int,int,IFuid *,int,void **);
|
||||||
|
+extern int OUTwReference(void *,IFvalue *,void **);
|
||||||
|
+extern int OUTwData(void *,int,IFvalue *,void *), OUTwEnd(void *), OUTendPlot(void *);
|
||||||
|
+extern int OUTbeginDomain(void *,IFuid,int,IFvalue *);
|
||||||
|
+extern int OUTendDomain(void *), OUTstopnow(void), OUTerror(int,char *,IFuid *);
|
||||||
|
+extern int OUTattributes(void *,IFuid *,int,IFvalue *);
|
||||||
|
|
||||||
|
IFfrontEnd nutmeginfo = {
|
||||||
|
IFnewUid,
|
||||||
|
@@ -347,6 +353,26 @@
|
||||||
|
int DEVmaxnum = 0;
|
||||||
|
|
||||||
|
/* -------------------------------------------------------------------------- */
|
||||||
|
+/* Set a compatibility flag.
|
||||||
|
+ Currently available are flags for:
|
||||||
|
+ ngspice (standard)
|
||||||
|
+ HSPICE
|
||||||
|
+ Spice3
|
||||||
|
+*/
|
||||||
|
+COMPATMODE_T ngspice_compat_mode(void)
|
||||||
|
+{
|
||||||
|
+ char behaviour[80] ;
|
||||||
|
+
|
||||||
|
+ if( cp_getvar("ngbehavior", VT_STRING, behaviour)){
|
||||||
|
+ if (strcasecmp(behaviour,"hspice")==0)
|
||||||
|
+ return( COMPATMODE_HSPICE ) ;
|
||||||
|
+ if (strcasecmp(behaviour,"spice3")==0)
|
||||||
|
+ return( COMPATMODE_SPICE3 ) ;
|
||||||
|
+ }
|
||||||
|
+ return(COMPATMODE_NATIVE) ;
|
||||||
|
+} /* end ngspice_compat_mode() */
|
||||||
|
+
|
||||||
|
+/* -------------------------------------------------------------------------- */
|
||||||
|
int
|
||||||
|
SIMinit(IFfrontEnd *frontEnd, IFsimulator **simulator)
|
||||||
|
{
|
||||||
|
@@ -553,6 +579,7 @@
|
||||||
" -i, --interactive run in interactive mode\n"
|
" -i, --interactive run in interactive mode\n"
|
||||||
" -n, --no-spiceinit don't load the local or user's config file\n"
|
" -n, --no-spiceinit don't load the local or user's config file\n"
|
||||||
" -o, --output=FILE set the outputfile\n"
|
" -o, --output=FILE set the outputfile\n"
|
||||||
+ " -p, --pipe run in I/O pipe mode\n"
|
+ " -p, --pipe run in I/O pipe mode\n"
|
||||||
" -q, --completion activate command completion\n"
|
" -q, --completion activate command completion\n"
|
||||||
" -r, --rawfile=FILE set the rawfile output\n"
|
" -r, --rawfile=FILE set the rawfile output\n"
|
||||||
" -s, --server run spice as a server process\n"
|
" -s, --server run spice as a server process\n"
|
||||||
@@ -759,6 +760,7 @@
|
@@ -759,6 +786,7 @@
|
||||||
{"interactive", 0, 0, 'i'},
|
{"interactive", 0, 0, 'i'},
|
||||||
{"no-spiceinit", 0, 0, 'n'},
|
{"no-spiceinit", 0, 0, 'n'},
|
||||||
{"output", 1, 0, 'o'},
|
{"output", 1, 0, 'o'},
|
||||||
@ -16,7 +78,7 @@
|
|||||||
{"completion", 0, 0, 'q'},
|
{"completion", 0, 0, 'q'},
|
||||||
{"rawfile", 1, 0, 'r'},
|
{"rawfile", 1, 0, 'r'},
|
||||||
{"server", 0, 0, 's'},
|
{"server", 0, 0, 's'},
|
||||||
@@ -766,7 +768,7 @@
|
@@ -766,7 +794,7 @@
|
||||||
{0, 0, 0, 0}
|
{0, 0, 0, 0}
|
||||||
};
|
};
|
||||||
|
|
||||||
@ -25,3 +87,15 @@
|
|||||||
long_options, &option_index);
|
long_options, &option_index);
|
||||||
if (c == -1)
|
if (c == -1)
|
||||||
break;
|
break;
|
||||||
|
@@ -826,6 +854,11 @@
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
+ case 'p': /* Run in pipe mode */
|
||||||
|
+ iflag = TRUE;
|
||||||
|
+ istty = TRUE;
|
||||||
|
+ break;
|
||||||
|
+
|
||||||
|
case 'q': /* Command completion */
|
||||||
|
qflag = TRUE;
|
||||||
|
break;
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Name: ngspice
|
Name: ngspice
|
||||||
Version: 20
|
Version: 20
|
||||||
Release: 1%{?dist}
|
Release: 2%{?dist}
|
||||||
Summary: A mixed level/signal circuit simulator
|
Summary: A mixed level/signal circuit simulator
|
||||||
|
|
||||||
License: BSD
|
License: BSD
|
||||||
@ -223,6 +223,9 @@ chmod +x %{buildroot}%{_libdir}/tclspice/spice/*.cm
|
|||||||
|
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Tue Dec 8 2009 Chitlesh Goorah <chitlesh [AT] fedoraproject DOT org> 20-2
|
||||||
|
- Improved interoperobability with xcircuit
|
||||||
|
|
||||||
* Mon Nov 16 2009 Chitlesh Goorah <chitlesh [AT] fedoraproject DOT org> 20-1
|
* Mon Nov 16 2009 Chitlesh Goorah <chitlesh [AT] fedoraproject DOT org> 20-1
|
||||||
- new upstream release
|
- new upstream release
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user