diff options
Diffstat (limited to 'tools/genWinImage.tcl')
| -rw-r--r-- | tools/genWinImage.tcl | 157 |
1 files changed, 0 insertions, 157 deletions
diff --git a/tools/genWinImage.tcl b/tools/genWinImage.tcl deleted file mode 100644 index e57d018..0000000 --- a/tools/genWinImage.tcl +++ /dev/null @@ -1,157 +0,0 @@ -# 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 |