Lines Matching refs:cmd
428 # cmd - the command to evaluate
433 ;proc EvalCmd {w cmd} {
439 if {[string compare {} $cmd]} {
444 if {[string match !! $cmd]} {
445 set code [catch {EvalSlave history event $ev} cmd]
446 if {!$code} {$w insert output $cmd\n stdin}
447 } elseif {[regexp {^!(.+)$} $cmd dummy evnt]} {
449 set code [catch {EvalSlave history event $ev} cmd]
450 if {!$code && ![string match ${evnt}* $cmd]} {
451 set code [catch {EvalSlave history event $evnt} cmd]
453 if {!$code} {$w insert output $cmd\n stdin}
454 } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} {
455 set code [catch {EvalSlave history event $ev} cmd]
457 regsub -all -- $old $cmd $new cmd
458 $w insert output $cmd\n stdin
463 $w insert output $cmd\n stderr
470 EvalSlave history add $cmd
471 if {[catch {EvalAttached $cmd} res]} {
514 # ARGS: cmd - (possible) multiple command to separate
520 ;proc CmdSep {cmd list last} {
524 foreach c [split [string trimleft $cmd] \n] {
537 if {!$i && [string compare $cmds {}] && ![string match *\n $cmd]} {