;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.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 sml)
  #:use-module (gnu packages lesstif)
  #:use-module (gnu packages libffi)
  #:use-module (gnu packages multiprecision)
  #:use-module (gnu packages xorg)
  #:use-module (guix build-system gnu)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages))

(define-public polyml
  (package
    (name "polyml")
    (version "5.7.1")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/polyml/polyml.git")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0j0wv3ijfrjkfngy7dswm4k1dchk3jak9chl5735dl8yrl8mq755"))))
    (build-system gnu-build-system)
    (inputs
     `(("gmp" ,gmp)
       ("lesstif" ,lesstif)
       ("libffi" ,libffi)
       ("libx11" ,libx11)
       ("libxt" ,libxt)))
    (arguments
     '(#:configure-flags
       (list "--with-system-libffi=yes"
             "--with-x=yes"
             "--with-threads=yes"
             "--with-gmp=yes")
       #:phases
       (modify-phases %standard-phases
         (add-after 'build 'build-compiler
           (lambda* (#:key make-flags parallel-build? #:allow-other-keys)
             (define flags
               (if parallel-build?
                   (cons (format #f "-j~d" (parallel-job-count))
                         make-flags)
                   make-flags))
             (apply system* "make" (append flags (list "compiler"))))))))
    (home-page "http://www.polyml.org/")
    (synopsis "Standard ML implementation")
    (description "Poly/ML is a Standard ML implementation.  It is fully
compatible with the ML97 standard.  It includes a thread library, a foreign
function interface, and a symbolic debugger.")
    ;; Some source files specify 'or any later version'; some don't
    (license
     (list license:lgpl2.1
           license:lgpl2.1+))))
<span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/linux-container.scm (%nscd-container-caches): New variable.
(containerized-operating-system): Instantiate nscd-service with smaller caches
and add it to the generated operating-system, replacing any nscd-service
specified by the caller.
* gnu/system/file-systems.scm: (%network-file-mappings): Remove "/var/run/nscd".

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Jason Conroy</td></tr>
<tr><td><span title='2020-08-03 17:44:38 +0200'>2020-08-03</span></td><td><a href='/guix/commit/gnu/system/file-systems.scm?id=86c926d7f2dd4906d51dbcd7d39474116768a68d'>file-systems: Leave room for extension in serialized specs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/file-systems.scm (spec-&gt;file-system): Ignore extra fields.
(file-system-&gt;spec): Add comment.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-31 13:43:36 +0200'>2020-07-31</span></td><td><a href='/guix/commit/gnu/system/file-systems.scm?id=f94835a917cf78675eb597fecd222b6c6d1fb1ae'>file-system: Add efivarfs support.</a><span class='msg-avail'>...<span class='msg-tooltip'>Tools such as efibootmgr rely on the deprecated /sys/firmware/efi/vars API as
well as on the new /sys/firmware/efi/efivars API. The latter needs to be
mounted.

Reported by Keyhenge here:
https://lists.gnu.org/archive/html/bug-guix/2020-04/msg00274.html

Here is the efivarfs documentation:
https://www.kernel.org/doc/Documentation/filesystems/efivarfs.txt.

* gnu/system/file-systems.scm (%efivars-file-system): New exported variable,
(%base-file-systems): add it.
* gnu/system/install.scm (%efivars-file-system): Add it.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-07-31 13:43:20 +0200'>2020-07-31</span></td><td><a href='/guix/commit/gnu/system/file-systems.scm?id=7c27bd115b14afd142da7684cc349369965f9eab'>file-system: Add mount-may-fail? option.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/file-systems.scm (&lt;file-system&gt;): Add a mount-may-fail? field.
(file-system-&gt;spec): adapt accordingly,
(spec-&gt;file-system): ditto.
* gnu/build/file-systems.scm (mount-file-system): If 'system-error is raised
and mount-may-fail? is true, ignore it. Otherwise, re-raise the exception.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-07-31 12:58:16 +0200'>2020-07-31</span></td><td><a href='/guix/commit/gnu/system/file-systems.scm?id=6bb07e91e1ab9367f636a3a5e9d52a9e0772aa89'>file-systems: Add %debug-file-system.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/file-systems.scm (%debug-file-system): New variable,
(%base-file-systems): add it.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-07-25 19:11:36 +0200'>2020-07-25</span></td><td><a href='/guix/commit/gnu/system/file-systems.scm?id=7a0bf3d5337d2662b0e4cdb8c9f8b5162c401d23'>file-systems: Convey hint via '&amp;fix-hint'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/file-systems.scm (btrfs-store-subvolume-file-name): Use
'&amp;fix-hint' for the hint.
</span></span></td><td>Ludovic Courtès</td></tr>