Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 63f277140d
Fetching contributors…

Cannot retrieve contributors at this time

60 lines (54 sloc) 1.852 kb
# -*- shell-script -*-
# Copyright (C) 2008, 2010, 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
_Dbg_alias_add() {
(( $# != 2 )) && return 1
_Dbg_aliases[$1]="$2"
return 0
}
# Remove alias $1 from our list of command aliases.
_Dbg_alias_remove() {
(( $# != 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.
_Dbg_alias_expand() {
(( $# != 1 )) && return 1
expanded_alias="$1"
[[ -z "$1" ]] && return 0
[[ -n ${_Dbg_aliases[$1]} ]] && expanded_alias=${_Dbg_aliases[$1]}
return 0
}
# Return in help_aliases an array of strings that are aliases
# of $1
_Dbg_alias_find_aliased() {
(($# != 1)) && return 255
typeset find_name=$1
aliases_found=''
typeset -i i
for alias in ${!_Dbg_aliases[@]} ; do
if [[ ${_Dbg_aliases[$alias]} == "$find_name" ]] ; then
[[ -n $aliases_found ]] && aliases_found+=', '
aliases_found+="$alias"
fi
done
return 0
}
Jump to Line
Something went wrong with that request. Please try again.