Subject: [bug#34831] [PATCH 01/25] gnu: Add moarvm.

From: Efraim Flashner <[email-masked]>
Date: Tue, 19 Mar 2019 12:05:42 +0200

On Tue, Mar 12, 2019 at 10:19:50PM +0200, Efraim Flashner wrote:
> * gnu/packages/perl6.scm (moarvm): New variable.
> ---
>  gnu/local.mk           |  3 +-
>  gnu/packages/perl6.scm | 93 ++++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 95 insertions(+), 1 deletion(-)
>  create mode 100644 gnu/packages/perl6.scm
> 
> diff --git a/gnu/local.mk b/gnu/local.mk
> index af2bf87273..79b93d5966 100644
> --- a/gnu/local.mk
> +++ b/gnu/local.mk
> @@ -10,7 +10,7 @@
>  # Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <[email-masked]>
>  # Copyright © 2016 Ben Woodcroft <[email-masked]>
>  # Copyright © 2016, 2017, 2018, 2019 Alex Vong <[email-masked]>
> -# Copyright © 2016, 2017 Efraim Flashner <[email-masked]>
> +# Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <[email-masked]>
>  # Copyright © 2016, 2017 Jan Nieuwenhuizen <[email-masked]>
>  # Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <[email-masked]>
>  # Copyright © 2017, 2018 Clément Lassieur <[email-masked]>
> @@ -364,6 +364,7 @@ GNU_SYSTEM_MODULES =				\
>    %D%/packages/perl-check.scm			\
>    %D%/packages/perl-compression.scm		\
>    %D%/packages/perl-web.scm			\
> +  %D%/packages/perl6.scm			\
>    %D%/packages/photo.scm			\
>    %D%/packages/phabricator.scm 			\
>    %D%/packages/php.scm				\
> diff --git a/gnu/packages/perl6.scm b/gnu/packages/perl6.scm
> new file mode 100644
> index 0000000000..7e92c865aa
> --- /dev/null
> +++ b/gnu/packages/perl6.scm
> @@ -0,0 +1,93 @@
> +;;; GNU Guix --- Functional package management for GNU
> +;;; Copyright © 2019 Efraim Flashner <[email-masked]>
> +;;;
> +;;; 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 perl6)
> +  #:use-module ((guix licenses) #:prefix license:)
> +  #:use-module (guix download)
> +  #:use-module (guix packages)
> +  #:use-module (guix build-system perl)
> +  #:use-module (gnu packages bdw-gc)
> +  #:use-module (gnu packages libevent)
> +  #:use-module (gnu packages libffi)
> +  #:use-module (gnu packages pkg-config))
> +
> +(define-public moarvm
> +  (package
> +    (name "moarvm")
> +    (version "2018.12")

Can this be upgraded to 2019.03? I saw rakudo has a 2019.03.1 release
which might fix issues discovered previously when using 2019.03

> +    (source
> +      (origin
> +        (method url-fetch)
> +        (uri (string-append "https://moarvm.org/releases/MoarVM-"
> +                            version ".tar.gz"))
> +        (sha256
> +         (base32
> +          "0fv98712k1gk56a612388db1azjsyabsbygav1pa3z2kd6js4cz4"))
> +        (modules '((guix build utils)))
> +        (snippet
> +         '(begin
> +            ;(delete-file-recursively "3rdparty/dynasm") ; JIT
> +            (delete-file-recursively "3rdparty/dyncall")
> +            (delete-file-recursively "3rdparty/freebsd")
> +            (delete-file-recursively "3rdparty/libatomicops")
> +            (delete-file-recursively "3rdparty/libuv")
> +            ;(delete-file-recursively "3rdparty/libtommath") v1.0

Perhaps libtommath-1.0 should be packaged also and used

> +            (delete-file-recursively "3rdparty/msinttypes")
> +            #t))))
> +    (build-system perl-build-system)
> +    (arguments
> +     '(#:phases
> +       (modify-phases %standard-phases
> +         (replace 'configure
> +           (lambda* (#:key inputs outputs #:allow-other-keys)
> +             (let ((out        (assoc-ref outputs "out"))
> +                   (pkg-config (assoc-ref inputs "pkg-config")))
> +               (setenv "LDFLAGS" (string-append "-Wl,-rpath=" out "/lib"))
> +               (invoke "perl" "Configure.pl"
> +                       "--prefix" out
> +                       "--pkgconfig" (string-append pkg-config "/bin/pkg-config")
> +                       "--has-libatomic_ops"
> +                       "--has-libffi"
> +                       "--has-libuv")))))))
> +    (home-page "https://moarvm.org/")
> +    ;; These should be inputs but moar.h can't find them when building rakudo
> +    (propagated-inputs
> +     `(("libatomic-ops" ,libatomic-ops)
> +       ("libuv" ,libuv)))
> +    (inputs
> +     `(("libffi" ,libffi)))
> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (synopsis "VM for NQP And Rakudo Perl 6")
> +    (description
> +     "Short for \"Metamodel On A Runtime\", MoarVM is a modern virtual machine
> +built for the Rakudo Perl 6 compiler and the NQP Compiler Toolchain.  Highlights
> +include:
> +
> +@itemize
> +@item Great Unicode support, with strings represented at grapheme level
> +@item Dynamic analysis of running code to identify hot functions and loops, and
> +perform a range of optimizations, including type specialization and inlining
> +@item Support for threads, a range of concurrency control constructs, and
> +asynchronous sockets, timers, processes, and more
> +@item Generational, parallel, garbage collection
> +@item Support for numerous language features, including first class functions,
> +exceptions, continuations, runtime loading of code, big integers and interfacing
> +with native libraries.
> +@end itemize")
> +    (license license:artistic2.0)))
> -- 
> 2.21.0
> 

-- 
Efraim Flashner   <[email-masked]>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted