identifier-parser ( -- parser )

Vocabulary

peg.ebnf.private

Inputs

None

Outputs

parser

an object

Definition

USING: kernel make peg peg.parsers sequences sequences.deep
strings.parser ;

IN: peg.ebnf.private

: identifier-parser ( -- parser )
    [
        [
            [ 92 = ] satisfy [ "\"\\" member? ] satisfy 2seq ,
            [ 34 = not ] satisfy ,
        ] choice* repeat1 "\"" "\"" surrounded-by ,
        [ 39 = not ] satisfy repeat1 "'" "'" surrounded-by ,
    ] choice* [ "" flatten-as unescape-string ] action ;