/usr/lib/gnu-smalltalk/vfs/uar is in gnu-smalltalk 3.2.4-2.
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 | #!/bin/sh
#
# Written by Alex Kuchma <ask@bcs.zp.ua>
# Alex Tkachenko <alex@bcs.zp.ua>
# Updated by Vitezslav Samel <xsamel00@dcse.fee.vutbr.cz>
#
# (C) 1997, 1998 The Free Software Foundation.
#
#
XAR=ar
XUNAR=ar
XARINFO="ar tv"
AWK=awk
mcarfs_list ()
{
YEAR=`date '+%Y'`
$XARINFO $1 | gawk -v year=$YEAR '
{
date = $(NF-1)
if(date == year) {
date = $(NF-2);
}
perms = substr($1, 1, 9);
split($2, id, "/");
if(NF > 8) {
id[2] = $3;
}
printf("-%9s 1 %8d %8d %8d %s %s %s %s\n", perms, id[1], id[2], $(NF-5), $(NF-4), $(NF-3), date, $(NF));
}' 2>/dev/null
}
mcarfs_copyout ()
{
$XUNAR p $1 $2 > $3
}
# override any locale for dates
LC_ALL=C
export LC_ALL
umask 077
case "$1" in
list) mcarfs_list $2; exit 0;;
copyout) shift; mcarfs_copyout $*; exit 0;;
copyin) shift; mcarfs_copyin $*; exit 0;;
esac
exit 1
|