has_included_subcircuit(): extend case insensitivity also on included subckt pins vs symbol pins

src/token.c

@@ -1868,6 +1868,7 @@ static int has_included_subcircuit(int inst, int symbol, char **result)
           char *pin_expanded_ptr, *pin_expanded = NULL;
           char *net_expanded_ptr, *net_expanded = NULL;
           my_strdup2(_ALLOC_ID_, &pin_expanded, expandlabel(name, &pin_mult));
+          strtolower(pin_expanded);
           my_strdup2(_ALLOC_ID_, &net_expanded, net_name(inst, i, &net_mult, 0, 1));
           net_expanded_ptr = net_expanded;
           pin_expanded_ptr = pin_expanded;

src/xschem.tcl

@@ -835,7 +835,7 @@ proc has_included_subcircuit {symname spice_sym_def} {
     }
   }  
   # puts $pinlist
-  return [join $pinlist]
+  return [string tolower [join $pinlist]]
 } 
 
 # should not be called directly by user 

xschem_library/examples/symbol_include.cir

@@ -1,6 +1,6 @@
 * example of a subcircuit contained in a file
 
-.subckt symbol_include Z Y[5] Y[4] Y[3] Y[2]
+.subckt xsymbol_include z y[5] y[4] y[3] y[2]
 + VCC VSS
 + A[2] A[1] A[0] B C W=10 L=1 
 ...