From patchwork Sat Oct 26 17:28:09 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: 69471 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 2435F27BBEA; Sat, 26 Oct 2024 18:49:27 +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.6 required=5.0 tests=BAYES_00,DKIM_SIGNED, DKIM_VALID,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 793D327BBE2 for ; Sat, 26 Oct 2024 18:49:26 +0100 (BST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1t4kuI-0007NF-EJ; Sat, 26 Oct 2024 13:48:58 -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 1t4ktr-0007At-H3 for guix-patches@gnu.org; Sat, 26 Oct 2024 13:48:34 -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 1t4ktq-000330-VU for guix-patches@gnu.org; Sat, 26 Oct 2024 13:48:31 -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:References:In-Reply-To:Date:From:To:Subject; bh=rFRLlazcl8D1dbhCt0CCMqEDA9/MJAmb0SkPIaBAHz8=; b=EuvvDWxncJwjeuQT71Q+a5IAgaboA9mF3gVPGet+QIkngFlMFAfOcxjXNYGTgVG0lqsquTuQGqtVJP9mMYHR9EShb1vaB7V65/ecS/9b/hTCBoYvJbtlCjW2UDmLTS3621TX4QFquEIs1L6b5kK/ePyMh3XrVPA5kSPqobE1kR/CFIwlSW+UdmsfxPYmGFsYIPjeWD6NqNg57qQ3DIO0fpW/OBC6xDo0+/kWHjX6wq/ZldHlv9EeieRNNC1HtuJztkSTB8OcyDHOb6KapXor7gM+DTBoUW8ovyYrKOmUrlcuZa7m72Dku1LY7HSndpi3xKVFYjurBkJD9UQiVuUvqA==; Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1t4kuN-0001RD-Ko for guix-patches@gnu.org; Sat, 26 Oct 2024 13:49:03 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#73842] [PATCH v2 1/3] gnu: appimage: New packages for the appimage runtime. Resent-From: =?utf-8?q?No=C3=A9?= Lopez Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 26 Oct 2024 17:49: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: =?utf-8?q?No=C3=A9?= Lopez Received: via spool by 73842-submit@debbugs.gnu.org id=B73842.17299649095446 (code B ref 73842); Sat, 26 Oct 2024 17:49:03 +0000 Received: (at 73842) by debbugs.gnu.org; 26 Oct 2024 17:48:29 +0000 Received: from localhost ([127.0.0.1]:42498 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t4ktp-0001Pm-4K for submit@debbugs.gnu.org; Sat, 26 Oct 2024 13:48:29 -0400 Received: from smtp1-g21.free.fr ([212.27.42.1]:40286) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1t4ktn-0001Pe-L6 for 73842@debbugs.gnu.org; Sat, 26 Oct 2024 13:48:28 -0400 Received: from localhost.localdomain (unknown [IPv6:2a01:e0a:990:a960:b4f3:8f44:ec4:5af5]) by smtp1-g21.free.fr (Postfix) with ESMTP id 5F427B00565; Sat, 26 Oct 2024 19:47:21 +0200 (CEST) From: =?utf-8?q?No=C3=A9?= Lopez Date: Sat, 26 Oct 2024 19:28:09 +0200 Message-ID: <0f3279bf893470c70bdd535b81cd95fd108d5d5f.1729963690.git.noelopez@free.fr> X-Mailer: git-send-email 2.46.0 In-Reply-To: References: 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: , 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/appimage.scm (gnu packages appimage): New module. (fuse-for-appimage, squashfuse-for-appimage) (appimage-type2-runtime): New variables. Change-Id: I857a8eb5399a6a493e52db70b6c8cf0c71360930 --- gnu/packages/appimage.scm | 133 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 133 insertions(+) create mode 100644 gnu/packages/appimage.scm diff --git a/gnu/packages/appimage.scm b/gnu/packages/appimage.scm new file mode 100644 index 0000000000..028b59ab30 --- /dev/null +++ b/gnu/packages/appimage.scm @@ -0,0 +1,133 @@ +;;; 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 download) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module (guix packages) + #:use-module (guix utils)) + +(define 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 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 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" + #$fuse-2 + "/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 + (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 zstd zlib))) + ;; 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 FUSE and executes the entrypoint.") + (license license:expat))))