Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
# Script extracts installer files from the BitRock InstallBuilder ( archives.
# Script is fully based on code found in the `bitrock-unpacker` (
# Tested with ActiveTcl (
# Example command:
# > C:\Tcl\bin\base-tcl8.5-thread-win32-ix86.exe bitrock-installer-extract.tcl jxplorer- out\
if {$argc < 2} {
puts "Usage: $argv0 installerFile outputDirectory"
exit 1
set installerFile [lindex $argv 0]
set destDir [lindex $argv 1]
set installerMount installer
vfs::mk4::Mount $installerFile $installerMount -readonly
#file stat $installerMount/lib/tcl8/8.4/ http_stat
#puts "_> stat(lib/tcl8/8.4/"
#parray http_stat
puts "Copying Bitrock installer files to $destDir"
file copy -force $installerMount $destDir
puts "Done"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment