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: snuik: Include guile-fibers, guile-gnutls, and fix wrapper.

Browse source 
* gnu/packages/irc.scm (snuik)[inputs]: Add guile-fibers and guile-gnutls.
[arguments]: Use them in "install-script" phase.  Fix snuik wrapper.

Change-Id: I0dbc5d60c3dc6a683f91a4bb9dc5cbee89bba903
This commit is contained in:
Janneke Nieuwenhuizen 2025-03-13 14:33:05 +01:00
parent 01808720f1
commit 678b3dddfe
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/irc.scm
View file

@ -1135,7 +1135,8 @@ server written in C++ for Unix-like operating systems.")
(base32 "1hqhni5xgm7jg8md305clix1r3dbxkq6fw93kxzar1nv7wvy7z38"))))
(native-inputs (list guile-3.0
ngircd)) ;for live test
(inputs (list bash-minimal guile-3.0 guile-goblins))
(inputs
(list bash-minimal guile-3.0 guile-fibers guile-gnutls guile-goblins))
(build-system guile-build-system)
(arguments
(list
@ -1167,6 +1168,8 @@ server written in C++ for Unix-like operating systems.")
(guile (string-append guile "/bin/guile"))
(build-guile #$(this-package-native-input "guile"))
(build-guile (string-append build-guile "/bin/guile"))
(guile-fibers #$(this-package-input "guile-fibers"))
(guile-gnutls #$(this-package-input "guile-gnutls"))
(guile-goblins #$(this-package-input "guile-goblins"))
(out #$output)
(bin (string-append out "/bin"))
@ -1177,18 +1180,32 @@ server written in C++ for Unix-like operating systems.")
(path (list (string-append guile "/bin")))
(scm-dir (string-append "/share/guile/site/" effective))
(scm-path (list (string-append out scm-dir)
(string-append guile-fibers scm-dir)
(string-append guile-gnutls scm-dir)
(string-append guile-goblins scm-dir)))
(go-dir (string-append "/lib/guile/" effective
"/site-ccache/"))
(go-path (list (string-append out go-dir)
(string-append guile-fibers go-dir)
(string-append guile-gnutls go-dir)
(string-append guile-goblins go-dir))))
(mkdir-p "bin")
(copy-file "snuik.sh" "bin/snuik")
(with-output-to-file "bin/snuik"
(lambda _
(display "\
#!@GUILE@ --no-auto-compile
!#
(set! %load-path (append '(\"@guilemoduledir@\") %load-path))
(set! %load-compiled-path (append '(\"@guileobjectdir@\") %load-compiled-path))
((@ (snuik) main) (command-line)) ")))
(chmod "bin/snuik" #o755)
(substitute* "bin/snuik"
(("@SHELL@") bash))
(("@GUILE@") guile)
(("@guilemoduledir@") (string-append #$output "/" scm-dir))
(("@guileobjectdir@") (string-append #$output "/" go-dir)))
(chmod "snuik" #o755)
(install-file "bin/snuik" bin)
(wrap-script (string-append out "/bin/snuik")
(wrap-program (string-append #$output "/bin/snuik")
`("PATH" ":" prefix ,path)
`("GUILE_AUTO_COMPILE" ":" = ("0"))
`("GUILE_LOAD_PATH" ":" prefix ,scm-path)