# -*- shell-script -*- # "show args" debugger command # # Copyright (C) 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 show args \ 'show args Print the argument list to given when debugged program restarts. ' 1 proc _Dbg_do_show_args { [[ -n $1 ]] && global label := $[_Dbg_printf_nocr "%-12s: " args] _Dbg_msg \ "$(label)Argument list to give script when debugged program starts is:\n" \ " \"$(_Dbg_orig_script_args[@])\"." } (CommandList children: [ (C {(_Dbg_help_add_sub)} {(show)} {(args)} { (SQ <"show args\n"> <"\n"> <"Print the argument list to given when debugged program restarts.\n"> ) } {(1)} ) (FuncDef name: _Dbg_do_show_args body: (BraceGroup children: [ (AndOr children: [ (DBracket expr: (BoolUnary op_id:BoolUnary_n child:{($ VSub_Number "$1")}) ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:label) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [(C {(_Dbg_printf_nocr)} {(DQ ("%-12s: "))} {(args)})] ) left_token: spids: [92 100] ) } spids: [91] ) ] spids: [91] ) ] op_id: Op_DAmp ) (C {(_Dbg_msg)} { (DQ (${ VSub_Name label) ("Argument list to give script when debugged program starts is:") (EscapedLiteralPart token:) ) } { (DQ (" ") (EscapedLiteralPart token:) (BracedVarSub token: bracket_op: (WholeArray op_id:Lit_At) spids: [120 125] ) (EscapedLiteralPart token:) (.) ) } ) ] spids: [78] ) spids: [74 77] ) ] )