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
|
