time-parser ( -- parser )

Vocabulary

toml.private

Inputs

None

Outputs

parser

an object

Definition

USING: make peg peg.parsers sequences ;

IN: toml.private

: time-parser ( -- parser )
    [
        decdigit 2 exactly-n , ":" token , decdigit 2 exactly-n
        , ":" token , decdigit 2 exactly-n ,
        "." token decdigit repeat1 2seq optional
        [ concat ] action ,
    ] seq* [ "" concat-as ] action ;