signed-be> ( seq -- x )

Vocabulary

endian

Inputs

seq

an object

Outputs

x

an object

Definition

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

IN: endian

: signed-be> ( seq -- x )
    big-endian [
        dup length {
            { 1 [ int8_t deref ] }
            { 2 [ int16_t deref ] }
            { 4 [ int32_t deref ] }
            { 8 [ int64_t deref ] }
            [ drop slow-signed-be> ]
        } case
    ] [ slow-signed-be> ] if-endian ;