DARCS RSS feed responder, and some minimal utilities for spawning processes
parent
58d17c9f9b
commit
0b4440ae9b
|
@ -0,0 +1,56 @@
|
|||
USING: cont-responder io kernel namespaces sequences xml ;
|
||||
|
||||
SYMBOL: darcs-directory
|
||||
|
||||
"/var/www/factorcode.org/repos/" darcs-directory set
|
||||
|
||||
: darcs-changelog
|
||||
darcs-directory get cd
|
||||
"darcs changes --xml" "r" <process-stream> contents xml ;
|
||||
|
||||
: rss-item ( { title date author } -- )
|
||||
"item" [ ] [
|
||||
{ "title" "pubDate" "author" } [ [ ] text-tag ] 2each
|
||||
] tag ;
|
||||
|
||||
: ?tag-name ( tag -- name/f )
|
||||
dup tag? [ tag-name ] [ drop f ] if ;
|
||||
|
||||
: children-named ( tag name -- seq )
|
||||
swap tag-children [ ?tag-name = ] subset-with ;
|
||||
|
||||
: tag-child ( tag name -- tag )
|
||||
children-named first ;
|
||||
|
||||
: patch>rss-item ( tag -- { title link author date } )
|
||||
[
|
||||
dup "name" tag-child tag-children %
|
||||
tag-props [ "local_date" get , "author" get , ] bind
|
||||
] { } make ;
|
||||
|
||||
SYMBOL: rss-feed-title
|
||||
SYMBOL: rss-feed-link
|
||||
SYMBOL: rss-feed-description
|
||||
|
||||
"Factor DARCS repository" rss-feed-title set
|
||||
"http://factorcode.org/repos/" rss-feed-link set
|
||||
"Recent patches applied to the Factor DARCS repository" rss-feed-description set
|
||||
|
||||
: rss-metadata ( -- )
|
||||
{ rss-feed-title rss-feed-link rss-feed-description }
|
||||
{ "title" "link" "description" }
|
||||
[ >r get r> [ ] text-tag ] 2each ;
|
||||
|
||||
: rss-feed ( items -- string )
|
||||
[
|
||||
"rss" [ "2.0" "version" set ] [
|
||||
"channel" [ ] [ rss-metadata [ rss-item ] each ] tag
|
||||
] tag
|
||||
] make-xml xml>string ;
|
||||
|
||||
: changelog>rss-feed ( xml -- string )
|
||||
"patch" children-named [ patch>rss-item ] map rss-feed ;
|
||||
|
||||
: darcs-rss-feed darcs-changelog changelog>rss-feed print ;
|
||||
|
||||
"darcs" [ darcs-rss-feed ] install-cont-responder
|
|
@ -0,0 +1,12 @@
|
|||
USING: compiler io io-internals kernel parser ;
|
||||
|
||||
FUNCTION: int system ( char* command ) ; compiled
|
||||
|
||||
FUNCTION: void* popen ( char* command, char* type ) ; compiled
|
||||
|
||||
FUNCTION: int fileno ( void* file ) ; compiled
|
||||
|
||||
: <process-stream> ( command mode -- stream )
|
||||
popen fileno dup <fd-stream> ;
|
||||
|
||||
: !" parse-string system drop ; parsing
|
Loading…
Reference in New Issue