Posted to tcl by tspier2 at Mon Jul 30 22:55:06 GMT 2007view raw
- 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