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
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
;;; buildbot-client.el --- Client code using buildbot api -*- lexical-binding: t; -*-
;; Copyright (C) 2023 Free Software Foundation, Inc.
;;
;; This file is part of buildbot.el.
;;
;; buildbot.el is free software: you can redistribute it and/or modify
;; it under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; buildbot.el 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 Affero General Public
;; License along with buildbot.el. If not, see
;; <https://www.gnu.org/licenses/>.
;;; Commentary:
;; buildbot-client provides functions for buildbot.el to get stuff
;; from a buildbot server.
;;; Code:
(require 'buildbot-utils)
(require 'cl-seq)
(defvar-local buildbot-host nil "Buildbot instance host.")
(defvar-local buildbot-builders nil
"Buildbot builders.
Can be generated with `buildbot-get-all-builders'.")
(defgroup buildbot () "A Buildbot client." :group 'web)
(defcustom buildbot-default-host nil
"The default Buildbot instance host."
:group 'buildbot
:type 'string)
(defcustom buildbot-builder-build-limit 100
"The limit in a request to the Build API filtered by builder.
If set to nil, use server default, i.e. do not set limit in
relevant Builds API requests."
:group 'buildbot
:type '(choice (const :tag "Server default" nil) natnum))
(defcustom buildbot-branch-changes-limit 10
"The limit in a request to the Changes API filtered by branch.
Only relevant when `buildbot-api-changes-direct-filter' is
non-nil. If set to nil, use server default, i.e. do not set limit
in relevant Changes API requests."
:group 'buildbot
:type '(choice (const :tag "Server default" nil) natnum))
(defcustom buildbot-api-changes-limit 300
"The limit in a request to the Changes API.
Only relevant when `buildbot-api-changes-direct-filter' is nil.
If set to nil, use server default, i.e. do not set limit in
Changes API requests.'"
:group 'buildbot
:type '(choice (const :tag "Server default" nil) natnum))
(defcustom buildbot-api-changes-direct-filter nil
"Method to filter revision or bracnh in the Changes API requests.
If non-nil, filter directly in API request, otherwise call the
API with a limit, and filter from the response.
Direct filtering is more accurate, but may have extremely high
latency or may be unsupported in some hosts. Most (all?) hosts
support indirect filtering, but depending on the limit, it may
miss some changes associated to the required revision or branch."
:group 'buildbot
:type 'boolean)
(defun buildbot-api-change (attr)
"Call the Changes API with ATTR."
(buildbot-url-fetch-json
(format
"%s/api/v2/changes?%s"
buildbot-host (buildbot-format-attr attr))))
(defun buildbot-api-change-builds (change-id)
"Call the Changes API with CHANGE-ID to get all builds."
(buildbot-url-fetch-json
(format
"%s/api/v2/changes/%s/builds"
buildbot-host change-id)))
(defun buildbot-api-log (stepid)
"Call the Logs API with STEPID."
(buildbot-url-fetch-json
(format
"%s/api/v2/steps/%d/logs"
buildbot-host stepid)))
(defun buildbot-api-builders ()
"Call the Builders API to get all builders."
(buildbot-url-fetch-json
(format
"%s/api/v2/builders"
buildbot-host)))
(defun buildbot-api-builders-builds (builder-id attr)
"Call the Builds API with BUILDER-ID and ATTR."
(buildbot-url-fetch-json
(format
"%s/api/v2/builders/%d/builds?%s"
buildbot-host builder-id (buildbot-format-attr attr))))
(defun buildbot-api-build (attr)
"Call the Builds API with ATTR."
(buildbot-url-fetch-json
(format
"%s/api/v2/builds?%s"
buildbot-host (buildbot-format-attr attr))))
(defun buildbot-api-step (buildid)
"Call the Steps API with BUILDID."
(buildbot-url-fetch-json
(format
"%s/api/v2/builds/%s/steps"
buildbot-host buildid)))
(defun buildbot-api-log-raw (logid)
"Call the raw logs API with LOGID."
(buildbot-url-fetch-raw
(format "%s/api/v2/logs/%d/raw" buildbot-host logid)))
(defun buildbot-get-recent-builds-by-builder (builder-id)
"Get LIMIT number of recent builds by the builder with BUILDER-ID."
(alist-get 'builds
(buildbot-api-builders-builds
builder-id
`((limit . ,buildbot-builder-build-limit)
(order . "-number")
(property . "revision")))))
(defun buildbot-get-recent-changes (limit)
"Get LIMIT number of recent changes."
(buildbot-api-change `((order . "-changeid") (limit . ,limit))))
(defun buildbot-get-all-builders ()
"Get all builders."
(alist-get 'builders (buildbot-api-builders)))
(defun buildbot-builder-by-id (builderid)
"Get a builder by its BUILDERID."
(cl-find-if
(lambda (builder)
(= (alist-get 'builderid builder) builderid))
buildbot-builders))
(defun buildbot-builder-by-name (name)
"Get a builder by its NAME."
(cl-find-if
(lambda (builder)
(equal (alist-get 'name builder) name))
buildbot-builders))
(defun buildbot-get-logs-by-stepid (stepid)
"Get logs of a step with STEPID."
(alist-get 'logs (buildbot-api-log stepid)))
(defun buildbot-get-builder-name-by-id (id)
"Get a builder name with ID."
(alist-get 'name (buildbot-builder-by-id id)))
(defun buildbot-get-changes-by-revision (revision)
"Get the changes from a REVISION."
(let ((changes
(if buildbot-api-changes-direct-filter
(alist-get
'changes
(buildbot-api-change `((revision . ,revision))))
(seq-filter
(lambda (change)
(equal revision (alist-get 'revision change)))
(alist-get
'changes
(buildbot-api-change `((limit . ,buildbot-api-changes-limit)
(order . "-changeid"))))))))
(mapcar
(lambda (change)
(if (assq 'builds change)
change
(cons
(assq 'builds (buildbot-api-change-builds
(alist-get 'changeid change)))
change)))
changes)))
(defun buildbot-get-build-by-buildid (buildid)
"Get a build with BUILDID."
(buildbot-api-build (list (cons 'buildid buildid))))
(defun buildbot-get-steps-by-buildid (buildid)
"Get the steps of a build with BUILDID."
(alist-get 'steps (buildbot-api-step buildid)))
(defun buildbot-get-changes-by-branch (branch-name)
"Get LIMIT number of changes of a branch with BRANCH-NAME."
(if buildbot-api-changes-direct-filter
(alist-get
'changes
(buildbot-api-change `((branch . ,branch-name)
(limit . ,buildbot-branch-changes-limit))))
(seq-filter
(lambda (change)
(equal branch-name (alist-get 'branch change)))
(alist-get
'changes
(buildbot-api-change `((limit . ,buildbot-api-changes-limit)
(order . "-changeid")))))))
(provide 'buildbot-client)
;;; buildbot-client.el ends here
|
