aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/apl.scm
blob: aa47edcd645fbfa29b90e7e795b89a3cbdb5fa65 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 apl)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages maths)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages readline))

(define-public apl
  (package
    (name "apl")
    (version "1.7")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://gnu/apl/apl-" version ".tar.gz"))
      (sha256
       (base32
        "07xq8ddlmz8psvsmwr23gar108ri0lwmw0n6kpxcv8ypas1f5xlg"))))
    (build-system gnu-build-system)
    (home-page "https://www.gnu.org/software/apl/")
    (inputs
     `(("gettext" ,gettext-minimal)
       ("lapack" ,lapack)
       ("sqlite" ,sqlite)
       ("readline" ,readline)))
    (arguments
     `(#:configure-flags (list (string-append
                                "--with-sqlite3="
                                (assoc-ref %build-inputs "sqlite")))))
    (synopsis "APL interpreter")
    (description
     "GNU APL is a free interpreter for the programming language APL.  It is
an implementation of the ISO standard 13751.")
    (license gpl3+)))
"Quickly switch windows." single ((:url . "https://github.com/abo-abo/ace-window") (:keywords "window" "location"))]) (auctex . [(11 88 6) nil "Integrated environment for *TeX*" tar ((:url . "http://www.gnu.org/software/auctex/"))]))) (define auctex-readme-mock "This is the AUCTeX description.") (define* (elpa-package-info-mock name #:optional (repo "gnu")) "Simulate retrieval of 'archive-contents' file from REPO and extraction of information about package NAME. (Function 'elpa-package-info'.)" (let* ((archive elpa-mock-archive) (info (filter (lambda (p) (eq? (first p) (string->symbol name))) (cdr archive)))) (if (pair? info) (first info) #f))) (define elpa-version->string (@@ (guix import elpa) elpa-version->string)) (define package-source-url (@@ (guix import elpa) package-source-url)) (define ensure-list (@@ (guix import elpa) ensure-list)) (define package-home-page (@@ (guix import elpa) package-home-page)) (define make-elpa-package (@@ (guix import elpa) make-elpa-package)) (test-begin "elpa") (define (eval-test-with-elpa pkg) (mock ;; replace the two fetching functions ((guix import elpa) fetch-elpa-package (lambda* (name #:optional (repo "gnu")) (let ((pkg (elpa-package-info-mock name repo))) (match pkg ((name version reqs synopsis kind . rest) (let* ((name (symbol->string name)) (ver (elpa-version->string version)) (url (package-source-url kind name ver repo))) (make-elpa-package name ver (ensure-list reqs) synopsis kind (package-home-page (first rest)) auctex-readme-mock url))) (_ #f))))) (match (elpa->guix-package pkg) (('package ('name "emacs-auctex") ('version "11.88.6") ('source ('origin ('method 'url-fetch) ('uri ('string-append "http://elpa.gnu.org/packages/auctex-" 'version ".tar")) ('sha256 ('base32 (? string? hash))))) ('build-system 'emacs-build-system) ('home-page "http://www.gnu.org/software/auctex/") ('synopsis "Integrated environment for *TeX*") ('description (? string?)) ('license 'license:gpl3+)) #t) (x (pk 'fail x #f))))) (test-assert "elpa->guix-package test 1" (eval-test-with-elpa "auctex")) (test-end "elpa")