From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56917) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cxcy2-0003QX-Vv for guix-patches@gnu.org; Mon, 10 Apr 2017 13:19:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cxcxz-0000bz-QM for guix-patches@gnu.org; Mon, 10 Apr 2017 13:19:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:43243) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cxcxz-0000bv-MG for guix-patches@gnu.org; Mon, 10 Apr 2017 13:19:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cxcxz-0005VK-Gm for guix-patches@gnu.org; Mon, 10 Apr 2017 13:19:03 -0400 Subject: bug#26341: [PATCH 4/5] build: syscalls: Add load-linux-module. Resent-Message-ID: From: Mathieu Othacehe Date: Mon, 10 Apr 2017 19:18:13 +0200 Message-Id: <20170410171814.18461-4-m.othacehe@gmail.com> In-Reply-To: <20170410171814.18461-1-m.othacehe@gmail.com> References: <20170410171814.18461-1-m.othacehe@gmail.com> 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: 26341@debbugs.gnu.org * guix/build/syscalls.scm (load-linux-module): New procedure. Reimplemented from guile-linux-syscalls.patch. --- guix/build/syscalls.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index d1f3cd65c..0529c228a 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -578,6 +578,18 @@ constants from ." (list cmd (strerror err)) (list err)))))) +(define-as-needed (load-linux-module data #:optional (options "")) + (let ((proc (syscall->procedure int "init_module" + (list '* unsigned-long '*)))) + (let-values (((ret err) + (proc (bytevector->pointer data) + (bytevector-length data) + (string->pointer options)))) + (unless (zero? ret) + (throw 'system-error "load-linux-module" "~A" + (list (strerror err)) + (list err)))))) + (define (kernel? pid) "Return #t if PID designates a \"kernel thread\" rather than a normal user-land process." -- 2.12.2