From dc85b9dea08e5019b80a338f763872b54260275d Mon Sep 17 00:00:00 2001 From: Sven Wischnowsky Date: Mon, 2 Apr 2001 11:06:27 +0000 Subject: moved to Completion/Base/Completer/_expand --- Completion/Core/_expand | 185 ------------------------------------------------ 1 file changed, 185 deletions(-) delete mode 100644 Completion/Core/_expand (limited to 'Completion') diff --git a/Completion/Core/_expand b/Completion/Core/_expand deleted file mode 100644 index 4835e4efc..000000000 --- a/Completion/Core/_expand +++ /dev/null @@ -1,185 +0,0 @@ -#autoload - -# This completer function is intended to be used as the first completer -# function and allows one to say more explicitly when and how the word -# from the line should be expanded than expand-or-complete. -# This function will allow other completer functions to be called if -# the expansions done produce no result or do not change the original -# word from the line. - -setopt localoptions nonomatch - -[[ _matcher_num -gt 1 ]] && return 1 - -local exp word sort expr expl subd suf=" " force opt asp tmp opre pre epre - -(( $# )) && - while getopts gsco opt; do - force="$force$opt" - done - -if [[ "$funcstack[2]" = _prefix ]]; then - word="$IPREFIX$PREFIX$SUFFIX" -else - word="$IPREFIX$PREFIX$SUFFIX$ISUFFIX" -fi - -[[ "$word" = *\$(|\{[^\}]#) || - ( "$word" = *\$[a-zA-Z0-9_]## && $+parameters[${word##*\$}] -eq 0 ) ]] && - return 1 - -zstyle -T ":completion:${curcontext}:" suffix && - [[ "$word" = (\~*/|\$(|[=~#^+])[a-zA-Z0-9_\[\]]##[^a-zA-Z0-9_\[\]]|\$\{*\}?)[^\$\{\}\(\)\<\>?^*#~]# ]] && - return 1 - -zstyle -t ":completion:${curcontext}:" accept-exact || - [[ $? -eq 2 && ! -o recexact ]] || - { [[ "$word" = \~(|[-+]) || - ( "$word" = \~[-+][1-9]## && $word[3,-1] -le $#dirstack ) || - ( "$word" = \~* && ${#userdirs[(I)${word[2,-1]}*]}+${#nameddirs[(I)${word[2,-1]}*]} -ne 1 ) || - ( "$word" = *\$[a-zA-Z0-9_]## && - ${#parameters[(I)${word##*\$}*]} -ne 1 ) ]] && return 1 } - -# In exp we will collect the expansions. - -exp=("$word") - -# First try substitution. That weird thing spanning multiple lines -# changes quoted spaces, tabs, and newlines into spaces and protects -# this function from aborting on parse errors in the expansion. - -if [[ "$force" = *s* ]] || - zstyle -T ":completion:${curcontext}:" substitute; then - [[ ! -o ignorebraces && "${#${exp}//[^\{]}" = "${#${exp}//[^\}]}" ]] && - eval exp\=\( ${${(q)exp}:gs/\\{/\{/:gs/\\}/\}/} \) 2>/dev/null - eval 'exp=( ${${(e)exp//\\[ -]/ }//(#b)([ -])/\\$match[1]} )' 2>/dev/null -else - exp=( ${exp:s/\\\$/\$} ) -fi - -# If the array is empty, store the original string again. - -[[ -z "$exp" ]] && exp=("$word") - -subd=("$exp[@]") - -# Now try globbing. - -[[ "$force" = *g* ]] || zstyle -T ":completion:${curcontext}:" glob && - eval 'exp=( ${~exp//(#b)\\[ -]/$match[1]} ); exp=( ${(q)exp} )' 2>/dev/null - -### Don't remember why we once used this instead of the (q) above. -# eval 'exp=( ${~exp} ); exp=( ${exp//(#b)([][()|*?^#~<>\\=])/\\${match[1]}} )' 2>/dev/null - -# If we don't have any expansions or only one and that is the same -# as the original string, we let other completers run. - -(( $#exp )) || exp=("$subd[@]") - -[[ $#exp -eq 1 && "${exp[1]//\\}" = "${word//\\}"(|\(N\)) ]] && return 1 - -# With subst-globs-only we bail out if there were no glob expansions, -# regardless of any substitutions - -{ [[ "$force" = *o* ]] || - zstyle -t ":completion:${curcontext}:" subst-globs-only } && - [[ "$subd" = "$exp"(|\(N\)) ]] && return 1 - -zstyle -s ":completion:${curcontext}:" keep-prefix tmp || tmp=changed -if [[ "$word" = [\~\$]*/* && "$tmp" = (yes|true|on|1|changed) ]]; then - eval 'epre=( ${(e)~${word%%/*}} )' 2>/dev/null - if [[ -n "$epre" && $#epre -eq 1 ]]; then - opre="${word%%/*}" - pre="${(q)epre[1]}" - [[ "$tmp" != changed || $#exp -gt 1 || - "${opre}${exp[1]#${pre}}" != "$word" ]] && exp=( ${opre}${^exp#${pre}} ) - fi - [[ $#exp -eq 1 && "$exp[1]" = "$word" ]] && return 1 -fi - -# Now add as matches whatever the user requested. - -zstyle -s ":completion:${curcontext}:" sort sort - -[[ "$sort" = (yes|true|1|on) ]] && exp=( "${(@o)exp}" ) - -if zstyle -s ":completion:${curcontext}:" add-space tmp; then - if [[ "$tmp" != *subst* || "$word" != *\$* || "$exp[1]" = *\$* ]]; then - [[ "$tmp" = *file* ]] && asp=file - [[ "$tmp" = *(yes|true|1|on|subst)* ]] && asp="yes$asp" - fi -else - asp=file -fi - -# If there is only one expansion, add a suitable suffix - -if (( $#exp == 1 )); then - if [[ -d ${exp[1]/${opre}/${pre}} && "$exp[1]" != */ ]]; then - suf=/ - elif [[ "$asp" = yes* || - ( "$asp" = *file && -f "${exp[1]/${opre}/${pre}}" ) ]]; then - suf=' ' - else - suf= - fi -fi - -if [[ -z "$compstate[insert]" ]] ;then - if [[ "$sort" = menu ]]; then - _description expansions expl expansions "o:$word" - else - _description -V expansions expl expansions "o:$word" - fi - - compadd "$expl[@]" -UQ -qS "$suf" -a exp -else - _tags all-expansions expansions original - - if _requested all-expansions expl 'all expansions'; then - local disp dstr - - if [[ "${#${exp}}" -ge COLUMNS ]]; then - disp=( -ld dstr ) - dstr=( "${(r:COLUMNS-5:)exp} ..." ) - else - disp=() - fi - compadd "$disp[@]" "$expl[@]" -UQ -qS "$suf" - "$exp" - fi - if [[ $#exp -gt 1 ]] && _requested expansions; then - local i j normal space dir - - if [[ "$sort" = menu ]]; then - _description expansions expl expansions "o:$word" - else - _description -V expansions expl expansions "o:$word" - fi - normal=() - space=() - dir=() - - for i in "$exp[@]"; do - j="${i/${opre}/${pre}}" - if [[ -d "$j" && "$i" != */ ]]; then - dir=( "$dir[@]" "$i" ) - elif [[ "$asp" = yes* || ( "$asp" = *file && -f "$j" ) ]]; then - space=( "$space[@]" "$i" ) - else - normal=( "$normal[@]" "$i" ) - fi - done - (( $#dir )) && compadd "$expl[@]" -UQ -qS/ -a dir - (( $#space )) && compadd "$expl[@]" -UQ -qS " " -a space - (( $#normal )) && compadd "$expl[@]" -UQ -qS "" -a normal - fi - - _requested original expl original && compadd "$expl[@]" -UQ - "$word" - - compstate[insert]=menu -fi - -return 0 -- cgit 1.4.1