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 | c0573da8973e0ae8650d787d639a9acf9ab4a1ac (patch) | |
| tree | ae0daad36caaacde226aa18a75415b247b89148b /win/mkPkgIndex.tcl | |
| download | blt-c0573da8973e0ae8650d787d639a9acf9ab4a1ac.zip blt-c0573da8973e0ae8650d787d639a9acf9ab4a1ac.tar.gz blt-c0573da8973e0ae8650d787d639a9acf9ab4a1ac.tar.bz2 | |
Squashed 'tclxml/' content from commit 22ffbb5a
git-subtree-dir: tclxml
git-subtree-split: 22ffbb5a3e984efb993e8b58cdf7a11ffddd1836
Diffstat (limited to 'win/mkPkgIndex.tcl')
| -rw-r--r-- | win/mkPkgIndex.tcl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/win/mkPkgIndex.tcl b/win/mkPkgIndex.tcl new file mode 100644 index 0000000..63b8e12 --- /dev/null +++ b/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 |