1/* Copyright (c) 2013, Vsevolod Stakhov
2 * All rights reserved.
3 *
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met:
6 *       * Redistributions of source code must retain the above copyright
7 *         notice, this list of conditions and the following disclaimer.
8 *       * Redistributions in binary form must reproduce the above copyright
9 *         notice, this list of conditions and the following disclaimer in the
10 *         documentation and/or other materials provided with the distribution.
11 *
12 * THIS SOFTWARE IS PROVIDED ''AS IS'' AND ANY
13 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
14 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
15 * DISCLAIMED. IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY
16 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
17 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
18 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
19 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
20 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
21 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
22 */
23
24#include "ucl.h"
25#include "ucl_internal.h"
26
27int
28main (int argc, char **argv)
29{
30	char inbuf[8192], *test_in = NULL;
31	struct ucl_parser *parser = NULL, *parser2 = NULL;
32	ucl_object_t *obj;
33	FILE *in, *out;
34	unsigned char *emitted = NULL;
35	const char *fname_in = NULL, *fname_out = NULL;
36	int ret = 0, inlen, opt, json = 0;
37
38	while ((opt = getopt(argc, argv, "j")) != -1) {
39		switch (opt) {
40		case 'j':
41			json = 1;
42			break;
43		default: /* '?' */
44			fprintf (stderr, "Usage: %s [-j] [in] [out]\n",
45					argv[0]);
46			exit (EXIT_FAILURE);
47		}
48	}
49
50	argc -= optind;
51	argv += optind;
52
53	switch (argc) {
54	case 1:
55		fname_in = argv[0];
56		break;
57	case 2:
58		fname_in = argv[0];
59		fname_out = argv[1];
60		break;
61	}
62
63	if (fname_in != NULL) {
64		in = fopen (fname_in, "r");
65		if (in == NULL) {
66			exit (-errno);
67		}
68	}
69	else {
70		in = stdin;
71	}
72	parser = ucl_parser_new (UCL_PARSER_KEY_LOWERCASE);
73	ucl_parser_register_variable (parser, "ABI", "unknown");
74
75	if (fname_in != NULL) {
76		ucl_parser_set_filevars (parser, fname_in, true);
77	}
78
79	while (!feof (in)) {
80		memset (inbuf, 0, sizeof (inbuf));
81		if (fread (inbuf, 1, sizeof (inbuf) - 1, in) == 0) {
82			break;
83		}
84		inlen = strlen (inbuf);
85		test_in = malloc (inlen);
86		memcpy (test_in, inbuf, inlen);
87		ucl_parser_add_chunk (parser, test_in, inlen);
88	}
89	fclose (in);
90
91	if (fname_out != NULL) {
92		out = fopen (fname_out, "w");
93		if (out == NULL) {
94			exit (-errno);
95		}
96	}
97	else {
98		out = stdout;
99	}
100	if (ucl_parser_get_error (parser) != NULL) {
101		fprintf (out, "Error occurred: %s\n", ucl_parser_get_error(parser));
102		ret = 1;
103		goto end;
104	}
105	obj = ucl_parser_get_object (parser);
106	if (json) {
107		emitted = ucl_object_emit (obj, UCL_EMIT_JSON);
108	}
109	else {
110		emitted = ucl_object_emit (obj, UCL_EMIT_CONFIG);
111	}
112	ucl_parser_free (parser);
113	ucl_object_unref (obj);
114	parser2 = ucl_parser_new (UCL_PARSER_KEY_LOWERCASE);
115	ucl_parser_add_string (parser2, emitted, 0);
116
117	if (ucl_parser_get_error(parser2) != NULL) {
118		fprintf (out, "Error occurred: %s\n", ucl_parser_get_error(parser2));
119		fprintf (out, "%s\n", emitted);
120		ret = 1;
121		goto end;
122	}
123	if (emitted != NULL) {
124		free (emitted);
125	}
126	obj = ucl_parser_get_object (parser2);
127	if (json) {
128		emitted = ucl_object_emit (obj, UCL_EMIT_JSON);
129	}
130	else {
131		emitted = ucl_object_emit (obj, UCL_EMIT_CONFIG);
132	}
133
134	fprintf (out, "%s\n", emitted);
135	ucl_object_unref (obj);
136
137end:
138	if (emitted != NULL) {
139		free (emitted);
140	}
141	if (parser2 != NULL) {
142		ucl_parser_free (parser2);
143	}
144	if (test_in != NULL) {
145		free (test_in);
146	}
147
148	fclose (out);
149
150	return ret;
151}
152