File difference report generated by CSDiff by ComponentSoftware on 24.07.2006 22:33

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 {}
200a203,207
> 	 if { [lindex $dstring 0]== "array" } {
> 	 	set dstring [subst_name [lindex $dstring 1]]
> 	 } else {
> 	 	set dstring [subst_name $dstring]
> 	 }
290a298,318
> #---
> # 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
> 		}
> 	}
> }
> 
> 
301a330,333
>       } elseif {[lindex $netString 0] == "rename"} {
> 	 parse_geometry [lindex $netString 0] [lrange $netString 1 end]      
>       } elseif {[lindex $netString 0] == "array"} {
> 	 parse_geometry [lindex $netString 0] [lrange $netString 1 end]      
331a364,368
>    if { [lindex $instName 0]== "array"} {
>    	set instName [subst_name [lindex $instName 1]]
>    } else {
>    	set instName [subst_name $instName]
>    }
419a457
>    set plabel {}
424c462
< 	 set portName [lindex $portString 1]
---
> 	 set portName [subst_name [lindex $portString 1]]
430c468
<       set portName $portString
---
>       set portName [subst_name $portString]
526c564
<       lappend itext [subst {Text "$pstring"}]
---
>       lappend itext [subst {Text "$pname"}]
538a577
>    global symbolview
572,573c611,613
< 
<    if {"$celltype" == "symbol"} {
---
>    # search for all symbol views
>    # following list contains these viewnames
>    if { [lsearch $symbolview $celltype]>-1} {
599a640
> 
658c699,705
< 	 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
> 	      }
743a791
>    global symbolview
750a799,801
> 	    if { [lsearch $symbolview $viewType]>-1} {
> 	    	parse_symbol $libname $cellname [lrange $phrase 2 end]
> 	    } else {
753d803
< 	       symbol {parse_symbol $libname $cellname [lrange $phrase 2 end]}
755a806
> 		    }


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