[PATCH] gnu: Add giac-xcas

[Nicolas Goaziou]

Hello,

I'd like to submit the following package.

Feedback welcome.

Regards,

-- 
Nicolas Goaziou                                                0x80A93738

>From fd59ecad1cae741433c4a9f291a7c2a8ea277387 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <address@hidden>
Date: Thu, 7 Apr 2016 14:43:15 +0200
Subject: [PATCH] gnu: Add giac-xcas

* gnu/packages/algebra.scm (giac-xcas): New variable.
---
 gnu/packages/algebra.scm | 63 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)

diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm
index bbb708f..8cd0228 100644
--- a/gnu/packages/algebra.scm
+++ b/gnu/packages/algebra.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2012, 2013, 2014, 2015, 2016 Andreas Enge <address@hidden>
 ;;; Copyright © 2013, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2016 Nicolas Goaziou <address@hidden>
 ;;; Copyright © 2014 Mark H Weaver <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -23,7 +24,10 @@
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages doxygen)
+  #:use-module (gnu packages fltk)
+  #:use-module (gnu packages gl)
   #:use-module (gnu packages graphviz)
+  #:use-module (gnu packages image)
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages maths)
   #:use-module (gnu packages mpi)
@@ -31,6 +35,7 @@
   #:use-module (gnu packages readline)
   #:use-module (gnu packages flex)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages tcsh)
   #:use-module (gnu packages texlive)
   #:use-module (gnu packages xorg)
   #:use-module ((guix licenses) #:prefix license:)
@@ -158,6 +163,64 @@ PARI is also available as a C library to allow for faster 
computations.")
    (license license:gpl2+)
    (home-page "http://pari.math.u-bordeaux.fr/";)))
 
+(define-public giac-xcas
+  (package
+    (name "giac-xcas")
+    (version "1.2.2-37")
+    (source (origin
+              (method url-fetch)
+              ;; We don't use "~parisse/giac" because the maintainer regularly
+              ;; overrides the release tarball there, introducing a checksum
+              ;; mismatch every time. See
+              ;; 
<https://www-fourier.ujf-grenoble.fr/~parisse/debian/dists/stable/main/source/README>
+              (uri (string-append "https://www-fourier.ujf-grenoble.fr/\
+~parisse/debian/dists/stable/main/source/giac_"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "0cagh9nnaz7ks299b2bs3lrdclv4xbyis24zc8vf3i25p470bxsf"))
+              ;; Disable failing test. Actually, the results are correct but
+              ;; a sorting discrepancy prevents the test from being validated.
+              (modules '((guix build utils)))
+              (snippet
+               '(substitute* "check/Makefile.in"
+                  (("chk_fhan16") "")))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         ;; Some Make files contain hard-coded "/bin/cp".
+         (add-after 'unpack 'patch-bin-cp
+           (lambda _
+             (substitute* (find-files "doc" "^Makefile")
+               (("/bin/cp") (which "cp")))
+             #t)))))
+    ;; FIXME: Add "libao" and "libmpfi" when available.
+    (inputs `(("fltk" ,fltk)
+              ("gmp" ,gmp)
+              ("gsl" ,gsl)
+              ("lapack" ,lapack)
+              ("libjpeg" ,libjpeg)
+              ("libpng" ,libpng)
+              ("libx11" ,libx11)
+              ("libxft" ,libxft)
+              ("libxt" ,libxt)
+              ("mesa" ,mesa)
+              ("mpfr" ,mpfr)
+              ("ntl" ,ntl)
+              ("perl" ,perl)
+              ("pari-gp" ,pari-gp)
+              ("tcsh" ,tcsh)
+              ("texlive" ,texlive-minimal)))
+    (native-inputs `(("readline" ,readline)))
+    (home-page "https://www-fourier.ujf-grenoble.fr/~parisse/giac.html";)
+    (synopsis "Computer algebra system")
+    (description
+     "Giac/Xcas is a computer algebra system.  It has a compatibility
+mode for maple, mupad and the TI89.  It is available as a standalone
+program (graphic or text interfaces) or as a C++ library.")
+    (license license:gpl3+)))
+
 (define-public gp2c
   (package
    (name "gp2c")
-- 
2.8.0