/usr/lib/gnu-smalltalk/vfs/uzip is in gnu-smalltalk 3.2.4-2.1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | #! /bin/sh
#
# Written by Jakub Jelinek 1995
# Updated by Christian Gennerat 1999
#
# (C) 1995,1999 The Free Software Foundation.
#
#
DZIP=/usr/bin
XZIP="$DZIP/zip -g"
XDZIP="$DZIP/zip -d"
XUNZIP="$DZIP/unzip"
XZIPINFO="$DZIP/unzip -Z"
#
#If you don't have zipinfo, set ZIPINFO=
#
mczipfs_list ()
{
DOZIPINFO=no
uid=`id -ru 2>/dev/null` || uid=0
if test -n "$XZIPINFO"; then
DOZIPINFO=
$XZIPINFO -l "$1" | gawk -v uid=$uid -v zipfile="$1" -v xunzip=${XUNZIP-unzip} '
/^Archive/ { next }
/^[0-9]*\ file/ { next }
/unx/ {
split($0,a,":")
nam = substr(a[2],4)
if ($1 ~ /^l/ ) {
arrow=" -> "
linkname=""
cmd=xunzip " -p " zipfile " " nam
cmd | getline linkname
} else {
arrow=""
linkname=""
}
if (nam ~ /^\^/)
nam=substr(nam, 2)
split($8, a, "-")
if (a[3] < 50)
a[3] = 2000 + a[3]
else
a[3] = 1900 + a[3]
printf "%s 1 %-8d %-8d %8d %3s %2d %4d %s %s%s%s\n", $1, uid, 0, $4, a[2], a[1], a[3], $9, nam, arrow, linkname
next
}
{
exit 214
}' 2>/dev/null
if test $? = 214; then
DOZIPINFO=no
fi
fi
if test -n "$DOZIPINFO"; then
$XUNZIP -v "$1" | gawk -v uid=$uid '
BEGIN { hyphens=0 }
/^Archive/ { next }
/^\ Length/ { next }
/^\ ?------/ { if (hyphens > 0) exit 0; hyphens=1; next }
{
if (hyphens < 1) next;
if ($8 ~ /^\^/)
$8=substr($8, 2)
## Y2K patch. if Year>=2000, unzip returns Year>=100
split($5, a, "-")
if (a[3] > 99)
a[3] = substr(a[3],2)
if ($8 ~ /\/$/)
s = sprintf("drwxr-xr-x 1 %-8d %-8d %8d %s-%s-%s %s", uid, 0, $1, a[1],a[2],a[3], $6)
else
s = sprintf("-rw-r--r-- 1 %-8d %-8d %8d %s-%s-%s %s", uid, 0, $1, a[1],a[2],a[3], $6)
$1 = $2 = $3 = $4 = $5 = $6 = $7 = ""
print s, $0
}' 2>/dev/null
fi
}
mczipfs_mkdir ()
{
# preserve pwd. It is clean, but is it necessary?
pwd=`pwd`
# Create a directory and create in it a tmp directory with the good name
{
dir=`
(umask 077 && mktemp -d "$TMPDIR/uzipXXXXXX") 2>/dev/null
` &&
test -n "$dir" && test -d "$dir"
} || {
dir=$TMPDIR/uzip$$-$RANDOM
(umask 077 && mkdir "$dir")
} || exit $?
cd $dir
mkdir -p "$2"
$XZIP "$1" "$2" >/dev/null 2>&1
cd $pwd
rm -rf $dir
}
mczipfs_copyin ()
{
# preserve pwd. It is clean, but is it necessary?
pwd=`pwd`
# Create a directory and copy in it the tmp file with the good name
mkdir $3.dir
cd $3.dir
di="${2%/*}"
# if file is to be written upper in the archive tree, make fake dir
if test "$di" != "${2##*/}" ; then
mkdir -p "$di"
fi
# (cp -p) to preserve date, but $2 is dated now!
cp -p $3 "$3.dir/$2"
$XZIP "$1" "$2" >/dev/null 2>&1
cd $pwd
rm -rf $3.dir
}
mczipfs_copyout ()
{
$XUNZIP -p "$1" "$2" > "$3" 2>/dev/null
}
mczipfs_rm ()
{
$XDZIP "$1" "$2" >/dev/null 2>&1
}
mczipfs_rmdir ()
{
$XDZIP "$1" "$2"/ >/dev/null 2>&1
}
umask 077
#echo "`date +%T` ${0##*/} $1 $2 to=$3 tmp=$4" >>~/tmp/${0##*/}.log
case "$1" in
list) mczipfs_list "$2"; exit 0;;
rm) mczipfs_rm "$2" "$3" ; exit 0;;
rmdir) mczipfs_rmdir "$2" "$3" ; exit 0;;
mkdir) mczipfs_mkdir "$2" "$3" ; exit 0;;
copyin) mczipfs_copyin "$2" "$3" "$4" ; exit 0;;
copyout) mczipfs_copyout "$2" "$3" "$4" ; exit 0;;
esac
exit 1
|