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

mason: fix load errors

db4
Slava Pestov 2010-09-06 21:43:51 -07:00
parent 9c87687b7f
commit 1ab2d347a7
2 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/mason/build/build.factor
View File

@ -3,7 +3,7 @@
USING: arrays kernel calendar io.directories io.encodings.utf8 USING: arrays kernel calendar io.directories io.encodings.utf8
io.files io.launcher io.pathnames namespaces prettyprint io.files io.launcher io.pathnames namespaces prettyprint
combinators mason.child mason.cleanup mason.common mason.config combinators mason.child mason.cleanup mason.common mason.config
mason.help mason.release mason.report mason.email mason.git mason.docs mason.release mason.report mason.email mason.git
mason.notify mason.platform mason.updates ; mason.notify mason.platform mason.updates ;
QUALIFIED: continuations QUALIFIED: continuations
IN: mason.build IN: mason.build
@ -43,7 +43,7 @@ IN: mason.build
begin-build begin-build
build-child build-child
[ notify-report ] [ notify-report ]
[ status-clean eq? [ upload-help release ] when ] bi [ status-clean eq? [ upload-docs release ] when ] bi
finish-build finish-build
] [ cleanup ] [ ] continuations:cleanup ; ] [ cleanup ] [ ] continuations:cleanup ;

34
extra/mason/docs/docs.factor
View File

@ -1,23 +1,31 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays help.html io.directories io.files io.launcher USING: arrays hashtables help.html http.client io.directories
kernel make mason.common mason.config namespaces sequences ; io.files io.launcher kernel make mason.common mason.config
IN: mason.help namespaces sequences ;
IN: mason.docs
: make-help-archive ( -- ) : make-docs-archive ( -- )
"factor/temp" [ "factor/temp" [
{ "tar" "cfz" "docs.tar.gz" "docs" } short-running-process { "tar" "cfz" "docs.tar.gz" "docs" } short-running-process
] with-directory ; ] with-directory ;
: upload-help-archive ( -- ) : upload-docs-archive ( -- )
"factor/temp/docs.tar.gz" "factor/temp/docs.tar.gz"
help-username get docs-username get
help-host get docs-host get
help-directory get "/docs.tar.gz" append docs-directory get "/docs.tar.gz" append
upload-safely ; upload-safely ;
: upload-help ( -- ) : notify-docs ( -- )
upload-help? get [ status-secret get "secret" associate
make-help-archive docs-update-url get
upload-help-archive http-post
2drop ;
: upload-docs ( -- )
upload-docs? get [
make-docs-archive
upload-docs-archive
notify-docs
] when ; ] when ;