# Maintainer: Isaac Dunham <ibid.ag@gmail.com>
global pkgname := 'tk'
global pkgver := '8.6.6'
global pkgrel := '1'
global pkgdesc := '"GUI toolkit for the Tcl scripting language'"
global url := '"http://tcl.sourceforge.net/'"
global arch := '"all'"
global license := '"TCL'"
global depends := ''
global depends_dev := '"tcl-dev libx11-dev libxft-dev fontconfig-dev'"
global makedepends := ""$depends_dev libpng-dev""
global subpackages := ""$pkgname-doc $pkgname-dev""
global source := ""http://downloads.sourceforge.net/sourceforge/tcl/$pkgname$pkgver-src.tar.gz
	""

global _major := $(pkgver%.*)
global builddir := ""$srcdir"/tk$(pkgver)/unix"

proc build {
	var _64bit = '"--disable-64bit'"
	matchstr $CARCH {
		x86_64 { _64bit := '"--enable-64bit'"}
	}

	cd $builddir
	./configure \
		--build=$CBUILD \
		--host=$CHOST \
		--prefix=/usr \
		--mandir=/usr/share/man \
		$_64bit \
		|| return 1
	make || return 1
}

proc package {
	cd $builddir
	export LD_LIBRARY_PATH="$builddir"
	make -j1 INSTALL_ROOT="$(pkgdir)" install install-private-headers || return 1

	ln -sf wish$(_major) "$(pkgdir)"/usr/bin/wish
	install -Dm644 ../license.terms $(pkgdir)/usr/share/licenses/$(pkgname)/LICENSE

	# remove buildroot traces
	find $pkgdir -name '*Config.sh' | xargs sed -i -e "s#$(srcdir)#/usr/src#"

	# move demos to -doc directory
	mkdir -p "$pkgdir"/usr/share/doc/$pkgname/examples/
	mv "$pkgdir"/usr/lib/tk$(_major)/demos/ \
		"$pkgdir"/usr/share/doc/$pkgname/examples/ || return 1
}

proc dev {
	default_dev
	cd $pkgdir
	for i in [$[find . -name '*.c' -o -name '*Config.sh]] {
		mkdir -p "$subpkgdir"/$(i%/*)
		mv $i "$subpkgdir"/$(i%/*)/ || return 1
	}
}

global md5sums := '"dd7dbb3a6523c42d05f6ab6e86096e99  tk8.6.6-src.tar.gz'"
global sha256sums := '"d62c371a71b4744ed830e3c21d27968c31dba74dd2c45f36b9b071e6d88eb19d  tk8.6.6-src.tar.gz'"
global sha512sums := '"223c72ab5a6f6040928c56843598b878efafab44ed4152a38e68aa2800f2c181adc50a8bf23279b7d446493eec43854920e8b649b6a34ecdf31ecc07ccc74044  tk8.6.6-src.tar.gz'"
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(tk)} spids:[3])]
      spids: [3]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(8.6.6)} spids:[6])]
      spids: [6]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(1)} spids:[9])]
      spids: [9]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:pkgdesc)
          op: Equal
          rhs: {(DQ ("GUI toolkit for the Tcl scripting language"))}
          spids: [12]
        )
      ]
      spids: [12]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:url)
          op: Equal
          rhs: {(DQ ("http://tcl.sourceforge.net/"))}
          spids: [17]
        )
      ]
      spids: [17]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[22])]
      spids: [22]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:license) op:Equal rhs:{(DQ (TCL))} spids:[27])]
      spids: [27]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:depends) op:Equal rhs:{(SQ )} spids:[32])]
      spids: [32]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:depends_dev)
          op: Equal
          rhs: {(DQ ("tcl-dev libx11-dev libxft-dev fontconfig-dev"))}
          spids: [34]
        )
      ]
      spids: [34]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:makedepends)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$depends_dev") (" libpng-dev"))}
          spids: [39]
        )
      ]
      spids: [39]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:subpackages)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$pkgname") ("-doc ") ($ VSub_Name "$pkgname") (-dev))}
          spids: [45]
        )
      ]
      spids: [45]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:source)
          op: Equal
          rhs: 
            {
              (DQ ("http://downloads.sourceforge.net/sourceforge/tcl/") ($ VSub_Name "$pkgname") 
                ($ VSub_Name "$pkgver") ("-src.tar.gz\n") ("\t")
              )
            }
          spids: [53]
        )
      ]
      spids: [53]
    )
    (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: [64 68]
              )
            }
          spids: [63]
        )
      ]
      spids: [63]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:builddir)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$srcdir")) (/tk) (${ VSub_Name pkgver) (/unix)}
          spids: [70]
        )
      ]
      spids: [70]
    )
    (FuncDef
      name: build
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:_64bit)
                  op: Equal
                  rhs: {(DQ (--disable-64bit))}
                  spids: [90]
                )
              ]
              spids: [88]
            )
            (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: [108]
                        )
                      ]
                      spids: [108]
                    )
                  ]
                  spids: [105 106 112 -1]
                )
              ]
              spids: [96 102 115]
            )
            (C {(cd)} {(DQ ($ VSub_Name "$builddir"))})
            (AndOr
              children: [
                (C {(./configure)} {(--build) (Lit_Other "=") ($ VSub_Name "$CBUILD")} 
                  {(--host) (Lit_Other "=") ($ VSub_Name "$CHOST")} {(--prefix) (Lit_Other "=") (/usr)} {(--mandir) (Lit_Other "=") (/usr/share/man)} 
                  {($ VSub_Name "$_64bit")}
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
            (AndOr
              children: [(C {(make)}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})]
              op_id: Op_DPipe
            )
          ]
          spids: [85]
        )
      spids: [81 84]
    )
    (FuncDef
      name: package
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name "$builddir"))})
            (C {(export)} {(Lit_VarLike "LD_LIBRARY_PATH=") (DQ ($ VSub_Name "$builddir"))})
            (AndOr
              children: [
                (C {(make)} {(-j1)} {(Lit_VarLike "INSTALL_ROOT=") (DQ (${ VSub_Name pkgdir))} 
                  {(install)} {(install-private-headers)}
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
            (C {(ln)} {(-sf)} {(wish) (${ VSub_Name _major)} {(DQ (${ VSub_Name pkgdir)) (/usr/bin/wish)})
            (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
            )
            (C {(mkdir)} {(-p)} 
              {(DQ ($ VSub_Name "$pkgdir")) (/usr/share/doc/) ($ VSub_Name "$pkgname") (/examples/)}
            )
            (AndOr
              children: [
                (C {(mv)} {(DQ ($ VSub_Name "$pkgdir")) (/usr/lib/tk) (${ VSub_Name _major) (/demos/)} 
                  {(DQ ($ VSub_Name "$pkgdir")) (/usr/share/doc/) ($ VSub_Name "$pkgname") 
                    (/examples/)
                  }
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
          ]
          spids: [180]
        )
      spids: [176 179]
    )
    (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: [357 375]
                  )
                }
              ]
              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: [389 394]
                        )
                      }
                    )
                    (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: [405 410]
                            ) (/)
                          }
                        )
                        (ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(1)}
                        )
                      ]
                      op_id: Op_DPipe
                    )
                  ]
                  spids: [378 420]
                )
              spids: [356 376]
            )
          ]
          spids: [340]
        )
      spids: [336 339]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:md5sums)
          op: Equal
          rhs: {(DQ ("dd7dbb3a6523c42d05f6ab6e86096e99  tk8.6.6-src.tar.gz"))}
          spids: [425]
        )
      ]
      spids: [425]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha256sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"d62c371a71b4744ed830e3c21d27968c31dba74dd2c45f36b9b071e6d88eb19d  tk8.6.6-src.tar.gz"
                )
              )
            }
          spids: [430]
        )
      ]
      spids: [430]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha512sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"223c72ab5a6f6040928c56843598b878efafab44ed4152a38e68aa2800f2c181adc50a8bf23279b7d446493eec43854920e8b649b6a34ecdf31ecc07ccc74044  tk8.6.6-src.tar.gz"
                )
              )
            }
          spids: [435]
        )
      ]
      spids: [435]
    )
  ]
)