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

Use 1|| instead of 0|| where appropriate in peg.ebnf to remove some stack shuffling

db4
Slava Pestov 2009-03-12 21:21:32 -05:00
parent bb5c6f78b8
commit 9696661ef5
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
basis/peg/ebnf/ebnf.factor
View File

@ -128,28 +128,28 @@ PEG: escaper ( string -- ast )
#! in the EBNF syntax itself. #! in the EBNF syntax itself.
[ [
{ {
[ dup blank? ] [ blank? ]
[ dup CHAR: " = ] [ CHAR: " = ]
[ dup CHAR: ' = ] [ CHAR: ' = ]
[ dup CHAR: | = ] [ CHAR: | = ]
[ dup CHAR: { = ] [ CHAR: { = ]
[ dup CHAR: } = ] [ CHAR: } = ]
[ dup CHAR: = = ] [ CHAR: = = ]
[ dup CHAR: ) = ] [ CHAR: ) = ]
[ dup CHAR: ( = ] [ CHAR: ( = ]
[ dup CHAR: ] = ] [ CHAR: ] = ]
[ dup CHAR: [ = ] [ CHAR: [ = ]
[ dup CHAR: . = ] [ CHAR: . = ]
[ dup CHAR: ! = ] [ CHAR: ! = ]
[ dup CHAR: & = ] [ CHAR: & = ]
[ dup CHAR: * = ] [ CHAR: * = ]
[ dup CHAR: + = ] [ CHAR: + = ]
[ dup CHAR: ? = ] [ CHAR: ? = ]
[ dup CHAR: : = ] [ CHAR: : = ]
[ dup CHAR: ~ = ] [ CHAR: ~ = ]
[ dup CHAR: < = ] [ CHAR: < = ]
[ dup CHAR: > = ] [ CHAR: > = ]
} 0|| not nip } 1|| not
] satisfy repeat1 [ >string <ebnf-non-terminal> ] action ; ] satisfy repeat1 [ >string <ebnf-non-terminal> ] action ;
: 'terminal' ( -- parser ) : 'terminal' ( -- parser )
@ -161,9 +161,9 @@ PEG: escaper ( string -- ast )
#! Parse a valid foreign parser name #! Parse a valid foreign parser name
[ [
{ {
[ dup blank? ] [ blank? ]
[ dup CHAR: > = ] [ CHAR: > = ]
} 0|| not nip } 1|| not
] satisfy repeat1 [ >string ] action ; ] satisfy repeat1 [ >string ] action ;
: 'foreign' ( -- parser ) : 'foreign' ( -- parser )