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: mono@6.12.0: Make it find libgdiplus, libX11 and unixodbc.

Browse source 
* gnu/packages/dotnet.scm (mono-6.12.0)[arguments]<#:phases>[configure-external-libs]:
New phase.

Fixes: #490
Change-Id: Ifd9f3eae7e2533227ec530a9886cdf2776910dda
This commit is contained in:
Danny Milosavljevic 2025-06-09 01:47:39 +02:00 • committed by jgart
parent c2a77c9016
commit 18a958a8f5
No known key found for this signature in database
GPG key ID: A52AA2B477B6DD35
1 changed files with 45 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

47
gnu/packages/dotnet.scm
View file

@ -6,6 +6,7 @@
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages flex)
#:use-module (gnu packages gettext)
#:use-module (gnu packages pkg-config)
@ -37,6 +38,7 @@
#:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (ice-9 match))
@ -1749,11 +1751,15 @@ most of the heavy lifting.")
(native-inputs (modify-inputs (package-native-inputs mono-5.10.0)
(replace "mono" mono-5.10.0)))
(inputs (modify-inputs (package-inputs mono-5.10.0)
(append libgdiplus)))
(append libgdiplus unixodbc)))
(arguments
(substitute-keyword-arguments
(strip-keyword-arguments (list #:parallel-build?)
(package-arguments mono-5.10.0))
((#:modules modules '((guix build gnu-build-system)
(guix build utils)))
`((sxml simple)
,@modules))
((#:make-flags make-flags #~'())
#~(append #$make-flags
(list
@ -1861,4 +1867,41 @@ most of the heavy lifting.")
(with-directory-excursion "mono/mini"
(apply invoke "make" "check" make-flags))
(with-directory-excursion "mono/tests"
(apply invoke "make" "check" make-flags)))))))))))
(apply invoke "make" "check" make-flags)))))
(add-after 'install 'configure-external-libs
(lambda* (#:key inputs #:allow-other-keys)
(let ((gac (string-append #$output
"/lib/mono/gac"))
(libgdiplus (search-input-file inputs "/lib/libgdiplus.so.0"))
(libx11 (search-input-file inputs "/lib/libX11.so.6"))
(unixodbc (search-input-file inputs "/lib/libodbc.so.2")))
;;; gamin purposefully not fixed since nowadays mono can
;;; just use inotify--and does.
(for-each
(lambda (name)
(call-with-output-file (string-append name ".config")
(lambda (port)
(sxml->xml
`(configuration
(dllmap (@ (dll "libodbc.so.2")
(target ,unixodbc))))
port))))
(find-files gac "^System[.]Data[.]dll$"))
(for-each
(lambda (name)
(call-with-output-file (string-append name ".config")
(lambda (port)
(sxml->xml
`(configuration (dllmap (@ (dll "gdiplus")
(target ,libgdiplus))))
port))))
(find-files gac "^System[.]Drawing[.]dll$"))
(for-each
(lambda (name)
(call-with-output-file (string-append name ".config")
(lambda (port)
(sxml->xml
`(configuration (dllmap (@ (dll "libX11")
(target ,libx11))))
port))))
(find-files gac "^System[.]Windows[.]Forms[.]dll$")))))))))))