# -*- shell-script -*- # "set width" debugger command # # Copyright (C) 2010-2011, 2016 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. # If run standalone, pull in other files we need if [[ $0 == ${BASH_SOURCE[0]} ]] { setglobal dirname = $(BASH_SOURCE[0]%/*) [[ $dirname == $0 ]] && setglobal top_dir = ''../..'' || setglobal top_dir = "$(dirname)/../.." [[ -z $_Dbg_libdir ]] && setglobal _Dbg_libdir = $top_dir for file in [help alias] { source $top_dir/lib/$(file).sh; } } _Dbg_help_add_sub set width \ '**set** **width** *width* Set maximum width of lines to *width*. ' 1 typeset -i _Dbg_set_linewidth; setglobal _Dbg_set_linewidth = $(COLUMNS:-80) proc _Dbg_do_set_width { if [[ $1 == $int_pat ]] { _Dbg_write_journal_eval "_Dbg_set_linewidth=$1" } else { _Dbg_errmsg "Integer argument expected; got: $1" return 1 } return 0 }