|
|
@@ -0,0 +1,90 @@ |
|
|
|
;;; GNU Guix --- Functional package management for GNU |
|
|
|
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.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 wordnet) |
|
|
|
#:use-module (guix packages) |
|
|
|
#:use-module (guix build-system gnu) |
|
|
|
#:use-module (guix licenses) |
|
|
|
#:use-module (guix download) |
|
|
|
#:use-module (gnu packages tcl)) |
|
|
|
|
|
|
|
(define-public wordnet |
|
|
|
(package |
|
|
|
(name "wordnet") |
|
|
|
(version "3.0") |
|
|
|
(source (origin |
|
|
|
(method url-fetch) |
|
|
|
(uri (string-append "http://wordnetcode.princeton.edu/" |
|
|
|
version "/WordNet-" |
|
|
|
version ".tar.bz2")) |
|
|
|
(sha256 |
|
|
|
(base32 |
|
|
|
"08pgjvd2vvmqk3h641x63nxp7wqimb9r30889mkyfh2agc62sjbc")))) |
|
|
|
(build-system gnu-build-system) |
|
|
|
(arguments |
|
|
|
`(#:configure-flags (list (string-append "--with-tcl=" |
|
|
|
(assoc-ref %build-inputs "tcl") |
|
|
|
"/lib") |
|
|
|
(string-append "--with-tk=" |
|
|
|
(assoc-ref %build-inputs "tk") |
|
|
|
"/lib") |
|
|
|
|
|
|
|
;; Provide the `result' field in `Tcl_Interp'. |
|
|
|
;; See <https://bugs.gentoo.org/show_bug.cgi?id=452034>. |
|
|
|
"CFLAGS=-DUSE_INTERP_RESULT") |
|
|
|
#:phases (alist-cons-after |
|
|
|
'install 'post-install |
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys) |
|
|
|
(let ((out (assoc-ref outputs "out")) |
|
|
|
(bin (assoc-ref outputs "tk")) |
|
|
|
(tk (assoc-ref inputs "tk")) |
|
|
|
(tkv ,(let ((v (package-version tk))) |
|
|
|
(string-take v (string-index-right v #\.))))) |
|
|
|
;; Move `wishwn' and `wnb' to BIN. |
|
|
|
(for-each (lambda (prog) |
|
|
|
(let ((orig (string-append out "/bin/" prog)) |
|
|
|
(dst (string-append bin "/bin/" prog)) |
|
|
|
(dir (string-append tk "/lib/tk" tkv))) |
|
|
|
(mkdir-p (dirname dst)) |
|
|
|
(copy-file orig dst) |
|
|
|
(delete-file orig) |
|
|
|
(wrap-program dst |
|
|
|
`("TK_LIBRARY" "" = (,dir)) |
|
|
|
`("PATH" ":" prefix |
|
|
|
(,(string-append out |
|
|
|
"/bin")))))) |
|
|
|
'("wishwn" "wnb")) |
|
|
|
#t)) |
|
|
|
%standard-phases))) |
|
|
|
(outputs '("out" |
|
|
|
"tk")) ; for the Tcl/Tk GUI |
|
|
|
(inputs `(("tk" ,tk) |
|
|
|
("tcl" ,tcl))) |
|
|
|
(home-page "http://wordnet.princeton.edu/") |
|
|
|
(synopsis |
|
|
|
"WordNet, a lexical database for the English language") |
|
|
|
(description |
|
|
|
"WordNet® is a large lexical database of English. Nouns, verbs, |
|
|
|
adjectives and adverbs are grouped into sets of cognitive synonyms |
|
|
|
(synsets), each expressing a distinct concept. Synsets are interlinked by |
|
|
|
means of conceptual-semantic and lexical relations. The resulting network of |
|
|
|
meaningfully related words and concepts can be navigated with the browser. |
|
|
|
WordNet is also freely and publicly available for download. WordNet's |
|
|
|
structure makes it a useful tool for computational linguistics and natural |
|
|
|
language processing.") |
|
|
|
(license x11))) |