githubmirror/bash-completion

contrib/cpan2dist
45 строк1 KB
David Paleino
Use proper options variables
05 фев 2009, 12:11
05 фев 2009, 12:11fe04d9d
# -*- mode: shell-script; sh-basic-offset: 8; indent-tabs-mode: t -*-
# ex: ts=8 sw=8 noet filetype=sh
#
# bash completion for cpan2dist

have cpan2dist &&
_cpan2dist()
{
	local cur prev packagelist cpandirs

	COMPREPLY=()
	cur=`_get_cword`
	prev=${COMP_WORDS[COMP_CWORD-1]}

	case $prev in
		--format)
			# should remove ":" from COMP_WORDBREAKS, but doesn't work (?)
			COMPREPLY=( $( compgen -W '$(perl -MCPANPLUS::Dist -e "print map { \"\$_\n\" } CPANPLUS::Dist->dist_types")' -- "$cur" ) )
			return 0
			;;
		--@(banlist|ignorelist|modulelist|logfile))
			_filedir
			return 0
			;;
	esac

	if [[ "$cur" == -* ]]; then
		COMPREPLY=( $( compgen -W '--help --skiptest --force --install \
			--verbose --keepsource --makefile --buildprereq \
			--archive --flushcache --defaults --edit-metafile \
			--format --ban --banlist --ignore --ignorelist \
			--modulelist --logfile --timeout --set-config \
			--set-program --dist-opts --default-banlist \
			--default-ignorelist' -- $cur ) )
	else
		cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
		for dir in ${cpandirs[@]}; do
			[ -d "$dir" -a -r "$dir/02packages.details.txt.gz" ] && packagelist="$dir/02packages.details.txt.gz"
		done
		COMPREPLY=( $( zgrep "^${cur//-/::}" \
			$packagelist 2>/dev/null \
			| awk '{print $1}' | sed -e 's/::/-/g' ) ) 
	fi
} &&
complete -F _cpan2dist $default cpan2dist