(command.CommandList children: [ (C {<_Dbg_help_add_sub>} {<set>} {<annotate>} { (SQ <'**set annotate** {**0**|**1**}\n'> <'\n'> <'Set annotation level.\n'> <'\n'> <' 0 - normal\n'> <' 1 - fullname (for use when running under emacs).\n'> <'\n'> <'See also:\n'> <'---------\n'> <'\n'> <'**show annotate**\n'> ) (SQ <'Set annotation level [N]\n'>) } {<1>} ) (command.ShFunction name: _Dbg_do_set_annotate body: (BraceGroup children: [ (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_seteglob'))}) (command.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DParen child: (arith_expr.Binary op_id: Id.Arith_NEqual left: {($ Id.VSub_Pound '$#')} right: {<Id.Lit_Digits 1>} ) ) terminator: <Id.Op_Semi _> ) ] ) action: [ (C {<_Dbg_msg>} { (DQ <'A single argument is required (got '> ($ Id.VSub_Pound '$#') <' arguments).'> ) } ) ] spids: [99 114] ) (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: {($ Id.VSub_Number '$1')} right: {($ Id.VSub_DollarName '$int_pat')} ) ) terminator: <Id.Op_Semi _> ) ] ) action: [ (command.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DParen child: (arith_expr.Binary op_id: Id.Arith_Great left: {($ Id.VSub_Number '$1')} right: {<Id.Lit_Digits 3>} ) ) terminator: <Id.Op_Semi _> ) ] ) action: [ (C {<_Dbg_msg>} { (DQ <'Annotation level must be between 0 and 3. Got: '> (${ Id.VSub_Number 1) <.> ) } ) ] spids: [143 158] ) ] else_action: [ (C {<_Dbg_write_journal_eval>} {(DQ <'_Dbg_set_annotate='> ($ Id.VSub_Number '$1'))} ) ] ) ] spids: [126 140] ) ] else_action: [ (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_resteglob'))}) (C {<_Dbg_msg>} {(DQ <'Integer argument expected; got: '> ($ Id.VSub_Number '$1'))}) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<1>} ) ] ) (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_resteglob'))}) (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<0>}) ] ) ) ] )