Question

我正在开发一个带有公共功能库的Clojure项目，但我想从许多小型命令行工具中使用这个库。

我们称之为tool1，tool2，tool3。

这些工具中的每一个都包含了大量的库。

我应该如何组织我的Clojure源代码以及我在project.clj文件中需要什么？

现在我的代码在

(defproject 
   ....
     :aot [projectname.core]
     :main project.core )

等

我应该把tool1.clj，tool2.clj等放在哪里？

我的defproject是

AutoResetEvent

我需要告诉它我想制作三个独立的可执行工具吗？

Answer 1

您可以执行此操作using the lein-exec library。

首先，像这样（或类似）设置〜/ bin：

> ls -ldF  ~/bin/l*
lrwxrwxrwx 1 alan alan 26 Oct 31 08:29 /home/alan/bin/lein -> /home/alan/cool/tools/lein*
lrwxrwxrwx 1 alan alan 31 Oct 31 08:29 /home/alan/bin/lein-exec -> /home/alan/cool/tools/lein-exec*
lrwxrwxrwx 1 alan alan 33 Oct 31 08:29 /home/alan/bin/lein-exec-p -> /home/alan/cool/tools/lein-exec-p*

我有实际文件的符号链接，但您可以直接复制它们。当然，确保〜/ bin在你的路径中。

然后只需编写一个可执行的clojure“脚本”，如下所示。当然，它必须是可执行的：

> ls -l say-hello 
-rwxrwxr-x 1 alan alan 212 Nov  2 09:10 say-hello

> cat say-hello

#!/usr/bin/env lein-exec

(defn say-hello [name] 
  (println (format "Hello from the command line, %s!" name)))

(do 
  ; *command-line-args* = <cmd> <arg1> <arg2> ...
  (say-hello (second *command-line-args*)))

我们走了！

> ./say-hello buckaroo    
Hello from the command line, buckaroo!

至于项目组织，我会从简单开始（就像任何项目一样！）。也许只从一个源文件开始，每个“脚本”具有不同的函数作为入口点。随着项目的增长，您将更容易看到您希望打破不同名称空间/文件的位置。

更新

您也可以使用lein uberjar执行此操作，然后直接调用java：

(ns clj.core
  (:gen-class))

(defn say-hello [name] 
  (println (format "Hello from the command line, %s!" name)))

(defn -main [& args]
  (say-hello (first args)))

> lein uberjar
Compiling 1 source files to /home/alan/clj/target/uberjar/classes
Compiling clj.core
Created /home/alan/clj/target/uberjar/clj-0.1.0-SNAPSHOT.jar
Created /home/alan/clj/target/uberjar/clj-0.1.0-SNAPSHOT-standalone.jar

> java -jar /home/alan/clj/target/uberjar/clj-0.1.0-SNAPSHOT-standalone.jar pardner
Hello from the command line, pardner!

所以只需将java命令放入shell脚本即可。另请注意，:gen-class是必需的，args不再包含脚本名称。当然，您必须部署脚本文件和uberjar。

更新＃2

您也可以使用此版本：

来源：

(ns clj.core
  (:gen-class))

(defn say-howdy [args]
  (println (format "Howdy, %s!" (first args))))

(defn give-reply [args]
  (println (format "Back at ya, %s!" (first args))))

(defn -main [& args]
  (let [method-name  (first  args)
        message      (second args) ]
    (cond 
      (= method-name "say-howdy" ) (say-howdy  (rest args))
      (= method-name "give-reply") (give-reply (rest args))
      :else (throw (NoSuchMethodException. (str "clj.core: invalid method='" method-name \')))))
)

脚本：

> ls -l say*
-rwxrwxr-x 1 alan alan 212 Nov  2 16:24 say-hello
-rwxrwxr-x 1 alan alan 104 Nov  2 16:35 say-howdy
-rwxrwxr-x 1 alan alan 105 Nov  2 16:35 say-reply

> cat ./say-howdy
#!/bin/bash
java -jar /home/alan/clj/target/uberjar/clj-0.1.0-SNAPSHOT-standalone.jar say-howdy pardner

> cat ./say-reply 
#!/bin/bash
java -jar /home/alan/clj/target/uberjar/clj-0.1.0-SNAPSHOT-standalone.jar give-reply $1

运行工具：

~/clj > ./say-howdy 
Howdy, pardner!

~/clj > ./say-reply
Back at ya, null!

~/clj > ./say-reply buckaroo
Back at ya, buckaroo!

使脚本更智能并决定如何部署N脚本和单个JAR文件留给读者练习。

）

一个Clojure项目，构建了几个相关的小工具

1 个答案:

更新

更新＃2