
proc tile_pip_report {fd tile_name} {
	set tile [get_tile $tile_name]
	set pips [get_pips -of_object $tile]
	set dsts [lsort -unique [get_wires -filter "TILE_NAME == $tile" -downhill -of_objects $pips]]

	puts $fd ""
	puts $fd "PIP Report for tile $tile"
	puts $fd "==================================="

	puts $fd ""
	puts $fd "PIPs that implement 1:1 connections"
	puts $fd "-----------------------------------"

	foreach dst $dsts {
		set dst_node [get_node -of_objects $dst]
		set dst_span [llength [get_tiles -of_objects $dst_node]]
		set pips [get_pips -filter "TILE == $tile" -uphill -of_objects $dst_node]
		if {[llength $pips] == 1} {
			puts $fd ""
			puts $fd "Destination Wire (Node, Span): $dst ($dst_node, $dst_span)"
			foreach pip $pips {
				set src [get_wires -uphill -of_objects $pip]
				set src_node [get_node -of_objects $src]
				set src_span [llength [get_tiles -of_objects $src_node]]
				puts $fd "     Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
			}
			foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
				puts $fd "           Outside Source PIP: $pip"
			}
		}
	}

	puts $fd ""
	puts $fd "PIPs that implement N:1 connections"
	puts $fd "-----------------------------------"

	foreach dst $dsts {
		set dst_node [get_node -of_objects $dst]
		set dst_span [llength [get_tiles -of_objects $dst_node]]
		set pips [get_pips -filter "TILE == $tile" -uphill -of_objects $dst_node]
		if {[llength $pips] != 1} {
			puts $fd ""
			puts $fd "Destination Wire (Node, Span): $dst ($dst_node, $dst_span)"
			foreach pip $pips {
				set src [get_wires -uphill -of_objects $pip]
				set src_node [get_node -of_objects $src]
				set src_span [llength [get_tiles -of_objects $src_node]]
				puts $fd "     Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
			}
			foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
				puts $fd "           Outside Source PIP: $pip"
			}
		}
	}

	puts $fd ""
	puts $fd ""
}

tile_pip_report [open "pips_clbll.txt" w] CLBLL_L_X12Y119
tile_pip_report [open   "pips_int.txt" w]   INT_L_X12Y119