src/liboconfig/oconfig.c

   1 /**
   2  * collectd - src/liboconfig/oconfig.c
   3  * Copyright (C) 2006,2007  Florian Forster
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a
   6  * copy of this software and associated documentation files (the "Software"),
   7  * to deal in the Software without restriction, including without limitation
   8  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
   9  * and/or sell copies of the Software, and to permit persons to whom the
  10  * Software is furnished to do so, subject to the following conditions:
  11  *
  12  * The above copyright notice and this permission notice shall be included in
  13  * all copies or substantial portions of the Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  18  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  19  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  20  * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  21  * DEALINGS IN THE SOFTWARE.
  22  *
  23  * Authors:
  24  *   Florian Forster <octo at collectd.org>
  25  **/
  26
  27 #include <assert.h>
  28 #include <errno.h>
  29 #include <stdio.h>
  30 #include <stdlib.h>
  31 #include <string.h>
  32
  33 #include "oconfig.h"
  34
  35 extern FILE *yyin;
  36 extern int yyparse(void);
  37
  38 oconfig_item_t *ci_root;
  39 const char *c_file;
  40
  41 static void yyset_in(FILE *fd) { yyin = fd; } /* void yyset_in */
  42
  43 static oconfig_item_t *oconfig_parse_fh(FILE *fh) {
  44   int status;
  45   oconfig_item_t *ret;
  46
  47   char file[10];
  48
  49   yyset_in(fh);
  50
  51   if (NULL == c_file) {
  52     status = snprintf(file, sizeof(file), "<fd#%d>", fileno(fh));
  53
  54     if ((status < 0) || (((size_t)status) >= sizeof(file))) {
  55       c_file = "<unknown>";
  56     } else {
  57       file[sizeof(file) - 1] = '\0';
  58       c_file = file;
  59     }
  60   }
  61
  62   status = yyparse();
  63   if (status != 0) {
  64     fprintf(stderr, "yyparse returned error #%i\n", status);
  65     return NULL;
  66   }
  67
  68   c_file = NULL;
  69
  70   ret = ci_root;
  71   ci_root = NULL;
  72   yyset_in((FILE *)0);
  73
  74   return ret;
  75 } /* oconfig_item_t *oconfig_parse_fh */
  76
  77 oconfig_item_t *oconfig_parse_file(const char *file) {
  78   FILE *fh;
  79   oconfig_item_t *ret;
  80
  81   c_file = file;
  82
  83   fh = fopen(file, "r");
  84   if (fh == NULL) {
  85     fprintf(stderr, "fopen (%s) failed: %s\n", file, strerror(errno));
  86     return NULL;
  87   }
  88
  89   ret = oconfig_parse_fh(fh);
  90   fclose(fh);
  91
  92   c_file = NULL;
  93
  94   return ret;
  95 } /* oconfig_item_t *oconfig_parse_file */
  96
  97 oconfig_item_t *oconfig_clone(const oconfig_item_t *ci_orig) {
  98   oconfig_item_t *ci_copy;
  99
 100   ci_copy = calloc(1, sizeof(*ci_copy));
 101   if (ci_copy == NULL) {
 102     fprintf(stderr, "calloc failed.\n");
 103     return NULL;
 104   }
 105   ci_copy->values = NULL;
 106   ci_copy->parent = NULL;
 107   ci_copy->children = NULL;
 108
 109   ci_copy->key = strdup(ci_orig->key);
 110   if (ci_copy->key == NULL) {
 111     fprintf(stderr, "strdup failed.\n");
 112     free(ci_copy);
 113     return NULL;
 114   }
 115
 116   if (ci_orig->values_num > 0) /* {{{ */
 117   {
 118     ci_copy->values = (oconfig_value_t *)calloc((size_t)ci_orig->values_num,
 119                                                 sizeof(*ci_copy->values));
 120     if (ci_copy->values == NULL) {
 121       fprintf(stderr, "calloc failed.\n");
 122       free(ci_copy->key);
 123       free(ci_copy);
 124       return NULL;
 125     }
 126     ci_copy->values_num = ci_orig->values_num;
 127
 128     for (int i = 0; i < ci_copy->values_num; i++) {
 129       ci_copy->values[i].type = ci_orig->values[i].type;
 130       if (ci_copy->values[i].type == OCONFIG_TYPE_STRING) {
 131         ci_copy->values[i].value.string =
 132             strdup(ci_orig->values[i].value.string);
 133         if (ci_copy->values[i].value.string == NULL) {
 134           fprintf(stderr, "strdup failed.\n");
 135           oconfig_free(ci_copy);
 136           return NULL;
 137         }
 138       } else /* ci_copy->values[i].type != OCONFIG_TYPE_STRING) */
 139       {
 140         ci_copy->values[i].value = ci_orig->values[i].value;
 141       }
 142     }
 143   } /* }}} if (ci_orig->values_num > 0) */
 144
 145   if (ci_orig->children_num > 0) /* {{{ */
 146   {
 147     ci_copy->children = (oconfig_item_t *)calloc((size_t)ci_orig->children_num,
 148                                                  sizeof(*ci_copy->children));
 149     if (ci_copy->children == NULL) {
 150       fprintf(stderr, "calloc failed.\n");
 151       oconfig_free(ci_copy);
 152       return NULL;
 153     }
 154     ci_copy->children_num = ci_orig->children_num;
 155
 156     for (int i = 0; i < ci_copy->children_num; i++) {
 157       oconfig_item_t *child;
 158
 159       child = oconfig_clone(ci_orig->children + i);
 160       if (child == NULL) {
 161         oconfig_free(ci_copy);
 162         return NULL;
 163       }
 164       child->parent = ci_copy;
 165       ci_copy->children[i] = *child;
 166       free(child);
 167     } /* for (i = 0; i < ci_copy->children_num; i++) */
 168   }   /* }}} if (ci_orig->children_num > 0) */
 169
 170   return ci_copy;
 171 } /* oconfig_item_t *oconfig_clone */
 172
 173 static void oconfig_free_all(oconfig_item_t *ci) {
 174   if (ci == NULL)
 175     return;
 176
 177   if (ci->key != NULL)
 178     free(ci->key);
 179
 180   for (int i = 0; i < ci->values_num; i++)
 181     if ((ci->values[i].type == OCONFIG_TYPE_STRING) &&
 182         (NULL != ci->values[i].value.string))
 183       free(ci->values[i].value.string);
 184
 185   if (ci->values != NULL)
 186     free(ci->values);
 187
 188   for (int i = 0; i < ci->children_num; i++)
 189     oconfig_free_all(ci->children + i);
 190
 191   if (ci->children != NULL)
 192     free(ci->children);
 193 }
 194
 195 void oconfig_free(oconfig_item_t *ci) {
 196   oconfig_free_all(ci);
 197   free(ci);
 198 }