lib/commandUtil.wish

   1 #
   2 #
   3 #
   4 proc eosCommandExecute { mode fpt cmd } {
   5         switch $mode {
   6                 foreground  {
   7                         eval exec $cmd
   8                 }
   9                 background {
  10                         eval exec "$cmd  &"
  11                 }
  12                 information {
  13                         puts $fpt "$cmd"
  14                 }
  15         }
  16 }