261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
|
"updaters thread"))
(th2 (make-thread (lambda ()
(let loop ()
(case (thread-state th1)
((terminated)
(debug:print 0 *default-log-port* "th1 terminated, all done for now."))
((running)
(thread-suspend! th1)
(thread-sleep! 0.1)
(loop))
((sleeping)
(thread-resume! th1)
(thread-sleep! 0.9)
(loop))
(else
(loop))))))))
(thread-start! th1)
(thread-sleep! 0.1)
(thread-start! th2)
(thread-join! th1))))))
;; if tab-num passed in then use it, otherwise look in commondat at curr-tab-num
;; adds the updater passed in the updaters list at that hashkey
;;
(define (dboard:commondat-add-updater commondat updater #!key (tab-num #f))
(let* ((tnum (or tab-num
(dboard:commondat-curr-tab-num commondat)))
|
>
>
>
>
>
>
>
|
>
|
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
|
"updaters thread"))
(th2 (make-thread (lambda ()
(let loop ()
(case (thread-state th1)
((terminated)
(debug:print 0 *default-log-port* "th1 terminated, all done for now."))
((running)
(debug:print 0 *default-log-port* "th1 running, suspending now.")
(thread-suspend! th1)
(thread-sleep! 0.1)
(loop))
((sleeping)
(debug:print 0 *default-log-port* "th1 sleeping, resuming now.")
(thread-resume! th1)
(thread-sleep! 0.9)
(loop))
((dead)
(debug:print 0 *default-log-port* "th1 "(thread-state th1)", what's next?"))
(else
(debug:print 0 *default-log-port* "th1 "(thread-state th1)", what's next?")
(thread-sleep! 0.5)
(loop))))))))
(set! *updaters-running* #t)
(thread-start! th1)
(thread-sleep! 0.1)
(thread-start! th2)
(thread-join! th1)
(set! *updaters-running* #f))))))
;; if tab-num passed in then use it, otherwise look in commondat at curr-tab-num
;; adds the updater passed in the updaters list at that hashkey
;;
(define (dboard:commondat-add-updater commondat updater #!key (tab-num #f))
(let* ((tnum (or tab-num
(dboard:commondat-curr-tab-num commondat)))
|