File: mkPkgIndex.tcl

package info (click to toggle)
tclxml 3.3~svn11-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 4,392 kB
  • sloc: ansic: 13,292; tcl: 11,656; xml: 3,269; sh: 559; makefile: 15
file content (31 lines) | stat: -rw-r--r-- 709 bytes parent folder | download | duplicates (5)
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