guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: guile-gi: Embed absolute file name of extension library.

Browse source 
* gnu/packages/guile-xyz.scm (guile-gi)[arguments]: Add phase
patch-references-to-extension.
This commit is contained in:
Ricardo Wurmus 2020-03-15 14:17:26 +01:00
parent b420e6deb9
commit a431a63537
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/guile-xyz.scm
View file

@ -2504,8 +2504,35 @@ list of components. This module takes care of that for you.")
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--with-gnu-filesystem-hierarchy")
#:modules ((guix build gnu-build-system)
(guix build utils)
(ice-9 popen)
(ice-9 rdelim))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-references-to-extension
(lambda* (#:key outputs #:allow-other-keys)
(let ((effective (read-line
(open-pipe* OPEN_READ
"guile" "-c"
"(display (effective-version))"))))
(substitute* '("module/gi.scm"
"module/gi/oop.scm"
"module/gi/documentation.scm"
"module/gi/types.scm"
"module/gi/repository.scm")
(("\\(load-extension \"libguile-gi\" \"(.*)\"\\)" m arg)
(format #f "~s"
`(load-extension
(format #f "~alibguile-gi"
(if (getenv "GUILE_GI_UNINSTALLED")
""
,(format #f "~a/lib/guile/~a/"
(assoc-ref outputs "out")
effective)))
,arg)))))
(setenv "GUILE_GI_UNINSTALLED" "1")
#t))
(add-before 'check 'start-xorg-server
(lambda* (#:key inputs #:allow-other-keys)
;; The init_check test requires a running X server.