[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 12/12: DEBUG guile.cmd, wine-guile.sh: Some Wine help.
From: |
Jan Nieuwenhuizen |
Subject: |
[Guile-commits] 12/12: DEBUG guile.cmd, wine-guile.sh: Some Wine help. |
Date: |
Mon, 30 Aug 2021 10:06:05 -0400 (EDT) |
janneke pushed a commit to branch wip-mingw
in repository guile.
commit 3b44eb390de14071037cb4099d3c5022f5f13f5a
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Mon Mar 15 15:46:17 2021 +0100
DEBUG guile.cmd, wine-guile.sh: Some Wine help.
Try:
wine cmd /c guile -c '(display "hello\n")'
./check-guile -i ./wine-guile.sh numbers.test
* guile.cmd,
wine-guile.sh: New files.
---
guile.cmd | 26 ++++++++++++++++++++++++++
wine-guile.sh | 2 ++
2 files changed, 28 insertions(+)
diff --git a/guile.cmd b/guile.cmd
new file mode 100644
index 0000000..c16bee7
--- /dev/null
+++ b/guile.cmd
@@ -0,0 +1,26 @@
+@echo off
+setlocal
+if not exist tmp mkdir tmp
+set LANG=C
+set LC_ALL=C
+set LC_CTYPE=C
+set TMPDIR=tmp
+set dir=.
+set absdir=%~p0
+set PREFIX=%absdir:\=/%
+set GUILE_AUTO_COMPILE=0
+rem set
GUILE_LOAD_PATH=%GUILE_LOAD_PATH%;%dir%/share/guile/site/3.0;%dir%/share/guile/3.0
+rem #set
GUILE_LOAD_COMPILED_PATH=%GUILE_LOAD_COMPILED_PATH%;%dir%/lib/guile/3.0/site-ccache;%dir%/lib/guile/3.0/ccache
+set GUILE_LOAD_PATH=%GUILE_LOAD_PATH%;%dir%/module
+set GUILE_LOAD_COMPILED_PATH=%GUILE_LOAD_COMPILED_PATH%;%dir%/module
+set HOME=%USERPROFILE%
+
+set LIBRARY_PATH=%LIBRARY_PATH::=;%;
+set LIBRARY_PATH_CROSS_LIB=%LIBRARY_PATH:/lib;=/x86_64-w64-mingw32/lib;%
+
+set CROSS_LIBRARY_PATH=%CROSS_LIBRARY_PATH::=;%;
+set CROSS_LIBRARY_PATH_BIN=%CROSS_LIBRARY_PATH:/lib;=/bin;%
+set WINELOADERNOEXEC=0
+
+set
PATH=%~p0/libguile/.libs;%PATH%;%LIBRARY_PATH_CROSS_LIB%;%CROSS_LIBRARY_PATH%;%CROSS_LIBRARY_PATH_BIN%;
+guile.exe %*
diff --git a/wine-guile.sh b/wine-guile.sh
new file mode 100755
index 0000000..60ba312
--- /dev/null
+++ b/wine-guile.sh
@@ -0,0 +1,2 @@
+#! /bin/sh
+wine cmd /c guile.cmd "$@"
- [Guile-commits] branch wip-mingw created (now 3b44eb3), Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 01/12: gnulib: Import the gethostname module., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 02/12: Link fix for MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 04/12: Clear errno before CreateProcess for MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 03/12: Fix 'absolute-file-name?' and others for cross-build to MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 06/12: Install 'mingw_take_signal' on MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 09/12: DRAFT Make `read-bytes' suspendable for socket reads on MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 08/12: Support for x86_64-w64-mingw32., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 05/12: Add 'set-port-binary/text-mode!' procedure for MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 12/12: DEBUG guile.cmd, wine-guile.sh: Some Wine help.,
Jan Nieuwenhuizen <=
- [Guile-commits] 10/12: DRAFT Add partial `scm_fcntl' support for MinGW., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 11/12: guix: Add guile-patched, guile-mingw., Jan Nieuwenhuizen, 2021/08/30
- [Guile-commits] 07/12: Add `scm_sigaction_for_thread' stub for MinGW., Jan Nieuwenhuizen, 2021/08/30