Until now, 'lookup-origin' and thus 'lookup-origin-revision' in (guix swh) would sometimes return #f for these because the ".git" URLs are redirects to the non-".git" URLs. Consequently, 'guix lint -c archival' would keep saying "scheduled Software Heritage archival"; likewise, the fallback download code would fail. * gnu/packages/ada.scm, gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm, gnu/packages/android.scm, gnu/packages/animation.scm, gnu/packages/arcan.scm, gnu/packages/assembly.scm, gnu/packages/audio.scm, gnu/packages/authentication.scm, gnu/packages/avr.scm, gnu/packages/axoloti.scm, gnu/packages/backup.scm, gnu/packages/bash.scm, gnu/packages/benchmark.scm, gnu/packages/bioconductor.scm, gnu/packages/bioinformatics.scm, gnu/packages/bittorrent.scm, gnu/packages/boost.scm, gnu/packages/build-tools.scm, gnu/packages/c.scm, gnu/packages/calendar.scm, gnu/packages/cdrom.scm, gnu/packages/check.scm, gnu/packages/chemistry.scm, gnu/packages/chez.scm, gnu/packages/clojure.scm, gnu/packages/code.scm, gnu/packages/compression.scm, gnu/packages/compton.scm, gnu/packages/coq.scm, gnu/packages/cpp.scm, gnu/packages/cran.scm, gnu/packages/crypto.scm, gnu/packages/curl.scm, gnu/packages/databases.scm, gnu/packages/datastructures.scm, gnu/packages/debug.scm, gnu/packages/disk.scm, gnu/packages/distributed.scm, gnu/packages/django.scm, gnu/packages/dlang.scm, gnu/packages/dns.scm, gnu/packages/docker.scm, gnu/packages/education.scm, gnu/packages/efi.scm, gnu/packages/elixir.scm, gnu/packages/emacs-xyz.scm, gnu/packages/embedded.scm, gnu/packages/emulators.scm, gnu/packages/engineering.scm, gnu/packages/erlang.scm, gnu/packages/fabric-management.scm, gnu/packages/file-systems.scm, gnu/packages/finance.scm, gnu/packages/firmware.scm, gnu/packages/flashing-tools.scm, gnu/packages/fonts.scm, gnu/packages/fontutils.scm, gnu/packages/fpga.scm, gnu/packages/game-development.scm, gnu/packages/games.scm, gnu/packages/genealogy.scm, gnu/packages/genimage.scm, gnu/packages/geo.scm, gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/gnome-xyz.scm, gnu/packages/gnome.scm, gnu/packages/gnuzilla.scm, gnu/packages/golang.scm, gnu/packages/gpodder.scm, gnu/packages/graph.scm, gnu/packages/graphics.scm, gnu/packages/graphviz.scm, gnu/packages/groff.scm, gnu/packages/groovy.scm, gnu/packages/gtk.scm, gnu/packages/guile-xyz.scm, gnu/packages/guile.scm, gnu/packages/hardware.scm, gnu/packages/haskell-apps.scm, gnu/packages/haskell-xyz.scm, gnu/packages/hexedit.scm, gnu/packages/i2p.scm, gnu/packages/ibus.scm, gnu/packages/image-processing.scm, gnu/packages/image-viewers.scm, gnu/packages/image.scm, gnu/packages/ipfs.scm, gnu/packages/java-graphics.scm, gnu/packages/java-maths.scm, gnu/packages/java.scm, gnu/packages/javascript.scm, gnu/packages/jrnl.scm, gnu/packages/julia.scm, gnu/packages/jupyter.scm, gnu/packages/kodi.scm, gnu/packages/language.scm, gnu/packages/lego.scm, gnu/packages/less.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm, gnu/packages/lirc.scm, gnu/packages/lisp-xyz.scm, gnu/packages/llvm.scm, gnu/packages/logging.scm, gnu/packages/lolcode.scm, gnu/packages/lua.scm, gnu/packages/lxde.scm, gnu/packages/lxqt.scm, gnu/packages/machine-learning.scm, gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/maths.scm, gnu/packages/maven.scm, gnu/packages/mes.scm, gnu/packages/messaging.scm, gnu/packages/monitoring.scm, gnu/packages/mpd.scm, gnu/packages/music.scm, gnu/packages/networking.scm, gnu/packages/node-xyz.scm, gnu/packages/ocaml.scm, gnu/packages/ocr.scm, gnu/packages/onc-rpc.scm, gnu/packages/opencl.scm, gnu/packages/opencog.scm, gnu/packages/pantheon.scm, gnu/packages/password-utils.scm, gnu/packages/patchutils.scm, gnu/packages/pdf.scm, gnu/packages/perl6.scm, gnu/packages/phabricator.scm, gnu/packages/popt.scm, gnu/packages/printers.scm, gnu/packages/prolog.scm, gnu/packages/protobuf.scm, gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm, gnu/packages/python-web.scm, gnu/packages/python-xyz.scm, gnu/packages/qt.scm, gnu/packages/radio.scm, gnu/packages/rails.scm, gnu/packages/rdf.scm, gnu/packages/rednotebook.scm, gnu/packages/rpc.scm, gnu/packages/rsync.scm, gnu/packages/ruby.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/screen.scm, gnu/packages/security-token.scm, gnu/packages/selinux.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/shellutils.scm, gnu/packages/simh.scm, gnu/packages/sml.scm, gnu/packages/ssh.scm, gnu/packages/statistics.scm, gnu/packages/stenography.scm, gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/synergy.scm, gnu/packages/telephony.scm, gnu/packages/terminals.scm, gnu/packages/tex.scm, gnu/packages/texinfo.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/time.scm, gnu/packages/tmux.scm, gnu/packages/tor.scm, gnu/packages/toys.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vim.scm, gnu/packages/virtualization.scm, gnu/packages/vlang.scm, gnu/packages/vnc.scm, gnu/packages/vpn.scm, gnu/packages/web-browsers.scm, gnu/packages/web.scm, gnu/packages/wireservice.scm, gnu/packages/wm.scm, gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm, tests/lint.scm: Remove trailing ".git" from 'git-reference' URL.
		
			
				
	
	
		
			910 lines
		
	
	
	
		
			34 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			910 lines
		
	
	
	
		
			34 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
