gnu: Add pnet-git.

* gnu/packages/dotnet.scm (pnet-git): New variable. * gnu/packages/patches/pnet-fix-line-number-info.patch, gnu/packages/patches/pnet-fix-off-by-one.patch, gnu/packages/patches/pnet-newer-libgc-fix.patch, gnu/packages/patches/pnet-newer-texinfo-fix.patch: New patches. * gnu/local.mk (dist_patch_DATA): Register new patches. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: Ic3e93dbaab24eb73fe9a35f711a710eed6a823a1
2025-10-02 02:15:12 +00:00 · 2024-11-26 12:44:56 +02:00 · 2024-11-26 12:44:56 +02:00 · 1b1e9917ad
commit 1b1e9917ad
parent f2098a776a
6 changed files with 204 additions and 0 deletions
--- a/gnu/packages/dotnet.scm
+++ b/gnu/packages/dotnet.scm
@ -60,3 +60,119 @@
 of compilers and other language-based tools.  It manages the generation of
 code to handle abstract syntax trees and operations upon the trees.")
    (license license:gpl2+)))
+
+;; Several improvements occurred past the 0.8.0 release that make it
+;; easier to bootstrap mono.
+(define-public pnet-git
+  (let ((commit "3baf94734d8dc3fdabba68a8891e67a43ed6c4bd")
+        (version "0.8.0")
+        (revision "0"))
+    (package
+      (name "pnet-git")
+      (version (git-version version revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.savannah.gnu.org/git/dotgnu-pnet/pnet.git")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0vznvrgz8l0mpib1rz5v3clr7cn570vyp80f7f1jvzivnc1imzn6"))
+                (modules '((guix build utils)))
+                (snippet
+                 #~(begin
+                     (for-each delete-file-recursively '("libffi" "libgc"))
+                     (for-each delete-file
+                               (append
+                                 (filter file-exists?
+                                         '("compile"
+                                           "configure"
+                                           "config.guess"
+                                           "config.sub"
+                                           "depcomp"
+                                           "install-sh"
+                                           "ltconfig"
+                                           "ltcf-c.sh"
+                                           "ltmain.sh"))
+                                 (find-files "." "Makefile(\\.in)?$")
+                                 (find-files "." "_(grammar|scanner)\\.(c|h)$")))
+                     ;; Fix to not require bundled dependencies
+                     (substitute* "configure.in"
+                       (("GCLIBS='.*libgc.a'") "GCLIBS='-lgc'")
+                       ;; AC_SEARCH_LIBJIT checks hardcoded header locations
+                       (("search_libjit=true")
+                        (string-append "search_libjit=false\n"
+                                       "JIT_LIBS=-ljit")))
+                     (substitute* "Makefile.am"
+                       (("OPT_SUBDIRS \\+= lib.*") ""))
+                     (substitute* "support/hb_gc.c"
+                       (("#include .*/libgc/include/gc.h.")
+                        "#include <gc.h>")
+                       (("#include .*/libgc/include/gc_typed.h.")
+                        "#include <gc/gc_typed.h>"))
+                     (substitute* (list "codegen/Makefile.am"
+                                        "cscc/bf/Makefile.am"
+                                        "cscc/csharp/Makefile.am"
+                                        "cscc/c/Makefile.am"
+                                        "cscc/java/Makefile.am")
+                       ;; Generated files aren't prerequisites
+                       (("TREECC_OUTPUT =.*") ""))
+                     (substitute* "cscc/csharp/cs_grammar.y"
+                       (("YYLEX") "yylex()"))
+                     (substitute* "cscc/common/cc_main.h"
+                       (("CCPreProc CCPreProcessorStream;" all)
+                        (string-append "extern " all)))
+                     (substitute* "csdoc/scanner.c"
+                       (("int\ttoken;" all)
+                        (string-append "extern " all)))
+                     (substitute* "doc/cvmdoc.py"
+                       (("python1.5")
+                        "python"))
+                     (substitute* "profiles/full"
+                       ;; If this is left unmodified, it causes a segfault in
+                       ;; pnetlib's tests.  Unrollers are somewhat
+                       ;; architecture-specific anyway, and it will fall back
+                       ;; to using GNU C's labels-as-values feature (it can be
+                       ;; made to further fall back to fully
+                       ;; standards-portable interpreter implementations).
+                       (("IL_CONFIG_UNROLL=y")
+                        "IL_CONFIG_UNROLL=n"))))
+                (patches (search-patches "pnet-newer-libgc-fix.patch"
+                                         "pnet-newer-texinfo-fix.patch"
+                                         "pnet-fix-line-number-info.patch"
+                                         "pnet-fix-off-by-one.patch"))))
+      (build-system gnu-build-system)
+      (native-inputs
+       (list autoconf
+             automake
+             bison
+             flex
+             libatomic-ops
+             libtool
+             python-minimal-wrapper
+             texinfo
+             treecc))
+      (inputs
+       (cons* libffi
+              libgc
+              (if (supported-package? libjit)
+                  (list libjit)
+                  '())))
+      (arguments
+       (append (if (this-package-input "libjit")
+                   (list #:configure-flags #~(list "--with-jit"))
+                   '())
+               (list #:make-flags
+                     #~(list "CFLAGS=-O2 -g -Wno-pointer-to-int-cast"))))
+      (native-search-paths
+       (list (search-path-specification
+              (variable "CSCC_LIB_PATH")
+              (files (list "lib/cscc/lib")))))
+      (home-page "http://www.gnu.org/software/dotgnu/html2.0/pnet.html")
+      (synopsis "Compiler for the C# programming language")
+      (description
+       "The goal of this project is to build a suite of free software tools
+to build and execute .NET applications, including a C# compiler,
+assembler, disassembler, and runtime engine.")
+      (license license:gpl2+))))