[bug#36744] [PATCH 1/1] gnu: Add cutter.

[bug#36744] [PATCH 1/1] gnu: Add cutter.

[Jovany Leandro G.C]

* gnu/packages/engineering.scm (cutter): New variable.
---
 gnu/packages/engineering.scm | 46 ++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 7d48414889..3b32f8f0e2 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -11,6 +11,7 @@
 ;;; Copyright © 2018, 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
 ;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2019 Tim Stahel <swedneck@swedneck.xyz>
+;;; Copyright © 2019 Jovany Leandro G.C <bit4bit@riseup.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -2062,3 +2063,48 @@ purpose circuit simulator and can perform DC and transient analyses, fourier
 analysis and AC analysis.  The engine is designed to do true mixed-mode
 simulation.")
     (license license:gpl3+)))
+
+(define-public cutter
+  (package
+    (name "cutter")
+    (version "1.8.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri  (string-append
+              "https://github.com/radareorg/cutter/archive/v"
+              version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1nhzwqavb156bqxk723i6an6iaagm3hs7642ijbma4hgl32lw0bi"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (radare2 (assoc-ref inputs "radare2")))
+               ;; fix pkg-config detection ./src/lib_radare2.pri:PREFIX=/usr/lib
+               ;; override `qmake PREFIX=`
+               (substitute* "./src/lib_radare2.pri"
+                 (("PREFIX") "R2PREFIX")
+                 (("R2PREFIX=/usr") (string-append "R2PREFIX=" radare2)))
+               (invoke "qmake"
+                       (string-append "PREFIX=" out)
+                       "./src/Cutter.pro")))))))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(("qtbase" ,qtbase)
+       ("qtsvg" ,qtsvg)
+       ("openssl" ,openssl)
+       ("radare2" ,radare2)))
+    (home-page "https://github.com/radareorg/cutter")
+    (synopsis "Free and open-source GUI for radare2 reverse engineering framework")
+    (description "Cutter is a free and open-source GUI for radare2 reverse
+engineering framework.  Its goal is making an advanced, customizable and
+FOSS reverse-engineering platform while keeping the user experience at mind.
+Cutter is created by reverse engineers for reverse engineers.")
+    (license license:gpl3+)))
-- 
2.19.0

bug#36744: [PATCH 1/1] gnu: Add cutter.

[Marius Bakke]

[-- Attachment #1: Type: text/plain, Size: 2353 bytes --]

"Jovany Leandro G.C" <bit4bit@riseup.net> writes:

> * gnu/packages/engineering.scm (cutter): New variable.

[...]

> +(define-public cutter
> +  (package
> +    (name "cutter")
> +    (version "1.8.3")
> +    (source
> +     (origin
> +       (method url-fetch)
> +       (uri  (string-append
> +              "https://github.com/radareorg/cutter/archive/v"
> +              version ".tar.gz"))
> +       (file-name (string-append name "-" version ".tar.gz"))
> +       (sha256
> +        (base32
> +         "1nhzwqavb156bqxk723i6an6iaagm3hs7642ijbma4hgl32lw0bi"))))

I changed this to use a git checkout, because the auto-generated GitHub
tarballs may change hash in the future.

> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:phases
> +       (modify-phases %standard-phases
> +         (replace 'configure
> +           (lambda* (#:key inputs outputs #:allow-other-keys)
> +             (let ((out (assoc-ref outputs "out"))
> +                   (radare2 (assoc-ref inputs "radare2")))
> +               ;; fix pkg-config detection ./src/lib_radare2.pri:PREFIX=/usr/lib
> +               ;; override `qmake PREFIX=`
> +               (substitute* "./src/lib_radare2.pri"
> +                 (("PREFIX") "R2PREFIX")
> +                 (("R2PREFIX=/usr") (string-append "R2PREFIX=" radare2)))
> +               (invoke "qmake"
> +                       (string-append "PREFIX=" out)
> +                       "./src/Cutter.pro")))))))
> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (inputs
> +     `(("qtbase" ,qtbase)
> +       ("qtsvg" ,qtsvg)
> +       ("openssl" ,openssl)
> +       ("radare2" ,radare2)))
> +    (home-page "https://github.com/radareorg/cutter")
> +    (synopsis "Free and open-source GUI for radare2 reverse engineering framework")
> +    (description "Cutter is a free and open-source GUI for radare2 reverse
> +engineering framework.  Its goal is making an advanced, customizable and
> +FOSS reverse-engineering platform while keeping the user experience at mind.
> +Cutter is created by reverse engineers for reverse engineers.")

I removed mentions of "free" and "open source", because everything in
Guix is free software.

> +    (license license:gpl3+)))

I also added the CC-BY-SA 3.0 license used by the icon set.

Pushed in 5cded306f92a8641259909ee986e583168b85b17, thanks!

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]