Posted to tcl by colin at Thu May 31 07:32:59 GMT 2012view raw

  1. type messagefile;
  2.  
  3. app (messagefile t) greeting() {
  4. echo "Hello, world!" stdout=@filename(t);
  5. }
  6.  
  7. messagefile outfile <"hello.txt">;
  8.  
  9. outfile = greeting();