@echo off
REM ClozureCL Start for Windows
echo =================================================
echo Common Lisp Environment Setup by Project Kinpira.
echo =================================================
echo .
echo EnvironmentValue Setup! -^> Start
REM カレントディレクトリをClozureCLのデフォルトディレクトリとして設定
REM ClozureCLの実行ファイルパスもPATHに追加する
REM 表示するプロンプトだけ有効にするため、SETXではなくSETで設定している
SET CCL_DEFAULT_DIRECTORY=%~dp0
SET PATH=%PATH%;%~dp0
echo CCL_DEFAULT_DIRECTORY -^> %CCL_DEFAULT_DIRECTORY%
REM このBATを実行した時だけ、userprofileをカレントディレクトリにする(他には何も影響しない)
SET userprofile=%~dp0
SET HOME=%~dp0
echo USERPROFILE -^> %USERPROFILE%
echo HOME -^> %HOME%
echo EnvironmentValue Setup! -^> End
echo .
echo ApplicationPath Setup! -^> Start
REM サードパーティアプリの実行パスもPATHに含める(共通部)
SET PATH=%PATH%;%~dp0\third_party_tools\graphviz-2.38\release\bin
SET PATH=%PATH%;%~dp0\third_party_tools\xyzzy
SET PATH=%PATH%;%~dp0\third_party_tools\emacs\bin
echo Graphviz2.38 -^> OK
echo XYZZY -^> OK
echo Emacs24 -^> OK
REM サードパーティアプリの実行パスもPATHに含める(Windowsバージョン別)
ver | find /i "Version 5.1." > nul
if %ERRORLEVEL% equ 0 GOTO :WINXP
ver | find /i "Version 6.1." > nul
if %ERRORLEVEL% equ 0 GOTO :WIN7
ver | find /i "Version 6.3." > nul
if %ERRORLEVEL% equ 0 GOTO :WIN8.1
ver | find /i "Version 10.0." > nul
if %ERRORLEVEL% equ 0 GOTO :WIN10
goto :END
:WINXP
SET PATH=%PATH%;%~dp0\third_party_tools\Tcl_WinXP\bin
goto END
:WIN7
SET PATH=%PATH%;%~dp0\third_party_tools\Tcl_Win7\bin
goto END
:WIN8.1
SET PATH=%PATH%;%~dp0\third_party_tools\Tcl_Win7\bin
goto END
:WIN10
SET PATH=%PATH%;%~dp0\third_party_tools\Tcl_Win7\bin
goto END
echo Tcl/TK -^> OK
echo ApplicationPath Setup! -^> End
echo .
:END
echo QuickLisp Library List -^> Start!
dir %~dp0\quicklisp\dists\quicklisp\software
echo QuickLisp Library List -^> End
echo .
echo ===== Usage =====
echo Emacs起動 -^> runemacs
echo XYZZY起動 -^> xyzzy
echo
REM ClozureCL起動
REM wx86cl.exe