summaryrefslogtreecommitdiff
path: root/src/dagpkg
blob: 090d45d2d4f4e3185ae48545ef85d2816ed334a5 (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"