Posted to tcl by venks at Sat Jul 14 20:30:46 GMT 2012view raw
- --- kitsh/build.sh
- +++ kitsh/build.sh
- @@ -186,16 +186,15 @@
- "${TCLKIT}" installvfs.tcl "${KITTARGET_NAME}" starpack.vfs "${ENABLECOMPRESSION}" || exit 1
- else
- ## Bootstrap (cannot cross-compile)
- ### Call installer
- cp kit runkit
- - echo "set argv [list {${KITTARGET_NAME}} starpack.vfs {${ENABLECOMPRESSION}}]" > setup.tcl
- + echo "set argv [list {${KITTARGET_NAME}} `pwd`/starpack.vfs {${ENABLECOMPRESSION}}]" > setup.tcl
- echo 'if {[catch { clock seconds }]} { proc clock args { return 0 } }' >> setup.tcl
- - echo 'source installvfs.tcl' >> setup.tcl
- -
- + echo 'source [file dirname [info script]]/installvfs.tcl' >> setup.tcl
- echo 'Running: echo | ./runkit'
- - echo | ./runkit setup.tcl || exit 1
- + echo | ./runkit `pwd`/setup.tcl || exit 1
- fi
- # Cleanup
- if [ "${KITTARGET}" = "kitdll" ]; then
- ## Remove built interpreters if we are building KitDLL --
- --- kitsh/buildsrc/kitsh-0.0/installvfs.tcl
- +++ kitsh/buildsrc/kitsh-0.0/installvfs.tcl
- @@ -13,11 +13,11 @@
- if {[lindex $argv 2] != ""} {
- set opt_compression [lindex $argv 2]
- }
- # Determine what storage mechanism is being used
- -set fd [open Makefile.common r]
- +set fd [open [file dirname [info script]]/Makefile.common r]
- set data [read $fd]
- close $fd
- if {[string match "*KIT_STORAGE_ZIP*" $data]} {
- set tclKitStorage zip