[gambit-list] [patch] Auto-configure installation directory on Windows

The following patch obviates the need for a native Windows build to patch the built Gambit binary with the actual installation directory (GAMBCDIR in previous versions of the Makefile). It also includes a script to build Gambit on Visual Studio 2008 Professional, trivially forked from the existing script for VS2005 Express.

The patch is against the most recent v 4.4.0.

*** C:/Program Files/Gambit-C/v4.4.0/lib/os.h- Thu Nov 27 04:20:03 2008 --- C:/Program Files/Gambit-C/v4.4.0/lib/os.h Sat Jan 10 17:15:53 2009 *************** *** 1,4 **** ! /* File: "os.h", Time-stamp: <2008-09-03 16:32:13 feeley> */

/* Copyright (c) 1994-2008 by Marc Feeley, All Rights Reserved. */

--- 1,4 ---- ! /* File: "os.h", Time-stamp: <2009-01-10 17:15:53> */

/* Copyright (c) 1994-2008 by Marc Feeley, All Rights Reserved. */

*************** *** 228,233 **** --- 228,234 ---- #define USE_SetEnvironmentVariable #define USE_WSAGetLastError #define USE_GetConsoleWindow + #define USE_GetModuleFileName

#define HAVE_CLOCK 1 #define HAVE_CREATETHREAD 1

*** C:/Program Files/Gambit-C/v4.4.0/lib/os_files.c- Tue Dec 23 06:21:06 2008 --- C:/Program Files/Gambit-C/v4.4.0/lib/os_files.c Sun Jan 11 03:02:49 2009 *************** *** 1,4 **** ! /* File: "os_files.c", Time-stamp: <2008-12-17 00:20:01 feeley> */

/* Copyright (c) 1994-2008 by Marc Feeley, All Rights Reserved. */

--- 1,4 ---- ! /* File: "os_files.c", Time-stamp: <2009-01-11 03:02:49> */

/* Copyright (c) 1994-2008 by Marc Feeley, All Rights Reserved. */

*************** *** 506,511 **** --- 506,557 ---- ___SCMOBJ e; ___SCMOBJ result;

+ #ifndef ___GAMBCDIR + # ifdef USE_GetModuleFileName + if (___setup_params.gambcdir == 0) + { + ___CHAR_TYPE(___PATH_CE_SELECT) temp[___PATH_MAX_LENGTH+1]; + DWORD n; + + n = GetModuleFileName(NULL, temp, ___PATH_MAX_LENGTH+1); + if (n > 0) + { + int cch; + ___UCS_2STRING gambcdir = 0; + /* remove filename */ + *(_tcsrchr(temp, '\')) = 0; + /* remove bin subdirectory, if present */ + cch = _tcslen(temp); + if (cch > 7) /* e.g. C:\x\bin */ + { + if (0 == _tcsicmp(temp+cch-4, _T("\bin"))) + { + cch -= 4; + *(temp+cch) = '\0'; + } + } + + gambcdir = ___CAST(___UCS_2STRING, + ___alloc_mem ((cch+1) * sizeof (___UCS_2))); + if (gambcdir == 0) + { + e = ___FIX(___HEAP_OVERFLOW_ERR); + return e; + } + else + { + #ifdef _UNICODE + _tcscpy(gambcdir, temp); + #else + mbstowcs(gambcdir, temp, cch); + #endif + ___setup_params.gambcdir = gambcdir; + } + } + } + # endif + #endif + if (___setup_params.gambcdir != 0) { if ((e = ___NONNULLUCS_2STRING_to_SCMOBJ *************** *** 530,535 **** --- 576,582 ---- #endif

#ifdef USE_WIN32 + /* Will only be used if GetModuleFileName path fails */ #define ___GAMBCDIR "c:\Gambit-C\" STRINGIFY2(___VERSION) #endif

@rem File: "vc2008.cmd" @rem @rem This is a batch file to compile Gambit with the Microsoft Visual @rem C++ 2008 Professional Edition. It probably will work with the Express Edition as well. @rem @rem TODO: turn this into a makefile

@rem Setup environment variables setlocal

@call "C:\Program Files\Microsoft Visual Studio 9.0\VC\bin\vcvars32.bat"

@rem We can't use -D___SINGLE_HOST for all Gambit generated C files @rem because the C compiler runs out of memory while compiling _num.c @rem and _io.c .

set COMP_GEN=cl -nologo -Oityb1 -Zi -GS -RTC1 -MT -D_CRT_SECURE_NO_DEPRECATE -c -I..\include -D___SYS_TYPE_CPU="i686" -D___SYS_TYPE_VENDOR="pc" -D___SYS_TYPE_OS="visualc" set COMP_LIB_MH=%COMP_GEN% -D___LIBRARY set COMP_LIB_PR_MH=%COMP_LIB_MH% -D___PRIMAL set COMP_LIB=%COMP_LIB_MH% -D___SINGLE_HOST set COMP_LIB_PR=%COMP_LIB_PR_MH% -D___SINGLE_HOST set COMP_APP=%COMP_GEN% -D___SINGLE_HOST

