(address . guix-patches@gnu.org)
m1tu219bmo.fsf@fastmail.net
* gnu/packages/minimacy.scm: New module.
---
gnu/packages/minimacy.scm | 90 +++++++++++++++++++++++++++++
gnu/packages/patches/minimacy.patch | 34 +++++++++++
2 files changed, 124 insertions(+)
create mode 100644 gnu/packages/minimacy.scm
create mode 100644 gnu/packages/patches/minimacy.patch
Toggle diff (138 lines)
diff --git a/gnu/packages/minimacy.scm b/gnu/packages/minimacy.scm
new file mode 100644
index 0000000000..549ca8f14f
--- /dev/null
+++ b/gnu/packages/minimacy.scm
@@ -0,0 +1,90 @@
+;;; Copyright © 2022 Konrad Hinsen <konrad.hinsen@fastmail.net>
+;;;
+;;; 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 <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages minimacy)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages xorg)
+ #:use-module (gnu packages gl)
+ #:use-module (gnu packages linux)
+ #:use-module (guix download)
+ #:use-module (guix git-download)
+ #:use-module (guix build-system gnu)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix packages))
+
+(define-public minimacy
+ (package
+ (name "minimacy")
+ (version "0.6.2")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/ambermind/minimacy/")
+ (commit "0.6.2")))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "1x9i1spf79lq3kxms55dx7lf8pl84cyblq313sjyfpr9l187ailb"))
+ (patches (search-patches "minimacy.patch"))))
+ (build-system gnu-build-system)
+ (inputs (list libx11 libxext alsa-lib mesa glu))
+ (outputs '("out" ; the core
+ "X11" ; for GUI programs, with X11 and ALSA
+ "X11GL")) ; for GUI programs, with X11, OpenGL, and ALSA
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-path
+ (lambda _
+ (substitute* "src/hw.c"
+ (("minimacy-in-gnu-store")
+ (assoc-ref %outputs "out")))))
+ (delete 'configure)
+ (replace 'build
+ (lambda _
+ (chdir "unix")
+ (invoke "make" "nox")
+ (for-each delete-file
+ (find-files "../obj" "\\.o$"))
+ (invoke "make" "x11")
+ (for-each delete-file
+ (find-files "../obj" "\\.o$"))
+ (invoke "make" "x11gl")
+ (chdir "..")))
+ (replace 'install
+ (lambda _
+ (let ((output (assoc-ref %outputs "out")))
+ (install-file "bin/minimacy" (string-append output "/bin"))
+ (mkdir-p (string-append output "/rom"))
+ (mkdir-p (string-append output "/system"))
+ (copy-recursively "rom" (string-append output "/rom"))
+ (copy-recursively "system" (string-append output "/system")))
+ (let ((output (assoc-ref %outputs "X11")))
+ (install-file "bin/minimacyX11" (string-append output "/bin")))
+ (let ((output (assoc-ref %outputs "X11GL")))
+ (install-file "bin/minimacyX11GL" (string-append output "/bin")))))
+ (delete 'check))))
+ (synopsis "Minimalist computing system")
+ (description
+ "Minimacy is an open-source minimalist computing technology.
+It consists of a programming language (compiler plus virtual machine)
+and a library, written such that the whole system can be fully
+understood by a single person. An optional extension to the virtual
+machine adds X11 and ALSA for user interfaces, another extension
+adds OpenGL support.")
+ (home-page "https://minimacy.net/")
+ (license license:gpl2)))
diff --git a/gnu/packages/patches/minimacy.patch b/gnu/packages/patches/minimacy.patch
new file mode 100644
index 0000000000..eca49431c3
--- /dev/null
+++ b/gnu/packages/patches/minimacy.patch
@@ -0,0 +1,34 @@
+The Minimacy distribution is set up for being compiled and used from the
+user's home directory. Running Minimacy as a Guix package requires adding
+its store path as a search path for the virtual machine. That is done in
+two steps: this patch, and a substitution of the actual store path in the
+build process.
+
+--- minimacy/src/hw.c 2022-12-05 18:51:13.000000000 +0100
++++ minimacy/src/hw.c 2022-12-09 15:55:47.122793826 +0100
+@@ -90,6 +90,13 @@
+ #if defined ON_UNIX || defined ON_MACOS_CMDLINE || defined ON_RASPBERRY64
+ void systemExecDir(char* path, int len)
+ {
++ char* p = "minimacy-in-gnu-store";
++ if (strlen(p) < len - 2)
++ {
++ strcpy(path, p);
++ systemCleanDir(path);
++ return;
++ }
+ path[0] = 0;
+ }
+ #endif
+@@ -583,8 +590,9 @@
+ PRINTF(th, LOG_USER, "1- command line argument: -dir path\n");
+ PRINTF(th, LOG_USER, "2- environment variable MINIMACY\n");
+ PRINTF(th, LOG_USER, "3- grand parent of minimacy.exe (windows only)\n");
+- PRINTF(th, LOG_USER, "4- ~/minimacy (on Unix) or [user]/Documents/minimacy (on Windows)\n");
+- PRINTF(th, LOG_USER, "5- Working directory\n\n");
++ PRINTF(th, LOG_USER, "4- the minimacy package under /gnu/store (Guix only)\n");
++ PRINTF(th, LOG_USER, "5- ~/minimacy (on Unix) or [user]/Documents/minimacy (on Windows)\n");
++ PRINTF(th, LOG_USER, "6- Working directory\n\n");
+ }
+ int hwInit(Thread* th, int argc, char** argv, int standalone)
+ {
--
2.38.1