Merge pull request #1844 from rubenk/sigrok
[collectd.git] / 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 <stdlib.h>
28 #include <stdio.h>
29 #include <string.h>
30 #include <assert.h>
31 #include <errno.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)
42 {
43   yyin = fd;
44 } /* void yyset_in */
45
46 oconfig_item_t *oconfig_parse_fh (FILE *fh)
47 {
48   int status;
49   oconfig_item_t *ret;
50
51   char file[10];
52
53   yyset_in (fh);
54
55   if (NULL == c_file) {
56     status = snprintf (file, sizeof (file), "<fd#%d>", fileno (fh));
57
58     if ((status < 0) || (((size_t) status) >= sizeof (file))) {
59       c_file = "<unknown>";
60     }
61     else {
62       file[sizeof (file) - 1] = '\0';
63       c_file = file;
64     }
65   }
66
67   status = yyparse ();
68   if (status != 0)
69   {
70     fprintf (stderr, "yyparse returned error #%i\n", status);
71     return (NULL);
72   }
73
74   c_file = NULL;
75
76   ret = ci_root;
77   ci_root = NULL;
78   yyset_in ((FILE *) 0);
79
80   return (ret);
81 } /* oconfig_item_t *oconfig_parse_fh */
82
83 oconfig_item_t *oconfig_parse_file (const char *file)
84 {
85   FILE *fh;
86   oconfig_item_t *ret;
87
88   c_file = file;
89
90   fh = fopen (file, "r");
91   if (fh == NULL)
92   {
93     fprintf (stderr, "fopen (%s) failed: %s\n", file, strerror (errno));
94     return (NULL);
95   }
96
97   ret = oconfig_parse_fh (fh);
98   fclose (fh);
99
100   c_file = NULL;
101
102   return (ret);
103 } /* oconfig_item_t *oconfig_parse_file */
104
105 oconfig_item_t *oconfig_clone (const oconfig_item_t *ci_orig)
106 {
107   oconfig_item_t *ci_copy;
108
109   ci_copy = calloc (1, sizeof (*ci_copy));
110   if (ci_copy == NULL)
111   {
112     fprintf (stderr, "calloc failed.\n");
113     return (NULL);
114   }
115   ci_copy->values = NULL;
116   ci_copy->parent = NULL;
117   ci_copy->children = NULL;
118
119   ci_copy->key = strdup (ci_orig->key);
120   if (ci_copy->key == NULL)
121   {
122     fprintf (stderr, "strdup failed.\n");
123     free (ci_copy);
124     return (NULL);
125   }
126
127   if (ci_orig->values_num > 0) /* {{{ */
128   {
129     ci_copy->values = (oconfig_value_t *) calloc ((size_t) ci_orig->values_num,
130         sizeof (*ci_copy->values));
131     if (ci_copy->values == NULL)
132     {
133       fprintf (stderr, "calloc failed.\n");
134       free (ci_copy->key);
135       free (ci_copy);
136       return (NULL);
137     }
138     ci_copy->values_num = ci_orig->values_num;
139
140     for (int i = 0; i < ci_copy->values_num; i++)
141     {
142        ci_copy->values[i].type = ci_orig->values[i].type;
143        if (ci_copy->values[i].type == OCONFIG_TYPE_STRING)
144        {
145          ci_copy->values[i].value.string = strdup (ci_orig->values[i].value.string);
146          if (ci_copy->values[i].value.string == NULL)
147          {
148            fprintf (stderr, "strdup failed.\n");
149            oconfig_free (ci_copy);
150            return (NULL);
151          }
152        }
153        else /* ci_copy->values[i].type != OCONFIG_TYPE_STRING) */
154        {
155          ci_copy->values[i].value = ci_orig->values[i].value;
156        }
157     }
158   } /* }}} if (ci_orig->values_num > 0) */
159
160   if (ci_orig->children_num > 0) /* {{{ */
161   {
162     ci_copy->children = (oconfig_item_t *) calloc ((size_t) ci_orig->children_num,
163         sizeof (*ci_copy->children));
164     if (ci_copy->children == NULL)
165     {
166       fprintf (stderr, "calloc failed.\n");
167       oconfig_free (ci_copy);
168       return (NULL);
169     }
170     ci_copy->children_num = ci_orig->children_num;
171
172     for (int i = 0; i < ci_copy->children_num; i++)
173     {
174       oconfig_item_t *child;
175
176       child = oconfig_clone (ci_orig->children + i);
177       if (child == NULL)
178       {
179         oconfig_free (ci_copy);
180         return (NULL);
181       }
182       child->parent = ci_copy;
183       ci_copy->children[i] = *child;
184       free (child);
185     } /* for (i = 0; i < ci_copy->children_num; i++) */
186   } /* }}} if (ci_orig->children_num > 0) */
187
188   return (ci_copy);
189 } /* oconfig_item_t *oconfig_clone */
190
191 static void oconfig_free_all (oconfig_item_t *ci)
192 {
193   if (ci == NULL)
194     return;
195
196   if (ci->key != NULL)
197     free (ci->key);
198
199   for (int i = 0; i < ci->values_num; i++)
200     if ((ci->values[i].type == OCONFIG_TYPE_STRING)
201         && (NULL != ci->values[i].value.string))
202       free (ci->values[i].value.string);
203
204   if (ci->values != NULL)
205     free (ci->values);
206
207   for (int i = 0; i < ci->children_num; i++)
208     oconfig_free_all (ci->children + i);
209
210   if (ci->children != NULL)
211     free (ci->children);
212 }
213
214 void oconfig_free (oconfig_item_t *ci)
215 {
216   oconfig_free_all (ci);
217   free (ci);
218 }
219
220 /*
221  * vim:shiftwidth=2:tabstop=8:softtabstop=2:fdm=marker
222  */