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

Added vocab monitors for all vocab-roots (not just files under resource-path) 

N.B. monitors are initialized on startup so additional vocab-roots need to be saved in image
db4
Phil Dawes 2008-04-24 09:25:19 +01:00
parent 5c1d60edf3
commit 02d95144d9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
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 command-line ; sequences splitting assocs command-line concurrency.messaging io.backend sets ;
IN: tools.vocabs.monitor IN: tools.vocabs.monitor
: vocab-dir>vocab-name ( path -- vocab ) : vocab-dir>vocab-name ( path -- vocab )
@ -22,17 +22,20 @@ IN: tools.vocabs.monitor
: path>vocab ( path -- vocab ) : path>vocab ( path -- vocab )
chop-vocab-root path>vocab-name vocab-dir>vocab-name ; chop-vocab-root path>vocab-name vocab-dir>vocab-name ;
: monitor-loop ( monitor -- ) : monitor-loop ( -- )
#! On OS X, monitors give us the full path, so we chop it #! On OS X, monitors give us the full path, so we chop it
#! off if its there. #! off if its there.
dup next-change drop path>vocab changed-vocab receive first path>vocab changed-vocab
reset-cache reset-cache
monitor-loop ; monitor-loop ;
: add-monitor-for-path ( path -- )
normalize-path dup exists? [ t my-mailbox (monitor) ] when drop ;
: monitor-thread ( -- ) : monitor-thread ( -- )
[ [
[ [
"" resource-path t <monitor> vocab-roots get prune [ add-monitor-for-path ] each
H{ } clone changed-vocabs set-global H{ } clone changed-vocabs set-global
vocabs [ changed-vocab ] each vocabs [ changed-vocab ] each