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

Deleting dead code in extra/rss

release
Daniel Ehrenberg 2007-11-23 23:54:25 -05:00
parent b5b0a5dae1
commit eca98a3b8f
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/rss/rss.factor
View File

@ -3,22 +3,14 @@
IN: rss IN: rss
! USING: kernel http-client xml xml-utils xml-data errors io strings ! USING: kernel http-client xml xml-utils xml-data errors io strings
! sequences xml-writer parser-combinators lazy-lists entities ; ! sequences xml-writer parser-combinators lazy-lists entities ;
USING: xml.utilities kernel promises parser-combinators assocs USING: xml.utilities kernel assocs
parser-combinators.replace strings sequences xml.data xml.writer strings sequences xml.data xml.writer
io.streams.string combinators xml xml.entities io.files io io.streams.string combinators xml xml.entities io.files io
http.client ; http.client ;
: ?children>string ( tag/f -- string/f ) : ?children>string ( tag/f -- string/f )
[ children>string ] [ f ] if* ; [ children>string ] [ f ] if* ;
LAZY: '&' ( -- parser )
"&" token
[ blank? ] satisfy &>
[ "&amp;" swap add ] <@ ;
: &>&amp; ( string -- string )
'&amp;' replace ;
TUPLE: feed title link entries ; TUPLE: feed title link entries ;
C: <feed> feed C: <feed> feed