convert-signed-quot ( n -- quot )


Vocabulary
alien.endian

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