(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(tcl)} spids:[6])]
      spids: [6]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(8.6.7)} spids:[9])]
      spids: [9]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(0)} spids:[12])]
      spids: [12]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:pkgdesc)
          op: Equal
          rhs: {(DQ ('The Tcl scripting language'))}
          spids: [15]
        )
      ]
      spids: [15]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:url)
          op: Equal
          rhs: {(DQ ('http://tcl.sourceforge.net/'))}
          spids: [20]
        )
      ]
      spids: [20]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[25])]
      spids: [25]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:license) op:Equal rhs:{(DQ (TCL))} spids:[30])]
      spids: [30]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:depends) op:Equal rhs:{(DQ )} spids:[35])]
      spids: [35]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:depends_dev) op:Equal rhs:{(DQ (tcl))} spids:[39])]
      spids: [39]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:makedepends)
          op: Equal
          rhs: {(DQ ('zlib-dev sqlite-dev'))}
          spids: [44]
        )
      ]
      spids: [44]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:subpackages)
          op: Equal
          rhs: {(DQ ($ VSub_Name '$pkgname') ('-doc ') ($ VSub_Name '$pkgname') (-dev))}
          spids: [49]
        )
      ]
      spids: [49]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:source)
          op: Equal
          rhs: 
            {
              (DQ ('http://downloads.sourceforge.net/sourceforge/') ($ VSub_Name '$pkgname') (/) 
                ($ VSub_Name '$pkgname') ($ VSub_Name '$pkgver') ('-src.tar.gz\n') ('\ttcl-stat64.patch\n') ('\t')
              )
            }
          spids: [57]
        )
      ]
      spids: [57]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:_major)
          op: Equal
          rhs: 
            {
              (BracedVarSub
                token: <VSub_Name pkgver>
                suffix_op: (StringUnary op_id:VOp1_Percent arg_word:{('.*')})
                spids: [71 75]
              )
            }
          spids: [70]
        )
      ]
      spids: [70]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:builddir)
          op: Equal
          rhs: {(DQ ($ VSub_Name '$srcdir')) (/tcl) (${ VSub_Name pkgver) (/unix)}
          spids: [77]
        )
      ]
      spids: [77]
    )
    (FuncDef
      name: prepare
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name '$srcdir')) (/tcl) (${ VSub_Name pkgver)})
            (ForEach
              iter_name: i
              iter_words: [{($ VSub_Name '$source')}]
              do_arg_iter: False
              body: 
                (DoGroup
                  children: [
                    (Case
                      to_match: {($ VSub_Name '$i')}
                      arms: [
                        (case_arm
                          pat_list: [{(Lit_Other '*') (.patch)}]
                          action: [
                            (Sentence
                              child: (C {(msg)} {(DQ ($ VSub_Name '$i'))})
                              terminator: <Op_Semi ';'>
                            )
                            (AndOr
                              children: [
                                (C {(patch)} {(-p1)} {(-i)} 
                                  {(DQ ($ VSub_Name '$srcdir')) (/) ($ VSub_Name '$i')}
                                )
                                (ControlFlow
                                  token: <ControlFlow_Return return>
                                  arg_word: {(1)}
                                )
                              ]
                              op_id: Op_DPipe
                            )
                          ]
                          spids: [125 127 153 16777215]
                        )
                      ]
                      spids: [118 122 156]
                    )
                  ]
                  spids: [115 159]
                )
              spids: [111 113]
            )
            (C {(rm)} {(-r)} {(pkgs/sqlite3) (Lit_Other '*')})
          ]
          spids: [92]
        )
      spids: [88 91]
    )
    (FuncDef
      name: build
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:_64bit)
                  op: Equal
                  rhs: {(DQ (--disable-64bit))}
                  spids: [181]
                )
              ]
              spids: [179]
            )
            (Case
              to_match: {(DQ ($ VSub_Name '$CARCH'))}
              arms: [
                (case_arm
                  pat_list: [{(x86_64)}]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:_64bit)
                          op: Equal
                          rhs: {(DQ (--enable-64bit))}
                          spids: [199]
                        )
                      ]
                      spids: [199]
                    )
                  ]
                  spids: [196 197 203 16777215]
                )
              ]
              spids: [187 193 206]
            )
            (C {(cd)} {(DQ ($ VSub_Name '$builddir'))})
            (C {(./configure)} {(--build) (Lit_Other '=') ($ VSub_Name '$CBUILD')} 
              {(--host) (Lit_Other '=') ($ VSub_Name '$CHOST')} {(--prefix) (Lit_Other '=') (/usr)} {(--sysconfdir) (Lit_Other '=') (/etc)} 
              {(--mandir) (Lit_Other '=') (/usr/share/man)} {(--localstatedir) (Lit_Other '=') (/var)} {(--with-system-sqlite)} {($ VSub_Name '$_64bit')}
            )
            (C {(make)})
          ]
          spids: [176]
        )
      spids: [172 175]
    )
    (FuncDef
      name: package
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name '$builddir'))})
            (C {(export)} {(Lit_VarLike 'LD_LIBRARY_PATH=') (DQ ($ VSub_Name '$_builddir'))})
            (C {(make)} {(-j1)} {(Lit_VarLike 'INSTALL_ROOT=') (DQ (${ VSub_Name pkgdir))} {(install)} 
              {(install-private-headers)}
            )
            (C {(ln)} {(-sf)} {(tclsh) (${ VSub_Name _major)} 
              {(DQ (${ VSub_Name pkgdir)) (/usr/bin/tclsh)}
            )
            (C {(install)} {(-Dm644)} {(../license.terms)} 
              {(${ VSub_Name pkgdir) (/usr/share/licenses/) (${ VSub_Name pkgname) (/LICENSE)}
            )
            (Pipeline
              children: [
                (C {(find)} {(DQ ($ VSub_Name '$pkgdir'))} {(-name)} {(SQ <'*Config.sh'>)})
                (C {(xargs)} {(sed)} {(-i)} {(-e)} {(DQ ('s#') (${ VSub_Name srcdir) ('#/usr/src#'))})
              ]
              negated: False
            )
          ]
          spids: [272]
        )
      spids: [268 271]
    )
    (FuncDef
      name: check
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name '$builddir'))})
            (C {(make)} {(test)} 
              {(Lit_VarLike 'TESTFLAGS=') 
                (DQ ("-verbose pbtels -skip 'thread-4.5 thread-5* http* unixInit-3*'"))
              }
            )
          ]
          spids: [382]
        )
      spids: [378 381]
    )
    (FuncDef
      name: dev
      body: 
        (BraceGroup
          children: [
            (C {(default_dev)})
            (C {(cd)} {($ VSub_Name '$pkgdir')})
            (ForEach
              iter_name: i
              iter_words: [
                {
                  (CommandSubPart
                    command_list: 
                      (CommandList
                        children: [
                          (C {(find)} {(.)} {(-name)} {(SQ <'*.c'>)} {(-o)} {(-name)} {(SQ <'*Config.sh'>)})
                        ]
                      )
                    left_token: <Left_CommandSub '$('>
                    spids: [438 456]
                  )
                }
              ]
              do_arg_iter: False
              body: 
                (DoGroup
                  children: [
                    (C {(mkdir)} {(-p)} 
                      {(DQ ($ VSub_Name '$subpkgdir')) (/) 
                        (BracedVarSub
                          token: <VSub_Name i>
                          suffix_op: (StringUnary op_id:VOp1_Percent arg_word:{(Lit_Slash /) ('*')})
                          spids: [470 475]
                        )
                      }
                    )
                    (AndOr
                      children: [
                        (C {(mv)} {($ VSub_Name '$i')} 
                          {(DQ ($ VSub_Name '$subpkgdir')) (/) 
                            (BracedVarSub
                              token: <VSub_Name i>
                              suffix_op: 
                                (StringUnary
                                  op_id: VOp1_Percent
                                  arg_word: {(Lit_Slash /) ('*')}
                                )
                              spids: [486 491]
                            ) (/)
                          }
                        )
                        (ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(1)}
                        )
                      ]
                      op_id: Op_DPipe
                    )
                  ]
                  spids: [459 501]
                )
              spids: [437 457]
            )
          ]
          spids: [421]
        )
      spids: [417 420]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha512sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
'67f6a4266dbaf5858508a8533e0334f5a76ffc6372cf321922fd032fe34f74df0368f9a3059a885e29bb0f4f7f99c78d91b8fc3700d4fa7a7f1653b436c3a154  tcl8.6.7-src.tar.gz\n'
                ) 
                (
'cd52cbe80fd2be227c9018dbe38fa0888302293402e7a57f2e231c195b7c1902f1b58bc87d19c9d123915ca757e871abf084c0ef23b1a7f187bc03ba93904cc2  tcl-stat64.patch'
                )
              )
            }
          spids: [506]
        )
      ]
      spids: [506]
    )
  ]
)