(command.CommandList children: [ (C {<_Dbg_help_add>} {<load>} {(SQ <'load SCRIPT\n'> <'\n'> <'Read in lines of a SCRIPT for use in listing.'>)} ) (command.ShFunction name: _Dbg_do_load body: (BraceGroup children: [ (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_errmsg>} {(DQ <'Expecting one filename parameter, Got '> ($ Id.VSub_Pound '$#') <.>)} ) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<1>} ) ] spids: [81 96] ) ] ) (C {<typeset>} {<Id.Lit_VarLike 'filename='> (DQ ($ Id.VSub_Number '$1'))}) (C {<local>} {<Id.Lit_VarLike 'full_filename='> (command_sub left_token: <Id.Left_DollarParen '$('> child: (C {<_Dbg_resolve_expand_filename>} {(DQ ($ Id.VSub_DollarName '$filename'))}) ) } ) (command.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.AndOr ops: [Id.Op_DAmp] children: [ (C {<Id.Lit_LBracket '['>} {<-n>} {($ Id.VSub_DollarName '$full_filename')} {<Id.Lit_RBracket ']'>} ) (C {<Id.Lit_LBracket '['>} {<-r>} {($ Id.VSub_DollarName '$full_filename')} {<Id.Lit_RBracket ']'>} ) ] ) terminator: <Id.Op_Semi _> ) ] ) action: [ (command.ForEach iter_name: file iter_words: [ { (braced_var_sub token: <Id.VSub_Name _Dbg_filenames> bracket_op: (bracket_op.WholeArray op_id:Id.Lit_At) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: {($ Id.VSub_DollarName '$file')} right: {($ Id.VSub_DollarName '$full_filename')} ) ) terminator: <Id.Op_Semi _> ) ] ) action: [ (C {<_Dbg_msg>} { (DQ <'File '> ($ Id.VSub_DollarName '$full_filename') <' already loaded.'> ) } ) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<2>} ) ] spids: [186 200] ) ] ) ] ) ) (C {<_Dbg_readin>} {(DQ ($ Id.VSub_DollarName '$full_filename'))}) (C {<_Dbg_msg>} {(DQ <'File '> ($ Id.VSub_DollarName '$full_filename') <' loaded.'>)} ) ] spids: [137 159] ) ] else_action: [ (C {<_Dbg_errmsg>} {(DQ <'Couldn\'t resolve or read '> ($ Id.VSub_DollarName '$filename'))} ) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {<3>} ) ] ) (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<0>}) ] ) ) ] )