# -*- shell-script -*-
# delete.sh - gdb-like "delete" debugger command
#
#   Copyright (C) 2002-2006, 2008, 2011, 2016 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.

_Dbg_help_add delete \
"**delete** {*brkpt-num*}...

Delete some breakpoints.

Arguments are breakpoint numbers with spaces in between. To delete all breakpoints, give
no argument. Without arguments, clear all breaks (but first ask for confirmation).
" 1 _Dbg_complete_brkpt_range

# Routine to a delete breakpoint/watchpoint by entry numbers.
proc _Dbg_do_delete {
  typeset to_go = ''; setglobal to_go = $ifsjoin(Argv)
  typeset -i  i = ''
  typeset -i  tot_found = '0'

  eval $_seteglob
  for del in [$to_go]  {
    match $del {
      with $_Dbg_watch_pat 
          _Dbg_delete_watch_entry $(del:0:${#del}-1)
          
      with $int_pat 
          if _Dbg_delete_brkpt_entry $del  {
	      _Dbg_msg "Deleted breakpoint $(del)"
	      sh-expr 'tot_found++'
	  }
          
      with * 
        _Dbg_errmsg "Invalid entry number skipped: $del"
    }
  }
  eval $_resteglob
  return $tot_found
}