luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

netlist/print export: items contained in xschem_libs are matched as regular expression patterns

This commit is contained in:
Stefan Frederik 2021-06-14 08:42:19 +02:00
parent f251918a0e
commit 6bc66fe0e7
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/netlist.c
View File

@ -362,13 +362,16 @@ int check_lib(const char *s)
found=0;
tcleval("llength $xschem_libs");
range = atoi(tclresult());
dbg(1, "check_lib(): %s, range=%d\n", s, range);
dbg(1, "check_lib(): s=%s, range=%d\n", s, range);
for(i=0;i<range;i++){
my_snprintf(str, S(str), "lindex $xschem_libs %d",i);
tcleval(str);
dbg(1, "check_lib(): s=%s, xschem_libs=%s\n", s, tclresult());
if( strstr(s,tclresult())) found=1;
dbg(1, "check_lib(): xschem_libs=%s\n", tclresult());
my_snprintf(str, S(str), "regexp {%s} %s", tclresult(), s);
dbg(0, "check_lib(): str=%s\n", str);
tcleval(str);
if( tclresult()[0] == '1') found=1;
}
if(found) return 0;
else return 1;