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

Add hook for packrat implementation

db4
Chris Double 2008-03-26 17:38:30 +13:00
parent 85a3ee3e5b
commit c793a381fe
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/peg/peg.factor
View File

@ -17,6 +17,12 @@ SYMBOL: compiled-parsers
GENERIC: (compile) ( parser -- quot ) GENERIC: (compile) ( parser -- quot )
: run-parser ( input quot -- result )
#! Eventually this will be replaced with something that
#! can do packrat parsing by memoizing the results of
#! a parser. For now, it just calls the quotation.
call ; inline
: compiled-parser ( parser -- word ) : compiled-parser ( parser -- word )
#! Look to see if the given parser has been compiled. #! Look to see if the given parser has been compiled.
#! If not, compile it to a temporary word, cache it, #! If not, compile it to a temporary word, cache it,
@ -24,7 +30,7 @@ GENERIC: (compile) ( parser -- quot )
dup compiled-parsers get at [ dup compiled-parsers get at [
nip nip
] [ ] [
dup (compile) define-temp dup (compile) [ run-parser ] curry define-temp
[ swap compiled-parsers get set-at ] keep [ swap compiled-parsers get set-at ] keep
] if* ; ] if* ;