(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.")))