From c6e27b74e1f90985513167b52cd0e0f9cc54aa73 Mon Sep 17 00:00:00 2001
From: Raghav Gururajan <rg@raghavgururajan.name>
Date: Thu, 18 Mar 2021 13:57:53 -0400
Subject: [PATCH 39/53] gnu: Add libcutl.

* gnu/packages/codesynthesis.scm (libcutl): New variable.
---
 gnu/packages/codesynthesis.scm | 44 ++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/codesynthesis.scm b/gnu/packages/codesynthesis.scm
index 7cb9a427a5..a264692c19 100644
--- a/gnu/packages/codesynthesis.scm
+++ b/gnu/packages/codesynthesis.scm
@@ -19,6 +19,8 @@
 
 (define-module (gnu packages codesynthesis)
   #:use-module (gnu packages)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages xml)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
@@ -53,3 +55,45 @@
 implemented on top of GNU make.")
     (home-page "https://www.codesynthesis.com/projects/libxsd-frontend/")
     (license license:gpl2+)))
+
+(define-public libcutl
+  (package
+    (name "libcutl")
+    (version "1.10.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://www.codesynthesis.com/download/libcutl/"
+                           (version-major+minor version)
+                           "/libcutl-" version ".tar.bz2"))
+       (sha256
+        (base32 "070j2x02m4gm1fn7gnymrkbdxflgzxwl7m96aryv8wp3f3366l8j"))
+       (modules '((guix build utils)))
+       (snippet
+        `(begin
+           ;; Remove bundled sources.
+           (with-directory-excursion "cutl/details"
+             (for-each delete-file-recursively
+                       ;; FIXME: Boost_RegEx isn't being detected.
+                       (list
+                        ;; "boost"
+                        "expat")))
+           #t))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags
+       (list
+        "--disable-static"
+        ;; "--with-external-boost"
+        "--with-external-expat")))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(;; ("boost" ,boost)
+       ("expat" ,expat)))
+    (synopsis "C++ utility library")
+    (description "@package{libcutl} is a C++ utility library.  It contains a
+collection of generic and independent components such as meta-programming tests,
+smart pointers, containers, compiler building blocks, etc.")
+    (home-page "https://www.codesynthesis.com/projects/libcutl/")
+    (license license:expat)))
-- 
2.31.0