;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Marek Benc ;;; Copyright © 2017 Leo Famulari ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages wv) #:use-module (gnu packages) #:use-module (gnu packages compression) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages image) #:use-module (gnu packages pkg-config) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu) #:use-module ((guix licenses) #:prefix license:)) (define-public wv (package (name "wv") (version "1.2.4") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/wvware/wv/" version "/wv-" version ".tar.gz")) (sha256 (base32 "1mn2ax6qjy3pvixlnvbkn6ymy6y4l2wxrr4brjaczm121s8hjcb7")))) (build-system gnu-build-system) (inputs `(("glib" ,glib) ("libgsf" ,libgsf) ("libjpeg" ,libjpeg) ("libpng" ,libpng) ("zlib" ,zlib))) (native-inputs `(("glib" ,glib "bin") ("pkg-config" ,pkg-config))) (synopsis "Microsoft Word conversion library and utilities") (description "wv converts Word 2,6,7,8,9 files to HTML and LaTeX. The Word 2 conversion is still incomplete (no formatting), but it will do a passable job extracting the text, which is what you probably want anyway. libwv can be used as a library by third party programs, AbiWord uses it as its word importer, and KWord may use it in the future.") (home-page "http://wvware.sourceforge.net/") (license license:gpl2+))) buted 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 (test-sets) #:use-module (guix sets) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (srfi srfi-64)) (test-begin "sets") (test-assert "set-contains?" (let* ((lst (iota 123)) (set (list->set lst))) (and (every (cut set-contains? set <>) lst) (not (set-contains? set -1))))) (test-assert "set->list" (let* ((lst (iota 123)) (set (list->set lst))) (lset= = lst (set->list set)))) (test-assert "set-union" (let* ((a (list 'a)) (b (list 'b)) (s1 (setq a)) (s2 (setq b)) (s3 (set-union s1 s2))) (and (set-contains? s3 a) (set-contains? s3 b)))) (test-end)