# -*- shell-script -*- # "set showcommand" debugger command # # Copyright (C) 2010, 2011 Rocky Bernstein # # 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_sub set showcommand \ 'Set showcommand [on|off] Set showing the command to execute.' 1 # Sets whether or not to display command to be executed in debugger prompt. # If yes, always show. If auto, show only if the same line is to be run # but the command is different. typeset _Dbg_set_show_command="auto" _Dbg_next_complete[set showcommand]='_Dbg_complete_onoff' proc _Dbg_do_set_showcommand { match $1 { with 1 _Dbg_write_journal_eval "_Dbg_set_show_command=on" with 0 _Dbg_write_journal_eval "_Dbg_set_show_command=off" with on | off | auto _Dbg_write_journal_eval "_Dbg_set_show_command=$1" with * _Dbg_errmsg "\"on\", \"off\" or \"auto\" expected." } return 0 }