list-parser

Vocabulary

peg.parsers.private

Definition

IN: peg.parsers.private

TUPLE: list-parser item separator repeat1? ;

Methods

USING: accessors kernel math peg peg.parsers.private peg.private
sequences ;

M: list-parser parser-quot
    [ item>> execute-parser-quot ]
    [ separator>> execute-parser-quot over ] [ repeat1?>> ] tri
    [ [ [ f ] if ] curry compose ] dip
    [ [ swap repeat-loop ] curry ] dip
    [ [ dup ast>> length 2 < [ drop f ] when ] when ] curry
    compose [
        [ [ input-slice V{ } clone <parse-result> ] ] dip
        [ parse-seq-element ] curry compose
    ] dip [ [ f ] if* ] curry compose ;