make-float-dec-exponent ( float-parse n/f -- float/f )

Vocabulary

math.parser.private

Inputs

float-parse	an object
n/f	an object

Outputs

float/f

an object

Definition

USING: accessors combinators kernel math ;

IN: math.parser.private

: make-float-dec-exponent ( float-parse n/f -- float/f )
    over [ exponent>> ] [ magnitude>> ] bi + {
        { [ dup max-magnitude-10 > ] [ 3drop 1/0. ] }
        { [ dup min-magnitude-10 < ] [ 3drop 0.0 ] }
        [
            drop [
                [ radix>> ] [ point>> ] [ exponent>> ] tri -
                (pow)
            ] [ swap /f ] bi*
        ]
    } cond ; inline