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