mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
guix/gnu/packages/dotnet.scm

530 lines
23 KiB
Scheme
Raw Normal View History

gnu: Add treecc. * gnu/packages/dotnet.scm: New module. (treecc): New package. * gnu/local.mk (GNU_SYSTEM_MODULES): Register new module. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: Ic809d0aa7a8486a091beccef3dcd22a9821aeb94
2024-11-26 12:13:32 +02:00
(define-module (gnu packages dotnet)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages assembly)
#:use-module (gnu packages bison)
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages flex)
#:use-module (gnu packages gettext)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages base)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bdw-gc)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages glib)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages instrumentation)
#:use-module (gnu packages kerberos)
#:use-module (gnu packages libffi)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages perl)
#:use-module (gnu packages photo)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tls)
#:use-module (gnu packages image)
#:use-module (gnu packages gtk)
#:use-module (gnu packages python)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (gnu packages version-control)
#:use-module (gnu packages)
#:use-module (guix modules)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (ice-9 match))
(define-public treecc
(package
(name "treecc")
(version "0.3.10")
(source (origin
(method url-fetch)
(uri (string-append
"https://download.savannah.gnu.org/releases/dotgnu-pnet/treecc-"
version ".tar.gz"))
(sha256
(base32
"1rzgnspg2xccdq3qsx0vi3j28h4qkrzbrjnhzvnny34fjfk217ay"))))
(build-system gnu-build-system)
(home-page "https://www.gnu.org/software/dotgnu")
(synopsis "Tree Compiler-Compiler")
(description "The treecc program is designed to assist in the development
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+)))
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
2024-11-26 12:44:56 +02:00
;; 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+))))
gnu: Add pnetlib-git. * gnu/packages/dotnet.scm (pnetlib-git): New variable. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: I6337d9589b6e2b1be0e673359a68cd8d247cad03
2024-11-26 12:53:23 +02:00
(define-public pnetlib-git
(let ((version "0.8.0")
(commit "c3c12b8b0c65f5482d03d6a4865f7670e98baf4c")
(revision "0"))
(package
(name "pnetlib-git")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url
"https://git.savannah.gnu.org/git/dotgnu-pnet/pnetlib.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"04dikki3lr3m1cacirld90rpi95656b2y2mc5rkycb7s0yfdz1nk"))
(modules '((guix build utils)))
(snippet
#~(begin
(for-each delete-file
(append (filter file-exists?
'("configure"
"config.guess"
"config.sub"
"install-sh"
"ltmain.sh"))
(find-files "." "Makefile(\\.in)?$")))
(substitute* (find-files "tests" "^Makefile\\.am$")
(("TESTS_ENVIRONMENT.*")
(string-append
"LOG_COMPILER = $(SHELL)\n"
"AM_LOG_FLAGS = $(top_builddir)/tools/run_test.sh"
" $(top_builddir)")))
(substitute* "tools/run_test.sh.in"
(("en_US") "en_US.utf8"))
(substitute* "tools/wrapper.sh.in"
(("exec .LN_S clrwrap ..1.")
(string-append
"echo '#!@SHELL@' >> $1\n"
"echo exec $CLRWRAP"
" $(dirname $(dirname $1))"
"/lib/cscc/lib/$(basename $1).exe >> $1\n"
"chmod +x $1")))))))
(build-system gnu-build-system)
(arguments
(list
#:make-flags #~(list "CFLAGS=-O2 -g -Wno-pointer-to-int-cast")
#:tests? (and (not (%current-target-system))
(not (target-aarch64?)))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'disable-x11-tests
(lambda _
(substitute* "tests/Makefile.am"
;; This actually always fails, for a number of
;; reasons:
;; 1. We have no libx11 present, nor do we have an X display
;; present. This will cause libXsharpSupport.so to be
;; built with only shims that fail at runtime.
;; 2. No mechanism is provided for
;; tests/System.Windows.Forms/TestForms.dll to find
;; libXsharpSupport.so, which seems to sit at
;; Xsharp/.libs/libXsharpSupport.so.
;; With a libjit pnet,
;; System.Drawing.Toolkit.ToolkitHandler.CreateDefaultToolkit
;; throws ArgumentNullException when invoking Assembly.Load,
;; while a cvm pnet instead succeeds temporarily, but then
;; fails when invoking
;; System.Drawing.Toolkit.DrawingToolkit..ctor. For some
;; reason this results in csunit passing the former and
;; failing the latter.
(("System\\.Windows\\.Forms") "")))))))
(native-inputs
(list autoconf automake libtool treecc))
(inputs
(list pnet-git))
(home-page "http://www.gnu.org/software/dotgnu/html2.0/pnet.html")
(synopsis "Libraries for the C# programming language")
(description
"DotGNU Portable.NET Library contains an implementation of the C# library,
for use with .NET-capable runtime engines and applications.")
(license license:gpl2+))))
gnu: Add mono-1.2.6. * gnu/packages/dotnet.scm (mono-1.2.6): New variable. * gnu/packages/patches/mono-1.2.6-bootstrap.patch: New patch. * gnu/local.mk (dist_patch_DATA): Register it. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: I02799b39eb53f01f7103e9a127428f420b287f4a
2024-11-26 12:55:57 +02:00
(define prepare-mono-source-0
#~((when (file-exists? "configure")
(delete-file "configure"))
(when (file-exists? "libgc")
(delete-file-recursively "libgc"))
;; just to be sure
(for-each delete-file
(find-files "." "\\.(dll|exe|DLL|EXE|so)$"))
;; We deleted docs/AgilityPack.dll earlier (if it existed), and it's
;; required for building the documentation, so skip building the
;; documentation. According to docs/README, "the sources to this DLL
;; live in GNOME CVS module beagle/Filters/AgilityPack".
(substitute* "Makefile.am"
(("^(|DIST_|MOONLIGHT_|MONOTOUCH_)SUBDIRS =.*" all)
(string-replace-substring
(string-replace-substring
(string-replace-substring all " docs" "")
" $(libgc_dir)" "")
" libgc" "")))))
;; A lot of the fixes are shared between many versions, and it doesn't hurt to
;; apply them to versions before or after they are necessary, so just include
;; them all.
(define prepare-mono-source
#~(begin
#$@prepare-mono-source-0
(substitute* (filter file-exists?
'("configure.in"
"configure.ac"))
(("int f = isinf \\(1\\);")
"int f = isinf (1.0);"))
;; makedev is in <sys/sysmacros.h> now. Include it.
(substitute* "mono/io-layer/processes.c"
(("#ifdef HAVE_SYS_MKDEV_H") "#if 1")
(("sys/mkdev.h") "sys/sysmacros.h"))
(substitute* (filter file-exists? '("mono/metadata/boehm-gc.c"))
(("GC_set_finalizer_notify_proc")
"GC_set_await_finalize_proc")
(("GC_toggleref_register_callback")
"GC_set_toggleref_func"))
(substitute* (filter file-exists? '("mono/utils/mono-compiler.h"))
(("static __thread gpointer x MONO_TLS_FAST")
"static __thread gpointer x __attribute__((used))"))
;; Since the time the old mono versions were written at, gcc has started
;; removing more things it thinks are unused (for example because they
;; are only referenced in inline assembly of some sort).
(substitute* (filter file-exists? '("mono/metadata/sgen-alloc.c"))
(("static __thread char \\*\\*tlab_next_addr")
"static __thread char **tlab_next_addr __attribute__((used))"))
(substitute* (filter file-exists? '("mono/utils/mono-compiler.h"))
(("#define MONO_TLS_FAST ")
"#define MONO_TLS_FAST __attribute__((used)) "))))
(define-public mono-1.2.6
(package
(version "1.2.6")
(name "mono")
(source (origin
(method url-fetch)
(uri (string-append
"http://download.mono-project.com/sources/mono/"
"mono-" version ".tar.bz2"))
(sha256
(base32 "03sn7wyvrjkkkbrqajpmqifxfn83p30qprizpb3m6c5cdhwlzk14"))
(modules '((guix build utils)
(ice-9 string-fun)))
(snippet #~(begin
#$prepare-mono-source
(with-directory-excursion
"mcs/class/System/System.Text.RegularExpressions"
(delete-file "BaseMachine.cs")
;; Can't patch a file with different line endings,
;; so the patch creates a new one, and we overwrite
;; the old one here.
(rename-file "BaseMachine.cs-2"
"BaseMachine.cs"))))
(patches (search-patches "mono-1.2.6-bootstrap.patch"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf
automake
bison
libtool
pnet-git
pnetlib-git
pkg-config))
(inputs
(list glib
libgc
libx11
zlib))
(arguments
(list
#:configure-flags #~(list "--with-gc=boehm")
#:make-flags #~(list (string-append "EXTERNAL_MCS="
#+(this-package-native-input "pnet-git")
"/bin/cscc")
(string-append "EXTERNAL_RUNTIME="
#+(this-package-native-input "pnet-git")
"/bin/ilrun")
"CFLAGS=-O2 -g -DARG_MAX=500"
#$(string-append "CC=" (cc-for-target))
"V=1")
;; build fails nondeterministically without this
#:parallel-build? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'set-env
(lambda _
;; All tests under mcs/class fail trying to access $HOME
(setenv "HOME" "/tmp")
;; ZIP files have "DOS time" which starts in Jan 1980.
(setenv "SOURCE_DATE_EPOCH" "315532800"))))
;; System.Object isn't marked as serializable because it causes issues
;; with compiling with pnet (circular class reference between Object and
;; SerializableAttribute), and this causes tests to fail.
#:tests? #f))
(native-search-paths
(list (search-path-specification
(variable "MONO_PATH")
(files (list "lib/mono")))))
(synopsis "Compiler and libraries for the C# programming language")
(description "Mono is a compiler, vm, debugger and set of libraries for C#
a C-style programming language from Microsoft that is very similar to Java.")
(home-page "https://www.mono-project.com/")
;; See ./LICENSE
(license (list
;; most of mcs/tools, mono/man, most of mcs/class, tests by
;; default, mono/eglib
license:x11
;; mcs/mcs, mcs/gmcs, some of mcs/tools
license:gpl1+ ;; note: ./mcs/LICENSE.GPL specifies no version
;; mono/mono (the mono VM, I think they meant mono/mini)
license:lgpl2.0+ ;; note: ./mcs/LICENSE.LGPL specifies no version
;; mcs/jay
license:bsd-4))))
gnu: Add mono-1.9.1. * gnu/packages/dotnet.scm (mono-1.9.1): New variable. * gnu/packages/patches/mono-1.9.1-add-MONO_CREATE_IMAGE_VERSION.patch: New patch. * gnu/packages/patches/mono-1.9.1-fixes.patch: New patch. * gnu/local.mk (dist_patch_DATA): Register new patches. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: I013646625b9e5dbc1cd68ecaf8cf4b591dc016a0
2024-11-26 12:59:49 +02:00
(define-public mono-1.9.1
(package
(inherit mono-1.2.6)
(version "1.9.1")
(name "mono")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.winehq.org/mono/mono.git")
(commit "mono-1.9.1.1")))
(file-name (git-file-name name version))
(sha256
(base32
"0s1n3zdhc2alk9smxfdl1kjz7lz2p19gs0ks4hgr864jlmf13bws"))
(modules '((guix build utils)
(ice-9 string-fun)))
(snippet prepare-mono-source)
(patches (search-patches
"mono-1.9.1-fixes.patch"
"mono-1.9.1-add-MONO_CREATE_IMAGE_VERSION.patch"))))
(native-inputs
(modify-inputs (package-native-inputs mono-1.2.6)
(delete "pnet-git")
(delete "pnetlib-git")
(prepend mono-1.2.6)
(append which)
;; needed for tests
(append perl)))
(arguments
(substitute-keyword-arguments (package-arguments mono-1.2.6)
((#:make-flags _ #f)
#~(list #$(string-append "CC=" (cc-for-target)) "V=1"))
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-before 'configure 'set-cflags
(lambda _
;; apparently can't be set via make flags in this version
(let ((original (getenv "CFLAGS")))
(setenv "CFLAGS" (string-append (or original "")
(if original " " "")
"-DARG_MAX=500")))))
(add-before 'configure 'set-create-image-version
(lambda _
;; pnet produces v2.x assemblies. Mono does this weird thing
;; where it always produces assemblies of the same version as
;; the runtime that is running it, which is based on the
;; version of the assembly that it loaded, which is based on
;; what it decided for the previous compiler... on and on all
;; the way back to pnet. This breaks that chain, because
;; otherwise it ends up compiling the initial mcs against .NET
;; 2.0 libraries and then running with .NET 1.0 libraries.
(setenv "MONO_CREATE_IMAGE_VERSION" "v1.1.4322")))
(add-after 'unpack 'patch-test-driver-shebang
(lambda _
(patch-shebang "mono/tests/test-driver")))))
((#:tests? _ #f) #f)
((#:parallel-tests? _ #f) #f)))))
gnu: Add mono-2.4.2. * gnu/packages/dotnet.scm (mono-2.4.2): New variable. * gnu/packages/patches/mono-2.4.2.3-fixes.patch: New patch. * gnu/local.mk (dist_patch_DATA): Register it. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: If1b84c2465de4ba0fbfb6824f1bcbe2b694b265e
2024-11-26 13:02:31 +02:00
(define-public mono-2.4.2
(package
(inherit mono-1.9.1)
(version "2.4.2.3")
(name "mono")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.winehq.org/mono/mono.git")
(commit (string-append
"mono-" (string-replace-substring version "." "-")))))
(file-name (git-file-name name version))
(sha256
(base32
"0mnrk17rd9c5rh30dh82a39c9ak1ns998b41ivprvy7m068skpda"))
(modules '((guix build utils)
(ice-9 string-fun)))
(snippet prepare-mono-source)
(patches (search-patches "mono-2.4.2.3-fixes.patch"))))
(native-inputs (modify-inputs (package-native-inputs mono-1.9.1)
(replace "mono" mono-1.9.1)))
(inputs (modify-inputs (package-inputs mono-1.9.1)
(append gettext-minimal)))
(arguments
(substitute-keyword-arguments (package-arguments mono-1.9.1)
((#:tests? _ #f)
;; When it tries building iltests.il in mono/mini, it gets: error
;; CS0006: cannot find metadata file `TestDriver.dll'. It builds fine
;; outside of the build environment, but later tests fail, and I can't
;; be bothered to figure out what's causing ilasm to not find
;; TestDriver.dll.
#f)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-before 'bootstrap 'patch-sub-autogen.sh-shebang
(lambda _
(patch-shebang "eglib/autogen.sh")))))))
(license (list
;; most of mcs/tools, mono/man, most of mcs/class, tests by
;; default, mono/eglib
;; mcs/mcs, mcs/gmcs (dual-licensed GPL)
;; samples
license:x11
;; mcs/mcs, mcs/gmcs (dual-licensed X11)
;; some of mcs/tools
license:gpl1+ ;; note: ./mcs/LICENSE.GPL specifies no version
;; mono/mono (the mono VM, I think they meant mono/mini)
license:lgpl2.0+ ;; note: ./mcs/LICENSE.LGPL specifies no version
;; mcs/jay
license:bsd-4))))
gnu: Add mono-2.6.4. * gnu/dotnet.scm (mono-2.6.4): New variable. * gnu/packages/patches/mono-2.6.4-fixes.patch: New patch. * gnu/local.mk (dist_patch_DATA): Register it. Signed-off-by: Efraim Flashner <efraim@flashner.co.il> Change-Id: Ie2238810ea067724978440857150cad269d3d377
2024-11-26 13:04:13 +02:00
(define-public mono-2.6.4
(package
(inherit mono-2.4.2)
(version "2.6.4")
(name "mono")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.winehq.org/mono/mono.git")
(commit (string-append "mono-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"17977w45qh8jmfsl4bhi83si4fxd8s3x8b0pxnwdzjv3bqr54c85"))
(modules '((guix build utils)
(ice-9 string-fun)))
(snippet prepare-mono-source)
(patches (search-patches "mono-2.6.4-fixes.patch"))))
(native-inputs (modify-inputs (package-native-inputs mono-2.4.2)
(replace "mono" mono-2.4.2)))))
Reference in a new issue Copy permalink