(element-parser) ( -- parser )

Vocabulary

peg.ebnf.private

Inputs

None

Outputs

parser

an object

Definition

USING: kernel make peg sequences ;

IN: peg.ebnf.private

: (element-parser) ( -- parser )
    [
        [
            [
                non-terminal-parser , terminal-parser ,
                foreign-parser , range-parser ,
                any-character-parser ,
            ] choice* [ dup , "~" token hide , ] seq*
            [ first <ebnf-ignore> ] action ,
            [ dup , "*~" token hide , ] seq*
            [ first <ebnf-repeat0> <ebnf-ignore> ] action ,
            [ dup , "+~" token hide , ] seq*
            [ first <ebnf-repeat1> <ebnf-ignore> ] action ,
            [ dup , "*" token hide , ] seq*
            [ first <ebnf-repeat0> ] action ,
            [ dup , "+" token hide , ] seq*
            [ first <ebnf-repeat1> ] action ,
            [ dup , "?[" token ensure-not , "?" token hide , ]
            seq* [ first <ebnf-optional> ] action , ,
        ] choice* ,
        [ "=" syntax ensure-not , "=>" syntax ensure , ] choice*
        ,
    ] seq* [ first ] action ;