conditional

Vocabulary

models.conditional

Definition

USING: models ;

IN: models.conditional

TUPLE: conditional < model condition thread ;

Methods

USING: accessors kernel models models.conditional ;

M: conditional model-activated [ model>> ] keep model-changed ;


USING: accessors calendar combinators kernel models
models.conditional threads ;

M: conditional model-changed
    [
        [
            dup
            [ condition>> ( -- ? ) call-effect ]
            [ thread>> self = not ] bi or
            [ [ value>> ] dip set-model f ] [ 2drop t ] if
            100 milliseconds sleep
        ] 2curry "models.conditional" spawn-server
    ] keep thread<< ;