2 * Sherlock Library -- A simple XML parser
4 * (c) 2007--2008 Pavel Charvat <pchar@ucw.cz>
6 * This software may be freely distributed and used according to the terms
7 * of the GNU Lesser General Public License.
10 #include "sherlock/sherlock.h"
11 #include "sherlock/xml/xml.h"
12 #include "sherlock/xml/dtd.h"
13 #include "lib/getopt.h"
14 #include "lib/fastbuf.h"
30 static char *shortopts = "spd" CF_SHORT_OPTS;
31 static struct option longopts[] = {
34 { "pull", 0, 0, 'p' },
36 { "dtd", 0, 0, WANT_PARSE_DTD },
37 { "hide-errors", 0, 0, WANT_HIDE_ERRORS },
38 { "ignore-comments", 0, 0, WANT_IGNORE_COMMENTS },
39 { "ignore-pis", 0, 0, WANT_IGNORE_PIS },
40 { "reports-blocks", 0, 0, WANT_REPORT_BLOCKS },
41 { "file-entities", 0, 0, WANT_FILE_ENTITIES },
49 Usage: xml-test [options] < input.xml\n\
54 -p, --pull Test PULL interface\n\
55 -s, --sax Test SAX interface\n\
56 -d, --dom Test DOM interface\n\
57 --dtd Enable parsing of DTD\n\
58 --hide-errors Hide warnings and error messages\n\
59 --ignore-comments Ignore processing instructions\n\
60 --ignore-pis Ignore comments\n\
61 --report-blocks Report blocks or characters and CDATA sections\n\
62 --file-entities Resolve file external entities (not fully normative)\n\
70 static uns want_parse_dtd;
71 static uns want_hide_errors;
72 static uns want_ignore_comments;
73 static uns want_ignore_pis;
74 static uns want_report_blocks;
75 static uns want_file_entities;
77 static struct fastbuf *out;
80 node_type(struct xml_node *node)
84 case XML_NODE_ELEM: return "element";
85 case XML_NODE_COMMENT: return "comment";
86 case XML_NODE_PI: return "pi";
87 case XML_NODE_CHARS: return "chars";
88 default: return "unknown";
93 show_node(struct xml_node *node)
98 bprintf(out, " <%s>", node->name);
99 XML_ATTR_FOR_EACH(a, node)
100 bprintf(out, " %s='%s'", a->name, a->val);
103 case XML_NODE_COMMENT:
104 bprintf(out, " text='%s'\n", node->text);
107 bprintf(out, " target=%s text='%s'\n", node->name, node->text);
110 bprintf(out, " text='%s'\n", node->text);
118 show_tree(struct xml_node *node, uns level)
123 for (uns i = 0; i < level; i++)
125 bputs(out, node_type(node));
127 if (node->type == XML_NODE_ELEM)
128 XML_NODE_FOR_EACH(son, node)
129 show_tree(son, level + 1);
133 h_error(struct xml_context *ctx)
135 bprintf(out, "SAX: %s at %u: %s\n", (ctx->err_code < XML_ERR_ERROR) ? "warn" : "error", xml_row(ctx), ctx->err_msg);
139 h_document_start(struct xml_context *ctx UNUSED)
141 bputs(out, "SAX: document_start\n");
145 h_document_end(struct xml_context *ctx UNUSED)
147 bputs(out, "SAX: document_end\n");
151 h_xml_decl(struct xml_context *ctx)
153 bprintf(out, "SAX: xml_decl version=%s standalone=%d fb_encoding=%s\n", ctx->version_str, ctx->standalone, ctx->src->fb_encoding);
157 h_doctype_decl(struct xml_context *ctx)
159 bprintf(out, "SAX: doctype_decl type=%s public='%s' system='%s' extsub=%d intsub=%d\n",
160 ctx->doctype, ctx->public_id ? : "", ctx->system_id ? : "",
161 !!(ctx->flags & XML_HAS_EXTERNAL_SUBSET), !!(ctx->flags & XML_HAS_INTERNAL_SUBSET));
165 h_comment(struct xml_context *ctx)
167 bputs(out, "SAX: comment");
168 show_node(ctx->node);
172 h_pi(struct xml_context *ctx)
174 bputs(out, "SAX: pi");
175 show_node(ctx->node);
179 h_stag(struct xml_context *ctx)
181 bputs(out, "SAX: stag");
182 show_node(ctx->node);
186 h_etag(struct xml_context *ctx)
188 bprintf(out, "SAX: etag </%s>\n", ctx->node->name);
192 h_chars(struct xml_context *ctx)
194 bputs(out, "SAX: chars");
195 show_node(ctx->node);
199 h_block(struct xml_context *ctx UNUSED, char *text, uns len UNUSED)
201 bprintf(out, "SAX: block text='%s'\n", text);
205 h_cdata(struct xml_context *ctx UNUSED, char *text, uns len UNUSED)
207 bprintf(out, "SAX: cdata text='%s'\n", text);
211 h_dtd_start(struct xml_context *ctx UNUSED)
213 bputs(out, "SAX: dtd_start\n");
217 h_dtd_end(struct xml_context *ctx UNUSED)
219 bputs(out, "SAX: dtd_end\n");
223 h_resolve_entity(struct xml_context *ctx, struct xml_dtd_entity *e)
225 xml_push_fastbuf(ctx, bopen(e->system_id, O_RDONLY, 4096));
229 main(int argc, char **argv)
234 while ((opt = cf_getopt(argc, argv, shortopts, longopts, NULL)) >= 0)
249 case WANT_HIDE_ERRORS:
252 case WANT_IGNORE_COMMENTS:
253 want_ignore_comments++;
255 case WANT_IGNORE_PIS:
258 case WANT_REPORT_BLOCKS:
259 want_report_blocks++;
261 case WANT_FILE_ENTITIES:
262 want_file_entities++;
270 out = bfdopen_shared(1, 4096);
271 struct xml_context ctx;
273 if (!want_hide_errors)
274 ctx.h_warn = ctx.h_error = ctx.h_fatal = h_error;
277 ctx.h_document_start = h_document_start;
278 ctx.h_document_end = h_document_end;
279 ctx.h_xml_decl = h_xml_decl;
280 ctx.h_doctype_decl = h_doctype_decl;
281 ctx.h_comment = h_comment;
285 ctx.h_chars = h_chars;
286 if (want_report_blocks)
288 ctx.h_block = h_block;
289 ctx.h_cdata = h_cdata;
291 ctx.h_dtd_start = h_dtd_start;
292 ctx.h_dtd_end = h_dtd_end;
295 ctx.flags |= XML_ALLOC_ALL;
297 ctx.flags |= XML_PARSE_DTD;
298 if (want_ignore_comments)
299 ctx.flags &= ~(XML_REPORT_COMMENTS | XML_ALLOC_COMMENTS);
301 ctx.flags &= ~(XML_REPORT_PIS | XML_ALLOC_PIS);
302 if (want_file_entities)
303 ctx.h_resolve_entity = h_resolve_entity;
304 xml_push_fastbuf(&ctx, bfdopen_shared(0, 4096));
305 bputs(out, "PULL: start\n");
308 ctx.pull = XML_PULL_CHARS | XML_PULL_STAG | XML_PULL_ETAG | XML_PULL_COMMENT | XML_PULL_PI;
310 while (state = xml_next(&ctx))
313 case XML_STATE_CHARS:
314 bputs(out, "PULL: chars");
318 bputs(out, "PULL: stag");
322 bprintf(out, "PULL: etag </%s>\n", ctx.node->name);
324 case XML_STATE_COMMENT:
325 bputs(out, "PULL: comment");
329 bputs(out, "PULL: pi");
333 bputs(out, "PULL: unknown\n");
340 bprintf(out, "PULL: fatal error at %u: %s\n", xml_row(&ctx), ctx.err_msg);
343 bputs(out, "PULL: eof\n");
345 show_tree(ctx.dom, 0);