blob: 82409b3940bdab03dde5305fd22712ed7dbaf255 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/env gpgscm
(load (with-path "defs.scm"))
(for-each-p
"Checking armored detached signatures"
(lambda (source)
(lettmp (tmp)
(call-popen `(,@GPG --yes --passphrase-fd "0" -sab
--output ,tmp ,source ) usrpass1)
(pipe:do
(pipe:open source (logior O_RDONLY O_BINARY))
(pipe:spawn `(,@GPG --yes ,tmp)))))
(append plain-files data-files))
|
