(command.AndOr ops: [Op_DAmp] children: [ (command.FuncDef name: _larch body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs:(lhs_expr.LhsName name:cur) op:Equal) (assign_pair lhs:(lhs_expr.LhsName name:prev) op:Equal) (assign_pair lhs:(lhs_expr.LhsName name:words) op:Equal) (assign_pair lhs:(lhs_expr.LhsName name:cword) op:Equal) ] ) (command.AndOr ops: [Op_DPipe] children: [ (C {(_init_completion)}) (command.ControlFlow token:<ControlFlow_Return return>) ] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.LogicalOr left: (bool_expr.BoolBinary op_id: BoolBinary_eq left: {($ VSub_DollarName '$cword')} right: {(1)} ) right: (bool_expr.BoolBinary op_id: BoolBinary_GlobDEqual left: {(DQ ($ VSub_DollarName '$prev'))} right: {(-) (Lit_Other '*')} ) ) ) terminator: <Op_Semi ';'> ) ] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:COMPREPLY) op: Equal rhs: { (word_part.ArrayLiteralPart words: [ { (word_part.CommandSubPart command_list: (command.CommandList children: [ (C {(compgen)} {(-W)} { (SQ <' \\\n'> < ' my-id my-default-archive register-archive whereis-archive archives \\\n' > <' init-tree tree-root tree-version set-tree-version inventory \\\n'> < ' tagging-method tree-lint missing-tags add delete \\\n' > <' move explicit-default set-manifest manifest check-manifest mkpatch \\\n'> < ' dopatch patch-report empty-patch make-archive make-category \\\n' > <' make-branch make-version categories branches versions revisions \\\n'> < ' cat-archive-log archive-cache-revision archive-cached-revisions \\\n' > <' archive-uncache-revision category-readme branch-readme \\\n'> < ' version-readme make-log logs add-log log-ls cat-log \\\n' > <' log-header-field changelog log-for-merge merge-points \\\n'> < ' new-on-branch import commit get get-patch lock-branch \\\n' > <' lock-revision push-mirror build-config update-config replay-config \\\n'> < ' record-config show-config config-history update replay delta-patch \\\n' > <' star-merge tag prepare-branch finish-branch join-branch \\\n'> < ' whats-missing what-changed file-diffs pristines lock-pristine \\\n' > <' my-revision-library library-find library-add library-remove \\\n'> < ' library-archives library-categories library-branches \\\n' > <' library-versions library-revisions library-log library-file \\\n'> < ' touched-files-prereqs patch-set-web update-distributions \\\n' > <' distribution-name notify my-notifier mail-new-categories \\\n'> < ' mail-new-branches mail-new-versions mail-new-revisions \\\n' > <' notify-library notify-browser push-new-revisions sendmail-mailx'> ) } {(DQ ($ VSub_DollarName '$cur'))} ) ] ) left_token: <Left_CommandSub '$('> ) } ] ) } ) ] ) ] ) ] ) (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(0)}) ] ) ) (C {(complete)} {(-F)} {(_larch)} {(-o)} {(default)} {(larch)}) ] )