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