basis/models/delay/delay.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors fry kernel models timers ;
   4 IN: models.delay
   5
   6 TUPLE: delay < model model timeout timer ;
   7
   8 : update-delay-model ( delay -- )
   9     [ model>> value>> ] keep set-model ;
  10
  11 : <delay> ( model timeout -- delay )
  12     f delay new-model
  13         dup '[ _ update-delay-model ] pick f <timer> >>timer
  14         swap >>timeout
  15         over >>model
  16     [ add-dependency ] keep ;
  17
  18 M: delay model-changed
  19     nip timer>> restart-timer ;
  20
  21 M: delay model-activated update-delay-model ;