12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649 |
- /*
- * Copyright (c) 2015, Vsevolod Stakhov
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * * Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * THIS SOFTWARE IS PROVIDED BY AUTHOR ''AS IS'' AND ANY
- * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-
- #ifdef HAVE_CONFIG_H
- #include "config.h"
- #endif
-
- #include "ucl.h"
- #include "ucl_internal.h"
-
- #ifdef HAVE_ENDIAN_H
- #include <endian.h>
- #elif defined(HAVE_SYS_ENDIAN_H)
- #include <sys/endian.h>
- #elif defined(HAVE_MACHINE_ENDIAN_H)
- #include <machine/endian.h>
- #endif
-
- #if !defined(__LITTLE_ENDIAN__) && !defined(__BIG_ENDIAN__)
- #if __BYTE_ORDER == __LITTLE_ENDIAN
- #define __LITTLE_ENDIAN__
- #elif __BYTE_ORDER == __BIG_ENDIAN
- #define __BIG_ENDIAN__
- #elif _WIN32
- #define __LITTLE_ENDIAN__
- #endif
- #endif
-
- #define SWAP_LE_BE16(val) ((uint16_t) ( \
- (uint16_t) ((uint16_t) (val) >> 8) | \
- (uint16_t) ((uint16_t) (val) << 8)))
-
- #if defined(__clang__) || (defined(__GNUC__) && __GNUC__ >= 4 && defined (__GNUC_MINOR__) && __GNUC_MINOR__ >= 3)
- # define SWAP_LE_BE32(val) ((uint32_t)__builtin_bswap32 ((uint32_t)(val)))
- # define SWAP_LE_BE64(val) ((uint64_t)__builtin_bswap64 ((uint64_t)(val)))
- #else
- #define SWAP_LE_BE32(val) ((uint32_t)( \
- (((uint32_t)(val) & (uint32_t)0x000000ffU) << 24) | \
- (((uint32_t)(val) & (uint32_t)0x0000ff00U) << 8) | \
- (((uint32_t)(val) & (uint32_t)0x00ff0000U) >> 8) | \
- (((uint32_t)(val) & (uint32_t)0xff000000U) >> 24)))
-
- #define SWAP_LE_BE64(val) ((uint64_t)( \
- (((uint64_t)(val) & \
- (uint64_t)(0x00000000000000ffULL)) << 56) | \
- (((uint64_t)(val) & \
- (uint64_t)(0x000000000000ff00ULL)) << 40) | \
- (((uint64_t)(val) & \
- (uint64_t)(0x0000000000ff0000ULL)) << 24) | \
- (((uint64_t)(val) & \
- (uint64_t) (0x00000000ff000000ULL)) << 8) | \
- (((uint64_t)(val) & \
- (uint64_t)(0x000000ff00000000ULL)) >> 8) | \
- (((uint64_t)(val) & \
- (uint64_t)(0x0000ff0000000000ULL)) >> 24) | \
- (((uint64_t)(val) & \
- (uint64_t)(0x00ff000000000000ULL)) >> 40) | \
- (((uint64_t)(val) & \
- (uint64_t)(0xff00000000000000ULL)) >> 56)))
- #endif
-
- #ifdef __LITTLE_ENDIAN__
- #define TO_BE16 SWAP_LE_BE16
- #define TO_BE32 SWAP_LE_BE32
- #define TO_BE64 SWAP_LE_BE64
- #define FROM_BE16 SWAP_LE_BE16
- #define FROM_BE32 SWAP_LE_BE32
- #define FROM_BE64 SWAP_LE_BE64
- #else
- #define TO_BE16(val) (uint16_t)(val)
- #define TO_BE32(val) (uint32_t)(val)
- #define TO_BE64(val) (uint64_t)(val)
- #define FROM_BE16(val) (uint16_t)(val)
- #define FROM_BE32(val) (uint32_t)(val)
- #define FROM_BE64(val) (uint64_t)(val)
- #endif
-
- void
- ucl_emitter_print_int_msgpack (struct ucl_emitter_context *ctx, int64_t val)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- unsigned char buf[sizeof(uint64_t) + 1];
- const unsigned char mask_positive = 0x7f, mask_negative = 0xe0,
- uint8_ch = 0xcc, uint16_ch = 0xcd, uint32_ch = 0xce, uint64_ch = 0xcf,
- int8_ch = 0xd0, int16_ch = 0xd1, int32_ch = 0xd2, int64_ch = 0xd3;
- unsigned len;
-
- if (val >= 0) {
- if (val <= 0x7f) {
- /* Fixed num 7 bits */
- len = 1;
- buf[0] = mask_positive & val;
- }
- else if (val <= UINT8_MAX) {
- len = 2;
- buf[0] = uint8_ch;
- buf[1] = val & 0xff;
- }
- else if (val <= UINT16_MAX) {
- uint16_t v = TO_BE16 (val);
-
- len = 3;
- buf[0] = uint16_ch;
- memcpy (&buf[1], &v, sizeof (v));
- }
- else if (val <= UINT32_MAX) {
- uint32_t v = TO_BE32 (val);
-
- len = 5;
- buf[0] = uint32_ch;
- memcpy (&buf[1], &v, sizeof (v));
- }
- else {
- uint64_t v = TO_BE64 (val);
-
- len = 9;
- buf[0] = uint64_ch;
- memcpy (&buf[1], &v, sizeof (v));
- }
- }
- else {
- uint64_t uval;
- /* Bithack abs */
- uval = ((val ^ (val >> 63)) - (val >> 63));
-
- if (val > -(1 << 5)) {
- len = 1;
- buf[0] = (mask_negative | uval) & 0xff;
- }
- else if (uval <= INT8_MAX) {
- uint8_t v = (uint8_t)val;
- len = 2;
- buf[0] = int8_ch;
- buf[1] = v;
- }
- else if (uval <= INT16_MAX) {
- uint16_t v = TO_BE16 (val);
-
- len = 3;
- buf[0] = int16_ch;
- memcpy (&buf[1], &v, sizeof (v));
- }
- else if (uval <= INT32_MAX) {
- uint32_t v = TO_BE32 (val);
-
- len = 5;
- buf[0] = int32_ch;
- memcpy (&buf[1], &v, sizeof (v));
- }
- else {
- uint64_t v = TO_BE64 (val);
-
- len = 9;
- buf[0] = int64_ch;
- memcpy (&buf[1], &v, sizeof (v));
- }
- }
-
- func->ucl_emitter_append_len (buf, len, func->ud);
- }
-
- void
- ucl_emitter_print_double_msgpack (struct ucl_emitter_context *ctx, double val)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- union {
- double d;
- uint64_t i;
- } u;
- const unsigned char dbl_ch = 0xcb;
- unsigned char buf[sizeof(double) + 1];
-
- /* Convert to big endian */
- u.d = val;
- u.i = TO_BE64 (u.i);
-
- buf[0] = dbl_ch;
- memcpy (&buf[1], &u.d, sizeof (double));
- func->ucl_emitter_append_len (buf, sizeof (buf), func->ud);
- }
-
- void
- ucl_emitter_print_bool_msgpack (struct ucl_emitter_context *ctx, bool val)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- const unsigned char true_ch = 0xc3, false_ch = 0xc2;
-
- func->ucl_emitter_append_character (val ? true_ch : false_ch, 1, func->ud);
- }
-
- void
- ucl_emitter_print_string_msgpack (struct ucl_emitter_context *ctx,
- const char *s, size_t len)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- const unsigned char fix_mask = 0xA0, l8_ch = 0xd9, l16_ch = 0xda, l32_ch = 0xdb;
- unsigned char buf[5];
- unsigned blen;
-
- if (len <= 0x1F) {
- blen = 1;
- buf[0] = (len | fix_mask) & 0xff;
- }
- else if (len <= 0xff) {
- blen = 2;
- buf[0] = l8_ch;
- buf[1] = len & 0xff;
- }
- else if (len <= 0xffff) {
- uint16_t bl = TO_BE16 (len);
-
- blen = 3;
- buf[0] = l16_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
- else {
- uint32_t bl = TO_BE32 (len);
-
- blen = 5;
- buf[0] = l32_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
-
- func->ucl_emitter_append_len (buf, blen, func->ud);
- func->ucl_emitter_append_len (s, len, func->ud);
- }
-
- void
- ucl_emitter_print_binary_string_msgpack (struct ucl_emitter_context *ctx,
- const char *s, size_t len)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- const unsigned char l8_ch = 0xc4, l16_ch = 0xc5, l32_ch = 0xc6;
- unsigned char buf[5];
- unsigned blen;
-
- if (len <= 0xff) {
- blen = 2;
- buf[0] = l8_ch;
- buf[1] = len & 0xff;
- }
- else if (len <= 0xffff) {
- uint16_t bl = TO_BE16 (len);
-
- blen = 3;
- buf[0] = l16_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
- else {
- uint32_t bl = TO_BE32 (len);
-
- blen = 5;
- buf[0] = l32_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
-
- func->ucl_emitter_append_len (buf, blen, func->ud);
- func->ucl_emitter_append_len (s, len, func->ud);
- }
-
- void
- ucl_emitter_print_null_msgpack (struct ucl_emitter_context *ctx)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- const unsigned char nil = 0xc0;
-
- func->ucl_emitter_append_character (nil, 1, func->ud);
- }
-
- void
- ucl_emitter_print_key_msgpack (bool print_key, struct ucl_emitter_context *ctx,
- const ucl_object_t *obj)
- {
- if (print_key) {
- ucl_emitter_print_string_msgpack (ctx, obj->key, obj->keylen);
- }
- }
-
- void
- ucl_emitter_print_array_msgpack (struct ucl_emitter_context *ctx, size_t len)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- const unsigned char fix_mask = 0x90, l16_ch = 0xdc, l32_ch = 0xdd;
- unsigned char buf[5];
- unsigned blen;
-
- if (len <= 0xF) {
- blen = 1;
- buf[0] = (len | fix_mask) & 0xff;
- }
- else if (len <= 0xffff) {
- uint16_t bl = TO_BE16 (len);
-
- blen = 3;
- buf[0] = l16_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
- else {
- uint32_t bl = TO_BE32 (len);
-
- blen = 5;
- buf[0] = l32_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
-
- func->ucl_emitter_append_len (buf, blen, func->ud);
- }
-
- void
- ucl_emitter_print_object_msgpack (struct ucl_emitter_context *ctx, size_t len)
- {
- const struct ucl_emitter_functions *func = ctx->func;
- const unsigned char fix_mask = 0x80, l16_ch = 0xde, l32_ch = 0xdf;
- unsigned char buf[5];
- unsigned blen;
-
- if (len <= 0xF) {
- blen = 1;
- buf[0] = (len | fix_mask) & 0xff;
- }
- else if (len <= 0xffff) {
- uint16_t bl = TO_BE16 (len);
-
- blen = 3;
- buf[0] = l16_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
- else {
- uint32_t bl = TO_BE32 (len);
-
- blen = 5;
- buf[0] = l32_ch;
- memcpy (&buf[1], &bl, sizeof (bl));
- }
-
- func->ucl_emitter_append_len (buf, blen, func->ud);
- }
-
-
- enum ucl_msgpack_format {
- msgpack_positive_fixint = 0,
- msgpack_fixmap,
- msgpack_fixarray,
- msgpack_fixstr,
- msgpack_nil,
- msgpack_false,
- msgpack_true,
- msgpack_bin8,
- msgpack_bin16,
- msgpack_bin32,
- msgpack_ext8,
- msgpack_ext16,
- msgpack_ext32,
- msgpack_float32,
- msgpack_float64,
- msgpack_uint8,
- msgpack_uint16,
- msgpack_uint32,
- msgpack_uint64,
- msgpack_int8,
- msgpack_int16,
- msgpack_int32,
- msgpack_int64,
- msgpack_fixext1,
- msgpack_fixext2,
- msgpack_fixext4,
- msgpack_fixext8,
- msgpack_fixext16,
- msgpack_str8,
- msgpack_str16,
- msgpack_str32,
- msgpack_array16,
- msgpack_array32,
- msgpack_map16,
- msgpack_map32,
- msgpack_negative_fixint,
- msgpack_invalid
- };
-
- typedef ssize_t (*ucl_msgpack_parse_function)(struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
-
- static ssize_t ucl_msgpack_parse_map (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_array (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_string (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_int (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_float (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_bool (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_null (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
- static ssize_t ucl_msgpack_parse_ignore (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain);
-
- #define MSGPACK_FLAG_FIXED (1 << 0)
- #define MSGPACK_FLAG_CONTAINER (1 << 1)
- #define MSGPACK_FLAG_TYPEVALUE (1 << 2)
- #define MSGPACK_FLAG_EXT (1 << 3)
- #define MSGPACK_FLAG_ASSOC (1 << 4)
- #define MSGPACK_FLAG_KEY (1 << 5)
-
- /*
- * Search tree packed in array
- */
- struct ucl_msgpack_parser {
- uint8_t prefix; /* Prefix byte */
- uint8_t prefixlen; /* Length of prefix in bits */
- uint8_t fmt; /* The desired format */
- uint8_t len; /* Length of the object
- (either length bytes
- or length of value in case
- of fixed objects */
- uint8_t flags; /* Flags of the specified type */
- ucl_msgpack_parse_function func; /* Parser function */
- } parsers[] = {
- {
- 0xa0,
- 3,
- msgpack_fixstr,
- 0,
- MSGPACK_FLAG_FIXED|MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0x0,
- 1,
- msgpack_positive_fixint,
- 0,
- MSGPACK_FLAG_FIXED|MSGPACK_FLAG_TYPEVALUE,
- ucl_msgpack_parse_int
- },
- {
- 0xe0,
- 3,
- msgpack_negative_fixint,
- 0,
- MSGPACK_FLAG_FIXED|MSGPACK_FLAG_TYPEVALUE,
- ucl_msgpack_parse_int
- },
- {
- 0x80,
- 4,
- msgpack_fixmap,
- 0,
- MSGPACK_FLAG_FIXED|MSGPACK_FLAG_CONTAINER|MSGPACK_FLAG_ASSOC,
- ucl_msgpack_parse_map
- },
- {
- 0x90,
- 4,
- msgpack_fixarray,
- 0,
- MSGPACK_FLAG_FIXED|MSGPACK_FLAG_CONTAINER,
- ucl_msgpack_parse_array
- },
- {
- 0xd9,
- 8,
- msgpack_str8,
- 1,
- MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0xc4,
- 8,
- msgpack_bin8,
- 1,
- MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0xcf,
- 8,
- msgpack_uint64,
- 8,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xd3,
- 8,
- msgpack_int64,
- 8,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xce,
- 8,
- msgpack_uint32,
- 4,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xd2,
- 8,
- msgpack_int32,
- 4,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xcb,
- 8,
- msgpack_float64,
- 8,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_float
- },
- {
- 0xca,
- 8,
- msgpack_float32,
- 4,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_float
- },
- {
- 0xc2,
- 8,
- msgpack_false,
- 1,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_TYPEVALUE,
- ucl_msgpack_parse_bool
- },
- {
- 0xc3,
- 8,
- msgpack_true,
- 1,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_TYPEVALUE,
- ucl_msgpack_parse_bool
- },
- {
- 0xcc,
- 8,
- msgpack_uint8,
- 1,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xcd,
- 8,
- msgpack_uint16,
- 2,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xd0,
- 8,
- msgpack_int8,
- 1,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xd1,
- 8,
- msgpack_int16,
- 2,
- MSGPACK_FLAG_FIXED,
- ucl_msgpack_parse_int
- },
- {
- 0xc0,
- 8,
- msgpack_nil,
- 0,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_TYPEVALUE,
- ucl_msgpack_parse_null
- },
- {
- 0xda,
- 8,
- msgpack_str16,
- 2,
- MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0xdb,
- 8,
- msgpack_str32,
- 4,
- MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0xc5,
- 8,
- msgpack_bin16,
- 2,
- MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0xc6,
- 8,
- msgpack_bin32,
- 4,
- MSGPACK_FLAG_KEY,
- ucl_msgpack_parse_string
- },
- {
- 0xdc,
- 8,
- msgpack_array16,
- 2,
- MSGPACK_FLAG_CONTAINER,
- ucl_msgpack_parse_array
- },
- {
- 0xdd,
- 8,
- msgpack_array32,
- 4,
- MSGPACK_FLAG_CONTAINER,
- ucl_msgpack_parse_array
- },
- {
- 0xde,
- 8,
- msgpack_map16,
- 2,
- MSGPACK_FLAG_CONTAINER|MSGPACK_FLAG_ASSOC,
- ucl_msgpack_parse_map
- },
- {
- 0xdf,
- 8,
- msgpack_map32,
- 4,
- MSGPACK_FLAG_CONTAINER|MSGPACK_FLAG_ASSOC,
- ucl_msgpack_parse_map
- },
- {
- 0xc7,
- 8,
- msgpack_ext8,
- 1,
- MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xc8,
- 8,
- msgpack_ext16,
- 2,
- MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xc9,
- 8,
- msgpack_ext32,
- 4,
- MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xd4,
- 8,
- msgpack_fixext1,
- 1,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xd5,
- 8,
- msgpack_fixext2,
- 2,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xd6,
- 8,
- msgpack_fixext4,
- 4,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xd7,
- 8,
- msgpack_fixext8,
- 8,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- },
- {
- 0xd8,
- 8,
- msgpack_fixext16,
- 16,
- MSGPACK_FLAG_FIXED | MSGPACK_FLAG_EXT,
- ucl_msgpack_parse_ignore
- }
- };
-
- #undef MSGPACK_DEBUG_PARSER
-
- static inline struct ucl_msgpack_parser *
- ucl_msgpack_get_parser_from_type (unsigned char t)
- {
- unsigned int i, shift, mask;
-
- for (i = 0; i < sizeof (parsers) / sizeof (parsers[0]); i ++) {
- shift = CHAR_BIT - parsers[i].prefixlen;
- mask = parsers[i].prefix >> shift;
-
- if (mask == (((unsigned int)t) >> shift)) {
- return &parsers[i];
- }
- }
-
- return NULL;
- }
-
- static inline struct ucl_stack *
- ucl_msgpack_get_container (struct ucl_parser *parser,
- struct ucl_msgpack_parser *obj_parser, uint64_t len)
- {
- struct ucl_stack *stack;
-
- assert (obj_parser != NULL);
-
- if (obj_parser->flags & MSGPACK_FLAG_CONTAINER) {
- /*
- * Insert new container to the stack
- */
- if (parser->stack == NULL) {
- parser->stack = calloc (1, sizeof (struct ucl_stack));
-
- if (parser->stack == NULL) {
- ucl_create_err (&parser->err, "no memory");
- return NULL;
- }
-
- parser->stack->chunk = parser->chunks;
- }
- else {
- stack = calloc (1, sizeof (struct ucl_stack));
-
- if (stack == NULL) {
- ucl_create_err (&parser->err, "no memory");
- return NULL;
- }
-
- stack->chunk = parser->chunks;
- stack->next = parser->stack;
- parser->stack = stack;
- }
-
- parser->stack->e.len = len;
-
- #ifdef MSGPACK_DEBUG_PARSER
- stack = parser->stack;
- while (stack) {
- fprintf(stderr, "+");
- stack = stack->next;
- }
-
- fprintf(stderr, "%s -> %d\n", obj_parser->flags & MSGPACK_FLAG_ASSOC ? "object" : "array", (int)len);
- #endif
- }
- else {
- /*
- * Get the current stack top
- */
- if (parser->stack) {
- return parser->stack;
- }
- else {
- ucl_create_err (&parser->err, "bad top level object for msgpack");
- return NULL;
- }
- }
-
- return parser->stack;
- }
-
- static bool
- ucl_msgpack_is_container_finished (struct ucl_stack *container)
- {
- assert (container != NULL);
-
-
- if (container->e.len == 0) {
- return true;
- }
-
- return false;
- }
-
- static bool
- ucl_msgpack_insert_object (struct ucl_parser *parser,
- const unsigned char *key,
- size_t keylen, ucl_object_t *obj)
- {
- struct ucl_stack *container;
-
- container = parser->stack;
- assert (container != NULL);
- assert (container->e.len > 0);
- assert (obj != NULL);
- assert (container->obj != NULL);
-
- if (container->obj->type == UCL_ARRAY) {
- ucl_array_append (container->obj, obj);
- }
- else if (container->obj->type == UCL_OBJECT) {
- if (key == NULL || keylen == 0) {
- ucl_create_err (&parser->err, "cannot insert object with no key");
- return false;
- }
-
- obj->key = key;
- obj->keylen = keylen;
-
- if (!(parser->flags & UCL_PARSER_ZEROCOPY)) {
- ucl_copy_key_trash (obj);
- }
-
- ucl_parser_process_object_element (parser, obj);
- }
- else {
- ucl_create_err (&parser->err, "bad container type");
- return false;
- }
-
- container->e.len--;
-
- return true;
- }
-
- static struct ucl_stack *
- ucl_msgpack_get_next_container (struct ucl_parser *parser)
- {
- struct ucl_stack *cur = NULL;
- uint64_t len;
-
- cur = parser->stack;
-
- if (cur == NULL) {
- return NULL;
- }
-
- len = cur->e.len;
-
- if (len == 0) {
- /* We need to switch to the previous container */
- parser->stack = cur->next;
- parser->cur_obj = cur->obj;
- free (cur);
-
- #ifdef MSGPACK_DEBUG_PARSER
- cur = parser->stack;
- while (cur) {
- fprintf(stderr, "-");
- cur = cur->next;
- }
- fprintf(stderr, "-%s -> %d\n", parser->cur_obj->type == UCL_OBJECT ? "object" : "array", (int)parser->cur_obj->len);
- #endif
-
- return ucl_msgpack_get_next_container (parser);
- }
-
- /*
- * For UCL containers we don't know length, so we just insert the whole
- * message pack blob into the top level container
- */
-
- assert (cur->obj != NULL);
-
- return cur;
- }
-
- #define CONSUME_RET do { \
- if (ret != -1) { \
- p += ret; \
- remain -= ret; \
- obj_parser = NULL; \
- assert (remain >= 0); \
- } \
- else { \
- ucl_create_err (&parser->err, \
- "cannot parse type %d of len %u", \
- (int)obj_parser->fmt, \
- (unsigned)len); \
- return false; \
- } \
- } while(0)
-
- #define GET_NEXT_STATE do { \
- container = ucl_msgpack_get_next_container (parser); \
- if (container == NULL) { \
- ucl_create_err (&parser->err, \
- "empty container"); \
- return false; \
- } \
- next_state = container->obj->type == UCL_OBJECT ? \
- read_assoc_key : read_array_value; \
- } while(0)
-
- static bool
- ucl_msgpack_consume (struct ucl_parser *parser)
- {
- const unsigned char *p, *end, *key = NULL;
- struct ucl_stack *container;
- enum e_msgpack_parser_state {
- read_type,
- start_assoc,
- start_array,
- read_assoc_key,
- read_assoc_value,
- finish_assoc_value,
- read_array_value,
- finish_array_value,
- error_state
- } state = read_type, next_state = error_state;
- struct ucl_msgpack_parser *obj_parser = NULL;
- uint64_t len = 0;
- ssize_t ret, remain, keylen = 0;
- #ifdef MSGPACK_DEBUG_PARSER
- uint64_t i;
- enum e_msgpack_parser_state hist[256];
- #endif
-
- p = parser->chunks->begin;
- remain = parser->chunks->remain;
- end = p + remain;
-
-
- while (p < end) {
- #ifdef MSGPACK_DEBUG_PARSER
- hist[i++ % 256] = state;
- #endif
- switch (state) {
- case read_type:
- obj_parser = ucl_msgpack_get_parser_from_type (*p);
-
- if (obj_parser == NULL) {
- ucl_create_err (&parser->err, "unknown msgpack format: %x",
- (unsigned int)*p);
-
- return false;
- }
- /* Now check length sanity */
- if (obj_parser->flags & MSGPACK_FLAG_FIXED) {
- if (obj_parser->len == 0) {
- /* We have an embedded size */
- len = *p & ~obj_parser->prefix;
- }
- else {
- if (remain < obj_parser->len) {
- ucl_create_err (&parser->err, "not enough data remain to "
- "read object's length: %u remain, %u needed",
- (unsigned)remain, obj_parser->len);
-
- return false;
- }
-
- len = obj_parser->len;
- }
-
- if (!(obj_parser->flags & MSGPACK_FLAG_TYPEVALUE)) {
- /* We must pass value as the second byte */
- if (remain > 0) {
- p ++;
- remain --;
- }
- }
- else {
- /* Len is irrelevant now */
- len = 0;
- }
- }
- else {
- /* Length is not embedded */
- remain --;
-
- if (remain < obj_parser->len) {
- ucl_create_err (&parser->err, "not enough data remain to "
- "read object's length: %u remain, %u needed",
- (unsigned)remain, obj_parser->len);
-
- return false;
- }
-
- p ++;
-
- switch (obj_parser->len) {
- case 1:
- len = *p;
- break;
- case 2:
- len = FROM_BE16 (*(uint16_t *)p);
- break;
- case 4:
- len = FROM_BE32 (*(uint32_t *)p);
- break;
- case 8:
- len = FROM_BE64 (*(uint64_t *)p);
- break;
- default:
- ucl_create_err (&parser->err, "invalid length of the length field: %u",
- (unsigned)obj_parser->len);
-
- return false;
- }
-
- p += obj_parser->len;
- remain -= obj_parser->len;
- }
-
- if (obj_parser->flags & MSGPACK_FLAG_ASSOC) {
- /* We have just read the new associative map */
- state = start_assoc;
- }
- else if (obj_parser->flags & MSGPACK_FLAG_CONTAINER){
- state = start_array;
- }
- else {
- state = next_state;
- }
-
- break;
- case start_assoc:
- parser->cur_obj = ucl_object_new_full (UCL_OBJECT,
- parser->chunks->priority);
- /* Insert to the previous level container */
- if (parser->stack && !ucl_msgpack_insert_object (parser,
- key, keylen, parser->cur_obj)) {
- return false;
- }
- /* Get new container */
- container = ucl_msgpack_get_container (parser, obj_parser, len);
-
- if (container == NULL) {
- return false;
- }
-
- ret = obj_parser->func (parser, container, len, obj_parser->fmt,
- p, remain);
- CONSUME_RET;
- key = NULL;
- keylen = 0;
-
- if (len > 0) {
- state = read_type;
- next_state = read_assoc_key;
- }
- else {
- /* Empty object */
- state = finish_assoc_value;
- }
- break;
-
- case start_array:
- parser->cur_obj = ucl_object_new_full (UCL_ARRAY,
- parser->chunks->priority);
- /* Insert to the previous level container */
- if (parser->stack && !ucl_msgpack_insert_object (parser,
- key, keylen, parser->cur_obj)) {
- return false;
- }
- /* Get new container */
- container = ucl_msgpack_get_container (parser, obj_parser, len);
-
- if (container == NULL) {
- return false;
- }
-
- ret = obj_parser->func (parser, container, len, obj_parser->fmt,
- p, remain);
- CONSUME_RET;
-
- if (len > 0) {
- state = read_type;
- next_state = read_array_value;
- }
- else {
- /* Empty array */
- state = finish_array_value;
- }
- break;
-
- case read_array_value:
- /*
- * p is now at the value start, len now contains length read and
- * obj_parser contains the corresponding specific parser
- */
- container = parser->stack;
-
- if (parser->stack == NULL) {
- ucl_create_err (&parser->err,
- "read assoc value when no container represented");
- return false;
- }
-
- ret = obj_parser->func (parser, container, len, obj_parser->fmt,
- p, remain);
- CONSUME_RET;
-
-
- /* Insert value to the container and check if we have finished array */
- if (parser->cur_obj) {
- if (!ucl_msgpack_insert_object(parser, NULL, 0,
- parser->cur_obj)) {
- return false;
- }
- }
- else {
- /* We have parsed ext, ignore it */
- }
-
- if (ucl_msgpack_is_container_finished (container)) {
- state = finish_array_value;
- }
- else {
- /* Read more elements */
- state = read_type;
- next_state = read_array_value;
- }
-
- break;
-
- case read_assoc_key:
- /*
- * Keys must have string type for ucl msgpack
- */
- if (!(obj_parser->flags & MSGPACK_FLAG_KEY)) {
- ucl_create_err (&parser->err, "bad type for key: %u, expected "
- "string", (unsigned)obj_parser->fmt);
-
- return false;
- }
-
- key = p;
- keylen = len;
-
- if (keylen > remain || keylen == 0) {
- ucl_create_err (&parser->err, "too long or empty key");
- return false;
- }
-
- p += len;
- remain -= len;
-
- state = read_type;
- next_state = read_assoc_value;
- break;
-
- case read_assoc_value:
- /*
- * p is now at the value start, len now contains length read and
- * obj_parser contains the corresponding specific parser
- */
- container = parser->stack;
-
- if (container == NULL) {
- ucl_create_err (&parser->err,
- "read assoc value when no container represented");
- return false;
- }
-
- ret = obj_parser->func (parser, container, len, obj_parser->fmt,
- p, remain);
- CONSUME_RET;
-
- assert (key != NULL && keylen > 0);
-
- if (parser->cur_obj) {
- if (!ucl_msgpack_insert_object(parser, key, keylen,
- parser->cur_obj)) {
-
- return false;
- }
- }
-
- key = NULL;
- keylen = 0;
-
- if (ucl_msgpack_is_container_finished (container)) {
- state = finish_assoc_value;
- }
- else {
- /* Read more elements */
- state = read_type;
- next_state = read_assoc_key;
- }
- break;
-
- case finish_array_value:
- case finish_assoc_value:
- GET_NEXT_STATE;
- state = read_type;
- break;
-
- case error_state:
- ucl_create_err (&parser->err, "invalid state machine state");
-
- return false;
- }
- }
-
- /* Check the finishing state */
- switch (state) {
- case start_array:
- case start_assoc:
- /* Empty container at the end */
- if (len != 0) {
- ucl_create_err (&parser->err,
- "invalid non-empty container at the end; len=%zu",
- (uintmax_t)len);
-
- return false;
- }
-
- parser->cur_obj = ucl_object_new_full (
- state == start_array ? UCL_ARRAY : UCL_OBJECT,
- parser->chunks->priority);
-
- if (parser->stack == NULL) {
- ucl_create_err (&parser->err,
- "read assoc value when no container represented");
- return false;
- }
- /* Insert to the previous level container */
- if (!ucl_msgpack_insert_object (parser,
- key, keylen, parser->cur_obj)) {
- return false;
- }
- /* Get new container */
- container = ucl_msgpack_get_container (parser, obj_parser, len);
-
- if (container == NULL) {
- return false;
- }
-
- ret = obj_parser->func (parser, container, len, obj_parser->fmt,
- p, remain);
- break;
-
- case read_array_value:
- case read_assoc_value:
- if (len != 0) {
- ucl_create_err (&parser->err, "unfinished value at the end");
-
- return false;
- }
-
- container = parser->stack;
-
- if (parser->stack == NULL) {
- ucl_create_err (&parser->err,
- "read assoc value when no container represented");
- return false;
- }
-
- ret = obj_parser->func (parser, container, len, obj_parser->fmt,
- p, remain);
- CONSUME_RET;
-
-
- /* Insert value to the container and check if we have finished array */
- if (parser->cur_obj) {
- if (!ucl_msgpack_insert_object(parser, NULL, 0,
- parser->cur_obj)) {
- return false;
- }
- }
- break;
- case finish_array_value:
- case finish_assoc_value:
- case read_type:
- /* Valid finishing state */
- break;
- default:
- /* Invalid finishing state */
- ucl_create_err (&parser->err, "invalid state machine finishing state: %d",
- state);
-
- return false;
- }
-
- /* Rewind to the top level container */
- ucl_msgpack_get_next_container (parser);
-
- if (parser->stack != NULL) {
- ucl_create_err (&parser->err, "incomplete container");
-
- return false;
- }
-
- return true;
- }
-
- bool
- ucl_parse_msgpack (struct ucl_parser *parser)
- {
- ucl_object_t *container = NULL;
- const unsigned char *p;
- bool ret;
-
- assert (parser != NULL);
- assert (parser->chunks != NULL);
- assert (parser->chunks->begin != NULL);
- assert (parser->chunks->remain != 0);
-
- p = parser->chunks->begin;
-
- if (parser->stack) {
- container = parser->stack->obj;
- }
-
- /*
- * When we start parsing message pack chunk, we must ensure that we
- * have either a valid container or the top object inside message pack is
- * of container type
- */
- if (container == NULL) {
- if ((*p & 0x80) != 0x80 && !(*p >= 0xdc && *p <= 0xdf)) {
- ucl_create_err (&parser->err, "bad top level object for msgpack");
- return false;
- }
- }
-
- ret = ucl_msgpack_consume (parser);
-
- if (ret && parser->top_obj == NULL) {
- parser->top_obj = parser->cur_obj;
- }
-
- return ret;
- }
-
- static ssize_t
- ucl_msgpack_parse_map (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- container->obj = parser->cur_obj;
-
- return 0;
- }
-
- static ssize_t
- ucl_msgpack_parse_array (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- container->obj = parser->cur_obj;
-
- return 0;
- }
-
- static ssize_t
- ucl_msgpack_parse_string (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- ucl_object_t *obj;
-
- if (len > remain) {
- return -1;
- }
-
- obj = ucl_object_new_full (UCL_STRING, parser->chunks->priority);
- obj->value.sv = pos;
- obj->len = len;
-
- if (fmt >= msgpack_bin8 && fmt <= msgpack_bin32) {
- obj->flags |= UCL_OBJECT_BINARY;
- }
-
- if (!(parser->flags & UCL_PARSER_ZEROCOPY)) {
- if (obj->flags & UCL_OBJECT_BINARY) {
- obj->trash_stack[UCL_TRASH_VALUE] = malloc (len);
-
- if (obj->trash_stack[UCL_TRASH_VALUE] != NULL) {
- memcpy (obj->trash_stack[UCL_TRASH_VALUE], pos, len);
- }
- }
- else {
- ucl_copy_value_trash (obj);
- }
- }
-
- parser->cur_obj = obj;
-
- return len;
- }
-
- static ssize_t
- ucl_msgpack_parse_int (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- ucl_object_t *obj;
- int8_t iv8;
- int16_t iv16;
- int32_t iv32;
- int64_t iv64;
- uint16_t uiv16;
- uint32_t uiv32;
- uint64_t uiv64;
-
-
- if (len > remain) {
- return -1;
- }
-
- obj = ucl_object_new_full (UCL_INT, parser->chunks->priority);
-
- switch (fmt) {
- case msgpack_positive_fixint:
- obj->value.iv = (*pos & 0x7f);
- len = 1;
- break;
- case msgpack_negative_fixint:
- obj->value.iv = - (*pos & 0x1f);
- len = 1;
- break;
- case msgpack_uint8:
- obj->value.iv = (unsigned char)*pos;
- len = 1;
- break;
- case msgpack_int8:
- memcpy (&iv8, pos, sizeof (iv8));
- obj->value.iv = iv8;
- len = 1;
- break;
- case msgpack_int16:
- memcpy (&iv16, pos, sizeof (iv16));
- iv16 = FROM_BE16 (iv16);
- obj->value.iv = iv16;
- len = 2;
- break;
- case msgpack_uint16:
- memcpy (&uiv16, pos, sizeof (uiv16));
- uiv16 = FROM_BE16 (uiv16);
- obj->value.iv = uiv16;
- len = 2;
- break;
- case msgpack_int32:
- memcpy (&iv32, pos, sizeof (iv32));
- iv32 = FROM_BE32 (iv32);
- obj->value.iv = iv32;
- len = 4;
- break;
- case msgpack_uint32:
- memcpy(&uiv32, pos, sizeof(uiv32));
- uiv32 = FROM_BE32(uiv32);
- obj->value.iv = uiv32;
- len = 4;
- break;
- case msgpack_int64:
- memcpy (&iv64, pos, sizeof (iv64));
- iv64 = FROM_BE64 (iv64);
- obj->value.iv = iv64;
- len = 8;
- break;
- case msgpack_uint64:
- memcpy(&uiv64, pos, sizeof(uiv64));
- uiv64 = FROM_BE64(uiv64);
- obj->value.iv = uiv64;
- len = 8;
- break;
- default:
- assert (0);
- break;
- }
-
- parser->cur_obj = obj;
-
- return len;
- }
-
- static ssize_t
- ucl_msgpack_parse_float (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- ucl_object_t *obj;
- union {
- uint32_t i;
- float f;
- } d;
- uint64_t uiv64;
-
- if (len > remain) {
- return -1;
- }
-
- obj = ucl_object_new_full (UCL_FLOAT, parser->chunks->priority);
-
- switch (fmt) {
- case msgpack_float32:
- memcpy(&d.i, pos, sizeof(d.i));
- d.i = FROM_BE32(d.i);
- /* XXX: can be slow */
- obj->value.dv = d.f;
- len = 4;
- break;
- case msgpack_float64:
- memcpy(&uiv64, pos, sizeof(uiv64));
- uiv64 = FROM_BE64(uiv64);
- obj->value.iv = uiv64;
- len = 8;
- break;
- default:
- assert (0);
- break;
- }
-
- parser->cur_obj = obj;
-
- return len;
- }
-
- static ssize_t
- ucl_msgpack_parse_bool (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- ucl_object_t *obj;
-
- if (len > remain) {
- return -1;
- }
-
- obj = ucl_object_new_full (UCL_BOOLEAN, parser->chunks->priority);
-
- switch (fmt) {
- case msgpack_true:
- obj->value.iv = true;
- break;
- case msgpack_false:
- obj->value.iv = false;
- break;
- default:
- assert (0);
- break;
- }
-
- parser->cur_obj = obj;
-
- return 1;
- }
-
- static ssize_t
- ucl_msgpack_parse_null (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- ucl_object_t *obj;
-
- if (len > remain) {
- return -1;
- }
-
- obj = ucl_object_new_full (UCL_NULL, parser->chunks->priority);
- parser->cur_obj = obj;
-
- return 1;
- }
-
- static ssize_t
- ucl_msgpack_parse_ignore (struct ucl_parser *parser,
- struct ucl_stack *container, size_t len, enum ucl_msgpack_format fmt,
- const unsigned char *pos, size_t remain)
- {
- if (len > remain) {
- return -1;
- }
-
- switch (fmt) {
- case msgpack_fixext1:
- len = 2;
- break;
- case msgpack_fixext2:
- len = 3;
- break;
- case msgpack_fixext4:
- len = 5;
- break;
- case msgpack_fixext8:
- len = 9;
- break;
- case msgpack_fixext16:
- len = 17;
- break;
- case msgpack_ext8:
- case msgpack_ext16:
- case msgpack_ext32:
- len = len + 1;
- break;
- default:
- ucl_create_err (&parser->err, "bad type: %x", (unsigned)fmt);
- return -1;
- }
-
- parser->cur_obj = NULL;
-
- return len;
- }
|