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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;;
;;; 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 gprolog)
#:use-module (guix licenses)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu))
(define-public gprolog
(package
(name "gprolog")
(version "1.4.2")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.gprolog.org/gprolog-"
version ".tar.gz"))
(sha256
(base32
"0y25c2gwz41i6g28qyfjklrmanzgk0c8cr4jn2s7s8qgd9dnm1fm"))))
(build-system gnu-build-system)
(arguments `(#:phases (alist-cons-before
'configure 'fix-sh
(lambda _
(substitute* "./src/configure"
(("-/bin/sh")
(string-append "-" (which "sh"))))
(substitute* "./src/configure"
(("= /bin/sh")
(string-append "= " (which "sh")))))
(alist-replace
'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(zero? (system
(string-append "cd src && ./configure "
"--prefix=" out)))))
(alist-replace
'build
(lambda _
(zero? (system "cd src && make")))
(alist-replace
'check
(lambda _
(zero? (system "cd src && make check")))
(alist-replace
'install
(lambda _
(zero? (system "cd src && make install")))
%standard-phases)))))))
(home-page
"http://www.gnu.org/software/gprolog/")
(synopsis
"GNU Prolog, a free Prolog compiler with constraint solving over
finite domains")
(description
"GNU Prolog is a free Prolog compiler with constraint solving over
finite domains developed by Daniel Diaz.
GNU Prolog accepts Prolog+constraint programs and produces native
binaries (like gcc does from a C source). The obtained executable is
then stand-alone. The size of this executable can be quite small since
GNU Prolog can avoid to link the code of most unused built-in
predicates. The performances of GNU Prolog are very
encouraging (comparable to commercial systems).
Beside the native-code compilation, GNU Prolog offers a classical
interactive interpreter (top-level) with a debugger.
The Prolog part conforms to the ISO standard for Prolog with many
extensions very useful in practice (e.g., global variables, OS
interface, sockets).
GNU Prolog also includes an efficient constraint solver over Finite
Domains (FD). This opens contraint logic programming to the user
combining the power of constraint programming to the declarativity of
logic programming.")
(license '(gpl2+ lgpl3+))))
|