From patchwork Tue Apr 22 14:51:53 2025 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Suhail Singh X-Patchwork-Id: 41938 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 27A1827BC4B; Tue, 22 Apr 2025 16:26:16 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-6.4 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI, RCVD_IN_DNSWL_BLOCKED,RCVD_IN_VALIDITY_CERTIFIED,RCVD_IN_VALIDITY_RPBL, RCVD_IN_VALIDITY_SAFE,SPF_HELO_PASS,URIBL_BLOCKED autolearn=ham autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 348F827BC4A for ; Tue, 22 Apr 2025 16:26:15 +0100 (BST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1u7FVi-0007gv-Rv; Tue, 22 Apr 2025 11:26:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1u7FVf-0007fZ-69 for guix-patches@gnu.org; Tue, 22 Apr 2025 11:26:07 -0400 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1u7FVe-0000su-TD for guix-patches@gnu.org; Tue, 22 Apr 2025 11:26:06 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:Date:From:To:Subject; bh=cz7DI9Yyi/Xnh/CJVfXc8m9v0G8JGca7c9CvXX42zIw=; b=WsLrH9NsEgUyCFoDapZv9jNLrdvfUczFPULmqL+F8hBd2jD3Fr/FO3h77Kgr1x2epVlRVhiIV2CLmol5ohRTNAEP4qHD0OV/vDIgtzq4xBIDT/gVUmQw3koA18ZO8jE9npTcR6xwD1TdI6Gm48hzDHkGFx/Tvd8JytreQ9I9bw6tHR4eqnyl9lYT+Mvce58kFyOaMBxgEdsxzuYqX7KeIGOPmFlZ2h42f8Mv8nv1zxkbsH3wB94dTG+ryLF46KLKhulR3WX6kFnm1eUKe2LD7vIE+1iSRvh7Jz1XmCx5t9eeWfG5NXufwrEdH+5iGhVqqDsZIj8Dg/ZFKw0uSdcDxw==; Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1u7FVa-0000y9-Py; Tue, 22 Apr 2025 11:26:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#77990] [PATCH] gnu: Add emacs-ffi. Resent-From: "Suhail Singh" Original-Sender: "Debbugs-submit" Resent-CC: andrew@trop.in, csantosb@inventati.org, divya@subvertising.org, hako@ultrarare.space, ian@retrospec.tv, cox.katherine.e+guix@gmail.com, liliana.prikler@gmail.com, guix-patches@gnu.org Resent-Date: Tue, 22 Apr 2025 15:26:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 77990 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 77990@debbugs.gnu.org Cc: Andrew Tropin , Cayetano Santos , Divya Ranjan Pattanaik , Hilton Chain , Ian Eure , Katherine Cox-Buday , Liliana Marie Prikler X-Debbugs-Original-To: guix-patches@gnu.org X-Debbugs-Original-Xcc: Andrew Tropin , Cayetano Santos , Divya Ranjan Pattanaik , Hilton Chain , Ian Eure , Katherine Cox-Buday , Liliana Marie Prikler Received: via spool by submit@debbugs.gnu.org id=B.17453355473682 (code B ref -1); Tue, 22 Apr 2025 15:26:02 +0000 Received: (at submit) by debbugs.gnu.org; 22 Apr 2025 15:25:47 +0000 Received: from localhost ([127.0.0.1]:49411 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1u7FVK-0000xI-G9 for submit@debbugs.gnu.org; Tue, 22 Apr 2025 11:25:46 -0400 Received: from lists.gnu.org ([2001:470:142::17]:37110) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.84_2) (envelope-from ) id 1u7FVH-0000x3-Fh for submit@debbugs.gnu.org; Tue, 22 Apr 2025 11:25:44 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1u7FVB-0007GJ-Nd for guix-patches@gnu.org; Tue, 22 Apr 2025 11:25:37 -0400 Received: from mail-qt1-x841.google.com ([2607:f8b0:4864:20::841]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1u7FV9-0000qE-Jg for guix-patches@gnu.org; Tue, 22 Apr 2025 11:25:37 -0400 Received: by mail-qt1-x841.google.com with SMTP id d75a77b69052e-4774ce422easo57363021cf.1 for ; Tue, 22 Apr 2025 08:25:34 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1745335533; x=1745940333; darn=gnu.org; h=mime-version:message-id:date:subject:to:from:from:to:cc:subject :date:message-id:reply-to; bh=cz7DI9Yyi/Xnh/CJVfXc8m9v0G8JGca7c9CvXX42zIw=; b=bnGGVb3TYzDxk5wmNSt4PNQ/jmS0QFuj5jNHX1gcXtgSzpN8PwdLorRxxQUI/4L8nV ZNIYTbltCKK3nFl4G8Ab5jM9me4yOJqsXC7yieZfXpwRPRVJw172Ushgpz3zEhB/nfnh yngtpte5jMlB6Oi88yGR/tylWBqkOtkU3lvoz7UsVwW+GdWFOWa0CaGCkF+uMDL8KfL9 /ZGpv/n3zor5RPBSbzX9prtPIGPmbBauBemNCmC50bUwzKSJw5fPeEIzs5j5O0GwiFMx AmkoheWttRyZV0Js2XFBs6wDuzwxbU4ud9si+I3HhmvWApvA6UeNUpplLZjgD39SxOd0 xrjQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1745335533; x=1745940333; h=mime-version:message-id:date:subject:to:from:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=cz7DI9Yyi/Xnh/CJVfXc8m9v0G8JGca7c9CvXX42zIw=; b=rUqxYJhM9EJs78Ic+/vCrZ2M6fea3BiO+GNO778w7JbqKPciCjbBgi3cXJj1BhvELU 4Ewjm08uUsdIfn85xUIKgWxzGnpYtupYAcj1zbaJtXEA4BX+KXhJ9IFyLI2WW0nQMy5F V15b3J6bf3JdruKo74oPMd73aRXzSTowU+MHEf3czK80l1+kBcFvt1BTwd/D4+2jz8Bp D84msX4t+yovUHR966w9H+b9gn4JVInyDCsGPGvW35uOo1841iar9Rtwh++33oTKHBsA sxq5H+TxbeRyDIflVAkQQl3wM+ITB1QBffMY5TYXwEfKbUccgdiBLflKJFicOZ4V+0Gr 45BA== X-Gm-Message-State: AOJu0YxsqKdY6F154/0moZBFoWJBk4L4S52wDSl+1nYdhnORasTxrnvT RORkp/ZlauMlnJ95bNXMyc2Rior5/IK3Md4dWKPODISwSha1UFk/IduqrqU1 X-Gm-Gg: ASbGncvPxIXjlM0m43AXCuvUvDLcg9n3l5Ck8C5IWDI/STE17XAIHqzau4ie14KBtjk iQZ9To+e0sT42R1SaydvdG9+2md8fExHbPI38D7FPSbi/JqdRAOLQCMm2k3ID4y3W5JeoE9Ag8Z +MEEC5auG3attKkxjs85vccByd1evjBFDXBqwmuWC11XsKQDPB5+OXTxRfRhXBEDSuKFQRBNxBc l+xdbBTqA/CPY5qrYcdQpZbJdxtWWJFRW90377JkpGGIAfY9A4jZmv3uTFNC273fYq2QTZl6RQA p5jijpfCfnoGAVOBtb6ZqLSCy3FTF6but1YQ X-Google-Smtp-Source: AGHT+IETT2GWw7B8XYtAKIhBxGoWO4YZ6CjokK+u8Ff/ETcT99O3HR4Zk90zMNqdNSoDmHCnyWoYNA== X-Received: by 2002:a05:620a:1aa1:b0:7c5:65ab:4ff2 with SMTP id af79cd13be357-7c9280184a0mr2731955885a.46.1745335533466; Tue, 22 Apr 2025 08:25:33 -0700 (PDT) Received: from gnus ([69.158.82.155]) by smtp.gmail.com with ESMTPSA id af79cd13be357-7c925a8fff2sm568132885a.38.2025.04.22.08.25.32 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 22 Apr 2025 08:25:33 -0700 (PDT) From: "Suhail Singh" Date: Tue, 22 Apr 2025 10:51:53 -0400 Message-Id: <8514e002c91917232069fcff792b089241b02cbc.1745335509.git.suhail@bayesians.ca> MIME-Version: 1.0 Received-SPF: pass client-ip=2607:f8b0:4864:20::841; envelope-from=suhailsingh247@gmail.com; helo=mail-qt1-x841.google.com X-Spam_score_int: -17 X-Spam_score: -1.8 X-Spam_bar: - X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches * gnu/packages/emacs-xyz.scm (emacs-ffi): New variable. Change-Id: I3379ff4728d3e3f45d5327978b5e284fcc0e664e --- gnu/packages/emacs-xyz.scm | 53 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) base-commit: c8194a529724721e2b96e0fe259cd92b63ff57aa diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 08bd88fd08..efdb658bf7 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -236,6 +236,7 @@ (define-module (gnu packages emacs-xyz) #:use-module (gnu packages llvm) #:use-module (gnu packages image) #:use-module (gnu packages image-viewers) + #:use-module (gnu packages libffi) #:use-module (gnu packages linux) #:use-module (gnu packages libevent) #:use-module (gnu packages lisp) @@ -23092,6 +23093,58 @@ (define-public emacs-display-wttr @uref{https://wttr.in} and then displays it on the mode line.") (license license:gpl3+))) +(define-public emacs-ffi + (package + (name "emacs-ffi") + (version "0.2.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-ffi/emacs-ffi") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "05crpgscpbzkg4k0ylbfjz2wyw2r8lki8q9w2kmdpljsqrpdrwl0")))) + (build-system emacs-build-system) + (arguments + (list + #:tests? (not (%current-target-system)) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-module-load + (lambda _ + (make-file-writable "src/ffi.el") + (emacs-substitute-sexps "src/ffi.el" + ("(require 'ffi-module nil t)" + `(module-load + ,(string-append #$output "/lib/ffi-module.so")))))) + (add-before 'check 'build-emacs-module + (lambda _ + ;; Compile the shared object file. + (invoke "make" + #$(string-append "CC=" + (cc-for-target))) + ;; Copy the build artifacts to root and let the install phase do + ;; its thing + (copy-recursively "build/lib" ".") + ;; Install the shared object file into /lib. + (install-file "build/lib/ffi-module.so" + (string-append #$output "/lib")))) + (add-before 'install 'installinfo + (lambda _ + (install-file "build/doc/emacs-ffi.info" + (string-append #$output "/share/info"))))))) + (inputs (list emacs-compat libltdl libffi)) + (native-inputs (list texinfo)) + (home-page "https://emacs-ffi.github.io/emacs-ffi/") + (synopsis "FFI for Emacs based in libffi") + (description + "This package provides an FFI for Emacs. It is based on +libffi and relies on the dynamic module support in order to be loaded into +Emacs. It is relatively full-featured, but for the time being low-level.") + (license license:gpl3+))) + (define-public emacs-free-keys (package (name "emacs-free-keys")