Posted to tcl by lmcvoy at Fri Oct 19 17:22:18 GMT 2007view raw

  1. test proc-1.1 {Test L function returns.} -body {
  2. #lang L
  3. f1() {
  4. puts("whiz");
  5. }
  6. f2() {
  7. puts("bang");
  8. return "foo";
  9. return "bar";
  10. }
  11. f3() {
  12. return;
  13. }
  14. main(void) {
  15. puts(f1());
  16. puts(f2());
  17. puts(f3());
  18. }
  19. #lang tcl
  20. main
  21. } -output "whiz\n\nbang\nfoo\n\n"
  22.