OLD | NEW |
| (Empty) |
1 @ECHO OFF | |
2 | |
3 :: | |
4 :: GetTclKit.bat -- | |
5 :: | |
6 :: TclKit Download Tool | |
7 :: | |
8 | |
9 SETLOCAL | |
10 | |
11 REM SET __ECHO=ECHO | |
12 REM SET __ECHO2=ECHO | |
13 REM SET __ECHO3=ECHO | |
14 IF NOT DEFINED _AECHO (SET _AECHO=REM) | |
15 IF NOT DEFINED _CECHO (SET _CECHO=REM) | |
16 IF NOT DEFINED _VECHO (SET _VECHO=REM) | |
17 | |
18 SET OVERWRITE=^> | |
19 IF DEFINED __ECHO SET OVERWRITE=^^^> | |
20 | |
21 SET APPEND=^>^> | |
22 IF DEFINED __ECHO SET APPEND=^^^>^^^> | |
23 | |
24 SET PROCESSOR=%1 | |
25 | |
26 IF DEFINED PROCESSOR ( | |
27 CALL :fn_UnquoteVariable PROCESSOR | |
28 ) ELSE ( | |
29 GOTO usage | |
30 ) | |
31 | |
32 %_VECHO% Processor = '%PROCESSOR%' | |
33 | |
34 SET DUMMY2=%2 | |
35 | |
36 IF DEFINED DUMMY2 ( | |
37 GOTO usage | |
38 ) | |
39 | |
40 SET ROOT=%~dp0\.. | |
41 SET ROOT=%ROOT:\\=\% | |
42 | |
43 %_VECHO% Root = '%ROOT%' | |
44 | |
45 SET TOOLS=%~dp0 | |
46 SET TOOLS=%TOOLS:~0,-1% | |
47 | |
48 %_VECHO% Tools = '%TOOLS%' | |
49 | |
50 IF NOT DEFINED windir ( | |
51 ECHO The windir environment variable must be set first. | |
52 GOTO errors | |
53 ) | |
54 | |
55 %_VECHO% WinDir = '%windir%' | |
56 | |
57 IF NOT DEFINED TEMP ( | |
58 ECHO The TEMP environment variable must be set first. | |
59 GOTO errors | |
60 ) | |
61 | |
62 %_VECHO% Temp = '%TEMP%' | |
63 | |
64 IF NOT DEFINED TCLKIT_URI ( | |
65 SET TCLKIT_URI=https://tclsh.com/ | |
66 ) | |
67 | |
68 %_VECHO% TclKitUri = '%TCLKIT_URI%' | |
69 | |
70 IF /I "%PROCESSOR%" == "x86" ( | |
71 CALL :fn_TclKitX86Variables | |
72 ) ELSE IF /I "%PROCESSOR%" == "x64" ( | |
73 CALL :fn_TclKitX64Variables | |
74 ) ELSE ( | |
75 GOTO usage | |
76 ) | |
77 | |
78 %_VECHO% TclKitVersion = '%TCLKIT_VERSION%' | |
79 %_VECHO% TclKitPatchLevel = '%TCLKIT_PATCHLEVEL%' | |
80 %_VECHO% TclKitNoSdk = '%TCLKIT_NOSDK%' | |
81 %_VECHO% TclKitExe = '%TCLKIT_EXE%' | |
82 %_VECHO% TclKitLib = '%TCLKIT_LIB%' | |
83 %_VECHO% TclKitLibStub = '%TCLKIT_LIB_STUB%' | |
84 %_VECHO% TclKitSdk = '%TCLKIT_SDK%' | |
85 %_VECHO% TclKitSdkZip = '%TCLKIT_SDK_ZIP%' | |
86 %_VECHO% TclKitFiles = '%TCLKIT_FILES%' | |
87 | |
88 CALL :fn_ResetErrorLevel | |
89 | |
90 FOR %%T IN (csc.exe) DO ( | |
91 SET %%T_PATH=%%~dp$PATH:T | |
92 ) | |
93 | |
94 %_VECHO% Csc.exe_PATH = '%csc.exe_PATH%' | |
95 | |
96 IF DEFINED csc.exe_PATH ( | |
97 GOTO skip_addToPath | |
98 ) | |
99 | |
100 IF DEFINED FRAMEWORKDIR ( | |
101 REM Use the existing .NET Framework directory... | |
102 ) ELSE IF EXIST "%windir%\Microsoft.NET\Framework64\v2.0.50727" ( | |
103 SET FRAMEWORKDIR=%windir%\Microsoft.NET\Framework64\v2.0.50727 | |
104 ) ELSE IF EXIST "%windir%\Microsoft.NET\Framework64\v3.5" ( | |
105 SET FRAMEWORKDIR=%windir%\Microsoft.NET\Framework64\v3.5 | |
106 ) ELSE IF EXIST "%windir%\Microsoft.NET\Framework64\v4.0.30319" ( | |
107 SET FRAMEWORKDIR=%windir%\Microsoft.NET\Framework64\v4.0.30319 | |
108 ) ELSE IF EXIST "%windir%\Microsoft.NET\Framework\v2.0.50727" ( | |
109 SET FRAMEWORKDIR=%windir%\Microsoft.NET\Framework\v2.0.50727 | |
110 ) ELSE IF EXIST "%windir%\Microsoft.NET\Framework\v3.5" ( | |
111 SET FRAMEWORKDIR=%windir%\Microsoft.NET\Framework\v3.5 | |
112 ) ELSE IF EXIST "%windir%\Microsoft.NET\Framework\v4.0.30319" ( | |
113 SET FRAMEWORKDIR=%windir%\Microsoft.NET\Framework\v4.0.30319 | |
114 ) ELSE ( | |
115 ECHO No suitable version of the .NET Framework appears to be installed. | |
116 GOTO errors | |
117 ) | |
118 | |
119 %_VECHO% FrameworkDir = '%FRAMEWORKDIR%' | |
120 | |
121 IF NOT EXIST "%FRAMEWORKDIR%\csc.exe" ( | |
122 ECHO The file "%FRAMEWORKDIR%\csc.exe" is missing. | |
123 GOTO errors | |
124 ) | |
125 | |
126 SET PATH=%FRAMEWORKDIR%;%PATH% | |
127 | |
128 :skip_addToPath | |
129 | |
130 IF NOT EXIST "%TEMP%\GetFile.exe" ( | |
131 %__ECHO% csc.exe "/out:%TEMP%\GetFile.exe" /target:exe "%TOOLS%\GetFile.cs" | |
132 | |
133 IF ERRORLEVEL 1 ( | |
134 ECHO Compilation of "%TOOLS%\GetFile.cs" failed. | |
135 GOTO errors | |
136 ) | |
137 ) | |
138 | |
139 FOR %%F IN (%TCLKIT_FILES%) DO ( | |
140 IF NOT EXIST "%TEMP%\%%F" ( | |
141 %__ECHO% "%TEMP%\GetFile.exe" "%TCLKIT_URI%%%F" | |
142 | |
143 IF ERRORLEVEL 1 ( | |
144 ECHO Download of "%%F" from "%TCLKIT_URI%" failed. | |
145 GOTO errors | |
146 ) | |
147 ) | |
148 ) | |
149 | |
150 IF DEFINED TCLKIT_NOSDK GOTO skip_sdkUnZip | |
151 | |
152 IF NOT EXIST "%TEMP%\%TCLKIT_SDK%" ( | |
153 %__ECHO% MKDIR "%TEMP%\%TCLKIT_SDK%" | |
154 | |
155 IF ERRORLEVEL 1 ( | |
156 ECHO Could not create directory "%TEMP%\%TCLKIT_SDK%". | |
157 GOTO errors | |
158 ) | |
159 ) | |
160 | |
161 %__ECHO% "%TEMP%\unzip.exe" -n "%TEMP%\%TCLKIT_SDK_ZIP%" -d "%TEMP%\%TCLKIT_SDK%
" | |
162 | |
163 IF ERRORLEVEL 1 ( | |
164 ECHO Could not unzip "%TEMP%\%TCLKIT_SDK_ZIP%" to "%TEMP%\%TCLKIT_SDK%". | |
165 GOTO errors | |
166 ) | |
167 | |
168 :skip_sdkUnZip | |
169 | |
170 %__ECHO% ECHO SET TCLSH_CMD=%TEMP%\%TCLKIT_EXE%%OVERWRITE%"%ROOT%\SetTclKitEnv.b
at" | |
171 | |
172 IF DEFINED TCLKIT_NOSDK GOTO skip_sdkVariables | |
173 | |
174 %__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" | |
176 %__ECHO% ECHO SET LIBTCLPATH=%TEMP%\%TCLKIT_SDK%\lib%APPEND%"%ROOT%\SetTclKitEnv
.bat" | |
177 %__ECHO% ECHO SET LIBTCL=%TCLKIT_LIB%%APPEND%"%ROOT%\SetTclKitEnv.bat" | |
178 %__ECHO% ECHO SET LIBTCLSTUB=%TCLKIT_LIB_STUB%%APPEND%"%ROOT%\SetTclKitEnv.bat" | |
179 | |
180 :skip_sdkVariables | |
181 | |
182 ECHO. | |
183 ECHO Wrote "%ROOT%\SetTclKitEnv.bat". | |
184 ECHO Please run it to set the necessary Tcl environment variables. | |
185 ECHO. | |
186 | |
187 GOTO no_errors | |
188 | |
189 :fn_TclKitX86Variables | |
190 IF NOT DEFINED TCLKIT_PATCHLEVEL ( | |
191 SET TCLKIT_PATCHLEVEL=8.6.4 | |
192 ) | |
193 SET TCLKIT_VERSION=%TCLKIT_PATCHLEVEL:.=% | |
194 SET TCLKIT_VERSION=%TCLKIT_VERSION:~0,2% | |
195 SET TCLKIT_EXE=tclkit-%TCLKIT_PATCHLEVEL%.exe | |
196 SET TCLKIT_LIB=libtclkit%TCLKIT_PATCHLEVEL:.=%.lib | |
197 SET TCLKIT_LIB_STUB=libtclstub%TCLKIT_VERSION:.=%.a | |
198 SET TCLKIT_SDK=libtclkit-sdk-x86-%TCLKIT_PATCHLEVEL% | |
199 SET TCLKIT_SDK_ZIP=%TCLKIT_SDK%.zip | |
200 SET TCLKIT_FILES=%TCLKIT_EXE% | |
201 IF NOT DEFINED TCLKIT_NOSDK ( | |
202 SET TCLKIT_FILES=%TCLKIT_FILES% unzip.exe %TCLKIT_SDK_ZIP% | |
203 ) | |
204 GOTO :EOF | |
205 | |
206 :fn_TclKitX64Variables | |
207 IF NOT DEFINED TCLKIT_PATCHLEVEL ( | |
208 REM | |
209 REM NOTE: By default, use latest available version of the TclKit SDK | |
210 REM for x64. However, the "default" TclKit executable for x86 | |
211 REM is still used here because it is the only one "well-known" | |
212 REM to be available for download. | |
213 REM | |
214 SET TCLKIT_PATCHLEVEL=8.6.3 | |
215 SET TCLKIT_EXE=tclkit-8.6.4.exe | |
216 ) ELSE ( | |
217 SET TCLKIT_EXE=tclkit-%TCLKIT_PATCHLEVEL%.exe | |
218 ) | |
219 SET TCLKIT_VERSION=%TCLKIT_PATCHLEVEL:.=% | |
220 SET TCLKIT_VERSION=%TCLKIT_VERSION:~0,2% | |
221 SET TCLKIT_LIB=libtclkit%TCLKIT_PATCHLEVEL:.=%.lib | |
222 SET TCLKIT_LIB_STUB=libtclstub%TCLKIT_VERSION:.=%.a | |
223 SET TCLKIT_SDK=libtclkit-sdk-x64-%TCLKIT_PATCHLEVEL% | |
224 SET TCLKIT_SDK_ZIP=%TCLKIT_SDK%.zip | |
225 SET TCLKIT_FILES=%TCLKIT_EXE% | |
226 IF NOT DEFINED TCLKIT_NOSDK ( | |
227 SET TCLKIT_FILES=%TCLKIT_FILES% unzip.exe %TCLKIT_SDK_ZIP% | |
228 ) | |
229 GOTO :EOF | |
230 | |
231 :fn_UnquoteVariable | |
232 IF NOT DEFINED %1 GOTO :EOF | |
233 SETLOCAL | |
234 SET __ECHO_CMD=ECHO %%%1%% | |
235 FOR /F "delims=" %%V IN ('%__ECHO_CMD%') DO ( | |
236 SET VALUE=%%V | |
237 ) | |
238 SET VALUE=%VALUE:"=% | |
239 REM " | |
240 ENDLOCAL && SET %1=%VALUE% | |
241 GOTO :EOF | |
242 | |
243 :fn_ResetErrorLevel | |
244 VERIFY > NUL | |
245 GOTO :EOF | |
246 | |
247 :fn_SetErrorLevel | |
248 VERIFY MAYBE 2> NUL | |
249 GOTO :EOF | |
250 | |
251 :usage | |
252 ECHO. | |
253 ECHO Usage: %~nx0 ^<processor^> | |
254 ECHO. | |
255 ECHO The only supported values for processor are "x86" and "x64". | |
256 GOTO errors | |
257 | |
258 :errors | |
259 CALL :fn_SetErrorLevel | |
260 ENDLOCAL | |
261 ECHO. | |
262 ECHO Failure, errors were encountered. | |
263 GOTO end_of_file | |
264 | |
265 :no_errors | |
266 CALL :fn_ResetErrorLevel | |
267 ENDLOCAL | |
268 ECHO. | |
269 ECHO Success, no errors were encountered. | |
270 GOTO end_of_file | |
271 | |
272 :end_of_file | |
273 %__ECHO% EXIT /B %ERRORLEVEL% | |
OLD | NEW |