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

Add EBNF: word

release
Chris Double 2007-11-28 11:46:06 +13:00
parent 7a414869de
commit 88e93446b2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/peg/ebnf/ebnf.factor
View File

@ -108,11 +108,13 @@ DEFER: 'rhs'
3array seq [ first2 <ebnf-rule> ] action ; 3array seq [ first2 <ebnf-rule> ] action ;
: 'ebnf' ( -- parser ) : 'ebnf' ( -- parser )
'rule' sp ";" token sp hide list-of [ <ebnf> ] action ; 'rule' sp "." token sp hide list-of [ <ebnf> ] action ;
: ebnf>quot ( string -- quot ) : ebnf>quot ( string -- quot )
'ebnf' parse [ 'ebnf' parse [
parse-result-ast ebnf-compile parse-result-ast ebnf-compile
] [ ] [
f f
] if* ; ] if* ;
: EBNF: ";" parse-tokens "" join ebnf>quot call ; parsing