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

parser-combinators: fix constructor stack effects.

John Benediktsson 2011-10-18 19:23:22 -07:00
parent 322d768941
commit c9b8d19f05
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/parser-combinators/parser-combinators.factor
View File

@ -69,7 +69,7 @@ M:: token-parser parse ( input parser -- list )
TUPLE: satisfy-parser quot ; TUPLE: satisfy-parser quot ;
C: satisfy satisfy-parser ( quot -- parser ) C: satisfy satisfy-parser
M: satisfy-parser parse ( input parser -- list ) M: satisfy-parser parse ( input parser -- list )
#! A parser that succeeds if the predicate, #! A parser that succeeds if the predicate,
@ -87,7 +87,7 @@ LAZY: any-char-parser ( -- parser )
TUPLE: epsilon-parser ; TUPLE: epsilon-parser ;
C: epsilon epsilon-parser ( -- parser ) C: epsilon epsilon-parser
M: epsilon-parser parse ( input parser -- list ) M: epsilon-parser parse ( input parser -- list )
#! A parser that parses the empty string. It #! A parser that parses the empty string. It
@ -98,7 +98,7 @@ M: epsilon-parser parse ( input parser -- list )
TUPLE: succeed-parser result ; TUPLE: succeed-parser result ;
C: succeed succeed-parser ( result -- parser ) C: succeed succeed-parser
M: succeed-parser parse ( input parser -- list ) M: succeed-parser parse ( input parser -- list )
#! A parser that always returns 'result' as a #! A parser that always returns 'result' as a
@ -107,7 +107,7 @@ M: succeed-parser parse ( input parser -- list )
TUPLE: fail-parser ; TUPLE: fail-parser ;
C: fail fail-parser ( -- parser ) C: fail fail-parser
M: fail-parser parse ( input parser -- list ) M: fail-parser parse ( input parser -- list )
#! A parser that always fails and returns #! A parser that always fails and returns
@ -188,7 +188,7 @@ TUPLE: sp-parser p1 ;
#! Return a parser that first skips all whitespace before #! Return a parser that first skips all whitespace before
#! calling the original parser. #! calling the original parser.
C: sp sp-parser ( p1 -- parser ) C: sp sp-parser
M: sp-parser parse ( input parser -- list ) M: sp-parser parse ( input parser -- list )
#! Skip all leading whitespace from the input then call #! Skip all leading whitespace from the input then call
@ -197,7 +197,7 @@ M: sp-parser parse ( input parser -- list )
TUPLE: just-parser p1 ; TUPLE: just-parser p1 ;
C: just just-parser ( p1 -- parser ) C: just just-parser
M: just-parser parse ( input parser -- result ) M: just-parser parse ( input parser -- result )
#! Calls the given parser on the input removes #! Calls the given parser on the input removes
@ -208,7 +208,7 @@ M: just-parser parse ( input parser -- result )
TUPLE: apply-parser p1 quot ; TUPLE: apply-parser p1 quot ;
C: <@ apply-parser ( parser quot -- parser ) C: <@ apply-parser
M: apply-parser parse ( input parser -- result ) M: apply-parser parse ( input parser -- result )
#! Calls the parser on the input. For each successful #! Calls the parser on the input. For each successful
@ -224,7 +224,7 @@ M: apply-parser parse ( input parser -- result )
TUPLE: some-parser p1 ; TUPLE: some-parser p1 ;
C: some some-parser ( p1 -- parser ) C: some some-parser
M: some-parser parse ( input parser -- result ) M: some-parser parse ( input parser -- result )
#! Calls the parser on the input, guarantees #! Calls the parser on the input, guarantees