bitrock-installer-extract.tcl

# Script extracts installer files from the BitRock InstallBuilder (https://installbuilder.bitrock.com/) archives.
# Script is fully based on code found in the `bitrock-unpacker` (https://github.com/greyltc/bitrock-unpacker).
#
# Tested with ActiveTcl 8.5.18.0.298892 (https://www.activestate.com/products/activetcl/)
#
# Example command:
# > C:\Tcl\bin\base-tcl8.5-thread-win32-ix86.exe bitrock-installer-extract.tcl jxplorer-3.3.1.2-windows-installer.exe 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-2.7.9.tm http_stat
#puts "_> stat(lib/tcl8/8.4/http-2.7.9.tm)"
#parray http_stat

puts "Copying Bitrock installer files to $destDir"
file copy -force $installerMount $destDir
puts "Done"