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

If newcompat.ki is enabled, allow /gnd and /0 (local ground symbols 

in KiCad and replace them by true ngspice ground 0 .
This commit is contained in:
Holger Vogt 2026-04-28 16:19:12 +02:00
parent 9ef52c10b9
commit cb1a29b8c0
1 changed files with 37 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/frontend/inpcom.c
View File

@ -2341,7 +2341,8 @@ static char *readline(FILE *fd)
/* Replace "gnd" by " 0 "
Delimiters of gnd may be ' ' or ',' or '(' or ')',
may be disabled by setting variable no_auto_gnd */
may be disabled by setting variable no_auto_gnd.
If called by KiCad, replace /gnd and /0 by 0 */
static void inp_fix_gnd_name(struct card *c)
{
@ -2349,6 +2350,10 @@ static void inp_fix_gnd_name(struct card *c)
for (; c; c = c->nextcard) {
char *gnd = c->line;
// if there is a comment, go to next line
if (*gnd == '*')
continue;
// if inside of a subcircuit, and compatmode is ps, don't replace gnd
if (newcompat.ps) {
if (ciprefix(".subckt", c->line))
@ -2357,10 +2362,13 @@ static void inp_fix_gnd_name(struct card *c)
found_subckt = FALSE;
}
// if there is a comment or no gnd, go to next line
if (found_subckt || (*gnd == '*') || !strstr(gnd, "gnd"))
// if there is a subcircuit or no gnd, go to next line
if (found_subckt || (!strstr(gnd, "gnd") && !strstr(gnd, "/0")))
continue;
// a gnd node will not occur in the first token of the line
gnd = nexttok(gnd);
// replace "?gnd?" by "? 0 ?", ? being a ' ' ',' '(' ')'.
while ((gnd = strstr(gnd, "gnd")) != NULL) {
if ((isspace_c(gnd[-1]) || gnd[-1] == '(' || gnd[-1] == ',') &&
@ -2370,6 +2378,32 @@ static void inp_fix_gnd_name(struct card *c)
gnd += 3;
}
// Special treatment for KiCad: replace local /gnd and /0 by 0
if (newcompat.ki) {
/* replace local "/gnd" by " 0 " */
gnd = c->line;
// a gnd node will not occur in the first token of the line
gnd = nexttok(gnd);
while ((gnd = strstr(gnd, "/gnd")) != NULL) {
if ((isspace_c(gnd[-1]) || gnd[-1] == '(' || gnd[-1] == ',') &&
(isspace_c(gnd[4]) || gnd[4] == ')' || gnd[4] == ',')) {
memcpy(gnd, " 0 ", 4);
}
gnd += 4;
}
// replace " /0 " by " 0 "
gnd = c->line;
// a gnd node will not occur in the first token of the line
gnd = nexttok(gnd);
while ((gnd = strstr(gnd, "/0")) != NULL) {
if ((isspace_c(gnd[-1]) || gnd[-1] == '(' || gnd[-1] == ',') &&
(isspace_c(gnd[2]) || gnd[2] == ')' || gnd[2] == ',')) {
gnd[0] = ' ';
}
gnd += 2;
}
}
// now remove the extra white spaces around 0
c->line = inp_remove_ws(c->line);
}