Posted to tcl by bairui at Sun Feb 14 06:35:40 GMT 2016view raw
- #! /usr/bin/env tclsh
- # Code from apn
- package require promise
- set promises [lmap path $argv {promise::pexec du -sk $path}]
- set all_done [promise::all $promises]
- $all_done then [promise::lambda {outputs} {
- foreach output $outputs {puts $output}
- } ]
Comments
Posted by apn at Sun Feb 14 11:54:17 GMT 2016 [text] [code]
Try this $all_done then [promise::lambda {outputs} { foreach output $outputs {puts $output} }] [promise::lambda {error_message error_dictionary} { puts $error_message }] and see if it tells you anything. Also NOTE you must have the event loop running (e.g. wish or if in tclsh, a vwait or similar)