Code Sample |
shell_patterns=0 + ! t t @ Do something on the current file CMD=%{Enter command} $CMD %f + t t @ Do something on the tagged files set %t; CMD=%{Enter command} while [ -n "$1" ]; do $CMD "$1" shift done =+ f \.dsl$ | f \.tar\.gz$ | f \.tgz$ & t r m MyDSL mydsl-load %f + f ^files.txt$ | f ^filelist.txt$ | f ^list.txt$ | f ^dsl.txt$ M Create a DSL extension from file list echo -n "Name of extension: " read dsl tar cvzf "$dsl" --numeric-owner --no-recursion -T %f && md5sum "$dsl" > "$dsl.md5.txt" = t d 3 Compress the current subdirectory (tar.gz) Pwd=`basename "%d" /` echo -n "Name of the compressed file (without extension) [$Pwd]: " read tar if [ "$tar"x = x ]; then tar="$Pwd"; fi cd .. && \ tar cf - "$Pwd" | gzip -f9 > "$tar.tar.gz" && \ echo "../$tar.tar.gz created." 4 Compress the current subdirectory (tar.bz2) Pwd=`basename %d /` echo -n "Name of the compressed file (without extension) [$Pwd]: " read tar if [ "$tar"x = x ]; then tar="$Pwd"; fi cd .. && \ tar cf - "$Pwd" | bzip2 -f > "$tar.tar.bz2" && \ echo "../$tar.tar.bz2 created." + f \.tar\.gz$ | f \.tar\.z$ | f \.tgz$ | f \.tpz$ | f \.tar\.Z$| f \.tar\.bz2$ & t r x Extract the contents of a compressed tar file unset EXT case %f in *.tar.bz2) EXT=tar_bz2;; esac if [ "$EXT" = "tar_bz2" ]; then bunzip2 -c %f | tar xvf - else gzip -dc %f | tar xvf - fi + ! t t y Gzip or gunzip current file unset DECOMP case %f in *.gz) DECOMP=-d;; *.[zZ]) DECOMP=-d;; esac gzip $DECOMP -v %f + t t Y Gzip or gunzip tagged files for i in %t do unset DECOMP case $i in *.gz) DECOMP=-d;; *.[zZ]) DECOMP=-d;; esac gzip $DECOMP -v $i done + ! t t b Bzip2 or bunzip2 current file unset DECOMP case %f in *.bz2) DECOMP=-d;; esac bzip2 $DECOMP -v %f + t t B Bzip2 or bunzip2 tagged files for i in %t do unset DECOMP case $i in *.bz2) DECOMP=-d;; esac bzip2 $DECOMP -v $i done + f \.tar.gz$ | f \.tgz$ | f \.tpz$ | f \.tar.Z$ | f \.tar.z$ | f \.tar.bz2$ | f \.tar.F$ & t r & ! t t z Extract compressed tar file to subdirectory unset D set gzip -cd case %f in *.tar.gz) D="`basename %f .tar.gz`";; *.tgz) D="`basename %f .tgz`";; *.tpz) D="`basename %f .tpz`";; *.tar.Z) D="`basename %f .tar.Z`";; *.tar.z) D="`basename %f .tar.z`";; *.tar.bz2) D="`basename %f .tar.bz2`"; set bunzip2 -c;; *.tar.F) D="`basename %f .tar.F`"; set freeze -dc; esac mkdir $D; cd $D && ($1 $2 ../%f | tar xvf -) + t t Z Extract compressed tar files to subdirectories for i in %t do set gzip -dc unset D case $i in *.tar.gz) D="`basename $i .tar.gz`";; *.tgz) D="`basename $i .tgz`";; *.tpz) D="`basename $i .tpz`";; *.tar.Z) D="`basename $i .tar.Z`";; *.tar.z) D="`basename $i .tar.z`";; *.tar.F) D="`basename $i .tar.F`"; set freeze -dc;; *.tar.bz2) D="`basename $i .tar.bz2`"; set bunzip2 -c;; esac mkdir $D; (cd $D && $1 $2 ../$i | tar xvf -) done + f \.gz$ | f \.tgz$ | f \.tpz$ | f \.Z$ | f \.z$ | f \.bz2$ & t r & ! t t c Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2 unset D case %f in *.tgz) EXT=tgz;; *.tpz) EXT=tpz;; *.Z) EXT=Z;; *.z) EXT=z;; *.gz) EXT=gz;; *.bz2) EXT=bz2;; esac case $EXT in tgz|tpz) D="`basename %f .$EXT`.tar";; gz|Z|z) D="`basename %f .$EXT`";; bz2) D="`basename %f .bz2`";; esac if [ "$EXT" = "bz2" ]; then bunzip2 -v %f; gzip -f9 -v $D else gunzip -v %f; bzip2 -v $D fi + t t C Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2 set %t while [ -n "$1" ] do unset D case $1 in *.tgz) EXT=tgz;; *.tpz) EXT=tpz;; *.Z) EXT=Z;; *.z) EXT=z;; *.gz) EXT=gz;; *.bz2) EXT=bz2;; esac case $EXT in tgz) D="`basename $1 .tgz`.tar";; tpz) D="`basename $1 .tpz`.tar";; gz|Z|z) D="`basename $1 .$EXT`";; bz2) D="`basename $1 .bz2`";; esac if [ "$EXT" = "bz2" ]; then bunzip2 -v $1 gzip -f9 -v $D else gunzip -v $1 bzip2 -v $D fi shift done + t r & ! t t a Append file to opposite cat %f >>%D/%f + t t A Append files to opposite files set %t while [ -n "$1" ]; do cat $1 >>%D/$1 shift done |