;;; GNU Guix --- Functional package management for GNU
 | 
						|
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
 | 
						|
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
						|
;;; Copyright © 2018 Nikita <nikita@n0.is>
 | 
						|
;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
 | 
						|
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
 | 
						|
;;;
 | 
						|
;;; 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 language)
 | 
						|
  #:use-module (gnu packages)
 | 
						|
  #:use-module (gnu packages glib)
 | 
						|
  #:use-module (gnu packages gtk)
 | 
						|
  #:use-module (gnu packages ocr)
 | 
						|
  #:use-module (gnu packages perl)
 | 
						|
  #:use-module (gnu packages pkg-config)
 | 
						|
  #:use-module (gnu packages python)
 | 
						|
  #:use-module (gnu packages perl-check)
 | 
						|
  #:use-module (gnu packages swig)
 | 
						|
  #:use-module (gnu packages web)
 | 
						|
  #:use-module (gnu packages xorg)
 | 
						|
  #:use-module (guix packages)
 | 
						|
  #:use-module (guix build-system gnu)
 | 
						|
  #:use-module (guix build-system perl)
 | 
						|
  #:use-module (guix build-system python)
 | 
						|
  #:use-module ((guix licenses)
 | 
						|
                #:select
 | 
						|
                (bsd-3 gpl2 gpl2+ gpl3 gpl3+ lgpl2.1 perl-license zpl2.1))
 | 
						|
  #:use-module (guix download)
 | 
						|
  #:use-module (guix git-download)
 | 
						|
  #:use-module (guix utils))
 | 
						|
 | 
						|
