json_util.c

   1 /*
   2  * $Id: json_util.c,v 1.4 2006/01/30 23:07:57 mclark Exp $
   3  *
   4  * Copyright (c) 2004, 2005 Metaparadigm Pte. Ltd.
   5  * Michael Clark <michael@metaparadigm.com>
   6  *
   7  * This library is free software; you can redistribute it and/or modify
   8  * it under the terms of the MIT license. See COPYING for details.
   9  *
  10  */
  11
  12 #include "config.h"
  13 #undef realloc
  14
  15 #include <stdio.h>
  16 #include <stdlib.h>
  17 #include <stddef.h>
  18 #include <limits.h>
  19 #include <string.h>
  20 #include <errno.h>
  21 #include <ctype.h>
  22
  23 #ifdef HAVE_SYS_TYPES_H
  24 #include <sys/types.h>
  25 #endif /* HAVE_SYS_TYPES_H */
  26
  27 #ifdef HAVE_SYS_STAT_H
  28 #include <sys/stat.h>
  29 #endif /* HAVE_SYS_STAT_H */
  30
  31 #ifdef HAVE_FCNTL_H
  32 #include <fcntl.h>
  33 #endif /* HAVE_FCNTL_H */
  34
  35 #ifdef HAVE_UNISTD_H
  36 # include <unistd.h>
  37 #endif /* HAVE_UNISTD_H */
  38
  39 #ifdef WIN32
  40 # define WIN32_LEAN_AND_MEAN
  41 # include <windows.h>
  42 # include <io.h>
  43 #endif /* defined(WIN32) */
  44
  45 #if !defined(HAVE_OPEN) && defined(WIN32)
  46 # define open _open
  47 #endif
  48
  49 #if !defined(HAVE_SNPRINTF) && defined(_MSC_VER)
  50   /* MSC has the version as _snprintf */
  51 # define snprintf _snprintf
  52 #elif !defined(HAVE_SNPRINTF)
  53 # error You do not have snprintf on your system.
  54 #endif /* HAVE_SNPRINTF */
  55
  56 #include "bits.h"
  57 #include "debug.h"
  58 #include "printbuf.h"
  59 #include "json_inttypes.h"
  60 #include "json_object.h"
  61 #include "json_tokener.h"
  62 #include "json_util.h"
  63
  64 struct json_object* json_object_from_file(const char *filename)
  65 {
  66   struct printbuf *pb;
  67   struct json_object *obj;
  68   char buf[JSON_FILE_BUF_SIZE];
  69   int fd, ret;
  70
  71   if((fd = open(filename, O_RDONLY)) < 0) {
  72     MC_ERROR("json_object_from_file: error reading file %s: %s\n",
  73              filename, strerror(errno));
  74     return NULL; // XAX this is an API change!
  75   }
  76   if(!(pb = printbuf_new())) {
  77     close(fd);
  78     MC_ERROR("json_object_from_file: printbuf_new failed\n");
  79     return NULL;
  80   }
  81   while((ret = read(fd, buf, JSON_FILE_BUF_SIZE)) > 0) {
  82     printbuf_memappend(pb, buf, ret);
  83   }
  84   close(fd);
  85   if(ret < 0) {
  86     MC_ABORT("json_object_from_file: error reading file %s: %s\n",
  87              filename, strerror(errno));
  88     printbuf_free(pb);
  89     return NULL;
  90   }
  91   obj = json_tokener_parse(pb->buf);
  92   printbuf_free(pb);
  93   return obj;
  94 }
  95
  96 /* extended "format and write to file" function */
  97
  98 int json_object_to_file_ext(char *filename, struct json_object *obj, int flags)
  99 {
 100   const char *json_str;
 101   int fd, ret;
 102   unsigned int wpos, wsize;
 103
 104   if(!obj) {
 105     MC_ERROR("json_object_to_file: object is null\n");
 106     return -1;
 107   }
 108
 109   if((fd = open(filename, O_WRONLY | O_TRUNC | O_CREAT, 0644)) < 0) {
 110     MC_ERROR("json_object_to_file: error opening file %s: %s\n",
 111              filename, strerror(errno));
 112     return -1;
 113   }
 114
 115   if(!(json_str = json_object_to_json_string_ext(obj,flags))) {
 116     close(fd);
 117     return -1;
 118   }
 119
 120   wsize = (unsigned int)(strlen(json_str) & UINT_MAX); /* CAW: probably unnecessary, but the most 64bit safe */
 121   wpos = 0;
 122   while(wpos < wsize) {
 123     if((ret = write(fd, json_str + wpos, wsize-wpos)) < 0) {
 124       close(fd);
 125       MC_ERROR("json_object_to_file: error writing file %s: %s\n",
 126              filename, strerror(errno));
 127       return -1;
 128     }
 129
 130         /* because of the above check for ret < 0, we can safely cast and add */
 131     wpos += (unsigned int)ret;
 132   }
 133
 134   close(fd);
 135   return 0;
 136 }
 137
 138 // backwards compatible "format and write to file" function
 139
 140 int json_object_to_file(char *filename, struct json_object *obj)
 141 {
 142   return json_object_to_file_ext(filename, obj, JSON_C_TO_STRING_PLAIN);
 143 }
 144
 145 int json_parse_int64(const char *buf, int64_t *retval)
 146 {
 147         int64_t num64;
 148         const char *buf_skip_space;
 149         int orig_has_neg;
 150         if (sscanf(buf, "%" SCNd64, &num64) != 1)
 151         {
 152                 MC_DEBUG("Failed to parse, sscanf != 1\n");
 153                 return 1;
 154         }
 155         buf_skip_space = buf;
 156         orig_has_neg = 0;
 157         // Skip leading spaces
 158         while (isspace((int)*buf_skip_space) && *buf_skip_space)
 159                 buf_skip_space++;
 160         if (*buf_skip_space == '-')
 161         {
 162                 buf_skip_space++;
 163                 orig_has_neg = 1;
 164         }
 165         // Skip leading zeros, but keep at least one digit
 166         while (buf_skip_space[0] == '0' && buf_skip_space[1] != '\0')
 167                 buf_skip_space++;
 168         if (buf_skip_space[0] == '0' && buf_skip_space[1] == '\0')
 169                 orig_has_neg = 0; // "-0" is the same as just plain "0"
 170
 171         if (errno != ERANGE)
 172         {
 173                 char buf_cmp[100];
 174                 char *buf_cmp_start = buf_cmp;
 175                 int recheck_has_neg = 0;
 176                 int buf_cmp_len;
 177                 snprintf(buf_cmp_start, sizeof(buf_cmp), "%" PRId64, num64);
 178                 if (*buf_cmp_start == '-')
 179                 {
 180                         recheck_has_neg = 1;
 181                         buf_cmp_start++;
 182                 }
 183                 // No need to skip leading spaces or zeros here.
 184
 185                 buf_cmp_len = strlen(buf_cmp_start);
 186                 /**
 187                  * If the sign is different, or
 188                  * some of the digits are different, or
 189                  * there is another digit present in the original string
 190                  * then we NOT successfully parsed the value.
 191                  */
 192                 if (orig_has_neg != recheck_has_neg ||
 193                     strncmp(buf_skip_space, buf_cmp_start, strlen(buf_cmp_start)) != 0 ||
 194                         (strlen(buf_skip_space) != buf_cmp_len &&
 195                          isdigit((int)buf_skip_space[buf_cmp_len])
 196                     )
 197                    )
 198                 {
 199                         errno = ERANGE;
 200                 }
 201         }
 202         if (errno == ERANGE)
 203         {
 204                 if (orig_has_neg)
 205                         num64 = INT64_MIN;
 206                 else
 207                         num64 = INT64_MAX;
 208         }
 209         *retval = num64;
 210         return 0;
 211 }
 212
 213 #ifndef HAVE_REALLOC
 214 void* rpl_realloc(void* p, size_t n)
 215 {
 216         if (n == 0)
 217                 n = 1;
 218         if (p == 0)
 219                 return malloc(n);
 220         return realloc(p, n);
 221 }
 222 #endif
 223
 224 #define NELEM(a)        (sizeof(a) / sizeof(a[0]))
 225 static const char* json_type_name[] = {
 226   /* If you change this, be sure to update the enum json_type definition too */
 227   "null",
 228   "boolean",
 229   "double",
 230   "int",
 231   "object",
 232   "array",
 233   "string",
 234 };
 235
 236 const char *json_type_to_name(enum json_type o_type)
 237 {
 238         if (o_type < 0 || o_type >= NELEM(json_type_name))
 239         {
 240                 MC_ERROR("json_type_to_name: type %d is out of range [0,%d]\n", o_type, NELEM(json_type_name));
 241                 return NULL;
 242         }
 243         return json_type_name[o_type];
 244 }
 245