wok-6.x view fatattr/stuff/fatattr.sh @ rev 22528

updated bacon (3.8.1 -> 3.9.3)
author Hans-G?nter Theisgen
date Thu Jan 02 17:20:30 2020 +0100 (2020-01-02)
parents 46a4ae996aa7
children
line source
1 #!/bin/sh
2
3 ATTRS=.fatattr
4
5 cdfat() {
6 fatattr $1 > /dev/null && cd $1
7 }
8
9 case "${1/--/-}" in
10 -s*) find ${3:-.} -exec fatattr {} \; > ${2:-$ATTRS} ;;
11 -r*) sed -e 's/^\(.\{0,8\}\)/\1=/' -e ':a;s/^\([^ =]*\)\ /\1/;ta' \
12 -e "s/^/fatattr +/;s|= | ${3:-.}/|" < ${2:-$ATTRS} | sh ;;
13 -c*) cdfat ${2:-.} && $0 -s && find . | cpio -o -H newc ;;
14 -[xe]*) cdfat ${2:-.} && cpio -idmu && $0 -r && rm -f $ATTRS ;;
15 *) cat 1>&2 <<EOT
16 Usage: $0 [--save|--restore] [datafile] [root]
17 $0 [--create-cpio|--extract-cpio] [root]
18 EOT
19 esac
20