diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-03 16:54:16 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-03 16:54:16 (GMT) |
| commit | 8e0659f6705d064eb39dbcf23ed9aa09b2c4e433 (patch) | |
| tree | b4741f331d2841ad97a7b1a40666444d517735d8 /tclxml/win/mkPkgIndex.tcl | |
| parent | cae9c9d5c6df43e89088871f3e9591e4f6e6be22 (diff) | |
| parent | c0573da8973e0ae8650d787d639a9acf9ab4a1ac (diff) | |
| download | blt-8e0659f6705d064eb39dbcf23ed9aa09b2c4e433.zip blt-8e0659f6705d064eb39dbcf23ed9aa09b2c4e433.tar.gz blt-8e0659f6705d064eb39dbcf23ed9aa09b2c4e433.tar.bz2 | |
Merge commit 'c0573da8973e0ae8650d787d639a9acf9ab4a1ac' as 'tclxml'
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 |