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
|
(define-module (guix-data-service model git-branch)
#:use-module (ice-9 match)
#:use-module (squee)
#:use-module (srfi srfi-19)
#:use-module (guix-data-service model utils)
#:export (insert-git-branch-entry
git-branches-for-commit
git-branches-with-repository-details-for-commit
most-recent-commits-for-branch
latest-processed-commit-for-branch
all-branches-with-most-recent-commit))
(define (insert-git-branch-entry conn
name commit
git-repository-id datetime)
(exec-query
conn
(string-append
"INSERT INTO git_branches (name, commit, git_repository_id, datetime) "
"VALUES ($1, $2, $3, to_timestamp($4)) "
"ON CONFLICT DO NOTHING")
(list name
commit
git-repository-id
(date->string datetime "~s"))))
(define (git-branches-for-commit conn commit)
(define query
"
SELECT name, datetime FROM git_branches WHERE commit = $1
ORDER BY datetime DESC")
(exec-query conn query (list commit)))
(define (git-branches-with-repository-details-for-commit conn commit)
(define query
"
SELECT git_repositories.label, git_repositories.url,
git_repositories.cgit_url_base,
git_branches.name, git_branches.datetime
FROM git_branches
INNER JOIN git_repositories
ON git_branches.git_repository_id = git_repositories.id
WHERE git_branches.commit = $1")
(group-list-by-first-n-fields
3
(exec-query conn query (list commit))))
(define* (most-recent-commits-for-branch conn branch-name
#:key
(limit 100)
after-date
before-date)
(define query
(string-append
"SELECT git_branches.commit, datetime, "
"(guix_revisions.id IS NOT NULL) as guix_revision_exists "
"FROM git_branches "
"LEFT OUTER JOIN guix_revisions ON git_branches.commit = guix_revisions.commit "
"WHERE name = $1 "
(if after-date
(simple-format #f " AND datetime > '~A'"
(date->string after-date "~1 ~3"))
"")
(if before-date
(simple-format #f " AND datetime < '~A'"
(date->string before-date "~1 ~3"))
"")
"ORDER BY datetime DESC"
(if limit
(simple-format #f " LIMIT ~A;" limit)
"")))
(exec-query
conn
query
(list branch-name)))
(define* (latest-processed-commit-for-branch conn branch-name)
(define query
(string-append
"SELECT git_branches.commit "
"FROM git_branches "
"INNER JOIN guix_revisions ON git_branches.commit = guix_revisions.commit "
"WHERE git_branches.name = $1 "
"ORDER BY datetime DESC "
"LIMIT 1"))
(match (exec-query
conn
query
(list branch-name))
(((commit-hash))
commit-hash)
('()
#f)))
(define (all-branches-with-most-recent-commit conn)
(define query
(string-append
"SELECT DISTINCT ON (name) name, git_branches.commit, "
"datetime, (guix_revisions.id IS NOT NULL) guix_revision_exists "
"FROM git_branches "
"LEFT OUTER JOIN guix_revisions ON git_branches.commit = guix_revisions.commit "
"WHERE git_branches.commit IS NOT NULL "
"ORDER BY name, datetime DESC;"))
(exec-query
conn
query))
|