uwish.exe hang while exiting on multiprocessor Windows 2003

JohnMLinebarger — Tue, 26 Aug 2008 01:51:23 +0100

We have run into a persistent situation where uwish.exe hangs while exiting, on a multiprocessor system running Windows Server 2003 R2 with Service Pack 2 installed. We are using ActiveTcl 8.4.13 (the threaded version) for compatibility reasons with our modeling and simulation code. The only way to keep our entire simulation job from hanging is to use Task Manager to manually kill the uwish process.

Two questions. Is there any way to prevent this situation using 8.4.13? If not, is there a later version of ActiveTcl that does fix the situation? And why does the situation only seem to occur under Windows Server 2003, not Windows XP?

Thanks! Enjoy!

John M. Linebarger

Using Expect with Borland C++ builder 6.0

Johnny — Thu, 21 Aug 2008 19:31:31 +0100

Howdy,

I've been able to successfully run TCL from a Borland C++ Builder EXE, but I cannot get the Expect package to load successfully. I'm using TCL 8.5 and I used the "implib" utility to make a Borland usable LIB file from the tcl85.dll.

I have the auto_path variable setup and I've followed a lot of examples that embed TCL into C/C++ EXEs.

I'm trying to load the Expect Package/DLL through "package require Expect" command in my TCL script file.

The exact error from the Borland EXE is:

TclTest.exe raised exception class EAccessViolation with message "Access violoation at Address 1005 94D4 in module TCL65.DLL. Read of address 0000 0008

This error occurs directly after the "package require Expect" command is being interrupted.

Am I having problem because MS and Borland DLLs don't play well together. Should I forgo the Borland friendly LIB file and be a man by loading the DLLs dynamically. Or give up and make do trying to shell out to the command line and use file I/O for passing data from my Borland EXE to "TCL land"

Any help, criticism, or just plain nasty comments will be appreciated.

Johnny

Expect debugging on Windows in the wish shell.

mocallins — Fri, 15 Aug 2008 22:43:14 +0100

I've been trying to get the expect debugging commands to work in the wish shell on Windows and it just doesn't seem to function.

Windows XP Pro
Tcl/TK 8.4.16
Expect 5.43

I've used all the logging commands that I could find or knew of:

exp_internal 1
log_user 1
exp_log_user 1
set exp::winnt_debug 1

and nothing seems to help.
Again this is in the wish shell.

Just as a goof I went and ran my same sequence of commands in the tclsh shell on Windows,
and all of the expect output logging performs just as expected.

So I don't know if that's a huge bug or maybe I'm just missing some other commands somewhere, or the expect debugging output just doesn't work in the wish console.

Is there a version of TCL for HP-UX 11.2 on and IA64 processor

mike.vail@quantum.com — Fri, 15 Aug 2008 16:05:55 +0100

I connot find a download for Active TCL for HP-UX 11.2 on a IA64 processor. Is there one available?

Problem: generating an executable from TclDevKit - LINUX (Ubuntu 8.04)

douglase — Wed, 13 Aug 2008 20:01:49 +0100

Greetings.

I use Ubuntu 8.04 and have installed ActiveTcl 8.4.19.0 and Tcl Dev Kit 4.1.0 (trial license), I need to generate a executable of my script tcl.

I use tclsh and it works well, but, generating an executable from TclDevKit with the following command:

./tclapp -prefix /opt/ActiveTcl-8.4/bin/base-tcl-linux-ix86 -out /home/douglas/Software/Projects/TCL_TK/Ejecutables/moretest_zoomx5_netop /home/douglas/Software/Projects/TCL_TK/moretest_zoomx5_netop.tcl -pkg Expect -pkg http -pkg base64

At the moment I have the following files in C:\Tcl\bin:

base-tcl-linux-ix86
base-tcl-linux-ix86.so

moretest_zoomx5_netop.tcl is a script that use expect, base64 y http and below it is part of the code:

#!/bin/sh

# \

exec tclsh "$0" ${1+"$@"}

# Script Active Tcl para configurar el modem del cliente

# Usa:

# tclsh como interprete

# tclapp herramienta para generar el ejecutable

#SCRIPT DE CONFIGURACIÓN DE MODEM MODELO ZOOM_5551

#VERSION: 1.1

package require Expect

package require base64 ;# tcllib

package require http

# Turn off echo logging to the user by default

exp_log_user 0

# We want to operate very simply - force a dumb terminal mode

set env(TERM) dumb

#set timeout 120

#SCRIPT DE CONFIGURACION DE MODEM HAYES ADSL DUO VIA HTTP

#DIRECCION IP DE ACCESO A MODEM

global puerto_acceso

#PASSWORD DE ACCESO A MODEM

global passwd_acceso

global headers

...
...
..
..
.

From gnome-terminal I get the following error message:

info Expanding...
info Following only profile dependencies
info P package http 2.5.5 tcl ...
info
info Issues...
error package 'Expect -is profile' is not known (Specified, Not recoverable)
error package 'base64 -is profile' is not known (Specified, Not recoverable)
error
error Aborting
error

Please help my to find a solution, my SO is Ubuntu 8.04
My email is: bermudezdouglas@gmail.com

When is TclChecker called from other TDK apps?

mverify — Sat, 26 Jul 2008 18:16:31 +0100

Is tclchecker automatically called from other TDK apps?

I see that it is active when tclxref runs. What is this doing? If a tclchecker error or warning was found, what happens to it?

tclapp does some error checking but is that disjoint from the errors that tclchecker will find? I.e., will tclchecker find errors that tclapp will not?

Thx
Bob

Default fixed font size

jackhab — Fri, 25 Jul 2008 18:41:43 +0100

