wok view fatattr/stuff/fatattr.sh @ rev 25539

Up perl-test-compile (3.1.0)
author Pascal Bellard <pascal.bellard@slitaz.org>
date Thu Mar 09 12:11:13 2023 +0000 (22 months ago)
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