Posted to tcl by tspier2 at Mon Jul 30 22:55:06 GMT 2007view raw

  1. set x [.basicNounEntryData get]
  2. set y [.singularNounEntryData]
  3. set z [.pluralNounEntryData]
  4.  
  5. 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>}
  6.  
  7. set filename "test.txt"
  8. set fileId [open $filename "w"]
  9. puts -nonewline $fileId $data
  10. close $fileId