steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/io/thread/thread.factor

31 lines
746 B
Factor
Raw Normal View History

concurrency.mailboxes: linked-thread's error reporting should still work even when debugger.threads is not loaded. This addresses part of #95
2011-10-03 02:33:28 -04:00
! Copyright (C) 2008, 2011 Slava Pestov.
ui.backend.gtk: fix a bug with endless error messages in a console after closing of UI; io.thread: start-io-thread always starts io-thread even if it was stopped, fix line endings;
2011-04-01 12:06:07 -04:00
! See http://factorcode.org/license.txt for BSD license.
concurrency.mailboxes: linked-thread's error reporting should still work even when debugger.threads is not loaded. This addresses part of #95
2011-10-03 02:33:28 -04:00
USING: continuations init io.backend kernel namespaces threads ;
ui.backend.gtk: fix a bug with endless error messages in a console after closing of UI; io.thread: start-io-thread always starts io-thread even if it was stopped, fix line endings;
2011-04-01 12:06:07 -04:00
IN: io.thread
! The Cocoa and Gtk UI backend stops the I/O thread and takes
! over completely.
SYMBOL: io-thread-running?
io.thread: if the I/O thread throws an error, call out to the fep immediately instead of going through the normal thread error mechanism, which by that point won't work anyway
2011-08-26 00:36:57 -04:00
TUPLE: io-thread < thread ;
: <io-thread> ( -- thread )
[
[ io-thread-running? get-global ]
[ sleep-time io-multiplex yield ]
while
]
"I/O wait"
io-thread new-thread ;
ui.debugger: quotation stack effect wants ( .. -- * ), throw causes infinite loop, but rethrow works. change previous patch to rethrow everywhere.
2016-04-06 20:30:22 -04:00
M: io-thread error-in-thread die drop rethrow ;
ui.backend.gtk: fix a bug with endless error messages in a console after closing of UI; io.thread: start-io-thread always starts io-thread even if it was stopped, fix line endings;
2011-04-01 12:06:07 -04:00
: start-io-thread ( -- )
t io-thread-running? set-global
io.thread: if the I/O thread throws an error, call out to the fep immediately instead of going through the normal thread error mechanism, which by that point won't work anyway
2011-08-26 00:36:57 -04:00
<io-thread> (spawn) ;
ui.backend.gtk: fix a bug with endless error messages in a console after closing of UI; io.thread: start-io-thread always starts io-thread even if it was stopped, fix line endings;
2011-04-01 12:06:07 -04:00
: stop-io-thread ( -- )
f io-thread-running? set-global ;
[ start-io-thread ] "io.thread" add-startup-hook