Racket运行线程固定时间

Question

我想推测性地在球拍中运行一个表达式，希望（但不是特别期待）结果。我的代码有一个严格的时间限制。有没有一种简单的方法可以运行一些球拍代码几秒钟，然后可靠地杀死它，并在截止日期到来之前执行后备代码？

Answer 1

是的，一种简单的方法是使用引擎库。例如：

#lang racket
(require racket/engine)
(define e (engine
           (λ (_)
             ;; just keep printing every second
             (let loop ()
               (displayln "hi")
               (sleep 1)
               (loop)))))
;; run only for 2 seconds
(engine-run 2000 e)

您也可以指定一个事件对象，以便在事件触发时线程停止运行，而不是指定时间。

Answer 2

您可以创建一个"worker"线程来完成工作，并创建另一个"watcher"线程来杀死该worker。

这在文档的"更多：系统编程"部分进行了描述。

最简单的第一次切割可能足以进行计算：

(define (accept-and-handle listener)
  (define-values (in out) (tcp-accept listener))
  (define t (thread
              (lambda ()
                (handle in out)
                (close-input-port in)
                (close-output-port out))))
  ; Watcher thread:
  (thread (lambda ()
            (sleep 10)
            (kill-thread t))))

但是，如果您正在处理其他资源，请继续阅读以了解保管人。