From 8474d3b883327330e60e7e7480b75f201bdf6a79 Mon Sep 17 00:00:00 2001
From: Johannes Schindelin <johannes.schindelin@gmx.de>
Date: Mon, 12 Nov 2007 20:08:11 +0000
Subject: [PATCH] Add /share/tcltk/release.sh, a script to update Tcl/Tk

This script uses the /share/msysGit/{pre,post}-install.sh scripts.

Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
---
 src/tcltk/.gitignore       |   2 +
 src/tcltk/fileList-tcl.txt | 110 +++++++++++++++++++++++++++++++++++++++++++++
 src/tcltk/fileList-tk.txt  |  61 +++++++++++++++++++++++++
 src/tcltk/release.sh       |  69 ++++++++++++++++++++++++++++
 4 files changed, 242 insertions(+)
 create mode 100644 src/tcltk/.gitignore
 create mode 100644 src/tcltk/fileList-tcl.txt
 create mode 100644 src/tcltk/fileList-tk.txt
 create mode 100644 src/tcltk/release.sh

diff --git a/src/tcltk/.gitignore b/src/tcltk/.gitignore
new file mode 100644
index 0000000000..19d028de71
--- /dev/null
+++ b/src/tcltk/.gitignore
@@ -0,0 +1,2 @@
+/tcl*
+/tk*
diff --git a/src/tcltk/fileList-tcl.txt b/src/tcltk/fileList-tcl.txt
new file mode 100644
index 0000000000..34144d454b
--- /dev/null
+++ b/src/tcltk/fileList-tcl.txt
@@ -0,0 +1,110 @@
+mingw/bin/tcl84.dll
+mingw/bin/tcldde12.dll
+mingw/bin/tclpip84.dll
+mingw/bin/tclreg11.dll
+mingw/bin/tclsh
+mingw/bin/tclsh84.exe
+mingw/doc/tcltk/PORTNOTES
+mingw/doc/tcltk/license.terms
+mingw/lib/tcl8.4/auto.tcl
+mingw/lib/tcl8.4/encoding/ascii.enc
+mingw/lib/tcl8.4/encoding/big5.enc
+mingw/lib/tcl8.4/encoding/cp1250.enc
+mingw/lib/tcl8.4/encoding/cp1251.enc
+mingw/lib/tcl8.4/encoding/cp1252.enc
+mingw/lib/tcl8.4/encoding/cp1253.enc
+mingw/lib/tcl8.4/encoding/cp1254.enc
+mingw/lib/tcl8.4/encoding/cp1255.enc
+mingw/lib/tcl8.4/encoding/cp1256.enc
+mingw/lib/tcl8.4/encoding/cp1257.enc
+mingw/lib/tcl8.4/encoding/cp1258.enc
+mingw/lib/tcl8.4/encoding/cp437.enc
+mingw/lib/tcl8.4/encoding/cp737.enc
+mingw/lib/tcl8.4/encoding/cp775.enc
+mingw/lib/tcl8.4/encoding/cp850.enc
+mingw/lib/tcl8.4/encoding/cp852.enc
+mingw/lib/tcl8.4/encoding/cp855.enc
+mingw/lib/tcl8.4/encoding/cp857.enc
+mingw/lib/tcl8.4/encoding/cp860.enc
+mingw/lib/tcl8.4/encoding/cp861.enc
+mingw/lib/tcl8.4/encoding/cp862.enc
+mingw/lib/tcl8.4/encoding/cp863.enc
+mingw/lib/tcl8.4/encoding/cp864.enc
+mingw/lib/tcl8.4/encoding/cp865.enc
+mingw/lib/tcl8.4/encoding/cp866.enc
+mingw/lib/tcl8.4/encoding/cp869.enc
+mingw/lib/tcl8.4/encoding/cp874.enc
+mingw/lib/tcl8.4/encoding/cp932.enc
+mingw/lib/tcl8.4/encoding/cp936.enc
+mingw/lib/tcl8.4/encoding/cp949.enc
+mingw/lib/tcl8.4/encoding/cp950.enc
+mingw/lib/tcl8.4/encoding/dingbats.enc
+mingw/lib/tcl8.4/encoding/ebcdic.enc
+mingw/lib/tcl8.4/encoding/euc-cn.enc
+mingw/lib/tcl8.4/encoding/euc-jp.enc
+mingw/lib/tcl8.4/encoding/euc-kr.enc
+mingw/lib/tcl8.4/encoding/gb12345.enc
+mingw/lib/tcl8.4/encoding/gb1988.enc
+mingw/lib/tcl8.4/encoding/gb2312-raw.enc
+mingw/lib/tcl8.4/encoding/gb2312.enc
+mingw/lib/tcl8.4/encoding/iso2022-jp.enc
+mingw/lib/tcl8.4/encoding/iso2022-kr.enc
+mingw/lib/tcl8.4/encoding/iso2022.enc
+mingw/lib/tcl8.4/encoding/iso8859-1.enc
+mingw/lib/tcl8.4/encoding/iso8859-10.enc
+mingw/lib/tcl8.4/encoding/iso8859-13.enc
+mingw/lib/tcl8.4/encoding/iso8859-14.enc
+mingw/lib/tcl8.4/encoding/iso8859-15.enc
+mingw/lib/tcl8.4/encoding/iso8859-16.enc
+mingw/lib/tcl8.4/encoding/iso8859-2.enc
+mingw/lib/tcl8.4/encoding/iso8859-3.enc
+mingw/lib/tcl8.4/encoding/iso8859-4.enc
+mingw/lib/tcl8.4/encoding/iso8859-5.enc
+mingw/lib/tcl8.4/encoding/iso8859-6.enc
+mingw/lib/tcl8.4/encoding/iso8859-7.enc
+mingw/lib/tcl8.4/encoding/iso8859-8.enc
+mingw/lib/tcl8.4/encoding/iso8859-9.enc
+mingw/lib/tcl8.4/encoding/jis0201.enc
+mingw/lib/tcl8.4/encoding/jis0208.enc
+mingw/lib/tcl8.4/encoding/jis0212.enc
+mingw/lib/tcl8.4/encoding/koi8-r.enc
+mingw/lib/tcl8.4/encoding/koi8-u.enc
+mingw/lib/tcl8.4/encoding/ksc5601.enc
+mingw/lib/tcl8.4/encoding/macCentEuro.enc
+mingw/lib/tcl8.4/encoding/macCroatian.enc
+mingw/lib/tcl8.4/encoding/macCyrillic.enc
+mingw/lib/tcl8.4/encoding/macDingbats.enc
+mingw/lib/tcl8.4/encoding/macGreek.enc
+mingw/lib/tcl8.4/encoding/macIceland.enc
+mingw/lib/tcl8.4/encoding/macJapan.enc
+mingw/lib/tcl8.4/encoding/macRoman.enc
+mingw/lib/tcl8.4/encoding/macRomania.enc
+mingw/lib/tcl8.4/encoding/macThai.enc
+mingw/lib/tcl8.4/encoding/macTurkish.enc
+mingw/lib/tcl8.4/encoding/macUkraine.enc
+mingw/lib/tcl8.4/encoding/shiftjis.enc
+mingw/lib/tcl8.4/encoding/symbol.enc
+mingw/lib/tcl8.4/encoding/tis-620.enc
+mingw/lib/tcl8.4/history.tcl
+mingw/lib/tcl8.4/http1.0/http.tcl
+mingw/lib/tcl8.4/http1.0/pkgIndex.tcl
+mingw/lib/tcl8.4/http2.4/http.tcl
+mingw/lib/tcl8.4/http2.4/pkgIndex.tcl
+mingw/lib/tcl8.4/http2.5/http.tcl
+mingw/lib/tcl8.4/http2.5/pkgIndex.tcl
+mingw/lib/tcl8.4/init.tcl
+mingw/lib/tcl8.4/ldAout.tcl
+mingw/lib/tcl8.4/msgcat1.3/msgcat.tcl
+mingw/lib/tcl8.4/msgcat1.3/pkgIndex.tcl
+mingw/lib/tcl8.4/opt0.4/optparse.tcl
+mingw/lib/tcl8.4/opt0.4/pkgIndex.tcl
+mingw/lib/tcl8.4/package.tcl
+mingw/lib/tcl8.4/parray.tcl
+mingw/lib/tcl8.4/reg1.1/pkgIndex.tcl
+mingw/lib/tcl8.4/reg1.1/registry.tap
+mingw/lib/tcl8.4/reg1.1/tclreg11.dll
+mingw/lib/tcl8.4/safe.tcl
+mingw/lib/tcl8.4/tclIndex
+mingw/lib/tcl8.4/tcltest2.2/pkgIndex.tcl
+mingw/lib/tcl8.4/tcltest2.2/tcltest.tcl
+mingw/lib/tcl8.4/word.tcl
diff --git a/src/tcltk/fileList-tk.txt b/src/tcltk/fileList-tk.txt
new file mode 100644
index 0000000000..1201c5fc2a
--- /dev/null
+++ b/src/tcltk/fileList-tk.txt
@@ -0,0 +1,61 @@
+mingw/bin/tk84.dll
+mingw/bin/wish.exe
+mingw/bin/wish84.exe
+mingw/lib/tk8.4/bgerror.tcl
+mingw/lib/tk8.4/button.tcl
+mingw/lib/tk8.4/choosedir.tcl
+mingw/lib/tk8.4/clrpick.tcl
+mingw/lib/tk8.4/comdlg.tcl
+mingw/lib/tk8.4/console.tcl
+mingw/lib/tk8.4/dialog.tcl
+mingw/lib/tk8.4/entry.tcl
+mingw/lib/tk8.4/focus.tcl
+mingw/lib/tk8.4/images/README
+mingw/lib/tk8.4/images/logo.eps
+mingw/lib/tk8.4/images/logo100.gif
+mingw/lib/tk8.4/images/logo64.gif
+mingw/lib/tk8.4/images/logoLarge.gif
+mingw/lib/tk8.4/images/logoMed.gif
+mingw/lib/tk8.4/images/pwrdLogo.eps
+mingw/lib/tk8.4/images/pwrdLogo100.gif
+mingw/lib/tk8.4/images/pwrdLogo150.gif
+mingw/lib/tk8.4/images/pwrdLogo175.gif
+mingw/lib/tk8.4/images/pwrdLogo200.gif
+mingw/lib/tk8.4/images/pwrdLogo75.gif
+mingw/lib/tk8.4/images/tai-ku.gif
+mingw/lib/tk8.4/listbox.tcl
+mingw/lib/tk8.4/menu.tcl
+mingw/lib/tk8.4/mkpsenc.tcl
+mingw/lib/tk8.4/msgbox.tcl
+mingw/lib/tk8.4/msgs/cs.msg
+mingw/lib/tk8.4/msgs/de.msg
+mingw/lib/tk8.4/msgs/el.msg
+mingw/lib/tk8.4/msgs/en.msg
+mingw/lib/tk8.4/msgs/en_gb.msg
+mingw/lib/tk8.4/msgs/eo.msg
+mingw/lib/tk8.4/msgs/es.msg
+mingw/lib/tk8.4/msgs/es_ES.msg
+mingw/lib/tk8.4/msgs/fr.msg
+mingw/lib/tk8.4/msgs/it.msg
+mingw/lib/tk8.4/msgs/nl.msg
+mingw/lib/tk8.4/msgs/pl.msg
+mingw/lib/tk8.4/msgs/pt.msg
+mingw/lib/tk8.4/msgs/ru.msg
+mingw/lib/tk8.4/obsolete.tcl
+mingw/lib/tk8.4/optMenu.tcl
+mingw/lib/tk8.4/palette.tcl
+mingw/lib/tk8.4/panedwindow.tcl
+mingw/lib/tk8.4/pkgIndex.tcl
+mingw/lib/tk8.4/prolog.ps
+mingw/lib/tk8.4/safetk.tcl
+mingw/lib/tk8.4/scale.tcl
+mingw/lib/tk8.4/scrlbar.tcl
+mingw/lib/tk8.4/spinbox.tcl
+mingw/lib/tk8.4/tclIndex
+mingw/lib/tk8.4/tearoff.tcl
+mingw/lib/tk8.4/text.tcl
+mingw/lib/tk8.4/tk.tcl
+mingw/lib/tk8.4/tkAppInit.c
+mingw/lib/tk8.4/tkfbox.tcl
+mingw/lib/tk8.4/unsupported.tcl
+mingw/lib/tk8.4/xmfbox.tcl
diff --git a/src/tcltk/release.sh b/src/tcltk/release.sh
new file mode 100644
index 0000000000..46e633e773
--- /dev/null
+++ b/src/tcltk/release.sh
@@ -0,0 +1,69 @@
+#!/bin/sh
+
+# This is the Tcl/Tk updating script for msysGit
+
+
+cd "$(dirname "$0")"
+srcdir=$(pwd)
+
+mirror=http://kent.dl.sourceforge.net/sourceforge/tcl/
+version=8.5.5
+
+for p in tcl tk
+do
+	# get the package
+	u=$mirror$p$version-src.tar.gz
+	b=$(basename $u)
+	test -f $b || curl $u > $b || exit
+
+	# unpack it
+	d=$p$version
+	test -d $d || tar xzvf $b || exit
+
+	# compile it
+	shortversion=$(echo $version |
+		sed -n "s/^[^0-9]*\([0-9][0-9]*\)\.\([0-9][0-9]*\).*/\1\2/p")
+	case $p in
+	tcl) prog=tclsh$shortversion.exe;;
+	tk) prog=wish$shortversion.exe;;
+	esac
+	test -f $d/win/$prog || (
+		cd $d/win &&
+		./configure --prefix=/mingw &&
+		make ||
+		exit
+	)
+
+	# install it
+	test -f /mingw/bin/$prog && test /mingw/bin/$prog -nt $d/win/$prog || (
+		cd $d/win &&
+
+		# Record pre-install state
+		index=$(/share/msysGit/pre-install.sh) &&
+
+		# Remove old Tcl/Tk files stored in fileList.txt
+		list=$srcdir/fileList-$p.txt
+		cat "$list" | (cd / && xargs git rm) &&
+
+		make install &&
+
+		shortprog=$(echo $prog | tr -d '0-9') &&
+		if test ! -f /mingw/bin/$shortprog
+		then
+			ln /mingw/bin/$prog /mingw/bin/$shortprog
+		fi &&
+
+		/share/msysGit/post-install.sh $index \
+			"Update $p to version $version" &&
+
+		git diff --diff-filter=AM --name-only HEAD^! |
+			sed -e "s/^/\//" > "$list" &&
+		(cd / && git commit -C HEAD --amend -- "$list") ||
+
+		exit
+)
+done
+
+echo "Successfully built and installed Tcl/Tk $version"
+echo
+
-- 
2.11.4.GIT