\n"
hd_puts "
"
foreach {cx px} $syntax_linkage($name) break
if {[llength $px]>0} {
hd_puts "\nUsed by:"
foreach c $px {
hd_puts "
$c"
}
}
if {[llength $cx]>0} {
hd_puts "
\nReferences:"
foreach c $cx {
hd_puts "
$c"
}
}
if {[info exists ::backlink($name)]} {
unset -nocomplain bk
foreach c $::backlink($name) {
set bk($c) 1
}
set bklist [lsort [array names bk]]
if {[llength $bklist]>0} {
hd_puts "
\nSee also:"
foreach c $bklist {
hd_puts "
$c"
}
}
}
hd_puts "\n
\n\n"
}
unset -nocomplain c cx px