range-parser ( -- parser )

Vocabulary

peg.ebnf.private

Inputs

None

Outputs

parser

an object

Definition

USING: kernel make peg sequences strings strings.parser ;

IN: peg.ebnf.private

: range-parser ( -- parser )
    [
        [ "[" syntax , "[" token ensure-not , ] seq* hide , [
            "\\]" token [ second ] action ,
            [ 93 = not ] satisfy ,
        ] choice* repeat0 , "]" syntax ,
    ] seq* [ first >string unescape-string <ebnf-range> ] action
    ;