sequence-parser ( -- parser )

Vocabulary

peg.ebnf.private

Inputs

None

Outputs

parser

an object

Definition

USING: kernel make peg sequences ;

IN: peg.ebnf.private

: sequence-parser ( -- parser )
    [
        [ (sequence-parser) , action-parser , ] seq*
        [ first2 <ebnf-action> ] action ,
        [ (sequence-parser) , semantic-parser , ] seq*
        [ first2 <ebnf-semantic> ] action , (sequence-parser) ,
    ] choice* repeat1
    [ dup length 1 = [ first ] [ <ebnf-sequence> ] if ] action ;