mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-10-22 08:02:08 +02:00
fix peek object
This commit is contained in:
@@ -506,20 +506,22 @@ peekObjectRAW ptr = do
|
|||||||
|
|
||||||
peekObjectArray :: Ptr a -> IO Object
|
peekObjectArray :: Ptr a -> IO Object
|
||||||
peekObjectArray ptr = do
|
peekObjectArray ptr = do
|
||||||
size <- (#peek msgpack_object, via.array.size) ptr
|
csize <- (#peek msgpack_object, via.array.size) ptr
|
||||||
p <- (#peek msgpack_object, via.array.ptr) ptr
|
let size = fromIntegral (csize :: Word32)
|
||||||
objs <- mapM (\i -> peekObject $ p `plusPtr`
|
p <- (#peek msgpack_object, via.array.ptr) ptr
|
||||||
|
objs <- mapM (\i -> peekObject $ p `plusPtr`
|
||||||
((#size msgpack_object) * i))
|
((#size msgpack_object) * i))
|
||||||
[0..size-1]
|
[0..size-1]
|
||||||
return $ ObjectArray objs
|
return $ ObjectArray objs
|
||||||
|
|
||||||
peekObjectMap :: Ptr a -> IO Object
|
peekObjectMap :: Ptr a -> IO Object
|
||||||
peekObjectMap ptr = do
|
peekObjectMap ptr = do
|
||||||
size <- (#peek msgpack_object, via.map.size) ptr
|
csize <- (#peek msgpack_object, via.map.size) ptr
|
||||||
p <- (#peek msgpack_object, via.map.ptr) ptr
|
let size = fromIntegral (csize :: Word32)
|
||||||
dat <- mapM (\i -> peekObjectKV $ p `plusPtr`
|
p <- (#peek msgpack_object, via.map.ptr) ptr
|
||||||
|
dat <- mapM (\i -> peekObjectKV $ p `plusPtr`
|
||||||
((#size msgpack_object_kv) * i))
|
((#size msgpack_object_kv) * i))
|
||||||
[0..size-1]
|
[0..size-1]
|
||||||
return $ ObjectMap dat
|
return $ ObjectMap dat
|
||||||
|
|
||||||
peekObjectKV :: Ptr a -> IO (Object, Object)
|
peekObjectKV :: Ptr a -> IO (Object, Object)
|
||||||
|
Reference in New Issue
Block a user