diff options
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/wordnet.scm | 90 |
1 files changed, 90 insertions, 0 deletions
diff --git a/gnu/packages/wordnet.scm b/gnu/packages/wordnet.scm new file mode 100644 index 0000000000..cb385d4017 --- /dev/null +++ b/gnu/packages/wordnet.scm @@ -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))) |