(define-public perl-lingua-en-findnumber
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-findnumber")
 | 
						|
    (version "1.32")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/N/NE/NEILB/"
 | 
						|
                           "Lingua-EN-FindNumber-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "015ximzdp42v824llwlg2pd77vd0d172lb4xs55q9f9zhqf6s5qx"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-lingua-en-words2nums" ,perl-lingua-en-words2nums)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-FindNumber")
 | 
						|
    (synopsis "Locate (written) numbers in English text ")
 | 
						|
    (description "This module provides a regular expression for finding
 | 
						|
numbers in English text.  It also provides functions for extracting and
 | 
						|
manipulating such numbers.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-en-inflect
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-inflect")
 | 
						|
    (version "1.903")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/D/DC/DCONWAY/"
 | 
						|
                           "Lingua-EN-Inflect-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0j8d1f1wvmgc11d71pc8xp8fv5a1nb2yfw1dgd19xhscn1klpvzw"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs `(("perl-module-build" ,perl-module-build)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-Inflect")
 | 
						|
    (synopsis "Convert singular to plural")
 | 
						|
    (description "Lingua::EN::Inflect provides plural inflections,
 | 
						|
\"a\"/\"an\" selection for English words, and manipulation of numbers as
 | 
						|
words.  Plural forms of all nouns, most verbs, and some adjectives are
 | 
						|
provided.  Where appropriate, \"classical\" variants (for example: \"brother\"
 | 
						|
-> \"brethren\", \"dogma\" -> \"dogmata\", etc.) are also provided.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-en-inflect-number
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-inflect-number")
 | 
						|
    (version "1.12")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/N/NE/NEILB/"
 | 
						|
                           "Lingua-EN-Inflect-Number-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1gxccynkaqav43ww43jp4rzkyr36x97jd03yb5f6yx0jhn1k7yv6"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-lingua-en-inflect" ,perl-lingua-en-inflect)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-Inflect-Number")
 | 
						|
    (synopsis "Force number of words to singular or plural")
 | 
						|
    (description "This module extends the functionality of Lingua::EN::Inflect
 | 
						|
with three new functions for determining plurality of a word and forcefully
 | 
						|
converting a word to singular or plural.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-en-inflect-phrase
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-inflect-phrase")
 | 
						|
    (version "0.20")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/R/RK/RKITOVER/"
 | 
						|
                           "Lingua-EN-Inflect-Phrase-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1a6y1l2pjim2242wcpgz066di4pbzfgsjjdl7vg5a5wzm48qj1am"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs
 | 
						|
     `(("perl-test-nowarnings" ,perl-test-nowarnings)))
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-lingua-en-findnumber" ,perl-lingua-en-findnumber)
 | 
						|
       ("perl-lingua-en-inflect" ,perl-lingua-en-inflect)
 | 
						|
       ("perl-lingua-en-inflect-number" ,perl-lingua-en-inflect-number)
 | 
						|
       ("perl-lingua-en-number-isordinal" ,perl-lingua-en-number-isordinal)
 | 
						|
       ("perl-lingua-en-tagger" ,perl-lingua-en-tagger)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-Inflect-Phrase")
 | 
						|
    (synopsis "Inflect short English phrases")
 | 
						|
    (description "This module attempts to pluralize or singularize short
 | 
						|
English phrases.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-en-number-isordinal
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-number-isordinal")
 | 
						|
    (version "0.05")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/R/RK/RKITOVER/"
 | 
						|
                           "Lingua-EN-Number-IsOrdinal-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1mhqjvh2ad30gjab5b3a6mbr4aysyrscp4wp42yy5x6001a6km98"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs
 | 
						|
     `(("perl-try-tiny" ,perl-try-tiny)
 | 
						|
       ("perl-test-fatal" ,perl-test-fatal)))
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-lingua-en-findnumber" ,perl-lingua-en-findnumber)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-Number-IsOrdinal")
 | 
						|
    (synopsis "Detect if English number is ordinal or cardinal")
 | 
						|
    (description "This module will tell you if a number, either in words or as
 | 
						|
digits, is a cardinal or ordinal number.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-en-tagger
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-tagger")
 | 
						|
    (version "0.30")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/A/AC/ACOBURN/"
 | 
						|
                           "Lingua-EN-Tagger-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0nrnkvsf9f0a7lp82sanmy89ms2nqq1lvjqicvsagsvzp513bl5b"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-memoize-expirelru" ,perl-memoize-expirelru)
 | 
						|
       ("perl-lingua-stem" ,perl-lingua-stem)
 | 
						|
       ("perl-html-parser" ,perl-html-parser)
 | 
						|
       ("perl-html-tagset" ,perl-html-tagset)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-Tagger")
 | 
						|
    (synopsis "Part-of-speech tagger for English natural language processing")
 | 
						|
    (description "This module is a probability based, corpus-trained tagger
 | 
						|
that assigns part-of-speech tags to English text based on a lookup dictionary
 | 
						|
and a set of probability values.  The tagger assigns appropriate tags based on
 | 
						|
conditional probabilities - it examines the preceding tag to determine the
 | 
						|
appropriate tag for the current word.  Unknown words are classified according
 | 
						|
to word morphology or can be set to be treated as nouns or other parts of
 | 
						|
speech.  The tagger also extracts as many nouns and noun phrases as it can,
 | 
						|
using a set of regular expressions.")
 | 
						|
    (license gpl3)))
 | 
						|
 | 
						|
(define-public perl-lingua-en-words2nums
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-en-words2nums")
 | 
						|
    (version "0.18")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/J/JO/JOEY/"
 | 
						|
                           "Lingua-EN-Words2Nums-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "118xx8qr1zbx30psv7ic55w65h15mc1vz6zicshfm96jgiwmcrb8"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-EN-Words2Nums")
 | 
						|
    (synopsis "Convert English text to numbers")
 | 
						|
    (description "This module converts English text into numbers.  It supports
 | 
						|
both ordinal and cardinal numbers, negative numbers, and very large numbers.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-pt-stemmer
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-pt-stemmer")
 | 
						|
    (version "0.02")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/N/NE/NEILB/"
 | 
						|
                           "Lingua-PT-Stemmer-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "17c48sfbgwd2ivlgf59sr6jdhwa3aim8750f8pyzz7xpi8gz0var"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-PT-Stemmer")
 | 
						|
    (synopsis "Portuguese language stemming")
 | 
						|
    (description "This module implements a Portuguese stemming algorithm
 | 
						|
proposed in the paper A Stemming Algorithm for the Portuguese Language by
 | 
						|
Moreira, V. and Huyck, C.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-stem
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-stem")
 | 
						|
    (version "0.84")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/S/SN/SNOWHARE/"
 | 
						|
                           "Lingua-Stem-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "12avh2mnnc7llmmshrr5bgb473fvydxnlqrqbl2815mf2dp4pxcg"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs
 | 
						|
     `(("perl-module-build" ,perl-module-build)))
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-lingua-pt-stemmer" ,perl-lingua-pt-stemmer)
 | 
						|
       ("perl-lingua-stem-fr" ,perl-lingua-stem-fr)
 | 
						|
       ("perl-lingua-stem-it" ,perl-lingua-stem-it)
 | 
						|
       ("perl-lingua-stem-ru" ,perl-lingua-stem-ru)
 | 
						|
       ("perl-lingua-stem-snowball-da" ,perl-lingua-stem-snowball-da)
 | 
						|
       ("perl-snowball-norwegian" ,perl-snowball-norwegian)
 | 
						|
       ("perl-snowball-swedish" ,perl-snowball-swedish)
 | 
						|
       ("perl-text-german" ,perl-text-german)))
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-Stem")
 | 
						|
    (synopsis "Stemming of words in various languages")
 | 
						|
    (description "This routine applies stemming algorithms to its parameters,
 | 
						|
returning the stemmed words as appropriate to the selected locale.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-stem-fr
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-stem-fr")
 | 
						|
    (version "0.02")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/S/SD/SDP/"
 | 
						|
                           "Lingua-Stem-Fr-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0vyrspwzaqjxm5mqshf4wvwa3938mkajd1918d9ii2l9m2rn8kwx"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-Stem-Fr")
 | 
						|
    (synopsis "Porter's stemming algorithm for French")
 | 
						|
    (description "This module uses a modified version of the Porter Stemming
 | 
						|
Algorithm to return a stemmed French word.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-stem-it
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-stem-it")
 | 
						|
    (version "0.02")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/A/AC/ACALPINI/"
 | 
						|
                           "Lingua-Stem-It-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1207r183s5hlh4mfwa6p46vzm0dhvrs2dnss5s41a0gyfkxp7riq"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-Stem-It")
 | 
						|
    (synopsis "Porter's stemming algorithm for Italian")
 | 
						|
    (description "This module applies the Porter Stemming Algorithm to its
 | 
						|
parameters, returning the stemmed Italian word.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-stem-ru
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-stem-ru")
 | 
						|
    (version "0.04")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/N/NE/NEILB/"
 | 
						|
                           "Lingua-Stem-Ru-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0a2jmdz7jn32qj5hyiw5kbv8fvlpmws8i00a6xcbkzb48yvwww0j"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-Stem-Ru")
 | 
						|
    (synopsis "Porter's stemming algorithm for Russian")
 | 
						|
    (description "This module applies the Porter Stemming Algorithm to its
 | 
						|
parameters, returning the stemmed Russian (KOI8-R only) word.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-lingua-stem-snowball-da
 | 
						|
  (package
 | 
						|
    (name "perl-lingua-stem-snowball-da")
 | 
						|
    (version "1.01")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/C/CI/CINE/"
 | 
						|
                           "Lingua-Stem-Snowball-Da-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0mm0m7glm1s6i9f6a78jslw6wh573208arxhq93yriqmw17bwf9f"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Lingua-Stem-Snowball-Da")
 | 
						|
    (synopsis "Porters stemming algorithm for Danish")
 | 
						|
    (description "Lingua::Stem::Snowball::Da is a perl port of the danish
 | 
						|
stemmer at http://snowball.sourceforge.net, it was originally altered from the
 | 
						|
Lingua::Stem::Snowball::Se.")
 | 
						|
    (license gpl2)))
 | 
						|
 | 
						|
(define-public perl-snowball-norwegian
 | 
						|
  (package
 | 
						|
    (name "perl-snowball-norwegian")
 | 
						|
    (version "1.2")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/A/AS/ASKSH/"
 | 
						|
                           "Snowball-Norwegian-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0675v45bbsh7vr7kpf36xs2q79g02iq1kmfw22h20xdk4rzqvkqx"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs `(("perl-module-build" ,perl-module-build)))
 | 
						|
    (home-page "https://metacpan.org/release/Snowball-Norwegian")
 | 
						|
    (synopsis "Porters stemming algorithm for Norwegian")
 | 
						|
    (description "Lingua::Stem::Snowball::No is a perl port of the norwegian
 | 
						|
stemmer at http://snowball.tartarus.org.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-snowball-swedish
 | 
						|
  (package
 | 
						|
    (name "perl-snowball-swedish")
 | 
						|
    (version "1.2")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/A/AS/ASKSH/"
 | 
						|
                           "Snowball-Swedish-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0agwc12jk5kmabnpsplw3wf4ii5w1zb159cpin44x3srb0sr5apg"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (native-inputs `(("perl-module-build" ,perl-module-build)))
 | 
						|
    (home-page "https://metacpan.org/release/Snowball-Swedish")
 | 
						|
    (synopsis "Porters stemming algorithm for Swedish")
 | 
						|
    (description "Lingua::Stem::Snowball::Se is a perl port of the swedish
 | 
						|
stemmer at http://snowball.sourceforge.net.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-string-toidentifier-en
 | 
						|
  (package
 | 
						|
    (name "perl-string-toidentifier-en")
 | 
						|
    (version "0.12")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/R/RK/RKITOVER/"
 | 
						|
                           "String-ToIdentifier-EN-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "12nw7h2yiybhdw0vnnpc7bif8ylhsn6kqf6s39dsrf9h54iq9yrs"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (propagated-inputs
 | 
						|
     `(("perl-lingua-en-inflect-phrase" ,perl-lingua-en-inflect-phrase)
 | 
						|
       ("perl-text-unidecode" ,perl-text-unidecode)
 | 
						|
       ("perl-namespace-clean" ,perl-namespace-clean)))
 | 
						|
    (home-page "https://metacpan.org/release/String-ToIdentifier-EN")
 | 
						|
    (synopsis "Convert strings to English program identifiers")
 | 
						|
    (description "This module provides a utility method, \"to_identifier\" for
 | 
						|
converting an arbitrary string into a readable representation using the ASCII
 | 
						|
subset of \"\\w\" for use as an identifier in a computer program.  The intent
 | 
						|
is to make unique identifier names from which the content of the original
 | 
						|
string can be easily inferred by a human just by reading the identifier.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define-public perl-text-german
 | 
						|
  (package
 | 
						|
    (name "perl-text-german")
 | 
						|
    (version "0.06")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "mirror://cpan/authors/id/U/UL/ULPFR/"
 | 
						|
                           "Text-German-" version ".tar.gz"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1p87pgap99lw0nv62i3ghvsi7yg90lhn8vsa3yqp75rd04clybcj"))))
 | 
						|
    (build-system perl-build-system)
 | 
						|
    (home-page "https://metacpan.org/release/Text-German")
 | 
						|
    (synopsis "German grundform reduction")
 | 
						|
    (description "This module is a rather incomplete implementation of work
 | 
						|
done by Gudrun Putze-Meier.")
 | 
						|
    (license perl-license)))
 | 
						|
 | 
						|
(define* (tegaki-release-uri proj version
 | 
						|
                             #:optional (ext "tar.gz"))
 | 
						|
  (string-append "https://github.com/tegaki/tegaki/releases/download"
 | 
						|
                 "/v" version "/" proj "-" version "." ext))
 | 
						|
 | 
						|
(define remove-pre-compiled-files
 | 
						|
  (lambda exts
 | 
						|
    "Return snippet for removing pre-compiled files matching one of the
 | 
						|
extensions in EXTS."
 | 
						|
    `(begin (for-each delete-file
 | 
						|
                      (find-files "."
 | 
						|
                                  (lambda (name _)
 | 
						|
                                    (any (cut string-suffix? <> name)
 | 
						|
                                         (map (cut string-append "." <>)
 | 
						|
                                              ',exts)))))
 | 
						|
            #t)))
 | 
						|
 | 
						|
;;; modules required for the above snippet
 | 
						|
(define remove-pre-compiled-files-modules
 | 
						|
  '((guix build utils)
 | 
						|
    (srfi srfi-1)
 | 
						|
    (srfi srfi-26)))
 | 
						|
 | 
						|
(define-public python2-tegaki-wagomu
 | 
						|
  (package
 | 
						|
    (name "python2-tegaki-wagomu")
 | 
						|
    (version "0.3.1")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri "tegaki-wagomu" version))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1pzdiq4zy1nyylaj9i6v2h4h0r05klahskzpafpp367p4rysi1x9"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "pyc"))))
 | 
						|
    (build-system python-build-system)
 | 
						|
    (arguments
 | 
						|
     `(#:python ,python-2 ; only Python 2 is supported
 | 
						|
       #:phases
 | 
						|
       (modify-phases %standard-phases
 | 
						|
         (add-after 'unpack 'fix-recognizer
 | 
						|
           (lambda* (#:key inputs #:allow-other-keys)
 | 
						|
             ;; fix missing module and function
 | 
						|
             (substitute* "tegakiwagomu.py"
 | 
						|
               (("import Results,")
 | 
						|
                "import ")
 | 
						|
               (("def _recognize")
 | 
						|
                "def recognize")
 | 
						|
               (("Results\\(candidates\\)")
 | 
						|
                "candidates"))
 | 
						|
             #t)))))
 | 
						|
    (inputs
 | 
						|
     `(("glib" ,glib)))
 | 
						|
    (native-inputs
 | 
						|
     `(("pkg-config" ,pkg-config)
 | 
						|
       ("swig" ,swig)))
 | 
						|
    (home-page "https://tegaki.github.io/")
 | 
						|
    (synopsis
 | 
						|
     "Chinese and Japanese Handwriting Recognition (Recognition engine)")
 | 
						|
    (description
 | 
						|
     "Tegaki is an ongoing project which aims to develop a free and open-source
 | 
						|
modern implementation of handwriting recognition software, specifically
 | 
						|
designed for Chinese (simplified and traditional) and Japanese, and that is
 | 
						|
suitable for both the desktop and mobile devices.")
 | 
						|
    (license gpl2+))) ; all files
 | 
						|
 | 
						|
(define-public python2-tegaki-python
 | 
						|
  (package
 | 
						|
    (inherit python2-tegaki-wagomu)
 | 
						|
    (name "python2-tegaki-python")
 | 
						|
    (version "0.3.1")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri "tegaki-python" version))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0x93k7pw9nh0ywd97pr8pm7jv3f94nw044i5k0zvzhdpsjqvak7p"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "pyc"))))
 | 
						|
    (arguments
 | 
						|
     (substitute-keyword-arguments (package-arguments python2-tegaki-wagomu)
 | 
						|
       ((#:phases _)
 | 
						|
        `(modify-phases %standard-phases
 | 
						|
           (add-after 'unpack 'pre-configure
 | 
						|
             (lambda* (#:key inputs #:allow-other-keys)
 | 
						|
               ;; Always convert string to unicode to avoid the following error
 | 
						|
               ;; when running "tegaki-build" in python2-tegaki-tools:
 | 
						|
               ;;
 | 
						|
               ;; sqlite3.ProgrammingError: You must not use 8-bit bytestrings
 | 
						|
               ;; unless you use a text_factory that can interpret 8-bit
 | 
						|
               ;; bytestrings (like text_factory = str).
 | 
						|
               ;; It is highly recommended that you instead just switch your
 | 
						|
               ;; application to Unicode strings.
 | 
						|
               (substitute* "tegaki/charcol.py"
 | 
						|
                 (("sqlite3.OptimizedUnicode")
 | 
						|
                  "lambda s: unicode(s, 'utf-8')"))
 | 
						|
               (substitute* "tegaki/engine.py"
 | 
						|
                 (("/usr(/local)?")
 | 
						|
                  (assoc-ref inputs "python2-tegaki-wagomu")))
 | 
						|
               #t))))))
 | 
						|
    ;; override inherited inputs
 | 
						|
    (inputs '())
 | 
						|
    (native-inputs '())
 | 
						|
    (propagated-inputs
 | 
						|
     `(("python2-tegaki-wagomu" ,python2-tegaki-wagomu)
 | 
						|
       ("python2-zinnia" ,python2-zinnia)))
 | 
						|
    (synopsis
 | 
						|
     "Chinese and Japanese Handwriting Recognition (Base python library)")
 | 
						|
    (license (list gpl2+ ; all files except...
 | 
						|
                   bsd-3 ; dictutils.py
 | 
						|
                   zpl2.1)))) ; minjson.py
 | 
						|
 | 
						|
(define-public python2-tegaki-pygtk
 | 
						|
  (package
 | 
						|
    (inherit python2-tegaki-wagomu)
 | 
						|
    (name "python2-tegaki-pygtk")
 | 
						|
    (version "0.3.1")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri "tegaki-pygtk" version))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1cip0azxhjdj2dg2z85cp1z3lz4qwx3w1j7z4xmcm7npapmsaqs2"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "pyc"))))
 | 
						|
    (arguments
 | 
						|
     (substitute-keyword-arguments (package-arguments python2-tegaki-wagomu)
 | 
						|
       ((#:phases _)
 | 
						|
        `(modify-phases %standard-phases
 | 
						|
           (add-after 'unpack 'fix-paths
 | 
						|
             (lambda* (#:key inputs #:allow-other-keys)
 | 
						|
               (substitute* "tegakigtk/fakekey.py"
 | 
						|
                 (("libX11.so.6" so)
 | 
						|
                  (string-append (assoc-ref inputs "libx11") "/lib/" so))
 | 
						|
                 (("libXtst.so.6" so)
 | 
						|
                  (string-append (assoc-ref inputs "libxtst") "/lib/" so)))
 | 
						|
               #t))))))
 | 
						|
    (inputs ; required for sending key strokes
 | 
						|
     `(("libx11" ,libx11)
 | 
						|
       ("libxtst" ,libxtst)))
 | 
						|
    (native-inputs '()) ; override inherited inputs
 | 
						|
    (propagated-inputs
 | 
						|
     `(("python2-pygtk" ,python2-pygtk)
 | 
						|
       ("python2-tegaki-python" ,python2-tegaki-python)))
 | 
						|
    (synopsis "Chinese and Japanese Handwriting Recognition (Base UI library)")
 | 
						|
    (license gpl2+))) ; all files
 | 
						|
 | 
						|
(define-public python2-tegaki-tools
 | 
						|
  (package
 | 
						|
    (inherit python2-tegaki-wagomu)
 | 
						|
    (name "python2-tegaki-tools")
 | 
						|
    (version "0.3.1")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri "tegaki-tools" version))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0xxv97ggh2jgldw3r7y59lv3fhz733r6l7mdn6nh4m0gvb0ja971"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "pyc"))))
 | 
						|
    (arguments
 | 
						|
     (substitute-keyword-arguments (package-arguments python2-tegaki-wagomu)
 | 
						|
       ((#:phases _) '%standard-phases)))
 | 
						|
    (inputs
 | 
						|
     `(("python2-tegaki-pygtk" ,python2-tegaki-pygtk)))
 | 
						|
    ;; override inherited inputs
 | 
						|
    (native-inputs '())
 | 
						|
    (propagated-inputs '())
 | 
						|
    (synopsis "Chinese and Japanese Handwriting Recognition (Advanced tools)")
 | 
						|
    ;; Files in gifenc/ are licensed under gpl3+ while other files are licensed
 | 
						|
    ;; under gpl2+. Therefore, the combined work is licensed under gpl3+.
 | 
						|
    (license gpl3+)))
 | 
						|
 | 
						|
(define-public python2-tegaki-recognize
 | 
						|
  (let ((commit "eceec69fe651d0733c8c8752dae569d2283d0f3c")
 | 
						|
        (revision "1"))
 | 
						|
    (package
 | 
						|
      (inherit python2-tegaki-tools)
 | 
						|
      (name "python2-tegaki-recognize")
 | 
						|
      ;; version copied from <https://github.com/tegaki/tegaki/releases>
 | 
						|
      (version (git-version "0.3.1" revision commit))
 | 
						|
      (source
 | 
						|
       (origin
 | 
						|
         ;; We use GIT-FETCH because 'tegaki-recognize.desktop.in' and
 | 
						|
         ;; 'tegaki-recognize.in' are missing in the tarball.
 | 
						|
         (method git-fetch)
 | 
						|
         (uri (git-reference
 | 
						|
               (url "https://github.com/tegaki/tegaki")
 | 
						|
               (commit commit)))
 | 
						|
         (sha256
 | 
						|
          (base32
 | 
						|
           "09mw2if9p885phbgah5f95q3fwy7s5b46qlmpxqyzfcnj6g7afr5"))
 | 
						|
         (file-name (git-file-name name version))
 | 
						|
         (modules `((guix build utils)
 | 
						|
                    (ice-9 ftw)
 | 
						|
                    (srfi srfi-26)
 | 
						|
                    ,@remove-pre-compiled-files-modules))
 | 
						|
         (snippet
 | 
						|
          `(begin
 | 
						|
             ;; remove unnecessary files with potentially different license
 | 
						|
             (for-each delete-file-recursively
 | 
						|
                       (scandir "."
 | 
						|
                                (negate (cut member <> '("tegaki-recognize"
 | 
						|
                                                         "." "..")))))
 | 
						|
             ,(remove-pre-compiled-files "pyc")
 | 
						|
             #t))))
 | 
						|
      (arguments
 | 
						|
       (substitute-keyword-arguments (package-arguments python2-tegaki-tools)
 | 
						|
         ((#:phases _)
 | 
						|
          `(modify-phases %standard-phases
 | 
						|
             (add-after 'unpack 'chdir
 | 
						|
               (lambda _
 | 
						|
                 (chdir "tegaki-recognize")
 | 
						|
                 #t))
 | 
						|
             ;; 'setup.py' script does not support one of the Python build
 | 
						|
             ;; system's default flags, "--single-version-externally-managed"
 | 
						|
             (replace 'install
 | 
						|
               (lambda* (#:key outputs #:allow-other-keys)
 | 
						|
                 (invoke "python" "setup.py" "install"
 | 
						|
                         (string-append "--prefix=" (assoc-ref outputs "out"))
 | 
						|
                         "--root=/")
 | 
						|
                 #t))))))
 | 
						|
      (synopsis "Chinese and Japanese Handwriting Recognition (Main program)")
 | 
						|
      (license gpl2+)))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-japanese
 | 
						|
  (package
 | 
						|
    (inherit python2-tegaki-wagomu)
 | 
						|
    (name "tegaki-zinnia-japanese")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1nmg9acxhcqly9gwkyb9m0hpy76fll91ywk4b1q4xms0ajxip1h7"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (arguments
 | 
						|
     `(#:tests? #f ; no tests
 | 
						|
       #:phases
 | 
						|
       (modify-phases %standard-phases
 | 
						|
         (replace 'configure
 | 
						|
           (lambda* (#:key outputs #:allow-other-keys)
 | 
						|
             (substitute* "Makefile"
 | 
						|
               (("/usr/local")
 | 
						|
                (assoc-ref outputs "out")))
 | 
						|
             #t)))))
 | 
						|
    ;; override inherited inputs
 | 
						|
    (inputs '())
 | 
						|
    (native-inputs
 | 
						|
     `(("python2-tegaki-tools" ,python2-tegaki-tools)))
 | 
						|
    (propagated-inputs '())
 | 
						|
    (native-search-paths
 | 
						|
     (list (search-path-specification
 | 
						|
            (variable "TEGAKI_MODEL_PATH")
 | 
						|
            (files '("share/tegaki/models")))))
 | 
						|
    (synopsis "Chinese and Japanese Handwriting Recognition (Model)")
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-japanese-light
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-japanese-light")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0x0fs29ylqzxd6xvg51h7rigpbisd7q8v11df425ib2j792yfyf8"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-japanese-kyoiku
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-japanese-kyoiku")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0am94bcpmbzplxdnwn9gk15sgaizvcfhmv13mk14jjvx3419cvvx"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-japanese-joyo
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-japanese-joyo")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1v0j40lzdyiz01ayws0b8r7fsdy2mr32658382kz4wyk883wzx2z"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-simplified-chinese
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-simplified-chinese")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "18wq0jccv7lpnrfnzspyc110d6pj2v1i21xcx4fmgzz1lnln3fs5"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-simplified-chinese-light
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-simplified-chinese-light")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0v24yf0w0p03lb7fyx128a75mwzad166bigvlbrzqnad789qg1sr"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-traditional-chinese
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-traditional-chinese")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "140nlp6hynrai2svs5670jjfw1za6ayflhyj2dl0bzsfgbk3447l"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-zinnia-traditional-chinese-light
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-zinnia-traditional-chinese-light")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "1m6yk6a57vs9wg5y50qciwi1ahhmklp2mgsjysbj4mnyzv6yhcr2"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-wagomu-japanese
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-wagomu-japanese")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0flj5id8xwsn7csrrzqz9prdikswnwm2wms0as2vzdpxzph1az4k"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-wagomu-japanese-kyoiku
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-wagomu-japanese-kyoiku")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0v8crfh8rdf6ndp16g52s5jlrrlwh73xp38zjn5i9dlacx8kfqg1"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-wagomu-japanese-joyo
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-wagomu-japanese-joyo")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0wk8shpr963zp328g991qs6abpnacq4242003m687z2d6yp7nph2"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public tegaki-wagomu-simplified-chinese
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-japanese)
 | 
						|
    (name "tegaki-wagomu-simplified-chinese")
 | 
						|
    (version "0.3")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (tegaki-release-uri name version "zip"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0wqprynigqxqxv128i1smh81gxvmjj056d9qpznxa3n9f5ymlbj6"))
 | 
						|
       (modules remove-pre-compiled-files-modules)
 | 
						|
       (snippet (remove-pre-compiled-files "model"))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
;;; Upstream does not provide the source for tegaki-wagomu-traditional-chinese.
 | 
						|
;;; Therefore, we use the source for tegaki-zinnia-traditional-chinese and
 | 
						|
;;; patch the Makefile accordingly.
 | 
						|
(define-public tegaki-wagomu-traditional-chinese
 | 
						|
  (package
 | 
						|
    (inherit tegaki-zinnia-traditional-chinese)
 | 
						|
    (name "tegaki-wagomu-traditional-chinese")
 | 
						|
    (arguments
 | 
						|
     (substitute-keyword-arguments
 | 
						|
         (package-arguments tegaki-zinnia-traditional-chinese)
 | 
						|
       ((#:phases phases '%standard-phases)
 | 
						|
        `(modify-phases ,phases
 | 
						|
           (replace 'configure
 | 
						|
             (lambda args
 | 
						|
               (let ((configure (assq-ref ,phases 'configure)))
 | 
						|
                 (apply configure args))
 | 
						|
               (substitute* "Makefile"
 | 
						|
                 (("zinnia") "wagomu"))
 | 
						|
               #t))))))
 | 
						|
    (license lgpl2.1))) ; all files
 | 
						|
 | 
						|
(define-public link-grammar
 | 
						|
  (package
 | 
						|
    (name "link-grammar")
 | 
						|
    (version "5.7.0")
 | 
						|
    (source (origin
 | 
						|
              (method url-fetch)
 | 
						|
              (uri (string-append "https://www.abisource.com/downloads/"
 | 
						|
                                  "link-grammar/" version
 | 
						|
                                  "/link-grammar-" version ".tar.gz"))
 | 
						|
              (sha256
 | 
						|
               (base32
 | 
						|
                "0ak1v469k56v3511kxxkxvx1nw6zcxcl0f1kcvc82ffacqbr4y96"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (home-page "https://www.abisource.com/projects/link-grammar/")
 | 
						|
    (synopsis "Link grammar parser")
 | 
						|
    (description "The Link Grammar Parser is a syntactic parser of English,
 | 
						|
Russian, Arabic and Persian (and other languages as well), based on Link
 | 
						|
Grammar, an original theory of syntax and morphology.  Given a sentence, the
 | 
						|
system assigns to it a syntactic structure, which consists of a set of
 | 
						|
labelled links connecting pairs of words.  The parser also produces a
 | 
						|
\"constituent\" (HPSG style phrase tree) representation of a sentence (showing
 | 
						|
noun phrases, verb phrases, etc.).")
 | 
						|
    (license bsd-3)))
 |