source: tol/tolbase/lib/toltk/tolconfig.tcl @ 0422d20

package require Toltcl

if { ![ llength [ info commands Tol_HciWriter ] ] } {
  tol::initkernel

  proc Tol_HciWriter { msg } {
    puts [ string trim $msg ]
  }

  tol::initlibrary 1
}

namespace eval ::TolConfig {
  variable cwd [ file normalize [ file dir [ info script ] ] ]
}

proc ::TolConfig::GetConfig { } {
  return [ lindex [ toltcl::eval { 
    NameBlockToSet( TolConfigManager::Config )
  } -named 1 ] 1 ]
}

proc ::TolConfig::GetType { member } {
  set result [ toltcl::eval [ string map [ list %m $member ] {
    Text Grammar( %m )
  } ] ]
  if { $result eq "NameBlock" } {
    return "section"
  } else {
    return "member"
  }
}