steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add command-line switch for disabling the refresh-all monitor

db4
Slava Pestov 2008-04-09 02:56:17 -05:00
parent 6b16f70822
commit 17931bb535
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/tools/vocabs/monitor/monitor.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: threads io.files io.monitors init kernel USING: threads io.files io.monitors init kernel
vocabs vocabs.loader tools.vocabs namespaces continuations vocabs vocabs.loader tools.vocabs namespaces continuations
sequences splitting assocs ; sequences splitting assocs command-line ;
IN: tools.vocabs.monitor IN: tools.vocabs.monitor
: vocab-dir>vocab-name ( path -- vocab ) : vocab-dir>vocab-name ( path -- vocab )
@ -32,18 +32,20 @@ IN: tools.vocabs.monitor
#! off if its there. #! off if its there.
next-change drop path>vocab changed-vocab reset-cache ; next-change drop path>vocab changed-vocab reset-cache ;
: start-monitor-thread ( monitor -- ) : start-monitor-thread ( -- )
#! Silently ignore errors during monitor creation since #! Silently ignore errors during monitor creation since
#! monitors are not supported on all platforms. #! monitors are not supported on all platforms.
[ monitor-thread t ] curry
"Vocabulary monitor" spawn-server
drop ;
: start-monitor-threads ( -- )
[ [
"" resource-path t <monitor> start-monitor-thread "" resource-path t <monitor> [ monitor-thread t ] curry
"Vocabulary monitor" spawn-server drop
H{ } clone changed-vocabs set-global H{ } clone changed-vocabs set-global
vocabs [ changed-vocab ] each vocabs [ changed-vocab ] each
] ignore-errors ; ] ignore-errors ;
[ start-monitor-threads ] "tools.vocabs.monitor" add-init-hook [
"-no-monitors" cli-args get member? [
start-monitor-thread
] unless
] "tools.vocabs.monitor" add-init-hook