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

Move towards having ebnf infer

db4
Chris Double 2008-03-29 16:24:13 +13:00
parent 5f37b4fc72
commit 0db0d9cd44
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -282,7 +282,7 @@ M: ebnf-non-terminal (transform) ( ast -- parser )
: ebnf>quot ( string -- hashtable quot ) : ebnf>quot ( string -- hashtable quot )
'ebnf' parse check-parse-result 'ebnf' parse check-parse-result
parse-result-ast transform dup main swap at compile [ parse ] curry ; parse-result-ast transform dup main swap at compile [ compiled-parse ] curry ;
: [EBNF "EBNF]" parse-multiline-string ebnf>quot nip parsed ; parsing : [EBNF "EBNF]" parse-multiline-string ebnf>quot nip parsed ; parsing

8
extra/peg/peg.factor
View File

@ -192,7 +192,7 @@ C: <head> peg-head
f lrstack set f lrstack set
H{ } clone heads set H{ } clone heads set
H{ } clone packrat set H{ } clone packrat set
] H{ } make-assoc swap bind ; ] H{ } make-assoc swap bind ; inline
: compiled-parsers ( -- cache ) : compiled-parsers ( -- cache )
@ -236,9 +236,11 @@ GENERIC: (compile) ( parser -- quot )
: compile ( parser -- word ) : compile ( parser -- word )
[ compiled-parser ] with-compilation-unit ; [ compiled-parser ] with-compilation-unit ;
: compiled-parse ( state word -- result )
swap [ execute ] with-packrat ; inline
: parse ( state parser -- result ) : parse ( state parser -- result )
dup word? [ compile ] unless dup word? [ compile ] unless compiled-parse ;
[ execute ] curry with-packrat ;
<PRIVATE <PRIVATE