me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/build/linux-modules.scm (module-soft-dependencies): Partition the
result and return it as two lists.
This commit is contained in:
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 bytevectors)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (ice-9 vlist)
#:use-module (ice-9 match)
@ -105,7 +106,8 @@ contains module names, not actual file names."
(char-set-complement (char-set #\space #\tab)))
(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"
(define (parse-softdep text)
(let loop ((value '())
@ -120,13 +122,24 @@ contains module names, not actual file names."
value))))
;; Note: Multiple 'softdep sections are allowed.
(let ((info (modinfo-section-contents file)))
(concatenate
(filter-map (match-lambda
(('softdep . value)
(parse-softdep value))
(_ #f))
(modinfo-section-contents file)))))
(let* ((info (modinfo-section-contents file))
(entries (concatenate
(filter-map (match-lambda
(('softdep . value)
(parse-softdep value))
(_ #f))
(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)
"Return the list of aliases of module FILE."