uar.in

MC Linux/Unix 终端下文件管理器

#!/bin/sh
#
# Written by    Alex Kuchma <[e-mail]>
#               Alex Tkachenko <[e-mail]>
# Updated by    Vitezslav Samel <[e-mail]>
#
# (C) 1997, 1998 The Free Software Foundation.
#
#

XAR=ar

mcarfs_list ()
{
	$XAR tv "$1" | sed 's,^,-,;s, , 1 ,;s,/, ,'
}

mcarfs_copyout ()
{
    $XAR p "$1" "$2" > "$3"
}

mcarfs_copyin ()
{
    TMPDIR=/tmp/mctmpdir-uar.$$
    mkdir $TMPDIR || exit 1
    name=`basename "$2"`
    (cd $TMPDIR && cp -fp "$3" $name && $XAR r "$1" $name)
    rm -rf $TMPDIR
}

mcarfs_rm ()
{
    $XAR d "$1" "$2"
}

# override any locale for dates
LC_ALL=C
export LC_ALL

umask 077
case "$1" in
  list) mcarfs_list "$2" ;;
  copyout) shift; mcarfs_copyout "$@" ;;
  copyin) shift; mcarfs_copyin "$@" ;;
  rm) shift; mcarfs_rm "$@" ;;
  *) exit 1;
esac

exit 0