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

subckt.c, copy a deck without .control section

This commit is contained in:
h_vogt 2016-06-28 19:44:58 +02:00 committed by rlar
parent eaebab6882
commit f03d033e09
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/frontend/subckt.c
View File

@ -715,15 +715,32 @@ inp_deckcopy(struct line *deck) {
/*
* Copy a deck, without the actual lines, without comment lines.
* First line is always copied.
* Copy a deck, without the li_actual lines, without comment lines, and
* without .control section(s).
* First line is always copied (except being .control).
*/
struct line *
inp_deckcopy_oc(struct line *deck)
{
struct line *d = NULL, *nd = NULL;
int skip_control = 0;
while (deck) {
/* exclude any command inside .control ... .endc */
if (ciprefix(".control", deck->li_line)) {
skip_control++;
deck = deck->li_next;
continue;
}
else if (ciprefix(".endc", deck->li_line)) {
skip_control--;
deck = deck->li_next;
continue;
}
else if (skip_control > 0) {
deck = deck->li_next;
continue;
}
if (nd) {
d->li_next = TMALLOC(struct line, 1);
d = d->li_next;