construct-array-simple ( typecode data -- obj )


Vocabulary
pickle.private

Inputs
typecodean object
dataan object


Outputs
objan object


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

IN: pickle.private

: construct-array-simple ( typecode data -- obj )
swap {
{ "c" [ char ] }
{ "u" [ char ] }
{ "b" [ int8_t ] }
{ "B" [ uint8_t ] }
{ "h" [ int16_t ] }
{ "H" [ uint16_t ] }
{ "i" [ int32_t ] }
{ "I" [ uint32_t ] }
{ "l" [ int64_t ] }
{ "L" [ uint64_t ] }
{ "f" [ float ] }
{ "d" [ double ] }
} case >c-array ;