me
/
guix
Archived
1
0
Fork 0
Code

linux-modules: module-soft-dependencies: Partition the result and return it as two lists. 

* gnu/build/linux-modules.scm (module-soft-dependencies): Partition the
result and return it as two lists.
master
Danny Milosavljevic 2019-01-26 17:23:13 +01:00
parent 1a3db0b22f
commit f347fb79df
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gnu/build/linux-modules.scm
View File

@ -25,6 +25,7 @@
#:use-module (rnrs io ports) #:use-module (rnrs io ports)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (ice-9 vlist) #:use-module (ice-9 vlist)
#:use-module (ice-9 match) #:use-module (ice-9 match)
@ -105,7 +106,8 @@ contains module names, not actual file names."
(char-set-complement (char-set #\space #\tab))) (char-set-complement (char-set #\space #\tab)))
(define (module-soft-dependencies file) (define (module-soft-dependencies file)
"Return a list of (cons section soft-dependency) of module FILE." "Return the list of modules that can be preloaded, and then the list of
modules that can be postloaded, of the soft dependencies of module FILE."
;; TEXT: "pre: baz blubb foo post: bax bar" ;; TEXT: "pre: baz blubb foo post: bax bar"
(define (parse-softdep text) (define (parse-softdep text)
(let loop ((value '()) (let loop ((value '())
@ -120,13 +122,24 @@ contains module names, not actual file names."
value)))) value))))
;; Note: Multiple 'softdep sections are allowed. ;; Note: Multiple 'softdep sections are allowed.
(let ((info (modinfo-section-contents file))) (let* ((info (modinfo-section-contents file))
(concatenate (entries (concatenate
(filter-map (match-lambda (filter-map (match-lambda
(('softdep . value) (('softdep . value)
(parse-softdep value)) (parse-softdep value))
(_ #f)) (_ #f))
(modinfo-section-contents file))))) (modinfo-section-contents file)))))
(let-values (((pres posts)
(partition (match-lambda
(("pre" . _) #t)
(("post" . _) #f))
entries)))
(values (map (match-lambda
((_ . value) value))
pres)
(map (match-lambda
((_ . value) value))
posts)))))
(define (module-aliases file) (define (module-aliases file)
"Return the list of aliases of module FILE." "Return the list of aliases of module FILE."