# -*- shell-script -*-
#   Copyright (C) 2008, 2010, 2011 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.

# Command aliases are stored here.
typeset -A _Dbg_aliases = ''

# Add an new alias in the alias table
proc _Dbg_alias_add {
    sh-expr ' $# != 2 ' && return 1
    _Dbg_aliases[$1]="$2"
    return 0
}

# Remove alias $1 from our list of command aliases.
proc _Dbg_alias_remove {
    sh-expr ' $# != 1 ' && return 1
    unset "_Dbg_aliases[$1]"
    return 0
}

# Expand alias $1. The result is set in variable expanded_alias which
# could be declared local in the caller.
proc _Dbg_alias_expand {
    sh-expr ' $# != 1 ' && return 1
    setglobal expanded_alias = $1
    [[ -z "$1" ]] && return 0
    [[ -n ${_Dbg_aliases[$1]} ]] && setglobal expanded_alias = $(_Dbg_aliases[$1])
    return 0
}

# Echo the index in _Dbg_command_names if found. Return
# 0 if found and 1 if not there.
proc _Dbg_alias_find_index {
    typeset find_name = $1
    typeset -i i = ''
    for ((i=0; i <= _Dbg_alias_max_index; i++)) ; do
	[[ ${_Dbg_alias_names[i]} == "$find_name" ]] && echo $i && return 0
    done
    return 1
}

# Return in help_aliases an array of strings that are aliases
# of $1
proc _Dbg_alias_find_aliased {
    sh-expr '$# != 1' &&  return 255
    typeset find_name = $1
    setglobal aliases_found = ''''
    typeset -i i = ''
    for alias in [$(!_Dbg_aliases[@])]  {
	if [[ ${_Dbg_aliases[$alias]} == "$find_name" ]]  { 
	    [[ -n $aliases_found ]] && setglobal aliases_found = '', ''
	    setglobal aliases_found = $alias
	}
    }
    return 0
}