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

dummy functions

This commit is contained in:
h_vogt 2012-02-19 16:38:33 +00:00
parent 70e9907415
commit 80a039983e
4 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2012-02-19 Holger Vogt
* com_cdump.c, commands.c, main.c:
dummy functions for SMPprint() and SMPprintRHS() to allow making of ngnutmeg,
small updates, comments
2012-02-19 Dietmar Warning
* src/spicelib/devices/asrc/*.c,*.h
* src/frontend/inpcom.c,

13
src/frontend/com_cdump.c
View File

@ -1,15 +1,12 @@
/* Command cdump: dump the control structure to the console output */
/* Command mdump: dump the matrix of the actual circuit to stdout or a file */
#include "ngspice/ngspice.h"
#include <stdio.h>
#include "ngspice/wordlist.h"
#include "control.h"
#include "ngspice/cpextern.h"
#include "ngspice/fteext.h"
#include "ngspice/smpdefs.h"
#include "ngspice/cktdefs.h"
#include "com_cdump.h"
@ -147,6 +144,7 @@ com_cdump(wordlist *wl)
return;
}
/* dump circuit matrix to stdout or file */
void
com_mdump(wordlist *wl)
{
@ -162,10 +160,10 @@ com_mdump(wordlist *wl)
if (ckt->CKTmatrix)
if (wl == NULL)
SMPprint( ckt->CKTmatrix , NULL);
SMPprint(ckt->CKTmatrix , NULL);
else {
s = cp_unquote(wl->wl_word);
SMPprint( ckt->CKTmatrix , s);
SMPprint(ckt->CKTmatrix , s);
}
else
fprintf(cp_err, "Error: no matrix available.\n");
@ -173,6 +171,7 @@ com_mdump(wordlist *wl)
return;
}
/* dump circuit matrix RHS to stdout or file */
void
com_rdump(wordlist *wl)
{
@ -188,10 +187,10 @@ com_rdump(wordlist *wl)
if ((ckt->CKTmatrix) && (ckt->CKTrhs))
if (wl == NULL)
SMPprintRHS( ckt->CKTmatrix , NULL, ckt->CKTrhs, ckt->CKTirhs);
SMPprintRHS(ckt->CKTmatrix , NULL, ckt->CKTrhs, ckt->CKTirhs);
else {
s = cp_unquote(wl->wl_word);
SMPprintRHS( ckt->CKTmatrix , s, ckt->CKTrhs, ckt->CKTirhs);
SMPprintRHS(ckt->CKTmatrix , s, ckt->CKTrhs, ckt->CKTirhs);
}
else
fprintf(cp_err, "Error: no matrix or RHS available.\n");

4
src/frontend/commands.c
View File

@ -549,11 +549,11 @@ struct comm spcp_coms[] = {
{ 0, 0, 0, 0 }, E_DEFHMASK, 0, 0,
NULL,
": Dump the current control structures." } ,
{ "mdump", com_mdump, FALSE, FALSE,
{ "mdump", com_mdump, TRUE, FALSE,
{ 0, 0, 0, 0 }, E_DEFHMASK, 0, 1,
NULL,
"outfile: Dump the current matrix." } ,
{ "mrdump", com_rdump, FALSE, FALSE,
{ "mrdump", com_rdump, TRUE, FALSE,
{ 0, 0, 0, 0 }, E_DEFHMASK, 0, 1,
NULL,
"outfile: Dump the current RHS to file." } ,

18
src/main.c
View File

@ -358,6 +358,24 @@ void com_loadsnap(wordlist *wl) { return; }
void com_savesnap(wordlist *wl) { return; }
#endif
void SMPprint( SMPmatrix *n1 , char *n2)
{
NG_IGNORE(n1);
NG_IGNORE(n2);
return;
};
void SMPprintRHS( SMPmatrix *n1, char *n2 , double* n3 , double* n4)
{
NG_IGNORE(n1);
NG_IGNORE(n2);
NG_IGNORE(n3);
NG_IGNORE(n4);
return;
};
#endif /* SIMULATOR */
#ifndef SIMULATOR