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

Refactor satisfy peg parser

db4
Chris Double 2008-04-05 17:15:43 +13:00
parent a6b160c447
commit 8b16816bf8
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/peg/peg.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007, 2008 Chris Double. ! Copyright (C) 2007, 2008 Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences strings namespaces math assocs shuffle USING: kernel sequences strings fry namespaces math assocs shuffle
vectors arrays combinators.lib math.parser match vectors arrays combinators.lib math.parser match
unicode.categories sequences.lib compiler.units parser unicode.categories sequences.lib compiler.units parser
words quotations effects memoize accessors locals effects ; words quotations effects memoize accessors locals effects ;
@ -282,21 +282,20 @@ TUPLE: satisfy-parser quot ;
MATCH-VARS: ?quot ; MATCH-VARS: ?quot ;
: satisfy-pattern ( -- quot ) : parse-satisfy ( input quot -- result )
[ swap dup empty? [
input-slice dup empty? [ 2drop f
drop f
] [ ] [
unclip-slice dup ?quot call [ unclip-slice rot dupd call [
<parse-result> <parse-result>
] [ ] [
2drop f 2drop f
] if ] if
] if ] if ; inline
] ;
M: satisfy-parser (compile) ( parser -- quot ) M: satisfy-parser (compile) ( parser -- quot )
quot>> \ ?quot satisfy-pattern match-replace ; quot>> '[ input-slice , parse-satisfy ] ;
TUPLE: range-parser min max ; TUPLE: range-parser min max ;