mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
be78f55238
Build it:
GUIX_PACKAGE_PATH=guix guix build --target=x86_64-w64-mingw32 guile-mingw
Run it:
WINEPATH=$(guix shell wine64 -- winepath -w \
$(echo $(guix gc -R \
$(GUIX_PACKAGE_PATH=guix guix build \
--target=x86_64-w64-mingw32 guile-mingw))) \
| sed 's,$,/bin,g' | tr '\n' ';') \
guix shell wine64 -- wine \
$(GUIX_PACKAGE_PATH=guix guix build --target=x86_64-w64-mingw32 \
guile-mingw)/bin/guile.exe \
-c '(format #t "Hello ~a world!\n" %host-type)'
* guix/guile-mingw-file-name-convention.patch: New file.
* guix/mingw.scm (guile-mingw): Use it.
116 lines
4.7 KiB
Scheme
116 lines
4.7 KiB
Scheme
;;; Dezyne --- Dezyne command line tools
|
|
;;;
|
|
;;; Copyright © 2019,2020,2021,2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
;;;
|
|
;;; This file is part of Dezyne.
|
|
;;;
|
|
;;; Dezyne is free software: you can redistribute it and/or modify it
|
|
;;; under the terms of the GNU Affero General Public License as
|
|
;;; published by the Free Software Foundation, either version 3 of the
|
|
;;; License, or (at your option) any later version.
|
|
;;;
|
|
;;; Dezyne is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;;; Affero General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU Affero General Public
|
|
;;; License along with Dezyne. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (mingw)
|
|
#:use-module (srfi srfi-1)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages bdw-gc)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (gnu packages hurd)
|
|
#:use-module (gnu packages mingw)
|
|
#:use-module (gnu packages multiprecision)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (guile-patched))
|
|
|
|
(define-public libatomic-ops-mingw
|
|
(package
|
|
(inherit libatomic-ops)
|
|
(name "libatomic-ops-mingw")
|
|
(arguments
|
|
'(#:configure-flags '("--enable-shared")))))
|
|
|
|
(define-public libgc-mingw
|
|
(package
|
|
(inherit libgc)
|
|
(name "libgc-mingw")
|
|
(arguments
|
|
`(#:strip-binaries? #f
|
|
#:configure-flags
|
|
(list
|
|
;; Install gc_cpp.h et al.
|
|
"--enable-cplusplus"
|
|
|
|
;; Work around <https://github.com/ivmai/bdwgc/issues/353>.
|
|
"--disable-munmap"
|
|
|
|
;; In GNU/Hurd systems during the 'Check' phase,
|
|
;; there is a deadlock caused by the 'gctest' test.
|
|
;; To disable the error set "--disable-gcj-support"
|
|
;; to configure script. See bug report and discussion:
|
|
;; <https://lists.opendylan.org/pipermail/bdwgc/2017-April/006275.html>
|
|
;; <https://lists.gnu.org/archive/html/bug-hurd/2017-01/msg00008.html>
|
|
,@(if (target-hurd? (or (%current-system)
|
|
(%current-target-system)))
|
|
'("--disable-gcj-support")
|
|
'()))
|
|
#:phases (modify-phases %standard-phases
|
|
(add-after 'unpack 'adjust-pc-file
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((libatomic-ops (assoc-ref inputs "libatomic-ops-mingw")))
|
|
;; GC 7.6.10 and later includes -latomic_ops in the
|
|
;; pkg-config file. To avoid propagation, insert an
|
|
;; absolute reference so dependent programs can find it.
|
|
(substitute* "bdw-gc.pc.in"
|
|
(("@ATOMIC_OPS_LIBS@" match)
|
|
(string-append "-L" libatomic-ops "/lib "
|
|
match)))
|
|
#t))))))
|
|
(native-inputs (list pkg-config))
|
|
(inputs (list libatomic-ops-mingw))))
|
|
|
|
(define-public guile-3.0-mingw
|
|
(package
|
|
(inherit guile-3.0-patched)
|
|
(source (origin (inherit (package-source guile-3.0-patched))
|
|
(patches
|
|
(search-patches "guile-mingw-file-name-convention.patch"))))
|
|
(name "guile-mingw")
|
|
(native-inputs
|
|
`(("self" ,guile-3.0-patched)
|
|
,@(alist-delete "self" (package-native-inputs guile-3.0-patched))))
|
|
(propagated-inputs
|
|
`(("bdw-gc" ,libgc-mingw)
|
|
,@(alist-delete "bwd-gc" (package-propagated-inputs guile-3.0-patched))))
|
|
(arguments
|
|
`(#:tests? #f
|
|
#:strip-binaries? #f
|
|
,@(if (%current-target-system)
|
|
(substitute-keyword-arguments (package-arguments guile-3.0-patched)
|
|
((#:configure-flags flags '())
|
|
`(cons* "--disable-lto" ;breaks with binutils > 2.35.2
|
|
"--disable-jit"
|
|
"--enable-mini-gmp"
|
|
,flags))
|
|
((#:phases phases '%standard-phases)
|
|
`(modify-phases ,phases
|
|
(add-after 'unpack 'bootstrap
|
|
(lambda _
|
|
(invoke "sh" "autogen.sh")))
|
|
(add-after 'unpack 'patch-version-gen
|
|
(lambda _
|
|
(substitute* "build-aux/git-version-gen"
|
|
(("#!/bin/sh") (string-append "#! " (which "sh")))))))))
|
|
(package-arguments guile-3.0-patched))))))
|