devel
| Line | |
|---|
| 1 | namespace eval ::TolConfig { |
|---|
| 2 | variable cwd [ file normalize [ file dir [ info script ] ] ] |
|---|
| 3 | } |
|---|
| 4 | |
|---|
| 5 | proc ::TolConfig::GetConfig { } { |
|---|
| 6 | return [ lindex [ toltcl::eval { |
|---|
| 7 | NameBlockToSet( TolConfigManager::Config ) |
|---|
| 8 | } -named 1 ] 1 ] |
|---|
| 9 | } |
|---|
| 10 | |
|---|
| 11 | proc ::TolConfig::GetType { member } { |
|---|
| 12 | set result [ toltcl::eval [ string map [ list %m $member ] { |
|---|
| 13 | Text Grammar( %m ) |
|---|
| 14 | } ] ] |
|---|
| 15 | if { $result eq "NameBlock" } { |
|---|
| 16 | return "section" |
|---|
| 17 | } else { |
|---|
| 18 | return "member" |
|---|
| 19 | } |
|---|
| 20 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
