From 9346d11ab7b03d91f04d02ac9d2888522a9ffc8d Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Wed, 26 May 1999 02:25:14 +0000
Subject: Fixed so patchlevel is included in installer strings.
---
tools/genWinImage.tcl | 8 +++++++-
tools/tcl.wse.in | 2 +-
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/tools/genWinImage.tcl b/tools/genWinImage.tcl
index cecca62..1265d85 100644
--- a/tools/genWinImage.tcl
+++ b/tools/genWinImage.tcl
@@ -5,7 +5,7 @@
# Copyright (c) 1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: genWinImage.tcl,v 1.3 1999/04/30 22:45:03 stanton Exp $
+# 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.
@@ -116,6 +116,12 @@ proc genWinImage::generateInstallers {} {
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
diff --git a/tools/tcl.wse.in b/tools/tcl.wse.in
index 1703b73..8378667 100644
--- a/tools/tcl.wse.in
+++ b/tools/tcl.wse.in
@@ -46,7 +46,7 @@ item: Set Variable
end
item: Set Variable
Variable=PATCHLEVEL
- Value=8.1
+ Value=${__TCL_PATCH_LEVEL__}
end
item: Set Variable
Variable=APPTITLE
--
cgit v0.12