2 * Copyright (c) 2009, 2010 Aggelos Economopoulos. All rights reserved.
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions
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
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.
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
40 xml_document_create(const char *file
)
44 if ((doc
= malloc(sizeof(struct xml_document
))) == NULL
)
47 if ((doc
->file
= fopen(file
, "w")) == NULL
) {
51 STAILQ_INIT(&doc
->open_elems
);
55 fprintf(doc
->file
, "<?xml version=\"1.0\" encoding=\"UTF-8\" "
56 "standalone=\"no\"?>\n");
57 fprintf(doc
->file
, "<!-- Created by evtranalyze -->\n");
63 xml_document_close(xml_document_t doc
)
72 indent(xml_document_t doc
)
76 for (i
= 0; i
< doc
->nr_open
; ++i
) {
77 fprintf(doc
->file
, " ");
83 xml_elem_compile(xml_element_t el
)
89 if (!(buf
= malloc(bufsize
))) {
94 ret
= snprintf(p
, sizeof(buf
), "<%s ", el
->name
);
95 if (ret
> sizeof(buf
)) {
97 buf
= realloc(bufsize
);
110 xml_elem_print(xml_document_t doc
, xml_element_t el
, int closed
, int nl
)
113 fprintf(doc
->file
, "<%s", el
->name
);
114 STAILQ_FOREACH(at
, &el
->attributes
, next
) {
115 fprintf(doc
->file
, " %s=\"%s\"", at
->name
, at
->value
);
117 fprintf(doc
->file
, "%s%s", closed
? "/>" : ">", nl
? "\n" : "");
123 _xml_elem_begin(xml_document_t doc
, xml_element_t el
, int closed
, int nl
)
125 STAILQ_INSERT_HEAD(&doc
->open_elems
, el
, link
);
128 xml_elem_print(doc
, el
, closed
, nl
);
134 _xml_elem_close(xml_document_t doc
, xml_element_t el
, int do_indent
)
136 if (el
!= STAILQ_FIRST(&doc
->open_elems
)) {
140 STAILQ_REMOVE_HEAD(&doc
->open_elems
, link
);
144 fprintf(doc
->file
, "</%s>\n", el
->name
);
149 xml_elem_close(xml_document_t doc
, xml_element_t el
)
151 return _xml_elem_close(doc
, el
, !0);
155 xml_elem_begin(xml_document_t doc
, xml_element_t el
)
160 return _xml_elem_begin(doc
, el
, 0, !0);
164 xml_elem_closed(xml_document_t doc
, xml_element_t el
)
167 _xml_elem_begin(doc
, el
, 0, 0);
168 fprintf(doc
->file
, "%s", el
->value
);
169 _xml_elem_close(doc
, el
, 0);
173 return xml_elem_print(doc
, el
, !0, !0);