mkPkgIndex.tcl

Go to the documentation of this file.
00001 /*  mkPkgIndex.tcl --*/
00002 /* */
00003 /*  Helper script for non-TEA installion on Windows.*/
00004 /*  This script resolves configure symbols.*/
00005 /* */
00006 /*  Copyright (c) 2003 Zveno Pty Ltd*/
00007 /*  http://www.zveno.com/*/
00008 /* */
00009 /*  See the file "LICENSE" in this distribution for information on usage and*/
00010 /*  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.*/
00011 /* */
00012 /*  $Id: mkPkgIndex.tcl,v 1.1 2004/01/15 07:38:40 balls Exp $*/
00013 
00014  infile =  [lindex $argv 0]
00015  outfile =  [lindex $argv 1]
00016 
00017  ch =  [open $infile]
00018  script =  [read $ch]
00019 close $ch
00020 
00021  ch =  [open $outfile w]
00022 
00023 foreach parameter [lrange $argv 2 end] {
00024     regexp {^([^=]+)=(.*)$} $parameter dummy name value
00025     regsub -all @${name}@ $script $value script
00026 }
00027 
00028 puts $ch $script
00029 close $ch
00030 
00031 exit 0
00032