* tools/genWinImage.tcl (removed): Removed two files used in

        * win/README.binary (removed):  production of binary distributions
        for Windows, a task we no longer perform.  [Bug 1476980].


FossilOrigin-Name: f09825fcbb8fb241343cc6337cc4a293d2ba59a7

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