[vpack] ( from-element to-element from-size to-size from-type to-type -- quot )

Vocabulary

math.vectors.conversion.private

Inputs

from-element	an object
to-element	an object
from-size	an object
to-size	an object
from-type	an object
to-type	an object

Outputs

quot

an object

Definition

USING: combinators kernel math math.floats.small.c-types
math.vectors.simd.extensions ;

IN: math.vectors.conversion.private

:: [vpack]
    ( from-element to-element from-size to-size from-type to-type -- quot )
    from-size to-size /i
    log2 :> steps from-element to-element from-type to-type
    steps check-vpack to-element {
        {
            half
            [ [ [ from-type check-vconvert-type ] bi@ v>half ] ]
        }
        {
            bfloat
            [
                [
                    [ from-type check-vconvert-type ] bi@
                    v>bfloat
                ]
            ]
        }
        [
            drop from-type to-type to-element unsigned-type?
            [ ([vpack-unsigned]) ] [ ([vpack-signed]) ] if
        ]
    } case ;