4 Commits cf79be54c7 ... 6626316c12

Author SHA1 Message Date
  Eric Bavier 6626316c12 packages: xrdp: Update to 0.9.13.1. 4 years ago
  Eric Bavier 312ca3dd06 Add Gappa. 4 years ago
  Eric Bavier c835383bc7 Add Sollya. 4 years ago
  Eric Bavier 0f28a48376 packages: Remove ufetch. 4 years ago
4 changed files with 103 additions and 65 deletions
  1. 2 1
      README.md
  2. 0 61
      bavier/packages/admin.scm
  3. 98 0
      bavier/packages/algebra.scm
  4. 3 3
      bavier/packages/rdesktop.scm

+ 2 - 1
README.md

@@ -34,13 +34,14 @@ section in [Guix's manual](http://guix.gnu.org/manual/).
 - [bic@1.0.0](https://github.com/hexagonal-sun/bic) - C interpreter and API explorer
 - [birch@0.0.1-2.27691aa](https://github.com/dylanaraps/birch.git) - Internet Relay Chat client
 - [cdrdao@1.2.4](http://cdrdao.sourceforge.net/) - Write audio/data CD-Rs in disk-at-once mode
+- [gappa@1.3.5](http://gappa.gforge.inria.fr/) - Proof generator for arithmetic properties
 - [gneuralnetwork@0.9.1](https://www.gnu.org/software/gneuralnetwork/) - Programmable neural network
 - [gpsim@0.31.0](http://gpsim.sourceforge.net/) - Software emulator for PIC microcontrollers
 - [gputils@1.5.0](https://gputils.sourceforge.io/) - Utilities for PIC microcontrollers
 - [joy-in-the-morning@1.0.0](https://notabug.org/bavier/joy-in-the-morning) - Joy programming language
 - [openspades@0.1.3-0.cb89824](http://openspades.yvt.jp/) - Voxel first-person shooter game
 - [sdcc@3.9.0](http://sdcc.sourceforge.net/) - Small Device C Compiler
+- [sollya@7.0](http://sollya.gforge.inria.fr/) - Development environment for safe floating-point code
 - [treedec@0.9.0-0.aceed46](https://github.com/freetdi/tdlib) - Library of tree decomposition algorithms
-- [ufetch@0.2-0.9831ec2](https://gitlab.com/jschx/ufetch) - Tiny system info
 - [xorgxrdp@0.2.13](http://www.xrdp.org) - Xorg drivers for xrdp
 - [xrdp@0.9.13](http://www.xrdp.org) - Remote Desktop Protocol server

+ 0 - 61
bavier/packages/admin.scm

@@ -1,61 +0,0 @@
-;;; This file is part of guix-bavier.git
-;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
-;;; License: GPLv3+
-
-(define-module (bavier packages admin)
-  #:use-module (guix packages)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system trivial)
-  #:use-module (gnu packages)
-  #:use-module (gnu packages bash)
-  #:use-module (gnu packages ncurses)
-  #:use-module ((guix licenses) #:prefix license:))
-
-(define-public ufetch
-  (let ((commit "9831ec29c6ec3b105a7a1c3573f58f4f7c414e09")
-        (revision "0"))
-    (package
-     (name "ufetch")
-     (version (git-version "0.2" revision commit))
-     (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://gitlab.com/jschx/ufetch.git")
-                    (commit commit)))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "16a4w76k9ai44688dm5nrr69hqmwl2y9kykxc43a6dvz07hyiy2l"))))
-     (build-system trivial-build-system)
-     (inputs
-      `(("bash" ,bash)
-        ("tput" ,ncurses)))
-     (arguments
-      `(#:modules ((guix build utils))
-        #:builder (begin
-                    (use-modules (guix build utils))
-                    (let* ((source (assoc-ref %build-inputs "source"))
-                           (output (assoc-ref %outputs "out"))
-                           (bindir (string-append output "/bin"))
-                           (docdir (string-append output "/share/doc/ufetch-" ,version))
-                           (tput (string-append (assoc-ref %build-inputs "tput") "/bin/tput")))
-                      (install-file (string-append source "/LICENSE") docdir)
-                      (setenv "PATH" (string-append (assoc-ref %build-inputs "bash") "/bin"))
-                      (mkdir-p bindir)
-                      (for-each (lambda (src)
-                                  (let ((dst (string-append bindir "/" (basename src))))
-                                    (copy-file src dst)
-                                    (patch-shebang dst)
-                                    (substitute* dst (("tput") tput))))
-                                (find-files source "ufetch-[[:alpha:]]*$"))
-                      ;; Note: the `ufetch` we create below will only work if
-                      ;; run under the Guix System.  I.e. a user trying to run
-                      ;; `ufetch` on a foreign distro will not get great
-                      ;; results.  The `screenfetch` program does actual
-                      ;; runtime detection of the operating system, and would
-                      ;; be a better choice in such a situation.
-                      (symlink "ufetch-guix" (string-append bindir "/ufetch"))))))
-     (home-page "https://gitlab.com/jschx/ufetch")
-     (synopsis "Tiny system info")
-     (description "This package provides a tiny system info utility.")
-     (license license:isc))))

+ 98 - 0
bavier/packages/algebra.scm

@@ -0,0 +1,98 @@
+;;; This file is part of guix-bavier.git
+;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
+;;; License: GPLv3+
+
+(define-module (bavier packages algebra)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix download)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (gnu packages algebra)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages xml))
+
+(define-public sollya
+  (package
+   (name "sollya")
+   (version "7.0")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "https://gforge.inria.fr/frs/download.php/file/"
+                                "37748/sollya-" version ".tar.bz2"))
+            (sha256
+             (base32
+              "11290ivi9h665cxi8f1shlavhy10vzb8s28m57hrcgnxyxqmhx0m"))))
+   (build-system gnu-build-system)
+   (inputs
+    `(("fplll" ,fplll)
+      ("gmp" ,gmp)
+      ("gnuplot" ,gnuplot)
+      ("libxml2" ,libxml2)
+      ("mpfi" ,mpfi)
+      ("mpfr" ,mpfr)))
+   (arguments
+    `(#:phases
+      (modify-phases %standard-phases
+        (add-after 'unpack 'patch-test-shebang
+          (lambda _
+            (substitute* (list "tests-tool/Makefile.in"
+                               "tests-lib/Makefile.in")
+             (("#!/bin/sh") (string-append "#!" (which "sh"))))
+            #t))
+        (add-before 'build 'patch-gnuplot-reference
+          (lambda _
+            (substitute* "general.c"
+             (("\"gnuplot\"") (string-append "\"" (which "gnuplot") "\"")))
+            #t)))))
+   (home-page "http://sollya.gforge.inria.fr/")
+   (synopsis "Development environment for safe floating-point code")
+   (description "Sollya is a computer program whose purpose is to
+provide an environment for safe floating-point code development.  It
+is particularly targeted to the automated implementation of
+mathematical floating-point libraries (libm).  Amongst other features,
+it offers a certified infinity norm, an automatic polynomial
+implementer, and a fast Remez algorithm.")
+   (license cecill-c)))
+
+(define-public gappa
+  (package
+   (name "gappa")
+   (version "1.3.5")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "https://gforge.inria.fr/frs/download.php/file/"
+                                "38044/gappa-" version ".tar.gz"))
+            (sha256
+             (base32
+              "0q1wdiwqj6fsbifaayb1zkp20bz8a1my81sqjsail577jmzwi07w"))))
+   (build-system gnu-build-system)
+   (inputs
+    `(("boost" ,boost)
+      ("gmp" ,gmp)
+      ("mpfr" ,mpfr)))
+   (arguments
+    `(#:phases
+      (modify-phases %standard-phases
+        (add-after 'unpack 'patch-remake-shell
+          (lambda _
+            (substitute* "remake.cpp"
+             (("/bin/sh") (which "sh")))
+            #t))
+        (replace 'build
+          (lambda _ (invoke "./remake" "-s" "-d")))
+        (replace 'install
+          (lambda _ (invoke "./remake" "-s" "-d" "install")))
+        (replace 'check
+          (lambda _ (invoke "./remake" "check"))))))
+   (home-page "http://gappa.gforge.inria.fr/")
+   (synopsis "Proof generator for arithmetic properties")
+   (description "Gappa is a tool intended to help verifying and formally
+proving properties on numerical programs dealing with floating-point or
+fixed-point arithmetic.  It has been used to write robust floating-point
+filters for CGAL and it is used to certify elementary functions in CRlibm.
+While Gappa is intended to be used directly, it can also act as a backend
+prover for the Why3 software verification platform or as an automatic tactic
+for the Coq proof assistant.")
+   (license (list gpl3+ cecill-c))))    ; either/or

+ 3 - 3
bavier/packages/rdesktop.scm

@@ -23,7 +23,7 @@
 (define-public xrdp
   (package
     (name "xrdp")
-    (version "0.9.13")
+    (version "0.9.13.1")
     (source (origin
               (method url-fetch)
               (uri (string-append "https://github.com/neutrinolabs"
@@ -31,7 +31,7 @@
                                   "/xrdp-" version ".tar.gz"))
               (sha256
                (base32
-                "1zvi08fmk18f0x6lxr4p25dmbw2lnybfwsg06b0qcyvyy4r6zzjr"))))
+                "130hhjqhd8a2xbj012ivhq0yh8ji86ciiddkj653f3069i01a2p9"))))
     (build-system gnu-build-system)
     (native-inputs
      `(("pkg-config" ,pkg-config)
@@ -65,7 +65,7 @@
              "--enable-strict-locations"
              (string-append "--sysconfdir=" %output "/etc")
              (string-append "--localstatedir=/var"))))
-    (home-page "http://www.xrdp.org")
+    (home-page "http://xrdp.org")
     (synopsis "Remote Desktop Protocol server")
     (description "@code{xrdp} provides a graphical login to remote machines
 using @acronym{RDP,Microsoft Remote Desktop Protocol}.  @code{xrdp} accepts