normal-float ( -- parser )

Vocabulary

toml.private

Inputs

None

Outputs

parser

an object

Definition

USING: make math.parser peg sequences ;

IN: toml.private

: normal-float ( -- parser )
    [ sign optional , decdigit digits , exponent , ] seq* [
        sign optional , decdigit digits , "." token ,
        decdigit digits , exponent optional ,
    ] seq* 2choice [ "" concat-as string>number ] action ;