factor/basis/calendar/model/model.factor

! Copyright (C) 2008, 2010 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: calendar namespaces models threads kernel init ;
IN: calendar.model

SYMBOL: time

: (time-thread) ( -- )
    now time get set-model
    1 seconds sleep (time-thread) ;

: time-thread ( -- )
    [
        init-namespaces
        (time-thread)
    ] "Time model update" spawn drop ;

[
    f <model> time set-global
    time-thread
] "calendar.model" add-startup-hook
calendar.model, tools.errors.model: re-initialize models on startup 2010-05-31 20:14:26 -04:00			`! Copyright (C) 2008, 2010 Slava Pestov`
Working on Ruby.mn talk 2008-01-28 19:13:35 -05:00			`! See http://factorcode.org/license.txt for BSD license.`
Updating libraries 2008-02-18 10:08:59 -05:00			`USING: calendar namespaces models threads kernel init ;`
Working on Ruby.mn talk 2008-01-28 19:13:35 -05:00			`IN: calendar.model`

			`SYMBOL: time`

			`: (time-thread) ( -- )`
			`now time get set-model`
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part 2008-11-19 02:50:05 -05:00			`1 seconds sleep (time-thread) ;`
Working on Ruby.mn talk 2008-01-28 19:13:35 -05:00
Working on new threads 2008-02-18 06:07:40 -05:00			`: time-thread ( -- )`
Plug minor memory leaks 2008-06-11 21:27:31 -04:00			`[`
			`init-namespaces`
			`(time-thread)`
			`] "Time model update" spawn drop ;`
Working on Ruby.mn talk 2008-01-28 19:13:35 -05:00
calendar.model, tools.errors.model: re-initialize models on startup 2010-05-31 20:14:26 -04:00			`[`
			`f <model> time set-global`
			`time-thread`
			`] "calendar.model" add-startup-hook`