amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: hashcat-utils: Improve style.

Browse source 
* gnu/packages/password-utils.scm (hashcat-utils)[arguments]: Use
G-Expressions.

Change-Id: I770d386d35cb7f0461e87087cb129aeca9e6783e
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Cayetano Santos 2025-09-16 15:49:35 +02:00 • committed by Liliana Marie Prikler
parent 1d6ec30232
commit 83a54fc239
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

56
gnu/packages/password-utils.scm
View file

@ -1733,34 +1733,34 @@ password cracking.")
(list perl)) (list perl))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ;no tests (list
#:make-flags (list "CC=gcc" #:tests? #f ;no tests
;; Upstream bug(?): "make all" seems to remove the #:make-flags
;; Perl scripts from the source. #~(list (string-append "CC=" #$(cc-for-target))
"native") ;; Upstream bug(?): "make all" seems to remove the
#:phases ;; Perl scripts from the source.
(modify-phases %standard-phases "native")
(replace 'unpack #:phases
(lambda* (#:key source #:allow-other-keys) #~(modify-phases %standard-phases
(invoke "7z" "x" source) (replace 'unpack
(chdir (string-append "hashcat-utils-" ,version "/src")) (lambda* (#:key source #:allow-other-keys)
#t)) (invoke "7z" "x" source)
(delete 'configure) (chdir (string-append #$name "-" #$version "/src"))))
(replace 'install (delete 'configure)
(lambda* (#:key outputs #:allow-other-keys) (replace 'install
(let ((out (string-append (assoc-ref outputs "out") "/bin"))) (lambda _
(mkdir-p out) (let ((out (string-append #$output "/bin")))
(for-each (mkdir-p out)
(lambda (file) (for-each
(copy-file file (string-append out "/" (lambda (file)
(basename file ".bin")))) (copy-file file (string-append out "/"
(find-files "." "\\.bin$")) (basename file ".bin"))))
(for-each (find-files "." "\\.bin$"))
(lambda (file) (for-each
(copy-file file (string-append out "/" (lambda (file)
(basename file ".pl")))) (copy-file file (string-append out "/"
(find-files "../bin" "\\.pl$")) (basename file ".pl"))))
#t)))))) (find-files "../bin" "\\.pl$"))))))))
(home-page "https://github.com/hashcat/hashcat-utils/") (home-page "https://github.com/hashcat/hashcat-utils/")
(synopsis "Small utilities that are useful in advanced password cracking") (synopsis "Small utilities that are useful in advanced password cracking")
(description "Hashcat-utils are a set of small utilities that are useful (description "Hashcat-utils are a set of small utilities that are useful