From 2396e90056706ef897acab3aaa081289c7336483 Mon Sep 17 00:00:00 2001

From: LEPILLER Julien <julien.lepiller@irisa.fr>

Date: Fri, 19 Apr 2019 11:48:39 +0200

Subject: [PATCH] Allow variable parameters

---

 src/param.cpp | 6 +++++-

 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/param.cpp b/src/param.cpp

index 65328a2..006b1b5 100644

--- a/src/param.cpp

+++ b/src/param.cpp

@@ -79,8 +79,12 @@ bool Param::load(const char *filename) {

     size_t s1, s2;

     for (s1 = pos+1; s1 < line.size() && isspace(line[s1]); s1++);

     for (s2 = pos-1; static_cast<long>(s2) >= 0 && isspace(line[s2]); s2--);

-    const std::string value = line.substr(s1, line.size() - s1);

+    std::string value = line.substr(s1, line.size() - s1);

     const std::string key   = line.substr(0, s2 + 1);

+

+    if(value.find('$') == 0) {

+        value = std::getenv(value.substr(1).c_str());

+    }

     set<std::string>(key.c_str(), value, false);

   }

-- 

2.20.1

(define-public mecab

  (package

    (name "mecab")

    (version "0.996")

    (source (origin

              (method url-fetch)

              (uri "https://drive.google.com/uc?export=download&id=0B4y35FiV1wh7cENtOXlicTFaRUE")

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "0ncwlqxl1hdn1x4v4kr2sn1sbbcgnhdphp0lcvk74nqkhdbk4wz0"))

              (patches

                (search-patches

                  "mecab-variable-param.patch"))))

    (build-system gnu-build-system)

    (search-paths

      (list (search-path-specification

              (variable "MECAB_DICDIR")

              (separator #f)

              (files '("lib/mecab/dic")))))

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (add-before 'build 'add-mecab-dicdir-variable

           (lambda _

             (substitute* "mecabrc.in"

               (("dicdir = .*")

                "dicdir = $MECAB_DICDIR"))

             (substitute* "mecab-config.in"

               (("echo @libdir@/mecab/dic")

                "if [ -z \"$MECAB_DICDIR\" ]; then

  echo @libdir@/mecab/dic

else

  echo \"$MECAB_DICDIR\"

fi"))

             #t)))))

    (inputs

     `(("libiconv" ,libiconv)))

    (home-page "https://taku910.github.io/mecab")

    (synopsis "Morphological analysis engine for texts")

    (description "Mecab is a morphological analysis engine developped as a

collaboration between the Kyoto university and Nippon Telegraph and Telephone

Corporation.  The engine is independent of any language, dictionary or corpus.

")

    (license (list license:gpl2+ license:lgpl2.1+ license:bsd-3))))

(define-public mecab-ipadic

  (package

    (name "mecab-ipadic")

    (version "2.7.0")

    (source (origin

              (method url-fetch)

              (uri "https://drive.google.com/uc?export=download&id=0B4y35FiV1wh7MWVlSDBCSXZMTXM")

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "08rmkvj0f0x6jq0axrjw2y5nam0mavv6x77dp9v4al0wi1ym4bxn"))))

    (build-system gnu-build-system)

    (arguments

     `(#:configure-flags

       (list (string-append "--with-dicdir=" (assoc-ref %outputs "out")

                            "/lib/mecab/dic")

             "--with-charset=utf8")

       #:phases

       (modify-phases %standard-phases

         (add-before 'configure 'set-mecab-dir

           (lambda* (#:key outputs #:allow-other-keys)

             (setenv "MECAB_DICDIR" (string-append (assoc-ref outputs "out")

                                                   "/lib/mecab/dic"))

             #t)))))

    (native-inputs

     `(("mecab" ,mecab))); for mecab-config

    (home-page "")

    (synopsis "")

    (description "")

    (license (license:non-copyleft "COPYING"))))

(define-public ruby-trollop

  (package

    (name "ruby-trollop")

    (version "2.9.9")

    (source

      (origin

        (method url-fetch)

        (uri (rubygems-uri "trollop" version))

        (sha256

          (base32

            "074h7lns72kg1dl5gvz5apl3xz1i0axbnbc01pf2kbw4q0lkpnp4"))))

    (build-system ruby-build-system)

    (arguments

     `(#:tests? #f))

    (synopsis

      "Trollop is a commandline option parser for Ruby that just gets out of your way.")

    (description

      "Trollop is a commandline option parser for Ruby that just gets out of your way.")

    (home-page "")

    (license license:expat)))

(define-public ruby-htmlentities

  (package

    (name "ruby-htmlentities")

    (version "4.3.4")

    (source

      (origin

        (method url-fetch)

        (uri (rubygems-uri "htmlentities" version))

        (sha256

          (base32

            "1nkklqsn8ir8wizzlakncfv42i32wc0w9hxp00hvdlgjr7376nhj"))))

    (build-system ruby-build-system)

    (arguments

     `(#:tests? #f))

    (synopsis

      "A module for encoding and decoding (X)HTML entities.")

    (description

      "This package provides a module for encoding and decoding (X)HTML entities.")

    (home-page

      "https://github.com/threedaymonk/htmlentities")

    (license license:expat)))

(define-public ruby-wp2txt

  (package

    (name "ruby-wp2txt")

    (version "0.9.1")

    (source

      (origin

        (method url-fetch)

        (uri (rubygems-uri "wp2txt" version))

        (sha256

          (base32

            "01l0r83ma3fp9zb94km4lqasvxpml2azd4dj36qzpm71c2pyhng4"))))

    (build-system ruby-build-system)

    (arguments

     `(#:tests? #f))

    (propagated-inputs

      `(("ruby-htmlentities" ,ruby-htmlentities)

        ("ruby-nokogiri" ,ruby-nokogiri)

        ("ruby-parallel" ,ruby-parallel)

        ("ruby-trollop" ,ruby-trollop)))

    (synopsis

      "WP2TXT extracts plain text data from Wikipedia dump file (encoded in XML/compressed with Bzip2) stripping all the MediaWiki markups and other metadata.")

    (description

      "WP2TXT extracts plain text data from Wikipedia dump file (encoded in XML/compressed with Bzip2) stripping all the MediaWiki markups and other metadata.")

    (home-page "http://github.com/yohasebe/wp2txt")

    (license #f)))