@rem We can't rely on sed being available so we generate gambit.h @rem from gambit.h.in by prefixing it with the needed declarations.

echo #ifndef ___VOIDSTAR_WIDTH > include\gambit.h echo #define ___VOIDSTAR_WIDTH ___LONG_WIDTH >> include\gambit.h echo #endif >> include\gambit.h echo #ifndef ___MAX_CHR >> include\gambit.h echo #define ___MAX_CHR 0x10ffff >> include\gambit.h echo #endif >> include\gambit.h type include\gambit.h.in >> include\gambit.h

cd lib

%COMP_LIB_PR% main.c %COMP_LIB_PR% setup.c %COMP_LIB_PR% mem.c %COMP_LIB_PR% os.c %COMP_LIB_PR% os_base.c %COMP_LIB_PR% os_time.c %COMP_LIB_PR% os_shell.c %COMP_LIB_PR% os_files.c %COMP_LIB_PR% os_dyn.c %COMP_LIB_PR% os_tty.c %COMP_LIB_PR% os_io.c %COMP_LIB_PR% c_intf.c

%COMP_LIB_PR% _kernel.c %COMP_LIB_PR% _system.c %COMP_LIB_PR_MH% _num.c %COMP_LIB_PR% _std.c %COMP_LIB_PR% _eval.c %COMP_LIB_PR_MH% _io.c %COMP_LIB_PR% _nonstd.c %COMP_LIB_PR% _thread.c %COMP_LIB_PR% _repl.c

%COMP_LIB_PR% _gambc.c

lib -out:libgambc.lib main.obj setup.obj mem.obj os.obj os_base.obj os_time.obj os_shell.obj os_files.obj os_dyn.obj os_tty.obj os_io.obj c_intf.obj _kernel.obj _system.obj _num.obj _std.obj _eval.obj _io.obj _nonstd.obj _thread.obj _repl.obj _gambc.obj

cd ..

cd gsi

%COMP_LIB% _gsilib.c %COMP_LIB% _gambcgsi.c %COMP_APP% _gsi.c %COMP_APP% _gsi_.c

cl -Fegsi.exe ..\lib\libgambc.lib _gsilib.obj _gambcgsi.obj _gsi.obj _gsi_.obj Kernel32.Lib User32.Lib Gdi32.Lib WS2_32.Lib

cd ..

cd gsc

%COMP_LIB% _host.c %COMP_LIB% _utils.c %COMP_LIB% _source.c %COMP_LIB% _parms.c %COMP_LIB% _env.c %COMP_LIB% _ptree1.c %COMP_LIB% _ptree2.c %COMP_LIB% _gvm.c %COMP_LIB% _back.c %COMP_LIB% _front.c %COMP_LIB% _prims.c %COMP_LIB% _t-c-1.c %COMP_LIB% _t-c-2.c %COMP_LIB% _t-c-3.c %COMP_LIB% _gsclib.c %COMP_LIB% _gambcgsc.c %COMP_APP% _gsc.c %COMP_APP% _gsc_.c

cl -Fegsc.exe ..\lib\libgambc.lib _host.obj _utils.obj _source.obj _parms.obj _env.obj _ptree1.obj _ptree2.obj _gvm.obj _back.obj _front.obj _prims.obj _t-c-1.obj _t-c-2.obj _t-c-3.obj _gsclib.obj _gambcgsc.obj _gsc.obj _gsc_.obj Kernel32.Lib User32.Lib Gdi32.Lib WS2_32.Lib

cd ..

cd bin

