guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 4a19a102e956f5d7604f1401f6bdc00327165a96
Author: Danny Milosavljevic <[email protected]>
AuthorDate: Sun Jun 15 21:58:27 2025 +0200

    gnu: [email protected]: Enable resx2sr.
    
    * gnu/packages/dotnet.scm (mono-5.1.0)[arguments]<#:phases>[build-resx2sr]:
    New phase.
    [install-resx2sr]: New phase.
    
    Change-Id: I15cd8990ad7aa63d91c0f90e0eb3ff84c4634ce5
---
 gnu/packages/dotnet.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/dotnet.scm b/gnu/packages/dotnet.scm
index 5f87547f26..08328709f5 100644
--- a/gnu/packages/dotnet.scm
+++ b/gnu/packages/dotnet.scm
@@ -1066,6 +1066,27 @@ unused0:")))))
                            #$(add-external-repos
                               mono-5.1.0-external-repo-specs)
                            #$@prepare-mono-source-0))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments mono-5.0.1)
+       ((#:phases phases #~%standard-phases)
+        #~(modify-phases #$phases
+            (add-after 'build 'build-resx2sr
+              (lambda* (#:key make-flags #:allow-other-keys)
+                (apply invoke "make" "-C" "mcs/tools/resx2sr" make-flags)))
+            (add-after 'install 'install-resx2sr
+              (lambda* (#:key make-flags #:allow-other-keys)
+                (apply invoke "make" "-C" "mcs/tools/resx2sr" "install" 
make-flags)
+                ;; They don't install a wrapper script--but we need it for
+                ;; bootstrapping MSBuild.
+                (let ((resx2sr (string-append #$output "/bin/resx2sr")))
+                  (call-with-output-file resx2sr
+                    (lambda (port)
+                      (format port "#!/bin/sh
+exec ~s ~s \"$@\"
+"
+                              (string-append #$output "/bin/mono")
+                              (string-append #$output 
"/lib/mono/4.5/resx2sr.exe"))))
+                  (chmod resx2sr #o755))))))))
     (native-inputs (modify-inputs (package-native-inputs mono-5.0.1)
                      (replace "mono" mono-5.0.1)))))
 

Reply via email to