;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2016, 2017, 2018 Ludovic Courtès ;;; Copyright © 2016 Efraim Flashner ;;; ;;; 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 . (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) #:use-module (gnu packages gcc) #: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")) (patches (search-patches "wordnet-CVE-2008-2149.patch" "wordnet-CVE-2008-3908-pt1.patch" "wordnet-CVE-2008-3908-pt2.patch")))) (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 . "CFLAGS=-DUSE_INTERP_RESULT -O2") #:phases (modify-phases %standard-phases (add-before 'build 'build-libwn-PIC (lambda _ ;; GNU Dico links libWN.a in its wordnet.so plugin, so it needs ;; PIC. (invoke "make" "-C" "lib" "CFLAGS=-O2 -g -fPIC" "LDFLAGS=-fPIC"))) (add-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)))))) (outputs '("out" "tk")) ; for the Tcl/Tk GUI (inputs (list tk tcl)) (home-page "https://wordnet.princeton.edu/") (synopsis "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))) 5gnu: Add ksoloti-runtime....* gnu/packages/axoloti.scm (ksoloti-runtime): New variable. Change-Id: I248852405617f2cf1d6b7a5ac7932359836f9e22 Ricardo Wurmus 2024-04-05gnu: axoloti-runtime: Simplify with G-expression....* gnu/packages/axoloti.scm (axoloti-runtime)[arguments]: Use G-expression to simplify; remove trailing #T from build phases. Change-Id: Ic9628b58c0e2b7816af6b7b42ab1aff927b4b0da Ricardo Wurmus 2024-04-05gnu: axoloti-runtime: Simplify....* gnu/packages/axoloti.scm (axoloti-runtime)[source]: Remove BEGIN and trailing #T from snippet. Change-Id: I79d0c11e5430f56bcb07d70b285ec94116d7b509 Ricardo Wurmus 2024-01-30gnu: axoloti-patcher: Add missing headers....* gnu/packages/axoloti.scm (axoloti-patcher)[arguments]: Include generic headers in search paths. Change-Id: I2e1819966eb657ba4a7e0c823e6686de8599dd9a Ricardo Wurmus 2024-01-30gnu: axoloti-patcher: Use G-expression....* gnu/packages/axoloti.scm (axoloti-patcher)[arguments]: Use G-expression; delete 'make-git-checkout-writable phase. Change-Id: I4f9b98351f1752391211f1aed84d484184d32771 Ricardo Wurmus