From ff4fd1e486ccd6a2ece88db68bdd866061847b1a Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 14 May 2004 11:04:56 +0000
Subject: *** empty log message ***

---
 win/package.tcl | 42 +++++++++++++++++++++++++++++++++++-------
 1 file changed, 35 insertions(+), 7 deletions(-)

(limited to 'win')

diff --git a/win/package.tcl b/win/package.tcl
index 3b129da..6e521e5 100644
--- a/win/package.tcl
+++ b/win/package.tcl
@@ -1,19 +1,47 @@
 set packager {C:\Program Files\Caphyon\Advanced Installer\AdvancedInstaller.exe}
+
+#
+# Build a merged pkgIndex.tcl
+#
 set fout [open pkgIndex.tcl w]
-set fid [open [file join .. pkgIndex.tcl]];
-puts -nonewline $fout [read $fid];
-close $fid
-set fid [open [file join .. library pkgIndex.tcl]]
-foreach line [split [read $fid] \n] {
+set fin [open [file join .. pkgIndex.tcl]]
+puts -nonewline $fout [read $fin];
+close $fin
+set fin [open [file join .. library pkgIndex.tcl]]
+foreach line [split [read $fin] \n] {
     if {![regexp {^\s*$|^#} $line]} {
 	puts $fout $line
     }
 }
-close $fid;
+close $fin
+close $fout
+
+#
+# Build a .bat script for the Perl demos.
+#
+set fout [open zinc-demos.bat w]
+set fin [open [file join .. Perl demos zinc-demos]]
+puts $fout {@rem = '--*-Perl-*--
+@echo off
+if "%OS%" == "Windows_NT" goto WinNT
+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+:WinNT
+perl -x -S %0 %*
+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
+if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+goto endofperl
+@rem ';}
+puts $fout [read $fin]
+puts $fout {__END__
+:endofperl}
+close $fin
 close $fout
 
 file copy -force [file join .. demos zinc-widget] zinc-widget.tcl
 
 exec $packager /build Tkzinc.aip
+exec $packager /build Tkzincperl.aip
 
-#file delete -force pkgIndex.tcl zinc-widget.tcl
+#file delete -force pkgIndex.tcl zinc-widget.tcl zinc-demos.bat
-- 
cgit v1.1