--- Begin Message ---
Subject: |
[PATCH] gnu: Add uftrace. |
Date: |
Mon, 17 Jan 2022 14:20:09 -0500 |
* gnu/packages/instrumentation.scm: (uftrace): New variable.
---
gnu/packages/instrumentation.scm | 68 +++++++++++++++++++++++++++++++-
1 file changed, 67 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/instrumentation.scm b/gnu/packages/instrumentation.scm
index 86b80d65ec..9aafc28181 100644
--- a/gnu/packages/instrumentation.scm
+++ b/gnu/packages/instrumentation.scm
@@ -23,11 +23,16 @@ (define-module (gnu packages instrumentation)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
+ #:use-module (gnu packages engineering)
#:use-module (gnu packages flex)
#:use-module (gnu packages glib)
+ #:use-module (gnu packages haskell-xyz)
+ #:use-module (gnu packages libunwind)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
+ #:use-module (gnu packages lua)
#:use-module (gnu packages man)
+ #:use-module (gnu packages ncurses)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
@@ -43,7 +48,8 @@ (define-module (gnu packages instrumentation)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
- #:use-module (guix packages))
+ #:use-module (guix packages)
+ #:use-module (guix utils))
(define-public babeltrace
(package
@@ -238,3 +244,63 @@ (define-public lttng-tools
line for tracing control, a @code{lttng-ctl} library for tracing control and a
@code{lttng-relayd} for network streaming.")
(license (list license:gpl2 license:lgpl2.1))))
+
+(define-public uftrace
+ (package
+ (name "uftrace")
+ (version "0.11")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/namhyung/uftrace")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
"0gk0hv3rnf5czvazz1prg21rf9qlniz42g5b389n8a29hqj4q6xr"))))
+ (build-system gnu-build-system)
+ (arguments `(#:make-flags
+ (list
+ (string-append "CC=" ,(cc-for-target)))
+ ;; runtest hang at some point -- probably dues to
+ ;; failed socket connection -- but we want to keep the
+ ;; unit tests. Change the target to "test" when fixed.
+ #:test-target "unittest"
+ #:phases
+ (modify-phases %standard-phases
+ (replace 'configure
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (setenv "SHELL" (which "sh"))
+ (invoke "./configure"
+ (string-append "--prefix="
+ (assoc-ref outputs "out")))))
+
+ (add-after 'unpack 'patch-python-shebangs
+ (lambda _
+ (let ([python (which "python3")])
+ (for-each (lambda (path)
+ (substitute* path
+ (("/usr/bin/env python") python)))
+ (cons "misc/gen-autoargs.py"
+ (find-files "tests" "\\.py$")))))))))
+ ;; NOTE! User should add python-3 and luajit to their profile if they
+ ;; want to do scripting.
+ (propagated-inputs
+ (list
+ capstone
+ elfutils
+ libunwind
+ ncurses))
+ (native-inputs
+ (list
+ luajit
+ pandoc
+ pkg-config
+ python-3))
+ (home-page "https://github.com/namhyung/uftrace")
+ (synopsis "Function graph tracer for C/C++/Rust")
+ (description "uftrace is a tool for tracing and analyzing the execution of
+programs written in C/C++. It is heavily inspired by the ftrace framework of
+the Linux kernel, while supporting userspace programs. It supports various
+kind of commands and filters to help analysis of the program execution and
+performance. It provides the command @command{uftrace}.")
+ (license license:gpl2)))
--
2.34.0
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#53324: [PATCH] gnu: Add uftrace. |
Date: |
Thu, 20 Jan 2022 15:27:46 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) |
Hi,
Olivier Dion <olivier.dion@polymtl.ca> skribis:
> * gnu/packages/instrumentation.scm: (uftrace): New variable.
Applied with the following tweaks.
Thanks!
Ludo’.
diff --git a/gnu/packages/instrumentation.scm b/gnu/packages/instrumentation.scm
index 29c15d1deb..a58a474a38 100644
--- a/gnu/packages/instrumentation.scm
+++ b/gnu/packages/instrumentation.scm
@@ -283,22 +283,16 @@ (define-public uftrace
(invoke "./configure"
(string-append "--prefix="
(assoc-ref outputs "out"))))))))
- (native-search-paths
- (list (search-path-specification
- (variable "TERMINFO_DIRS")
- (files '("share/terminfo")))))
(inputs
- (list
- capstone
- elfutils
- libunwind
- ncurses))
+ (list capstone
+ elfutils
+ libunwind
+ ncurses))
(native-inputs
- (list
- luajit
- pandoc
- pkg-config
- python-wrapper))
+ (list luajit
+ pandoc
+ pkg-config
+ python-wrapper))
(home-page "https://github.com/namhyung/uftrace")
(synopsis "Function graph tracer for C/C++/Rust")
(description "uftrace is a tool for tracing and analyzing the execution of
--- End Message ---