summaryrefslogtreecommitdiffstats
path: root/macosx/buildTkConfig.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'macosx/buildTkConfig.tcl')
-rwxr-xr-xmacosx/buildTkConfig.tcl44
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]