-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
I wrote a simple custom terminal program demonstrating how to work
with stdin/stdout/stdio, available on the Tcler's Wiki:
http://wiki.tcl.tk/3543 . Right now I'm finding it to be useful on a
system at work that halfheartedly hides cmd.exe in the name of security.
Even though it works with lots of standard programs like dir and type,
it completely fails to capture the stdout/stderr of Fossil. Whenever
I try to run Fossil, a window flashes onscreen for just a moment.
Is there any way to instead capture Fossil's stdout?
Here's the script from the Wiki, modified to use cmd.exe instead of
csh as the shell:
package require Tcl 8.6
package require Tk
set shell [list cmd.exe]
proc log {text {tags {}}} {
.output configure -state normal
.output insert end $text $tags
.output configure -state disabled
.output see end
}
ttk::entry .input
ttk::scrollbar .scroll -orient vertical -command {.output yview}
text .output -state disabled -yscrollcommand {.scroll set}
.output tag configure input -background gray
.output tag configure error -background red
pack .input -fill x -side bottom
pack .scroll -fill y -side right
pack .output -fill both -expand 1
focus .input
lassign [chan pipe] rderr wrerr
set stdio [open |[concat $shell [list 2>@ $wrerr]] a+]
foreach {chan tags} [list $stdio "" $rderr error] {
chan configure $chan -buffering line -blocking 0
chan event $chan readable [list apply {{chan tags} {
log [chan read $chan] $tags
if {[chan eof $chan]} {
log EOF error
.input state disabled
chan close $chan
}
}} $chan $tags]
}
bind .input <Return> [list apply {{chan} {
log [.input get]\n input
chan puts $chan [.input get]
.input delete 0 end
}} $stdio]
- --
Andy Goth | <andrew.m.goth/at/gmail/dot/com>
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.22 (MingW32)
Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/
iQEcBAEBAgAGBQJTveDAAAoJELtYwrrr47Y42uMIAOc6LvK6PzZQyLKWDbRNyesh
pWDHQzcV9Q0a5rpdAr5ij+5tvpaMn4Rn47DTDosIlpAQ9VYT4o34wQ1EPc06CW1r
GXddlsubLjG7ho2bfoDKfM9ofwX6LwGhdBwv6S7wsi7uGooXrqWg+ycsSF3nR3Wb
6TPKNiFU/3yaT2p7yiD0+upDNuVyNYePOzRVpEU+bhCS5rW3tazeAh6eJP+bdNZh
zPivibNJ2t1UO2Ew5mPTGWr8RFSPSaQwTYcYkjjur6D1cqC/f2rH0yKHi0FUVSCe
d+iv3oPtraxG8BztyoszHDfMfa4SU45hhryDayRvfTEcnAnfBRN83eFTBQNwHtU=
=V+tr
-----END PGP SIGNATURE-----
_______________________________________________
fossil-users mailing list
fossil-users@lists.fossil-scm.org
http://lists.fossil-scm.org:8080/cgi-bin/mailman/listinfo/fossil-users
