Corrected a set of regexps in the schematic-to-layout script that

prevented normal x=y type parameters from being parsed.

VERSION

@@ -1 +1 @@
-8.3.139
+8.3.140

tcltk/readspice.tcl

@@ -53,7 +53,8 @@ proc readspice {netfile} {
    # Read data from file.  Remove comment lines and concatenate
    # continuation lines.
 
-   puts stderr "Annotating port orders from $netfile"
+   puts stdout "Annotating port orders from $netfile"
+   flush stdout
    set fdata {}
    set lastline ""
    while {[gets $fnet line] >= 0} {
@@ -109,6 +110,8 @@ proc readspice {netfile} {
 	       # Make sure pins aren't duplicated by first moving all pin
 	       # indexes above the number of pins to check.
 
+	       puts stdout "Annotating cell $cell"
+   	       flush stdout
 	       set npins [expr {[llength $ftokens] - 1}]
 	       set highport [port last]
 	       set outport $highport
@@ -116,7 +119,7 @@ proc readspice {netfile} {
 	       set p [port first]
 	       while {$p != -1 && $p <= $highport} {
 		   if {$p == ""} {
-		       puts stderr "Error:  $cellname port numbering failed."
+		       puts stderr "Error:  $cell port numbering failed."
 		       break
 		   }
 		   set p1 [port $p next]

tcltk/toolkit.tcl

@@ -215,13 +215,13 @@ proc magic::generate_layout_add {subname subpins complist library} {
 	}
 
 	while {$rest != ""} {
-	    if {[regexp -nocase {([^= \t]+)=\'([^\']+)\'[ \t]*(.*)} $rest \
+	    if {[regexp -nocase {^([^= \t]+)=\'([^\']+)\'[ \t]*(.*)} $rest \
 			valid pname value rest]} {
 		lappend paramlist [list $pname "{$value}"]
-	    } elseif {[regexp -nocase {([^= \t]+)=\{([^\}]+)\}[ \t]*(.*)} $rest \
+	    } elseif {[regexp -nocase {^([^= \t]+)=\{([^\}]+)\}[ \t]*(.*)} $rest \
 			valid pname value rest]} {
 		lappend paramlist [list $pname "{$value}"]
-	    } elseif {[regexp -nocase {([^= \t]+)=([^= \t]+)[ \t]*(.*)} $rest \
+	    } elseif {[regexp -nocase {^([^= \t]+)=([^= \t]+)[ \t]*(.*)} $rest \
 			valid pname value rest]} {
 		lappend paramlist [list $pname $value]
 	    } else {