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

Refactor choice peg parser

db4
Chris Double 2008-04-05 17:54:18 +13:00
parent 102178f787
commit 226d211342
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/peg/peg.factor
View File

@ -343,21 +343,16 @@ M: seq-parser (compile) ( parser -- quot )
TUPLE: choice-parser parsers ; TUPLE: choice-parser parsers ;
MATCH-VARS: ?quot ;
: choice-pattern ( -- quot )
[
[ ?quot ] unless*
] ;
M: choice-parser (compile) ( parser -- quot ) M: choice-parser (compile) ( parser -- quot )
[ [
f , f ,
parsers>> [ compiled-parser \ ?quot choice-pattern match-replace % ] each parsers>> [ compiled-parser 1quotation , \ unless* , ] each
] [ ] make ; ] [ ] make ;
TUPLE: repeat0-parser p1 ; TUPLE: repeat0-parser p1 ;
MATCH-VARS: ?quot ;
: (repeat0) ( quot result -- result ) : (repeat0) ( quot result -- result )
over call [ over call [
[ remaining>> swap (>>remaining) ] 2keep [ remaining>> swap (>>remaining) ] 2keep