convert-signed-quot ( n -- quot )

Vocabulary

alien.endian

Inputs

n

an object

Outputs

quot

an object

Definition

USING: alien.c-types alien.data combinators ;

IN: alien.endian

: convert-signed-quot ( n -- quot )
    {
        { 1 [ [ char <ref> char deref ] ] }
        { 2 [ [ short <ref> short deref ] ] }
        { 4 [ [ int <ref> int deref ] ] }
        { 8 [ [ longlong <ref> longlong deref ] ] }
        [ invalid-signed-conversion ]
    } case ; inline