cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Start to visualise derivations

Browse source
This commit is contained in:
Christopher Baines 2019-03-07 08:43:16 +00:00
parent 891cf42fc6
commit 8f4da3c872
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
3 changed files with 140 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

47
guix-data-service/model/derivation.scm
View file

@ -7,7 +7,10 @@
#:use-module (guix inferior)
#:use-module (guix derivations)
#:use-module (guix-data-service model utils)
#:export (select-existing-derivations
#:export (select-derivation-by-file-name
select-derivation-outputs-by-derivation-id
select-derivation-inputs-by-derivation-id
select-existing-derivations
select-derivations-by-id
select-derivations-and-build-status-by-id
insert-into-derivations
@ -122,6 +125,19 @@
derivation-output-ids))
(define (select-derivation-by-file-name conn file-name)
(define query
(string-append
"SELECT id, file_name, builder, args, env_vars, system "
"FROM derivations "
"WHERE file_name = $1"))
(match (exec-query conn query (list file-name))
(()
#f)
((result)
result)))
(define (select-derivation-output-id conn name path)
(match (exec-query
conn
@ -138,6 +154,35 @@
#f "cannot find derivation-output with name ~A and path ~A"
name path)))))
(define (select-derivation-outputs-by-derivation-id conn id)
(define query
(string-append
"SELECT derivation_outputs.name, derivation_output_details.path, "
"derivation_output_details.hash_algorithm, derivation_output_details.hash, "
"derivation_output_details.recursive "
"FROM derivation_outputs "
"INNER JOIN derivation_output_details ON "
"derivation_outputs.derivation_output_details_id = derivation_output_details.id "
"WHERE derivation_id = $1"))
(exec-query conn query (list id)))
(define (select-derivation-inputs-by-derivation-id conn id)
(define query
(string-append
"SELECT derivations.file_name, derivation_outputs.name, "
"derivation_output_details.path "
"FROM derivation_inputs "
"INNER JOIN derivation_outputs"
" ON derivation_outputs.id = derivation_inputs.derivation_output_id "
"INNER JOIN derivation_output_details"
" ON derivation_outputs.derivation_output_details_id = derivation_output_details.id "
"INNER JOIN derivations"
" ON derivation_outputs.derivation_id = derivations.id "
"WHERE derivation_inputs.derivation_id = $1"))
(exec-query conn query (list id)))
(define (insert-derivation-input conn derivation-id derivation-input)
(define (insert-into-derivation-inputs output-ids)
(string-append "INSERT INTO derivation_inputs "