1/* Copyright (c) 2013, Dmitriy V. Reshetnikov
2 * Copyright (c) 2013, Vsevolod Stakhov
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions are met:
7 *       * Redistributions of source code must retain the above copyright
8 *         notice, this list of conditions and the following disclaimer.
9 *       * Redistributions in binary form must reproduce the above copyright
10 *         notice, this list of conditions and the following disclaimer in the
11 *         documentation and/or other materials provided with the distribution.
12 *
13 * THIS SOFTWARE IS PROVIDED ''AS IS'' AND ANY
14 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
15 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
16 * DISCLAIMED. IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY
17 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
18 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
19 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
20 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
21 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
22 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
23 */
24
25#include <stdio.h>
26#include <errno.h>
27
28#include "ucl.h"
29
30void
31ucl_obj_dump (const ucl_object_t *obj, unsigned int shift)
32{
33	int num = shift * 4 + 5;
34	char *pre = (char *) malloc (num * sizeof(char));
35	const ucl_object_t *cur, *tmp;
36	ucl_object_iter_t it = NULL, it_obj = NULL;
37
38	pre[--num] = 0x00;
39	while (num--)
40		pre[num] = 0x20;
41
42	tmp = obj;
43
44	while ((obj = ucl_object_iterate (tmp, &it, false))) {
45		printf ("%sucl object address: %p\n", pre + 4, obj);
46		if (obj->key != NULL) {
47			printf ("%skey: \"%s\"\n", pre, ucl_object_key (obj));
48		}
49		printf ("%sref: %u\n", pre, obj->ref);
50		printf ("%slen: %u\n", pre, obj->len);
51		printf ("%sprev: %p\n", pre, obj->prev);
52		printf ("%snext: %p\n", pre, obj->next);
53		if (obj->type == UCL_OBJECT) {
54			printf ("%stype: UCL_OBJECT\n", pre);
55			printf ("%svalue: %p\n", pre, obj->value.ov);
56			it_obj = NULL;
57			while ((cur = ucl_object_iterate (obj, &it_obj, true))) {
58				ucl_obj_dump (cur, shift + 2);
59			}
60		}
61		else if (obj->type == UCL_ARRAY) {
62			printf ("%stype: UCL_ARRAY\n", pre);
63			printf ("%svalue: %p\n", pre, obj->value.av);
64			it_obj = NULL;
65			while ((cur = ucl_object_iterate (obj, &it_obj, true))) {
66				ucl_obj_dump (cur, shift + 2);
67			}
68		}
69		else if (obj->type == UCL_INT) {
70			printf ("%stype: UCL_INT\n", pre);
71			printf ("%svalue: %jd\n", pre, (intmax_t)ucl_object_toint (obj));
72		}
73		else if (obj->type == UCL_FLOAT) {
74			printf ("%stype: UCL_FLOAT\n", pre);
75			printf ("%svalue: %f\n", pre, ucl_object_todouble (obj));
76		}
77		else if (obj->type == UCL_STRING) {
78			printf ("%stype: UCL_STRING\n", pre);
79			printf ("%svalue: \"%s\"\n", pre, ucl_object_tostring (obj));
80		}
81		else if (obj->type == UCL_BOOLEAN) {
82			printf ("%stype: UCL_BOOLEAN\n", pre);
83			printf ("%svalue: %s\n", pre, ucl_object_tostring_forced (obj));
84		}
85		else if (obj->type == UCL_TIME) {
86			printf ("%stype: UCL_TIME\n", pre);
87			printf ("%svalue: %f\n", pre, ucl_object_todouble (obj));
88		}
89		else if (obj->type == UCL_USERDATA) {
90			printf ("%stype: UCL_USERDATA\n", pre);
91			printf ("%svalue: %p\n", pre, obj->value.ud);
92		}
93	}
94
95	free (pre);
96}
97
98int
99main(int argc, char **argv)
100{
101	const char *fn = NULL;
102	unsigned char *inbuf;
103	struct ucl_parser *parser;
104	int k, ret = 0, r = 0;
105	ssize_t bufsize;
106	ucl_object_t *obj = NULL;
107	const ucl_object_t *par;
108	FILE *in;
109
110	if (argc > 1) {
111		fn = argv[1];
112	}
113
114	if (fn != NULL) {
115		in = fopen (fn, "r");
116		if (in == NULL) {
117			exit (-errno);
118		}
119	}
120	else {
121		in = stdin;
122	}
123
124	parser = ucl_parser_new (0);
125	inbuf = malloc (BUFSIZ);
126	bufsize = BUFSIZ;
127	r = 0;
128
129	while (!feof (in) && !ferror (in)) {
130		if (r == bufsize) {
131			inbuf = realloc (inbuf, bufsize * 2);
132			bufsize *= 2;
133			if (inbuf == NULL) {
134				perror ("realloc");
135				exit (EXIT_FAILURE);
136			}
137		}
138		r += fread (inbuf + r, 1, bufsize - r, in);
139	}
140
141	if (ferror (in)) {
142		fprintf (stderr, "Failed to read the input file.\n");
143		exit (EXIT_FAILURE);
144	}
145
146	ucl_parser_add_chunk (parser, inbuf, r);
147	fclose (in);
148	if (ucl_parser_get_error(parser)) {
149		printf ("Error occured: %s\n", ucl_parser_get_error(parser));
150		ret = 1;
151		goto end;
152	}
153
154	obj = ucl_parser_get_object (parser);
155	if (ucl_parser_get_error (parser)) {
156		printf ("Error occured: %s\n", ucl_parser_get_error(parser));
157		ret = 1;
158		goto end;
159	}
160
161	if (argc > 2) {
162		for (k = 2; k < argc; k++) {
163			printf ("search for \"%s\"... ", argv[k]);
164			par = ucl_object_lookup (obj, argv[k]);
165			printf ("%sfound\n", (par == NULL )?"not ":"");
166			ucl_obj_dump (par, 0);
167		}
168	}
169	else {
170		ucl_obj_dump (obj, 0);
171	}
172
173end:
174	if (parser != NULL) {
175		ucl_parser_free (parser);
176	}
177	if (obj != NULL) {
178		ucl_object_unref (obj);
179	}
180
181	return ret;
182}
183