1 /*
2 * Copyright (c) 2009, 2010 Aggelos Economopoulos. 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
6 * are met:
7 *
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in
12 * the documentation and/or other materials provided with the
13 * distribution.
14 * 3. Neither the name of The DragonFly Project nor the names of its
15 * contributors may be used to endorse or promote products derived
16 * from this software without specific, prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
21 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
22 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
23 * INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING,
24 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
25 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
26 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
27 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
28 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <stdlib.h>
33 #include <stdio.h>
34 #include <string.h>
35
36 #include "xml.h"
37 #include "trivial.h"
38
39 xml_document_t
xml_document_create(const char * file)40 xml_document_create(const char *file)
41 {
42 xml_document_t doc;
43
44 if ((doc = malloc(sizeof(struct xml_document))) == NULL)
45 return (NULL);
46
47 if ((doc->file = fopen(file, "w")) == NULL) {
48 free(doc);
49 return (NULL);
50 }
51 STAILQ_INIT(&doc->open_elems);
52 doc->nr_open = 0;
53 doc->errmsg = NULL;
54
55 fprintf(doc->file, "<?xml version=\"1.0\" encoding=\"UTF-8\" "
56 "standalone=\"no\"?>\n");
57 fprintf(doc->file, "<!-- Created by evtranalyze -->\n");
58
59 return doc;
60 }
61
62 int
xml_document_close(xml_document_t doc)63 xml_document_close(xml_document_t doc)
64 {
65 fclose(doc->file);
66 return 0;
67 }
68
69
70 static
71 void
indent(xml_document_t doc)72 indent(xml_document_t doc)
73 {
74 int i;
75
76 for (i = 0; i < doc->nr_open; ++i) {
77 fprintf(doc->file, " ");
78 }
79 }
80
81 #if 0
82 int
83 xml_elem_compile(xml_element_t el)
84 {
85 char *buf, *p;
86 int bufsize, c, ret;
87
88 bufsize = 2;
89 if (!(buf = malloc(bufsize))) {
90 return !0;
91 }
92 again_name:
93 p = buf;
94 ret = snprintf(p, sizeof(buf), "<%s ", el->name);
95 if (ret > sizeof(buf)) {
96 bufsize *= 2;
97 buf = realloc(bufsize);
98 if (!buf) {
99 free(p);
100 return !0;
101 }
102 goto again_name;
103 }
104 c += ret;
105 }
106 #endif
107
108 static
109 int
xml_elem_print(xml_document_t doc,xml_element_t el,int closed,int nl)110 xml_elem_print(xml_document_t doc, xml_element_t el, int closed, int nl)
111 {
112 xml_attribute_t at;
113 fprintf(doc->file, "<%s", el->name);
114 STAILQ_FOREACH(at, &el->attributes, next) {
115 fprintf(doc->file, " %s=\"%s\"", at->name, at->value);
116 }
117 fprintf(doc->file, "%s%s", closed ? "/>" : ">", nl ? "\n" : "");
118 return 0;
119 }
120
121 static
122 int
_xml_elem_begin(xml_document_t doc,xml_element_t el,int closed,int nl)123 _xml_elem_begin(xml_document_t doc, xml_element_t el, int closed, int nl)
124 {
125 STAILQ_INSERT_HEAD(&doc->open_elems, el, link);
126 indent(doc);
127 ++doc->nr_open;
128 xml_elem_print(doc, el, closed, nl);
129 return 0;
130 }
131
132 static
133 int
_xml_elem_close(xml_document_t doc,xml_element_t el,int do_indent)134 _xml_elem_close(xml_document_t doc, xml_element_t el, int do_indent)
135 {
136 if (el != STAILQ_FIRST(&doc->open_elems)) {
137 return !0;
138 }
139
140 STAILQ_REMOVE_HEAD(&doc->open_elems, link);
141 --doc->nr_open;
142 if (do_indent)
143 indent(doc);
144 fprintf(doc->file, "</%s>\n", el->name);
145 return 0;
146 }
147
148 int
xml_elem_close(xml_document_t doc,xml_element_t el)149 xml_elem_close(xml_document_t doc, xml_element_t el)
150 {
151 return _xml_elem_close(doc, el, !0);
152 }
153
154 int
xml_elem_begin(xml_document_t doc,xml_element_t el)155 xml_elem_begin(xml_document_t doc, xml_element_t el)
156 {
157 if (el->value) {
158 return !0;
159 }
160 return _xml_elem_begin(doc, el, 0, !0);
161 }
162
163 int
xml_elem_closed(xml_document_t doc,xml_element_t el)164 xml_elem_closed(xml_document_t doc, xml_element_t el)
165 {
166 if (el->value) {
167 _xml_elem_begin(doc, el, 0, 0);
168 fprintf(doc->file, "%s", el->value);
169 _xml_elem_close(doc, el, 0);
170 return 0;
171 }
172 indent(doc);
173 return xml_elem_print(doc, el, !0, !0);
174 }
175
176