From bcd15948be7093e950a1be0120dc99afad9669db Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@ditigal.xyz>
Date: Thu, 8 Jan 2026 19:40:08 +0100
Subject: [PATCH] feat: add ldd

---
 modules/ruther/packages/utilities.scm | 29 +++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 modules/ruther/packages/utilities.scm

diff --git a/modules/ruther/packages/utilities.scm b/modules/ruther/packages/utilities.scm
new file mode 100644
index 0000000000000000000000000000000000000000..cbc186d06bbb18996c72f35964e64cec2eff0d7c
--- /dev/null
+++ b/modules/ruther/packages/utilities.scm
@@ -0,0 +1,29 @@
+(define-module (ruther packages utilities)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix build-system trivial)
+  #:use-module (gnu packages base))
+
+(define-public ldd
+  (package
+    (inherit glibc)
+    (name "ldd")
+    (source #f)
+    (build-system trivial-build-system)
+    (outputs '("out"))
+    (arguments
+     (list
+      #:modules '((guix build utils))
+      #:builder
+      #~(begin
+          (use-modules (guix build utils))
+          (let ((bin-dir (string-append #$output "/bin")))
+            (mkdir-p bin-dir)
+            (symlink (string-append #$(this-package-input "glibc") "/bin/ldd")
+                     (string-append bin-dir "/ldd"))))))
+    (inputs
+     (list glibc))
+    (search-paths '())
+    (native-search-paths '())
+    (synopsis "ldd from glibc.")
+    (description "Only ldd obtained from glibc package.")))