Мендель Купер - Искусство программирования на языке сценариев командной оболочки

eval "$@";

done

}

function ask()

{

echo -n "$@" '[y/n] ' ; read ans

case "$ans" in

y*|Y*) return 0 ;;

*) return 1 ;;

esac

}

#=========================================================================

#

# ПРОГРАММНЫЕ ДОПОЛНЕНИЯ - ТОЛЬКО НАЧИНАЯ С ВЕРСИИ BASH-2.04

# Большая часть дополнений взята из докуентации к bash 2.05 и из

# пакета 'Bash completion' (http://www.caliban.org/bash/index.shtml#completion)

# автор -- Ian McDonalds

# Фактически, у вас должен стоять bash-2.05a

#

#=========================================================================

if [ "${BASH_VERSION%.*}" \< "2.05" ]; then

echo "Вам необходимо обновиться до версии 2.05"

return

fi

shopt -s extglob # необходимо

set +o nounset # иначе некоторые дополнения не будут работать

complete -A hostname rsh rcp telnet rlogin r ftp ping disk

complete -A export printenv

complete -A variable export local readonly unset

complete -A enabled builtin

complete -A alias alias unalias

complete -A function function

complete -A user su mail finger

complete -A helptopic help

complete -A shopt shopt

complete -A stopped -P '%' bg

complete -A job -P '%' fg jobs disown

complete -A directory mkdir rmdir

complete -A directory -o default cd

# Архивация

complete -f -o default -X '*.+(zip|ZIP)' zip

complete -f -o default -X '!*.+(zip|ZIP)' unzip

complete -f -o default -X '*.+(z|Z)' compress

complete -f -o default -X '!*.+(z|Z)' uncompress

complete -f -o default -X '*.+(gz|GZ)' gzip

complete -f -o default -X '!*.+(gz|GZ)' gunzip

complete -f -o default -X '*.+(bz2|BZ2)' bzip2

complete -f -o default -X '!*.+(bz2|BZ2)' bunzip2

# Postscript,pdf,dvi.....

complete -f -o default -X '!*.ps' gs ghostview ps2pdf ps2ascii

complete -f -o default -X '!*.dvi' dvips dvipdf xdvi dviselect dvitype

complete -f -o default -X '!*.pdf' acroread pdf2ps

complete -f -o default -X '!*.+(pdf|ps)' gv

complete -f -o default -X '!*.texi*' makeinfo texi2dvi texi2html texi2pdf

complete -f -o default -X '!*.tex' tex latex slitex

complete -f -o default -X '!*.lyx' lyx

complete -f -o default -X '!*.+(htm*|HTM*)' lynx html2ps

# Multimedia

complete -f -o default -X '!*.+(jp*g|gif|xpm|png|bmp)' xv gimp

complete -f -o default -X '!*.+(mp3|MP3)' mpg123 mpg321

complete -f -o default -X '!*.+(ogg|OGG)' ogg123

complete -f -o default -X '!*.pl' perl perl5

# Эти 'универсальные' дополнения работают тогда, когда команды вызываются

# с, так называемыми, 'длинными ключами', например: 'ls --all' вместо 'ls -a'

_get_longopts ()

{

$1 --help | sed -e '/--/!d' -e 's/.*--\([^[:space:].,]*\).*/--\1/'| \

grep ^"$2" |sort -u ;

}

_longopts_func ()

{

case "${2:-*}" in

-*) ;;

*) return ;;

esac

case "$1" in

\~*) eval cmd="$1" ;;

*) cmd="$1" ;;

esac

COMPREPLY=( $(_get_longopts ${1} ${2} ) )

}

complete -o default -F _longopts_func configure bash

complete -o default -F _longopts_func wget id info a2ps ls recode

_make_targets ()

{

local mdef makef gcmd cur prev i

COMPREPLY=()

cur=${COMP_WORDS[COMP_CWORD]}

prev=${COMP_WORDS[COMP_CWORD-1]}

# Если аргумент prev это -f, то вернуть возможные варианты имен файлов.

# будем великодушны и вернем несколько вариантов

# `makefile Makefile *.mk'

case "$prev" in

-*f) COMPREPLY=( $(compgen -f $cur ) ); return 0;;

esac

# Если запрошены возможные ключи, то вернуть ключи posix

case "$cur" in

-) COMPREPLY=(-e -f -i -k -n -p -q -r -S -s -t); return 0;;

esac

# попробовать передать make `makefile' перед тем как попробовать передать `Makefile'

if [ -f makefile ]; then

mdef=makefile

elif [ -f Makefile ]; then

mdef=Makefile

else

mdef=*.mk

fi

# прежде чем просмотреть "цели", убедиться, что имя makefile было задано

