From patchwork Thu Nov 7 16:50:03 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?q?No=C3=A9_Lopez?= X-Patchwork-Id: 70050 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 DDC6227BBE2; Thu, 7 Nov 2024 16:52:50 +0000 (GMT) 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_INVALID, DKIM_SIGNED,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 787A827BBE9 for ; Thu, 7 Nov 2024 16:52:48 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1t95jz-0005Lv-MZ; Thu, 07 Nov 2024 11:52:15 -0500 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 1t95jx-0005LN-GY for guix-patches@gnu.org; Thu, 07 Nov 2024 11:52:13 -0500 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 1t95jx-0007I0-7W; Thu, 07 Nov 2024 11:52:13 -0500 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:In-Reply-To:References:Subject; bh=QU5zlWTpVbok833TCkSLp0wrG7uQScPm+kixCECKjXY=; b=fomVpsVLZF1WW2UIneJnr9NcvinNaA9vhRHe4RkoQuYDUIW3yQcNY+u8/eFcLRTpwV5CSMNj1u4gSsBzvrCQQwf9D0+bZ5juroVcQ76oZUJfkDMQujnef88xC7ZxpEwTKeMtiyXU29ngsO3M0/zfMwrhNX/zKLwvsRl/EvsRLArPF5wlW3NO0wq1RA/GVIw6mhFU40dd91QJ0Vq74my9vLZW4o/XMJoatUZAmU/QW6PTN3rgdvW8rniY1GSSI0wxVgn9ZIXQmtMUU2VdNTw60Qs2QRSan0QOL098fLJue3BRwnqR0Q3TGYMbtuP9sdk1w1ciKOHSQjC8XYPZBP+o5Q==; Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1t95jm-0000Nk-6S; Thu, 07 Nov 2024 11:52:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#73842] [PATCH v5 1/3] gnu: appimage: New packages for the appimage runtime. References: In-Reply-To: Resent-From: =?utf-8?q?No=C3=A9?= Lopez Original-Sender: "Debbugs-submit" Resent-CC: noelopez@free.fr, ludo@gnu.org, pelzflorian@pelzflorian.de, maxim.cournoyer@gmail.com, noe@xn--no-cja.eu, noe@xn--no-cja.eu, leo@famulari.name, w@wmeyer.eu, guix-patches@gnu.org Resent-Date: Thu, 07 Nov 2024 16:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73842 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 73842@debbugs.gnu.org Cc: =?utf-8?q?No=C3=A9?= Lopez , =?utf-8?q?No=C3=A9?= Lopez , Ludovic =?utf-8?q?Court?= =?utf-8?q?=C3=A8s?= , pelzflorian , Maxim Cournoyer , =?utf-8?q?No=C3=A9?= Lopez , noe@xn--no-cja.eu, Leo Famulari , Wilko Meyer X-Debbugs-Original-Xcc: =?utf-8?q?No=C3=A9?= Lopez , Ludovic =?utf-8?q?Court=C3=A8s?= , pelzflorian , Maxim Cournoyer , =?utf-8?q?No=C3=A9?= Lopez , noe@xn--no-cja.eu, Leo Famulari , Wilko Meyer Received: via spool by 73842-submit@debbugs.gnu.org id=B73842.17309982891397 (code B ref 73842); Thu, 07 Nov 2024 16:52:02 +0000 Received: (at 73842) by debbugs.gnu.org; 7 Nov 2024 16:51:29 +0000 Received: from localhost ([127.0.0.1]:49382 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t95jE-0000MS-UF for submit@debbugs.gnu.org; Thu, 07 Nov 2024 11:51:29 -0500 Received: from smtp.domeneshop.no ([194.63.252.55]:52325) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t95jA-0000M9-Ss for 73842@debbugs.gnu.org; Thu, 07 Nov 2024 11:51:27 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=xn--no-cja.eu; s=ds202402; h=Content-Transfer-Encoding:Content-Type: MIME-Version:Message-ID:Date:Subject:Cc:To:From:From:Sender:Reply-To:Subject: Date:Message-ID:To:Cc:MIME-Version:Content-Type:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:In-Reply-To:References:List-Id: List-Help:List-Unsubscribe:List-Subscribe:List-Post:List-Owner:List-Archive; bh=QU5zlWTpVbok833TCkSLp0wrG7uQScPm+kixCECKjXY=; b=tBkyrsNnJFFhVPwHBnAtv56lCj X0laWlXqAWwBUsq+RdghbMKCzBOCI1PKjZNUUMHc/7nSXdM8zG2EnECaoBjxIWswULrzU6vL5aydP 1hMIp+gc3omLdf/6Ms9QJs3b1a6OxfaYsvEZnknQC3A2DNgDnFS4oiY4ZijeS0T0k2uOvv+OwhFLl 3j8dxM12LQfavUs5jwjOm4KTXxJDrHG8BNlEHqVYO7BH3C2cxSm0YC6kgDE3e6BW8UIYlwbtD1+iK L+BYyJ0rKMLQTUZlLC3vCmdqsc3FZIuTzHJXx3IDjSlXqxtTyzCwvjyxE4kxPgJcxJMnTq7IaCmCq T2HmfjNA==; Received: from smtp by smtp.domeneshop.no with esmtpsa (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.95) id 1t95gy-006LVO-R4; Thu, 07 Nov 2024 17:49:08 +0100 Date: Thu, 7 Nov 2024 17:50:03 +0100 Message-ID: <4a7795be82c20d9476dbefcbaf3c380dcb61581e.1730998051.git.noelopez@free.fr> MIME-Version: 1.0 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: , Reply-to: =?utf-8?q?No=C3=A9?= Lopez X-ACL-Warn: , =?utf-8?q?No=C3=A9_Lopez_via_Guix-patches?= X-Patchwork-Original-From: =?utf-8?q?No=C3=A9_Lopez_via_Guix-patches?= via From: =?utf-8?q?No=C3=A9_Lopez?= 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 From: Noé Lopez * gnu/packages/appimage.scm (gnu packages appimage): New module. (appimage-type2-runtime): New variable. * gnu/packages/file-systems.scm (squashfuse-for-appimage): New variable. * gnu/packages/linux.scm (fuse-for-appimage): New variable. Change-Id: I857a8eb5399a6a493e52db70b6c8cf0c71360930 --- gnu/local.mk | 2 + gnu/packages/appimage.scm | 97 +++++++++++++++++++++++++++++++++++ gnu/packages/file-systems.scm | 21 ++++++++ gnu/packages/linux.scm | 17 ++++++ 4 files changed, 137 insertions(+) create mode 100644 gnu/packages/appimage.scm base-commit: ba9466481d10992d35f09d010166d616fdb6a637 diff --git a/gnu/local.mk b/gnu/local.mk index 945d89d550..0deab9065f 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -67,6 +67,7 @@ # Copyright © 2024 David Elsing # Copyright © 2024 Ashish SHUKLA # Copyright © 2024 Fabio Natali +# Copyright © 2024 Noé Lopez # # This file is part of GNU Guix. # @@ -139,6 +140,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/apl.scm \ %D%/packages/apple.scm \ %D%/packages/apparmor.scm \ + %D%/packages/appimage.scm \ %D%/packages/apr.scm \ %D%/packages/arcan.scm \ %D%/packages/aspell.scm \ diff --git a/gnu/packages/appimage.scm b/gnu/packages/appimage.scm new file mode 100644 index 0000000000..1d0caada46 --- /dev/null +++ b/gnu/packages/appimage.scm @@ -0,0 +1,97 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2024 Noé Lopez +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages appimage) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (gnu packages base) + #:use-module (gnu packages compression) + #:use-module (gnu packages file-systems) + #:use-module (gnu packages linux) + #:use-module (gnu packages) + #:use-module (guix build-system gnu) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module (guix packages) + #:use-module (guix utils)) + +(define-public appimage-type2-runtime + (let ((revision "0") + ;; No releases, just the latest commit. + (commit "47b665594856b4e8928f8932adcf6d13061d8c30")) + (package + (name "appimage-type2-runtime") + (version (git-version "continuous" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AppImage/type2-runtime") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0954crhlbapxis96g1s0vfpf78ybr64zvjalak387ksxj560g44x")))) + (arguments + (list + #:make-flags + #~(list "-Csrc/runtime" "runtime-fuse3" + (string-append + "CFLAGS=" "-I" #$(this-package-input "fuse") "/include/fuse/" + " -DGIT_COMMIT='\"" "guix-" #$version "\"'" + " -D_FILE_OFFSET_BITS=64" + " -static")) + #:modules + `((guix build gnu-build-system) + (guix build utils) + (ice-9 binary-ports)) + #:phases #~(modify-phases %standard-phases + (delete 'configure) + (delete 'check) ; No tests. + (replace 'install + (lambda _ + (install-file "src/runtime/runtime-fuse3" + (string-append #$output "/bin")))) + ;; Must be after all elf reliant phases. Used to identify the + ;; executable as an AppImage as per the specification. + (add-after 'make-dynamic-linker-cache 'set-magic-bytes + (lambda _ + (let ((port (open (string-append #$output + "/bin/runtime-fuse3") + (logior O_WRONLY)))) + (seek port 8 SEEK_SET) + (put-bytevector port #vu8(#x41 #x49 #x02)) + (close-port port))))) + #:disallowed-references (list squashfuse-for-appimage + fuse-for-appimage + (gexp-input zstd "static") + (gexp-input zlib "static")))) + ;; Only needed at build time. + (inputs (list squashfuse-for-appimage + fuse-for-appimage + `(,zstd "static") + `(,zlib "static"))) + (build-system gnu-build-system) + (home-page "https://github.com/AppImage/type2-runtime") + (synopsis "Runtime for executing AppImages") + (description "The runtime is the executable part of every AppImage. It mounts +the payload via @acronym{FUSE} and executes the entrypoint, allowing users to run +applications in a portable manner without the need for installation. This runtime +ensures that the AppImage can access its bundled libraries and resources seamlessly, +providing a consistent environment across different Linux distributions. In the +absence of @acronym{FUSE}, the AppImage can still be started using the +@option{--appimage-extract-and-run} flag.") + (license license:expat)))) diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index 059bdf67a9..e36751e774 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -2059,6 +2059,27 @@ (define-public squashfuse memory-efficient.") (license license:bsd-2))) +(define-public squashfuse-for-appimage + (package + (inherit squashfuse) + (arguments + (list + #:configure-flags + #~'("CFLAGS=-ffunction-sections -fdata-sections -Os -no-pie" + "LDFLAGS=-static") + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'install-private-headers + (lambda _ + (install-file "fuseprivate.h" + (string-append #$output + "/include/squashfuse/"))))))) + (inputs (list fuse-for-appimage + `(,zstd "lib") + `(,zstd "static") + `(,zlib "out") + `(,zlib "static"))))) + (define-public tmsu (package (name "tmsu") diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 992790188a..58403c5b17 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -4100,6 +4100,23 @@ (define-public fuse-2 (("-DFUSERMOUNT_DIR=[[:graph:]]+") "-DFUSERMOUNT_DIR=\\\"/var/empty\\\""))))))))) +(define-public fuse-for-appimage + (package + (inherit fuse) + (name "fuse") + (version "3.16.2") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/libfuse/libfuse/releases/" + "download/fuse-" version "/fuse-" version ".tar.gz")) + (sha256 + (base32 "11yfl2w2a445hllyzlakq97n32g06972vxpmh7lpbclnj9fhb5zp")))) + (arguments + (substitute-keyword-arguments (package-arguments fuse) + ((#:configure-flags original-flags #~(list)) + #~(append #$original-flags '("--default-library=static"))))))) + (define-public unionfs-fuse (package (name "unionfs-fuse") From patchwork Thu Nov 7 16:50:04 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?q?No=C3=A9_Lopez?= X-Patchwork-Id: 70051 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 2E05527BBEA; Thu, 7 Nov 2024 16:52:53 +0000 (GMT) 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_INVALID, DKIM_SIGNED,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=unavailable 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 300F727BBE2 for ; Thu, 7 Nov 2024 16:52:52 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1t95jx-0005LX-Uk; Thu, 07 Nov 2024 11:52:13 -0500 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 1t95jv-0005Kq-SW for guix-patches@gnu.org; Thu, 07 Nov 2024 11:52:12 -0500 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 1t95jv-0007HV-9e; Thu, 07 Nov 2024 11:52:11 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:References:In-Reply-To:Date:From:To:Subject; bh=E1s3x9EBSwA4ULaEoBmyRKpVCJlr4ikfZtQKb9Asbtc=; b=ILvKgStnQfjMBLuMbfIanKv1HRLId//rHrG3b8z2VNgcY+E3yt6sCibV8WTei7QZ/BMMkbZHeuNpyBEzRsUtOQHIWE3TBoZaktrqI/KEE/OEVmQO1zothce+uaM7CJPKyfzYzKHl6EwCfJMLyB7XGfqJIJfUFI9F2PbDg/wRXZZ0I8WVsh+jRMSD2SOg+EfqNtCWJyGvlRIAsuemRL9Ap9br/oLHPzkcNTa+u1o7Nu/Tw5XWQTHWwTm2gnI4jLRENrHNMQ4DjLhL35TchsFS5TBK5X7cQQIoCDwBUbjCSkDkNxSdbvnPMwG4y3WPKpURD9or8qQR84L2RZA5m7yKUA==; Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1t95jm-0000Nq-MP; Thu, 07 Nov 2024 11:52:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#73842] [PATCH v5 2/3] pack: Add support for AppImage pack format. Resent-From: =?utf-8?q?No=C3=A9?= Lopez Original-Sender: "Debbugs-submit" Resent-CC: noelopez@free.fr, ludo@gnu.org, pelzflorian@pelzflorian.de, maxim.cournoyer@gmail.com, noe@xn--no-cja.eu, noe@xn--no-cja.eu, guix@cbaines.net, dev@jpoiret.xyz, othacehe@gnu.org, zimon.toutoune@gmail.com, me@tobias.gr, guix-patches@gnu.org Resent-Date: Thu, 07 Nov 2024 16:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73842 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 73842@debbugs.gnu.org Cc: =?utf-8?q?No=C3=A9?= Lopez , Sebastian =?utf-8?q?D?= =?utf-8?q?=C3=BCmcke?= , =?utf-8?q?No=C3=A9?= Lopez , Ludovic =?utf-8?q?Court?= =?utf-8?q?=C3=A8s?= , pelzflorian , Maxim Cournoyer , =?utf-8?q?No=C3=A9?= Lopez , noe@xn--no-cja.eu, Christopher Baines , Josselin Poiret , Mathieu Othacehe , Simon Tournier , Tobias Geerinckx-Rice X-Debbugs-Original-Xcc: =?utf-8?q?No=C3=A9?= Lopez , Ludovic =?utf-8?q?Court=C3=A8s?= , pelzflorian , Maxim Cournoyer , =?utf-8?q?No=C3=A9?= Lopez , noe@xn--no-cja.eu, Christopher Baines , Josselin Poiret , Mathieu Othacehe , Simon Tournier , Tobias Geerinckx-Rice Received: via spool by 73842-submit@debbugs.gnu.org id=B73842.17309982961417 (code B ref 73842); Thu, 07 Nov 2024 16:52:02 +0000 Received: (at 73842) by debbugs.gnu.org; 7 Nov 2024 16:51:36 +0000 Received: from localhost ([127.0.0.1]:49385 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t95jK-0000Mk-LF for submit@debbugs.gnu.org; Thu, 07 Nov 2024 11:51:35 -0500 Received: from smtp.domeneshop.no ([194.63.252.55]:34641) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t95jI-0000MH-6H for 73842@debbugs.gnu.org; Thu, 07 Nov 2024 11:51:33 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=xn--no-cja.eu; s=ds202402; h=Content-Transfer-Encoding:Content-Type: MIME-Version:References:In-Reply-To:Message-ID:Date:Subject:Cc:To:From:From: Sender:Reply-To:Subject:Date:Message-ID:To:Cc:MIME-Version:Content-Type: Content-Transfer-Encoding:Content-ID:Content-Description:Resent-Date: Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID:In-Reply-To: References:List-Id:List-Help:List-Unsubscribe:List-Subscribe:List-Post: List-Owner:List-Archive; bh=E1s3x9EBSwA4ULaEoBmyRKpVCJlr4ikfZtQKb9Asbtc=; b=t Ud3svgR+ijo5uLzAaSjn3x0ypVTz2dSNL+tpGA8InxS30ONN0On7p6pgICFdNOSJ+afw38vwYJUNN 4C6tXQtFfcTNlPhC8ww843Y3XeSNemID7Lp1CghIVJMZ+EoXXvU0b9rO8b1WW7+0REGKUJJgE5mPM aPD4p73j3Vh0WcYKLWMOwYe6WsjJDOaAVpZ1ZtyJjEDEGjOMuuGiZin8pph7ZoeO2kVAEyXK7Z6XG RwiedHGrxAkHv2sStkvFAB3sz1NngaYCuGPg49aoYAKZ2tRMw5jGLGLJGHmgW6Eqz9/4txspcItqu ij59HtbwAS8AkY3wyC8pIAB6UZiJMyk1g==; Received: from smtp by smtp.domeneshop.no with esmtpsa (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.95) id 1t95h5-006LVO-As; Thu, 07 Nov 2024 17:49:15 +0100 Date: Thu, 7 Nov 2024 17:50:04 +0100 Message-ID: <7507b2c56ffbbd8bc051937c5c88bb8c0e3ae8f3.1730998051.git.noelopez@free.fr> In-Reply-To: <4a7795be82c20d9476dbefcbaf3c380dcb61581e.1730998051.git.noelopez@free.fr> References: <4a7795be82c20d9476dbefcbaf3c380dcb61581e.1730998051.git.noelopez@free.fr> MIME-Version: 1.0 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: , Reply-to: =?utf-8?q?No=C3=A9?= Lopez X-ACL-Warn: , =?utf-8?q?No=C3=A9_Lopez_via_Guix-patches?= X-Patchwork-Original-From: =?utf-8?q?No=C3=A9_Lopez_via_Guix-patches?= via From: =?utf-8?q?No=C3=A9_Lopez?= 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 From: Sebastian Dümcke * guix/scripts/pack.scm: Add Appimage format. * doc/guix.texi: Document AppImage pack. * tests/pack.scm: New AppImage tests. Co-authored-by: Noé Lopez Change-Id: I33ebfec623cff1cfcd6f029d2d3054c23ab1949a --- doc/guix.texi | 59 ++++++++++++++++++++++-- guix/scripts/pack.scm | 104 +++++++++++++++++++++++++++++++++++++++++- tests/pack.scm | 40 +++++++++++++++- 3 files changed, 197 insertions(+), 6 deletions(-) diff --git a/doc/guix.texi b/doc/guix.texi index 151fcd89ac..a1435ceece 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -6949,6 +6949,16 @@ Invoking guix pack environment}, using commands like @command{singularity shell} or @command{singularity exec}. +@cindex AppImage, create an AppImage file with @command{guix pack} +Another format internally based on SquashFS is +@uref{https://appimage.org/, AppImage}. An AppImage file can be created +and executed without any special privileges: + +@example +file=$(guix pack -f appimage --entry-point=bin/guile guile) +$file --help +@end example + Several command-line options allow you to customize your pack: @table @code @@ -7065,6 +7075,47 @@ Invoking guix pack installation or other, non-rpm packs. @end quotation +@item appimage +@cindex AppImage, create an AppImage file with @command{guix pack} +This produces an @uref{https://appimage.org/, AppImage file} with the +@samp{.AppImage} extension. AppImage is a SquashFS volume prefixed with +a runtime that mounts the SquashFS file system and executes the binary +provided with @option{--entry-point}. This results in a self-contained +archive that bundles the software and all its requirements into a single +file. When the file is made executable it runs the packaged software. + +@example +guix pack -f appimage --entry-point=bin/vlc vlc +@end example + +The runtime used by AppImages makes use of libfuse to mount the image +quickly. If libfuse is not available, the AppImage can still be started +using the @option{--appimage-extract-and-run} flag. + +@quotation Warning + When building an AppImage, always @emph{pass} the +@option{--relocatable} option (or @option{-R}, or @option{-RR}) to make +sure the image can be used on systems where Guix is not installed. A +warning is printed when this option is not used. +@end quotation + +@example +guix pack -f appimage --entry-point=bin/hello --relocatable hello +@end example + +@quotation Note +The resulting AppImage does not conform to the complete standard as it +currently does not contain a @file{.DirIcon} file. This does not impact +functionality of the AppImage itself, but possibly that of software used +to manage AppImages. +@end quotation + +@quotation Note +As the generated AppImage packages the complete dependency graph, it +will be larger than comparable AppImage files found online, which depend +on host system libraries. +@end quotation + @end table @cindex relocatable binaries @@ -7154,10 +7205,10 @@ Invoking guix pack @cindex entry point, for Docker and Singularity images @item --entry-point=@var{command} -Use @var{command} as the @dfn{entry point} of the resulting pack, if the pack -format supports it---currently @code{docker} and @code{squashfs} (Singularity) -support it. @var{command} must be relative to the profile contained in the -pack. +Use @var{command} as the @dfn{entry point} of the resulting pack, if the +pack format supports it---currently @code{docker}, @code{appimage}, and +@code{squashfs} (Singularity) support it. @var{command} must be +relative to the profile contained in the pack. The entry point specifies the command that tools like @code{docker run} or @code{singularity run} automatically start by default. For example, you can diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index 7c5fe76fe0..26ba80b80d 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -10,6 +10,8 @@ ;;; Copyright © 2022 Alex Griffin ;;; Copyright © 2023 Graham James Addis ;;; Copyright © 2023 Oleg Pykhalov +;;; Copyright © 2024 Sebastian Dümcke +;;; Copyright © 2024 Noé Lopez ;;; ;;; This file is part of GNU Guix. ;;; @@ -56,6 +58,7 @@ (define-module (guix scripts pack) #:use-module ((gnu packages compression) #:hide (zip)) #:use-module (gnu packages guile) #:use-module (gnu packages base) + #:autoload (gnu packages appimage) (appimage-type2-runtime) #:autoload (gnu packages gnupg) (guile-gcrypt) #:autoload (gnu packages guile) (guile2.0-json guile-json) #:use-module (srfi srfi-1) @@ -64,6 +67,7 @@ (define-module (guix scripts pack) #:use-module (srfi srfi-35) #:use-module (srfi srfi-37) #:use-module (ice-9 match) + #:use-module (ice-9 optargs) #:export (symlink-spec-option-parser self-contained-tarball @@ -71,6 +75,7 @@ (define-module (guix scripts pack) rpm-archive docker-image squashfs-image + self-contained-appimage %formats guix-pack)) @@ -974,8 +979,100 @@ (define* (rpm-archive name profile (gexp->derivation (string-append name ".rpm") build #:target target #:references-graphs `(("profile" ,profile)))) + +;;; +;;; AppImage format +;;; +(define* (self-contained-appimage name profile + #:key target + (profile-name "guix-profile") + entry-point + (compressor (lookup-compressor "zstd")) + localstatedir? + (symlinks '()) + (archiver tar) + (extra-options '())) + "Return a self-contained AppImage containing a store initialized with the +closure of PROFILE, a derivation. The AppImage contains /gnu/store unless +RELOCATABLE option is used; if LOCALSTATEDIR? is true, it also contains +/var/guix, including /var/guix/db with a properly initialized store database. + +SYMLINKS must be a list of (SOURCE -> TARGET) tuples denoting symlinks to be +added to the pack." + (unless entry-point + (leave (G_ "entry-point must be provided in the '~a' format~%") + 'appimage)) + (let-keywords extra-options #f ((relocatable? #f)) + (unless relocatable? + (warning (G_ "AppImages should be built with the --relocatable flag~%")))) + + (define runtime-package appimage-type2-runtime) + (define runtime-path "bin/runtime-fuse3") + (define %valid-compressors '("gzip" "zstd")) + + (let ((compressor-name (compressor-name compressor))) + (unless (member compressor-name %valid-compressors) + (leave (G_ "~a is not a valid squashfs archive compressor used in +generating the AppImage. Valid compressors are: ~a~%") + compressor-name + %valid-compressors))) - + (define builder + (with-extensions (list guile-gcrypt) + (with-imported-modules (source-module-closure + '((guix build store-copy) + (guix build utils)) + #:select? not-config?) + #~(begin + (use-modules (guix build utils) + (guix build store-copy) + (rnrs io ports) + (srfi srfi-1) + (srfi srfi-26)) + + (define (concatenate-files result file1 file2) + "Creates a new file RESULT containing FILE1 followed by FILE2." + (call-with-output-file result + (lambda (output) + (call-with-input-file file1 + (lambda (input) + (dump-port input output))) + (call-with-input-file file2 + (lambda (input) + (dump-port input output)))))) + + (let* ((appdir "AppDir") + (squashfs "squashfs") + (profile-items (map store-info-item + (call-with-input-file "profile" read-reference-graph))) + (profile (find (lambda (item) + (string-suffix? "-profile" item)) + profile-items))) + (mkdir-p appdir) + ;; Copy all store items from the profile to the AppDir. + (populate-store '("profile") appdir) + ;; Symlink the provided entry-point to AppDir/AppRun. + (symlink (string-append "." profile "/" #$entry-point) + (string-append appdir "/AppRun")) + ;; Create .desktop file as required by the spec. + (make-desktop-entry-file + (string-append appdir "/" #$name ".desktop") + #:name #$name + #:exec #$entry-point) + ;; Compress the AppDir. + (invoke #+(file-append squashfs-tools "/bin/mksquashfs") appdir + squashfs "-root-owned" "-noappend" + "-comp" #+(compressor-name compressor)) + ;; Append runtime and squashFS into file AppImage. + (concatenate-files #$output + #$(file-append runtime-package "/" runtime-path) + squashfs) + ;; Add execution permission. + (chmod #$output #o555)))))) + (gexp->derivation (string-append name ".AppImage") builder + #:target target + #:references-graphs `(("profile" ,profile)))) + ;;; ;;; Compiling C programs. ;;; @@ -1311,6 +1408,7 @@ (define %formats (squashfs . ,squashfs-image) (docker . ,docker-image) (deb . ,debian-archive) + (appimage . ,self-contained-appimage) (rpm . ,rpm-archive))) (define (show-formats) @@ -1327,6 +1425,8 @@ (define (show-formats) deb Debian archive installable via dpkg/apt")) (display (G_ " rpm RPM archive installable via rpm/yum")) + (display (G_ " + appimage AppImage self-contained and executable format")) (newline)) (define (required-option symbol) @@ -1694,6 +1794,8 @@ (define-command (guix-pack . args) (process-file-arg opts 'preun-file) #:postun-file (process-file-arg opts 'postun-file))) + ('appimage + (list #:relocatable? relocatable?)) (_ '()))) (target (assoc-ref opts 'target)) (bootstrap? (assoc-ref opts 'bootstrap?)) diff --git a/tests/pack.scm b/tests/pack.scm index f8a9e09c28..1c1e312557 100644 --- a/tests/pack.scm +++ b/tests/pack.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2018 Ricardo Wurmus ;;; Copyright © 2021, 2023 Maxim Cournoyer ;;; Copyright © 2023 Oleg Pykhalov +;;; Copyright © 2024 Noé Lopez ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,7 +33,8 @@ (define-module (test-pack) #:use-module (guix utils) #:use-module ((guix build utils) #:select (%store-directory)) #:use-module (gnu packages) - #:use-module ((gnu packages base) #:select (libc-utf8-locales-for-target)) + #:use-module ((gnu packages base) #:select (libc-utf8-locales-for-target + hello)) #:use-module (gnu packages bootstrap) #:use-module ((gnu packages package-management) #:select (rpm)) #:use-module ((gnu packages compression) #:select (squashfs-tools)) @@ -340,6 +342,42 @@ (define rpm-for-tests (mkdir #$output)))))))) (built-derivations (list check)))) + (unless store (test-skip 1)) + (test-assertm "appimage" + (mlet* %store-monad + ((guile (set-guile-for-build (default-guile))) + (profile -> (profile + (content (packages->manifest (list %bootstrap-guile hello))) + (hooks '()) + (locales? #f))) + (image (self-contained-appimage "hello-appimage" profile + #:entry-point "bin/hello" + #:extra-options + (list #:relocatable? #t))) + (check (gexp->derivation + "check-appimage" + #~(invoke #$image)))) + (built-derivations (list check)))) + + (unless store (test-skip 1)) + (test-assertm "appimage + localstatedir" + (mlet* %store-monad + ((guile (set-guile-for-build (default-guile))) + (profile -> (profile + (content (packages->manifest (list %bootstrap-guile hello))) + (hooks '()) + (locales? #f))) + (image (self-contained-appimage "hello-appimage" profile + #:entry-point "bin/hello" + #:localstatedir? #t + #:extra-options + (list #:relocatable? #t))) + (check (gexp->derivation + "check-appimage" + #~(begin + (invoke #$image))))) + (built-derivations (list check)))) + (unless store (test-skip 1)) (test-assertm "deb archive with symlinks and control files" (mlet* %store-monad From patchwork Thu Nov 7 16:50:05 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?q?No=C3=A9_Lopez?= X-Patchwork-Id: 70049 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 62D9427BBEC; Thu, 7 Nov 2024 16:52:50 +0000 (GMT) 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_INVALID, DKIM_SIGNED,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 76CD127BBE2 for ; Thu, 7 Nov 2024 16:52:48 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1t95jw-0005L0-Qy; Thu, 07 Nov 2024 11:52:12 -0500 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 1t95ju-0005Kd-Nm for guix-patches@gnu.org; Thu, 07 Nov 2024 11:52:12 -0500 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 1t95jt-0007HD-NC; Thu, 07 Nov 2024 11:52:09 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:References:In-Reply-To:Date:From:To:Subject; bh=YQf1kle6/VebuNyaPqlwvFlR++WPDlbtpotdI4Lfi5g=; b=kVhItBvFYJTLEEenW7Shx9H3BJVuTrdac5nAhrH6jurg3tXK2/q0tr9y1+Bk3YIXtriLYNGsjsdT5LJmcV1JFuODrc8tep1Eyf8SURhMX97xoVP0JV6+7awDgbtE9HGpyt5u273QoK76B23SFE2sb4lQNCLUSWzc1TKuA7ElH9QGdl9V+KL6Q0Eq/+QXP3bquOmzI9A0WoWUbgW8fx8KLl8melgBI16ndTQjmBqrh8Vd2czjd6fL5gCEUN2RyBifxlUVQHWAkPfhA6CPj4t6+PmjoQDwxeO757e9V8r8VaW2tsgZP6P8+INZl7VaOBHmQW/KwAvCzYC+nLXqPy+wcg==; Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1t95jn-0000Nx-7S; Thu, 07 Nov 2024 11:52:03 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#73842] [PATCH v5 3/3] news: Add entry for guix =?utf-8?b?cGFj?= =?utf-8?b?a+KAmXM=?= AppImage format Resent-From: =?utf-8?q?No=C3=A9?= Lopez Original-Sender: "Debbugs-submit" Resent-CC: noelopez@free.fr, ludo@gnu.org, pelzflorian@pelzflorian.de, maxim.cournoyer@gmail.com, noe@xn--no-cja.eu, noe@xn--no-cja.eu, pelzflorian@pelzflorian.de, julien@lepiller.eu, guix-patches@gnu.org Resent-Date: Thu, 07 Nov 2024 16:52:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73842 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 73842@debbugs.gnu.org Cc: Sebastian =?utf-8?q?D=C3=BCmcke?= , =?utf-8?q?No=C3=A9?= Lopez , Ludovic =?utf-8?q?Court?= =?utf-8?q?=C3=A8s?= , pelzflorian , Maxim Cournoyer , =?utf-8?q?No=C3=A9?= Lopez , noe@xn--no-cja.eu, Florian Pelz , Julien Lepiller X-Debbugs-Original-Xcc: =?utf-8?q?No=C3=A9?= Lopez , Ludovic =?utf-8?q?Court=C3=A8s?= , pelzflorian , Maxim Cournoyer , =?utf-8?q?No=C3=A9?= Lopez , noe@xn--no-cja.eu, Florian Pelz , Julien Lepiller Received: via spool by 73842-submit@debbugs.gnu.org id=B73842.17309983011437 (code B ref 73842); Thu, 07 Nov 2024 16:52:03 +0000 Received: (at 73842) by debbugs.gnu.org; 7 Nov 2024 16:51:41 +0000 Received: from localhost ([127.0.0.1]:49388 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t95jQ-0000N7-U3 for submit@debbugs.gnu.org; Thu, 07 Nov 2024 11:51:41 -0500 Received: from smtp.domeneshop.no ([194.63.252.55]:42087) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t95jO-0000Md-Ar for 73842@debbugs.gnu.org; Thu, 07 Nov 2024 11:51:40 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=xn--no-cja.eu; s=ds202402; h=Content-Transfer-Encoding:Content-Type: MIME-Version:References:In-Reply-To:Message-ID:Date:Subject:Cc:To:From:From: Sender:Reply-To:Subject:Date:Message-ID:To:Cc:MIME-Version:Content-Type: Content-Transfer-Encoding:Content-ID:Content-Description:Resent-Date: Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID:In-Reply-To: References:List-Id:List-Help:List-Unsubscribe:List-Subscribe:List-Post: List-Owner:List-Archive; bh=YQf1kle6/VebuNyaPqlwvFlR++WPDlbtpotdI4Lfi5g=; b=R wyO/SRpUHxEPdyfh9Y6hu4kV+ohWLTi4u0b8VGVmmzY81/Fv5bw8nsTIsElBwrGNI3Fu2VfH08zGB +O9YSj16mcAvCfpn5insUSskoWoZtR3VrIaetnoyyknvCa8+Ee86pouTQM3guSOW90ccLUDzE0izm gnU3gKr4r8hKy5u31xLo2yqtjm9EU4cjjHwQsUCHtafm32vG7sDaJ9EVrLoJWvxceY2oOvZXwlgQC zTRA2kiOoayv+9L7eNac3xeadw7IxEG1lPMwTEIirswhMZiCRMsyPUr6xOa0Ykwg3ezTz1GXkoAmz ysQUcBlWYp2Y9hxVa9dQaHeeC/TP2seTg==; Received: from smtp by smtp.domeneshop.no with esmtpsa (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.95) id 1t95hC-006LVO-FE; Thu, 07 Nov 2024 17:49:22 +0100 Date: Thu, 7 Nov 2024 17:50:05 +0100 Message-ID: In-Reply-To: <4a7795be82c20d9476dbefcbaf3c380dcb61581e.1730998051.git.noelopez@free.fr> References: <4a7795be82c20d9476dbefcbaf3c380dcb61581e.1730998051.git.noelopez@free.fr> MIME-Version: 1.0 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: , Reply-to: =?utf-8?q?No=C3=A9?= Lopez X-ACL-Warn: , =?utf-8?q?No=C3=A9_Lopez_via_Guix-patches?= X-Patchwork-Original-From: =?utf-8?q?No=C3=A9_Lopez_via_Guix-patches?= via From: =?utf-8?q?No=C3=A9_Lopez?= 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 From: Sebastian Dümcke * etc/news.scm: Add entry. Change-Id: If37b3b578517c15c2868239998975f7718f7d689 --- etc/news.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/etc/news.scm b/etc/news.scm index 4929fa2a9a..4911ee65ee 100644 --- a/etc/news.scm +++ b/etc/news.scm @@ -25,6 +25,7 @@ ;; Copyright © 2024 Vivien Kraus ;; Copyright © 2024 Guillaume Le Vaillant ;; Copyright © 2024 Zheng Junjie <873216071@qq.com> +;; Copyright © 2024 Sebastian Dümcke ;; ;; Copying and distribution of this file, with or without modification, are ;; permitted in any medium without royalty provided the copyright notice and @@ -32,6 +33,43 @@ (channel-news (version 0) + (entry (commit "9e96056bf40591cc9439d60c4c5bae5aa0f0b2f8") + (title + (de "Neues Format @samp{appimage} für den Befehl @command{guix pack}") + (en "New @samp{AppImage} format for the @command{guix pack} command") + (fr "Nouveau format @samp{AppImage} pour la commande @command{guix pack}")) + (body + (de "@command{guix pack} kann nun AppImage-Dateien erstellen. Das +AppImage-Dateiformat erlaubt es, in einer einzelnen Datei Software zu verteilen. Die +AppImage-Datei lässt sich ohne besondere Benutzerrechte ausführen. Hier ist +ein Beispiel: + +@example +guix pack --format=appimage --entry-point=bin/hello hello +@end example + +Siehe @command{info \"(guix.de) Aufruf von guix pack\"} für mehr +Informationen.") + (en "@command{guix pack} can now produce AppImage a single file, +self-contained software archive. AppImage files are easily distributed and can +be run with user privileges. Here is an example for the @code{hello} package: + +@example +guix pack --format=appimage --entry-point=bin/hello hello +@end example + +See @command{info \"(guix) Invoking guix pack\"} for more information.") + (fr "@command{guix pack} peut désormais produire un fichier +AppImage. AppImage est une manière de distribuer les logiciels en un seul +fichier, qui peut être executé avec des droits d’utilisateur. Voici un +exemple pour le paquet @code{hello} : + +@example +guix pack --format=appimage --entry-point=bin/hello hello +@end example + +Consultez @command{info \"(guix.fr) Invoquer guix pack\"} pour plus +d’informations."))) (entry (commit "5966e0fdc78771c562e0f484a22f381a77908be0") (title