12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361 |
- ;;; GNU Guix --- Functional package management for GNU
- ;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
- ;;; Copyright © 2017, 2018, 2020 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>
- ;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
- ;;;
- ;;; 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 anthy)
- #:use-module (gnu packages autotools)
- #:use-module (gnu packages audio)
- #:use-module (gnu packages base)
- #:use-module (gnu packages docbook)
- #:use-module (gnu packages emacs)
- #:use-module (gnu packages freedesktop)
- #:use-module (gnu packages gettext)
- #:use-module (gnu packages glib)
- #:use-module (gnu packages gnome)
- #:use-module (gnu packages gtk)
- #:use-module (gnu packages ibus)
- #:use-module (gnu packages java)
- #:use-module (gnu packages linux)
- #:use-module (gnu packages llvm)
- #:use-module (gnu packages man)
- #:use-module (gnu packages ncurses)
- #:use-module (gnu packages ocr)
- #:use-module (gnu packages perl)
- #:use-module (gnu packages pkg-config)
- #:use-module (gnu packages pulseaudio)
- #:use-module (gnu packages python)
- #:use-module (gnu packages perl-check)
- #:use-module (gnu packages qt)
- #:use-module (gnu packages sqlite)
- #:use-module (gnu packages serialization)
- #:use-module (gnu packages swig)
- #:use-module (gnu packages texinfo)
- #:use-module (gnu packages web)
- #:use-module (gnu packages xml)
- #:use-module (gnu packages xdisorg)
- #:use-module (gnu packages xorg)
- #:use-module (guix packages)
- #:use-module (guix build-system cmake)
- #:use-module (guix build-system glib-or-gtk)
- #:use-module (guix build-system gnu)
- #:use-module (guix build-system perl)
- #:use-module (guix build-system python)
- #:use-module (guix build-system qt)
- #:use-module ((guix licenses) #:prefix license:)
- #:use-module (guix download)
- #:use-module (guix git-download)
- #:use-module (guix utils))
- (define-public nimf
- (package
- (name "nimf")
- (version "1.2")
- (source
- (origin
- (method git-fetch)
- (uri
- (git-reference
- (url "https://github.com/hamonikr/nimf.git")
- (commit
- (string-append "nimf-" version))))
- (file-name
- (git-file-name name version))
- (sha256
- (base32 "01qi7flmaqrn2fk03sa42r0caks9d8lsv88s0bgxahhxwk1x76gc"))))
- (build-system glib-or-gtk-build-system)
- (outputs '("out" "gtk" "qt" "doc"))
- (arguments
- `(#:imported-modules
- (,@%glib-or-gtk-build-system-modules
- (guix build cmake-build-system)
- (guix build qt-build-system)
- (guix build qt-utils))
- #:modules
- ((guix build glib-or-gtk-build-system)
- ((guix build qt-build-system)
- #:prefix qt:)
- (guix build utils))
- #:configure-flags
- (list
- "--with-im-config-data"
- "--with-imsettings-data"
- (string-append "--with-html-dir="
- (assoc-ref %outputs "doc")
- "/share/gtk-doc/html"))
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'disable-qt4
- (lambda _
- (substitute* '("configure.ac" "modules/clients/Makefile.am")
- (("\\[QtGui\\]")
- "[Qt5Gui]")
- ((" qt4")
- ""))
- #t))
- (add-after 'disable-qt4 'patch-flags
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "configure.ac"
- (("-Werror")
- "-Wno-error"))
- #t))
- (add-after 'patch-flags 'patch-docbook-xml
- (lambda* (#:key inputs #:allow-other-keys)
- (with-directory-excursion "docs"
- (substitute* "nimf-docs.xml"
- (("http://www.oasis-open.org/docbook/xml/4.3/")
- (string-append (assoc-ref inputs "docbook-xml-4.3")
- "/xml/dtd/docbook/"))))
- #t))
- (add-after 'patch-docbook-xml 'patch-paths
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (substitute* "configure.ac"
- (("/usr/share/anthy/anthy.dic")
- (search-input-file inputs "/share/anthy/anthy.dic")))
- (substitute* "configure.ac"
- (("/usr/bin:\\$GTK3_LIBDIR/libgtk-3-0")
- (string-append (assoc-ref inputs "gtk+:bin")
- "/bin:$GTK3_LIBDIR/libgtk-3-0"))
- (("/usr/bin:\\$GTK2_LIBDIR/libgtk2.0-0")
- (string-append (assoc-ref inputs "gtk+-2:bin")
- "/bin:$GTK2_LIBDIR/libgtk2.0-0")))
- (substitute* "modules/clients/gtk/Makefile.am"
- (("\\$\\(GTK3_LIBDIR\\)")
- (string-append (assoc-ref outputs "gtk")
- "/lib"))
- (("\\$\\(GTK2_LIBDIR\\)")
- (string-append (assoc-ref outputs "gtk")
- "/lib")))
- (substitute* "modules/clients/qt5/Makefile.am"
- (("\\$\\(QT5_IM_MODULE_DIR\\)")
- (string-append (assoc-ref outputs "qt")
- "/lib/qt5/plugins/inputmethods")))
- (substitute* '("bin/nimf-settings/Makefile.am"
- "data/apparmor-abstractions/Makefile.am"
- "data/Makefile.am" "data/im-config/Makefile.am"
- "data/imsettings/Makefile.am")
- (("/etc")
- (string-append (assoc-ref outputs "out")
- "/etc"))
- (("/usr/share")
- (string-append (assoc-ref outputs "out")
- "/share")))
- #t))
- (add-after 'install 'qt-wrap
- (assoc-ref qt:%standard-phases 'qt-wrap)))))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("docbook-xml-4.3" ,docbook-xml-4.3)
- ("gettext" ,gettext-minimal)
- ("gobject-introspection" ,gobject-introspection)
- ("gtk+-2:bin" ,gtk+-2 "bin")
- ("gtk+:bin" ,gtk+ "bin")
- ("gtk-doc" ,gtk-doc/stable)
- ("intltool" ,intltool)
- ("libtool" ,libtool)
- ("perl" ,perl)
- ("pkg-config" ,pkg-config)
- ("which" ,which)))
- (inputs
- `(("anthy" ,anthy)
- ("appindicator" ,libappindicator)
- ("gtk+-2" ,gtk+-2)
- ("gtk+" ,gtk+)
- ("hangul" ,libhangul)
- ("m17n-db" ,m17n-db)
- ("m17n-lib" ,m17n-lib)
- ("qtbase" ,qtbase-5)
- ("rime" ,librime)
- ("rsvg" ,librsvg)
- ("wayland" ,wayland)
- ("wayland-protocols" ,wayland-protocols)
- ("x11" ,libx11)
- ("xkbcommon" ,libxkbcommon)
- ("xklavier" ,libxklavier)))
- (propagated-inputs
- (list glib))
- (synopsis "Lightweight input method framework")
- (description "Nimf is a lightweight, fast and extensible input method
- framework. This package provides a fork of the original nimf project, that
- focuses especially on Korean input (Hangul, Hanja, ...).")
- (home-page "https://github.com/hamonikr/nimf/")
- (license license:lgpl3+)))
- (define-public hime
- (package
- (name "hime")
- (version "0.9.11")
- (source
- (origin
- (method git-fetch)
- (uri
- (git-reference
- (url "https://github.com/hime-ime/hime.git")
- (commit
- (string-append "v" version))))
- (file-name
- (git-file-name name version))
- (sha256
- (base32 "1wn0ici78x5qh6hvv50bf76ld7ds42hzzl4l5qz34hp8wyvrwakw"))))
- (build-system glib-or-gtk-build-system)
- (arguments
- `(#:tests? #f ; No target
- #:imported-modules
- (,@%glib-or-gtk-build-system-modules
- (guix build cmake-build-system)
- (guix build qt-build-system)
- (guix build qt-utils))
- #:modules
- ((guix build glib-or-gtk-build-system)
- ((guix build qt-build-system)
- #:prefix qt:)
- (guix build utils))
- #:configure-flags
- (list
- ;; FIXME
- ;; error: unknown type name ‘GtkStatusIcon’
- "--disable-system-tray")
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch-std
- (lambda _
- (substitute* "configure"
- (("gnu17")
- "gnu11")
- (("gnu++17")
- "gnu++11"))
- #t))
- (add-after 'install 'qt-wrap
- (assoc-ref qt:%standard-phases 'qt-wrap)))))
- (native-inputs
- `(("gettext" ,gettext-minimal)
- ("pkg-config" ,pkg-config)
- ("whereis" ,util-linux)))
- (inputs
- `(("anthy" ,anthy)
- ("appindicator" ,libappindicator)
- ("chewing" ,libchewing)
- ("gtk+" ,gtk+)
- ("qtbase" ,qtbase-5)
- ("xtst" ,libxtst)))
- (synopsis "HIME Input Method Editor")
- (description "Hime is an extremely easy-to-use input method framework. It
- is lightweight, stable, powerful and supports many commonly used input methods,
- including Cangjie, Zhuyin, Dayi, Ranked, Shrimp, Greek, Anthy, Korean, Latin,
- Random Cage Fighting Birds, Cool Music etc.")
- (home-page "http://hime-ime.github.io/")
- (license (list license:gpl2+ license:lgpl2.1+
- license:fdl1.2+)))) ; documentation
- (define-public libchewing
- (package
- (name "libchewing")
- (version "0.5.1")
- (source
- (origin
- (method git-fetch)
- (uri
- (git-reference
- (url "https://github.com/chewing/libchewing.git")
- (commit
- (string-append "v" version))))
- (file-name
- (git-file-name name version))
- (sha256
- (base32 "04d09w6xdd08v6laj9y4qmqsijw5i2jvshcilhh4vg6cfnfgl2my"))))
- (build-system gnu-build-system)
- (arguments
- `(;; test-easy-symbol and test-fullshape fail with multiple cores.
- #:parallel-tests? #f
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'disable-failing-tests
- (lambda _
- (substitute* "test/Makefile.am"
- ((" test-bopomofo ")
- "")
- ((" test-config ")
- "")
- ((" test-reset ")
- "")
- ((" test-symbol ")
- "")
- ((" test-keyboardless ")
- "")
- ((" test-special-symbol ")
- "")
- ((" test-keyboard ")
- "")
- ((" test-regression ")
- "")
- ((" test-userphrase ")
- ""))
- #t)))))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("perl" ,perl)
- ("pkg-config" ,pkg-config)
- ("python" ,python-wrapper)
- ("texinfo" ,texinfo)))
- (inputs
- (list ncurses sqlite))
- (synopsis "Chinese phonetic input method")
- (description "Chewing is an intelligent phonetic (Zhuyin/Bopomofo) input
- method, one of the most popular choices for Traditional Chinese users.")
- (home-page "http://chewing.im/")
- (license license:lgpl2.1+)))
- (define-public liblouis
- (package
- (name "liblouis")
- (version "3.15.0")
- (source
- (origin
- (method git-fetch)
- (uri
- (git-reference
- (url "https://github.com/liblouis/liblouis")
- (commit (string-append "v" version))))
- (file-name (git-file-name name version))
- (sha256
- (base32 "1ljy5xsy7vf2r0ix0d7bqcr6qvr6897f8madsx9zlm1mrj31n5px"))))
- (build-system gnu-build-system)
- (outputs '("out" "bin" "doc" "python"))
- (arguments
- `(#:configure-flags
- (list
- "--disable-static"
- "--enable-ucs4")
- #:phases
- (modify-phases %standard-phases
- (add-after 'install 'install-python-extension
- (lambda* (#:key outputs #:allow-other-keys)
- (with-directory-excursion "python"
- (invoke "python" "setup.py" "install"
- (string-append "--prefix="
- (assoc-ref outputs "python"))
- "--root=/")))))))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("clang-format" ,clang)
- ("help2man" ,help2man)
- ("libtool" ,libtool)
- ("libyaml" ,libyaml)
- ("makeinfo" ,texinfo)
- ("perl" ,perl)
- ("pkg-config" ,pkg-config)
- ("python" ,python-wrapper)))
- (synopsis "Braille translator and back-translator")
- (description "Liblouis is a braille translator and back-translator named in
- honor of Louis Braille. It features support for computer and literary braille,
- supports contracted and uncontracted translation for many languages and has
- support for hyphenation. New languages can easily be added through tables that
- support a rule- or dictionary based approach. Tools for testing and debugging
- tables are also included. Liblouis also supports math braille, Nemeth and
- Marburg.")
- (home-page "http://liblouis.org/")
- (license (list license:lgpl2.1+ ; library
- license:gpl3+)))) ; tools
- (define-public liblouisutdml
- (package
- (name "liblouisutdml")
- (version "2.9.0")
- (source
- (origin
- (method git-fetch)
- (uri
- (git-reference
- (url "https://github.com/liblouis/liblouisutdml")
- (commit (string-append "v" version))))
- (file-name (git-file-name name version))
- (sha256
- (base32 "0c32cfcfp0lyfd655c9ihhh3p7lhrb9q3xbll7q5dw4km86gaq6w"))))
- (build-system gnu-build-system)
- (outputs '("out" "bin" "doc"))
- (arguments
- `(#:configure-flags
- (list "--disable-static")))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("help2man" ,help2man)
- ("jdk" ,icedtea "jdk")
- ("libtool" ,libtool)
- ("makeinfo" ,texinfo)
- ("pkg-config" ,pkg-config)))
- (inputs
- (list libxml2))
- (propagated-inputs
- `(("liblouis" ,liblouis)
- ("liblouis:bin" ,liblouis "bin")))
- (synopsis "Braille transcription services")
- (description "Liblouisutdml is a library providing complete braille
- transcription services for xml, html and text documents. It translates into
- appropriate braille codes and formats according to its style sheet and the
- specifications in the document.")
- (home-page "http://liblouis.org/")
- (license (list license:lgpl3+ ; library
- license:gpl3+)))) ; tools
- (define-public libstemmer
- (package
- (name "libstemmer")
- (version "2.0.0")
- (source
- (origin
- (method url-fetch)
- (uri "https://snowballstem.org/dist/libstemmer_c.tgz")
- (sha256
- (base32 "1z2xvrjsaaypc04lwz7dg8mjm5cq1gzmn0l544pn6y2ll3r7ckh5"))))
- (build-system gnu-build-system)
- (arguments
- `(#:tests? #f ; No tests exist
- #:make-flags
- (list
- (string-append "CC=" ,(cc-for-target))
- "CFLAGS=-fPIC")
- #:phases
- (modify-phases %standard-phases
- (delete 'configure)
- (replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (out-bin (string-append out "/bin"))
- (out-include (string-append out "/include"))
- (out-lib (string-append out "/lib")))
- (install-file "stemwords" out-bin)
- (install-file "include/libstemmer.h" out-include)
- (rename-file "libstemmer.o" "libstemmer.a")
- (install-file "libstemmer.a" out-lib)
- #t))))))
- (synopsis "Stemming Library")
- (description "LibStemmer provides stemming library, supporting several
- languages.")
- (home-page "https://snowballstem.org/")
- (license license:bsd-3)))
- (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
- (list 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 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 (list 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 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
- (list 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 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
- (list perl-test-nowarnings))
- (propagated-inputs
- (list perl-lingua-en-findnumber perl-lingua-en-inflect
- perl-lingua-en-inflect-number perl-lingua-en-number-isordinal
- 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 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
- (list perl-try-tiny perl-test-fatal))
- (propagated-inputs
- (list 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 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
- (list perl-memoize-expirelru perl-lingua-stem perl-html-parser
- 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 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 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 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
- (list perl-module-build))
- (propagated-inputs
- (list perl-lingua-pt-stemmer
- perl-lingua-stem-fr
- perl-lingua-stem-it
- perl-lingua-stem-ru
- perl-lingua-stem-snowball-da
- perl-snowball-norwegian
- perl-snowball-swedish
- 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 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 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 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 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 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 (list 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 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 (list 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 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
- (list perl-lingua-en-inflect-phrase perl-text-unidecode
- 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 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 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
- (list glib))
- (native-inputs
- (list pkg-config 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 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
- (list python2-tegaki-wagomu python2-zinnia))
- (synopsis
- "Chinese and Japanese Handwriting Recognition (Base python library)")
- (license (list license:gpl2+ ; all files except...
- license:bsd-3 ; dictutils.py
- license: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)
- (search-input-file inputs
- (string-append "/lib/" so)))
- (("libXtst.so.6" so)
- (search-input-file inputs
- (string-append "/lib/" so))))))))))
- (inputs ; required for sending key strokes
- (list libx11 libxtst))
- (native-inputs '()) ; override inherited inputs
- (propagated-inputs
- (list python2-pygtk python2-tegaki-python))
- (synopsis "Chinese and Japanese Handwriting Recognition (Base UI library)")
- (license license:gpl2+)))
- (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
- (list 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 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 license:gpl2+))))
- (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
- (list 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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- (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 license:lgpl2.1)))
- ;;; 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 license:lgpl2.1)))
- (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 license:bsd-3)))
- (define-public praat
- (package
- (name "praat")
- (version "6.1.30")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/praat/praat")
- (commit (string-append "v" version))))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "1pjfifyv3wjn68l3i2dr83xm75nf2kxvfxrk9qqbmwz58p183jw4"))))
- (build-system gnu-build-system)
- (arguments
- `(#:tests? #f ; no test target
- #:phases
- (modify-phases %standard-phases
- (replace 'configure
- (lambda _
- (copy-file "makefiles/makefile.defs.linux.pulse" "makefile.defs")
- #t))
- (replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin")))
- (mkdir-p bin)
- (copy-file "praat" (string-append bin "/praat")))
- #t)))))
- (inputs
- `(("alsa-lib" ,alsa-lib)
- ("gtk" ,gtk+-2)
- ("jack" ,jack-1)
- ("publesaudio" ,pulseaudio)))
- (native-inputs
- (list pkg-config))
- (home-page "https://www.fon.hum.uva.nl/praat/")
- (synopsis "Doing phonetics by computer")
- (description "Praat is a tool to perform phonetics tasks. It can do speech
- analysis (pitch, formant, intensity, ...), speech synthesis, labelling, segmenting
- and manipulation.")
- (license license:gpl2+)))
|