Posted to tcl by dbohdan at Tue Apr 14 15:48:28 GMT 2015view raw

  1. # Pipe commands.
  2. proc ::fptools::pipe args {
  3. puts $args
  4. if {[llength $args] == 0} {
  5. error {wrong # args: should be "pipe script ?script ...?"}
  6. }
  7.  
  8. set varName _
  9.  
  10. upvar 1 $varName stepResult
  11. upvar 1 pipe pipe
  12.  
  13. array unset pipe
  14. set i 0
  15. foreach command $args {
  16. set stepResult [uplevel 1 [list eval $command]]
  17. set pipe($i) $stepResult
  18. incr i
  19. }
  20.  
  21. set result $stepResult
  22. return $result
  23. }
  24.