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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/webapps/imagebin/imagebin.factor
View File

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

14
extra/webapps/site-watcher/site-watcher.factor
View File

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