Generating XML with Newspeak

While experimenting with Newspeak I wrote a small utility class for generating basic XML documents.

An example of its use looks like this:

w:: getTestingWriter: output .
w element: 'foo' 
   attributes: { {'id'. 'goo'.} }
   with: [
    w element: 'foo1'.
    w element: 'foo2'.
    w element: 'foo3'
        with: [
        w element: 'foo4'
            with: [
              w text: 'Hello'.
           ].
        w cdata: ''.
        ].
   ].

This generates:

<foo id="goo"><foo1 /><foo2 /><foo3><foo4>Hello</foo4><![CDATA[<loo>]]></foo3></foo>

The code for generating XML this way is based on a previous experiment of using Python's 'with' statement to wrap the .NET's System.Xml.XmlWriter class to generate XML.

Code for this post can be found here.