-
Notifications
You must be signed in to change notification settings - Fork 8
/
parsemsgpack.m
191 lines (179 loc) · 6.72 KB
/
parsemsgpack.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
%PARSEMSGPACK parses a msgpack byte buffer into Matlab data structures
% PARSEMSGPACK(BYTES)
% reads BYTES as msgpack data, and creates Matlab data structures
% from it. The number of bytes consumed by the parsemsgpack call
% is returned in the variable IDX.
% - strings are converted to strings
% - numbers are converted to appropriate numeric values
% - true, false are converted to logical 1, 0
% - nil is converted to []
% - arrays are converted to cell arrays
% - maps are converted to containers.Map
% (c) 2016 Bastian Bechtold
% voluntary contributions made by Christopher Nadler (cnadler86)
% This code is licensed under the BSD 3-clause license
function [obj, idx] = parsemsgpack(bytes)
[obj, idx] = parse(uint8(bytes(:)), 1);
end
function [obj, idx] = parse(bytes, idx)
% masks:
b10000000 = uint8(128);
b11100000 = uint8(224);
b00011111 = uint8(31);
b11110000 = uint8(240);
b00001111 = uint8(15);
% values:
b00000000 = uint8(0);
b10010000 = uint8(144);
b10100000 = uint8(160);
currentbyte = bytes(idx);
if bitand(b10000000, currentbyte) == b00000000
% decode positive fixint
obj = uint8(currentbyte);
idx = idx + 1;
return
elseif bitand(b11100000, currentbyte) == b11100000
% decode negative fixint
obj = typecast(currentbyte, 'int8');
idx = idx + 1;
return
elseif bitand(b11110000, currentbyte) == b10000000
% decode fixmap
len = double(bitand(b00001111, currentbyte));
[obj, idx] = parsemap(len, bytes, idx+1);
return
elseif bitand(b11110000, currentbyte) == b10010000
% decode fixarray
len = double(bitand(b00001111, currentbyte));
[obj, idx] = parsearray(len, bytes, idx+1);
return
elseif bitand(b11100000, currentbyte) == b10100000
% decode fixstr
len = double(bitand(b00011111, currentbyte));
[obj, idx] = parsestring(len, bytes, idx + 1);
return
end
switch currentbyte
case uint8(192) % nil
obj = [];
idx = idx+1;
case uint8(194) % false
obj = false;
idx = idx+1;
case uint8(195) % true
obj = true;
idx = idx+1;
case uint8(196) % bin8
len = double(bytes(idx+1));
[obj, idx] = parsebytes(len, bytes, idx+2);
case uint8(197) % bin16
len = double(bytes2scalar(bytes(idx+1:idx+2), 'uint16'));
[obj, idx] = parsebytes(len, bytes, idx+3);
case uint8(198) % bin32
len = double(bytes2scalar(bytes(idx+1:idx+4), 'uint32'));
[obj, idx] = parsebytes(len, bytes, idx+5);
case uint8(199) % ext8
len = double(bytes(idx+1));
[obj, idx] = parseext(len, bytes, idx+2);
case uint8(200) % ext16
len = double(bytes2scalar(bytes(idx+1:idx+2), 'uint16'));
[obj, idx] = parseext(len, bytes, idx+3);
case uint8(201) % ext32
len = double(bytes2scalar(bytes(idx+1:idx+4), 'uint32'));
[obj, idx] = parseext(len, bytes, idx+5);
case uint8(202) % float32
obj = bytes2scalar(bytes(idx+1:idx+4), 'single');
idx = idx+5;
case uint8(203) % float64
obj = bytes2scalar(bytes(idx+1:idx+8), 'double');
idx = idx+9;
case uint8(204) % uint8
obj = bytes(idx+1);
idx = idx+2;
case uint8(205) % uint16
obj = bytes2scalar(bytes(idx+1:idx+2), 'uint16');
idx = idx+3;
case uint8(206) % uint32
obj = bytes2scalar(bytes(idx+1:idx+4), 'uint32');
idx = idx+5;
case uint8(207) % uint64
obj = bytes2scalar(bytes(idx+1:idx+8), 'uint64');
idx = idx+9;
case uint8(208) % int8
obj = bytes2scalar(bytes(idx+1), 'int8');
idx = idx+2;
case uint8(209) % int16
obj = bytes2scalar(bytes(idx+1:idx+2), 'int16');
idx = idx+3;
case uint8(210) % int32
obj = bytes2scalar(bytes(idx+1:idx+4), 'int32');
idx = idx+5;
case uint8(211) % int64
obj = bytes2scalar(bytes(idx+1:idx+8), 'int64');
idx = idx+9;
case uint8(212) % fixext1
[obj, idx] = parseext(1, bytes, idx+1);
case uint8(213) % fixext2
[obj, idx] = parseext(2, bytes, idx+1);
case uint8(214) % fixext4
[obj, idx] = parseext(4, bytes, idx+1);
case uint8(215) % fixext8
[obj, idx] = parseext(8, bytes, idx+1);
case uint8(216) % fixext16
[obj, idx] = parseext(16, bytes, idx+1);
case uint8(217) % str8
len = double(bytes(idx+1));
[obj, idx] = parsestring(len, bytes, idx+2);
case uint8(218) % str16
len = double(bytes2scalar(bytes(idx+1:idx+2), 'uint16'));
[obj, idx] = parsestring(len, bytes, idx+3);
case uint8(219) % str32
len = double(bytes2scalar(bytes(idx+1:idx+4), 'uint32'));
[obj, idx] = parsestring(len, bytes, idx+5);
case uint8(220) % array16
len = double(bytes2scalar(bytes(idx+1:idx+2), 'uint16'));
[obj, idx] = parsearray(len, bytes, idx+3);
case uint8(221) % array32
len = double(bytes2scalar(bytes(idx+1:idx+4), 'uint32'));
[obj, idx] = parsearray(len, bytes, idx+5);
case uint8(222) % map16
len = double(bytes2scalar(bytes(idx+1:idx+2), 'uint16'));
[obj, idx] = parsemap(len, bytes, idx+3);
case uint8(223) % map32
len = double(bytes2scalar(bytes(idx+1:idx+4), 'uint32'));
[obj, idx] = parsemap(len, bytes, idx+5);
otherwise
error('transplant:parsemsgpack:unknowntype', ...
['Unknown type "' dec2bin(currentbyte) '"']);
end
end
function value = bytes2scalar(bytes, type)
% reverse byte order to convert from little-endian to big-endian
value = typecast(bytes(end:-1:1), type);
end
function [str, idx] = parsestring(len, bytes, idx)
str = native2unicode(bytes(idx:idx+len-1)', 'utf-8');
idx = idx + len;
end
function [out, idx] = parsebytes(len, bytes, idx)
out = bytes(idx:idx+len-1);
idx = idx + len;
end
function [out, idx] = parseext(len, bytes, idx)
out.type = bytes(idx);
out.data = bytes(idx+1:idx+len);
idx = idx + len + 1;
end
function [out, idx] = parsearray(len, bytes, idx)
out = cell(1, len);
for n=1:len
[out{n}, idx] = parse(bytes, idx);
end
end
function [out, idx] = parsemap(len, bytes, idx)
out = containers.Map();
for n=1:len
[key, idx] = parse(bytes, idx);
[out(key), idx] = parse(bytes, idx);
end
end