Tcl Source Code

Check-in [b52390dc27]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed so patchlevel is included in installer strings.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | scriptics-tclpro-1-3-b2-branch | core-8-1-1
Files: files | file ages | folders
SHA1: b52390dc2790af3c53e03a1adb5e6fc176a656de
User & Date: stanton 1999-05-26 02:25:14
Original Comment: Fixed so patchlevel is included in installer strings.
Context
1999-05-26
02:25
Fixed so patchlevel is included in installer strings. Closed-Leaf check-in: b52390dc27 user: stanton tags: scriptics-tclpro-1-3-b2-branch, core-8-1-1
1999-05-25
21:15
Fixed incorrect patchlevel info. check-in: de78338462 user: stanton tags: scriptics-tclpro-1-3-b2-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/genWinImage.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
...
112
113
114
115
116
117
118






119
120
121
122
123
124
125
# genWinImage.tcl --
#
#	This script generates the Windows installer.
#
# Copyright (c) 1999 by Scriptics Corporation.
# All rights reserved.
# 
# RCS: @(#) $Id: genWinImage.tcl,v 1.3 1999/04/30 22:45:03 stanton Exp $


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

namespace eval genWinImage {
    # toolsDir --
    #
................................................................................
    # 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 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






|







 







>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
...
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
# genWinImage.tcl --
#
#	This script generates the Windows installer.
#
# Copyright (c) 1999 by Scriptics Corporation.
# All rights reserved.
# 
# RCS: @(#) $Id: genWinImage.tcl,v 1.3.2.1 1999/05/26 02:25:14 stanton Exp $


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

namespace eval genWinImage {
    # toolsDir --
    #
................................................................................
    # 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

Changes to tools/tcl.wse.in.

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
end
item: Set Variable
  Variable=VER
  Value=8.1
end
item: Set Variable
  Variable=PATCHLEVEL
  Value=8.1
end
item: Set Variable
  Variable=APPTITLE
  Value=Tcl/Tk %PATCHLEVEL% for Windows
end
item: Set Variable
  Variable=URL






|







42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
end
item: Set Variable
  Variable=VER
  Value=8.1
end
item: Set Variable
  Variable=PATCHLEVEL
  Value=${__TCL_PATCH_LEVEL__}
end
item: Set Variable
  Variable=APPTITLE
  Value=Tcl/Tk %PATCHLEVEL% for Windows
end
item: Set Variable
  Variable=URL