[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/07: discovery: Add 'scheme-modules*'.
From: |
Ludovic Courtès |
Subject: |
02/07: discovery: Add 'scheme-modules*'. |
Date: |
Sun, 2 Sep 2018 11:08:38 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 02fa1d251c9caeba39c7593e0b8ab52b60735b17
Author: Ludovic Courtès <address@hidden>
Date: Fri Aug 24 15:51:31 2018 +0200
discovery: Add 'scheme-modules*'.
* guix/self.scm (scheme-modules*): Move to...
* guix/discovery.scm (scheme-modules*): ... here. New procedure. Make
'sub-directory' an optional parameter.
---
guix/discovery.scm | 13 ++++++++++++-
guix/self.scm | 7 -------
2 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/guix/discovery.scm b/guix/discovery.scm
index 2b627d1..3fc6e2c 100644
--- a/guix/discovery.scm
+++ b/guix/discovery.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès
<address@hidden>
+;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès
<address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -27,6 +27,7 @@
#:use-module (ice-9 ftw)
#:export (scheme-files
scheme-modules
+ scheme-modules*
fold-modules
all-modules
fold-module-public-variables))
@@ -115,6 +116,16 @@ name and the exception key and arguments."
(string-append directory "/" sub-directory)
directory))))
+(define* (scheme-modules* directory #:optional sub-directory)
+ "Return the list of module names found under SUB-DIRECTORY in DIRECTORY.
+This is a source-only variant that does not try to load files."
+ (let ((prefix (string-length directory)))
+ (map (lambda (file)
+ (file-name->module-name (string-drop file prefix)))
+ (scheme-files (if sub-directory
+ (string-append directory "/" sub-directory)
+ directory)))))
+
(define* (fold-modules proc init path #:key (warn (const #f)))
"Fold over all the Scheme modules present in PATH, a list of directories.
Call (PROC MODULE RESULT) for each module that is found."
diff --git a/guix/self.scm b/guix/self.scm
index 90649db..81f9b0c 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -206,13 +206,6 @@ list of file-name/file-like objects suitable as inputs to
'imported-files'."
(local-file file #:recursive? #t)))
(find-files (string-append directory "/" sub-directory) pred)))
-(define (scheme-modules* directory sub-directory)
- "Return the list of module names found under SUB-DIRECTORY in DIRECTORY."
- (let ((prefix (string-length directory)))
- (map (lambda (file)
- (file-name->module-name (string-drop file prefix)))
- (scheme-files (string-append directory "/" sub-directory)))))
-
(define* (sub-directory item sub-directory)
"Return SUB-DIRECTORY within ITEM, which may be a file name or a file-like
object."
- branch master updated (87284c6 -> 2bd6ed9), Ludovic Courtès, 2018/09/02
- 07/07: gnu: haskell-mode: Fix test failure., Ludovic Courtès, 2018/09/02
- 06/07: gnu: emacs-helpful: Update to 0.13., Ludovic Courtès, 2018/09/02
- 02/07: discovery: Add 'scheme-modules*'.,
Ludovic Courtès <=
- 03/07: Add (guix describe) and use it to initialize '%package-search-path'., Ludovic Courtès, 2018/09/02
- 05/07: gnu: emacs-elisp-refs: Update to 1.3., Ludovic Courtès, 2018/09/02
- 04/07: Add (guix channels) and use it in (guix scripts pull)., Ludovic Courtès, 2018/09/02
- 01/07: compile-as-derivation: Adjust %load-compiled-path., Ludovic Courtès, 2018/09/02