| OLD | NEW |
| 1 @ECHO OFF | 1 @ECHO OFF |
| 2 | 2 |
| 3 :: | 3 :: |
| 4 :: GetTclKit.bat -- | 4 :: GetTclKit.bat -- |
| 5 :: | 5 :: |
| 6 :: TclKit Download Tool | 6 :: TclKit Download Tool |
| 7 :: | 7 :: |
| 8 | 8 |
| 9 SETLOCAL | 9 SETLOCAL |
| 10 | 10 |
| (...skipping 59 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 70 IF /I "%PROCESSOR%" == "x86" ( | 70 IF /I "%PROCESSOR%" == "x86" ( |
| 71 CALL :fn_TclKitX86Variables | 71 CALL :fn_TclKitX86Variables |
| 72 ) ELSE IF /I "%PROCESSOR%" == "x64" ( | 72 ) ELSE IF /I "%PROCESSOR%" == "x64" ( |
| 73 CALL :fn_TclKitX64Variables | 73 CALL :fn_TclKitX64Variables |
| 74 ) ELSE ( | 74 ) ELSE ( |
| 75 GOTO usage | 75 GOTO usage |
| 76 ) | 76 ) |
| 77 | 77 |
| 78 %_VECHO% TclKitVersion = '%TCLKIT_VERSION%' | 78 %_VECHO% TclKitVersion = '%TCLKIT_VERSION%' |
| 79 %_VECHO% TclKitPatchLevel = '%TCLKIT_PATCHLEVEL%' | 79 %_VECHO% TclKitPatchLevel = '%TCLKIT_PATCHLEVEL%' |
| 80 %_VECHO% TclKitNoEnv = '%TCLKIT_NOENV%' |
| 80 %_VECHO% TclKitNoSdk = '%TCLKIT_NOSDK%' | 81 %_VECHO% TclKitNoSdk = '%TCLKIT_NOSDK%' |
| 81 %_VECHO% TclKitExe = '%TCLKIT_EXE%' | 82 %_VECHO% TclKitExe = '%TCLKIT_EXE%' |
| 82 %_VECHO% TclKitLib = '%TCLKIT_LIB%' | 83 %_VECHO% TclKitLib = '%TCLKIT_LIB%' |
| 83 %_VECHO% TclKitLibStub = '%TCLKIT_LIB_STUB%' | 84 %_VECHO% TclKitLibStub = '%TCLKIT_LIB_STUB%' |
| 84 %_VECHO% TclKitSdk = '%TCLKIT_SDK%' | 85 %_VECHO% TclKitSdk = '%TCLKIT_SDK%' |
| 85 %_VECHO% TclKitSdkZip = '%TCLKIT_SDK_ZIP%' | 86 %_VECHO% TclKitSdkZip = '%TCLKIT_SDK_ZIP%' |
| 86 %_VECHO% TclKitFiles = '%TCLKIT_FILES%' | 87 %_VECHO% TclKitFiles = '%TCLKIT_FILES%' |
| 87 | 88 |
| 88 CALL :fn_ResetErrorLevel | 89 CALL :fn_ResetErrorLevel |
| 89 | 90 |
| (...skipping 50 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 140 IF NOT EXIST "%TEMP%\%%F" ( | 141 IF NOT EXIST "%TEMP%\%%F" ( |
| 141 %__ECHO% "%TEMP%\GetFile.exe" "%TCLKIT_URI%%%F" | 142 %__ECHO% "%TEMP%\GetFile.exe" "%TCLKIT_URI%%%F" |
| 142 | 143 |
| 143 IF ERRORLEVEL 1 ( | 144 IF ERRORLEVEL 1 ( |
| 144 ECHO Download of "%%F" from "%TCLKIT_URI%" failed. | 145 ECHO Download of "%%F" from "%TCLKIT_URI%" failed. |
| 145 GOTO errors | 146 GOTO errors |
| 146 ) | 147 ) |
| 147 ) | 148 ) |
| 148 ) | 149 ) |
| 149 | 150 |
| 151 IF DEFINED TCLKIT_NOENV GOTO skip_sdkUnZip |
| 150 IF DEFINED TCLKIT_NOSDK GOTO skip_sdkUnZip | 152 IF DEFINED TCLKIT_NOSDK GOTO skip_sdkUnZip |
| 151 | 153 |
| 152 IF NOT EXIST "%TEMP%\%TCLKIT_SDK%" ( | 154 IF NOT EXIST "%TEMP%\%TCLKIT_SDK%" ( |
| 153 %__ECHO% MKDIR "%TEMP%\%TCLKIT_SDK%" | 155 %__ECHO% MKDIR "%TEMP%\%TCLKIT_SDK%" |
| 154 | 156 |
| 155 IF ERRORLEVEL 1 ( | 157 IF ERRORLEVEL 1 ( |
| 156 ECHO Could not create directory "%TEMP%\%TCLKIT_SDK%". | 158 ECHO Could not create directory "%TEMP%\%TCLKIT_SDK%". |
| 157 GOTO errors | 159 GOTO errors |
| 158 ) | 160 ) |
| 159 ) | 161 ) |
| 160 | 162 |
| 161 %__ECHO% "%TEMP%\unzip.exe" -n "%TEMP%\%TCLKIT_SDK_ZIP%" -d "%TEMP%\%TCLKIT_SDK%
" | 163 %__ECHO% "%TEMP%\unzip.exe" -n "%TEMP%\%TCLKIT_SDK_ZIP%" -d "%TEMP%\%TCLKIT_SDK%
" |
| 162 | 164 |
| 163 IF ERRORLEVEL 1 ( | 165 IF ERRORLEVEL 1 ( |
| 164 ECHO Could not unzip "%TEMP%\%TCLKIT_SDK_ZIP%" to "%TEMP%\%TCLKIT_SDK%". | 166 ECHO Could not unzip "%TEMP%\%TCLKIT_SDK_ZIP%" to "%TEMP%\%TCLKIT_SDK%". |
| 165 GOTO errors | 167 GOTO errors |
| 166 ) | 168 ) |
| 167 | 169 |
| 168 :skip_sdkUnZip | 170 :skip_sdkUnZip |
| 169 | 171 |
| 172 IF DEFINED TCLKIT_NOENV GOTO skip_sdkEnvironment |
| 173 |
| 170 %__ECHO% ECHO SET TCLSH_CMD=%TEMP%\%TCLKIT_EXE%%OVERWRITE%"%ROOT%\SetTclKitEnv.b
at" | 174 %__ECHO% ECHO SET TCLSH_CMD=%TEMP%\%TCLKIT_EXE%%OVERWRITE%"%ROOT%\SetTclKitEnv.b
at" |
| 171 | 175 |
| 172 IF DEFINED TCLKIT_NOSDK GOTO skip_sdkVariables | 176 IF DEFINED TCLKIT_NOSDK GOTO skip_sdkVariables |
| 173 | 177 |
| 174 %__ECHO% ECHO SET TCLINCDIR=%TEMP%\%TCLKIT_SDK%\include%APPEND%"%ROOT%\SetTclKit
Env.bat" | 178 %__ECHO% ECHO SET TCLINCDIR=%TEMP%\%TCLKIT_SDK%\include%APPEND%"%ROOT%\SetTclKit
Env.bat" |
| 175 %__ECHO% ECHO SET TCLLIBDIR=%TEMP%\%TCLKIT_SDK%\lib%APPEND%"%ROOT%\SetTclKitEnv.
bat" | 179 %__ECHO% ECHO SET TCLLIBDIR=%TEMP%\%TCLKIT_SDK%\lib%APPEND%"%ROOT%\SetTclKitEnv.
bat" |
| 176 %__ECHO% ECHO SET LIBTCLPATH=%TEMP%\%TCLKIT_SDK%\lib%APPEND%"%ROOT%\SetTclKitEnv
.bat" | 180 %__ECHO% ECHO SET LIBTCLPATH=%TEMP%\%TCLKIT_SDK%\lib%APPEND%"%ROOT%\SetTclKitEnv
.bat" |
| 177 %__ECHO% ECHO SET LIBTCL=%TCLKIT_LIB%%APPEND%"%ROOT%\SetTclKitEnv.bat" | 181 %__ECHO% ECHO SET LIBTCL=%TCLKIT_LIB%%APPEND%"%ROOT%\SetTclKitEnv.bat" |
| 178 %__ECHO% ECHO SET LIBTCLSTUB=%TCLKIT_LIB_STUB%%APPEND%"%ROOT%\SetTclKitEnv.bat" | 182 %__ECHO% ECHO SET LIBTCLSTUB=%TCLKIT_LIB_STUB%%APPEND%"%ROOT%\SetTclKitEnv.bat" |
| 179 | 183 |
| 180 :skip_sdkVariables | 184 :skip_sdkVariables |
| 181 | 185 |
| 182 ECHO. | 186 ECHO. |
| 183 ECHO Wrote "%ROOT%\SetTclKitEnv.bat". | 187 ECHO Wrote "%ROOT%\SetTclKitEnv.bat". |
| 184 ECHO Please run it to set the necessary Tcl environment variables. | 188 ECHO Please run it to set the necessary Tcl environment variables. |
| 185 ECHO. | 189 ECHO. |
| 186 | 190 |
| 191 :skip_sdkEnvironment |
| 192 |
| 187 GOTO no_errors | 193 GOTO no_errors |
| 188 | 194 |
| 189 :fn_TclKitX86Variables | 195 :fn_TclKitX86Variables |
| 190 IF NOT DEFINED TCLKIT_PATCHLEVEL ( | 196 IF NOT DEFINED TCLKIT_PATCHLEVEL ( |
| 191 SET TCLKIT_PATCHLEVEL=8.6.4 | 197 SET TCLKIT_PATCHLEVEL=8.6.4 |
| 192 ) | 198 ) |
| 193 SET TCLKIT_VERSION=%TCLKIT_PATCHLEVEL:.=% | 199 SET TCLKIT_VERSION=%TCLKIT_PATCHLEVEL:.=% |
| 194 SET TCLKIT_VERSION=%TCLKIT_VERSION:~0,2% | 200 SET TCLKIT_VERSION=%TCLKIT_VERSION:~0,2% |
| 195 SET TCLKIT_EXE=tclkit-%TCLKIT_PATCHLEVEL%.exe | 201 SET TCLKIT_EXE=tclkit-%TCLKIT_PATCHLEVEL%.exe |
| 196 SET TCLKIT_LIB=libtclkit%TCLKIT_PATCHLEVEL:.=%.lib | 202 SET TCLKIT_LIB=libtclkit%TCLKIT_PATCHLEVEL:.=%.lib |
| 197 SET TCLKIT_LIB_STUB=libtclstub%TCLKIT_VERSION:.=%.a | 203 SET TCLKIT_LIB_STUB=libtclstub%TCLKIT_VERSION:.=%.a |
| 198 SET TCLKIT_SDK=libtclkit-sdk-x86-%TCLKIT_PATCHLEVEL% | 204 SET TCLKIT_SDK=libtclkit-sdk-x86-%TCLKIT_PATCHLEVEL% |
| 199 SET TCLKIT_SDK_ZIP=%TCLKIT_SDK%.zip | 205 SET TCLKIT_SDK_ZIP=%TCLKIT_SDK%.zip |
| 200 SET TCLKIT_FILES=%TCLKIT_EXE% | 206 SET TCLKIT_FILES=%TCLKIT_EXE% |
| 201 IF NOT DEFINED TCLKIT_NOSDK ( | 207 IF NOT DEFINED TCLKIT_NOENV IF NOT DEFINED TCLKIT_NOSDK ( |
| 202 SET TCLKIT_FILES=%TCLKIT_FILES% unzip.exe %TCLKIT_SDK_ZIP% | 208 SET TCLKIT_FILES=%TCLKIT_FILES% unzip.exe %TCLKIT_SDK_ZIP% |
| 203 ) | 209 ) |
| 204 GOTO :EOF | 210 GOTO :EOF |
| 205 | 211 |
| 206 :fn_TclKitX64Variables | 212 :fn_TclKitX64Variables |
| 207 IF NOT DEFINED TCLKIT_PATCHLEVEL ( | 213 IF NOT DEFINED TCLKIT_PATCHLEVEL ( |
| 208 REM | 214 REM |
| 209 REM NOTE: By default, use latest available version of the TclKit SDK | 215 REM NOTE: By default, use latest available version of the TclKit SDK |
| 210 REM for x64. However, the "default" TclKit executable for x86 | 216 REM for x64. However, the "default" TclKit executable for x86 |
| 211 REM is still used here because it is the only one "well-known" | 217 REM is still used here because it is the only one "well-known" |
| 212 REM to be available for download. | 218 REM to be available for download. |
| 213 REM | 219 REM |
| 214 SET TCLKIT_PATCHLEVEL=8.6.3 | 220 SET TCLKIT_PATCHLEVEL=8.6.3 |
| 215 SET TCLKIT_EXE=tclkit-8.6.4.exe | 221 SET TCLKIT_EXE=tclkit-8.6.4.exe |
| 216 ) ELSE ( | 222 ) ELSE ( |
| 217 SET TCLKIT_EXE=tclkit-%TCLKIT_PATCHLEVEL%.exe | 223 SET TCLKIT_EXE=tclkit-%TCLKIT_PATCHLEVEL%.exe |
| 218 ) | 224 ) |
| 219 SET TCLKIT_VERSION=%TCLKIT_PATCHLEVEL:.=% | 225 SET TCLKIT_VERSION=%TCLKIT_PATCHLEVEL:.=% |
| 220 SET TCLKIT_VERSION=%TCLKIT_VERSION:~0,2% | 226 SET TCLKIT_VERSION=%TCLKIT_VERSION:~0,2% |
| 221 SET TCLKIT_LIB=libtclkit%TCLKIT_PATCHLEVEL:.=%.lib | 227 SET TCLKIT_LIB=libtclkit%TCLKIT_PATCHLEVEL:.=%.lib |
| 222 SET TCLKIT_LIB_STUB=libtclstub%TCLKIT_VERSION:.=%.a | 228 SET TCLKIT_LIB_STUB=libtclstub%TCLKIT_VERSION:.=%.a |
| 223 SET TCLKIT_SDK=libtclkit-sdk-x64-%TCLKIT_PATCHLEVEL% | 229 SET TCLKIT_SDK=libtclkit-sdk-x64-%TCLKIT_PATCHLEVEL% |
| 224 SET TCLKIT_SDK_ZIP=%TCLKIT_SDK%.zip | 230 SET TCLKIT_SDK_ZIP=%TCLKIT_SDK%.zip |
| 225 SET TCLKIT_FILES=%TCLKIT_EXE% | 231 SET TCLKIT_FILES=%TCLKIT_EXE% |
| 226 IF NOT DEFINED TCLKIT_NOSDK ( | 232 IF NOT DEFINED TCLKIT_NOENV IF NOT DEFINED TCLKIT_NOSDK ( |
| 227 SET TCLKIT_FILES=%TCLKIT_FILES% unzip.exe %TCLKIT_SDK_ZIP% | 233 SET TCLKIT_FILES=%TCLKIT_FILES% unzip.exe %TCLKIT_SDK_ZIP% |
| 228 ) | 234 ) |
| 229 GOTO :EOF | 235 GOTO :EOF |
| 230 | 236 |
| 231 :fn_UnquoteVariable | 237 :fn_UnquoteVariable |
| 232 IF NOT DEFINED %1 GOTO :EOF | 238 IF NOT DEFINED %1 GOTO :EOF |
| 233 SETLOCAL | 239 SETLOCAL |
| 234 SET __ECHO_CMD=ECHO %%%1%% | 240 SET __ECHO_CMD=ECHO %%%1%% |
| 235 FOR /F "delims=" %%V IN ('%__ECHO_CMD%') DO ( | 241 FOR /F "delims=" %%V IN ('%__ECHO_CMD%') DO ( |
| 236 SET VALUE=%%V | 242 SET VALUE=%%V |
| (...skipping 27 matching lines...) Expand all Loading... |
| 264 | 270 |
| 265 :no_errors | 271 :no_errors |
| 266 CALL :fn_ResetErrorLevel | 272 CALL :fn_ResetErrorLevel |
| 267 ENDLOCAL | 273 ENDLOCAL |
| 268 ECHO. | 274 ECHO. |
| 269 ECHO Success, no errors were encountered. | 275 ECHO Success, no errors were encountered. |
| 270 GOTO end_of_file | 276 GOTO end_of_file |
| 271 | 277 |
| 272 :end_of_file | 278 :end_of_file |
| 273 %__ECHO% EXIT /B %ERRORLEVEL% | 279 %__ECHO% EXIT /B %ERRORLEVEL% |
| OLD | NEW |