iseveral improvements and more efficient xml parser - xml2tsv - a simple xml-to-tsv converter, based on xmlparser	Err	bitreich.org	70
1Log	/scm/xml2tsv/log.gph	bitreich.org	70
1Files	/scm/xml2tsv/files.gph	bitreich.org	70
1Refs	/scm/xml2tsv/refs.gph	bitreich.org	70
1Tags	/scm/xml2tsv/tag	bitreich.org	70
1README	/scm/xml2tsv/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/xml2tsv/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 60c249ec24ab865c4a55759c7ffde2da99530b1d	/scm/xml2tsv/commit/60c249ec24ab865c4a55759c7ffde2da99530b1d.gph	bitreich.org	70
1parent b416c171bb34297d7f8bc4c027de7136a113d144	/scm/xml2tsv/commit/b416c171bb34297d7f8bc4c027de7136a113d144.gph	bitreich.org	70
hAuthor: Hiltjo Posthuma <hiltjo@codemadness.org>	URL:mailto:hiltjo@codemadness.org	bitreich.org	70
iDate:   Wed, 30 Sep 2020 11:42:07 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iseveral improvements and more efficient xml parser	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M xml.c                               |      36 +++----------------------------	Err	bitreich.org	70
i  M xml.h                               |      12 +++++-------	Err	bitreich.org	70
i  M xml2tsv.c                           |      93 ++++++++++---------------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i3 files changed, 38 insertions(+), 103 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/xml.c b/xml.c	/scm/xml2tsv/file/xml.c.gph	bitreich.org	70
i@@ -116,49 +116,19 @@ startvalue:	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i xml_parsecomment(XMLParser *x)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        size_t datalen = 0, i = 0;	Err	bitreich.org	70
i+        size_t i = 0;	Err	bitreich.org	70
i         int c;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if (x->xmlcommentstart)	Err	bitreich.org	70
i-                x->xmlcommentstart(x);	Err	bitreich.org	70
i         while ((c = GETNEXT()) != EOF) {	Err	bitreich.org	70
i-                if (c == '-' || c == '>') {	Err	bitreich.org	70
i-                        if (x->xmlcomment && datalen) {	Err	bitreich.org	70
i-                                x->data[datalen] = '\0';	Err	bitreich.org	70
i-                                x->xmlcomment(x, x->data, datalen);	Err	bitreich.org	70
i-                                datalen = 0;	Err	bitreich.org	70
i-                        }	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i                 if (c == '-') {	Err	bitreich.org	70
i-                        if (++i > 2) {	Err	bitreich.org	70
i-                                if (x->xmlcomment)	Err	bitreich.org	70
i-                                        for (; i > 2; i--)	Err	bitreich.org	70
i-                                                x->xmlcomment(x, "-", 1);	Err	bitreich.org	70
i+                        if (++i > 2)	Err	bitreich.org	70
i                                 i = 2;	Err	bitreich.org	70
i-                        }	Err	bitreich.org	70
i                         continue;	Err	bitreich.org	70
i                 } else if (c == '>' && i == 2) {	Err	bitreich.org	70
i-                        if (x->xmlcommentend)	Err	bitreich.org	70
i-                                x->xmlcommentend(x);	Err	bitreich.org	70
i                         return;	Err	bitreich.org	70
i                 } else if (i) {	Err	bitreich.org	70
i-                        if (x->xmlcomment) {	Err	bitreich.org	70
i-                                for (; i > 0; i--)	Err	bitreich.org	70
i-                                        x->xmlcomment(x, "-", 1);	Err	bitreich.org	70
i-                        }	Err	bitreich.org	70
i                         i = 0;	Err	bitreich.org	70
i                 }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                if (datalen < sizeof(x->data) - 1) {	Err	bitreich.org	70
i-                        x->data[datalen++] = c;	Err	bitreich.org	70
i-                } else {	Err	bitreich.org	70
i-                        x->data[datalen] = '\0';	Err	bitreich.org	70
i-                        if (x->xmlcomment)	Err	bitreich.org	70
i-                                x->xmlcomment(x, x->data, datalen);	Err	bitreich.org	70
i-                        x->data[0] = c;	Err	bitreich.org	70
i-                        datalen = 1;	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -286,7 +256,7 @@ numericentitytostr(const char *e, char *buf, size_t bufsiz)	Err	bitreich.org	70
i                 l = strtol(++e, &end, 16);	Err	bitreich.org	70
i         else	Err	bitreich.org	70
i                 l = strtol(e, &end, 10);	Err	bitreich.org	70
i-        /* invalid value or not a well-formed entity or invalid codepoint */	Err	bitreich.org	70
i+        /* invalid value or not a well-formed entity or invalid code point */	Err	bitreich.org	70
i         if (errno || e == end || *end != ';' || l < 0 || l > 0x10ffff)	Err	bitreich.org	70
i                 return -1;	Err	bitreich.org	70
i         len = codepointtoutf8(l, buf);	Err	bitreich.org	70
1diff --git a/xml.h b/xml.h	/scm/xml2tsv/file/xml.h.gph	bitreich.org	70
i@@ -1,5 +1,5 @@	Err	bitreich.org	70
i-#ifndef _XML_H	Err	bitreich.org	70
i-#define _XML_H	Err	bitreich.org	70
i+#ifndef _XML_H_	Err	bitreich.org	70
i+#define _XML_H_	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #include <stdio.h>	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -16,9 +16,6 @@ typedef struct xmlparser {	Err	bitreich.org	70
i         void (*xmlcdatastart)(struct xmlparser *);	Err	bitreich.org	70
i         void (*xmlcdata)(struct xmlparser *, const char *, size_t);	Err	bitreich.org	70
i         void (*xmlcdataend)(struct xmlparser *);	Err	bitreich.org	70
i-        void (*xmlcommentstart)(struct xmlparser *);	Err	bitreich.org	70
i-        void (*xmlcomment)(struct xmlparser *, const char *, size_t);	Err	bitreich.org	70
i-        void (*xmlcommentend)(struct xmlparser *);	Err	bitreich.org	70
i         void (*xmldata)(struct xmlparser *, const char *, size_t);	Err	bitreich.org	70
i         void (*xmldataend)(struct xmlparser *);	Err	bitreich.org	70
i         void (*xmldataentity)(struct xmlparser *, const char *, size_t);	Err	bitreich.org	70
i@@ -29,8 +26,9 @@ typedef struct xmlparser {	Err	bitreich.org	70
i               size_t, int);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #ifndef GETNEXT	Err	bitreich.org	70
i-        #define GETNEXT (x)->getnext	Err	bitreich.org	70
i-        int (*getnext)(void);	Err	bitreich.org	70
i+        /* GETNEXT overridden to reduce function call overhead and	Err	bitreich.org	70
i+           further context optimizations. */	Err	bitreich.org	70
i+        #define GETNEXT getchar	Err	bitreich.org	70
i #endif	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         /* current tag */	Err	bitreich.org	70
1diff --git a/xml2tsv.c b/xml2tsv.c	/scm/xml2tsv/file/xml2tsv.c.gph	bitreich.org	70
i@@ -64,7 +64,7 @@ void stack_init(tstack_t *t){	Err	bitreich.org	70
i /* utility functions */	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /* quote_print: quote \\, \n, \t, and strip other ctrl chars */	Err	bitreich.org	70
i-void quote_print(FILE *f, const char *s){	Err	bitreich.org	70
i+void quote_print(const char *s){	Err	bitreich.org	70
i         const char *tmp = s;	Err	bitreich.org	70
i         size_t len;	Err	bitreich.org	70
i         int i;	Err	bitreich.org	70
i@@ -72,36 +72,45 @@ void quote_print(FILE *f, const char *s){	Err	bitreich.org	70
i                 len = strcspn(tmp, "\\\n\t");	Err	bitreich.org	70
i                 for(i=0; i<len; i++, tmp++){	Err	bitreich.org	70
i                         if (!iscntrl((unsigned char)*tmp)){	Err	bitreich.org	70
i-                                fwrite(tmp, 1, 1, f);	Err	bitreich.org	70
i+                                putchar(*tmp);	Err	bitreich.org	70
i                         }	Err	bitreich.org	70
i                 }	Err	bitreich.org	70
i                 switch (*tmp){	Err	bitreich.org	70
i                         case '\n':	Err	bitreich.org	70
i                                 if (len > 0){	Err	bitreich.org	70
i-                                        fprintf(f, "\\n");	Err	bitreich.org	70
i+                                        fputs("\\n", stdout);	Err	bitreich.org	70
i                                 }	Err	bitreich.org	70
i                                 tmp ++;	Err	bitreich.org	70
i                                 break;	Err	bitreich.org	70
i                         case '\t':	Err	bitreich.org	70
i-                                fprintf(f, "\\t");	Err	bitreich.org	70
i+                                fputs("\\t", stdout);	Err	bitreich.org	70
i                                 tmp ++;	Err	bitreich.org	70
i                                 break;	Err	bitreich.org	70
i                         case '\r':	Err	bitreich.org	70
i-                                fprintf(f, "\\r");	Err	bitreich.org	70
i+                                fputs("\\r", stdout);	Err	bitreich.org	70
i                                 tmp ++;	Err	bitreich.org	70
i                                 break;	Err	bitreich.org	70
i                         case '\\':	Err	bitreich.org	70
i-                                fprintf(f, "\\\\");	Err	bitreich.org	70
i+                                fputs("\\\\", stdout);	Err	bitreich.org	70
i                                 tmp ++;	Err	bitreich.org	70
i                                 break;	Err	bitreich.org	70
i                 }	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-void print_cur_str(FILE *f, tstack_t *t){	Err	bitreich.org	70
i+void print_cur_str(tstack_t *t){	Err	bitreich.org	70
i         int i;	Err	bitreich.org	70
i         for (i=0; i<=t->top; i++){	Err	bitreich.org	70
i-                fprintf(f, "/%s", t->st[i]);	Err	bitreich.org	70
i+                putchar('/');	Err	bitreich.org	70
i+                fputs(t->st[i], stdout);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void print_cur_str_fp(FILE *f, tstack_t *t){	Err	bitreich.org	70
i+        int i;	Err	bitreich.org	70
i+        for (i=0; i<=t->top; i++){	Err	bitreich.org	70
i+                fputc('/', f);	Err	bitreich.org	70
i+                fputs(t->st[i], f);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -110,13 +119,13 @@ void print_cur_str(FILE *f, tstack_t *t){	Err	bitreich.org	70
i tstack_t st;	Err	bitreich.org	70
i char emitsep;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-/* xml callbacks */	Err	bitreich.org	70
i+/* XML callbacks */	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i xmlattr(XMLParser *x, const char *t, size_t tl, const char *a, size_t al,	Err	bitreich.org	70
i         const char *v, size_t vl)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        printf("%s", v);	Err	bitreich.org	70
i+        fputs(v, stdout);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i@@ -133,56 +142,33 @@ xmlattrentity(XMLParser *x, const char *t, size_t tl, const char *a, size_t al,	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-xmlattrend(XMLParser *x, const char *t, size_t tl, const char *a, size_t al)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i xmlattrstart(XMLParser *x, const char *t, size_t tl, const char *a, size_t al)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        printf("%c%s%c", SEP, a, SATTR);	Err	bitreich.org	70
i+        putchar(SEP);	Err	bitreich.org	70
i+        fputs(a, stdout);	Err	bitreich.org	70
i+        putchar(SATTR);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i xmlcdatastart(XMLParser *x)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        printf("%c", SEP);	Err	bitreich.org	70
i+        putchar(SEP);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i xmlcdata(XMLParser *x, const char *d, size_t dl)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        quote_print(stdout, d);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-xmlcdataend(XMLParser *x)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-xmlcommentstart(XMLParser *x)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-xmlcomment(XMLParser *x, const char *c, size_t cl)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-xmlcommentend(XMLParser *x)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i+        quote_print(d);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i xmldata(XMLParser *x, const char *d, size_t dl)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         if (strcspn(d, " \t\n") && emitsep){	Err	bitreich.org	70
i-                printf("%c", SEP);	Err	bitreich.org	70
i+                putchar(SEP);	Err	bitreich.org	70
i                 emitsep = FALSE;	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i-        quote_print(stdout, d);	Err	bitreich.org	70
i+        quote_print(d);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i@@ -220,12 +206,6 @@ xmltagend(XMLParser *x, const char *t, size_t tl, int isshort)	Err	bitreich.org	70
i         if (strcmp(t, tag)){	Err	bitreich.org	70
i                 fprintf(stderr, "Error: tag-end '%s' closes tag '%s'\n", t, tag);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-/*        if (isshort) {	Err	bitreich.org	70
i-                printf("\n");	Err	bitreich.org	70
i-                print_cur_str(stdout, &st);	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-*/	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i@@ -235,13 +215,8 @@ xmltagstart(XMLParser *x, const char *t, size_t tl)	Err	bitreich.org	70
i                 fprintf(stderr, "Error: stack full. Ignoring tag '%s' (parent tag: '%s')\n", t, stack_peek(&st));	Err	bitreich.org	70
i                 return;	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i-        printf("\n");	Err	bitreich.org	70
i-        print_cur_str(stdout, &st);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-xmltagstartparsed(XMLParser *x, const char *t, size_t tl, int isshort)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i+        putchar('\n');	Err	bitreich.org	70
i+        print_cur_str(&st);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i int	Err	bitreich.org	70
i@@ -252,30 +227,22 @@ main(void)	Err	bitreich.org	70
i         XMLParser x = { 0 };	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         x.xmlattr = xmlattr;	Err	bitreich.org	70
i-        x.xmlattrend = xmlattrend;	Err	bitreich.org	70
i         x.xmlattrstart = xmlattrstart;	Err	bitreich.org	70
i         x.xmlattrentity = xmlattrentity;	Err	bitreich.org	70
i         x.xmlcdatastart = xmlcdatastart;	Err	bitreich.org	70
i         x.xmlcdata = xmlcdata;	Err	bitreich.org	70
i-        x.xmlcdataend = xmlcdataend;	Err	bitreich.org	70
i-        x.xmlcommentstart = xmlcommentstart;	Err	bitreich.org	70
i-        x.xmlcomment = xmlcomment;	Err	bitreich.org	70
i-        x.xmlcommentend = xmlcommentend;	Err	bitreich.org	70
i         x.xmldata = xmldata;	Err	bitreich.org	70
i         x.xmldataend = xmldataend;	Err	bitreich.org	70
i         x.xmldataentity = xmldataentity;	Err	bitreich.org	70
i         x.xmldatastart = xmldatastart;	Err	bitreich.org	70
i         x.xmltagend = xmltagend;	Err	bitreich.org	70
i         x.xmltagstart = xmltagstart;	Err	bitreich.org	70
i-        x.xmltagstartparsed = xmltagstartparsed;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        x.getnext = getchar;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         xml_parse(&x);	Err	bitreich.org	70
i-        printf("\n");	Err	bitreich.org	70
i+        putchar('\n');	Err	bitreich.org	70
i         if (! stack_empty(&st)) {	Err	bitreich.org	70
i                 fprintf(stderr, "Error: tags still open at EOF: ");	Err	bitreich.org	70
i-                print_cur_str(stderr, &st);	Err	bitreich.org	70
i+                print_cur_str_fp(stderr, &st);	Err	bitreich.org	70
i                 fprintf(stderr, "\n");	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i         return 0;	Err	bitreich.org	70
.