package require mk4vfs
set skipDirs {CVS .*}
set skipFiles {core}
set args {binaryName scriptName outFile}
if {[llength $args] != [llength $argv]} {
puts stderr "Usage: [info script] $args"
exit 1
}
foreach $args $argv break
file copy -force $binaryName $outFile
vfs::mk4::Mount $outFile $outFile
set fh [open [file join $outFile main.tcl] w]
fconfigure $fh -translation lf
puts $fh "package require starkit\nstarkit::startup\npackage require app"
close $fh
file mkdir [file join $outFile lib]
file mkdir [file join $outFile lib app]
set fh [open [file join $outFile lib app pkgIndex.tcl] w]
fconfigure $fh -translation lf
puts $fh {package ifneeded app 1.0 [list source [file join $dir app.tcl]]}
close $fh
set fh [open [file join $outFile lib app app.tcl] w]
fconfigure $fh -translation lf
puts $fh {package provide app 1.0}
set sfh [open $scriptName r]
puts $fh [read $sfh]
close $sfh
close $fh
vfs::unmount $outFile
exit 0