[BACK]Return to json.c CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / libelwix / src

Diff for /libelwix/src/json.c between versions 1.5 and 1.12.2.2

version 1.5, 2018/04/19 00:00:36 version 1.12.2.2, 2025/08/25 12:44:59
Line 12  terms: Line 12  terms:
 All of the documentation and software included in the ELWIX and AITNET  All of the documentation and software included in the ELWIX and AITNET
 Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>  Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>
   
Copyright 2004 - 2018Copyright 2004 - 2025
         by Michael Pounov <misho@elwix.org>.  All rights reserved.          by Michael Pounov <misho@elwix.org>.  All rights reserved.
   
 Redistribution and use in source and binary forms, with or without  Redistribution and use in source and binary forms, with or without
Line 224  json_parse_value(json_t * __restrict json, const char  Line 224  json_parse_value(json_t * __restrict json, const char 
                         case '}':                          case '}':
                                 goto found;                                  goto found;
                 }                  }
                if (jstr[json->h_pos] < 32 || jstr[json->h_pos] > 127) {                if (jstr[json->h_pos] < 32 || (u_char) jstr[json->h_pos] > 127) {
                         json->h_pos = pos;                          json->h_pos = pos;
                         elwix_SetErr(J_ERR_INVAL, "%s", jerrstr[J_ERR_INVAL]);                          elwix_SetErr(J_ERR_INVAL, "%s", jerrstr[J_ERR_INVAL]);
                         return -1;                          return -1;
Line 427  json_token2val(const char *jstr, jtok_t * __restrict t Line 427  json_token2val(const char *jstr, jtok_t * __restrict t
                 return NULL;                  return NULL;
   
         AIT_SET_STRSIZ(v, json_toklen(tok));          AIT_SET_STRSIZ(v, json_toklen(tok));
        strncpy(AIT_GET_STR(v), json_tokstr(jstr, tok), AIT_LEN(v) - 1);        if (AIT_GET_STR(v))
                 strncpy(AIT_GET_STR(v), json_tokstr(jstr, tok), AIT_LEN(v) - 1);
         else
                 ait_freeVar(&v);
   
         return v;          return v;
 }  }
Line 442  json_token2val(const char *jstr, jtok_t * __restrict t Line 445  json_token2val(const char *jstr, jtok_t * __restrict t
 char *  char *
 json_token2str(const char *jstr, jtok_t * __restrict tok)  json_token2str(const char *jstr, jtok_t * __restrict tok)
 {  {
        char *str = NULL;        char *s, *s2, *wrk, *str = NULL;
         size_t len;          size_t len;
   
         if (!jstr || !tok)          if (!jstr || !tok)
                 return NULL;                  return NULL;
   
   
         len = json_toklen(tok);          len = json_toklen(tok);
         str = e_malloc(len + 1);          str = e_malloc(len + 1);
         if (!str)          if (!str)
                 return NULL;                  return NULL;
         else {          else {
                strncpy(str, json_tokstr(jstr, tok), len);                memset(str, 0, len + 1);
                str[len] = 0;
                 wrk = e_strdup(json_tokstr(jstr, tok));
                 wrk[len] = 0;
                 for (s = wrk, s2 = str; *s; s++)
                         *s2++ = (*s != '\\') ? *s : *++s;
                 e_free(wrk);
         }          }
   
         return str;          return str;
Line 505  json_token2dbl(const char *jstr, jtok_t * __restrict t Line 514  json_token2dbl(const char *jstr, jtok_t * __restrict t
 }  }
   
 /*  /*
    * json_token2bool() - Return token to bool int
    *
    * @jstr = JSON string
    * @tok = Token for convert
    * @return 0 for FALSE and !=0 for TRUE
    */
   int
   json_token2bool(const char *jstr, jtok_t * __restrict tok)
   {
           double ret = 0;
           char *str;
   
           str = json_token2str(jstr, tok);
           if (!str)
                   return 0;
   
           switch (*str) {
                   case 't':
                   case 'T':
                           ret = 1;
                           break;
                   case 'f':
                   case 'F':
                           ret = 0;
                           break;
                   default:
                           ret = (int) strtol(str, NULL, 10);
                           break;
           }
           e_free(str);
           return ret;
   }
   
   /*
  * json_findbykey() - Find token data by key   * json_findbykey() - Find token data by key
  *   *
  * @jstr = JSON string   * @jstr = JSON string
Line 527  json_findbykey(const char *jstr, const char *key, jtyp Line 570  json_findbykey(const char *jstr, const char *key, jtyp
                 klen = strlen(key);                  klen = strlen(key);
   
         for (i = 1; i < toksnum; i++) {          for (i = 1; i < toksnum; i++) {
                if (toks[i].tok_type == J_STRING &&                 if (toks[i].tok_type == J_STRING && toks[i].tok_size == 1 && 
                                 klen == toks[i].tok_end - toks[i].tok_start &&                                   klen == toks[i].tok_end - toks[i].tok_start && 
                                 !strncmp(jstr + toks[i].tok_start, key, klen)) {                                  !strncmp(jstr + toks[i].tok_start, key, klen)) {
                         if (type != J_UNDEF) {                          if (type != J_UNDEF) {
Line 546  json_findbykey(const char *jstr, const char *key, jtyp Line 589  json_findbykey(const char *jstr, const char *key, jtyp
 }  }
   
 /*  /*
    * json_findbykeyatscope() - Find token data by key at particular scope
    *
    * @scope = Search at object scope, =0 main object scope
    * @jstr = JSON string
    * @key = Search key
    * @type = Search key for particular token type, if is J_UNDEF this mean any type
    * @toks = Parsed tokens
    * @toksnum = Number of parsed tokens
    * return: =NULL error or !=NULL data token found
    */
   jtok_t *
   json_findbykeyatscope(long scope, const char *jstr, const char *key, jtype_t type, jtok_t * __restrict toks, int toksnum)
   {
           jtok_t *tok = NULL;
           register int i;
           int klen;
   
           if (!jstr || !key || !toks)
                   return NULL;
           else
                   klen = strlen(key);
   
           for (i = 1; i < toksnum; i++) {
                   if (toks[i].tok_type == J_STRING && toks[i].tok_size == 1 && 
                                   toks[i].tok_parent == scope && 
                                   klen == toks[i].tok_end - toks[i].tok_start && 
                                   !strncmp(jstr + toks[i].tok_start, key, klen)) {
                           if (type != J_UNDEF) {
                                   if (toks[i + 1].tok_type == type) {
                                           tok = toks + i + 1;
                                           break;
                                   }
                           } else {
                                   tok = toks + i + 1;
                                   break;
                           }
                   }
           }
   
           return tok;
   }
   
   /*
  * json_findbypos() - Find token by position on JSON string   * json_findbypos() - Find token by position on JSON string
  *   *
  * @pos = Offset from begin of JSON string   * @pos = Offset from begin of JSON string
Line 559  json_findbypos(u_long pos, jtok_t * __restrict toks, i Line 645  json_findbypos(u_long pos, jtok_t * __restrict toks, i
         jtok_t *tok = NULL;          jtok_t *tok = NULL;
         register int i;          register int i;
   
        if (toks)        if (!toks)
                 return NULL;                  return NULL;
   
         for (i = 1; i < toksnum; i++)          for (i = 1; i < toksnum; i++)
Line 572  json_findbypos(u_long pos, jtok_t * __restrict toks, i Line 658  json_findbypos(u_long pos, jtok_t * __restrict toks, i
 }  }
   
 /*  /*
 * json_token2array() - Convert token to string array * json_token2vars() - Convert token to string variable array
  *   *
  * @jstr = JSON string   * @jstr = JSON string
  * @tok = Token for convert   * @tok = Token for convert
Line 580  json_findbypos(u_long pos, jtok_t * __restrict toks, i Line 666  json_findbypos(u_long pos, jtok_t * __restrict toks, i
  *              after use should be ait_freeVars()   *              after use should be ait_freeVars()
  */   */
 array_t *  array_t *
json_token2array(const char *jstr, jtok_t * __restrict tok)json_token2vars(const char *jstr, jtok_t * __restrict tok)
 {  {
         array_t *arr = NULL;          array_t *arr = NULL;
         register int i, j;          register int i, j;
Line 602  json_token2array(const char *jstr, jtok_t * __restrict Line 688  json_token2array(const char *jstr, jtok_t * __restrict
         if (tok->tok_type == J_STRING || tok->tok_type == J_VALUE) {          if (tok->tok_type == J_STRING || tok->tok_type == J_VALUE) {
                 v = ait_getVars(&arr, 0);                  v = ait_getVars(&arr, 0);
                 AIT_SET_STRSIZ(v, json_toklen(tok) + 1);                  AIT_SET_STRSIZ(v, json_toklen(tok) + 1);
                json_tokstrcpy(AIT_GET_STR(v), jstr, tok);                if (AIT_GET_STR(v)) {
                         json_tokstrcpy(AIT_GET_STR(v), jstr, tok);
                 } else {
                         ait_freeVar(&v);
                 }
         } else if (tok->tok_type == J_ARRAY) {          } else if (tok->tok_type == J_ARRAY) {
                 for (i = 0, j = 1; i < tok->tok_size; i++) {                  for (i = 0, j = 1; i < tok->tok_size; i++) {
                         t = &tok[i + j];                          t = &tok[i + j];
                         v = ait_getVars(&arr, i);                          v = ait_getVars(&arr, i);
                         AIT_SET_STRSIZ(v, json_toklen(t) + 1);                          AIT_SET_STRSIZ(v, json_toklen(t) + 1);
                        json_tokstrcpy(AIT_GET_STR(v), jstr, t);                        if (AIT_GET_STR(v)) {
                                 json_tokstrcpy(AIT_GET_STR(v), jstr, t);
                         } else {
                                 ait_freeVar(&v);
                         }
   
                         /* if there we have array from objects should parse all object tokens */                          /* if there we have array from objects should parse all object tokens */
                         while (i < tok->tok_size - 1 && tok->tok_idx != tok[i + j + 1].tok_parent)                          while (i < tok->tok_size - 1 && tok->tok_idx != tok[i + j + 1].tok_parent)
Line 619  json_token2array(const char *jstr, jtok_t * __restrict Line 713  json_token2array(const char *jstr, jtok_t * __restrict
                         t = &tok[i + 1];                          t = &tok[i + 1];
                         v = ait_getVars(&arr, i);                          v = ait_getVars(&arr, i);
                         AIT_SET_STRSIZ(v, json_toklen(t) + 1);                          AIT_SET_STRSIZ(v, json_toklen(t) + 1);
                        json_tokstrcpy(AIT_GET_STR(v), jstr, t);                        if (AIT_GET_STR(v)) {
                                 json_tokstrcpy(AIT_GET_STR(v), jstr, t);
                         } else {
                                 ait_freeVar(&v);
                         }
                 }                  }
         } else {          } else {
                 elwix_SetErr(J_ERR_PARAM, "%s", jerrstr[J_ERR_PARAM]);                  elwix_SetErr(J_ERR_PARAM, "%s", jerrstr[J_ERR_PARAM]);
Line 630  json_token2array(const char *jstr, jtok_t * __restrict Line 728  json_token2array(const char *jstr, jtok_t * __restrict
         return arr;          return arr;
 }  }
   
   /*
    * json_token2array() - Convert token to string array
    *
    * @jstr = JSON string
    * @tok = Token for convert
    * return: =NULL error or !=NULL allocated array with strings,
    *              after use should be ait_freearray()
    */
   array_t *
   json_token2array(const char *jstr, jtok_t * __restrict tok)
   {
           array_t *arr = NULL;
           register int i, j;
           int siz;
           char *str;
           jtok_t *t;
   
           if (!jstr || !tok)
                   return NULL;
   
           siz = tok->tok_size;
           if (!siz && json_toktype(tok) != J_ARRAY && json_toktype(tok) != J_OBJECT)
                   siz++;
   
           arr = array_Init(siz);
           if (!arr)
                   return NULL;
   
           if (tok->tok_type == J_STRING || tok->tok_type == J_VALUE) {
                   str = e_malloc(json_toklen(tok) + 1);
                   if (!str) {
                           array_Destroy(&arr);
                           return NULL;
                   } else
                           json_tokstrcpy(str, jstr, tok);
                   if (array_Push(arr, str, 0) == -1) {
                           e_free(str);
                           array_Destroy(&arr);
                           return NULL;
                   }
           } else if (tok->tok_type == J_ARRAY) {
                   for (i = 0, j = 1; i < tok->tok_size; i++) {
                           t = &tok[i + j];
                           str = e_malloc(json_toklen(t) + 1);
                           if (!str) {
                                   json_freearray(&arr);
                                   return NULL;
                           } else
                                   json_tokstrcpy(str, jstr, t);
                           if (array_Push(arr, str, 0) == -1) {
                                   e_free(str);
                                   json_freearray(&arr);
                                   return NULL;
                           }
   
                           /* if there we have array from objects should parse all object tokens */
                           while (i < tok->tok_size - 1 && tok->tok_idx != tok[i + j + 1].tok_parent)
                                   j++;
                   }
           } else if (tok->tok_type == J_OBJECT) {
                   for (i = 0; tok->tok_idx <= tok[i + 1].tok_parent; i++) {
                           t = &tok[i + 1];
                           str = e_malloc(json_toklen(t) + 1);
                           if (!str) {
                                   json_freearray(&arr);
                                   return NULL;
                           } else
                                   json_tokstrcpy(str, jstr, t);
                           if (array_Push(arr, str, 0) == -1) {
                                   e_free(str);
                                   json_freearray(&arr);
                                   return NULL;
                           }
                   }
           } else {
                   elwix_SetErr(J_ERR_PARAM, "%s", jerrstr[J_ERR_PARAM]);
                   array_Destroy(&arr);
                   return NULL;
           }
   
           return arr;
   }
   
   
 /*  /*
  * json_add_begin_object() - Adds begin of object {   * json_add_begin_object() - Adds begin of object {
  *   *
Line 991  json_add_pair(char * __restrict jstr, int jlen, int ws Line 1171  json_add_pair(char * __restrict jstr, int jlen, int ws
 }  }
   
 /*  /*
    * json_add_pair2() - Adds key/value pair with formated args
    *
    * @jstr = JSON string
    * @jlen = JSON string length
    * @wspace = whitespace include
    * @key = Key string
    * @fmt = Format string for values
    * return: -1 error or !=-1 actual JSON string length
    */
   int
   json_add_pair2(char * __restrict jstr, int jlen, int wspace, const char *key, const char *fmt, ...)
   {
           int len = -1;
           size_t eos;
           va_list lst;
           char szStr[BUFSIZ] = { [0 ... BUFSIZ - 1] = 0 };
   
           if (!jstr || !key || !fmt)
                   return -1;
           else
                   eos = strlen(jstr);
   
           if (json_add_string(jstr, jlen, 0, key) == -1) {
                   jstr[eos] = 0;
                   return -1;
           }
           if (json_add_colon(jstr, jlen, wspace) == -1) {
                   jstr[eos] = 0;
                   return -1;
           }
           va_start(lst, fmt);
           vsnprintf(szStr, sizeof szStr, fmt, lst);
           va_end(lst);
           if ((len = json_add_string(jstr, jlen, 0, szStr)) == -1) {
                   jstr[eos] = 0;
                   return -1;
           }
   
           return len;
   }
   
   /*
  * json_add_array() - Adds array   * json_add_array() - Adds array
  *   *
  * @jstr = JSON string   * @jstr = JSON string
Line 1059  json_dump_yaml(FILE *f, const char *jstr, jtok_t *toks Line 1281  json_dump_yaml(FILE *f, const char *jstr, jtok_t *toks
 {  {
         register int i, j, k;          register int i, j, k;
   
        if (!toksnum)        if (!toksnum || !toks)
                 return 0;                  return 0;
   
         if (toks->tok_type == J_VALUE) {          if (toks->tok_type == J_VALUE) {
Line 1149  json_dump(FILE *f, const char *jstr, jtok_t *toks, int Line 1371  json_dump(FILE *f, const char *jstr, jtok_t *toks, int
         }          }
   
         return 0;          return 0;
   }
   
   /*
    * json_objscope() - Find object scope of key
    *
    * @key = Key of object, if it is =NULL, then return 0 (default scope)
    * @jstr = JSON string
    * @toks = JSON tokens
    * @toksnum = Number of tokens
    * return: -1 on error or >=0 scope of object
    */
   long
   json_objscope(const char *key, const char *jstr, jtok_t * __restrict toks, int toksnum)
   {
           long scope = 0;
           register int i;
           int klen;
   
           if (!key)
                   return 0;       /* default scope */
   
           if (!jstr || !toks)
                   return -1;
           else
                   klen = strlen(key);
   
           for (i = 1; i < toksnum; i++)
                   if (toks[i].tok_type == J_STRING && toks[i].tok_size == 1 && 
                                   klen == toks[i].tok_end - toks[i].tok_start && 
                                   !strncmp(jstr + toks[i].tok_start, key, klen))
                           if (toks[i + 1].tok_type == J_OBJECT) {
                                   scope = toks[i + 1].tok_idx;
                                   break;
                           }
   
           return scope;
   }
   
   /*
    * json_validate() - Validate JSON
    *
    * @jstr = JSON string
    * @started = if started != NULL then here will return start position of found JSON
    * return: -1 error or >=0 where valid JSON ends
    */
   int
   json_validate(const char *jstr, int *started)
   {
           register int o = 0, a = 0, q = 0, pos = 0;
   
           if (!jstr)
                   return -1;
   
           if (started)
                   *started = 0;
   
           while (jstr[pos] && jstr[pos] != '{' && jstr[pos] != '[') {
                   pos++;
                   if (started)
                           (*started)++;
           }
   
           do {
                   switch (jstr[pos++]) {
                           case '{':
                                   o++;
                                   break;
                           case '}':
                                   o--;
                                   break;
                           case '[':
                                   a++;
                                   break;
                           case ']':
                                   a--;
                                   break;
                           case '"':
                                   q = ~q;
                                   break;
                           case '\\':
                                   pos++;
                                   break;
                           case 0: /* string ends without valid JSON */
                                   if (started)
                                           *started = 0;
                                   return 0;
                   }
           } while (q || a || o);
   
           return pos;
   }
   
   /*
    * json_marshaling() - Prepare JSON to one continues line
    *
    * @jstr = JSON string
    * @space = if it is 0 then spaces will be removed
    * return NULL error or !=NULL ready JSON for proceeding
    */
   char *
   json_marshaling(char * __restrict jstr, int space)
   {
           int started, ended, len;
           char *str, *pos, *js;
           register int q = 0;
   
           if (!jstr)
                   return NULL;
           else
                   js = jstr;
   
           ended = json_validate(jstr, &started);
           if (!ended)
                   return NULL;
           len = ended - started + 1;
           str = e_malloc(len);
           if (!str)
                   return NULL;
           else {
                   memset(str, 0, len);
                   pos = str;
           }
   
           js += started;
           while (*js && js < jstr + ended && --len) {
                   if (*js < 0x20) {
                           js++;
                           continue;
                   }
                   if (space && !q && *js == 0x20) {
                           js++;
                           continue;
                   }
                   if (*js == '"')
                           q = ~q;
                   *pos++ = *js++;
           }
           *pos = 0;
   
           len = strlen(jstr) + 1;
           strlcpy(jstr, str, len);
           e_free(str);
           return jstr;
 }  }
Removed from v.1.5  
changed lines
  Added in v.1.12.2.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>