(command.CommandList children: [ (C {(Lit_Other ':')} {(included)} {(from)} {(6002)} {(and)} {(others)}) (C {(mkdir)} {(-p)} {(.git/refs/tags)}) (command.SimpleCommand redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(sed.script)})] ) (command.FuncDef name: tag body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_tag) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (command.AndOr ops: [Op_DPipe] children: [ (C {(test)} {(-f)} {(DQ (.git/refs/tags/) ($ VSub_DollarName '$_tag'))}) (C {(error)} { (DQ ('tag: ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ($ VSub_DollarName '$_tag') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' does not exist') ) } ) ] ) (C {(cat)} {(DQ (.git/refs/tags/) ($ VSub_DollarName '$_tag'))}) ] ) ) (command.FuncDef name: unique_commit body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_text) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_tree) op: Equal rhs: {($ VSub_Number '$2')} ) ] ) (C {(shift)} {(2)}) (command.Pipeline children: [ (C {(echo)} {(DQ ($ VSub_DollarName '$_text'))}) (C {(git)} {(commit-tree)} { (word_part.CommandSubPart command_list: (command.CommandList children: [(C {(tag)} {(DQ ($ VSub_DollarName '$_tree'))})] ) left_token: <Left_CommandSub '$('> ) } {(DQ ($ VSub_At '$@'))} ) ] negated: F ) ] ) ) (command.FuncDef name: save_tag body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_tag) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (command.AndOr ops: [Op_DPipe] children: [ (C {(test)} {(-n)} {(DQ ($ VSub_DollarName '$_tag'))}) (C {(error)} {(DQ ('usage: save_tag tag commit-args ...'))}) ] ) (C {(shift)} {(1)}) (command.SimpleCommand words: [{(DQ ($ VSub_At '$@'))}] redirects: [ (redir.Redir op: <Redir_Great '>'> fd: 16777215 arg_word: {(DQ (.git/refs/tags/) ($ VSub_DollarName '$_tag'))} ) ] ) (command.SimpleCommand words: [ {(echo)} { (DQ (s/) (word_part.CommandSubPart command_list: (command.CommandList children: [(C {(tag)} {($ VSub_DollarName '$_tag')})] ) left_token: <Left_CommandSub '$('> ) (/) ($ VSub_DollarName '$_tag') (/g) ) } ] redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(sed.script.tmp)})] ) (command.SimpleCommand words: [{(cat)} {(sed.script)}] redirects: [(redir.Redir op:<Redir_DGreat '>>'> fd:16777215 arg_word:{(sed.script.tmp)})] ) (C {(rm)} {(sed.script)}) (C {(mv)} {(sed.script.tmp)} {(sed.script)}) ] ) ) (command.FuncDef name: entag body: (command.BraceGroup children:[(C {(sed)} {(-f)} {(sed.script)})]) ) (command.FuncDef name: as_author body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_author) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (C {(shift)} {(1)}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_save) op: Equal rhs: {($ VSub_DollarName '$GIT_AUTHOR_EMAIL')} ) ] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:GIT_AUTHOR_EMAIL) op: Equal rhs: {(DQ ($ VSub_DollarName '$_author'))} ) ] ) (C {(export)} {(GIT_AUTHOR_EMAIL)}) (C {(DQ ($ VSub_At '$@'))}) (command.If arms: [ (if_arm cond: [(C {(test)} {(-z)} {(DQ ($ VSub_DollarName '$_save'))})] action: [(C {(unset)} {(GIT_AUTHOR_EMAIL)})] ) ] else_action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:GIT_AUTHOR_EMAIL) op: Equal rhs: {(DQ ($ VSub_DollarName '$_save'))} ) ] ) (C {(export)} {(GIT_AUTHOR_EMAIL)}) ] ) ] ) ) (command.FuncDef name: commit_date body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_commit) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (command.Pipeline children: [ (C {(git)} {(cat-file)} {(commit)} {($ VSub_DollarName '$_commit')}) (C {(sed)} {(-n)} { (DQ ('s/^committer .*> ') (Lit_Other '\\') ('([0-9]*') (Lit_Other '\\') (') .*/') (Lit_Other '\\') (1/p) ) } ) ] negated: F ) ] ) ) (command.FuncDef name: assign_fake_date body: (command.BraceGroup children: [ (command.Case to_match: {(DQ ($ VSub_Number '$2'))} arms: [ (case_arm pat_list: [ {(Lit_Other '?') (Lit_Other '?') (Lit_Other ':') (Lit_Other '?') (Lit_Other '?') (Lit_Other ':') (Lit_Other '?') (Lit_Other '?') } ] action: [ (C {(eval)} {(DQ ($ VSub_Number '$1') ("='1971-08-16 ") ($ VSub_Number '$2') ("'"))}) ] ) (case_arm pat_list: [ {(Lit_Other '?') (Lit_Other '?') (Lit_Other ':') (Lit_Other '?') (Lit_Other '?')} ] action: [ (C {(eval)} {(DQ ($ VSub_Number '$1') ("='1971-08-16 00:") ($ VSub_Number '$2') ("'"))} ) ] ) (case_arm pat_list: [{(Lit_Other '?') (Lit_Other '?')}] action: [ (C {(eval)} {(DQ ($ VSub_Number '$1') ("='1971-08-16 00:00:") ($ VSub_Number '$2') ("'"))} ) ] ) (case_arm pat_list: [{(Lit_Other '*')}] action: [(C {(eval)} {(DQ ($ VSub_Number '$1') ("='") ($ VSub_Number '$2') ("'"))})] ) ] ) ] ) ) (command.FuncDef name: on_committer_date body: (command.BraceGroup children: [ (C {(assign_fake_date)} {(GIT_COMMITTER_DATE)} {(DQ ($ VSub_Number '$1'))}) (C {(export)} {(GIT_COMMITTER_DATE)}) (C {(shift)} {(1)}) (C {(DQ ($ VSub_At '$@'))}) ] ) ) (command.FuncDef name: on_dates body: (command.BraceGroup children: [ (C {(assign_fake_date)} {(GIT_COMMITTER_DATE)} {(DQ ($ VSub_Number '$1'))}) (C {(assign_fake_date)} {(GIT_AUTHOR_DATE)} {(DQ ($ VSub_Number '$2'))}) (C {(export)} {(GIT_COMMITTER_DATE)} {(GIT_AUTHOR_DATE)}) (C {(shift)} {(2)}) (C {(DQ ($ VSub_At '$@'))}) ] ) ) (command.FuncDef name: hide_error body: (command.BraceGroup children: [ (command.SimpleCommand words: [{(DQ ($ VSub_At '$@'))}] redirects: [(redir.Redir op:<Redir_Great '2>'> fd:2 arg_word:{(/dev/null)})] ) ] ) ) (command.FuncDef name: check_output body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_name) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (C {(shift)} {(1)}) (command.If arms: [ (if_arm cond: [ (command.Pipeline children: [ (C {(eval)} {(DQ ($ VSub_Star '$*'))}) (command.SimpleCommand words: [{(entag)}] redirects: [ (redir.Redir op: <Redir_Great '>'> fd: 16777215 arg_word: {(DQ ($ VSub_DollarName '$_name') (.actual))} ) ] ) ] negated: F ) ] action: [ (C {(test_cmp)} {(DQ ($ VSub_DollarName '$_name') (.expected))} {(DQ ($ VSub_DollarName '$_name') (.actual))} ) ] ) ] else_action: [(command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})] ) ] ) ) (command.FuncDef name: name_from_description body: (command.BraceGroup children: [ (C {(perl)} {(-pe)} { (SQ <'\n'> <'\t\ts/[^A-Za-z0-9.]/-/g;\n'> <'\t\ts/-+/-/g;\n'> <'\t\ts/-$//;\n'> <'\t\ts/^-//;\n'> <'\t\ty/A-Z/a-z/;\n'> <'\t'> ) } ) ] ) ) (command.FuncDef name: test_output_expect_success body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_description) op: Equal rhs: {($ VSub_Number '$1')} ) ] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_test) op: Equal rhs: {($ VSub_Number '$2')} ) ] ) (command.AndOr ops: [Op_DPipe] children: [ (C {(test)} {($ VSub_Pound '$#')} {(-eq)} {(2)}) (C {(error)} {(DQ ('usage: test_output_expect_success description test <<EOF ... EOF'))}) ] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:_name) op: Equal rhs: { (word_part.CommandSubPart command_list: (command.CommandList children: [ (command.Pipeline children: [ (C {(echo)} {($ VSub_DollarName '$_description')}) (C {(name_from_description)}) ] negated: F ) ] ) left_token: <Left_CommandSub '$('> ) } ) ] ) (command.SimpleCommand words: [{(cat)}] redirects: [ (redir.Redir op: <Redir_Great '>'> fd: 16777215 arg_word: {(DQ ($ VSub_DollarName '$_name') (.expected))} ) ] ) (C {(test_expect_success)} {(DQ ($ VSub_DollarName '$_description'))} { (DQ ('check_output ') ($ VSub_DollarName '$_name') (' ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ($ VSub_DollarName '$_test') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ) } ) ] ) ) ] )