diff options
Diffstat (limited to 'macosx/buildTkConfig.tcl')
-rwxr-xr-x | macosx/buildTkConfig.tcl | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/macosx/buildTkConfig.tcl b/macosx/buildTkConfig.tcl deleted file mode 100755 index dba0c51..0000000 --- a/macosx/buildTkConfig.tcl +++ /dev/null @@ -1,44 +0,0 @@ -#!/bin/sh -# -# Synthesize tkConfig.sh for Mac OS X based -# on tclConfig.sh and tkConfig.sh.in -# -# RCS: @(#) $Id: buildTkConfig.tcl,v 1.1.2.1 2003/07/21 12:37:08 das Exp $ -# -# the next line restarts using tclsh \ -exec tclsh8.4 "$0" "$@" - -proc main {tclConfigFile tkConfigFileIn tkConfigFile} { - set in [open $tclConfigFile] - set tclConfig [read $in] - close $in - set in [open $tkConfigFileIn] - set tkConfig [read $in] - close $in - set tclconfvars [regexp -all -inline -line -- {^TCL_([^=]*)=(.*)$} $tclConfig] - lappend tclconfvars {} {XINCLUDES} \ - [lindex [regexp -inline -line -- {^TCL_INCLUDE_SPEC=(.*)$} $tclConfig] 1] - set tkconfvars [regexp -all -inline -line -- {^TK_([^=]*)=} $tkConfig] - foreach {-> var val} $tclconfvars { - regsub -all -- {([Tt])cl((?![[:alnum:]])|stub)} $val {\1k\2} val - foreach {-> tkvar} $tkconfvars { - regsub -all -- "TCL_$tkvar" $val "TK_$tkvar" val - } - regsub -line -- "^TK_$var=.*\$" $tkConfig "TK_$var=$val" tkConfig - } - regsub -line -all -- {@[^@]+@} $tkConfig {} tkConfig - regsub -line -all -- {(/tk)/(?:Development|Deployment)} $tkConfig {\1} tkConfig - regsub -line {^(TK_DEFS=')} $tkConfig {\1 -DMAC_OSX_TK} tkConfig - - set out [open $tkConfigFile w] - puts $out $tkConfig - close $out -} - -if {$argc != 3} { - puts stderr "usage: $argv0 /path/to/tclConfig.sh \ -/path/to/tkConfig.sh.in /path/to/tkConfig.sh" - exit 1 -} - -main [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] |