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