signed-le> ( seq -- x )

Vocabulary

endian

Inputs

seq

an object

Outputs

x

an object

Definition

USING: alien.c-types combinators endian.private kernel sequences
;

IN: endian

: signed-le> ( seq -- x )
    dup length {
        { 1 [ int8_t 1 n-signed-le> ] }
        { 2 [ int16_t 2 n-signed-le> ] }
        { 4 [ int32_t 4 n-signed-le> ] }
        { 8 [ int64_t 8 n-signed-le> ] }
        [ drop slow-signed-le> ]
    } case ;