From b41c0a70bd7349638f68b65419e28669f227b62a Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 24 Sep 2004 12:27:12 +0000
Subject: Improved the script, it does compilation now.

---
 win/package.tcl | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/win/package.tcl b/win/package.tcl
index 6e521e5..2351f0b 100644
--- a/win/package.tcl
+++ b/win/package.tcl
@@ -1,11 +1,31 @@
+#
+# This script is intended to be run in the win sub-directory
+# with: tclsh84 package.tcl
+#
 set packager {C:\Program Files\Caphyon\Advanced Installer\AdvancedInstaller.exe}
 
 #
+# Make the Tcl library
+#
+catch {exec nmake -f makefile.vc} result
+puts $result
+
+#
+# Make the Perl library, use for this the
+# buildperl script.
+#
+set wd [pwd]
+cd ..
+catch {exec tclsh buildperl.tcl} result
+puts $result
+cd $wd
+
+#
 # Build a merged pkgIndex.tcl
 #
 set fout [open pkgIndex.tcl w]
 set fin [open [file join .. pkgIndex.tcl]]
-puts -nonewline $fout [read $fin];
+puts -nonewline $fout [read $fin]
 close $fin
 set fin [open [file join .. library pkgIndex.tcl]]
 foreach line [split [read $fin] \n] {
@@ -39,9 +59,18 @@ puts $fout {__END__
 close $fin
 close $fout
 
+#
+# Create a demo script ending in .tcl
+#
 file copy -force [file join .. demos zinc-widget] zinc-widget.tcl
 
+#
+# Wrap up the msi packages
+#
 exec $packager /build Tkzinc.aip
 exec $packager /build Tkzincperl.aip
 
+#
+# Clean up after messing around
+#
 #file delete -force pkgIndex.tcl zinc-widget.tcl zinc-demos.bat
-- 
cgit v1.1