Browse Source

fix -nonewline screen output for runx

master
Julian Noble 2 years ago
parent
commit
c41ef2484b
  1. 14
      src/modules/shellrun-0.1.tm

14
src/modules/shellrun-0.1.tm

@ -338,14 +338,24 @@ namespace eval shellrun {
set chunk ""
if {[string length $::shellrun::runout]} {
append chunk "$::shellrun::runout\n"
if {$nonewline} {
set o [string trimright $::shellrun::runout \r\n]
} else {
set o $::shellrun::runout
}
append chunk $o\n
}
lappend chunklist [list stdout $chunk]
set chunk "[a+ red bold]stderr[a+]\n"
if {[string length $::shellrun::runerr]} {
append chunk "$::shellrun::runerr\n"
if {$nonewline} {
set e [string trimright $::shellrun::runerr \r\n]
} else {
set e $::shellrun::runerr
}
append chunk $e\n
}
lappend chunklist [list stderr $chunk]

Loading…
Cancel
Save