REQUIRES: libs/xml ;
USING: io sequences xml xml-utils ;
IN: xml>csv

: print-csv ( table -- ) [ "," join print ] each ;

: (msxml>csv) ( xml -- table )
    "Worksheet" tag-named
    "Table" tag-named
    "Row" tags-named [
        "Cell" tags-named [
            "Data" tag-named children>string
        ] map
    ] map ;

: msxml>csv ( infile outfile -- )
    <file-writer> [
        file>xml (msxml>csv) print-csv
    ] with-stream ;

PROVIDE: demos/msxml-to-csv ;