mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
2c957102ce
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-patched.scm,
guix/mingw.scm: New files.
72 lines
2.9 KiB
Scheme
72 lines
2.9 KiB
Scheme
;;; Dezyne --- Dezyne command line tools
|
|
;;;
|
|
;;; Copyright © 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 (guile-patched)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages autotools)
|
|
#:use-module (gnu packages flex)
|
|
#:use-module (gnu packages gettext)
|
|
#:use-module (gnu packages gperf)
|
|
#:use-module (gnu packages guile)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages texinfo)
|
|
#:use-module (guix build utils)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils))
|
|
|
|
(define-public guile-3.0-patched
|
|
(let ((commit "4b3162a9c3945d532d239b703a434500f45c14c6")
|
|
(revision "18"))
|
|
(package
|
|
(inherit guile-3.0-latest)
|
|
(name "guile-patched")
|
|
(version (string-append "3.0.8" "-" revision "." (string-take commit 7)))
|
|
(native-inputs
|
|
`(("autoconf" ,autoconf)
|
|
("automake" ,automake)
|
|
("libtool" ,libtool)
|
|
("flex" ,flex)
|
|
("texinfo" ,texinfo)
|
|
("gettext" ,gettext-minimal)
|
|
("gperf" ,gperf)
|
|
,@(package-native-inputs guile-3.0-latest)))
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://git.savannah.gnu.org/git/guile.git")
|
|
(commit commit)))
|
|
(file-name (string-append name "-" version "-checkout"))
|
|
(sha256
|
|
(base32
|
|
"1ln9qv3r50w8ilv3iw70mqpvgb0gnip7sdxss7i7crg25wwlrs3f"))))
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments guile-3.0-latest)
|
|
((#:phases phases '%standard-phases)
|
|
`(modify-phases ,phases
|
|
(add-after 'unpack 'disable-some-tests
|
|
(lambda _
|
|
(delete-file "test-suite/tests/asyncs.test")
|
|
(delete-file "test-suite/tests/ftw.test")
|
|
(delete-file "test-suite/tests/suspendable-ports.test")
|
|
(substitute* "test-suite/standalone/Makefile.am"
|
|
(("check_SCRIPTS \\+= test-out-of-memory" all)
|
|
(string-append "# " all))
|
|
(("TESTS \\+= test-out-of-memory" all)
|
|
(string-append "# " all))))))))))))
|