diff --git a/nongnu/packages/disk.scm b/nongnu/packages/disk.scm new file mode 100644 index 00000000..6de9972a --- /dev/null +++ b/nongnu/packages/disk.scm @@ -0,0 +1,62 @@ +;;; SPDX-License-Identifier: GPL-3.0-or-later +;;; Copyright © 2023 Sughosha + +(define-module (nongnu packages disk) + #:use-module (gnu packages compression) + #:use-module (guix download) + #:use-module (guix gexp) + #:use-module (guix packages) + #:use-module (guix utils) + #:use-module (ice-9 match) + #:use-module (nonguix build-system binary) + #:use-module (nonguix licenses)) + +(define-public dmde + (let ((arch (match (or (%current-target-system) (%current-system)) + ("x86_64-linux" "64") + ("i686-linux" "32")))) + (package + (name "dmde") + (version "4.0.6.806") + (source + (origin + (method url-fetch) + (uri (string-append "https://dmde.com/download/dmde-" + (string-replace-substring version "." "-") "-lin" + arch "-con.zip")) + (sha256 + (base32 + (match arch + ("64" "06n01kggc1hrgjwpqfl4wqgwm8j46wp1n40q15rwd81hnkdvn2gd") + ("32" "0mxyaxb44qhb75wqir8hvab9ignzcps8m3y5ibj1j3dvkhmi0nrl")))))) + (build-system binary-build-system) + (arguments + (list #:patchelf-plan + #~`(("dmde" ("libc"))) + #:install-plan + #~`(("." "opt/dmde")) + #:phases + #~(modify-phases %standard-phases + (replace 'unpack + (lambda* (#:key source #:allow-other-keys) + (invoke "unzip" source "-d" "source") + (chdir "source"))) + (add-after 'install 'create-wrapper + (lambda _ + (make-wrapper + (string-append #$output "/sbin/dmde") + (string-append #$output "/opt/dmde/dmde")))) + (replace 'install-license-files + (lambda _ + (install-file "eula.txt" + (string-append #$output "/share/doc/" + (strip-store-file-name #$output)))))))) + (native-inputs + (list unzip)) + (supported-systems + (list "i686-linux" "x86_64-linux")) + (home-page "https://dmde.com/") + (synopsis "Disk editor and data recovery software") + (description + "DMDE is a tool for data searching, editing, and recovery on disks.") + (license (nonfree "file:///eula.txt")))))