#!/usr/bin/tclsh
package require helga
puts ""
puts "
"
puts "Helga Command Reference
"
puts "Organized by namespace. Generated on the fly."
puts ""
set namespaces [namespace children ::helga]
set namespaces [lsort -dictionary $namespaces]
foreach ns $namespaces {
puts "- $ns"
puts "
"
set nsProcs [info procs ${ns}::*]
set nsProcs [lsort -dictionary $nsProcs]
foreach pc $nsProcs {
if { [string range $pc end-3 end] != "args" } {
puts "- $pc"
puts ""
puts "
"
}
}
puts "
"
puts " "
}
puts "
"
puts ""
puts ""