shell_patterns=0 + ! t t @ Ради нешто над текућом датотеком CMD=%{Унесите наредбу} $CMD %f + t t @ Ради нешто над означеним датотекама set %t; CMD=%{Унесите наредбу} while [ -n "$1" ]; do $CMD "$1" shift done 0 Уреди пријаву грешке и пошаљи је администратору ${EDITOR-vi} /tmp/mail.$$ test -r /tmp/mail.$$ && mail root < /tmp/mail.$$ rm -f /tmp/mail.$$ =+ f \.1$ | f \.3$ | f \.4$ | f \.5$ | f \.6$ | f \.7$ | f \.8$ | f \.man$ & t r 1 Прикажи датотеку уз помоћ roff -man nroff -man %f | less 2 Позови читач хипертекста info info = t d 3 Компримуј текући поддиректоријум (tar.gz) Pwd=`basename "%d" /` echo -n "Назив компримоване датотеке (без врсте) [$Pwd]: " read tar if [ "$tar"x = x ]; then tar="$Pwd"; fi cd .. && \ tar cf - "$Pwd" | gzip -f9 > "$tar.tar.gz" && \ echo "Датотека ../$tar.tar.gz је створена." 4 Компримуј текући поддиректоријум (tar.bz2) Pwd=`basename %d /` echo -n "Назив компримоване датотеке (без врсте) [$Pwd]: " read tar if [ "$tar"x = x ]; then tar="$Pwd"; fi cd .. && \ tar cf - "$Pwd" | bzip2 -f > "$tar.tar.bz2" && \ echo "Датотека ../$tar.tar.bz2 је створена." = f \.c$ & t r + f \.c$ & t r & ! t t 5 Преведи и повежи текућу датотеку врсте `.c' make `basename %f .c` 2>/dev/null || cc -O -o `basename %f .c` %f + t r & ! t t a Надовежи датотеку на ону из другог окна cat %f >>%D/%f + t t A Надовежи датотеке на оне из другог окна set %t while [ -n "$1" ]; do cat "$1" >> "%D/$1" shift done + t r & ! t t d Обриши датотеку ако њена копија постоји у другом окну. if [ "%d" = "%D" ]; then echo "Два директоријума морају да буду различити." exit 1 fi if [ -f %D/%f ]; then # if two of them, then if cmp -s %D/%f %f; then rm %f && echo "%f: ОБРИСАНА." else echo "%f и %D/%f се разликују: НИЈЕ обрисана." echo -n "Притисните `RETURN' " read тастер fi else echo "%f: Нема копије у %D/%f: НИЈЕ обрисана." fi + t t D Обриши означене датотеке ако постоји копија у другом окну. if [ "%d" = "%D" ]; then echo "Два директоријума морају да буду различити." exit 1 fi for i in %t do if [ -f "%D/$i" ]; then SUM1="`sum $i`" SUM2="`sum %D/$i`" if [ "$SUM1" = "$SUM2" ]; then rm "$i" && echo "${i}: ОБРИСАНА." else echo "$i и %D/$i се разликују: НИЈЕ обрисана." fi else echo "%f нема копију у %D: НИЈЕ обрисана." fi done m Погледај страницу упутства MAN=%{Унесите назив упутства} %view{ascii,nroff} MANROFFOPT='-c -Tlatin1' MAN_KEEP_FORMATTING=1 man -P cat $MAN = f \.gz$ & t r + ! t t n Прегледај датотеку вести компримовану програмом gzip dd if=%f bs=1 skip=12|zcat|${PAGER-more} # assuming the cunbatch header is 12 bytes long. = t r & + ! t t h Скини заглавља из текућег чланка вести CHECK=`awk '{print $1 ; exit}' %f` 2>/dev/null case "$CHECK" in Newsgroups:|Path:) cp %f /tmp/%f.$$ && sed '/^'"$CHECK"' /,/^$/d' /tmp/%f.$$ > %f [ "$?" = "0" ] && rm "/tmp/%f.$$" echo "%f: уклоњено заглавље." ;; *) echo "%f није чланак вести." ;; esac + t t H Скини заглавља из означених чланака вести set %t while [ -n "$1" ]; do CHECK=`awk '{print $1 ; exit}' "$1"` 2>/dev/null WFILE=/tmp/${1}.$$ case "$CHECK" in Newsgroups:|Path:) cp "$1" "$WFILE" && sed '/^'"$CHECK"' /,/^$/d' "$WFILE" > "$1" if [ "$?" = "0" ]; then rm "$WFILE"; echo "$1 заглавље уклоњено. У реду." else echo "Уупс! Молим да проверите $1 са $WFILE." fi ;; *) echo "$1 прескочена: Није чланак вести." ;; esac shift done = t r + ! t t r Копирај датотеку на удаљеног домаћина echo -n "На ког домаћина?: " read Домаћин echo -n "У који директоријум на $Домаћин?: " read Дир rcp -p %f "${Домаћин}:$Дир" + t t R Копирај датотеке на удаљеног домаћина (без провере грешака) echo -n "На ког домаћина да копирам датотеке?: " read Домаћин echo -n "У који директоријум на $Домаћин? :" read Дир rcp -pr %u "${Домаћин}:$Дир" = f \.tex$ & t r + f \.tex$ & t r & ! t t t Покрени ЛаТеХ над датотеком и прикажи је преко програма `xdvi' latex %f && xdvi `basename %f .tex`.dvi =+ f ^part | f ^Part | f uue & t r + t t U Уудекодирај означени чланак вести (требало би разрадити) set %t ( while [ -n "$1" ]; do # strip headers FIRST=`awk '{print $1 ; exit}' "$1"` cat "$1" | sed '/^'"$FIRST"' /,/^$/d'; shift done ) |sed '/^$/d' |sed -n '/^begin 6/,/^end$/p' | uudecode if [ "$?" != "0" ]; then echo "Не могу да декодирам %t." fi echo "Молим да проверите излазну датотеку пре било каквог брисања." =+ f \.tar\.gz$ | f \.tar\.z$ | f \.tgz$ | f \.tpz$ | f \.tar\.lz$ | f \.tar\.lzma$ | f \.tar\.7z$ | f \.tar\.xz$ | f \.tar\.Z$ | f \.tar\.bz2$ & t r x Издвој садржај компримоване датотеке врсте `tar' unset PRG case %f in *.tar.bz2) PRG="bunzip2 -c" ;; *.tar.gz|*.tar.z|*.tgz|*.tpz|*.tar.Z) PRG="gzip -dc" ;; *.tar.lzma) PRG="lzma -dc" ;; *.tar.lz) PRG="lzip -dc" ;; *.tar.xz) PRG="xz -dc" ;; *.tar.7z) PRG="7za e -so" ;; *) exit 1 ;; esac $PRG %f | tar xvf - = t r + ! t t y Пакуј или расп. тек. дат. програмима `gzip' или `gunzip' unset DECOMP case %f in *.gz) DECOMP=-d;; *.[zZ]) DECOMP=-d;; esac gzip $DECOMP -v %f + t t Y Пакуј или расп. означ. дат. програмима `gzip' или `gunzip' 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' или `bunzip2' unset DECOMP case %f in *.bz2) DECOMP=-d;; esac bzip2 $DECOMP -v %f + t t B Пакуј или расп. означ. дат. програмима `bzip2' или `bunzip2' 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 Издвој компримовану датотеку врсте `tar' у поддиректоријум 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 Издвој компримовану датотеке врсте `tar' у поддиректоријуме 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 Пребаци 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 Пребаци 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 + x /usr/bin/open | x /usr/local/bin/open & x /bin/sh o Отвори следећу слободну конзолу open -s -- sh