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 30 void 31 ucl_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_iterate_object (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: %hd\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 while ((cur = ucl_iterate_object (obj, &it_obj, true))) { 57 ucl_obj_dump (cur, shift + 2); 58 } 59 } 60 else if (obj->type == UCL_ARRAY) { 61 printf ("%stype: UCL_ARRAY\n", pre); 62 printf ("%svalue: %p\n", pre, obj->value.av); 63 ucl_obj_dump (obj->value.av, shift + 2); 64 } 65 else if (obj->type == UCL_INT) { 66 printf ("%stype: UCL_INT\n", pre); 67 printf ("%svalue: %jd\n", pre, (intmax_t)ucl_object_toint (obj)); 68 } 69 else if (obj->type == UCL_FLOAT) { 70 printf ("%stype: UCL_FLOAT\n", pre); 71 printf ("%svalue: %f\n", pre, ucl_object_todouble (obj)); 72 } 73 else if (obj->type == UCL_STRING) { 74 printf ("%stype: UCL_STRING\n", pre); 75 printf ("%svalue: \"%s\"\n", pre, ucl_object_tostring (obj)); 76 } 77 else if (obj->type == UCL_BOOLEAN) { 78 printf ("%stype: UCL_BOOLEAN\n", pre); 79 printf ("%svalue: %s\n", pre, ucl_object_tostring_forced (obj)); 80 } 81 else if (obj->type == UCL_TIME) { 82 printf ("%stype: UCL_TIME\n", pre); 83 printf ("%svalue: %f\n", pre, ucl_object_todouble (obj)); 84 } 85 else if (obj->type == UCL_USERDATA) { 86 printf ("%stype: UCL_USERDATA\n", pre); 87 printf ("%svalue: %p\n", pre, obj->value.ud); 88 } 89 } 90 91 free (pre); 92 } 93 94 int 95 main(int argc, char **argv) 96 { 97 const char *fn = NULL; 98 char inbuf[8192]; 99 struct ucl_parser *parser; 100 int k, ret = 0, r = 0; 101 ucl_object_t *obj = NULL; 102 const ucl_object_t *par; 103 FILE *in; 104 105 if (argc > 1) { 106 fn = argv[1]; 107 } 108 109 if (fn != NULL) { 110 in = fopen (fn, "r"); 111 if (in == NULL) { 112 exit (-errno); 113 } 114 } 115 else { 116 in = stdin; 117 } 118 119 parser = ucl_parser_new (0); 120 while (!feof (in) && r < (int)sizeof (inbuf)) { 121 r += fread (inbuf + r, 1, sizeof (inbuf) - r, in); 122 } 123 ucl_parser_add_chunk (parser, inbuf, r); 124 fclose (in); 125 if (ucl_parser_get_error(parser)) { 126 printf ("Error occured: %s\n", ucl_parser_get_error(parser)); 127 ret = 1; 128 goto end; 129 } 130 131 obj = ucl_parser_get_object (parser); 132 if (ucl_parser_get_error (parser)) { 133 printf ("Error occured: %s\n", ucl_parser_get_error(parser)); 134 ret = 1; 135 goto end; 136 } 137 138 if (argc > 2) { 139 for (k = 2; k < argc; k++) { 140 printf ("search for \"%s\"... ", argv[k]); 141 par = ucl_object_find_key (obj, argv[k]); 142 printf ("%sfound\n", (par == NULL )?"not ":""); 143 ucl_obj_dump (par, 0); 144 } 145 } 146 else { 147 ucl_obj_dump (obj, 0); 148 } 149 150 end: 151 if (parser != NULL) { 152 ucl_parser_free (parser); 153 } 154 if (obj != NULL) { 155 ucl_object_unref (obj); 156 } 157 158 return ret; 159 } 160