I'm new to Tcl/Tk and I've just downloaded ActiveTcl 8.5 for Windows. The problem I came across immediately is the size of fixed font in text widget.

The problem persists even ActiveTcl installer and widget demos. The font size makes the text almost unreadable.

Is there global configuration file for Tk applications where I can change default fixed font style?

Spawning Multiple Telnet Sessions with Expect

dandan — Sun, 20 Jul 2008 11:19:09 +0100

Hello,
I need to spawn multiple telnet sessions in parallel to speed up a process. I have the following code which works fine in a serial manner i.e. doing one at a time.

########### IP Scan Code Fragment ###################
set list ""
lappend list 172.27.132.5 172.27.132.6 ... ... etc etc
global netip
global netip1
foreach {netip} [lindex $list] {
set netip1 $netip
.top3.tex22 insert end "Opening Connection to $netip1.............\n"
.top3.tex22 see end; update
set ttwait0 [open [pwd]/settings/ttwait.txt r]; gets $ttwait0 ttwait; close $ttwait0
catch {exec ping -n 2 -w $ttwait $netip} 1a; update idletasks
set ttl [regexp "TTL expired in transit" $1a]
set k3 [regexp "Reply from" $1a]
if {$k3 == 0 || $ttl == 1} {
.top3.tex22 insert end "$netip1: No Response\n\n"; .top3.tex22 see end; update}
if {$k3 == 1 && $ttl == 0} {
spawn [pwd]/telnet.exe $netip1
set netip $spawn_id

expect {
-i $netip eof {
.top3.tex22 insert end "$netip1: Reply from unknown device: cannot Open Telnet port 23\n\n"
.top3.tex22 see end
catch {exp_close -i $netip} a
catch {exp_wait -i $netip} b
update
}

-i $netip -re "invalid password" {
.top3.tex22 insert end "$netip1: Reply from unknown device: invalid userid/password\n\n"
.top3.tex22 see end
catch {exp_close -i $netip} a
catch {exp_wait -i $netip} b
update
}

-i $netip -re "incorrect" {
.top3.tex22 insert end "$netip1: Reply from unknown device: invalid userid/password\n\n"
.top3.tex22 see end
catch {exp_close -i $netip} a
catch {exp_wait -i $netip} b
update
}

-i $netip timeout {
.top3.tex22 insert end "$netip1: Connection timed-out\n\n"
.top3.tex22 see end
catch {exp_close -i $netip} a
catch {exp_wait -i $netip} b
update
}

-i $netip "Username:" {
set send_slow {10 .001}
set user99 [.top3.entmuser get]
set pass99 [.top3.entmpass get]
send -s -i $netip "$user99\r"
expect -i $netip "Password: "
send -s -i $netip "$pass99\r"
sleep 3
expect {
......
......
}
.top3.tex22 insert end "$netip1: Reply from M-Series\n\n" pop
.top3.tex22 see end
.top3.tex22 tag configure pop -background green
}

-i $netip "Login:" {
set send_slow {10 .001}
set user99 [.top3.entmuser get]
set pass99 [.top3.entmpass get]
send -i $netip -s "$user99\r"
expect -i $netip "Password: "
send -i $netip -s "$pass99\r"
sleep 3
expect {
......
......
}
.top3.tex22 insert end "$netip1: Reply from B-Series\n\n" pop
.top3.tex22 see end
.top3.tex22 tag configure pop -background green
}
}}}
########## End Code Fragment ########################

I believe I need to use expect_background. But a tip on how to use this within my code above would be a great help. I've tried implementing it but it only seems to do anything on the last IP address.

Tcl Regexp Help

dandan — Mon, 07 Jul 2008 22:14:03 +0100

Hello,
Need some help with a regular expression if possible. I have some captured text as follows:

##############################
Power Supply #1 is OK
V10701,TQ2Z7015634 ,60-0300031-02, B, QCS ,DCJ3001-02P , A,TQ2Z70156
Power Supply #2 is OK
V10701,TQ2Z7015678 ,60-0300031-02, B, QCS ,DCJ3001-02P , A,TQ2Z70156
Fan 1 is Ok, speed is 6308 RPM
Fan 2 is Ok, speed is 6308 RPM
Fan 3 is faulty, speed is 6308 RPM
Fan 4 is Ok, speed is 6308 RPM
###############################

I'm trying to pick out the following from the text above:
1. Number of Power Supply's OK and faulty
2. Number of FAN's OK and faulty

My regular expression's I have so far are as follows:

#### Power #######
set pw0 [regexp -expanded -nocase -all {power.supply(.+?)OK} $fidd p0]
set pw1 [regexp -expanded -nocase -all {power.supply(.+?)faulty} $fidd p1]

#### Fans #######
set fan0 [regexp -expanded -nocase -all {fan(.+?)OK.+?} $fidd fa0]
set fan1 [regexp -expanded -nocase -all {fan(.+?)faulty.+?} $fidd fa1]

I cant seem to get the right number from the Fans variables.

Could someone check over my regular expressions to see where I'm going wrong.

Many Thanks!

Tk Listbox Up/Down Arrow Key Binding

dandan — Sat, 05 Jul 2008 20:42:14 +0100

Hello,
Just wondering if someone can give me a small hint on how to bind the up/down arrow keys successfully to a Tk Listbox.

So far I have:

### Down Arrow Binding
bind .top.lis33 {
set i [.top.lis33 activate [expr [.top.lis33 curselection]+1]]
.top.lis33 itemconfigure active -selectbackground blue -selectforeground white
}

### Up Arrow Binding
bind .top.lis33 {
set i [.top.lis33 activate [expr [.top.lis33 curselection]-1]]
.top.lis33 itemconfigure active -selectbackground blue -selectforeground white
}

Am I anywhere close to such a solution for these bindings?

Help much appreciated.