Fossil SCM
Extended log writing to handle multi-line log messages.
Commit
81a297a66a31822122fe78af60018b39880a4f1d
Parent
49dd66f64fc236d…
1 file changed
+1
-1
+1
-1
| --- tools/cvs2fossil/lib/log.tcl | ||
| +++ tools/cvs2fossil/lib/log.tcl | ||
| @@ -136,11 +136,11 @@ | ||
| 136 | 136 | } |
| 137 | 137 | |
| 138 | 138 | # Write handler. Each message is a line. |
| 139 | 139 | |
| 140 | 140 | proc OUT/write {system text} { |
| 141 | - puts "$system $text" | |
| 141 | + puts "$system [join [split $text \n] "\n$system "]" | |
| 142 | 142 | return |
| 143 | 143 | } |
| 144 | 144 | |
| 145 | 145 | # Progress handler. Uses \r to return to the beginning of the |
| 146 | 146 | # current line without advancing. |
| 147 | 147 |
| --- tools/cvs2fossil/lib/log.tcl | |
| +++ tools/cvs2fossil/lib/log.tcl | |
| @@ -136,11 +136,11 @@ | |
| 136 | } |
| 137 | |
| 138 | # Write handler. Each message is a line. |
| 139 | |
| 140 | proc OUT/write {system text} { |
| 141 | puts "$system $text" |
| 142 | return |
| 143 | } |
| 144 | |
| 145 | # Progress handler. Uses \r to return to the beginning of the |
| 146 | # current line without advancing. |
| 147 |
| --- tools/cvs2fossil/lib/log.tcl | |
| +++ tools/cvs2fossil/lib/log.tcl | |
| @@ -136,11 +136,11 @@ | |
| 136 | } |
| 137 | |
| 138 | # Write handler. Each message is a line. |
| 139 | |
| 140 | proc OUT/write {system text} { |
| 141 | puts "$system [join [split $text \n] "\n$system "]" |
| 142 | return |
| 143 | } |
| 144 | |
| 145 | # Progress handler. Uses \r to return to the beginning of the |
| 146 | # current line without advancing. |
| 147 |