From af5bbe630cb990daf9f29b307572f965ee9fa099 Mon Sep 17 00:00:00 2001 From: Runciter Date: Mon, 28 Oct 2024 02:19:54 +0800 Subject: Initial. A .guix-authorizations A .guix-channel A COPYING A README A whispers/packages/dict.scm A whispers/packages/doc.scm A whispers/packages/pdf.scm A whispers/packages/sh.scm A whispers/packages/whispers.scm A whispers/services/console.scm A whispers/services/dict.scm A whispers/services/finance.scm A whispers/services/gps.scm A whispers/services/proton.scm A whispers/services/ssh-agent.scm A whispers/services/ssh-tunneler.scm A whispers/services/whispers.scm A whispers/services/whispers/finance.scm A whispers/services/whispers/gps.scm A whispers/services/whispers/mail.scm A whispers/services/whispers/ssh.scm A whispers/services/whispers/vpn.scm A whispers/services/whispers/xdg.scm A whispers/tests/ssh-tunneler.scm --- whispers/packages/dict.scm | 260 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 260 insertions(+) create mode 100644 whispers/packages/dict.scm (limited to 'whispers/packages/dict.scm') diff --git a/whispers/packages/dict.scm b/whispers/packages/dict.scm new file mode 100644 index 0000000..f80f912 --- /dev/null +++ b/whispers/packages/dict.scm @@ -0,0 +1,260 @@ +;;; Whispers --- Stealth VPN and ssh tunneler +;;; Copyright © 2024 Runciter +;;; +;;; This file is part of Whispers. +;;; +;;; Whispers 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. +;;; +;;; Whispers 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 Whispers. If not, see . + +(define-module (whispers packages dict) + #:use-module (guix) + #:use-module (guix build-system gnu) + #:use-module ((guix licenses) #:select (gpl2+ + gpl3+ + cc-by-sa3.0)) + #:use-module (guix git-download) + #:use-module (guix git) + #:use-module (gnu packages autotools) + #:use-module (gnu packages gawk) + #:use-module (gnu packages bison) + #:use-module (gnu packages flex) + #:use-module (gnu packages base) + #:use-module (gnu packages compression) + #:use-module (gnu packages speech) + #:use-module (gnu packages python) + #:use-module (gnu packages perl) + #:use-module (gnu packages xml) + #:export ()) + +(define-public libmaa-1.3.2 + (package + (name "libmaa") + (version "1.3.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/dict/libmaa/" + "libmaa-" + version + "/libmaa-" + version + ".tar.gz")) + (sha256 + (base32 + "1idi4c30pi79g5qfl7rr9s17krbjbg93bi8f2qrbsdlh78ga19ar")))) + (inputs (list libtool)) + (arguments + (list #:make-flags + #~'("CFLAGS=-DHAVE_CONFIG_H -Wall -Wno-error -g -O2 $(VERCFLAGS) -I. -I${srcdir}") + #:test-target "test")) + (build-system gnu-build-system) + (synopsis "When Khepera rose up out of the watery abyss of Nu, he + created Maa as a foundation upon which to create everything else") + (description "The libmaa library provides many low-level +data structures which are helpful for writing compilers, including hash +tables, sets, lists, debugging support, and memory management. Although +libmaa was designed and implemented as a foundation for the Khepara +transformation system, the data structures are generally applicable to a +wide range of programming problems. + + The memory management routines are especially helpful for improving +the performance of memory-intensive applications.") + (home-page "https://sourceforge.net/projects/dict/") + (license gpl2+))) + +(define-public dictd-1.13.1 + (package + (name "dictd") + (version "1.13.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/dict/dictd/" + "dictd-" + version + "/dictd-" + version + ".tar.gz")) + (sha256 + (base32 + "06racmv25ihwgwf67fgj2703ik0m5i2cjzcxasa88kc92rysdwg4")))) + (inputs (list libmaa-1.3.2 zlib libtool bison flex)) + (arguments + (list #:test-target "test")) + (build-system gnu-build-system) + (synopsis "@command{dict}, @command{dictd} and @command{dictfmt} programs") + (description "The DICT Interchange Format (DICF) is a human-readable + format for the interchange of dictionary databases for the use with +DICT protocol client/server software. + +This package provides a client @command{dict} and a server program +@command{dictd} for the DICT protocol, as well as a utility +@command{dictfmt} to convert various dictionary formats into +dictionaries that can be served by @command{dictd} or @command{dicos}") + (home-page "https://sourceforge.net/projects/dict/") + (license gpl2+))) + +(define-public freedict-tools-0.6.0 + (package + (name "freedict-tools") + (version "0.6.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/freedict/tools") + (commit "3596640e6e0582cc5fb76a342e5d8e7413aa4b34"))) + (sha256 + (base32 "1raayynvn1j8x0ck8pnbbljl6zxnsyzzil7y54xz03dpj7k9w7mk")))) + (inputs (list espeak-ng + python perl + gzip + tar + libxslt + dictd-1.13.1 + perl-libxml)) + (arguments + (list #:tests? #f + #:phases + #~(modify-phases + %standard-phases + (delete 'configure) + (add-before 'build 'set-prefix-in-makefile + (lambda* (#:key inputs #:allow-other-keys) + (substitute* + "Makefile" + (("PREFIX \\?=.*") + (string-append "PREFIX = " + #$output + "\n"))) + (substitute* + "mk/dicts.mk" + (("available_platforms := src dictd slob") + "available_platforms := dictd"))))))) + (build-system gnu-build-system) + (synopsis "The FreeDict tools are used to import, export (build) and + manage FreeDict dictionaries") + (description "FreeDict is a project that offers over 140 free + dictionaries in about 45 languages, with the right to study, change and + modify them. You can use them offline on your computer or mobile phone + and export them to any format and application. + +In order to limit store size and build complexity, only the build +targets that build dictionaries in dictd format are retained when this +Guix package is installed.") + (home-page "https://freedict.org") + (license gpl2+))) + +(define-public freedict-dictionaries + (package + (name "freedict-dictionaries") + (version "914b5f7") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/freedict/fd-dictionaries") + (commit "914b5f754b695e9422bf951837b0682a077e244e"))) + (sha256 + (base32 "0a8k5rq94rl1nmz0354sx2gmyqica0yjavirh5v5wdybkfq8nv83")))) + (inputs (list espeak-ng + python perl + gzip + tar + libxslt + dictd-1.13.1 + perl-libxml + freedict-tools-0.6.0)) + (arguments + (list #:tests? #f + #:make-flags + #~(list (string-append "PREFIX=" + #$output)) + #:phases + #~(modify-phases + %standard-phases + (delete 'configure) + (add-before 'build 'set-tools-prefix-in-makefile + (lambda* (#:key inputs #:allow-other-keys) + (substitute* + "Makefile" + (("FREEDICT_TOOLS \\?= ../tools") + (string-append "export FREEDICT_TOOLS = " + #$(file-append + freedict-tools-0.6.0 + "/share/freedict"))))))))) + (build-system gnu-build-system) + (synopsis "Multilingual dictionaries of the Freedict project, + compiled to the dictd format.") + (description "FreeDict is a project that offers over 140 free + dictionaries in about 45 languages, with the right to study, change and + modify them. You can use them offline on your computer or mobile phone + and export them to any format and application. + +This Guix package only installs the output dictionnaires in dictd +format.") + (home-page "https://freedict.org") + (license gpl2+))) + +(define-public cc-cedict + (package + (name "cc-cedict") + (version "0.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.whispers-vpn.org/cc-cedict.git") + (commit "1bb276d2340eff428ff397dbd493646d880388c4"))) + (sha256 + (base32 "1d0l6g83n964af81bl96c9hbd6gacbq9a68n5d9wgifihl33z4q7")))) + (inputs (list sed + gawk + gzip + dictd-1.13.1)) + (arguments (list #:tests? #f)) + (build-system gnu-build-system) + (synopsis "CC-CEDICT is a community-maintained free Chinese-English + dictionary.") + (description "CC-CEDICT is a community-maintained free + Chinese-English dictionary. It is a continuation of the CEDICT project +started by Paul Denisowski in 1997 with the aim to provide a complete +downloadable Chinese to English dictionary with pronunciation in pinyin +for the Chinese characters. + +CC-CEDICT is licensed under a Creative Commons license CC-BY-SA. + +Published by MDBG + +License: Creative Commons Attribution-Share Alike 3.0 + +Referenced works: CEDICT - Copyright © 1997, 1998 Paul Andrew Denisowski + +CC-CEDICT can be downloaded from: +http://www.mdbg.net/chindict/chindict.php?page=cc-cedict + +Additions and corrections to the CC-CEDICT source can be sent through: +http://cc-cedict.org/editor/editor.php + +For more information about CC-CEDICT see: +http://cc-cedict.org/wiki/ + +This package converts the community maintained text file containing the +CC-CEDICT dictionary into 5 dictionaries in the DICT Interchange format, +which can be served to client programs such as 'dico' and 'dicod' by +servers implementing the DICT protocol (RFC 2229), such as 'dictd' or +'dicod'. + +While the exporter script that this package uses to create the +dictionaries is licensed under the GPL, the output dictionaries are +licensed under CC-BY-SA version 3.0.") + (home-page "http://cc-cedict.org/") + (license (list cc-by-sa3.0 gpl3+)))) -- cgit v1.2.3