[PATCH] gnu: Add mono.

[PATCH] gnu: Add mono.

[Jan Nieuwenhuizen]

[-- Attachment #1: Type: text/plain, Size: 146 bytes --]

Hi,

I need mcs to test a code generator that I wrote for a client.  I think
it may still be nondeterministic, but I'm not sure.

Greetings,
Jan


[-- Attachment #2: 0001-gnu-Add-mono.patch --]
[-- Type: text/x-patch, Size: 4124 bytes --]

From 17a84f265c51fa0859c0f3574f8b7684d729e066 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 13 Jul 2016 14:47:55 +0200
Subject: [PATCH] gnu: Add mono.

* gnu/packages/mono.scm: New file.
* gnu/packages/local.mk (GNU_SYSTEM_MODULES): Add it.
---
 gnu/local.mk          |  1 +
 gnu/packages/mono.scm | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 74 insertions(+)
 create mode 100644 gnu/packages/mono.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 3a0d5c2..dfc038f 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -236,6 +236,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/mg.scm				\
   %D%/packages/mit-krb5.scm			\
   %D%/packages/moe.scm				\
+  %D%/packages/mono.scm				\
   %D%/packages/moreutils.scm			\
   %D%/packages/mpd.scm				\
   %D%/packages/mp3.scm				\
diff --git a/gnu/packages/mono.scm b/gnu/packages/mono.scm
new file mode 100644
index 0000000..b1d5495
--- /dev/null
+++ b/gnu/packages/mono.scm
@@ -0,0 +1,73 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; 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 mono)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages xml)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu))
+
+(define-public mono
+  (package
+    (name "mono")
+    (version "4.4.0.182")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://download.mono-project.com/sources/mono/"
+                    name "-" version
+                    ".tar.bz2"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  (substitute*
+                      "mono/tests/Makefile.in"
+                    ;; no rule to make unhandled-exception-*
+                    (("@test-unhandled-exception-2:" all)
+                     (string-append all "#")))
+                  (substitute*
+                      "mcs/tools/mono-symbolicate/Makefile"
+                    ;; error CS2001: Source file `Test/StackTraceDumper.cs'
+                    ;; could not be found
+                    (("^check: test-local") "check:\ntest-local:")
+                    (("^test-local: all") "disabled-test-local:"))))
+              (sha256
+               (base32
+                "1rdz036bfgpn546v449rkjg5wczll12xxf1jkdqccgdwajh2fglq"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("gettext" ,gnu-gettext)
+       ("libxslt" ,libxslt)
+       ("perl" ,perl)
+       ("python" ,python-2)))
+    (arguments
+     ;; these 3 tests fail
+     `(#:make-flags `(,(string-append
+                        "PLATFORM_DISABLED_TESTS="
+                        "delegate2.exe finally_guard.exe remoting4.exe"))
+       #:parallel-tests? #f))
+    (synopsis "Compiler and libraries for C#")
+    (description "Mono is a compiler, vm, debugger and set of libraries for
+C#, a C-style language from Microsoft that is very similar to Java.")
+    (home-page "http://mono-project.org/")
+    (license license:x11)))
-- 
2.8.4


[-- Attachment #3: Type: text/plain, Size: 154 bytes --]


-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

Re: [PATCH] gnu: Add mono.

[Jan Nieuwenhuizen]

Jan Nieuwenhuizen writes:

wait a minute I intended to build and send 4.4.1.0 -- update soon

> Hi,
>
> I need mcs to test a code generator that I wrote for a client.  I think
> it may still be nondeterministic, but I'm not sure.
>
> Greetings,
> Jan
>
> From 17a84f265c51fa0859c0f3574f8b7684d729e066 Mon Sep 17 00:00:00 2001
> From: Jan Nieuwenhuizen <janneke@gnu.org>
> Date: Wed, 13 Jul 2016 14:47:55 +0200
> Subject: [PATCH] gnu: Add mono.
>
> * gnu/packages/mono.scm: New file.
> * gnu/packages/local.mk (GNU_SYSTEM_MODULES): Add it.
> ---
>  gnu/local.mk          |  1 +
>  gnu/packages/mono.scm | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 74 insertions(+)
>  create mode 100644 gnu/packages/mono.scm
>
> diff --git a/gnu/local.mk b/gnu/local.mk
> index 3a0d5c2..dfc038f 100644
> --- a/gnu/local.mk
> +++ b/gnu/local.mk
> @@ -236,6 +236,7 @@ GNU_SYSTEM_MODULES =				\
>    %D%/packages/mg.scm				\
>    %D%/packages/mit-krb5.scm			\
>    %D%/packages/moe.scm				\
> +  %D%/packages/mono.scm				\
>    %D%/packages/moreutils.scm			\
>    %D%/packages/mpd.scm				\
>    %D%/packages/mp3.scm				\
> diff --git a/gnu/packages/mono.scm b/gnu/packages/mono.scm
> new file mode 100644
> index 0000000..b1d5495
> --- /dev/null
> +++ b/gnu/packages/mono.scm
> @@ -0,0 +1,73 @@
> +;;; GNU Guix --- Functional package management for GNU
> +;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
> +;;;
> +;;; 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 mono)
> +  #:use-module ((guix licenses) #:prefix license:)
> +  #:use-module (gnu packages gettext)
> +  #:use-module (gnu packages perl)
> +  #:use-module (gnu packages python)
> +  #:use-module (gnu packages xml)
> +  #:use-module (guix packages)
> +  #:use-module (guix download)
> +  #:use-module (guix git-download)
> +  #:use-module (guix build-system gnu))
> +
> +(define-public mono
> +  (package
> +    (name "mono")
> +    (version "4.4.0.182")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append
> +                    "http://download.mono-project.com/sources/mono/"
> +                    name "-" version
> +                    ".tar.bz2"))
> +              (modules '((guix build utils)))
> +              (snippet
> +               '(begin
> +                  (substitute*
> +                      "mono/tests/Makefile.in"
> +                    ;; no rule to make unhandled-exception-*
> +                    (("@test-unhandled-exception-2:" all)
> +                     (string-append all "#")))
> +                  (substitute*
> +                      "mcs/tools/mono-symbolicate/Makefile"
> +                    ;; error CS2001: Source file `Test/StackTraceDumper.cs'
> +                    ;; could not be found
> +                    (("^check: test-local") "check:\ntest-local:")
> +                    (("^test-local: all") "disabled-test-local:"))))
> +              (sha256
> +               (base32
> +                "1rdz036bfgpn546v449rkjg5wczll12xxf1jkdqccgdwajh2fglq"))))
> +    (build-system gnu-build-system)
> +    (native-inputs
> +     `(("gettext" ,gnu-gettext)
> +       ("libxslt" ,libxslt)
> +       ("perl" ,perl)
> +       ("python" ,python-2)))
> +    (arguments
> +     ;; these 3 tests fail
> +     `(#:make-flags `(,(string-append
> +                        "PLATFORM_DISABLED_TESTS="
> +                        "delegate2.exe finally_guard.exe remoting4.exe"))
> +       #:parallel-tests? #f))
> +    (synopsis "Compiler and libraries for C#")
> +    (description "Mono is a compiler, vm, debugger and set of libraries for
> +C#, a C-style language from Microsoft that is very similar to Java.")
> +    (home-page "http://mono-project.org/")
> +    (license license:x11)))
> -- 
> 2.8.4

-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

Re: [PATCH] gnu: Add mono.

[Jan Nieuwenhuizen]

[-- Attachment #1: Type: text/plain, Size: 108 bytes --]

Jan Nieuwenhuizen writes:

Here is what I intended to send; find version 4.4.1.0 attached.

Greetings,
Jan


[-- Attachment #2: 0001-gnu-Add-mono.patch --]
[-- Type: text/x-patch, Size: 5396 bytes --]

From cd4bfa9478c855fa2d212336a99941e473a5c0c5 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 13 Jul 2016 14:47:55 +0200
Subject: [PATCH] gnu: Add mono.

* gnu/packages/mono.scm: New file.
* gnu/packages/local.mk (GNU_SYSTEM_MODULES): Add it.
---
 gnu/local.mk          |  1 +
 gnu/packages/mono.scm | 98 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 99 insertions(+)
 create mode 100644 gnu/packages/mono.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 3a0d5c2..dfc038f 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -236,6 +236,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/mg.scm				\
   %D%/packages/mit-krb5.scm			\
   %D%/packages/moe.scm				\
+  %D%/packages/mono.scm				\
   %D%/packages/moreutils.scm			\
   %D%/packages/mpd.scm				\
   %D%/packages/mp3.scm				\
diff --git a/gnu/packages/mono.scm b/gnu/packages/mono.scm
new file mode 100644
index 0000000..f0f715e
--- /dev/null
+++ b/gnu/packages/mono.scm
@@ -0,0 +1,98 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; 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 mono)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu))
+
+(define-public mono
+  (package
+    (name "mono")
+    (version "4.4.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://download.mono-project.com/sources/mono/"
+                    name "-" version
+                    ".tar.bz2"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  (substitute* "mono/tests/Makefile.in"
+                    ;; does not build: no rule to make unhandled-exception-*
+                    (("@test-unhandled-exception-2:" all)
+                     (string-append all "#")))
+                  (substitute* "mcs/tools/mono-symbolicate/Makefile"
+                    ;; does not build: Source file `Test/StackTraceDumper.cs'
+                    ;; could not be found
+                    (("^check: test-local") "check:\ntest-local:")
+                    (("^test-local: all") "disabled-test-local:"))
+                  (substitute* "mono/unit-tests/Makefile.in"
+                    ;; test fails
+                    (("^test-sgen-qsort.log:")
+                     "disabled-test-sgen-qsort.log:\ntest-sgen-qsort.log:"))
+                  ;; tests fail, trying to access $HOME
+                  (substitute* "mcs/class/Makefile"
+                    (("^include ../build/rules.make" all)
+                     (string-append
+                      all
+                      "\nrun-test-recursive:\n\t@echo skipping tests\n")))
+                  (substitute* '("mcs/tools/mono-shlib-cop/Makefile"
+                                 "mcs/tools/mdoc/Makefile")
+                    (("^run-test-local:" all)
+                     (string-append "#" all)))
+                  (substitute* "mcs/tools/sqlmetal/Makefile"
+                    (("^include ../../build/rules.make" all)
+                     (string-append
+                      "NO_TEST:=true\n"
+                      all
+                      "\nrun-test-lib:\n\t@echo skipping test\n")))))
+              (sha256
+               (base32
+                "0jibyvyv2jy8dq5ij0j00iq3v74r0y90dcjc3dkspcfbnn37cphn"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("gettext" ,gnu-gettext)
+       ("glib" ,glib)
+       ("libxslt" ,libxslt)
+       ("perl" ,perl)
+       ("python" ,python-2)))
+    (arguments
+     ;; these 3 tests fail
+     `(#:make-flags
+       `(,(string-append "PLATFORM_DISABLED_TESTS="
+                         " appdomain-unload.exe"
+                         " delegate2.exe"
+                         " finally_guard.exe"
+                         " remoting4.exe"))
+       #:parallel-tests? #f))
+    (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 "http://mono-project.org/")
+    (license license:x11)))
-- 
2.8.4


[-- Attachment #3: Type: text/plain, Size: 154 bytes --]


-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

Re: [PATCH] gnu: Add mono.

[Leo Famulari]

On Fri, Jul 15, 2016 at 09:32:43PM +0200, Jan Nieuwenhuizen wrote:
> Subject: [PATCH] gnu: Add mono.
> 
> * gnu/packages/mono.scm: New file.
> * gnu/packages/local.mk (GNU_SYSTEM_MODULES): Add it.

Thank you!

I assume this mono is working for you? I'm wondering if the problems
requiring skipped tests hide a larger problem or if it's benign.

Do you know if mono is supposed to work on all of our architectures? Or,
should we disable it on some of them?

> +              (snippet

Did you try doing these substitutions in a build phase? The origin
snippet affects what you get from `guix build --source mono`, so we tend
to reserve it for removing non-free components, so that we don't
distribute things that we don't have a right to distribute.

> +                  ;; tests fail, trying to access $HOME
> +                  (substitute* "mcs/class/Makefile"
> +                    (("^include ../build/rules.make" all)
> +                     (string-append
> +                      all
> +                      "\nrun-test-recursive:\n\t@echo skipping tests\n")))

After moving this into a build phase, there could be a prior phase
'set-env' that just sets $HOME to '/tmp'. Can you check if that works?

> +    (build-system gnu-build-system)
> +    (native-inputs
> +     `(("gettext" ,gnu-gettext)
> +       ("glib" ,glib)

I notice many uses of glib:bin rather than the full glib output. But,
to be honest, I don't understand the distinction ;)

> +     ;; these 3 tests fail
> +     `(#:make-flags
> +       `(,(string-append "PLATFORM_DISABLED_TESTS="
> +                         " appdomain-unload.exe"
> +                         " delegate2.exe"
> +                         " finally_guard.exe"
> +                         " remoting4.exe"))

4 tests?

> +       #:parallel-tests? #f))

Parallel testing is not supported? Let's add a comment.

> +    (home-page "http://mono-project.org/")

s/org/com/

Re: [PATCH] gnu: Add mono.

[Jan Nieuwenhuizen]

[-- Attachment #1: Type: text/plain, Size: 3642 bytes --]

Leo Famulari writes:

> On Fri, Jul 15, 2016 at 09:32:43PM +0200, Jan Nieuwenhuizen wrote:
>> Subject: [PATCH] gnu: Add mono.
>> 
>> * gnu/packages/mono.scm: New file.
>> * gnu/packages/local.mk (GNU_SYSTEM_MODULES): Add it.
>
> Thank you!
>
> I assume this mono is working for you? I'm wondering if the problems
> requiring skipped tests hide a larger problem or if it's benign.

It is working for me.  I am using for a quite narrow range of
non-graphical applications running formally verified code.  So on the
one hand I know that it's running and correct, on the other hand I'm
probably running/testing only a small fraction of mono.

> Do you know if mono is supposed to work on all of our architectures? Or,
> should we disable it on some of them?

I don't really know, but given that it's a re-implementation of Java, I
can only assume it's also write once, debug everywhere.

>> +              (snippet
>
> Did you try doing these substitutions in a build phase? The origin
> snippet affects what you get from `guix build --source mono`, so we tend
> to reserve it for removing non-free components, so that we don't
> distribute things that we don't have a right to distribute.

I didn't know, thanks.  I have moved these to the build phase.

>> +                  ;; tests fail, trying to access $HOME
>> +                  (substitute* "mcs/class/Makefile"
>> +                    (("^include ../build/rules.make" all)
>> +                     (string-append
>> +                      all
>> +                      "\nrun-test-recursive:\n\t@echo skipping tests\n")))
>
> After moving this into a build phase, there could be a prior phase
> 'set-env' that just sets $HOME to '/tmp'. Can you check if that works?

I added that phase and removed this toplevel disabling of
mcs/class/Makefile and went up to adding individual thee failing tests
like so

             (substitute*
              '("mcs/tools/sqlmetal/Makefile"
                "mcs/class/Microsoft.Build.Tasks/Makefile"
                "mcs/class/Microsoft.Build/Makefile"
                "mcs/class/corlib/Makefile"
                "mcs/class/System/Makefile"
                "mcs/class/System.XML/Makefile"
                "mcs/class/System.Configuration/Makefile"
                "mcs/class/System.IO.Compression/Makefile"
                "mcs/class/System.IO.Compression.FileSystem/Makefile"
                "mcs/class/System.Drawing/Makefile")
               (("^include ../../build/rules.make" all)
                (string-append
                 "NO_TEST:=true\n"
                 all
                 "\nrun-test-lib:\n\t@echo skipping test\n")))
               
and then gave up, and reverted to disabling all mcs/class tests again.

>> +    (build-system gnu-build-system)
>> +    (native-inputs
>> +     `(("gettext" ,gnu-gettext)
>> +       ("glib" ,glib)
>
> I notice many uses of glib:bin rather than the full glib output. But,
> to be honest, I don't understand the distinction ;)

glib:bin only holds the executables sometimes needed during build.  Mono
uses the glib shared library, so bin won't do.

>> +     ;; these 3 tests fail
>> +     `(#:make-flags
>> +       `(,(string-append "PLATFORM_DISABLED_TESTS="
>> +                         " appdomain-unload.exe"
>> +                         " delegate2.exe"
>> +                         " finally_guard.exe"
>> +                         " remoting4.exe"))
>
> 4 tests?

Thanks, 4.

>
>> +       #:parallel-tests? #f))
>
> Parallel testing is not supported? Let's add a comment.

Done.

>> +    (home-page "http://mono-project.org/")
>
> s/org/com/

Done.

Find a new patch attached.

Greetings,
Jan


[-- Attachment #2: 0001-gnu-Add-mono.patch --]
[-- Type: text/x-patch, Size: 5932 bytes --]

From 2aca1448350238fa795be65b71eeb59ffff2fea8 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 13 Jul 2016 14:47:55 +0200
Subject: [PATCH] gnu: Add mono.

* gnu/packages/mono.scm: New file.
* gnu/packages/local.mk (GNU_SYSTEM_MODULES): Add it.
---
 gnu/local.mk          |   1 +
 gnu/packages/mono.scm | 109 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 110 insertions(+)
 create mode 100644 gnu/packages/mono.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 3a0d5c2..dfc038f 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -236,6 +236,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/mg.scm				\
   %D%/packages/mit-krb5.scm			\
   %D%/packages/moe.scm				\
+  %D%/packages/mono.scm				\
   %D%/packages/moreutils.scm			\
   %D%/packages/mpd.scm				\
   %D%/packages/mp3.scm				\
diff --git a/gnu/packages/mono.scm b/gnu/packages/mono.scm
new file mode 100644
index 0000000..75e39af
--- /dev/null
+++ b/gnu/packages/mono.scm
@@ -0,0 +1,109 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; 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 mono)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu))
+
+(define-public mono
+  (package
+    (name "mono")
+    (version "4.4.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://download.mono-project.com/sources/mono/"
+                    name "-" version
+                    ".tar.bz2"))
+              (sha256
+               (base32
+                "0jibyvyv2jy8dq5ij0j00iq3v74r0y90dcjc3dkspcfbnn37cphn"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("gettext" ,gnu-gettext)
+       ("glib" ,glib)
+       ("libxslt" ,libxslt)
+       ("perl" ,perl)
+       ("python" ,python-2)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'set-env
+           (lambda _ ;;* (#:key inputs #:allow-other-keys)
+             ;; all tests under mcs/class fail trying to access $HOME
+             (setenv "HOME" "/tmp")))
+         (add-after 'unpack 'patch-tests
+           (lambda _  ;;* (#:key inputs #:allow-other-keys)
+             (substitute* "mono/tests/Makefile.in"
+               ;; does not build: no rule to make unhandled-exception-*
+               (("@test-unhandled-exception-2:" all)
+                (string-append all "#")))
+             (substitute* "mcs/tools/mono-symbolicate/Makefile"
+               ;; does not build: Source file `Test/StackTraceDumper.cs'
+               ;; could not be found
+               (("^check: test-local") "check:\ntest-local:")
+               (("^test-local: all") "disabled-test-local:"))
+             (substitute* "mono/unit-tests/Makefile.in"
+               ;; test fails
+               (("^test-sgen-qsort.log:")
+                "disabled-test-sgen-qsort.log:\ntest-sgen-qsort.log:"))
+             ;; tests fail, trying to access $HOME
+             (substitute* "mcs/class/Makefile"
+               (("^include ../build/rules.make" all)
+                (string-append
+                 all
+                 "\nrun-test-recursive:\n\t@echo skipping tests\n")))
+             ;; tests fail, trying to access $HOME
+             (substitute* "mcs/class/Microsoft.Build.Tasks/Makefile"
+               (("^include ../../build/rules.make" all)
+                (string-append
+                 all
+                 "\nrun-test-recursive:\n\t@echo skipping tests\n")))
+             (substitute* '("mcs/tools/mono-shlib-cop/Makefile"
+                            "mcs/tools/mdoc/Makefile")
+               (("^run-test-local:" all)
+                (string-append "#" all)))
+             (substitute* "mcs/tools/sqlmetal/Makefile"
+               (("^include ../../build/rules.make" all)
+                (string-append
+                 "NO_TEST:=true\n"
+                 all
+                 "\nrun-test-lib:\n\t@echo skipping test\n"))))))
+       ;; these 4 tests fail
+       #:make-flags `(,(string-append "PLATFORM_DISABLED_TESTS="
+                                      " appdomain-unload.exe"
+                                      " delegate2.exe"
+                                      " finally_guard.exe"
+                                      " remoting4.exe"))
+       ;; running tests in parallel fails
+       #:parallel-tests? #f))
+    (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 "http://mono-project.com/")
+    (license license:x11)))
-- 
2.8.4


[-- Attachment #3: Type: text/plain, Size: 156 bytes --]



-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

Re: [PATCH] gnu: Add mono.

[Danny Milosavljevic]

Hi,

On Wed, 27 Jul 2016 23:00:15 +0200
Jan Nieuwenhuizen <janneke@gnu.org> wrote:

> Find a new patch attached.

I tried your patch and I get:

FAIL: test-sgen-qsort
...
phase `check' failed after 474.1 seconds
builder for `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed with exit code 1
guix package: error: build failed: build of `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed

Re: [PATCH] gnu: Add mono.

[Leo Famulari]

On Fri, Jul 29, 2016 at 04:24:09PM +0200, Danny Milosavljevic wrote:
> I tried your patch and I get:
> 
> FAIL: test-sgen-qsort
> ...
> phase `check' failed after 474.1 seconds
> builder for `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed with exit code 1
> guix package: error: build failed: build of `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed

Huh, it builds for me on x86_64 with 8 GB RAM on Debian. Can you give
any details about your setup?

If you build with --keep-failed, are there any logs describing the
failure in more detail?

Re: [PATCH] gnu: Add mono.

[Danny Milosavljevic]

On Fri, 29 Jul 2016 12:21:32 -0400
Leo Famulari <leo@famulari.name> wrote:

> On Fri, Jul 29, 2016 at 04:24:09PM +0200, Danny Milosavljevic wrote:
> > I tried your patch and I get:
> > 
> > FAIL: test-sgen-qsort
> > ...
> > phase `check' failed after 474.1 seconds
> > builder for `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed with exit code 1
> > guix package: error: build failed: build of `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed  
> 
> Huh, it builds for me on x86_64 with 8 GB RAM on Debian. Can you give
> any details about your setup?
> 
> If you build with --keep-failed, are there any logs describing the
> failure in more detail?

I tried again with --keep-failed, now it succeeded O_o .

8 GB RAM GuixSD (git) on X200.

Re: [PATCH] gnu: Add mono.

[Leo Famulari]

On Sat, Jul 30, 2016 at 01:26:38AM +0200, Danny Milosavljevic wrote:
> I tried again with --keep-failed, now it succeeded O_o .
> 
> 8 GB RAM GuixSD (git) on X200.

Huh, I guess we can expect some non-deterministic failures. I will do
--rounds=10 overnight and see if I get something useful.

Re: [PATCH] gnu: Add mono.

[Leo Famulari]

On Sat, Jul 30, 2016 at 01:26:38AM +0200, Danny Milosavljevic wrote:
> On Fri, 29 Jul 2016 12:21:32 -0400
> Leo Famulari <leo@famulari.name> wrote:
> 
> > On Fri, Jul 29, 2016 at 04:24:09PM +0200, Danny Milosavljevic wrote:
> > > I tried your patch and I get:
> > > 
> > > FAIL: test-sgen-qsort
> > > ...
> > > phase `check' failed after 474.1 seconds
> > > builder for `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed with exit code 1
> > > guix package: error: build failed: build of `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed  
> > 
> > Huh, it builds for me on x86_64 with 8 GB RAM on Debian. Can you give
> > any details about your setup?
> > 
> > If you build with --keep-failed, are there any logs describing the
> > failure in more detail?
> 
> I tried again with --keep-failed, now it succeeded O_o .
> 
> 8 GB RAM GuixSD (git) on X200.

I meant to build it repeatedly overnight, I but lacked the free disk
space to do the build :/

Building again, once, I noticed the following errors, which did not
cause the build to fail:

---
74232 Operation completed successfully
74233 MCS     [net_4_x] CS8009-lib.dll
74234 MCS     [net_4_x] CSFriendAssembly-lib.dll
74235 MCS     [net_4_x] CS1703-lib.dll
74236 MCS     [net_4_x] CS1704-lib.dll
74237 MCS     [net_4_x] CS1703-lib.dll
74238 MCS     [net_4_x] CS1704-lib.dll
74239 MONO_RUNTIME='/tmp/guix-build-mono-4.4.1.0.drv-0/mono-4.4.1/runtime/mono-wrapper' MONO_PATH="./../class/lib/net_4_x::$MONO_PATH" /tmp/guix-build-mono-4.4.1.0.drv-0/mono-4.4.1/runtime/mon      o-wrapper --debug   ./../class/lib/net_4_x/compiler-tester.exe -mode:neg -files:'v4' -compiler:./../class/lib/build/mcs.exe -issues:known-issues-net_4_x -log:net_4_x.log -compiler-option      s:"-v --break-on-ice -d:NET_4_0;NET_4_5"
74240 Loading ./../class/lib/build/mcs.exe ...
74241 cs0080.cs...    KNOWN ISSUE (Wrong error reported)
74242 cs0080.cs(5,13): error CS1525: Unexpected symbol `where'
74243 
74244 cs0208-16.cs... WARNING: EXACTLY SAME ERROR HAS BEEN ISSUED MULTIPLE TIMES
74245 cs0457-2.cs...  KNOWN ISSUE (Wrong error reported)
74246 cs0457-2.cs(20,23): error CS0023: The `-' operator cannot be applied to operand of type `A'
74247 error CS5001: Program `cs0457-2.exe' does not contain a static `Main' method suitable for an entry point
74248 
74249 cs0457.cs...    KNOWN ISSUE (Wrong error reported)
74250 cs0457.cs(20,19): warning CS0414: The private field `X.o' is assigned but its value is never used
74251 error CS5001: Program `cs0457.exe' does not contain a static `Main' method suitable for an entry point
74252 
74253 cs0656-3.cs...  WARNING: EXACTLY SAME ERROR HAS BEEN ISSUED MULTIPLE TIMES
74254 cs1690-4.cs...  WARNING: EXACTLY SAME ERROR HAS BEEN ISSUED MULTIPLE TIMES
74255 cs1690-5.cs...  WARNING: EXACTLY SAME ERROR HAS BEEN ISSUED MULTIPLE TIMES
74256 cs1690-6.cs...  WARNING: EXACTLY SAME ERROR HAS BEEN ISSUED MULTIPLE TIMES
74257 Done
74258 
74259 3074 test cases passed (99.9%)
74260 3 known issue(s)
---

Anyways, if we can't reproduce the failure reliably, I don't think it
should block the package.

Re: [PATCH] gnu: Add mono.

[Leo Famulari]

On Fri, Jul 29, 2016 at 04:24:09PM +0200, Danny Milosavljevic wrote:
> Hi,
> 
> On Wed, 27 Jul 2016 23:00:15 +0200
> Jan Nieuwenhuizen <janneke@gnu.org> wrote:
> 
> > Find a new patch attached.
> 
> I tried your patch and I get:
> 
> FAIL: test-sgen-qsort
> ...
> phase `check' failed after 474.1 seconds
> builder for `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed with exit code 1
> guix package: error: build failed: build of `/gnu/store/1p5qsdgc2dxf41dfg16bza88qil931dj-mono-4.4.1.0.drv' failed

I couldn't reproduce this, so I pushed the patch as 763b3d50b62.

Thanks Jan and Danny!