File difference report generated by CSDiff by ComponentSoftware on 24.07.2006 21:51

Base file: E:\Temp\edif.tcl.bak
Compared file: E:\Temp\edif.tcl

14a15,16
> set symbolview {symbol symbolr spectre hspice spectreS}
> set subst_list {}
199d200
< 
200a202,203
> 	 if { [lindex $dstring 0]== "array" }
> 	 
290a294,314
> #---
> # execute substitution of net names
> #---
> proc subst_name {net} {
> 	global subst_list
> 	if { [llength $net]> 1 } {
> 		if {[lindex $net 0] == "rename"} {
> 			lappend subst_list [lrange $net 1 2]
> 			return [lindex $net 2]		
> 		}
> 	} else {
> 		set pos [lsearch $subst_list "$net *"]
> 		if { $pos > -1 } {
> 			return [lindex [lindex $subst_list $pos] 1]
> 		} else {
> 		return $net
> 		}
> 	}
> }
> 
> 
301a326,329
>       } elseif {[lindex $netString 0] == "rename"} {
> 	 parse_geometry "name" [subst_name $netString] 
>       } elseif {[lindex $netString 0] == "array"} {
> 	 parse_geometry "name" [subst_name [lindex $netString 1]] 
331a360,364
>    if { [lindex $instName 0]== "array"} {
>    	set instName [subst_name [lindex $instName 1]]
>    } else {
>    	set instName [subst_name $instName]
>    }
419a453
>    set plabel {}
423,424c457,459
< 	 set plabel [parse_geometry [lindex $portString 0] [lrange $portString 1 end]]
< 	 set portName [lindex $portString 1]
---
> #	 set plabel [parse_geometry [lindex $portString 0] [lrange $portString 1 end]]
> 	 set plabel [parse_geometry [lindex $portString 0] [subst_name [lindex $portString 1]]]
> 	 set portName [subst_name [lindex $portString 1]]
430c465
<       set portName $portString
---
>       set portName [subst_name $portString]
526c561
<       lappend itext [subst {Text "$pstring"}]
---
>       lappend itext [subst {Text "$pname"}]
538a574
>    global symbolview
572,573c608,610
< 
<    if {"$celltype" == "symbol"} {
---
>    # search for all symbol views
>    # following list contains these viewnames
>    if { [lsearch $symbolview $celltype]>-1} {
599a637
> 
658c696,702
< 	 port {lappend portlist [lindex $phrase 1]}
---
> 	 port { if { [lindex [lindex $phrase 1] 0] == "array"} {
> 	 		set zw [subst_name [lindex [lindex $phrase 1] 1]]
> 	 	} else {
> 			set zw [subst_name [lindex $phrase 1]]
> 		}
> 	 	lappend portlist $zw
> 	      }
743a788
>    global symbolview
750a796,798
> 	    if { [lsearch $symbolview $viewType]>-1} {
> 	    	parse_symbol $libname $cellname [lrange $phrase 2 end]
> 	    } else {
753d800
< 	       symbol {parse_symbol $libname $cellname [lrange $phrase 2 end]}
755a803
> 		    }


<---------------------  End of report  --------------------->