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

Serve narinfo files for derivation sources

Browse source
This commit is contained in:
Christopher Baines 2019-12-29 09:34:12 +00:00
parent 7ca9b11885
commit d15ba4f25c
2 changed files with 83 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -42,6 +42,7 @@
select-derivation-references-by-derivation-id select-derivation-references-by-derivation-id
select-derivation-source-file-by-store-path select-derivation-source-file-by-store-path
select-derivation-source-file-nar-data-by-file-name select-derivation-source-file-nar-data-by-file-name
select-derivation-source-file-data-by-file-name-hash
select-derivation-by-output-filename select-derivation-by-output-filename
select-derivations-using-output select-derivations-using-output
select-derivations-in-revision select-derivations-in-revision
@ -805,6 +806,31 @@ WHERE store_path = $1")
(map car (exec-query conn query (list store-path)))) (map car (exec-query conn query (list store-path))))
(define (select-derivation-source-file-data-by-file-name-hash conn hash)
(match (exec-query
conn
"
SELECT derivation_source_files.store_path,
derivation_source_file_nars.compression,
length(derivation_source_file_nars.data) AS compressed_size,
derivation_source_file_nars.hash_algorithm,
derivation_source_file_nars.hash,
derivation_source_file_nars.uncompressed_size
FROM derivation_source_file_nars
INNER JOIN derivation_source_files
ON derivation_source_file_nars.derivation_source_file_id =
derivation_source_files.id
WHERE substring(derivation_source_files.store_path from 12 for 32) = $1"
(list hash))
(((store_path compression compressed_size hash_algorithm hash uncompressed_size))
(list store_path
compression
(string->number compressed_size)
hash_algorithm
hash
(string->number uncompressed_size)))
(() #f)))
(define (select-derivation-source-file-nar-data-by-file-name conn file-name) (define (select-derivation-source-file-nar-data-by-file-name conn file-name)
(match (exec-query (match (exec-query
conn conn

57
guix-data-service/web/nar/controller.scm
View file

@ -174,6 +174,22 @@
nar-bytevector nar-bytevector
derivation-references) derivation-references)
port)))))) port))))))
(and=> (select-derivation-source-file-data-by-file-name-hash conn
hash)
(match-lambda
((store-path compression compressed-size
hash-algorithm hash uncompressed-size)
(list (build-response
#:code 200
#:headers '((content-type . (application/x-narinfo))))
(lambda (port)
(display (derivation-source-file-narinfo-string store-path
compression
compressed-size
hash-algorithm
hash
uncompressed-size)
port))))))
(not-found (request-uri request)))) (not-found (request-uri request))))
@ -217,3 +233,44 @@ References: ~a~%"
(string->utf8 (string->utf8
(canonical-sexp->string (signed-string info))))) (canonical-sexp->string (signed-string info)))))
info))) info)))
(define* (derivation-source-file-narinfo-string store-item
compression
compressed-size
hash-algorithm
hash
uncompressed-size
#:key (nar-path "nar"))
(define (signed-string s)
(let* ((public-key (%narinfo-signing-public-key))
(hash (bytevector->hash-data (sha256 (string->utf8 s))
#:key-type (key-type public-key))))
(signature-sexp hash (%narinfo-signing-private-key) public-key)))
(let* ((info (format #f
"\
StorePath: ~a
URL: ~a
Compression: ~a
FileSize: ~d
NarHash: ~a:~a
NarSize: ~d
References: ~%"
store-item
(encode-and-join-uri-path
(list nar-path
compression
(basename store-item)))
compression
compressed-size
hash-algorithm
hash
uncompressed-size)))
(if (%narinfo-signing-private-key)
(format #f "~aSignature: 1;~a;~a~%"
info
(gethostname)
(base64-encode
(string->utf8
(canonical-sexp->string (signed-string info)))))
info)))