From patchwork Mon Jan 6 17:32:43 2025 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Homo X-Patchwork-Id: 36690 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 4B98227BBE9; Mon, 6 Jan 2025 18:03:31 +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 DFDB227BBE2 for ; Mon, 6 Jan 2025 18:03:27 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tUrRS-000753-0C; Mon, 06 Jan 2025 13:03:06 -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 1tUrRP-00074C-Eg for guix-patches@gnu.org; Mon, 06 Jan 2025 13:03:03 -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 1tUrRP-0007e3-64 for guix-patches@gnu.org; Mon, 06 Jan 2025 13:03:03 -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=bKqUnEQmUE7L94H/TXqydwH3JoMnpYYrdnkAejCq8ew=; b=ZWTWwces9tbl7Z5srUbcwGmWaB3Tj711j8UpoVvOMN+pT/3vYPPfcJbmuux3MsQ9b1oWTuOeyFbPYHFdDpT4KvLv/HBdWakI9PwhiHvMhTohqfqlrlyKk86XSb+q6IgUxtbmuMyBLC65Sd0AW+mX7ZMVIEBRBpd1YiTrULV4zhNff6HMTaVTpiew8Smcfi/xg5B82ja0NupCKOw359zUh5LEGTzzjPmPEvHizsgiZ8E7pSTB1RrSPp/fgvklGZ5OfUMNIaii2SM0Z/p5RGgzxtPEqOx7NBdBQofpTAGGySu083Ip9hjUSht1x+OHAiofd3Kg6XzWJjp4B2CXKvyuKQ==; Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1tUrRO-0001sd-08 for guix-patches@gnu.org; Mon, 06 Jan 2025 13:03:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#74734] [PATCH v4] gnu: Add inferno. References: <20241208002411.20796-1-gay@disroot.org> In-Reply-To: <20241208002411.20796-1-gay@disroot.org> Resent-From: Homo Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Mon, 06 Jan 2025 18:03:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 74734 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 74734@debbugs.gnu.org, ludo@gnu.org Cc: Homo Received: via spool by 74734-submit@debbugs.gnu.org id=B74734.17361865457152 (code B ref 74734); Mon, 06 Jan 2025 18:03:01 +0000 Received: (at 74734) by debbugs.gnu.org; 6 Jan 2025 18:02:25 +0000 Received: from localhost ([127.0.0.1]:39974 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tUrQm-0001rH-GB for submit@debbugs.gnu.org; Mon, 06 Jan 2025 13:02:25 -0500 Received: from layka.disroot.org ([178.21.23.139]:49664) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1tUrQi-0001r5-Mq for 74734@debbugs.gnu.org; Mon, 06 Jan 2025 13:02:22 -0500 Received: from mail01.disroot.lan (localhost [127.0.0.1]) by disroot.org (Postfix) with ESMTP id CB80925BD4; Mon, 6 Jan 2025 19:02:18 +0100 (CET) X-Virus-Scanned: SPAM Filter at disroot.org Received: from layka.disroot.org ([127.0.0.1]) by localhost (disroot.org [127.0.0.1]) (amavis, port 10024) with ESMTP id DdM1I5hpGByJ; Mon, 6 Jan 2025 19:02:14 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=disroot.org; s=mail; t=1736186534; bh=0emUmeTRQMf+tiDZ+Xh/oCXr/ZDeTpUo+AXBV/GxnyA=; h=From:To:Cc:Subject:Date; b=ePqQDP2C+kK1lzOr0+y6fV11DGGQWWPfKNZjp3vt8bV/ZnZZb6pvyaqjcnfA44nhP GMqkNP2dc06n1xG0arxMrp1hm/m3FnygbhxrenBBnQhjYDfStTmWWHPIcklIt0xHpE rXYc7YlITLVvYm6GEzuQPK6MpSDolF5rXFGR4rMXrgIrtkEDaVPcx6PGNTtY8JURJQ 6k3wbEKiPB6CyIF54z4BlowS1HutpZ8llKcLEKYCteAe5a86UGM0fvS1t7pUKqHLMC fyPdSvxKjzzCT/t8p/hQ7hxEMH3QALwSIava2YnXdTxqnOsIOurC6cnXn+GQ0UMB1v 6w1qA+Viq8jXQ== Date: Mon, 6 Jan 2025 19:32:43 +0200 Message-ID: <20250106180155.10796-1-gay@disroot.org> 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: Homo X-ACL-Warn: , Homo via Guix-patches X-Patchwork-Original-From: Homo via Guix-patches via From: Homo 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 Based on earlier work rejected for licensing reasons, code has been relicensed from LPL to Expat. Just in case remove all fonts from distribution, instead fonts from plan9port are used. * gnu/packages/inferno.scm: New file. * gnu/packages/patches/inferno-fix-crash.patch: New file. * gnu/local.mk (GNU_SYSTEM_MODULES, dist_patch_DATA): Register new files. Change-Id: I9a05a8bb2397796f6af86fa3be3408982ca62648 --- Hi, reformatted according to suggestions, also fixed shebangs in scripts running in Dis VM. I had to make little refactoring to avoid duplication of variables, more specifically it's hard to consistently track objtype. P.S. Added mention where .patch file comes from. To use system fonts, either use plan9port's fontsrv: $ mkdir -p $HOME/mnt/fonts $ 9 fontsrv -m $HOME/mnt/fonts then inside Inferno: % bind $home/mnt/fonts /fonts Alternatively if you are familiar with 9P authentication: $ 9 fontsrv $ 9 9pserve -c 'unix!/tmp/ns.$USER.$DISPLAY/font' 'tcp!127.0.0.1!8080' then inside Inferno: % mount tcp!127.0.0.1!8080 /fonts Inferno doesn't undersdand "unix!", because there are no sockets in Plan 9 and Inferno, this is a workaround from plan9port because there are no network-transparent filesystem namespaces in POSIX systems, and Linux namespaces are not suitable for this task at all. gnu/local.mk | 2 + gnu/packages/inferno.scm | 322 +++++++++++++++++++ gnu/packages/patches/inferno-fix-crash.patch | 17 + 3 files changed, 341 insertions(+) create mode 100644 gnu/packages/inferno.scm create mode 100644 gnu/packages/patches/inferno-fix-crash.patch diff --git a/gnu/local.mk b/gnu/local.mk index f118fe4442..91204cdeb6 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -377,6 +377,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/image-processing.scm \ %D%/packages/image-viewers.scm \ %D%/packages/imagemagick.scm \ + %D%/packages/inferno.scm \ %D%/packages/inklingreader.scm \ %D%/packages/inkscape.scm \ %D%/packages/installers.scm \ @@ -1592,6 +1593,7 @@ dist_patch_DATA = \ %D%/packages/patches/igraph-fix-varargs-integer-size.patch \ %D%/packages/patches/ilmbase-fix-tests.patch \ %D%/packages/patches/indent-CVE-2024-0911.patch \ + %D%/packages/patches/inferno-fix-crash.patch \ %D%/packages/patches/instead-use-games-path.patch \ %D%/packages/patches/intltool-perl-compatibility.patch \ %D%/packages/patches/inetutils-hurd64.patch \ diff --git a/gnu/packages/inferno.scm b/gnu/packages/inferno.scm new file mode 100644 index 0000000000..67df73bf02 --- /dev/null +++ b/gnu/packages/inferno.scm @@ -0,0 +1,322 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2018 Diego Nicola Barbato +;;; Copyright © 2024 Homo +;;; +;;; 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 inferno) + #:use-module (guix build-system gnu) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module (guix packages) + #:use-module ((guix licenses) + #:prefix license:) + #:use-module (gnu packages) + #:use-module (gnu packages plan9) + #:use-module (gnu packages xorg) + #:use-module (ice-9 match)) + +(define-public inferno + ;; There are no tags, also a lot of improvements and bugfixes happenned since 2015. + (let ((commit "67e70befb2ad0058fd7894be34c492ddb6d09988") + (revision "0")) + (package + (name "inferno") + (version (git-version "4" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/inferno-os/inferno-os") + (commit commit) + ;; Inferno uses customized Freetype library with #include "lib9.h" + ;; TODO: use packaged Freetype library. + (recursive? #t))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0g3fzb991hbwa7r3vsnybw7m1v13nins5ajmygnvz4vmx5rzl405")) + (patches (search-patches "inferno-fix-crash.patch")) + (modules '((guix build utils))) + ;; Remove bundled non-free and potentially non-free fonts. + (snippet '(delete-file-recursively "fonts")))) + (build-system gnu-build-system) + (arguments + (list + ;; Force a 32-bit build targeting a similar architecture, i.e.: + ;; armhf for armhf/aarch64, i686 for i686/x86_64. + ;; TODO: mips and powerpc. + #:system (match (%current-system) + ((or "armhf-linux" "aarch64-linux") + "armhf-linux") + (_ "i686-linux")) + ;; No tests. + #:tests? #f + #:phases + #~(modify-phases %standard-phases + (replace 'unpack + (lambda* (#:key source #:allow-other-keys) + (let* ((root (string-append #$output "/inferno"))) + ;; Copy directly to 'root' since the source + ;; tree doubles as Inferno's root directory + ;; and its path is baked into the emu binary. + (mkdir-p root) + (copy-recursively source root) + (chdir root)))) + ;; Scripts running in virtual machine need /dis/sh. + (delete 'patch-generated-file-shebangs) + (delete 'patch-shebangs) + (replace 'patch-source-shebangs + (lambda* (#:key inputs #:allow-other-keys) + ;; Substitute ocurrences of /bin/sh. + (for-each (lambda (file) + (substitute* file + (("/bin/sh") + (search-input-file inputs "/bin/bash")))) + '("makemk.sh" + "mkfiles/mkhost-Linux" + "emu/Linux/mk-wrt" + "utils/mk/Posix.c")))) + (add-after 'patch-source-shebangs 'patch-src-files + (lambda _ + ;; Do not pass '-m32' unconditionally + ;; when building mk. + (substitute* "makemk.sh" (("-m32") "")) + ;; Use the correct name for gcc. + (substitute* "mkfiles/mkfile-Linux-386" + (("cc -") + ;; Don't match yacc. + "gcc -")) + (substitute* "mkfiles/mkfile-Linux-arm" + (("arm-gcc") + "gcc")) + ;; Conflicting occurence of fsub. + (for-each (lambda (file) + (substitute* file + (("fsub") + "_fsub"))) + '("utils/libmach/vcodas.c" + "utils/libmach/vdb.c")) + ;; Fix build. + (for-each (lambda (file) + (substitute* file + (("^CFLAGS=") + "CFLAGS=-D_GNU_SOURCE -fcommon"))) + '("mkfiles/mkfile-Linux-386" + "mkfiles/mkfile-Linux-arm" + "mkfiles/mkfile-Linux-power" + "mkfiles/mkfile-Linux-spim")) + ;; Make build reproducible by + ;; ensuring timestamps embedded into + ;; binaries are set to 0. + (substitute* "emu/Linux/mkfile" + (("^KERNDATE=.*$") + "KERNDATE=0\n")))) + (replace 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let* ((objtype #$@(match (%current-system) + ((or "armhf-linux" "aarch64-linux") + `("arm")) + (_ `("386")))) + (root (string-append #$output "/inferno")) + (root/bindir (string-append root "/Linux/" objtype "/bin"))) + (substitute* "mkconfig" + (("ROOT=/usr/inferno") + (string-append "ROOT=" root)) + (("SYSHOST=Plan9") + "SYSHOST=Linux") + (("OBJTYPE=\\$objtype") + (string-append "OBJTYPE=" objtype))) + ;; Delete pre-built binaries. + (delete-file-recursively root/bindir) + (mkdir-p root/bindir) + ;; Avoid duplicating objtype variable later. + (symlink root/bindir (string-append #$output "/inferno/bin")) + (setenv "PATH" + (string-append + ;; These utilities will be used later in build. + root/bindir ":" + (getenv "PATH") ":" + ;; Bootstrap mk binary. + (search-input-directory inputs "/plan9/bin")))))) + (replace 'build + (lambda _ + ;; Build emu, utilities and Dis binaries using mk. + (invoke "mk" "-s" "nuke" "mkdirs" "install"))) + (replace 'install + (lambda* (#:key inputs #:allow-other-keys) + (let* ((bindir (string-append #$output "/bin")) + (emu-script (string-append bindir "/emu")) + (infwm-script (string-append bindir "/infwm")) + (root/bindir (string-append #$output "/inferno/bin")) + (simulate-fonts + (lambda (size targets) + (string-concatenate + (map (lambda (file) + (string-append + "ramfile /fonts/" file ".font; " + "bind /fonts/fixed/unicode." size ".font" + " /fonts/" file ".font; ")) + targets)))) + (write-script + (lambda (file cmds) + (with-output-to-file file + (lambda () + (display + (string-concatenate + (cons* "#!" + (search-input-file inputs "/bin/bash") + "\n" + cmds))))) + (chmod file #o755)))) + (mkdir-p bindir) + (mkdir-p "fonts") + ;; Install emu script. + (write-script emu-script (list + "exec " root/bindir "/emu sh -c \"" + ;; Use plan9port's fonts. + "bind '#U*" + (search-input-directory inputs "/plan9/font") + "' /fonts; " + ;; Pretend fonts were not removed. + ;; TODO: de-hardcode fonts from apps. + ;; TODO: use fonts available in the host system, + ;; plan9port's fontsrv is a good way to start. + ;; TODO: find fix for minitel fonts. + "memfs -b /fonts; " + (string-concatenate + (map (lambda (dir) + (string-append + "mkdir /fonts/" dir "; " + "bind /fonts/fixed /fonts/" dir "; ")) + '("charon" "lucida" "lucidasans" "lucm" "pelm"))) + (simulate-fonts "6x9" + '("charon/cw.tiny" + "charon/plain.tiny" + "lucida/unicode.6" + "lucidasans/latin1.6" + "lucidasans/typelatin1.6" + "lucidasans/unicode.6")) + (simulate-fonts "7x13" + '("charon/cw.small" + "charon/plain.small" + "lucida/unicode.7" + "lucidasans/latin1.7" + "lucidasans/typelatin1.7" + "lucidasans/unicode.7")) + (simulate-fonts "8x13" + '("charon/cw.normal" + "charon/plain.normal" + "lucida/unicode.8" + "lucidasans/euro.8" + "lucidasans/latin1.8" + "lucidasans/typelatin1.8" + "lucidasans/unicode.8" + "pelm/unicode.8")) + (simulate-fonts "9x15" + '("charon/cw.large" + "charon/plain.large" + "lucida/unicode.10" + "lucidasans/latin1.10" + "lucidasans/typelatin1.10" + "lucidasans/unicode.10" + "lucm/unicode.9" + "pelm/ascii.12" + "pelm/latin1.9" + "pelm/unicode.9")) + (simulate-fonts "10x20" + '("charon/cw.vlarge" + "charon/plain.vlarge" + "lucida/moo.16" + "lucida/unicode.13" + "lucidasans/latin1.13" + "lucidasans/typelatin1.13" + "lucidasans/unicode.13" + "pelm/ascii.16")) + (simulate-fonts "6x13O" + '("charon/italic.tiny" + "charon/italic.small" + "lucidasans/italiclatin1.6" + "lucidasans/italiclatin1.7")) + (simulate-fonts "7x13O" + '("charon/italic.normal" + "lucidasans/italiclatin1.8")) + (simulate-fonts "8x13O" + '("charon/italic.large" + "charon/italic.vlarge" + "lucidasans/italiclatin1.10" + "lucidasans/italiclatin1.13")) + (simulate-fonts "6x13B" + '("charon/bold.tiny" + "lucidasans/boldlatin1.6")) + (simulate-fonts "7x13B" + '("charon/bold.small" + "lucidasans/boldlatin1.7")) + (simulate-fonts "8x13B" + '("charon/bold.normal" + "lucidasans/boldlatin1.8")) + (simulate-fonts "9x15B" + '("charon/bold.large" + "lucidasans/boldlatin1.10")) + (simulate-fonts "9x18B" + '("charon/bold.vlarge" + "lucidasans/boldlatin1.13")) + ;; Bind the host's /tmp to Inferno's + ;; /tmp to make it writable. + "bind -bc '#U*/tmp' /tmp; " + ;; Bind the host's /home to Inferno's + ;; /usr. + "bind '#U*/home' /usr; " + "$*\"\n")) + ;; Install infwm script. + (write-script infwm-script (list + "exec " bindir "/emu $* wm/wm wm/logon -u $USER\n")) + ;; Install a symlink to the Limbo compiler. + (symlink (string-append root/bindir "/limbo") + (string-append bindir "/limbo"))))) + ;; Inferno doesn't compress man pages. + (delete 'compress-documentation)))) + (inputs (list libx11 libxext plan9port xorgproto)) + (home-page "https://www.inferno-os.org") + (synopsis + "Compact operating system for building cross-platform distributed systems") + (description + ;; Except for the last sentence this is taken verbatim from the + ;; intro(1) man page (man/1/0intro in the source tree). + "Inferno is a virtualised operating system that can run natively across +a wide range of processor architectures or hosted on a wide range of +operating systems. The principal components of the system are: +@itemize +@item The Inferno kernel which can run both native and hosted on a +range of platforms and which presents the same interface to programs +in both cases. +@item The Dis virtual machine. +@item Styx - the tiny broad-spectrum file service protocol. +@item Limbo - a new simple, modular, concurrent programming language. +@item Tk and Prefab - graphical user interface (GUI) primitives +without a lot of goo. +@item The portable cross-development suites that allow any native +Inferno platform to be cross-compiled on any hosted system. +@end itemize +This package provides hosted Inferno. +") + (supported-systems '("i686-linux" "x86_64-linux" "armhf-linux" + "aarch64-linux")) + (license (list license:expat ;MIT license + license:freetype + ;; According to NOTICE the combined work is effectively + ;; GPLv2+. + license:gpl2+ + license:lgpl2.0+))))) diff --git a/gnu/packages/patches/inferno-fix-crash.patch b/gnu/packages/patches/inferno-fix-crash.patch new file mode 100644 index 0000000000..943812cce4 --- /dev/null +++ b/gnu/packages/patches/inferno-fix-crash.patch @@ -0,0 +1,17 @@ +Fixes crash. +Patch from . + +diff --git a/emu/Linux/os.c b/emu/Linux/os.c +index 08b039d6..0d8a0cf3 100644 +--- a/emu/Linux/os.c ++++ b/emu/Linux/os.c +@@ -18,6 +18,9 @@ + + #include + ++/* For dynamic linking init/fini code that needs malloc */ ++void (*coherence)(void) = nofence; ++ + /* glibc 2.3.3-NTPL messes up getpid() by trying to cache the result, so we'll do it ourselves */ + #include + #define getpid() syscall(SYS_getpid)