20040617 CMcC: Here's a parser for tclConfig.sh - useful for introspection in things like critcl. tclConfig.sh is emitted as part of the build, capturing useful data about the build.
#! /usr/bin/env tclsh
# Some code to parse the tclConfig.sh file into namespace vars
# in ::tclConfig. Merely sourcing this file will do all the work
namespace eval tclConfig {
namespace eval v {
variable top ::tclConfig
variable sect_re "\[\\\[\]\[ \t\]*(\[A-Za-z0-9_\]+)\[ \t\]*\[\\\]\]"
variable comment_re {^(.*)#.*$}
variable comment_match {#*}
variable def_re {[ \t]*([A-Za-z0-9_]+)[ \t]*=[ \t]*(.*)(#.*)?$}
}
variable VERSION $::tcl_version
}
proc tclConfig::unparse {} {
set result ""
foreach var [info vars ::tclConfig::*] {
append result "[namespace tail $var] = \"[set $var]\"" " "
}
return $result
}
proc tclConfig::parse {dir} {
set fd [open [file join $dir tclConfig.sh]]
namespace eval $v::top {}
set section ""
foreach line [split [read $fd] \n] {
set line [string trim $line " \t"]
regexp $v::comment_re $line x line
if {[string match $v::comment_match $line] || ($line eq "")} {
# comment
continue
} elseif {[regexp $v::def_re $line x var val]} {
# definition
set val [string trim $val " \t"]
regsub -all {[$]ENV::([A-Za-z0-9_]+)} $val {$::env(\1)} val
set val [string trim $val ']
if {[catch {namespace eval $v::top "set $var \"$val\""}]} {
set vars($var) $val
} elseif {$var eq "TCL_DBGX"} {
namespace eval $v::top set DBGX "$val"
}
} else {
error "Can't parse '$line'"
}
}
set change 1
while {$change && [array size vars]} {
set change 0
foreach {var val} [array get vars] {
if {![catch {
namespace eval $v::top "set $var \"$val\""
} result]} {
set change 1
unset vars($var)
}
}
}
foreach {var val} [array get vars] {
namespace eval $v::top set $var [list $val]
}
}
tclConfig::parse $::tcl_library
if {[info exists argv0] && ([info script] == $argv0)} {
puts [tclConfig::unparse]
}