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

futher clean up api

db4
Doug Coleman 2009-03-18 17:45:33 -05:00
parent e8f9d48b08
commit c1da74f179
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/site-watcher/site-watcher-tests.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: db.tuples locals site-watcher site-watcher.db ; USING: db.tuples locals site-watcher site-watcher.db
site-watcher.private kernel ;
IN: site-watcher.tests IN: site-watcher.tests
:: fake-sites ( -- seq ) :: fake-sites ( -- seq )
@ -10,8 +11,8 @@ IN: site-watcher.tests
watching-site ensure-table watching-site ensure-table
"erg@factorcode.org" insert-account "erg@factorcode.org" insert-account
"http://asdfasdfasdfasdfqwerqqq.com" insert-site "http://asdfasdfasdfasdfqwerqqq.com" insert-site drop
"http://fark.com" insert-site "http://fark.com" insert-site drop
"erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site "erg@factorcode.org" "http://asdfasdfasdfasdfqwerqqq.com" watch-site
f <site> select-tuples f <site> select-tuples

6
extra/site-watcher/site-watcher.factor
View File

@ -71,20 +71,20 @@ TUPLE: reporting-site email url up? changed? last-up? error last-error ;
dup t >>up? insert-tuple dup t >>up? insert-tuple
] unless ; ] unless ;
PRIVATE> : insert-account ( email -- ) <account> insert-tuple ;
: select-account/site ( email url -- account site ) : select-account/site ( email url -- account site )
[ <account> select-tuple account-id>> ] [ <account> select-tuple account-id>> ]
[ insert-site site-id>> ] bi* ; [ insert-site site-id>> ] bi* ;
PRIVATE>
: watch-site ( email url -- ) : watch-site ( email url -- )
select-account/site <watching-site> insert-tuple ; select-account/site <watching-site> insert-tuple ;
: unwatch-site ( email url -- ) : unwatch-site ( email url -- )
select-account/site <watching-site> delete-tuples ; select-account/site <watching-site> delete-tuples ;
: insert-account ( email -- ) <account> insert-tuple ;
: watch-sites ( -- alarm ) : watch-sites ( -- alarm )
[ [
[ [