1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 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 2004/01/15 07:38:40 balls 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
|