;;; 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 "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)))
 custom-var-name) field3)
  ...)

* guix/records.scm (match-record-inner): Add support for the new syntax.
* tests/records.scm ("match-record, simple"): Add a simple test case for the
new syntax.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Attila Lendvai</td></tr>
<tr><td><span title='2022-12-02 00:02:12 +0100'>2022-12-02</span></td><td><a href='/guix/commit/tests/records.scm?id=7c1161dba4c8930d3a500a72ccaaaf50df73f466'>records: 'match-record' checks fields at macro-expansion time.</a><span class='msg-avail'>...<span class='msg-tooltip'>This allows 'match-record' to be more efficient (field offsets are
computed at compilation time) and to report unknown fields at
macro-expansion time.

* guix/records.scm (map-fields): New macro.
(define-record-type*)[rtd-identifier]: New procedure.
Define TYPE as a macro and use a separate identifier for the RTD.
(lookup-field, match-record-inner): New macros.
(match-record): Rewrite in terms of 'match-error-inner'.
* tests/records.scm ("match-record, simple")
("match-record, unknown field"): New tests.
* gnu/services/cuirass.scm (cuirass-shepherd-service): Rename 'log-file'
local variable to 'main-log-file'.
* gnu/services/getmail.scm (serialize-getmail-configuration-file): Move
after &lt;getmail-configuration-file&gt; definition.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-01 12:10:29 +0200'>2022-07-01</span></td><td><a href='/guix/commit/tests/records.scm?id=741895676b124a8a9a6656a54b5b58fd35d8e0f9'>tests: Add sanitizer test.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/records.scm ("define-record-type* &amp; sanitize without default
value"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>