summaryrefslogtreecommitdiff
path: root/src/dagpkg
blob: 49d6ef1c1cfd68edfabc392be6fee1872a0170dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
#!/usr/bin/env bash
# 
# dagpkg - create a directed graph of package dependencies and build
#          them in topological order
# 
# (c) 2014  Nicolás Reynolds <fauno@parabola.nu>
#           Michał Masłowski <mtjm@mtjm.eu>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
set -e

# Source variables from libretools
source /etc/libretools.conf
source $XDG_CONFIG_HOME/libretools/libretools.conf &>/dev/null || true

# Source variables from makepkg
source /etc/makepkg.conf
source $XDG_CONFIG_HOME/.makepkg.conf &>/dev/null || true

# End inmediately but print an useful message
trap_exit() {
  term_title "error!"
  error "(%s) %s (leftovers on %s)" \
        "${0##*/}" "$@" "${temp_dir}"
  exit 1
}

# Trap signals from makepkg
trap 'trap_exit "TERM signal caught. Exiting..."' TERM HUP QUIT
trap 'trap_exit "Aborted by user! Exiting..."' INT
trap 'trap_exit "An unknown error has occurred. Exiting..."' ERR

source_pkgbuild() {
  # Source this PKGBUILD, if it doesn't exist, exit
  unset pkgbase pkgname depends makedepends
  unset pkgrel pkgver epoch
  if ! source ./PKGBUILD &>/dev/null ; then
    error "No PKGBUILD in %s" "$PWD"
    exit 1
  fi

  # Save resources
  unset pkgdesc license groups backup install md5sums sha1sums \
        sha256sums source options &>/dev/null

  unset build package &>/dev/null

  for _pkg in ${pkgname[@]}; do
    unset package_${_pkg} &>/dev/null || true
  done

  # This is the name of the package
  name="${pkgbase:-${pkgname[0]}}"
}

source_pkgbuild

# A temporary work dir and log file
temp_dir="${1:-$(mktemp -dt ${name}-testpkg-XXXX)}"
log="${temp_dir}/buildorder"

# Generate the full version with epoch
get_fullver() {
    if [ $1 -eq 0 ]; then
# zero epoch case, don't include it in version
        echo $2-$3
    else
        echo $1:$2-$3
    fi

}

# Mark array for DFS-based topological sort.  See
# https://en.wikipedia.org/wiki/Topological_sort for an explanation of
# the algorithm.  Key: package name, value: 0 for unvisited package, 1
# during visit, 2 after visit.
declare -A marks

# Visit a PKGBUILD for graph building.
visit_pkgbuild() {
  # The name of the previous package
  prev="${1}"

  local name
  source_pkgbuild

  # If it's already built we don't bother
  is_built ${pkgname[0]} $(get_fullver ${epoch:-0} ${pkgver} ${pkgrel}) &&
  return

  # Detect cycle or already visited package
  case "${marks[$name]:-0}" in
    1) msg2 "cycle found with %s depending on %s" $prev $name
       exit 1;;
    2) return;;
  esac

  msg "%s (%s)" ${name} ${prev}

  echo "${arch[@]}" | grep -qw "$CARCH" ||
  warning "%s isn't ported to %s yet" ${name} ${CARCH}

  # If the envvar I contains this package, ignore it and exit
  echo "$I" | grep -qw "$name" &&
  msg2 "%s ignored" ${name} &&
  return

  # Mark the package as being visited
  marks[$name]=1

  # Recurse into dependencies
  for d in ${depends[@]} ${makedepends[@]}; do
    # Cleanup dependency versions
    d=$(echo $d | sed "s/[<>=].*//")

    # Where's the pkgbuild?
    w=$(toru-where $d)

    # Skip if not available
    test -z "$w" && continue

    # Go to this dir
    pushd $w &>/dev/null

    visit_pkgbuild "$name"

    popd &>/dev/null
  done

  # Mark the package as finished
  marks[$name]=2
  # Append it to the reversed list of packages to build.
  echo "$name" >> "${log}"
}

# If we specified a work dir on the cli it means we want to skip
# dependency graph creation and jump to build whatever is there
if [ -z "${1}" ]; then
  # Visit the root PKGBUILD to make the graph.
  visit_pkgbuild ""
else
  msg "Resuming build..."
fi

# enter work dir
pushd "${temp_dir}" &>/dev/null
nl ${log} | while read order pkg; do
  # skip if already built
  if test -f "${pkg}/built_ok"; then
      warning "tried to build %s twice" "%{pkg}"
      continue
  fi

  # where's this package?
  w="$(toru-where "$pkg")"
  test -z "$w" && continue

  # copy to work dir if not already
  # this means you can make modifications to the pkgbuild during the
  # graph build or remove the dir after a build failure and let dagpkg
  # copy a new version
  test -d "$pkg" || cp -r "$w" "$pkg"
  pushd "$pkg" &>/dev/null

  term_title "$pkg($order)"

  msg "Building %s" ${pkg}

  # upgrade the system
  # this would probably have to go on HOOKPREBUILD if you're working
  # outside chroots
  sudo -E pacman -Syu --noconfirm

  # run the pre build command from libretools.conf
  ${HOOKPREBUILD}

  # run the build command
  ${FULLBUILDCMD}

  # Run local release hook with $1 = $repo
  ${HOOKLOCALRELEASE} "$(basename "$(dirname "$w")")"

  # it's built!
  touch built_ok

  popd &>/dev/null
done

popd &>/dev/null
# cleanup
rm -rf ${log} "${temp_dir}"

term_title "done"