bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: drip: Use GEXPs.

Browse source 
* gnu/packages/java.scm (drip): Use GEXPs.

Change-Id: I9849de8f0caa4cf246dd30a49a2bcf2984125ee6
This commit is contained in:
Artyom V. Poptsov 2025-10-28 20:27:15 +03:00
parent 44bd0e2c35
commit 019a912a5b
No known key found for this signature in database
GPG key ID: 935EBE0736DC857E
1 changed files with 37 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
gnu/packages/java.scm
View file

@ -2280,46 +2280,43 @@ Tool for Language Recognition v3).")
(native-inputs
`(("jdk" ,icedtea "jdk")))
(arguments
`(#:tests? #f ; No tests.
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'relax-gcc-14-strictness
(lambda _
(substitute* "Makefile"
((" gcc(.*)$" all options)
(string-append
" gcc"
" -Wno-error=incompatible-pointer-types"
" -Wno-error=implicit-function-declaration"
options)))))
(add-before 'install 'fix-wrapper
(lambda* (#:key inputs #:allow-other-keys)
(let ((jps (search-input-file inputs "/bin/jps")))
(substitute* "bin/drip"
(("jps") jps)
(("brew update && brew upgrade drip") "guix pull && guix install drip")
;; No need to make:
(("\\(cd -- \"\\$drip_dir\" && make -s\\) \\|\\| exit 1") "")
;; No need to include source:
(("\\[\\[ -r \\$drip_dir/src/org/flatland/drip/Main\\.java \\]\\]")
"true"))
#t)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(share (string-append out "/share/drip")))
(mkdir-p bin)
(for-each
(lambda (file)
(install-file (string-append "bin/" file) bin))
'("drip" "drip_daemon" "drip_proxy"))
(install-file "drip.jar" share)
(substitute* (string-append bin "/drip")
(("drip_dir=\\$bin_dir/..")
(string-append "drip_dir=" share)))
#t))))))
(list #:tests? #f ; No tests.
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'relax-gcc-14-strictness
(lambda _
(substitute* "Makefile"
((" gcc(.*)$" all options)
(string-append
" gcc"
" -Wno-error=incompatible-pointer-types"
" -Wno-error=implicit-function-declaration"
options)))))
(add-before 'install 'fix-wrapper
(lambda* (#:key inputs #:allow-other-keys)
(let ((jps (search-input-file inputs "/bin/jps")))
(substitute* "bin/drip"
(("jps") jps)
(("brew update && brew upgrade drip") "guix pull && guix install drip")
;; No need to make:
(("\\(cd -- \"\\$drip_dir\" && make -s\\) \\|\\| exit 1") "")
;; No need to include source:
(("\\[\\[ -r \\$drip_dir/src/org/flatland/drip/Main\\.java \\]\\]")
"true")))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((bin (string-append #$output "/bin"))
(share (string-append #$output "/share/drip")))
(mkdir-p bin)
(for-each
(lambda (file)
(install-file (string-append "bin/" file) bin))
'("drip" "drip_daemon" "drip_proxy"))
(install-file "drip.jar" share)
(substitute* (string-append bin "/drip")
(("drip_dir=\\$bin_dir/..")
(string-append "drip_dir=" share)))))))))
(home-page "https://github.com/ninjudd/drip")
(synopsis "Faster Java Virtual Machine launching")
(description "Drip is a launcher for the Java Virtual Machine that