| <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> |
| <html> |
| <head> |
| <title>Tcl Example #2</title> |
| <link rel="stylesheet" href="style.css"> |
| </head> |
| |
| <body> |
| <? prevnext "<h1>Tcl Example #2</h1>" ?> |
| |
| Something you can't do in Perl, Python or PHP is create new |
| command structures: |
| |
| <pre> |
| <span class="keyword">proc</span> <span class="function-name">do</span> {body <span class="keyword">while</span> expression} { |
| <span class="keyword">uplevel</span> $body |
| <span class="keyword">while</span> { [uplevel expr $expression] } { |
| <span class="keyword">uplevel</span> $body |
| } |
| } |
| |
| set i 0 |
| do { |
| puts $i |
| incr i |
| } <span class="keyword">while</span> {$i < 0}</pre> |
| |
| |
| <?footer?> |
| </body> |
| </html> |