Handbook
Glossary
construct-array-extra ( typecode machinecode data -- obj )
Vocabulary
pickle
.
private
Inputs
typecode
an
object
machinecode
an
object
data
an
object
Outputs
obj
an
object
Definition
USING:
alien.c-types
alien.data
alien.endian
combinators
io.encodings.string
io.encodings.utf16
io.encodings.utf32
kernel
math
;
IN:
pickle.private
::
construct-array-extra
( typecode machinecode data -- obj )
machinecode 0
<
[
machinecode
throw
]
when
data
{
typecode machinecode
}
{
{
{
"c"
18
}
[
utf16le
decode
]
}
{
{
"c"
19
}
[
utf16be
decode
]
}
{
{
"c"
20
}
[
utf32le
decode
]
}
{
{
"c"
21
}
[
utf32be
decode
]
}
{
{
"u"
18
}
[
utf16le
decode
]
}
{
{
"u"
19
}
[
utf16be
decode
]
}
{
{
"u"
20
}
[
utf32le
decode
]
}
{
{
"u"
21
}
[
utf32be
decode
]
}
{
{
"b"
1
}
[
int8_t
cast-array
]
}
{
{
"B"
0
}
[
uint8_t
cast-array
]
}
{
{
"h"
4
}
[
le16
cast-array
]
}
{
{
"h"
5
}
[
be16
cast-array
]
}
{
{
"H"
2
}
[
ule16
cast-array
]
}
{
{
"H"
3
}
[
ube16
cast-array
]
}
{
{
"i"
8
}
[
le32
cast-array
]
}
{
{
"i"
9
}
[
be32
cast-array
]
}
{
{
"I"
6
}
[
ule32
cast-array
]
}
{
{
"I"
7
}
[
ube32
cast-array
]
}
{
{
"l"
8
}
[
le32
cast-array
]
}
{
{
"l"
9
}
[
be32
cast-array
]
}
{
{
"l"
12
}
[
le64
cast-array
]
}
{
{
"l"
13
}
[
be64
cast-array
]
}
{
{
"L"
6
}
[
ule32
cast-array
]
}
{
{
"L"
7
}
[
ube32
cast-array
]
}
{
{
"L"
10
}
[
ule64
cast-array
]
}
{
{
"L"
11
}
[
ube64
cast-array
]
}
{
{
"f"
14
}
[
float
cast-array
]
}
{
{
"f"
15
}
[
float
cast-array
]
}
{
{
"d"
16
}
[
double
cast-array
]
}
{
{
"d"
17
}
[
double
cast-array
]
}
}
case
;