# -*- shell-script -*-
# complete.sh - gdb-like command completion handling
#
#   Copyright (C) 2006, 2011-2012 Rocky Bernstein <rocky@gnu.org>
#
#   This program is free software; you can redistribute it and/or
#   modify it under the terms of the GNU General Public License as
#   published by the Free Software Foundation; either version 2, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#   General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; see the file COPYING.  If not, write to
#   the Free Software Foundation, 59 Temple Place, Suite 330, Boston,
#   MA 02111 USA.

typeset -a _Dbg_matches; setglobal _Dbg_matches = ''()

# Print a list of completions in global variable _Dbg_matches
# for 'subcmd' that start with 'text'.
# We get the list of completions from _Dbg._*subcmd*_cmds.
# If no completion, we return the empty list.
proc _Dbg_subcmd_complete {
    setglobal subcmd = $1
    setglobal text = $2
    setglobal _Dbg_matches = ''()
    typeset list=''
    if [[ $subcmd == 'set' ]]  {
        # Newer style
        setglobal list_str = $(!_Dbg_command_help_set[@])
    } elif [[ $subcmd == 'show' ]]  {
        # Newer style
        setglobal list_str = $(!_Dbg_command_help_show[@])
    } else {
        # FIXME: Older style - eventually update these.
        setglobal cmd = ""list=\$_Dbg_$(subcmd)_cmds""
        eval $cmd
    }

    typeset -a list
    setglobal list = ''($list_str)
    sort_list 0 $(#list[@])-1
    typeset sorted_list=$(list[@])
    local -i last=0
    for word in [$sorted_list]  {
        # See if $word contains $text at the beginning. We use the string
        # strip operatior '#' and check that some part of $word was stripped
        if [[ ${word#$text} != $word ]]  {
            compat array-assign _Dbg_matches '$last' ""$subcmd $word""
            sh-expr 'last++'
        }
    }
    # return _Dbg_matches
}

if enable -f $(_Dbg_libdir)/builtin/readc readc !2 >/dev/null  {
    # Turn on programmable completion
    shopt -s progcomp
    set -o emacs
    bind 'set show-all-if-ambiguous on'
    # bind 'set completion-ignore-case on'
    # COMP_WORDBREAKS=${COMP_WORDBREAKS//:}
    #bind 'TAB:dynamic-complete-history'
    bind 'TAB:menu-complete'
    setglobal _Dbg_set_read_completion = '1'
}

proc _Dbg_complete_brkpt_range {
    setglobal COMPREPLY = ''()
    typeset -i i
    typeset -i j=0
    for (( i=1; i <= _Dbg_brkpt_max; i++ )) ; do
        if [[ -n ${_Dbg_brkpt_line[$i]} ]] ; then
            ((COMPREPLY[j]+=i))
            ((j++))
        fi
    done
}

proc _Dbg_complete_num_range {
    setglobal COMPREPLY = ''()
    typeset -i i
    typeset -i j=0
    for ((i=$1; i<=$2; i++)) ; do
        ((COMPREPLY[j]+=i))
        ((j++))
    done
}

proc _Dbg_complete_level0 {
    # echo "level 0 called with comp_line: $COMP_LINE , comp_point: $COMP_POINT"
    if sh-expr ' COMP_POINT >  0'  {
        typeset commands="$(!_Dbg_command_help[@])"
        setglobal COMPREPLY = ''( $(compgen -W  "$commands" "$COMP_LINE") )
    } else {
        setglobal COMPREPLY = ''( ${!_Dbg_command_help[@]} )
    }
}

proc _Dbg_complete_level_0_init {
    complete -D -F _Dbg_complete_level0
}

#;;; Local Variables: ***
#;;; mode:shell-script ***
#;;; eval: (sh-set-shell "bash") ***
#;;; End: ***