TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

discovery: Add 'fold-module-public-variables*'.

Browse source 
* guix/discovery.scm (fold-module-public-variables*): New procedure.
This commit is contained in:
Ludovic Courtès 2019-01-12 22:26:01 +01:00
parent ae92782240
commit 1d90e9d7c9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
guix/discovery.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -30,7 +30,8 @@ (define-module (guix discovery)
scheme-modules*
fold-modules
all-modules
fold-module-public-variables))
fold-module-public-variables
fold-module-public-variables*))
;;; Commentary:
;;;
@ -147,10 +148,33 @@ (define* (all-modules path #:key (warn (const #f)))
SUB-DIRECTORY."
(fold-modules cons '() path #:warn warn))
(define (fold-module-public-variables* proc init modules)
"Call (PROC MODULE SYMBOL VARIABLE) for each variable exported by one of MODULES,
using INIT as the initial value of RESULT. It is guaranteed to never traverse
the same object twice."
;; Here SEEN is populated by variables; if two different variables refer to
;; the same object, we still let them through.
(identity ;discard second return value
(fold2 (lambda (module result seen)
(fold2 (lambda (sym+var result seen)
(match sym+var
((sym . var)
(if (not (vhash-assq var seen))
(values (proc module sym var result)
(vhash-consq var #t seen))
(values result seen)))))
result
seen
(module-map cons module)))
init
vlist-null
modules)))
(define (fold-module-public-variables proc init modules)
"Call (PROC OBJECT RESULT) for each variable exported by one of MODULES,
using INIT as the initial value of RESULT. It is guaranteed to never traverse
the same object twice."
;; Note: here SEEN is populated by objects, not by variables.
(identity ; discard second return value
(fold2 (lambda (module result seen)
(fold2 (lambda (var result seen)