thread
Factor handbook » The language » Co-operative threads » Thread-local state and variables

Next:

self ( -- thread )

Vocabulary
threads

Class description
A thread. The slots are as follows:

id	a unique identifier assigned to each thread.
exit-handler	a quotation run when the thread is being stopped.
name	the name passed to spawn.
quot	the initial quotation passed to spawn.
runnable	whether the thread is runnable. Initially it is, f.
state	a string indicating what the thread is waiting for, or f. This slot is intended to be used for debugging purposes.
context	a box holding an alien pointer to the threads context object.

Variable value
Current value in global namespace:

20

Definition

USING: boxes hashtables math quotations strings ;

IN: threads

TUPLE: thread
    { name string initial: "" } { quot callable initial: [ ] }
    { exit-handler callable initial: [ ] }
    { id integer initial: 0 } { context box initial: T{ box } }
    state runnable mailbox
    { variables hashtable initial: H{ } } sleep-entry ;

Methods

USING: accessors boxes kernel threads threads.private ;

M: thread (next)
    dup runnable>>
    [ context>> box> set-context ]
    [ t >>runnable drop [start] start-context ] if ;


USING: accessors concurrency.distributed kernel namespaces
serialize threads ;

M: thread (serialize)
    id>> [ local-node get insecure>> ] dip <remote-thread>
    (serialize) ;


USING: accessors concurrency.mailboxes concurrency.messaging
kernel kernel.private threads ;

M: thread mailbox-of
    [ mailbox>> ] [ { mailbox } declare ]
    [ <mailbox> [ >>mailbox drop ] keep ] ?if ; inline


USING: concurrency.mailboxes concurrency.messaging threads ;

M: thread send mailbox-of mailbox-put ;