cpp: Add howard-hinnant-date.

* guix-science/packages/cpp.scm (howard-hinnant-date): New variable.

1 files changed, 59 insertions, 0 deletions

diff --git a/guix-science/packages/cpp.scm b/guix-science/packages/cpp.scm
index 78c0979..c30481b 100644
--- a/guix-science/packages/cpp.scm
+++ b/guix-science/packages/cpp.scm
@@ -13,6 +13,7 @@
   #:use-module (guix-science packages serialization)
   #:use-module (gnu packages)
   #:use-module (gnu packages algebra)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages benchmark)
   #:use-module (gnu packages boost)
@@ -245,6 +246,64 @@ and iterators.")
     (home-page "https://ddc.mdls.fr/")
     (license license:expat)))
 
+(define-public howard-hinnant-date
+  (package
+    (name "howard-hinnant-date")
+    (version "3.0.4")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/HowardHinnant/date")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1hsw6mhhhid80zvl24mql5ahn8pjhyjd31nmj008s64pdv5w78cz"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list
+      #:configure-flags
+      #~(list "-DUSE_SYSTEM_TZ_DB:BOOL=ON"
+              "-DBUILD_SHARED_LIBS:BOOL=ON"
+              "-DCOMPILE_WITH_C_LOCALE:BOOL=ON"
+              "-DBUILD_TZ_LIB:BOOL=ON")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'use-system-zoneinfo
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((zoneinfo (search-input-directory inputs "share/zoneinfo")))
+                (substitute* "src/tz.cpp"
+                  (("CONSTDATA auto tz_dir_default =.*;")
+                   (string-append "CONSTDATA auto tz_dir_default = \""
+                                  zoneinfo "\";"))))))
+          (add-after 'unpack 'fix-tests
+            (lambda _
+              (with-directory-excursion "test"
+                ;; Exclude tests which rely on timezone discovery.
+                (for-each delete-file
+                          (list "solar_hijri_test/parse.pass.cpp"
+                                "tz_test/zoned_time_deduction.pass.cpp"))
+                ;; Avoid superfluous linkage with libcurl, since we are using the
+                ;; system's timezone database.
+                (substitute* "testit"
+                  (("-lcurl")
+                   "")))))
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (with-directory-excursion "../source/test"
+                  (setenv "CXX" "g++")
+                  (setenv "OPTIONS" "-DONLY_C_LOCALE=1 -DUSE_OS_TZDB=1")
+                  (invoke "./testit"))))))))
+    (inputs (list tzdata))
+    (home-page "https://howardhinnant.github.io/date/")
+    (synopsis "Date and time library based on the C++ chrono header")
+    (description
+     "@code{howardhinnant-date} extends @code{<chrono>} to calendars and
+timezones, focusing on a seamless integration with the existing @code{<chrono>}
+library, type safety, performance and ease of use.")
+    (license license:expat)))
+
 (define-public intervalset
   (package
     (name "intervalset")