physics: Add root.

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

Signed-off-by: Ludovic Courtès <ludovic.courtes@inria.fr>

1 files changed, 205 insertions, 2 deletions

diff --git a/guix-science/packages/physics.scm b/guix-science/packages/physics.scm
index 8bce259..b6493bf 100644
--- a/guix-science/packages/physics.scm
+++ b/guix-science/packages/physics.scm
@@ -1,6 +1,6 @@
 ;;;
 ;;; Copyright © 2022-2025 Emmanuel Medernach <Emmanuel.Medernach@iphc.cnrs.fr>
-;;; Copyright © 2023-2024 Jake Forster <jakecameron.forster@gmail.com>
+;;; Copyright © 2023-2025 Jake Forster <jakecameron.forster@gmail.com>
 ;;; Copyright © 2025 Lars Bilke <lars.bilke@ufz.de>
 ;;; Copyright © 2025 Romain Garbage <romain.garbage@inria.fr>
 ;;;
@@ -40,7 +40,20 @@
   #:use-module (guix packages)
   #:use-module (ice-9 string-fun)
   #:use-module (gnu packages readline)
-  #:use-module (gnu packages kerberos))
+  #:use-module (gnu packages kerberos)
+  #:use-module (ice-9 match)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages digest)
+  #:use-module (gnu packages tbb)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages astronomy)
+  #:use-module (gnu packages python-science)
+  #:use-module (gnu packages machine-learning)
+  #:use-module (guix utils))
 
 (define (replace-char old-char new-char str)
   (string-map (lambda (char)
@@ -355,3 +368,193 @@ to data repositories of many kinds, including file-based ones.  It is
 based on a scalable architecture, a communication protocol, and a set
 of plugins and tools.")
     (license license:lgpl3+)))
+
+;; TODO: Unbundle LLVM, Clang, and Cling.
+(define-public root
+  (package
+    (name "root")
+    (version "6.34.02")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/root-project/root")
+             (commit (string-append
+                      "v" (string-map (match-lambda
+                                        (#\. #\-)
+                                        (chr chr)) version)))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1whhmrz40x3blhzxsh8h6vfs8xi6pv0a3mwndlrapnajy5p582dk"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list
+      #:configure-flags
+      #~(list "-Dtesting=ON"
+              ;; Python modules are installed in 'lib' by default.
+              (string-append
+               "-DCMAKE_INSTALL_PYTHONDIR="
+               #$output "/lib/python"
+               #$(version-major+minor (package-version python))
+               "/site-packages"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-cmake-rpath
+            (lambda _
+              ;; Default RPATH is '.' and '../lib', but
+              ;; libROOTPythonizations.so is installed in Python
+              ;; 'site-packages'. Correct its path to 'lib'.
+              (substitute* "bindings/pyroot/pythonizations/CMakeLists.txt"
+               (("SHARED \\$\\{cpp_sources\\}\\)")
+                (string-append
+                 "SHARED ${cpp_sources})\n\n"
+                 "set_target_properties(ROOTPythonizations PROPERTIES "
+                 "INSTALL_RPATH \"$ORIGIN;$ORIGIN/../../\")")))))
+          (add-before 'build 'set-env
+            (lambda _
+              ;; For bundled libAfterImage configure script.
+              (setenv "CONFIG_SHELL" (which "sh"))))
+          (replace 'check
+            (lambda* (#:key tests? parallel-tests? #:allow-other-keys)
+              (when tests?
+                (let ((skipped-tests
+                       (list
+                        ;; FIXME: This test failure may be fixed in 6.36.00.
+                        ;; https://github.com/root-project/root/issues/17564
+                        "gtest-roofit-roofit-vectorisedPDFs-testLandau"
+                        ;; Skip tests that require python-tensorflow
+                        ;; due to limited availability of substitutes
+                        ;; for that package from guix-science.
+                        "test-import-tensorflow"
+                        "pyunittests-bindings-pyroot-pythonizations-batchgen"
+                        ;; Skip tests that require network.
+                        "gtest-io-io-TFile"
+                        "gtest-net-netxng-RRawFileNetXNG"
+                        "gtest-net-netxng-TNetXNGFileTest"
+                        "test-stressgeometry.*"
+                        "test-stresslinear.*"
+                        "test-stresshistogram.*"
+                        "test-stressIOPlugins-xroot"
+                        "PyMVA-RandomForest-Classification"
+                        "PyMVA-GTB-Classification"
+                        "PyMVA-AdaBoost-Classification"
+                        "PyMVA-Torch-Classification"
+                        "PyMVA-Torch-Regression"
+                        "gtest-tmva-tmva-rstandardscaler"
+                        "gtest-tmva-tmva-rreader"
+                        "test-stresstmva"
+                        "^TMVA-DNN-MethodDL-.*"
+                        "^gtest-tmva-tmva-envelope-TMVA-.*"
+                        "gtest-tree-tree-testTChainParsing"
+                        "gtest-tree-treeplayer-treeprocessormt-remotefiles"
+                        "tutorial-dataframe-df014_CSVDataSource"
+                        "tutorial-dataframe-df015_LazyDataSource"
+                        "tutorial-dataframe-df101_h1Analysis"
+                        "tutorial-graphics-AtlasExample"
+                        "tutorial-hist-th2polyEurope"
+                        "tutorial-hist-th2polyUSA"
+                        "tutorial-multicore-imt001_parBranchProcessing"
+                        "tutorial-multicore-imt101_parTreeProcessing"
+                        "tutorial-multicore-mp103_processSelector"
+                        "tutorial-multicore-mp104_processH1"
+                        "tutorial-multicore-mp105_processEntryList"
+                        "tutorial-tmva-TMVAClassification"
+                        "tutorial-tmva-TMVAClassificationApplication"
+                        "tutorial-tmva-TMVACrossValidationRegression"
+                        "tutorial-tmva-TMVAMulticlass"
+                        "tutorial-tmva-TMVAMulticlassApplication"
+                        "tutorial-tmva-TMVARegression"
+                        "tutorial-tmva-TMVARegressionApplication"
+                        "tutorial-tmva-TMVA_Higgs_Classification"
+                        "tutorial-tmva-envelope-classification"
+                        "tutorial-tmva-tmva003_RReader"
+                        "tutorial-tmva-tmva004_RStandardScaler"
+                        "tutorial-tree-run_h1analysis"
+                        "tutorial-v7-ntuple-ntpl008_import"
+                        "tutorial-dataframe-df014_CSVDataSource-py"
+                        "tutorial-dataframe-df033_Describe-py"
+                        "tutorial-dataframe-df102_NanoAODDimuonAnalysis-py"
+                        "tutorial-dataframe-df103_NanoAODHiggsAnalysis-py"
+                        "tutorial-dataframe-df104_HiggsToTwoPhotons-py"
+                        "tutorial-dataframe-df105_WBosonAnalysis-py"
+                        "tutorial-dataframe-df106_HiggsToFourLeptons-py"
+                        "tutorial-dataframe-df107_SingleTopAnalysis-py"
+                        "tutorial-rcanvas-df104-py"
+                        "tutorial-rcanvas-df105-py"
+                        "tutorial-roofit-rf618_mixture_models-py"
+                        "tutorial-tmva-RBatchGenerator_NumPy-py"
+                        "tutorial-tmva-RBatchGenerator_PyTorch-py"
+                        "tutorial-tmva-TMVA_Higgs_Classification-py"
+                        "tutorial-tmva-pytorch-ApplicationClassificationPyTorch-py"
+                        "tutorial-tmva-pytorch-ApplicationRegressionPyTorch-py"
+                        "tutorial-tmva-pytorch-ClassificationPyTorch-py"
+                        "tutorial-tmva-pytorch-RegressionPyTorch-py"
+                        "tutorial-tmva-tmva100_DataPreparation-py"
+                        "tutorial-tmva-tmva101_Training-py"
+                        "tutorial-tmva-tmva102_Testing-py")))
+                  (invoke "ctest" "-E"
+                          (string-append
+                           "^(" (string-join skipped-tests "|") ")$")
+                          "-j"
+                          (if parallel-tests?
+                              (number->string (parallel-job-count))
+                              "1"))))))
+          (add-after 'install 'fix-python-so-loading
+            (lambda _
+              ;; ctypes.CDLL fails to load shared library from
+              ;; absolute path to symlink.
+              (substitute*
+                  (string-append
+                   #$output "/lib/python"
+                   #$(version-major+minor (package-version python))
+                   "/site-packages/cppyy_backend/loader.py")
+                (("if not c:")
+                 (string-append "c = _load_helper(\""
+                                #$output
+                                "/lib/libcppyy_backend.so\")"
+                                "\n\n    if not c:"))))))))
+    (inputs
+     (list libx11
+           libxpm
+           libxft
+           libxext
+           python
+           libxcrypt
+           xrootd
+           ;; These are bundled.  Use guix packages instead.
+           pcre2
+           xxhash
+           `(,zstd "lib")
+           lz4
+           ;; Support optional features.
+           tbb                          ;for imt
+           openblas                     ;for tmva-cpu
+           python-numpy                 ;for tmva-pymva
+           glew                         ;for opengl
+           gl2ps                        ;instead of bundled
+           ftgl                         ;instead of bundled
+           libxml2
+           giflib
+           libtiff
+           libjpeg-turbo
+           openssl
+           mysql
+           postgresql
+           sqlite
+           cfitsio))
+    (native-inputs
+     (list googletest
+           python-pandas                ;for tests
+           python-numba                 ;for tests
+           python-pytorch               ;for tests
+           python-scikit-learn          ;for tests
+           python-xgboost))             ;for tests
+    (home-page "https://root.cern")
+    (synopsis "Data analysis framework made at CERN")
+    (description
+     "ROOT is a data analysis framework developed by CERN for tasks such
+as data storage, processing, and visualization.  It provides tools for
+histograms, statistical tests, fitting, simulations, and machine
+learning.  It can handle large datasets and uses a specialized file
+format.")
+    (license license:lgpl2.1+)))