webapps.*: make it so the webapps aren't initialized when compiling the vocabs

Because if they are then load-all will error out if you don't have the
needed dlls installed.
char-rename
Björn Lindqvist 2016-10-09 00:58:24 +02:00
parent 32825b9f5f
commit 716bc89c53
2 changed files with 15 additions and 12 deletions

View File

@ -1,10 +1,9 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions furnace.redirection
html.forms http http.server http.server.dispatchers
io.directories io.encodings.utf8 io.files io.pathnames
kernel math.parser multiline namespaces sequences urls
math ;
USING: accessors furnace.actions furnace.redirection http.server
http.server.dispatchers io.directories io.encodings.utf8 io.files
io.pathnames kernel math math.parser namespaces sequences
webapps.utils ;
IN: webapps.imagebin
TUPLE: imagebin < dispatcher path n ;
@ -43,4 +42,6 @@ M: imagebin call-responder*
<upload-image-action> "upload-image" add-responder
<uploaded-image-action> "uploaded-image" add-responder ;
: start-imagebin ( -- )
"resource:images" <imagebin> main-responder set-global
run-test-httpd ;

View File

@ -40,7 +40,7 @@ IN: webapps.site-watcher
<protected>
"update notification details" >>description ;
: <site-watcher-app> ( -- dispatcher )
: <site-watcher> ( -- dispatcher )
site-watcher-app new-dispatcher
<main-action> "" add-responder
<watch-list-action> "watch-list" add-responder
@ -63,11 +63,12 @@ IN: webapps.site-watcher
: site-watcher-db ( -- db )
"test.db" <temp-sqlite-db> ;
<site-watcher-app>
: <site-watcher-app> ( -- dispatcher )
<site-watcher>
<login-config>
<boilerplate> { site-watcher-app "site-watcher" } >>template
site-watcher-db <alloy>
main-responder set-global
<boilerplate>
{ site-watcher-app "site-watcher" } >>template
site-watcher-db <alloy> ;
M: site-watcher-app init-user-profile
drop "username" value "email" value <account> insert-tuple ;
@ -81,4 +82,5 @@ M: site-watcher-app init-user-profile
: start-site-watcher ( -- )
init-db
site-watcher-db run-site-watcher
<site-watcher-app> main-responder set-global
run-test-httpd ;