Rename mason.server to webapps.mason.backend, rename mason.version to webapps.mason.version, for cleaner client-server separation

release
Slava Pestov 2010-09-16 23:52:49 -07:00
parent c4d717a49a
commit f013f9aa2f
30 changed files with 47 additions and 45 deletions

View File

@ -1,6 +1,6 @@
USING: continuations db db.sqlite io.directories io.files.temp USING: continuations db db.sqlite io.directories io.files.temp
mason.server tools.test ; webapps.mason.backend tools.test ;
IN: mason.server.tests IN: webapps.mason.backend.tests
[ "test.db" temp-file delete-file ] ignore-errors [ "test.db" temp-file delete-file ] ignore-errors

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: accessors calendar db db.sqlite db.tuples db.types kernel USING: accessors calendar db db.sqlite db.tuples db.types kernel
math math.order sequences combinators.short-circuit ; math math.order sequences combinators.short-circuit ;
IN: mason.server IN: webapps.mason.backend
CONSTANT: +idle+ "idle" CONSTANT: +idle+ "idle"
CONSTANT: +starting+ "starting" CONSTANT: +starting+ "starting"

View File

@ -1,8 +1,8 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math mason.email mason.server math.parser sequences USING: kernel math math.parser sequences xml.syntax xml.writer
xml.syntax xml.writer ; mason.email webapps.mason.backend ;
IN: mason.server.watchdog IN: webapps.mason.backend.watchdog
: crashed-builder-body ( crashed-builders -- string content-type ) : crashed-builder-body ( crashed-builders -- string content-type )
[ os/cpu [XML <li><-></li> XML] ] map [ os/cpu [XML <li><-></li> XML] ] map

View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions http.server.responses USING: accessors furnace.actions http.server.responses
mason.server math.parser ; webapps.mason.backend math.parser ;
IN: webapps.mason.counter IN: webapps.mason.counter
: <counter-action> ( -- action ) : <counter-action> ( -- action )

View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel mason.server furnace.actions USING: accessors kernel furnace.actions html.forms sequences
html.forms sequences xml.syntax webapps.mason.utils ; xml.syntax webapps.mason.backend webapps.mason.utils ;
IN: webapps.mason.downloads IN: webapps.mason.downloads
: builder-list ( seq -- xml ) : builder-list ( seq -- xml )

View File

@ -1,8 +1,8 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions html.components html.forms USING: accessors furnace.actions html.components html.forms
kernel mason.server mason.version.data webapps.mason.grids kernel webapps.mason.backend webapps.mason.version.data
webapps.mason.utils ; webapps.mason.grids webapps.mason.utils ;
IN: webapps.mason.downloads IN: webapps.mason.downloads
: stable-release ( version -- link ) : stable-release ( version -- link )

View File

@ -1,9 +1,9 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs db.tuples furnace.actions USING: accessors assocs db.tuples furnace.actions
furnace.utilities http.server.responses kernel locals furnace.utilities http.server.responses kernel locals sequences
mason.server mason.version.data sequences splitting urls splitting urls xml.syntax xml.writer webapps.mason.backend
webapps.mason.utils xml.syntax xml.writer ; webapps.mason.version.data webapps.mason.utils ;
IN: webapps.mason.grids IN: webapps.mason.grids
: render-grid-cell ( cpu os quot -- xml ) : render-grid-cell ( cpu os quot -- xml )

View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions math.parser USING: accessors furnace.actions math.parser
http.server.responses mason.server ; http.server.responses webapps.mason.backend ;
IN: webapps.mason.increment-counter IN: webapps.mason.increment-counter
: <increment-counter-action> ( -- action ) : <increment-counter-action> ( -- action )

View File

@ -1,7 +1,8 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions html.forms USING: accessors furnace.actions html.forms
http.server.responses mason.server mason.version validators ; http.server.responses validators webapps.mason.backend
webapps.mason.version ;
IN: webapps.mason.make-release IN: webapps.mason.make-release
: <make-release-action> ( -- action ) : <make-release-action> ( -- action )

View File

@ -1,7 +1,7 @@
! Copyright (C) 2009, 2010 Slava Pestov. ! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions furnace.auth furnace.db USING: accessors furnace.actions furnace.auth furnace.db
http.server.dispatchers mason.server webapps.mason.grids http.server.dispatchers webapps.mason.backend webapps.mason.grids
webapps.mason.package webapps.mason.release webapps.mason.report webapps.mason.package webapps.mason.release webapps.mason.report
webapps.mason.downloads webapps.mason.counter webapps.mason.downloads webapps.mason.counter
webapps.mason.status-update webapps.mason.docs-update webapps.mason.status-update webapps.mason.docs-update

View File

@ -1,10 +1,10 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays combinators furnace.actions html.forms USING: accessors arrays combinators furnace.actions html.forms
kernel mason.platform mason.report mason.server present kernel xml.syntax mason.platform mason.report present
sequences webapps.mason webapps.mason.report webapps.mason.utils sequences webapps.mason webapps.mason.report
xml.syntax ; webapps.mason.backend webapps.mason.utils ;
FROM: mason.version.files => platform ; FROM: webapps.mason.version.files => platform ;
IN: webapps.mason.package IN: webapps.mason.package
: building ( builder string -- xml ) : building ( builder string -- xml )

