add write benchmark

Author: joshday

README.md

@@ -155,6 +155,13 @@ Platform Info:
    XMLDict.xml_dict  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 1350.63
 ```
 
+### Writing an XML File
+
+```
+         Write: XML  ■■■■■■■■■■■■■■■■■■■■■■ 244.261
+       Write: EzXML  ■■■■■■■■■■ 106.953
+```
+
 ### Lazily Iterating over Each Node
 ```
            LazyNode  ■■■■■■■■■■■■■■■■ 55.1

benchmarks/suite.jl

@@ -20,6 +20,26 @@ file = joinpath(@__DIR__, "nasa.xml")
 
 df = DataFrame(kind=String[], name=String[], bench=BenchmarkTools.Trial[])
 
+
+#-----------------------------------------------------------------------------# Write
+kind = "Write"
+output = tempname()
+
+name = "XML.write 2"
+@info name
+node1 = read(file, Node)
+bench = @benchmark XML.write($output, $node1)
+push!(df, (;kind, name, bench))
+
+
+name = "EzXML.writexml"
+@info name
+node2 = EzXML.readxml(file)
+bench = @benchmark EzXML.write($output, $node2)
+push!(df, (;kind, name, bench))
+
+
+
 #-----------------------------------------------------------------------------# Read
 kind = "Read"
 
@@ -99,6 +119,8 @@ push!(df, (;kind, name, bench))
 
 
 
+
+
 #-----------------------------------------------------------------------------# Plots
 function plot(df, kind)
     g = groupby(df, :kind)
@@ -109,5 +131,6 @@ function plot(df, kind)
 end
 
 plot(df, "Read")
+plot(df, "Write")
 plot(df, "Lazy Iteration")
 plot(df, "Collect Tags")

src/XML.jl

@@ -229,7 +229,7 @@ function _show_node(io::IO, o)
         printstyled(io, ' ', repr(value(o)))
     elseif o.nodetype === Element
         printstyled(io, " <", tag(o), color=:light_cyan)
-        _print_attrs(io, o)
+        _print_attrs(io, o; color=:light_yellow)
         printstyled(io, '>', color=:light_cyan)
         _print_n_children(io, o)
     elseif o.nodetype === DTD
@@ -238,11 +238,11 @@ function _show_node(io::IO, o)
         printstyled(io, '>', color=:light_cyan)
     elseif o.nodetype === Declaration
         printstyled(io, " <?xml", color=:light_cyan)
-        _print_attrs(io, o)
+        _print_attrs(io, o; color=:light_yellow)
         printstyled(io, "?>", color=:light_cyan)
     elseif o.nodetype === ProcessingInstruction
         printstyled(io, " <?", tag(o), color=:light_cyan)
-        _print_attrs(io, o)
+        _print_attrs(io, o; color=:light_yellow)
         printstyled(io, "?>", color=:light_cyan)
     elseif o.nodetype === Comment
         printstyled(io, " <!--", color=:light_cyan)
@@ -262,9 +262,12 @@ function _show_node(io::IO, o)
     end
 end
 
-function _print_attrs(io::IO, o)
-    x = attributes(o)
-    !isnothing(x) && printstyled(io, [" $k=\"$v\"" for (k,v) in x]...; color=:light_yellow)
+function _print_attrs(io::IO, o; color=:normal)
+    attr = attributes(o)
+    isnothing(attr) && return nothing
+    for (k,v) in attr
+        printstyled(io, ' ', k, '=', '"', v, '"'; color)
+    end
 end
 function _print_n_children(io::IO, o::Node)
     n = length(children(o))