#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1995 - 1999,
# by Gerald Banon. All rights reserved.
# Version 2.1
# unpack.tcl \
exec ../../../../../\
dpi.inpe.br/banon/1997/10.21.17.24\
/doc/tk8.0/unix/wish "$0" ${1+"$@"}

set URLibServiceRepository dpi.inpe.br/banon/1998/08.02.08.56
set pwd [pwd]
regexp "(^.*)/col/$URLibServiceRepository/doc" $pwd m homePath
if {$tcl_platform(platform) == "windows"} {
#	set zipRepository dpi.inpe.br/banon/1998/03.07.08.57
	set unZipRepository dpi.inpe.br/banon/2000/08.09.16.24
}
if {$tcl_platform(platform) == "unix"} {
#	set zipRepository dpi.inpe.br/vagner/1999/07.22.16.12
	set unZipRepository dpi.inpe.br/banon/2000/08.09.17.10
}

if {$tcl_platform(platform) == "windows"} {
	console show
#	console hide
}
cd C:/usuario/gerald/URLib6
exec \
$homePath/col/$unZipRepository/doc/unzip -o \
$homePath/col/$URLibServiceRepository/download/doc.zip
# exec \
$homePath/col/$unZipRepository/doc/unzip -ao \
$homePath/col/$URLibServiceRepository/download/doc.zip
cd $pwd

puts made