physics: Add davix.

* guix-science/packages/physics.scm (davix): New variable.

Signed-off-by: Romain Garbage <romain.garbage@inria.fr>

1 files changed, 51 insertions, 3 deletions

diff --git a/guix-science/packages/physics.scm b/guix-science/packages/physics.scm
index b0636bb..c1f2574 100644
--- a/guix-science/packages/physics.scm
+++ b/guix-science/packages/physics.scm
@@ -1,5 +1,5 @@
 ;;;
-;;; Copyright © 2022 Emmanuel Medernach <Emmanuel.Medernach@iphc.cnrs.fr>
+;;; Copyright © 2022-2025 Emmanuel Medernach <Emmanuel.Medernach@iphc.cnrs.fr>
 ;;; Copyright © 2023-2024 Jake Forster <jakecameron.forster@gmail.com>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
@@ -16,10 +16,19 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (guix-science packages physics)
-  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages xml)
+
   #:use-module (guix build-system cmake)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
-  #:use-module (guix packages))
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+
+  #:use-module (ice-9 string-fun))
 
 (define (replace-char old-char new-char str)
   (string-map (lambda (char)
@@ -64,3 +73,42 @@ package.")
         (base32 "13la49jnadsi5f2a70qagv87j7qzcpdccmbp2lyscaxlkmzy253z"))))))
 
 (define-public clhep clhep-2.4.7.1)
+
+;;
+;; Davix
+;;
+(define-public davix
+  (package
+   (name "davix")
+   (version "0.8.7")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://github.com/cern-fts/davix")
+           (commit (string-append "R_" (string-replace-substring version "." "_")))
+           (recursive? #t))) ; submodules
+     (file-name (string-append name "-" version))
+     (sha256
+      (base32 "1w0alvkhc23iy42kqrb543jja4v6xs7z600vhn890hprj3fmpis2"))))
+   (build-system cmake-build-system)
+   (native-inputs (list python))
+   (inputs
+    (list `(,util-linux "lib") ; For <uuid/uuid.h>
+          curl
+          libxml2
+          openssl))
+   (arguments
+    (list #:configure-flags
+          #~(list "-DEMBEDDED_LIBCURL=FALSE"
+                  "-DLIBCURL_BACKEND_BY_DEFAULT=TRUE")))
+   (home-page "https://davix.web.cern.ch/")
+   (synopsis "Manage files over HTTP-based protocols")
+   (description
+    "Davix  aims to  make the  task of  managing files  over
+HTTP-based protocols  simple.  It is being  developed by the
+IT-SDC-ID section  at CERN, and while  the project’s purpose
+is its  use on the  CERN grid, the functionality  offered is
+generic.")
+   (license license:lgpl2.1+)))
+