如何将一个Java Runnable示例翻译为Clojure

Question

我对如何将Runnable块从此示例中翻译有点困惑：

http://www.codejava.net/coding/capture-and-record-sound-into-wav-file-with-java-sound-api

    Thread stopper = new Thread(new Runnable() {
        public void run() {
            try {
                Thread.sleep(RECORD_TIME);
            } catch (InterruptedException ex) {
                ex.printStackTrace();
            }
            recorder.finish();
        }
    });

我不确定的代码部分是这个：

   Runnable(){... public void run() {... }}

- zcaudate

---

嗯，不要在InterruptedException中打印printStackTrace()... 至少，在catch块中应该使用Thread.currentThread().interrupt() - fge

最好（更安全和易读）使用Timer或ScheduledExecutorService，应尽量避免使用基于Thread的sleep()方法！然而，这并不真正有助于翻译... - Boris the Spider

你需要一对一地翻译吗？在Clojure中，你可以通过编程调用（-> Thread .run）。 - WeGi

新的Runnable(){}和reify是一样的吗？ - zcaudate

在Clojure中，您无需使用普通的Runnable对象，有其他处理并发和线程的方法。 - robermann

Answer 1

值得注意的是，Clojure函数实现了Runnable接口。

user=> (ancestors clojure.lang.AFn)
#{clojure.lang.IFn
  java.lang.Object
  java.lang.Runnable
  java.util.concurrent.Callable}

因此，您可以直接将函数传递给Thread的构造函数。

(def stopper 
  (Thread.
    (fn []
      (try
        (Thread/sleep RECORD_TIME)
        (catch InterruptedException e
          (.printStackTrace e))))))

- overthink

Answer 2

可能通过future实现：

(def recorder ( /*...*/) )
(def recorded (future (Thread/sleep RECORD_TIME)  (.finish recorder) recorder))

然后解除其引用：

@recorded 

- robermann

Answer 3

从原始信息中我理解问题是如何实现一个接口（在此例中是java.lang.Runnable）。这可以通过reify完成。

(reify java.lang.Runnable
  (run [this]
       (try
         (Thread/sleep RECORD_TIME))
         (catch InterruptedException e
           (.printStackTrace e))))))

当然，如果你只想在单独的线程中执行一组表达式，你需要使用像(robermann上面提到的)future这样的东西。

- naga