1082 |
regsub "^.*\\*\\*\\* EXIT code " $output "" result; |
regsub "^.*\\*\\*\\* EXIT code " $output "" result; |
1083 |
regsub "\[\r\n\].*$" $result "" result; |
regsub "\[\r\n\].*$" $result "" result; |
1084 |
regsub -all "(^|\[\r\n\]|\r\n)\\*\\*\\* EXIT code \[^\r\n\]*(\[\r\n\]\[\r\n\]?|$)" $output "" output; |
regsub -all "(^|\[\r\n\]|\r\n)\\*\\*\\* EXIT code \[^\r\n\]*(\[\r\n\]\[\r\n\]?|$)" $output "" output; |
1085 |
|
### regsub -all "(^|\r?\n)\\*\\*\\* EXIT code \[^\r\n\]*(\r?\n|$)" $output "" output; |
1086 |
regsub "^\[^0-9\]*" $result "" result |
regsub "^\[^0-9\]*" $result "" result |
1087 |
regsub "\[^0-9\]*$" $result "" result |
regsub "\[^0-9\]*$" $result "" result |
1088 |
verbose "got board status $result" 3 |
verbose "got board status $result" 3 |