diff options
author | lecoanet | 2004-05-14 11:04:56 +0000 |
---|---|---|
committer | lecoanet | 2004-05-14 11:04:56 +0000 |
commit | ff4fd1e486ccd6a2ece88db68bdd866061847b1a (patch) | |
tree | 0bfaaf8db2a772e07ea5a47d6ff0a25b3e1c455a /win | |
parent | 5ae065793e50a20d604b428d51b5e63a0225e3d5 (diff) | |
download | tkzinc-ff4fd1e486ccd6a2ece88db68bdd866061847b1a.zip tkzinc-ff4fd1e486ccd6a2ece88db68bdd866061847b1a.tar.gz tkzinc-ff4fd1e486ccd6a2ece88db68bdd866061847b1a.tar.bz2 tkzinc-ff4fd1e486ccd6a2ece88db68bdd866061847b1a.tar.xz |
*** empty log message ***
Diffstat (limited to 'win')
-rw-r--r-- | win/package.tcl | 42 |
1 files changed, 35 insertions, 7 deletions
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 |