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

peg.ebnf: Throw errors not strings.

Doug Coleman 2013-03-29 09:43:05 -07:00
parent ba807daf0c
commit d2a730dda8
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -538,16 +538,17 @@ M: ebnf-non-terminal (transform) ( ast -- parser )
: transform-ebnf ( string -- object ) : transform-ebnf ( string -- object )
'ebnf' parse transform ; 'ebnf' parse transform ;
ERROR: unable-to-fully-parse-ebnf remaining ;
ERROR: could-not-parse-ebnf ;
: check-parse-result ( result -- result ) : check-parse-result ( result -- result )
[ [
dup remaining>> [ blank? ] trim [ dup remaining>> [ blank? ] trim [
[ unable-to-fully-parse-ebnf
"Unable to fully parse EBNF. Left to parse was: " %
%
] "" make throw
] unless-empty ] unless-empty
] [ ] [
"Could not parse EBNF" throw could-not-parse-ebnf
] if* ; ] if* ;
: parse-ebnf ( string -- hashtable ) : parse-ebnf ( string -- hashtable )