echo @echo off> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo rem Script parameters are passed in the following environment variables:>> gsc-cc-o.bat echo rem GSC_CC_O_GAMBCDIR>> gsc-cc-o.bat echo rem GSC_CC_O_OBJ_FILENAME>> gsc-cc-o.bat echo rem GSC_CC_O_C_FILENAME_DIR>> gsc-cc-o.bat echo rem GSC_CC_O_C_FILENAME_BASE>> gsc-cc-o.bat echo rem GSC_CC_O_CC_OPTIONS>> gsc-cc-o.bat echo rem GSC_CC_O_LD_OPTIONS_PRELUDE>> gsc-cc-o.bat echo rem GSC_CC_O_LD_OPTIONS>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo rem echo GSC_CC_O_GAMBCDIR = %%GSC_CC_O_GAMBCDIR%%>> gsc-cc-o.bat echo rem echo GSC_CC_O_OBJ_FILENAME = %%GSC_CC_O_OBJ_FILENAME%%>> gsc-cc-o.bat echo rem echo GSC_CC_O_C_FILENAME_DIR = %%GSC_CC_O_C_FILENAME_DIR%%>> gsc-cc-o.bat echo rem echo GSC_CC_O_C_FILENAME_BASE = %%GSC_CC_O_C_FILENAME_BASE%%>> gsc-cc-o.bat echo rem echo GSC_CC_O_CC_OPTIONS = %%GSC_CC_O_CC_OPTIONS%%>> gsc-cc-o.bat echo rem echo GSC_CC_O_LD_OPTIONS_PRELUDE = %%GSC_CC_O_LD_OPTIONS_PRELUDE%%>> gsc-cc-o.bat echo rem echo GSC_CC_O_LD_OPTIONS = %%GSC_CC_O_LD_OPTIONS%%>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo for %%%%f in (cl.exe gcc.exe wcl386.exe) do if not "%%%%~$PATH:f" == "" goto use_%%%%%%f>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo echo gcc.exe, wcl386.exe and cl.exe were not found in the PATH. Make sure MinGW, OpenWatcom or Visual C++ Express is installed.>> gsc-cc-o.bat echo exit 1 >> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo :use_gcc.exe>> gsc-cc-o.bat echo cd "%GSC_CC_O_C_FILENAME_DIR%">> gsc-cc-o.bat echo gcc.exe -mno-cygwin -Wall -W -Wno-unused -O1 -fno-math-errno -fschedule-insns2 -fno-trapping-math -fno-strict-aliasing -fwrapv -fno-common -mieee-fp -shared -I"%%GSC_CC_O_GAMBCDIR%%include" -D___DYNAMIC -D___SINGLE_HOST -o "%%GSC_CC_O_OBJ_FILENAME%%" %%GSC_CC_O_CC_OPTIONS%% %%GSC_CC_O_LD_OPTIONS_PRELUDE%% "%%GSC_CC_O_C_FILENAME_BASE%%" %%GSC_CC_O_LD_OPTIONS%%>> gsc-cc-o.bat echo goto end>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo :use_wcl386.exe>> gsc-cc-o.bat echo cd "%GSC_CC_O_C_FILENAME_DIR%">> gsc-cc-o.bat echo wcl386.exe -w0 -zp4 -zq -obetir -bm -3r -bt=nt -mf -bd -I"%%GSC_CC_O_GAMBCDIR%%include" -D___DYNAMIC -D___SINGLE_HOST -l=nt_dll -fe="%%GSC_CC_O_OBJ_FILENAME%%" %%GSC_CC_O_CC_OPTIONS%% %%GSC_CC_O_LD_OPTIONS_PRELUDE%% "%%GSC_CC_O_C_FILENAME_BASE%%" %%GSC_CC_O_LD_OPTIONS%%>> gsc-cc-o.bat echo goto end>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo :use_cl.exe>> gsc-cc-o.bat echo cd "%GSC_CC_O_C_FILENAME_DIR%">> gsc-cc-o.bat echo cl.exe -nologo -Oityb1 -MT -D_CRT_SECURE_NO_DEPRECATE -LD -I"%%GSC_CC_O_GAMBCDIR%%include" -D___DYNAMIC -D___SINGLE_HOST -Fe"%%GSC_CC_O_OBJ_FILENAME%%" %%GSC_CC_O_CC_OPTIONS%% %%GSC_CC_O_LD_OPTIONS_PRELUDE%% "%%GSC_CC_O_C_FILENAME_BASE%%" %%GSC_CC_O_LD_OPTIONS%%>> gsc-cc-o.bat echo goto end>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo :use_build_time_c_compiler>> gsc-cc-o.bat echo cd "%GSC_CC_O_C_FILENAME_DIR%">> gsc-cc-o.bat echo gcc.exe -mno-cygwin -Wall -W -Wno-unused -O1 -fno-math-errno -fschedule-insns2 -fno-trapping-math -fno-strict-aliasing -fwrapv -fno-common -mieee-fp -shared -I"%%GSC_CC_O_GAMBCDIR%%include" -D___DYNAMIC -D___SINGLE_HOST -o "%%GSC_CC_O_OBJ_FILENAME%%" %%GSC_CC_O_CC_OPTIONS%% %%GSC_CC_O_LD_OPTIONS_PRELUDE%% "%%GSC_CC_O_C_FILENAME_BASE%%" %%GSC_CC_O_LD_OPTIONS%%>> gsc-cc-o.bat echo goto end>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo :end>> gsc-cc-o.bat echo.>> gsc-cc-o.bat echo exit>> gsc-cc-o.bat

cd ..