Repository navigation
Expand file tree
/
Copy pathlein.bat
More file actions
executable file
·375 lines (304 loc) · 12 KB
/
Copy pathlein.bat
File metadata and controls
executable file
·375 lines (304 loc) · 12 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
@echo off
setLocal EnableExtensions EnableDelayedExpansion
set LEIN_VERSION=2.5.2-SNAPSHOT
if "%LEIN_VERSION:~-9%" == "-SNAPSHOT" (
set SNAPSHOT=YES
) else (
set SNAPSHOT=NO
)
set ORIGINAL_PWD=%CD%
:: If ORIGINAL_PWD ends with a backslash (such as C:\),
:: we need to escape it with a second backslash.
if "%ORIGINAL_PWD:~-1%x" == "\x" set "ORIGINAL_PWD=%ORIGINAL_PWD%\"
call :FIND_DIR_CONTAINING_UPWARDS project.clj
if "%DIR_CONTAINING%" neq "" cd "%DIR_CONTAINING%"
:: LEIN_JAR and LEIN_HOME variables can be set manually.
if "x%LEIN_HOME%" == "x" (
set LEIN_HOME=!USERPROFILE!\.lein
)
if "x%LEIN_JAR%" == "x" set "LEIN_JAR=!LEIN_HOME!\self-installs\leiningen-!LEIN_VERSION!-standalone.jar"
if "%1" == "self-install" goto SELF_INSTALL
if "%1" == "upgrade" goto UPGRADE
if "%1" == "downgrade" goto UPGRADE
if exist "%~dp0..\src\leiningen\version.clj" (
:: Running from source checkout.
call :SET_LEIN_ROOT "%~dp0.."
set bootstrapfile="!LEIN_ROOT!\leiningen-core\.lein-bootstrap"
rem in .lein-bootstrap there is only one line where each path is concatenated to each other via a semicolon, there's no semicolon at the end
rem each path is NOT inside double quotes and may contain spaces (even semicolons but this is not supported here) in their names,
rem but they won't/cannot contain double quotes " or colons : in their names (at least on windows it's not allowed/won't work)
rem tested when folders contain spaces and when LEIN_ROOT contains semicolon
if not "x%DEBUG%" == "x" echo LEIN_ROOT=!LEIN_ROOT!
rem if not "%LEIN_ROOT:;=%" == "%LEIN_ROOT%" (
rem oddly enough /G:/ should've worked but doesn't where / they say it's console
rem findstr is C:\Windows\System32\findstr.exe
echo !LEIN_ROOT! | findstr /C:";" /G:con >nul
if not errorlevel 1 ( rem aka errorlevel is 0 aka the string ";" was found
echo Your folder structure !LEIN_ROOT! contains at least one semicolon in its name
echo This is not allowed and would break things with the generated bootstrap file
echo Please correct this by renaming the folders to not contain semicolons in their name
del !bootstrapfile! >nul 2>&1
echo You'll also have to recreate the bootstrap file just to be sure it has semicolon-free names inside
echo the bootstrap file^(which was just deleted^) is: !bootstrapfile!
echo and the info on how to do that is:
goto :RUN_BOOTSTRAP
)
if not exist !bootstrapfile! goto NO_DEPENDENCIES
findstr /C:^"\^"^" !bootstrapfile! >nul
if not errorlevel 1 (
set hasAtLeastOneDoubleQuote=1
) ELSE (
set hasAtLeastOneDoubleQuote=0
)
if !hasAtLeastOneDoubleQuote! == 1 (
echo double quotes detected inside file: !bootstrapfile!
echo this should not be happening
goto :RUN_BOOTSTRAP
)
rem will proceed to set LEIN_LIBS and surround each path from bootstrap file in double quotes and separate it from others with a semicolon
rem the paths inside the bootstrap file do not already contain double quotes but may contain spaces
rem note worthy: the following won't work due to a hard 1022bytes limit truncation in the variable that was set
rem set /p LEIN_LIBS=<!bootstrapfile!
rem so this will work instead:
rem for /f "usebackq delims=" %%j in (!bootstrapfile!) do set LEIN_LIBS=%%j
rem just set LEIN_LIBS="%%j" is uglier/hacky but would also work here instead of the below:
for /f "usebackq delims=" %%j in (!bootstrapfile!) do (
set tmpline=%%j
call :processPath
)
if not "x%DEBUG%" == "x" echo LEIN_LIBS=!LEIN_LIBS!
if "x!LEIN_LIBS!" == "x" goto NO_DEPENDENCIES
rem CLASSPATH must contain each path element double quoted and separated by semicolons ie. "c:\some folder";"c:\some other folder";"c:\semicolons;;;;in;name;work okay"
rem (no end semicolon required)
set CLASSPATH=!LEIN_LIBS!;"!LEIN_ROOT!\src";"!LEIN_ROOT!\resources"
:: Apply context specific CLASSPATH entries
if exist "%~dp0..\.lein-classpath" (
for /f %%i in ("%~dp0...lein-classpath") do set CONTEXT_CP=%%i
if NOT "x!CONTEXT_CP!"=="x" (
set CLASSPATH=!CONTEXT_CP!;!CLASSPATH!
)
)
) else (
:: Not running from a checkout.
if not exist "%LEIN_JAR%" goto NO_LEIN_JAR
set CLASSPATH=%LEIN_JAR%
if exist ".lein-classpath" (
for /f %%i in (.lein-classpath) do set CONTEXT_CP=%%i
if NOT "x!CONTEXT_CP!"=="x" (
set CLASSPATH=!CONTEXT_CP!;!CLASSPATH!
)
)
)
if not "x%DEBUG%" == "x" echo CLASSPATH=!CLASSPATH!
:: ##################################################
if "x!JAVA_CMD!" == "x" set JAVA_CMD=java
if "x!LEIN_JAVA_CMD!" == "x" set LEIN_JAVA_CMD=%JAVA_CMD%
rem remove quotes from around java commands
for /f "usebackq delims=" %%i in ('!JAVA_CMD!') do set JAVA_CMD=%%~i
for /f "usebackq delims=" %%i in ('!LEIN_JAVA_CMD!') do set LEIN_JAVA_CMD=%%~i
if "x%JVM_OPTS%" == "x" set JVM_OPTS=%JAVA_OPTS%
goto RUN
:DownloadFile
set LAST_HTTP_CLIENT=
rem parameters: TargetFileName Address
if NOT "x%HTTP_CLIENT%" == "x" (
%HTTP_CLIENT% %1 %2
goto EOF
)
call powershell -? >nul 2>&1
if NOT ERRORLEVEL 1 (
set LAST_HTTP_CLIENT=powershell
powershell -Command "& {param($a,$f) $client = New-Object System.Net.WebClient; $client.Proxy.Credentials =[System.Net.CredentialCache]::DefaultNetworkCredentials; $client.DownloadFile($a, $f)}" ""%2"" ""%1""
goto EOF
)
call wget --help >nul 2>&1
if NOT ERRORLEVEL 1 (
set LAST_HTTP_CLIENT=wget
call wget -O %1 %2
goto EOF
)
call curl --help >nul 2>&1
if NOT ERRORLEVEL 1 (
rem We set CURL_PROXY to a space character below to pose as a no-op argument
set LAST_HTTP_CLIENT=curl
set CURL_PROXY=
if NOT "x%HTTPS_PROXY%" == "x" set CURL_PROXY="-x %HTTPS_PROXY%"
call curl %CURL_PROXY% -f -L -o %1 %2
goto EOF
)
goto NO_HTTP_CLIENT
:NO_LEIN_JAR
echo.
echo %LEIN_JAR% can not be found.
echo You can try running "lein self-install"
echo or change LEIN_JAR environment variable
echo or edit lein.bat to set appropriate LEIN_JAR path.
echo.
goto EOF
:NO_DEPENDENCIES
echo.
echo Leiningen is missing its dependencies.
:RUN_BOOTSTRAP
echo Please run "lein bootstrap" in the leiningen-core/ directory
echo with a stable release of Leiningen. See CONTRIBUTING.md for details.
echo.
goto EOF
:SELF_INSTALL
if exist "%LEIN_JAR%" (
echo %LEIN_JAR% already exists. Delete and retry.
goto EOF
)
for %%f in ("%LEIN_JAR%") do set LEIN_INSTALL_DIR="%%~dpf"
if not exist %LEIN_INSTALL_DIR% mkdir %LEIN_INSTALL_DIR%
echo Downloading Leiningen now...
set LEIN_JAR_URL=https://github.com/technomancy/leiningen/releases/download/%LEIN_VERSION%/leiningen-%LEIN_VERSION%-standalone.zip
call :DownloadFile "%LEIN_JAR%.pending" "%LEIN_JAR_URL%"
if ERRORLEVEL 1 (
del "%LEIN_JAR%.pending" >nul 2>&1
goto DOWNLOAD_FAILED
)
move /y "%LEIN_JAR%.pending" "%LEIN_JAR%"
goto EOF
:DOWNLOAD_FAILED
echo.
echo Failed to download %LEIN_JAR_URL%
echo.
echo It is possible that the download failed due to "powershell",
echo "curl" or "wget"'s inability to retreive GitHub's security certificate.
echo The suggestions below do not check certificates, so use this only if
echo you understand the security implications of not doing so.
echo.
if "%LAST_HTTP_CLIENT%" == "powershell" (
echo The PowerShell failed to download the latest Leiningen version.
echo Try to use "curl" or "wget" to download Leiningen by setting up
echo the HTTP_CLIENT environment variable with one of the following
echo values:
echo.
echo " a) set HTTP_CLIENT=wget --no-check-certificate -O"
echo " b) set HTTP_CLIENT=curl -f -L -k -o"
echo.
echo NOTE: Make sure to *not* add double quotes when setting the value
echo of HTTP_CLIENT
)
if "%LAST_HTTP_CLIENT%" == "curl" (
echo Curl failed to download the latest Leiningen version.
echo Try to use "wget" to download Leiningen by setting up
echo the HTTP_CLIENT environment variable with one of the following
echo values:
echo.
echo " a) set HTTP_CLIENT=wget --no-check-certificate -O"
echo.
echo NOTE: Make sure to *not* add double quotes when setting the value
echo of HTTP_CLIENT
echo.
echo If neither curl nor wget can download Leiningen, please seek
echo for help on Leiningen's GitHub project issues page.
)
if "%LAST_HTTP_CLIENT%" == "wget" (
echo Curl failed to download the latest Leiningen version.
echo Try to use "wget" to download Leiningen by setting up
echo the HTTP_CLIENT environment variable with one of the following
echo values:
echo.
echo. " a) set HTTP_CLIENT=curl -f -L -k -o"
echo.
echo NOTE: make sure *not* to add double quotes to set the value of
echo HTTP_CLIENT
echo.
echo If neither curl nor wget can download Leiningen, please seek
echo for help on Leiningen's GitHub project issues page.
)
if %SNAPSHOT% == YES echo See README.md for SNAPSHOT build instructions.
echo.
goto EOF
:UPGRADE
set LEIN_BAT=%~dp0%~nx0
set TARGET_VERSION=%2
if "x%2" == "x" set TARGET_VERSION=stable
echo The script at %LEIN_BAT% will be upgraded to the latest %TARGET_VERSION% version.
set /P ANSWER=Do you want to continue (Y/N)?
if /i {%ANSWER%}=={y} goto YES_UPGRADE
if /i {%ANSWER%}=={yes} goto YES_UPGRADE
echo Aborted.
exit /B 1
:YES_UPGRADE
echo Downloading latest Leiningen batch script...
set LEIN_BAT_URL=https://github.com/technomancy/leiningen/raw/%TARGET_VERSION%/bin/lein.bat
set TEMP_BAT=%~dp0temp-lein-%RANDOM%%RANDOM%.bat
call :DownloadFile "%LEIN_BAT%.pending" "%LEIN_BAT_URL%"
if ERRORLEVEL 1 (
del "%LEIN_BAT%.pending" >nul 2>&1
echo Failed to download %LEIN_BAT_URL%
goto EOF
)
move /y "%LEIN_BAT%.pending" "%TEMP_BAT%"
echo.
echo Upgrading...
set LEIN_JAR=
call "%TEMP_BAT%" self-install
move /y "%TEMP_BAT%" "%LEIN_BAT%" && goto EOF
goto EOF
:NO_HTTP_CLIENT
echo.
echo ERROR: Neither PowerShell, Wget, or Curl could be found.
echo Make sure at least one of these tools is installed
echo and is in PATH. You can get them from URLs below:
echo.
echo PowerShell: "http://www.microsoft.com/powershell"
echo Wget: "http://users.ugent.be/~bpuype/wget/"
echo Curl: "http://curl.haxx.se/dlwiz/?type=bin&os=Win32&flav=-&ver=2000/XP"
echo.
goto EOF
:SET_LEIN_ROOT
set LEIN_ROOT=%~f1
goto EOF
:: Find directory containing filename supplied in first argument
:: looking in current directory, and looking up the parent
:: chain until we find it, or run out
:: returns result in %DIR_CONTAINING%
:: empty string if we don't find it
:FIND_DIR_CONTAINING_UPWARDS
set DIR_CONTAINING=%CD%
set LAST_DIR=
:LOOK_AGAIN
if "%DIR_CONTAINING%" == "%LAST_DIR%" (
:: didn't find it
set DIR_CONTAINING=
goto EOF
)
if EXIST "%DIR_CONTAINING%\%1" (
:: found it - use result in DIR_CONTAINING
goto EOF
)
set LAST_DIR=%DIR_CONTAINING%
call :GET_PARENT_PATH "%DIR_CONTAINING%\.."
set DIR_CONTAINING=%PARENT_PATH%
goto LOOK_AGAIN
:GET_PARENT_PATH
set PARENT_PATH=%~f1
goto EOF
:RUN
:: We need to disable delayed expansion here because the %* variable
:: may contain bangs (as in test!). There may also be special
:: characters inside the TRAMPOLINE_FILE.
setLocal DisableDelayedExpansion
set "TRAMPOLINE_FILE=%TEMP%\lein-trampoline-%RANDOM%.bat"
del "%TRAMPOLINE_FILE%" 2>nul
"%LEIN_JAVA_CMD%" -client %LEIN_JVM_OPTS% ^
-Dclojure.compile.path="%DIR_CONTAINING%/target/classes" ^
-Dleiningen.original.pwd="%ORIGINAL_PWD%" ^
-cp "%CLASSPATH%" clojure.main -m leiningen.core.main %*
if not exist "%TRAMPOLINE_FILE%" goto EOF
call "%TRAMPOLINE_FILE%"
del "%TRAMPOLINE_FILE%"
goto EOF
rem this label must reside here outside of ( ) from the if block, otherwise the ELSE ( ) block is also executed
:processPath
rem will surround each path with double quotes before appending it to LEIN_LIBS
for /f "tokens=1* delims=;" %%a in ("%tmpline%") do (
set LEIN_LIBS=!LEIN_LIBS!"%%a";
set tmpline=%%b
)
if not "%tmpline%" == "" goto :processPath
goto :eof
:EOF