Edit File: _tla
#compdef tla autoload -z is-at-least local TLA=$words[1] local tla_version local hide_short # ask the user which version of tla this is if ! zstyle -s ":completion:${curcontext}" tla-version tla_version; then # ask tla instead tla_version="$($TLA --version)" if [[ "${${(f)tla_version}[1]}" == The\ GNU\ Arch\ Revision\ Control\ System\ \(tla\)\ (#b)([0-9.]##) ]]; then tla_version="$match[1]" else tla_version="${${$($TLA --version)#tla tla-}%% from regexps.com*}" [[ $tla_version == *[a-zA-Z]* ]] && tla_version=1.3 # tla doesn't know fi fi # test whether to hide short options from completion if zstyle -s ":completion:${curcontext}" hide-shortopts hide_short; then case $hide_short in true|yes|on|1) hide_short='!' ;; *) hide_short='' ;; esac fi # completion functions (( $+functions[_tla_archives] )) || _tla_archives () { _arch_archives tla "$@" } (( $+functions[_tla_categories] )) || _tla_categories () { _arch_namespace tla 1 "$argv[@]" } (( $+functions[_tla_branches] )) || _tla_branches () {_arch_namespace tla 2 "$argv[@]" } (( $+functions[_tla_versions] )) || _tla_versions () { _arch_namespace tla 3 "$argv[@]" } (( $+functions[_tla_revisions] )) || _tla_revisions () { _arch_namespace tla 4 "$argv[@]" } (( $+functions[_tla_local_revisions] )) || _tla_local_revisions () { local expl1 expl2 tree_version=`$TLA tree-version` _description -V applied-patches expl1 "patches from this version" _description -V other-patches expl2 "patches from other versions" compadd "$expl1[@]" `$TLA logs` compadd "$expl2[@]" `$TLA logs --full $($TLA log-versions | grep -v $tree_version)` # This is incredibly slow. # Should complete based on -A, -R, -d } (( $+functions[_tla_config] )) || _tla_config () { # zsh 4.1.1+ is recommended; 4.0.6 gives the error below when doing # tla build-config e<TAB> # _path_files:322: no matches found: configs//e/.(/) # whereas 4.1.1 completes correctly local configdir root ret=1 n expl n=$opt_args[(i)(-d|--dir)] [[ -n "$n" ]] && configdir=$opt_args[$n] root="$(_call_program tla $TLA tree-root ${configdir} 2>&1)" if (( $? )); then _message -e messages "Error: $root" return $ret fi if [[ -d "$root/configs" ]]; then configdir=("$root/configs") _description files expl '%Bconfig file%b' _files -W configdir "$expl[@]" && ret=0 else _message -e messages "No configs/ directory in tree whose root is $root" fi return $ret } (( $+functions[_tla_limit] )) || _tla_limit () { #presently only does push-mirror style limits [[ $words[$CURRENT] == *@* ]] && return 1 local expl archive archive=${words[(r)*@*]:-$($TLA my-default-archive 2> /dev/null)} if [ $archive ]; then if [[ $PREFIX != *--* ]]; then _description -V categories expl "categories in $archive" compadd -q -S -- "$expl[@]" `$TLA categories -A $archive` else _tla_namespace_branches 3 fi fi } (( $+functions[_tla_tree_or_rev] )) || _tla_tree_or_rev () { _alternative 'trees:tree:_files -/' 'revisions:revision:_tla_revisions' } (( $+functions[_tla_libraries] )) || _tla_libraries () { local libraries expl libraries=($(_call_program tla $TLA my-revision-library)) _description -V libraries expl "revision libraries" compadd "$expl[@]" -a libraries } (( $+functions[_tla_my_revision_library] )) || _tla_my_revision_library () { if [[ -n $words[(r)-d] ]] || [[ -n $words[(r)--delete] ]]; then _tla_libraries else _files -/ fi } (( $+functions[_tla_log_versions] )) || _tla_log_versions () { local logs expl if is-at-least 1.1 $tla_version; then logs=($(_call_program tla $TLA log-versions)) else logs=($(_call_program tla $TLA logs)) fi _description -V versions expl "log versions" compadd "$expl[@]" -a logs } # command argument definitions # commands with different versions local cmd_register_archive cmd_archives cmd_ls_archives cmd_redo local cmd_redo_changes cmd_changes cmd_what_changed cmd_categories local cmd_branches cmd_versions cmd_cacherev cmd_logs cmd_log_versions local cmd_log_ls cmd_update cmd_join_branch cmd_replay cmd_deltapatch local cmd_delta_patch cmd_apply_delta cmd_sync_tree cmd_make_sync_tree local cmd_delta cmd_revdelta cmd_library_categories cmd_library_branches local cmd_library_versions cmd_library_revisions local cmd_archive_register cmd_log_ls=('*:version:_tla_log_versions') cmd_log_versions=() # the options should only complete items that are in the tree if is-at-least 1.1 $tla_version; then cmd_register_archive=('::archive:_tla_archives' ':location:_files -/') cmd_archive_register=($cmd_register_archive) cmd_archives=('::regex:') cmd_redo=('::changeset:_files -/') cmd_changes=('::revision:_tla_revisions' # ':separator:(--)' '*::limit:_files' #don't understand the limit usage ) cmd_categories=('::archive:_tla_archives') cmd_branches=('::category:_tla_categories') cmd_versions=('::branch:_tla_branches') cmd_cacherev=('::revision:_tla_revisions') #should only complete non-cached revisions cmd_logs=($cmd_log_ls) cmd_update=('::revision:_tla_revisions') cmd_join_branch=(':revision:_tla_revisions') #should only complete continuation revisions cmd_replay=('*::revision:_tla_revisions') cmd_deltapatch=(':FROM:_tla_tree_or_rev' ':TO:_tla_tree_or_rev') cmd_sync_tree=(':revision:_tla_revisions') cmd_delta=(':FROM:_tla_tree_or_rev' ':TO:_tla_tree_or_rev' '::DEST:_files -/') cmd_library_categories=('::archive:_tla_archives --library') cmd_library_branches=('::category:_tla_categories --library') cmd_library_versions=('::branch:_tla_branches --library') cmd_library_revisions=('::version:_tla_versions --library') else cmd_register_archive=(':archive:_tla_archives' ':location:_files -/') cmd_archives=() cmd_redo=() cmd_changes=('::revision:_tla_revisions') cmd_categories=() cmd_branches=(':category:_tla_categories') cmd_versions=(':branch:_tla_branches') cmd_cacherev=(':revision:_tla_revisions' '::dir:_files -/') cmd_logs=($cmd_log_versions) cmd_update=(':dir:_files -/' '::newdir:_files -/' '::revision:_tla_revisions') cmd_join_branch=(':dir:_files -/' '::newdir:_files -/' ':revision:_tla_revisions') cmd_replay=(':dir:_files -/' '::newdir:_files -/' '::revision:_tla_revisions') cmd_deltapatch=(':FROM:_tla_tree_or_rev' ':TO:_tla_tree_or_rev' ':UPON:_tla_tree_or_rev' '::DEST:_files -/') cmd_sync_tree=(':dir:_files -/' '::newdir:_files -/' ':revision:_tla_revisions') cmd_delta=(':FROM:_tla_tree_or_rev' ':TO:_tla_tree_or_rev') cmd_library_categories=() cmd_library_branches=(':category:_tla_categories --library') cmd_library_versions=(':branch:_tla_branches --library') cmd_library_revisions=(':version:_tla_versions --library') fi cmd_ls_archives=($cmd_archives) cmd_redo_changes=($cmd_redo) cmd_what_changed=($cmd_changes) cmd_delta_patch=($cmd_deltapatch) cmd_apply_delta=($cmd_deltapatch) cmd_make_sync_tree=($cmd_sync_tree) cmd_revdelta=($cmd_delta) # commands the same in all versions local cmd_help cmd_help=() local cmd_my_id cmd_my_id=('::id-string:') local cmd_my_default_archive cmd_my_default_archive=('::archive:_tla_archives') local cmd_whereis_archive cmd_whereis_archive=(':archive:_tla_archives') local cmd_init_tree cmd_init_tree=('::version:_tla_versions') local cmd_tree_root cmd_tree_root=('::directory:_files -/') local cmd_tree_version cmd_tree_version=('::directory:_files -/') local cmd_set_tree_version cmd_set_tree_version=(':version:_tla_versions') local cmd_build_config cmd_buildcfg cmd_build_config=(':config:_tla_config') cmd_buildcfg=($cmd_build_config) local cmd_cat_config cmd_catcfg cmd_cfgcat cmd_cat_config=(':config:_tla_config') cmd_catcfg=($cmd_cat_config) cmd_cfgcat=($cmd_cat_config) local cmd_undo cmd_undo_changes cmd_undo=('::revision:_tla_revisions') cmd_undo_changes=($cmd_undo) local cmd_file_diffs cmd_file_diffs=(':file:_files' '::revision:_tla_revisions') local cmd_file_find cmd_file_find=(':file:_files' '::revision:_tla_revisions') local cmd_inventory cmd_srcfind cmd_inventory=('::separator:(--)' '*:directory:_files -/') cmd_srcfind=($cmd_inventory) local cmd_tree_lint cmd_lint cmd_tree_lint=('::directory:_files -/') cmd_lint=($cmd_tree_lint) local cmd_id cmd_invtag cmd_id=('*:file:_files') cmd_invtag=($cmd_id) local cmd_id_tagging_method cmd_tagging_method methods cmd_id_tagging_method=('::tagging method:(($methods))') methods=( 'names:use naming conventions only' 'implicit:use naming conventions but permit for inventory tags' 'tagline:use naming conventions but permit for inventory tags' 'explicit:require explicit designation of source' ) cmd_tagging_method=($cmd_id_tagging_method) local cmd_add cmd_add_id cmd_add_tag cmd_add=('*:files to add:_files') cmd_add_id=($cmd_add) cmd_add_tag=($cmd_add) local cmd_delete cmd_delete_id cmd_delete_tag cmd_delete=('*:files to delete:_files') cmd_delete_id=($cmd_delete) cmd_delete_tag=($cmd_delete) local cmd_move cmd_move_id cmd_move_tag cmd_move_id=(':old name:_files' ':new name:_files') cmd_move_id=($cmd_move) cmd_move_tag=($cmd_move) #would be nice not to offer dirs for newname if oldname is a file, and #vice versa local cmd_mv cmd_mv=('*:file:_files') # not really right, but close enough local cmd_default_id cmd_explicit_default cmd_default_tag cmd_default_id=('::TAG-PREFIX:') cmd_explicit_default=($cmd_default_id) cmd_default_tag=($cmd_default_id) local cmd_tagging_defaults cmd_id_tagging_defaults cmd_tagging_defaults=() cmd_id_tagging_defaults=($cmd_tagging_defaults) local cmd_changeset cmd_mkpatch cmd_changeset=( ':ORIG:_files -/' ':MOD:_files -/' ':DEST:_files -/' '*:files:_files' ) cmd_mkpatch=("$cmd_changeset[@]") local cmd_dopatch cmd_do_changeset cmd_apply_changeset cmd_dopatch=(':changeset:_files -/' ':target:_files -/') cmd_do_changeset=($cmd_dopatch) cmd_apply_changeset=($cmd_dopatch) local cmd_show_changeset cmd_show_changeset=('::changeset:_files -/') local cmd_make_archive cmd_make_archive=('::name:' ':location:_files -/') local cmd_archive_setup cmd_archive_setup=('*:versions:_tla_branches --trailing-dashes') local cmd_make_category cmd_make_category=(':category:_tla_archives -S /') local cmd_make_branch cmd_make_branch=(':branch:_tla_categories --trailing-dashes') local cmd_make_version cmd_make_version=(':version:_tla_branches --trailing-dashes') local cmd_import cmd_imprev cmd_import=('::version:_tla_versions') cmd_imprev=($cmd_import) local cmd_commit cmd_cmtrev cmd_commit=('::version:_tla_versions' ':separator:(--)' '*:files:_files') cmd_cmtrev=($cmd_commit) local cmd_get cmd_getrev cmd_get=(':revision:_tla_revisions' '::directory:_files -/') cmd_getrev=($cmd_get) local cmd_get_patch cmd_get_changeset cmd_get_patch=(':revision:_tla_revisions' '::dir:_files -/') cmd_get_changeset=($cmd_get_patch) local cmd_lock_revision cmd_lock_revision=(':revision:_tla_revisions') local cmd_push_mirror cmd_archive_mirror cmd_push_mirror=( '::FROM or MINE:_tla_archives' '::TO:_tla_archives' '::LIMIT:_tla_limit' ) cmd_archive_mirror=($cmd_push_mirror) local cmd_revisions cmd_revisions=('::version:_tla_versions') local cmd_ancestry cmd_ancestry=('::revision:_tla_revisions') local cmd_ancestry_graph cmd_ancestry_graph=('::revision:_tla_revisions') local cmd_cat_archive_log cmd_cat_archive_log=(':revision:_tla_revisions') local cmd_cachedrevs cmd_cachedrevs=(':version:_tla_versions') local cmd_uncacherev cmd_uncacherev=(':revision:_tla_revisions' '::dir:_files -/') local cmd_archive_meta_info cmd_archive_meta_info=(':item-name:((name\:foo mirror\:bar))') local cmd_archive_snapshot cmd_archive_snapshot=(':dir:_files -/' '::limit:_tla_revisions') local cmd_archive_version cmd_archive_version=() local cmd_archive_fixup cmd_archive_fixup=() local cmd_make_log cmd_make_log=('::version:_tla_versions') local cmd_add_log cmd_add_log_version cmd_add_log=(':version:_tla_versions') cmd_add_log_version=($cmd_add_log) local cmd_remove_log cmd_remove_log_version cmd_remove_log=(':version:_tla_log_versions') cmd_remove_log_version=($cmd_remove_log) local cmd_abrowse cmd_abrowse=('::LIMIT:_tla_revisions') local cmd_cat_log cmd_cat_log=(':revision-spec:_tla_local_revisions') local cmd_changelog cmd_changelog=('::version:_tla_versions') local cmd_log_for_merge cmd_log_for_merge=('::version:_tla_versions') local cmd_merges cmd_merges=(':INTO:_tla_revisions' '::FROM:_tla_revisions') local cmd_new_merges cmd_new_merges=('::version:_tla_versions') local cmd_tag cmd_tagrev cmd_branch cmd_tag=(':SOURCE-REVISION:_tla_revisions' ':TAG-VERSION:_tla_versions') cmd_tagrev=($cmd_tag) cmd_branch=($cmd_tag) local cmd_star_merge cmd_star_merge=(':FROM:_tla_revisions') local cmd_missing cmd_whats_missing cmd_missing=('::revision:_tla_revisions') cmd_whats_missing=($cmd_missing) local cmd_pristines cmd_ls_pristines cmd_pristines=('::limit:_tla_revisions') cmd_ls_pristines=($cmd_pristines) local cmd_lock_pristine cmd_lock_pristine=(':revision:_tla_revisions') local cmd_add_pristine cmd_add_pristine=(':revision:_tla_revisions') local cmd_find_pristine cmd_find_pristine=(':revision:_tla_revisions') local cmd_my_revision_library cmd_library_dir cmd_my_revision_library=(':library:_tla_my_revision_library') cmd_library_dir=($my_revision_library) local cmd_library_find cmd_library_find=(':revision:_tla_revisions --library') local cmd_library_add cmd_library_add=(':revision:_tla_revisions --exclude-library-revisions') local cmd_library_remove cmd_library_remove=(':revision:_tla_revisions --library') local cmd_library_archives cmd_library_archives=() local cmd_library_log cmd_library_log=(':revision:_tla_revisions --library') local cmd_library_file cmd_library_file=(':file:_files' ':revision:_tla_revisions --library') local cmd_grab cmd_grab=(':location:_files') local cmd_parse_package_name cmd_parse_package_name=(':name:') local cmd_valid_package_name cmd_valid_package_name=(':name:') local cmd_library_config cmd_library_config=(':library:_tla_libraries') local cmd_rbrowse cmd_rbrowse=('::regular expression:') local cmd_rm cmd_rm=('*:file:_files') local cmd_escape cmd_escape=(':string:') local cmd_diff cmd_diff=('::revision:_tla_revisions') local cmd_export cmd_export=(':revision:_tla_revisions' ':dir:_files -/') #mutually exclusive options local -A excludes excludes=( # This first line means that if --output was given, don't complete # --no-output or --keep. The converse is not true. --output '--no-output --keep' --no-output --output --silent ' --quiet --report --verbose --debug' --quiet '--silent --report --verbose --debug' --report '--silent --quiet --verbose --debug' --verbose '--silent --quiet --report --debug' --debug '--silent --quiet --report --verbose ' --sparse --non-sparse --non-sparse --sparse --files ' --directories --both' --directories '--files --both' --both '--files --directories ' --mirror --mirror-from --mirror-from --mirror --no-cached --cached-tags --cached-tags --no-cached --non-greedy --greedy --greedy --non-greedy ) _tla_main () { typeset -A opt_args local arguments if (( CURRENT > 2 )); then local cmd=${words[2]} local var_cmd=cmd_${cmd//-/_} curcontext="${curcontext%:*:*}:tla-$cmd:" (( CURRENT-- )) shift words arguments=() local input input=(${${(M)${(f)"$($TLA $cmd -h)"}:# *}# }) local i j=1 local short long arg desc action short=() long=() arg=() desc=() action=() for (( i=1 ; i <= ${#input} ; i++ )); do [[ "$input[i]" != *[^\ ]* ]] && continue # stupid blank lines short[j]="${${${input[i]}[1,2]}#--}" long[j]="${${input[i]#-?, }%% *}" arg[j]="${${${input[i]%% *}##* }##-*}" [[ $long[j] == --archive ]] && arg[j]=ARCHIVE # tla doesn't mention this desc[j]="${input[i]##* }" if [[ "$input[i+1]" == \ *[^\ ]* ]]; then # description continues (( i++ )) desc[j]="$desc[j] ${input[i]##* }" fi [[ "$short[j]" == -[hHV] ]] && continue desc[j]="${${desc[j]//\[/\\[}//\]/\\]}" # escape brackets case $arg[j] in DIR|PATCH-DIR|DEST|OUTPUT|PATH) action[j]='_files -/' ;; FILES|FILE|SNAP-FILE) action[j]='_files' ;; MASTER|MASTER-SOURCE|ARCHIVE) action[j]='_tla_archives' ;; CATEGORY) action[j]='_tla_categories' ;; BRANCH) action[j]='_tla_branches' ;; VERSION) action[j]='_tla_versions' ;; CFG) action[j]='_tla_configs' ;; LIB) action[j]='_tla_libraries' ;; # PATCH,FILE) # not sure how to complete this # action[j]='_tla_patch_file' ;; *) action[j]='' ;; esac (( j++ )) done local excluded k for (( i = 1 ; i < j ; i++ )); do excluded=($short[i] $long[i]) foreach opt (${=excludes[$long[i]]}) k=$long[(i)$opt] excluded=($excluded $short[k] $long[k]) #excludes matching short options too :-) end # generate arguments to _arguments ;-) # make long and short options mutually exclusive [ $short[i] ] && arguments=("$arguments[@]" "${hide_short}(${excluded})${short[i]}[${desc[i]}]${arg[i]:+:$arg[i]:$action[i]}") [ $long[i] ] && arguments=("$arguments[@]" "(${excluded})${long[i]}[${desc[i]}]${arg[i]:+:$arg[i]:$action[i]}") done arguments=("$arguments[@]" "${(@P)var_cmd-*:FILE:_files}") else local help local -U cmds help=(${(f)"$($TLA help)"}) cmds=(${${${${(M)help:#* :*}/ #: #/:}%% ##}## #}) arguments=(':commands:(($cmds))') fi _arguments -S -A '-*' \ {"${hide_short}(: -)-V",'(: -)--version'}'[display version]' \ {"${hide_short}(: -)-h",'(: -)--help'}'[display help]' \ '(: -)-H[display verbose help]' \ "$arguments[@]" } _tla_main "$@"
Back to File Manager