# genWinImage.tcl --

 #

 #	This script generates the Windows installer.

 #

 # Copyright (c) 1999 by Scriptics Corporation.

 # All rights reserved.

 # 

 # RCS: @(#) $Id: genWinImage.tcl,v 1.5 2000/04/25 22:29:21 hobbs Exp $

 # This file is insensitive to the directory from which it is invoked.

 namespace eval genWinImage {

     # toolsDir --

     #

     # This variable points to the platform specific tools directory.

     variable toolsDir

     # tclBuildDir --

     #

     # This variable points to the directory containing the Tcl built tree.

     variable tclBuildDir

     # tkBuildDir --

     #

     # This variable points to the directory containing the Tk built tree.

     variable tkBuildDir

     # our script name at runtime

     variable script [info script]

 }

 # genWinImage::init --

 #

 #	This is the main entry point.

 #

 # Arguments:

 #	None.

 #

 # Results:

 #	None.

 proc genWinImage::init {} {

     global tcl_platform argv argv0

     variable tclBuildDir

     variable tkBuildDir

     variable toolsDir

     variable script

     puts "\n--- $script started: \

 	    [clock format [clock seconds] -format "%Y%m%d-%H:%M"] --\n"

     if {$tcl_platform(platform) != "windows"} {

 	puts stderr "ERROR: Cannot build TCL.EXE on Unix systems"

 	exit 1

     }

     if {[llength $argv] != 3} {

 	puts stderr "usage: $argv0 <tclBuildDir> <tkBuildDir> <toolsDir>"

 	exit 0

     }

     set tclBuildDir [lindex $argv 0]

     set tkBuildDir [lindex $argv 1]

     set toolsDir [lindex $argv 2]

     generateInstallers

     puts "\n--- $script finished: \

 	    [clock format [clock seconds] -format "%Y%m%d-%H:%M"] --\n\n"

 }

 # genWinImage::makeTextFile --

 #

 #	Convert the input file into a CRLF terminated text file.

 #

 # Arguments:

 #	infile		The input file to convert.

 #	outfile		The location where the text file should be stored.

 #

 # Results:

 #	None.

 proc genWinImage::makeTextFile {infile outfile} {

     set f [open $infile r]

     set text [read $f]

     close $f

     set f [open $outfile w]

     fconfigure $f -translation crlf

     puts -nonewline $f $text

     close $f

 }

 # genWinImage::generateInstallers --

 #

 #	Perform substitutions on the pro.wse.in file and then

 #	invoke the WSE script twice; once for CD and once for web.

 #

 # Arguments:

 #	None.

 #

 # Results:

 #	Leaves proweb.exe and procd.exe sitting in the curent directory.

 proc genWinImage::generateInstallers {} {

     variable toolsDir

     variable tclBuildDir

     variable tkBuildDir

     # Now read the "pro/srcs/install/pro.wse.in" file, have Tcl make

     # appropriate substitutions, write out the resulting file in a

     # current-working-directory.  Use this new file to perform installation

     # image creation.  Note that we have to use this technique to set

     # the value of _WISE_ because wise32 won't use a /d switch for this

     # variable.

     set __TCLBASEDIR__ [file native $tclBuildDir]

     set __TKBASEDIR__ [file native $tkBuildDir]

     set __WISE__ [file native [file join $toolsDir wise]]

     set f [open [file join $__TCLBASEDIR__ generic/tcl.h] r]

     set s [read $f]

     close $f

     regexp {TCL_PATCH_LEVEL\s*\"([^\"]*)\"} $s dummy __TCL_PATCH_LEVEL__

     set f [open tcl.wse.in r]

     set s [read $f]

     close $f

     set s [subst -nocommands -nobackslashes $s]

     set f [open tcl.wse w]

     puts $f $s

     close $f

     # Ensure the text files are CRLF terminated

     makeTextFile [file join $tclBuildDir win/README.binary] \

 	    [file join $tclBuildDir win/readme.txt]

     makeTextFile [file join $tclBuildDir license.terms] \

 	    [file join $tclBuildDir license.txt]

     set wise32ProgFilePath [file native [file join $__WISE__ wise32.exe]]

     # Run the Wise installer to create the Windows install images.

     if {[catch {exec [file native $wise32ProgFilePath] /c tcl.wse} errMsg]} {

 	puts stderr "ERROR: $errMsg"

     } else {

 	puts "\"TCL.EXE\" created."

     }

     return

 }

 genWinImage::init