heartbeat.l

来自「A very small LISP implementation with se」· L 代码 · 共 20 行

# 01mar07abu
# (c) Software Lab. Alexander Burger

(ifn (info "fifo/beat")
   (de heartbeat ())

   (de heartbeat @
      (out "fifo/beat"
         (pr
            (cons *Pid
               (cons
                  (+ 300 (time T) (* 86400 (date T)))  # Busy period 5 minutes
                  (rest) ) ) ) ) )

   (task -54321 0 (heartbeat))
   (push1 '*Bye '(out "fifo/beat" (pr *Pid))) )

(de nobeat ()
   (task -54321) )