# 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