https://superuser.com/questions/1247541/make-bash-completion-to-ignore-exe-extention-in-cygwin
https://superuser.com/questions/1072481/tab-completion-for-command-arguments-fail-in-cygwin-due-to-exe-suffix
https://github.com/scop/bash-completion/issues/164
# -*- mode: tcl -*-
if {$tcl_interactive} {
catch {
package require tclreadline
namespace eval tclreadline {
if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) {
proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " }
proc prompt2 {} { return "\[0;31m...> \[0m" }
} {
proc prompt1 {} { return "tcl> " }
proc prompt2 {} { return "...> " }
}
}
::tclreadline::Loop
}
}