From 6bc66fe0e7116368d6a3f0862feeca3873f685b9 Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Mon, 14 Jun 2021 08:42:19 +0200
Subject: [PATCH] netlist/print export: items contained in xschem_libs are
 matched as regular expression patterns

---
 src/netlist.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/netlist.c b/src/netlist.c
index 46077341..a0760b48 100644
--- a/src/netlist.c
+++ b/src/netlist.c
@@ -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;