(command.CommandList children: [ (C {<_Dbg_help_add_sub>} {<show>} {<highlight>} {(DQ <'Show syntax highlight of listings'>)} {<1>}) (command.ShFunction name: _Dbg_do_show_highlight body: (BraceGroup children: [ (C {<typeset>} {<label>}) (command.AndOr ops: [Id.Op_DAmp Id.Op_DPipe] children: [ (command.DBracket expr: (bool_expr.Unary op_id:Id.BoolUnary_n child:{($ Id.VSub_Number '$1')}) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:label) op: assign_op.Equal rhs: { (command_sub left_token: <Id.Left_DollarParen '$('> child: (C {<_Dbg_printf_nocr>} {(DQ <'%-12s: '>)} {<highlight>}) ) } spids: [94] ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:label) op: assign_op.Equal rhs: {(SQ )} spids: [107] ) ] ) ] ) (C {<_Dbg_msg_nocr>} {(DQ (${ Id.VSub_Name label) <'Syntax highlight in source listings is '>)} ) (command.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Unary op_id: Id.BoolUnary_n child: {($ Id.VSub_DollarName '$_Dbg_set_highlight')} ) ) terminator: <Id.Op_Semi _> ) ] ) action: [(C {<_Dbg_msg>} {(DQ (${ Id.VSub_Name _Dbg_set_highlight) <.>)})] spids: [124 136] ) ] else_action: [(C {<_Dbg_msg>} {(SQ <off.>)})] ) (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<0>}) ] ) ) ] )