diff options
Diffstat (limited to 'tclxml/win/mkPkgIndex.tcl')
-rw-r--r-- | tclxml/win/mkPkgIndex.tcl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/tclxml/win/mkPkgIndex.tcl b/tclxml/win/mkPkgIndex.tcl new file mode 100644 index 0000000..63b8e12 --- /dev/null +++ b/tclxml/win/mkPkgIndex.tcl @@ -0,0 +1,31 @@ +# mkPkgIndex.tcl -- +# +# Helper script for non-TEA installion on Windows. +# This script resolves configure symbols. +# +# Copyright (c) 2003 Zveno Pty Ltd +# http://www.zveno.com/ +# +# See the file "LICENSE" in this distribution for information on usage and +# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# $Id: mkPkgIndex.tcl,v 1.1.1.1 2009/01/16 22:11:49 joye Exp $ + +set infile [lindex $argv 0] +set outfile [lindex $argv 1] + +set ch [open $infile] +set script [read $ch] +close $ch + +set ch [open $outfile w] + +foreach parameter [lrange $argv 2 end] { + regexp {^([^=]+)=(.*)$} $parameter dummy name value + regsub -all @${name}@ $script $value script +} + +puts $ch $script +close $ch + +exit 0 |