View File

@ -1,8 +1,8 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions html.forms kernel USING: accessors furnace.actions html.forms io.pathnames kernel
mason.platform mason.report mason.server sequences webapps.mason mason.platform mason.report sequences webapps.mason
webapps.mason.utils io.pathnames ; webapps.mason.backend webapps.mason.utils ;
IN: webapps.mason.release IN: webapps.mason.release
: release-link ( builder -- xml ) : release-link ( builder -- xml )

View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions http.server.responses kernel USING: accessors furnace.actions http.server.responses kernel
urls mason.server webapps.mason.utils xml.syntax ; urls xml.syntax webapps.mason.backend webapps.mason.utils ;
IN: webapps.mason.report IN: webapps.mason.report
: <build-report-action> ( -- action ) : <build-report-action> ( -- action )

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: accessors calendar combinators db.tuples furnace.actions USING: accessors calendar combinators db.tuples furnace.actions
furnace.redirection html.forms http.server.responses io kernel furnace.redirection html.forms http.server.responses io kernel
mason.server namespaces validators webapps.mason.utils ; namespaces validators webapps.mason.utils webapps.mason.backend ;
IN: webapps.mason.status-update IN: webapps.mason.status-update
: find-builder ( host-name os cpu -- builder ) : find-builder ( host-name os cpu -- builder )

View File

@ -1,9 +1,9 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs db.tuples furnace.actions USING: accessors arrays assocs db.tuples furnace.actions
furnace.utilities html.forms kernel mason.config mason.server furnace.utilities html.forms kernel namespaces sequences
mason.version.data namespaces sequences validators xml.syntax validators xml.syntax urls mason.config
urls ; webapps.mason.version.data webapps.mason.backend ;
IN: webapps.mason.utils IN: webapps.mason.utils
: link ( url label -- xml ) : link ( url label -- xml )

View File

@ -1,8 +1,8 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io kernel make mason.version.common mason.version.files USING: io kernel make sequences webapps.mason.version.common
sequences ; webapps.mason.version.files ;
IN: mason.version.binary IN: webapps.mason.version.binary
: binary-release-command ( version builder -- command ) : binary-release-command ( version builder -- command )
[ [

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: accessors calendar io io.encodings.ascii io.launcher USING: accessors calendar io io.encodings.ascii io.launcher
kernel make mason.config namespaces ; kernel make mason.config namespaces ;
IN: mason.version.common IN: webapps.mason.version.common
: execute-on-server ( string -- ) : execute-on-server ( string -- )
[ "ssh" , upload-host get , "-l" , upload-username get , ] { } make [ "ssh" , upload-host get , "-l" , upload-username get , ] { } make

View File

@ -1,8 +1,8 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors calendar db db.tuples db.types kernel locals USING: accessors calendar db db.tuples db.types kernel locals
mason.version.files sequences ; webapps.mason.version.files sequences ;
IN: mason.version.data IN: webapps.mason.version.data
TUPLE: release TUPLE: release
host-name os cpu host-name os cpu

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: accessors fry kernel make mason.config mason.platform USING: accessors fry kernel make mason.config mason.platform
mason.release.archive namespaces sequences ; mason.release.archive namespaces sequences ;
IN: mason.version.files IN: webapps.mason.version.files
: release-directory ( string version -- string ) : release-directory ( string version -- string )
[ "releases/" % % "/" % % ] "" make ; [ "releases/" % % "/" % % ] "" make ;

View File

@ -2,9 +2,9 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image bootstrap.image.download io USING: bootstrap.image bootstrap.image.download io
io.directories io.directories.hierarchy io.files.unique io.directories io.directories.hierarchy io.files.unique
io.launcher io.pathnames kernel mason.common mason.config io.launcher io.pathnames kernel namespaces sequences
mason.version.files namespaces sequences ; mason.common mason.config webapps.mason.version.files ;
IN: mason.version.source IN: webapps.mason.version.source
: clone-factor ( -- ) : clone-factor ( -- )
{ "git" "clone" "git://factorcode.org/git/factor.git" } try-process ; { "git" "clone" "git://factorcode.org/git/factor.git" } try-process ;

View File

@ -1,11 +1,12 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors bit.ly combinators db.tuples debugger fry USING: accessors bit.ly combinators db.tuples debugger fry
grouping io io.streams.string kernel locals make mason.email grouping io io.streams.string kernel locals make sequences
mason.server mason.twitter mason.version.binary threads mason.email mason.twitter webapps.mason.backend
mason.version.common mason.version.data mason.version.files webapps.mason.version.common webapps.mason.version.data
mason.version.source sequences threads ; webapps.mason.version.files webapps.mason.version.source
IN: mason.version webapps.mason.version.binary ;
IN: webapps.mason.version
: check-releases ( builders -- ) : check-releases ( builders -- )
[ release-git-id>> ] map all-equal? [ release-git-id>> ] map all-equal?

View File

@ -26,7 +26,7 @@ webapps.wiki
webapps.user-admin webapps.user-admin
webapps.help webapps.help
webapps.mason webapps.mason
mason.server ; webapps.mason.backend ;
IN: websites.concatenative IN: websites.concatenative
: test-db ( -- db ) "resource:test.db" <sqlite-db> ; : test-db ( -- db ) "resource:test.db" <sqlite-db> ;