#compdef varlinkctl
# SPDX-License-Identifier: LGPL-2.1-or-later

local -a reply line

_varlinkctl_interfaces() {
    compadd "$@" -- \
        "${(@f)$(_call_program varlink-interfaces varlinkctl list-interfaces $line[2])}"
}

_varlinkctl_methods() {
    compadd "$@" -- \
        "${(@f)$(_call_program varlink-methods varlinkctl list-methods $line[2])}"
}

local -a varlink_addr=(
    /$'[^\0]#\0'/ ':varlink-addresses:varlink address:_files -g "*(=)"'
)
local -a varlink_interface=(
    $varlink_addr
    /$'[^\0]#\0'/ ':varlink-interfaces:varlink interface:_varlinkctl_interfaces'
)
local -a varlink_method=(
    $varlink_addr
    /$'[^\0]#\0'/ ':varlink-methods:varlink method:_varlinkctl_methods'
)
local -a varlink_call=($varlink_method /$'[^\0]#\0'/ ':argument:argument:()')
local -a varlink_idl=(/$'[^\0]#\0'/ ':varlink-idl-file:idl file:_files')

_regex_words varlink-commands 'varlink command' \
    'info:show service information:$varlink_addr' \
    'list-interfaces:List interfaces implemented by a service:$varlink_addr' \
    'list-methods:List methods implemented by an interface:$varlink_interface' \
    'introspect:show an interface definition:$varlink_interface' \
    'call:invoke a method:$varlink_call' \
    'validate-idl:validate an interface description:$varlink_idl' \
    'help:show a help message'

local -a varlinkcmd=( /$'[^\0]#\0'/ "$reply[@]" )
_regex_arguments _varlinkctl_cmd "$varlinkcmd[@]"

_varlinkctl_command() {
    local varlink_command=varlinkctl
    ((CURRENT > 2 )) && varlink_command=varlinkctl-$line[1]

    local -a varlink_args
    case "$line[1]" in
        (info|list-interfaces)
            varlink_args=(address) ;;
        (introspect|list-methods)
            varlink_args=(address interface) ;;
        (call)
            varlink_args=(address method arguments) ;;
        (validate-idl)
            varlink_args=(file) ;;
    esac

    curcontext="${curcontext%:*:*}:$varlink_command:$varlink_args[CURRENT-2]"
    _varlinkctl_cmd "$@"
}

local -a opts=(
    {-h,--help}'[Show a help message and exit]'
    '--version[Show package version and exit]'
    '--no-pager[Do not pipe output to a pager]'
    '--more[Request multiple responses]'
    '--collect[Collect multiple responses in a JSON array]'
    {-j+,--json=}'[Output as json]:json-mode:(pretty short)'
)
_arguments -S $opts '*:: := _varlinkctl_command'