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

compiled pegs infer

db4
Chris Double 2008-03-29 16:11:08 +13:00
parent ce8ab6356b
commit 5f37b4fc72
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/peg/peg.factor
View File

@ -65,7 +65,7 @@ C: <head> peg-head
] [
pos set
fail
] if* ;
] if* ; inline
: memo ( pos rule -- memo-entry )
#! Return the result from the memo cache.
@ -85,14 +85,14 @@ C: <head> peg-head
m (>>ans)
pos get m (>>pos)
r p m h (grow-lr)
] if ;
] if ; inline
:: grow-lr ( r p m h -- ast )
h p heads get set-at
r p m h (grow-lr)
p heads get delete-at
m pos>> pos set m ans>>
;
; inline
:: (setup-lr) ( r l s -- )
s head>> l head>> eq? [
@ -121,7 +121,7 @@ C: <head> peg-head
] [
m ans>> seed>>
] if
] ;
] ; inline
:: recall ( r p -- memo-entry )
[let* |
@ -145,7 +145,7 @@ C: <head> peg-head
] [
m
] if
] ;
] ; inline
:: apply-non-memo-rule ( r p -- ast )
[let* |
@ -162,7 +162,7 @@ C: <head> peg-head
ans m (>>ans)
ans
] if
] ;
] ; inline
:: apply-memo-rule ( r m -- ast )
m pos>> pos set
@ -182,7 +182,7 @@ C: <head> peg-head
] [
r p apply-non-memo-rule
] if
] ;
] ; inline
: with-packrat ( input quot -- result )
#! Run the quotation with a packrat cache active.