cpp: Add cpp-docopt.

* guix-science/packages/cpp.scm (cpp-docopt): New variable.

2 files changed, 93 insertions, 0 deletions

diff --git a/guix-science/packages/cpp.scm b/guix-science/packages/cpp.scm
index 03be237..3e9481d 100644
--- a/guix-science/packages/cpp.scm
+++ b/guix-science/packages/cpp.scm
@@ -10,6 +10,7 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix-science packages algebra)
   #:use-module (guix-science packages serialization)
+  #:use-module (gnu packages)
   #:use-module (gnu packages algebra)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages benchmark)
@@ -56,6 +57,45 @@
 argument handling library for C++11/14/17 contained in a single header file.")
       (license license:expat))))
 
+(define-public cpp-docopt
+  (package
+    (name "cpp-docopt")
+    (version "0.6.3")
+    (home-page "https://github.com/docopt/docopt.cpp")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url home-page)
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0cz3vv7g5snfbsqcf3q8bmd6kv5qp84gj3avwkn4vl00krw13bl7"))
+       (patches
+        (search-patches "patches/cpp-docopt-python3-support-for-tests.patch"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list #:configure-flags
+           #~(list "-DWITH_TESTS=ON")
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (invoke "./run_tests")))))))
+    (native-inputs
+     (list python))
+    (synopsis "C++11 port of docopt, a Python command-line interface library")
+    (description
+     "cpp-docopt helps you:
+@itemize
+@item define the interface for your command-line app, and
+@item automatically generate a parser for it.
+@end itemize
+cpp-docopt is based on conventions that have been used for decades in help messages
+and man pages for describing a program's interface.")
+    (license (list license:expat license:boost1.0))))
+
 (define-public cpp-member-accessor
   (package
     (name "cpp-member-accessor")
diff --git a/patches/cpp-docopt-python3-support-for-tests.patch b/patches/cpp-docopt-python3-support-for-tests.patch
new file mode 100644
index 0000000..614d6d0
--- /dev/null
+++ b/patches/cpp-docopt-python3-support-for-tests.patch
@@ -0,0 +1,53 @@
+From 400e6dd8e59196c914dcc2c56caf7dae7efa5eb3 Mon Sep 17 00:00:00 2001
+From: Petr Mensik <pemensik@redhat.com>
+Date: Fri, 12 Nov 2021 14:05:32 +0100
+Subject: [PATCH] Support python3 for running tests
+
+Simple change done by 2to3 python tool. Make prints compatible with both
+python3 and python2.
+
+Change default version to python3. Still can be run by python2
+run_tests.py.
+
+Signed-off-by: Petr Mensik <pemensik@redhat.com>
+---
+ run_tests.py | 20 ++++++++++----------
+ 1 file changed, 10 insertions(+), 10 deletions(-)
+
+diff --git a/run_tests.py b/run_tests.py
+index ef723b4..b75e176 100755
+--- a/run_tests.py
++++ b/run_tests.py
+@@ -1,4 +1,4 @@
+-#!/usr/bin/env python2
++#!/usr/bin/env python3
+ 
+ import re
+ import sys
+@@ -56,17 +56,17 @@ def parse_test(raw):
+ 
+                failures += 1
+ 
+-               print "="*40
+-               print doc
+-               print ':'*20
+-               print prog, argv
+-               print '-'*20
++               print("="*40)
++               print(doc)
++               print(':'*20)
++               print(prog, argv)
++               print('-'*20)
+                if out:
+-                       print out
+-               print error
++                       print(out)
++               print(error)
+ 
+ if failures:
+-       print "%d failures" % failures
++       print("%d failures" % failures)
+        sys.exit(1)
+ else:
+-       print "PASS (%d)" % passes
++       print("PASS (%d)" % passes)