Posted to tcl by tspier2 at Mon Jul 30 22:55:06 GMT 2007view pretty
set x [.basicNounEntryData get] set y [.singularNounEntryData] set z [.pluralNounEntryData] set data {<pardef n=\"$x__n\">\n <e>\n <p>\n <l>$y</l>\n <r>$y<s n="n"/><s n="mf"/><s n="sg"/></r>\n </p>\n </e>\n <e>\n <p>\n <l>$z</l>\n <r>$y<s n="n"/><s n="mf"/><s n="pl"/></r>\n </p>\n </e>\n </pardef>} set filename "test.txt" set fileId [open $filename "w"] puts -nonewline $fileId $data close $fileId