mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 20:20:20 +02:00
Code Activity

DEBUG guile.cmd, wine-guile.sh: Some Wine help.

Browse source 
Try:

    wine cmd /c guile -c '(display "hello\n")'
    ./check-guile -i ./wine-guile.sh numbers.test

* guile.cmd,
wine-guile.sh: New files.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2021-03-15 15:46:17 +01:00 • committed by Michael Gran
parent be78f55238
commit eec610141b
2 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
guile.cmd Normal file
View file

@ -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 %*

2
wine-guile.sh Executable file
View file

@ -0,0 +1,2 @@
#! /bin/sh
wine cmd /c guile.cmd "$@"