一、背景
公司国外市场部的同事，外包写了一个discord机器人！！！
要我们配合部署，给了个jar；因为是部署到线上环境，为了安全让外包人员给了源码进行Review，git拉下来一看，国粹，什么鬼！！！
抱着文件后缀，问了下强大的GPT，才知道原来不止是java语言可以运行在JVM上。。。
下面我就简单的介绍一下这种语言
二、运行在JVM上并与Java紧密集成的编程语言-Clojure
Clojure 是一种动态函数式编程语言，它运行在 Java 虚拟机（JVM）上并与 Java 紧密集成。
Clojure 是由 Rich Hickey开发的，它结合了函数式编程的思想和强大的并发性能，提供了一种简洁、可扩展和可靠的编程语言。
以下是 Clojure 的一些主要特点和概念：
函数式编程：Clojure 是一门函数式编程语言，强调使用纯函数和不可变数据。它鼓励将计算视为函数的求值，避免副作用和可变状态，从而提高代码的可读性、可维护性和并发性。
不可变数据：在 Clojure 中，数据结构是不可变的，这意味着一旦创建，就无法修改。当对数据进行操作时，会返回一个新的数据结构，而不会改变原始数据。这种不可变性有助于避免竞态条件和共享状态的问题，并简化了并发编程。
持久化数据结构：Clojure 提供了一系列高效的持久化数据结构，如列表、矢量、集合和映射。这些数据结构在进行修改时可以共享大部分不变的部分，从而提供了高效的操作和内存使用。
Lisp 历史和语法：Clojure 是一门 Lisp 方言，它继承了 Lisp 的强大元编程能力和简洁的语法。Clojure 的代码以表达式的形式表示，并使用方括号来组织代码。这种语法使得 Clojure 具有强大的宏系统和代码生成能力。
并发编程：Clojure 提供了一些强大的并发编程工具，如原子（atom）、代理（agent）和软件事务内存（Software Transactional Memory，简称 STM）。这些工具使得编写并发代码变得更加简单和安全，可以有效地处理共享状态和多线程环境。
Java 互操作性：由于运行在 JVM 上，Clojure 可以无缝地与 Java 代码进行交互和集成。Clojure 可以直接调用 Java 类和方法，并且可以访问 Java 生态系统中丰富的库和工具。
社区支持和库生态系统：Clojure 拥有活跃的社区和丰富的库生态系统。有许多开源库可供选择，涵盖了各种领域，从 Web 开发到数据处理和科学计算。
Clojure 的设计目标是简洁、具有表达力和可靠性。它适用于各种应用场景，从命令行工具到大规模分布式系统。
作为一门函数式编程语言，Clojure提供了一种不同于传统命令式语言的思考方式，并且在并发编程方面具有很强的优势。
三、Clojure怎么打jar包
在 Windows 环境下，您可以使用 Leiningen 构建工具将 Clojure 代码打包成 JAR 文件。
以下是在 Windows 上使用 Leiningen 打包 Clojure 代码的步骤：
第一步、安装java环境
确保您已经安装了 Java 开发工具包（JDK）并配置了环境变量 JAVA_HOME 指向 JDK 的安装目录。您可以从 Oracle 官方网站下载并安装 JDK。（==我是安装的jdk11，因为外包项目开发就是在11上面开发的==）
这玩意是每个java开发的入门课，就不多做阐述了
第二步、安装打包工具
下载并安装 Leiningen。可以从 Leiningen 的官方网站（leiningen.org/ ↗）上下载 lein.bat 文件，并将其放置在系统的可执行路径中。
例如，您可以将 lein.bat 文件放在 C:\Windows\System32 目录下。
将lein.bat放到可执行目录
@echo off
setLocal EnableExtensions EnableDelayedExpansion
set LEIN_VERSION=2.10.0
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.
:: Only set LEIN_JAR manually if you know what you are doing.
:: Having LEIN_JAR pointing to one version of Leiningen as well as
:: having a different version in PATH has been known to cause problems.
if "x%LEIN_HOME%" == "x" (
set LEIN_HOME=!USERPROFILE!\.lein
)
SET RC=1
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 not exist "%~dp0..\src\leiningen\version.clj" goto RUN_NO_CHECKOUT
:: 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:";" >nul 2>&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 \^" "!bootstrapfile!" >nul 2>&1
if errorlevel 1 goto PARSE_BOOTSTRAPFILE
echo double quotes detected inside file: !bootstrapfile!
echo this should not be happening
goto RUN_BOOTSTRAP
:PARSE_BOOTSTRAPFILE
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=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
)
rem remove trailing semicolon, if any
if "!LEIN_LIBS:~-1!x" == ";x" SET LEIN_LIBS=!LEIN_LIBS:~0,-1!
if not "x%DEBUG%" == "x" echo LEIN_LIBS=!LEIN_LIBS!
if "x!LEIN_LIBS!" == "x" goto NO_DEPENDENCIES
rem semicolons in pathes are not supported, spaces are supported by quoting CLASSPATH as a whole
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 "tokens=* delims= " %%i in ("%~dp0..\.lein-classpath") do (
set CONTEXT_CP=%%i
)
if NOT "x!CONTEXT_CP!"=="x" (
set CLASSPATH=!CONTEXT_CP!;!CLASSPATH!
)
)
goto SETUP_JAVA
:RUN_NO_CHECKOUT
:: Not running from a checkout.
if not exist "%LEIN_JAR%" goto NO_LEIN_JAR
set CLASSPATH=%LEIN_JAR%
if exist ".lein-classpath" (
for /f "tokens=* delims= " %%i in (.lein-classpath) do (
set CONTEXT_CP=%%i
)
if NOT "x!CONTEXT_CP!"=="x" (
set CLASSPATH=!CONTEXT_CP!;!CLASSPATH!
)
)
:SETUP_JAVA
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 "x%HTTP_CLIENT%" == "x" goto TRY_POWERSHELL
%HTTP_CLIENT% %1 %2
SET RC=%ERRORLEVEL%
goto EXITRC
:TRY_POWERSHELL
call powershell -? >nul 2>&1
if NOT ERRORLEVEL 0 goto TRY_WGET
set LAST_HTTP_CLIENT=powershell
rem By default: Win7 = PS2, Win 8.0 = PS3 (maybe?), Win 8.1 = PS4, Win10 = PS5
powershell -Command "& {param($a,$f) if (($PSVersionTable.PSVersion | Select-Object -ExpandProperty Major) -lt 4) { exit 111; } else { $client = New-Object System.Net.WebClient; [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12; $client.Proxy.Credentials = [System.Net.CredentialCache]::DefaultNetworkCredentials; $client.DownloadFile($a, $f); }}" ""%2"" ""%1""
SET RC=%ERRORLEVEL%
goto EXITRC
:TRY_WGET
call wget --help >nul 2>&1
if NOT ERRORLEVEL 0 goto TRY_CURL
set LAST_HTTP_CLIENT=wget
call wget -O %1 %2
SET RC=%ERRORLEVEL%
goto EXITRC
:TRY_CURL
call curl --help >nul 2>&1
if NOT ERRORLEVEL 0 GOTO NO_HTTP_CLIENT
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
SET RC=%ERRORLEVEL%
goto EXITRC
: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 EXITRC
: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 EXITRC
:SELF_INSTALL
if exist "%LEIN_JAR%" (
echo %LEIN_JAR% already exists. Delete and retry.
goto EXITRC
)
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.jar
call :DownloadFile "%LEIN_JAR%.pending" "%LEIN_JAR_URL%"
SET RC=%ERRORLEVEL%
if not %RC% == 0 goto DOWNLOAD_FAILED
if not exist "%LEIN_JAR%.pending" goto DOWNLOAD_FAILED
move /y "%LEIN_JAR%.pending" "%LEIN_JAR%" >nul 2>&1
SET RC=%ERRORLEVEL%
goto EXITRC
:DOWNLOAD_FAILED
SET RC=3
if "%ERRORLEVEL%" == "111" (
echo.
echo You seem to be using an old version of PowerShell that
echo can't download files via TLS 1.2.
echo Please upgrade your PowerShell to at least version 4.0, e.g. via
echo https://www.microsoft.com/en-us/download/details.aspx?id=50395
echo.
echo Alternatively you can manually download
echo %LEIN_JAR_URL%
echo and save it as
echo %LEIN_JAR%
echo.
echo If you have "curl" or "wget" you can try setting the HTTP_CLIENT
echo variable, but the TLS problem might still persist.
echo.
echo a^) set HTTP_CLIENT=wget -O
echo b^) set HTTP_CLIENT=curl -f -L -o
echo.
echo NOTE: Make sure to *not* add double quotes when setting the value
echo of HTTP_CLIENT
goto EXITRC
)
SET RC=3
del "%LEIN_JAR%.pending" >nul 2>&1
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 retrieve GitHub's security certificate.
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 -O
echo b^) set HTTP_CLIENT=curl -f -L -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 -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 -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.
goto EXITRC
: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 0 goto EXEC_UPGRADE
del "%LEIN_BAT%.pending" >nul 2>&1
echo Failed to download %LEIN_BAT_URL%
goto EXITRC
:EXEC_UPGRADE
move /y "%LEIN_BAT%.pending" "%TEMP_BAT%" >nul 2>&1
echo.
echo Upgrading...
set LEIN_JAR=
call "%TEMP_BAT%" self-install
(
rem This is self-modifying batch code. Use brackets to pre-load the exit command.
rem This way, script execution does not depend on whether the replacement script
rem has that command at the *very same* file position as the calling batch file.
move /y "%TEMP_BAT%" "%LEIN_BAT%" >nul 2>&1
exit /B %ERRORLEVEL%
)
: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"
rem echo Wget: "http://users.ugent.be/~bpuype/wget/"
rem Note: Stale URL. HTTP 404.
rem Alternative: wget64.exe compiled by J. Simoncic, rename to wget.exe
rem MD5 1750c130c5daca8b347d3f7e34824c9b
rem Check: https://www.virustotal.com/en/file/abf507f8240ed41aac74c9df6de558c88c2f11d7770f02.8.4-SNAPSHOT5f1cc544b9c08b/analysis/
echo Wget: "https://eternallybored.org/misc/wget/"
echo Curl: "http://curl.haxx.se/dlwiz/?type=bin&os=Win32&flav=-&ver=2000/XP"
echo.
goto EXITRC
: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%" >nul 2>&1
set ERRORLEVEL=
set RC=0
"%LEIN_JAVA_CMD%" -client %LEIN_JVM_OPTS% ^
-Dfile.encoding=UTF-8 ^
-Dclojure.compile.path="%DIR_CONTAINING%/target/classes" ^
-Dleiningen.original.pwd="%ORIGINAL_PWD%" ^
-cp "%CLASSPATH%" clojure.main -m leiningen.core.main %*
SET RC=%ERRORLEVEL%
if not %RC% == 0 goto EXITRC
if not exist "%TRAMPOLINE_FILE%" goto EOF
call "%TRAMPOLINE_FILE%"
del "%TRAMPOLINE_FILE%" >nul 2>&1
goto EOF
: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
:EXITRC
exit /B %RC%
:EOF
安装Leiningen
配置好可执行文件之后，运行==lein self-install==命令进行安装。可在任意目录下执行这个命令。
D:\coding20200401\lucky-master>lein self-install
Downloading Leiningen now...
lein self-install 是 Leiningen（一款用于构建和管理 Clojure 项目的构建工具）提供的命令之一。它的作用是将 Leiningen 自身安装到本地系统上，以便您可以在命令行中直接使用 lein 命令而无需手动下载和配置 Leiningen。
当您运行 lein self-install 命令时，它会自动从 Leiningen 的官方仓库下载最新版本的 Leiningen JAR 文件，并将其安装到本地的 Leiningen 目录中。通常情况下，Leiningen JAR 文件会被安装在用户的主目录下的 .lein/self-installs 目录中（例如在 Windows 上是 C:\Users\YourUsername.lein\self-installs）。
安装完成后，您可以在命令行中直接使用 lein 命令来执行各种 Leiningen 的任务，如创建新的 Clojure 项目、编译和运行代码、管理依赖项等。 lein self-install 的作用是简化了安装和配置 Leiningen 的过程，使您能够快速开始使用 Leiningen 构建和管理 Clojure 项目。
第三步、使用lein命令打包
打开命令提示符（Command Prompt）或 PowerShell。
进入存储有 Clojure 项目的目录。在命令提示符中使用 cd 命令切换到项目目录下。
确保项目根目录中包含一个 project.clj 文件。如果没有，请创建一个，该文件用于描述项目的配置和依赖项。
项目结构示例：
lucky-master
---- doc
---- resources
---- src
---- target
---- CHANGELOG.md
---- docker-compose.yml
---- Dockerfile
---- LICENSE.md
---- poker.iml
---- project.clj
---- README.md
lein uberjar
// 这将使用 Leiningen 编译 Clojure 代码并生成一个可执行的 JAR 文件。生成的 JAR 文件将位于项目根目录的 `target` 子目录下。
Created D:\coding20230904\lucky-master\target\lucky-0.1.0-SNAPSHOT.jar
Created D:\coding20230904\lucky-master\target\lucky-0.1.0-SNAPSHOT-standalone.jar
四、使用Java命令运行
使用 Java 运行时环境来运行生成的 JAR 文件。在命令提示符中执行以下命令：
java -jar D:\coding20230904\lucky-master\target\lucky-0.1.0-SNAPSHOT.jar
请将 D:\coding20230904\lucky-master\target\lucky-0.1.0-SNAPSHOT.jar 替换为实际生成的 JAR 文件的路径和名称。
