Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding package-author.

Browse source
This commit is contained in:
Alex Shinn 2014-06-16 23:16:40 +09:00
parent e8e3f701c5
commit 59cfb85caf
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/chibi/snow/package.scm
View file

@ -75,11 +75,20 @@
(and lib (library-name lib)))))) (and lib (library-name lib))))))
(define (package-email pkg) (define (package-email pkg)
(and (pair? pkg) (and (package? pkg)
(let ((sig (assq 'signature (cdr pkg)))) (let ((sig (assq 'signature (cdr pkg))))
(and (pair? sig) (and (pair? sig)
(assoc-get (cdr sig) 'email eq?))))) (assoc-get (cdr sig) 'email eq?)))))
(define (package-author repo pkg)
(and (package? pkg)
(let ((email (package-email pkg)))
(or (cond
((repo-find-publisher repo email)
=> (lambda (pub) (assoc-get pub 'name)))
(else #f))
email))))
(define (package-url repo pkg) (define (package-url repo pkg)
(let ((url (and (pair? pkg) (assoc-get (cdr pkg) 'url eq?)))) (let ((url (and (pair? pkg) (assoc-get (cdr pkg) 'url eq?))))
(if (and url (uri-has-scheme? url)) (if (and url (uri-has-scheme? url))

2
lib/chibi/snow/package.sld
View file

@ -3,7 +3,7 @@
(export package? library? (export package? library?
package-name package-email package-url package-version package-name package-email package-url package-version
package-libraries package-provides? package-dependencies package-libraries package-provides? package-dependencies
package-installed-files package-installed-files package-author
package-digest-mismatches package-signature-mismatches package-digest-mismatches package-signature-mismatches
package-digest-ok? package-signature-ok? package-digest-ok? package-signature-ok?
package->path package-name->meta-file package->path package-name->meta-file