327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
|
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
|
+
+
-
-
+
+
|
;; keep going unless time to exit
;;
(if (not *time-to-exit*)
(let delay-loop ((count 0))
(if (and (not *time-to-exit*)
(< count 11)) ;; aprox 5-6 seconds
(begin
(thread-sleep! 1)
(delay-loop (+ count 1))))
(loop)))))
(delay-loop (+ count 1))))
(loop))))))
"Watchdog thread"))
(thread-start! *watchdog*)
(if (args:get-arg "-log")
(let ((oup (open-output-file (args:get-arg "-log"))))
(debug:print-info 0 "Sending log output to " (args:get-arg "-log"))
|