1# unwrap - unpack starkits to a file system tree 2# 3# Usage: unwrap starkit 4# 5# A directory called "starkit.vfs" is created and filled with all 6# files present in the input starkit. The dir must not exist. 7# 8# 06-10-2000: files are now extracted to the current directory 9# so "unwrap ../mystar.kit" will end up in "./mystar.vfs/" 10# 11# by Jean-Claude Wippler <jcw@equi4.com> 12 13package require vfs::mk4 14 15if {[llength $argv] != 1} { 16 puts stderr "Usage: $argv0 starkit" 17 exit 1 18} 19 20set skit $argv 21set odir [file root [file tail $skit]].vfs ;# 06-10-2000 22 23if {[file exists $odir] || [catch {file mkdir $odir}]} { 24 puts stderr "Cannot create '$odir' directory" 25 exit 1 26} 27 28vfs::mk4::Mount $skit skdb -readonly 29 30set argv [list -verbose 0 -noerror 0 skdb $odir] 31source [file join [file dirname [info script]] sync.tcl] 32