# ключом -f

for (( i=0; i < ${#COMP_WORDS[@]}; i++ )); do

if [[ ${COMP_WORDS[i]} == -*f ]]; then

eval makef=${COMP_WORDS[i+1]}

break

fi

done

[ -z "$makef" ] && makef=$mdef

# Если задан шаблон поиска, то ограничиться

# этим шаблоном

if [ -n "$2" ]; then gcmd='grep "^$2"' ; else gcmd=cat ; fi

# если мы не желаем использовать *.mk, то необходимо убрать cat и использовать

# test -f $makef с перенаправлением ввода

COMPREPLY=( $(cat $makef 2>/dev/null | awk 'BEGIN {FS=":"} /^[^.# ][^=]*:/ {print $1}' | tr -s ' ' '\012' | sort -u | eval $gcmd ) )

}

complete -F _make_targets -X '+($*|*.[cho])' make gmake pmake

# cvs(1) completion

_cvs ()

{

local cur prev

COMPREPLY=()

cur=${COMP_WORDS[COMP_CWORD]}

prev=${COMP_WORDS[COMP_CWORD-1]}

if [ $COMP_CWORD -eq 1 ] || [ "${prev:0:1}" = "-" ]; then

COMPREPLY=( $( compgen -W 'add admin checkout commit diff \

export history import log rdiff release remove rtag status \

tag update' $cur ))

else

COMPREPLY=( $( compgen -f $cur ))

fi

return 0

}

complete -F _cvs cvs

_killall ()

{

local cur prev

COMPREPLY=()

cur=${COMP_WORDS[COMP_CWORD]}

# получить список процессов

COMPREPLY=( $( /usr/bin/ps -u $USER -o comm | \

sed -e '1,1d' -e 's#[]\[]##g' -e 's#^.*/##'| \

awk '{if ($0 ~ /^'$cur'/) print $0}' ))

return 0

}

complete -F _killall killall killps

# Функция обработки мета-команд

# В настоящее время недостаточно отказоустойчива (например, mount и umount

# обрабатываются некорректно), но все еще актуальна. Автор Ian McDonald, изменена мной.

_my_command()

{

local cur func cline cspec

COMPREPLY=()

cur=${COMP_WORDS[COMP_CWORD]}

if [ $COMP_CWORD = 1 ]; then

COMPREPLY=( $( compgen -c $cur ) )

elif complete -p ${COMP_WORDS[1]} &>/dev/null; then

cspec=$( complete -p ${COMP_WORDS[1]} )

if [ "${cspec%%-F *}" != "${cspec}" ]; then

# complete -F

#

# COMP_CWORD and COMP_WORDS() доступны на запись,

# так что мы можем установить их перед тем,

# как передать их дальше

# уменьшить на 1 текущий номер лексемы

COMP_CWORD=$(( $COMP_CWORD - 1 ))

# получить имя функции

func=${cspec#*-F }

func=${func%% *}

# получить командную строку, исключив первую команду

cline="${COMP_LINE#$1 }"

# разбить на лексемы и поместить в массив

COMP_WORDS=( $cline )

$func $cline

elif [ "${cspec#*-[abcdefgjkvu]}" != "" ]; then

# complete -[abcdefgjkvu]

#func=$( echo $cspec | sed -e 's/^.*\(-[abcdefgjkvu]\).*$/\1/' )

func=$( echo $cspec | sed -e 's/^complete//' -e 's/[^ ]*$//' )

COMPREPLY=( $( eval compgen $func $cur ) )

elif [ "${cspec#*-A}" != "$cspec" ]; then

# complete -A

func=${cspec#*-A }

func=${func%% *}

COMPREPLY=( $( compgen -A $func $cur ) )

fi

else

COMPREPLY=( $( compgen -f $cur ) )

fi

}

complete -o default -F _my_command nohup exec eval trace truss strace sotruss gdb

complete -o default -F _my_command command type which man nice

# Локальные переменные:

# mode:shell-script

# sh-shell:bash

# Конец:

Большое число программистов начинало изучать скриптовые языки на PC, работающих под управлением DOS. Даже на этом "калеке" удавалось создавать неплохие сценарии, хотя это и требовало значительных усилий. Иногда еще возникает потребность в переносе пекетных файлов DOS на платформу UNIX, в виде сценариев командной оболочки. Обычно это не сложно, поскольку набор операторов, доступных в DOS, представляет из себя ограниченное подмножество эквивалентных команд, доступных в командной оболочке.

Таблица H-1. Ключевые слова/переменные/операторы пакетных файлов DOS и их аналоги командной оболочки

Пакетные файлы обычно содержат вызовы команд DOS. Они должны быть заменены эквивалентными командами UNIX.