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

Refactor ensure and ensure-not parsers

db4
Chris Double 2008-04-05 18:30:11 +13:00
parent 796981e192
commit 247bf2137b
1 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
extra/peg/peg.factor
View File

@ -405,31 +405,19 @@ M: semantic-parser (compile) ( parser -- quot )
TUPLE: ensure-parser p1 ;
: ensure-pattern ( -- quot )
[
input-slice ?quot [
ignore <parse-result>
] [
drop f
] if
] ;
: check-ensure ( old-input result -- result )
[ ignore <parse-result> ] [ drop f ] if ;
M: ensure-parser (compile) ( parser -- quot )
p1>> compiled-parser \ ?quot ensure-pattern match-replace ;
p1>> compiled-parser 1quotation '[ input-slice @ check-ensure ] ;
TUPLE: ensure-not-parser p1 ;
: ensure-not-pattern ( -- quot )
[
input-slice ?quot [
drop f
] [
ignore <parse-result>
] if
] ;
: check-ensure-not ( old-input result -- result )
[ drop f ] [ ignore <parse-result> ] if ;
M: ensure-not-parser (compile) ( parser -- quot )
p1>> compiled-parser \ ?quot ensure-not-pattern match-replace ;
p1>> compiled-parser 1quotation '[ input-slice @ check-ensure-not ] ;
TUPLE: action-parser p1 quot ;