rule-parser ( -- parser )

Vocabulary

peg.ebnf.private

Inputs

None

Outputs

parser

an object

Definition

USING: accessors make peg sequences ;

IN: peg.ebnf.private

: rule-parser ( -- parser )
    [
        "tokenizer" token ensure-not , non-terminal-parser
        [ symbol>> ] action , "=" syntax ,
        ">" token ensure-not , choice-parser ,
    ] seq* [ first2 <ebnf-rule> ] action ;