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