MonetDB: default - add cleanup code

[Niels Nes]

Changeset: ad429332db50 for MonetDB
URL: https://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=ad429332db50
Modified Files:
        monetdb5/modules/atoms/xml.c
        monetdb5/modules/atoms/xml.h
        monetdb5/modules/atoms/xml.mal
Branch: default
Log Message:

add cleanup code


diffs (41 lines):

diff --git a/monetdb5/modules/atoms/xml.c b/monetdb5/modules/atoms/xml.c
--- a/monetdb5/modules/atoms/xml.c
+++ b/monetdb5/modules/atoms/xml.c
@@ -633,6 +633,14 @@ XMLprelude(void *ret)
        return MAL_SUCCEED;
 }
 
+str
+XMLepilogue(void *ret)
+{
+       (void)ret;
+       xmlCleanupParser();
+       return MAL_SUCCEED;
+}
+
 ssize_t
 XMLfromString(const char *src, size_t *len, xml *x, bool external)
 {
diff --git a/monetdb5/modules/atoms/xml.h b/monetdb5/modules/atoms/xml.h
--- a/monetdb5/modules/atoms/xml.h
+++ b/monetdb5/modules/atoms/xml.h
@@ -48,5 +48,6 @@ mal_export size_t XMLquotestring(const c
 mal_export size_t XMLunquotestring(const char **p, char q, char *buf);
 
 mal_export str XMLprelude(void *ret);
+mal_export str XMLepilogue(void *ret);
 
 #endif /* XML_H */
diff --git a/monetdb5/modules/atoms/xml.mal b/monetdb5/modules/atoms/xml.mal
--- a/monetdb5/modules/atoms/xml.mal
+++ b/monetdb5/modules/atoms/xml.mal
@@ -77,6 +77,9 @@ comment "Validate the string as a docume
 command prelude() :void
 address XMLprelude;
 
+command epilogue() :void
+address XMLepilogue;
+
 xml.prelude();
 
 module calc;
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list