Add free(::XMLNode) and free(::XMLElement)

Author: tkelman

src/clib.jl

@@ -52,6 +52,7 @@ _xcopystr(p::Xstr) = (r = bytestring(p); _xmlfree(p); r)
 @lx2func xmlNewText
 @lx2func xmlNewCDataBlock
 @lx2func xmlSetProp
+@lx2func xmlFreeNode
 
 # functions for documents
 

src/nodes.jl

@@ -145,6 +145,10 @@ has_children(nd::XMLNode) = (nd._struct.children != nullptr)
 # whether it is a white-space only text node
 is_blanknode(nd::XMLNode) = bool(ccall(xmlIsBlankNode, Cint, (Xptr,), nd.ptr))
 
+function free(nd::XMLNode)
+    ccall(xmlFreeNode, Void, (Ptr{Void},), nd.ptr)
+    nd.ptr = nullptr
+end
 
 # iteration over children
 
@@ -207,6 +211,8 @@ content(x::XMLElement) = content(x.node)
 Base.string(x::XMLElement) = string(x.node)
 Base.show(io::IO, x::XMLElement) = show(io, x.node)
 
+free(x::XMLElement) = free(x.node)
+
 # attribute access
 
 function attribute(x::XMLElement, name::String; required::Bool=false)