Commit | Line | Data |
---|---|---|
f3463caf NK |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> | |
d70a4a5e | 3 | ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org> |
f98ca152 | 4 | ;;; Copyright © 2017, 2019 Efraim Flashner <efraim@flashner.co.il> |
94b19055 | 5 | ;;; Copyright © 2022 Paul A. Patience <paul@apatience.com> |
f3463caf NK |
6 | ;;; |
7 | ;;; This file is part of GNU Guix. | |
8 | ;;; | |
9 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
10 | ;;; under the terms of the GNU General Public License as published by | |
11 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
12 | ;;; your option) any later version. | |
13 | ;;; | |
14 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
15 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 | ;;; GNU General Public License for more details. | |
18 | ;;; | |
19 | ;;; You should have received a copy of the GNU General Public License | |
20 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
21 | ||
22 | (define-module (gnu packages apl) | |
94b19055 PP |
23 | #:use-module ((guix licenses) #:prefix license:) |
24 | #:use-module (guix git-download) | |
25 | #:use-module (guix svn-download) | |
67b10f18 | 26 | #:use-module (guix gexp) |
f3463caf | 27 | #:use-module (guix packages) |
f3463caf | 28 | #:use-module (guix build-system gnu) |
d321bf4c | 29 | #:use-module (gnu packages gettext) |
f3463caf | 30 | #:use-module (gnu packages maths) |
a220a689 | 31 | #:use-module (gnu packages pcre) |
cd0322a3 RW |
32 | #:use-module (gnu packages readline) |
33 | #:use-module (gnu packages sqlite)) | |
f3463caf NK |
34 | |
35 | (define-public apl | |
94b19055 PP |
36 | (let ((revision 1550)) |
37 | (package | |
38 | (name "apl") | |
39 | (version (string-append "1.8-r" (number->string revision))) | |
40 | (source | |
41 | (origin | |
42 | (method svn-fetch) | |
43 | (uri (svn-reference | |
44 | (url "svn://svn.savannah.gnu.org/apl/trunk") | |
45 | (revision revision))) | |
46 | (file-name (git-file-name name version)) | |
47 | (sha256 | |
48 | (base32 "1bgc3a09f35zrqq2irhm1hspppnxjqas0fmcw14hkc7910br9ip3")))) | |
49 | (build-system gnu-build-system) | |
50 | (home-page "https://www.gnu.org/software/apl/") | |
51 | (inputs | |
fe6ba5e9 PP |
52 | (list gettext-minimal |
53 | lapack | |
54 | pcre2 | |
55 | readline | |
56 | sqlite)) | |
94b19055 | 57 | (arguments |
67b10f18 PP |
58 | (list #:configure-flags #~(list (string-append |
59 | "--with-sqlite3=" | |
60 | #$(this-package-input "sqlite"))) | |
61 | #:phases | |
62 | #~(modify-phases %standard-phases | |
63 | (add-before 'configure 'fix-configure | |
64 | (lambda _ | |
65 | (substitute* "buildtag.sh" | |
66 | ;; Don't exit on failed SVN-related calls. | |
67 | (("^ +return 0\n") "") | |
68 | ;; Manually set the SVN revision, since the directory is | |
69 | ;; unversioned and we know it anyway. | |
70 | (("^SVNINFO=.*") | |
71 | (string-append "SVNINFO=" #$(number->string revision) "\n")) | |
72 | ;; Requires running ‘svn info’ on a versioned directory. | |
73 | (("\\\\\"\\$ARCHIVE_SVNINFO\\\\\"") "\\\"\\\""))))))) | |
94b19055 PP |
74 | (synopsis "APL interpreter") |
75 | (description | |
76 | "GNU APL is a free interpreter for the programming language APL. It is | |
f3463caf | 77 | an implementation of the ISO standard 13751.") |
94b19055 | 78 | (license license:gpl3+)))) |