From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50599) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1es7dt-0008WM-H0 for guix-patches@gnu.org; Sat, 03 Mar 2018 08:56:06 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1es7dq-0000q3-Jt for guix-patches@gnu.org; Sat, 03 Mar 2018 08:56:05 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:34083) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1es7dq-0000ps-GI for guix-patches@gnu.org; Sat, 03 Mar 2018 08:56:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1es7dq-0006ND-8h for guix-patches@gnu.org; Sat, 03 Mar 2018 08:56:02 -0500 Subject: [bug#30604] [PATCH v8 1/7] linux-modules: Add module-aliases. Resent-Message-ID: From: Danny Milosavljevic Date: Sat, 3 Mar 2018 14:55:27 +0100 Message-Id: <20180303135533.6112-2-dannym@scratchpost.org> In-Reply-To: <20180303135533.6112-1-dannym@scratchpost.org> References: <20180302153408.14091-1-dannym@scratchpost.org> <20180303135533.6112-1-dannym@scratchpost.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 30604@debbugs.gnu.org * gnu/build/linux-modules.scm (module-aliases): New variable. --- gnu/build/linux-modules.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/gnu/build/linux-modules.scm b/gnu/build/linux-modules.scm index 4a6d4ff08..364339df9 100644 --- a/gnu/build/linux-modules.scm +++ b/gnu/build/linux-modules.scm @@ -30,6 +30,7 @@ #:use-module (ice-9 rdelim) #:export (dot-ko ensure-dot-ko + module-aliases module-dependencies recursive-module-dependencies modules-loaded @@ -95,6 +96,14 @@ contains module names, not actual file names." (('depends . what) (string-tokenize what %not-comma))))) +(define (module-aliases file) + "Return the list of aliases of module FILE." + (let ((info (modinfo-section-contents file))) + (filter-map (match-lambda + (('alias . value) + value) + (_ #f)) (modinfo-section-contents file)))) + (define dot-ko (cut string-append <> ".ko"))