Posted to tcl by rmax at Wed Jan 29 17:15:12 GMT 2025view raw

  1. proc do3 {body while condition} {
  2. uplevel 1 [subst -nocommands -nobackslashes {
  3. while {1} {
  4. $body
  5. if {!($condition)} {
  6. break
  7. }
  8. }
  9. }]
  10. }
  11. proc do4 {body while condition} {
  12. uplevel 1 $body
  13. uplevel 1 [list while $condition $body]
  14. }
  15.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week