# Contributor: Matt Smith <mcs@darkregion.net>
# Maintainer: Natanael Copa <ncopa@alpinelinux.org>
global pkgname := 'alpine-mirrors'
global pkgver := '3.5.3'
global pkgrel := '0'
global pkgdesc := '"List of Alpine Linux Mirrors'"
global url := '"http://alpinelinux.org/'"
global arch := '"noarch'"
global license := '"MIT'"
global depends := ''""
global makedepends := '"curl'"
global install := ''""
global subpackages := ''""
global source := '"mirrors.yaml'"

proc build {
	cd $srcdir
	awk '$1 == "-" && $2 ~ /^http:/ {print $2}' mirrors.yaml > MIRRORS.txt
}

proc check {
	cd $srcdir
	var failed = ''""
	for i in [$[cat MIRRORS.txt]] {
		msg "testing $i"
		curl --head --connect-timeout 10 $i >/dev/null \
			|| failed := ""$failed $i""
	}
	if test -n $failed {
		error "Following mirrors failed:"
		for i in [$failed] {
			echo $i
		}
		return 1
	}
}

proc package {
	install -D -m644 "$srcdir"/mirrors.yaml \
		"$pkgdir"/usr/share/alpine-mirrors/mirrors.yaml || return 1
	install -D -m644 "$srcdir"/MIRRORS.txt \
		"$pkgdir"/usr/share/alpine-mirrors/MIRRORS.txt || return 1
}

global sha512sums := '"385e7ad17e96ed2a356d88fa707c08ffd824e86295e288a4eb956b19b3ec297bfe5ccf6c8378231b504b476ee2778b10b0ff77645cc80b04e55bb5632cba58db  mirrors.yaml'"
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(alpine-mirrors)} spids:[6])]
      spids: [6]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(3.5.3)} 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 ("List of Alpine Linux Mirrors"))}
          spids: [15]
        )
      ]
      spids: [15]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:url)
          op: Equal
          rhs: {(DQ ("http://alpinelinux.org/"))}
          spids: [20]
        )
      ]
      spids: [20]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (noarch))} spids:[25])]
      spids: [25]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:license) op:Equal rhs:{(DQ (MIT))} 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:makedepends) op:Equal rhs:{(DQ (curl))} spids:[39])]
      spids: [39]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:install) op:Equal rhs:{(DQ )} spids:[44])]
      spids: [44]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:subpackages) op:Equal rhs:{(DQ )} spids:[48])]
      spids: [48]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:source) op:Equal rhs:{(DQ (mirrors.yaml))} spids:[52])]
      spids: [52]
    )
    (FuncDef
      name: build
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name "$srcdir"))})
            (SimpleCommand
              words: [{(awk)} {(SQ <"$1 == \"-\" && $2 ~ /^http:/ {print $2}">)} {(mirrors.yaml)}]
              redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(MIRRORS.txt)} spids:[80])]
            )
          ]
          spids: [62]
        )
      spids: [58 61]
    )
    (FuncDef
      name: check
      body: 
        (BraceGroup
          children: [
            (C {(cd)} {(DQ ($ VSub_Name "$srcdir"))})
            (Assignment
              keyword: Assign_Local
              pairs: [(assign_pair lhs:(LhsName name:failed) op:Equal rhs:{(DQ )} spids:[103])]
              spids: [101]
            )
            (ForEach
              iter_name: i
              iter_words: [
                {
                  (CommandSubPart
                    command_list: (CommandList children:[(C {(cat)} {(MIRRORS.txt)})])
                    left_token: <Left_CommandSub "$(">
                    spids: [114 118]
                  )
                }
              ]
              do_arg_iter: False
              body: 
                (DoGroup
                  children: [
                    (C {(msg)} {(DQ ("testing ") ($ VSub_Name "$i"))})
                    (AndOr
                      children: [
                        (SimpleCommand
                          words: [{(curl)} {(--head)} {(--connect-timeout)} {(10)} {($ VSub_Name "$i")}]
                          redirects: [
                            (Redir
                              op_id: Redir_Great
                              fd: -1
                              arg_word: {(/dev/null)}
                              spids: [142]
                            )
                          ]
                        )
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:failed)
                              op: Equal
                              rhs: {(DQ ($ VSub_Name "$failed") (" ") ($ VSub_Name "$i"))}
                              spids: [149]
                            )
                          ]
                          spids: [149]
                        )
                      ]
                      op_id: Op_DPipe
                    )
                  ]
                  spids: [121 157]
                )
              spids: [113 119]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other "[")} {(-n)} {(DQ ($ VSub_Name "$failed"))} {(Lit_Other "]")})
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (C {(error)} {(DQ ("Following mirrors failed:"))})
                    (ForEach
                      iter_name: i
                      iter_words: [{($ VSub_Name "$failed")}]
                      do_arg_iter: False
                      body: (DoGroup children:[(C {(echo)} {($ VSub_Name "$i")})] spids:[192200])
                      spids: [188 190]
                    )
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [-1 173]
                )
              ]
              spids: [-1 208]
            )
          ]
          spids: [91]
        )
      spids: [87 90]
    )
    (FuncDef
      name: package
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (C {(install)} {(-D)} {(-m644)} {(DQ ($ VSub_Name "$srcdir")) (/mirrors.yaml)} 
                  {(DQ ($ VSub_Name "$pkgdir")) (/usr/share/alpine-mirrors/mirrors.yaml)}
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
            (AndOr
              children: [
                (C {(install)} {(-D)} {(-m644)} {(DQ ($ VSub_Name "$srcdir")) (/MIRRORS.txt)} 
                  {(DQ ($ VSub_Name "$pkgdir")) (/usr/share/alpine-mirrors/MIRRORS.txt)}
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              op_id: Op_DPipe
            )
          ]
          spids: [217]
        )
      spids: [213 216]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:sha512sums)
          op: Equal
          rhs: 
            {
              (DQ 
                (
"385e7ad17e96ed2a356d88fa707c08ffd824e86295e288a4eb956b19b3ec297bfe5ccf6c8378231b504b476ee2778b10b0ff77645cc80b04e55bb5632cba58db  mirrors.yaml"
                )
              )
            }
          spids: [272]
        )
      ]
      spids: [272]
    )
  ]
)