blob: bc6827aec12f20d6bd0014e2dadee588ff8ea8d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/env gpgscm
(load (with-path "defs.scm"))
(define files (append plain-files data-files))
(info "Checking armored detached signatures of multiple files")
(lettmp (tmp)
(call-popen `(,@GPG --yes --passphrase-fd "0" -sab
--output ,tmp ,@files) usrpass1)
(pipe:do
(pipe:defer (lambda (sink)
(for-each (lambda (file)
(pipe:do
(pipe:open file (logior O_RDONLY O_BINARY))
(pipe:splice sink)))
files)))
(pipe:spawn `(,@GPG --yes ,tmp))))
|
