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

parser-combinators: refactor <& and &>

chris.double 2006-10-05 11:25:20 +00:00
parent ab7ff8f783
commit 42d677bbd4
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/parser-combinators/parser-combinators.factor
View File

@ -176,21 +176,13 @@ TUPLE: parse-result parsed unparsed ;
#! Creates a 'some-parser'. #! Creates a 'some-parser'.
[ some-parser ] curry ; [ some-parser ] curry ;
: <&-parser ( input parser1 parser2 -- result )
#! Same as <&> except discard the results of the second parser.
<&> [ first ] <@ call ;
: <& ( parser1 parser2 -- parser ) : <& ( parser1 parser2 -- parser )
#! Same as <&> except discard the results of the second parser. #! Same as <&> except discard the results of the second parser.
[ <&-parser ] curry curry ; <&> [ first ] <@ ;
: &>-parser ( input parser1 parser2 -- result )
#! Same as <&> except discard the results of the first parser.
<&> [ second ] <@ call ;
: &> ( parser1 parser2 -- parser ) : &> ( parser1 parser2 -- parser )
#! Same as <&> except discard the results of the first parser. #! Same as <&> except discard the results of the first parser.
[ &>-parser ] curry curry ; <&> [ second ] <@ ;
: <:&>-parser ( input parser1 parser2 -- result ) : <:&>-parser ( input parser1 parser2 -- result )
#! Same as <&> except flatten the result. #! Same as <&> except flatten the result.