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
|
;;; Consfigurator -- Lisp declarative configuration management system
;;; Copyright (C) 2016, 2021 Sean Whitton <spwhitton@spwhitton.name>
;;; This file 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, or (at your option)
;;; any later version.
;;; This file 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 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/>.
(in-package :consfigurator.property.sbuild)
(named-readtables:in-readtable :consfigurator)
(defproplist installed :posix ()
"Ensure that sbuild and associated utilities are installed."
(:desc "sbuild and associated utilities installed")
(os:etypecase
(debianlike (apt:installed "piuparts" "autopkgtest" "lintian" "sbuild"))))
(defproplist usable-by :posix (username)
"Add a user to the sbuild group in order to use sbuild."
(:desc #?"sbuild usable by ${username}")
(installed)
(user:has-groups username "sbuild"))
(defproplist %sbuild-ccache-has-some-limits :posix ()
"Set a default limit on the sbuild ccache, only if the ccache does not already
exist, so that the user can easily override this default."
(:desc #?"Default limits on sbuild ccache")
(:check (remote-exists-p "/var/cache/ccache-sbuild"))
(ccache:has-limits "/var/cache/ccache-sbuild" :max-size "2Gi"))
(defpropspec built :lisp
(options properties
&aux (host
(make-host
:propspec
(append-propspecs
properties
(make-propspec
:systems nil
:propspec
'(desc "Build packages installed into chroot"
(os:etypecase
(debianlike (apt:installed "eatmydata" "ccache"))))))))
(os (get-hostattrs-car :os host))
(suite (os:debian-suite os))
(arch (os:debian-architecture os)))
"Build and configure a schroot for use with sbuild.
For convenience we set up several enhancements, such as ccache and eatmydata.
In the case of Debian, we assume you are building for Debian stretch or newer,
and we assume that you have sbuild 0.71.0 or later and, if overlays are
enabled, Linux 3.18 or newer.
OPTIONS is a plist of keyword parameters:
- :USE-CCACHE -- whether builds using the schroot should use ccache. ccache
is generally useful but breaks building some packages; this option allows
you to toggle it on and off for particular schroots. Defaults to t.
- :CHROOT-OPTIONS -- passed on to CHROOT:OS-BOOTSTRAPPED-FOR, which see.
PROPERTIES should specify, at a minimum, the operating system for the schroot.
Example usage:
(os:debian-stable \"bullseye\" :amd64)
(apt:uses-local-cacher)
(apt:mirror \"...\")
(sbuild:usable-by \"spwhitton\")
(schroot:overlays-in-tmpfs)
(sbuild:built. nil
(os:debian-unstable :amd64)
(sbuild:standard-debian-schroot)
(apt:uses-parent-proxy)
(apt:uses-parent-mirror))
To take advantage of the piuparts and autopkgtest support, add to your
~/.sbuildrc:
$piuparts_opts = [
'--no-eatmydata',
'--schroot',
'%r-%a-sbuild',
'--log-level=info',
];
$autopkgtest_root_args = \"\";
$autopkgtest_opts = [\"--\", \"schroot\", \"%r-%a-sbuild\"];"
(:desc (format nil "Built sbuild schroot for ~A/~A" suite arch))
(destructuring-bind
(&key (use-ccache t) chroot-options
&aux
(chroot
(ensure-pathname
(format nil "~A-~A" suite arch)
:ensure-directory t :ensure-absolute t :defaults #P"/srv/chroot/"))
(desc (format nil "~A/~A autobuilder" suite arch))
(conf (ensure-pathname
(format nil "~A-~A-sbuild-consfigurator" suite arch)
:ensure-absolute t :defaults #P"/etc/schroot/chroot.d/")))
options
`(with-unapply
(installed)
;; ccache
,@(and use-ccache '((%sbuild-ccache-has-some-limits)
(ccache:group-cache "sbuild")))
(desc
"ccache mounted in sbuild schroots"
(file:contains-lines "/etc/schroot/sbuild/fstab"
"/var/cache/ccache-sbuild /var/cache/ccache-sbuild none rw,bind 0 0"))
;; Script from <https://wiki.debian.org/sbuild>.
(file:has-content "/var/cache/ccache-sbuild/sbuild-setup"
#>EOF>#!/bin/sh
export CCACHE_DIR=/var/cache/ccache-sbuild
export CCACHE_UMASK=002
export CCACHE_COMPRESS=1
unset CCACHE_HARDLINK
export PATH="/usr/lib/ccache:$PATH"
exec "$@"
EOF :mode #o755)
;; schroot
(chroot:os-bootstrapped-for ,chroot-options ,chroot ,host)
(desc
,(strcat "schroot configuration for " desc)
(file:contains-ini-settings
,conf
,@(mapcar
(curry #'cons (format nil "~A-~A-sbuild" suite arch))
`(("description" ,desc)
("groups" "root,sbuild")
("root-groups" "root,sbuild")
("profile" "sbuild")
("type" "directory")
("directory" ,(drop-trailing-slash (unix-namestring chroot)))
,@(and (get-hostattrs-car 'schroot:uses-overlays)
`(("union-type" "overlay")))
;; If we're building a sid chroot, add useful aliases. In order
;; to avoid more than one schroot getting the same aliases, we
;; only do this if the arch of the chroot equals the host arch.
,@(and (string= suite "unstable")
(string= arch (os:debian-architecture
(get-hostattrs-car :os)))
`(("aliases"
,(format
nil "~@{~A~^,~}"
"sid"
;; If the user wants to build for experimental, they
;; would use their sid chroot and sbuild's
;; --extra-repository option to enable experimental.
"rc-buggy"
"experimental"
;; We assume that building for UNRELEASED means
;; building for unstable.
"UNRELEASED"
;; The following is for dgit compatibility.
(strcat "UNRELEASED-"
(os:debian-architecture os)
"-sbuild")))))
("command-prefix"
,(if use-ccache
"/var/cache/ccache-sbuild/sbuild-setup:eatmydata"
"eatmydata"))))))
;; TODO We should kill any sessions still using the chroot before
;; destroying it (as suggested by sbuild-destroychroot(8)).
:unapply
(unapply (chroot:os-bootstrapped-for ,chroot-options ,chroot ,host))
(file:does-not-exist ,conf))))
;; Here we combine Propellor's Sbuild.osDebianStandard and Sbuild.update.
(defpropspec standard-debian-schroot :posix (&optional (period :weekly))
"Properties that will be wanted in almost any Debian sbuild schroot, but not
in sbuild schroots for other operating systems.
Includes replacing use of sbuild-update(1)."
(:desc "Standard Debian sbuild properties")
`(eseqprops (apt:standard-sources.list)
(periodic:at-most ,period "sbuild schroot updated"
(apt:updated) (apt:upgraded) (apt:autoremoved))))
|
