Subject: [bug#66888] [PATCH 2/2] gnu: Add babeltrace/dev.

From: [email-masked]
Date: Wed, 1 Nov 2023 16:35:16 -0400

From: Olivier Dion <[email-masked]>

This dev variant of the package babeltrace is slower, but allows better
developement of plugins as recommended by the authors.

* gnu/packages/instrumentation.scm (babeltrace/dev): New variable.

Change-Id: Ib54ced9a1ede5d9acc9a53ff325663a28a3b447f
---
 gnu/packages/instrumentation.scm | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/instrumentation.scm b/gnu/packages/instrumentation.scm
index 0d6513aaca..4c92c81105 100644
--- a/gnu/packages/instrumentation.scm
+++ b/gnu/packages/instrumentation.scm
@@ -97,11 +97,9 @@ (define-public babeltrace
        (modify-phases %standard-phases
          ;; These are recommended in the project's README for a development
          ;; build configuration.
-         (add-before 'configure 'set-environment-variables
+         (add-after 'unpack 'reconfigure
            (lambda _
-             (setenv "BABELTRACE_DEV_MODE" "1")
-             (setenv "BABELTRACE_MINIMAL_LOG_LEVEL" "TRACE")
-             (invoke "autoreconf" "-vfi"))))))
+             (delete-file "configure"))))))
     (inputs
      (list glib))
     ;; NOTE - elfutils is used for the LTTng debug information filter
@@ -143,6 +141,18 @@ (define-public babeltrace
 bindings, and the command-line tool @command{babeltrace2}.")
     (license license:expat)))
 
+(define-public babeltrace/dev
+  (package/inherit babeltrace
+    (name "babeltrace-dev")
+    (arguments
+     (substitute-keyword-arguments (package-arguments babeltrace)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-before 'configure 'set-environment-variables
+             (lambda _
+               (setenv "BABELTRACE_DEV_MODE" "1")
+               (setenv "BABELTRACE_MINIMAL_LOG_LEVEL" "TRACE")))))))))
+
 (define-public barectf
   (package
     (name "barectf")
-- 
2.41.0