janneke pushed a commit to branch wip-mingw in repository guile. commit 3b44eb390de14071037cb4099d3c5022f5f13f5a Author: Jan (janneke) Nieuwenhuizen <jann...@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 "$@"