From: Alexander R.Povolotsky on
In the blog

http://planet.larrythecow.org/archives/2009-07-26.html

"The Twouble with Tcl" Iain Buchanan
shows that redefining OPEN proc leads to the
errors similar to what I am getting - when I replaced Tcl 8.4.1 with
Tcl
8.5.7.
In my case I don't know the exact root cause though ...
Any ideas how I should proceed with debugging this issue ?

Thanks,
Alex

tclsh c:/Tornado/host/resource/hutils/tcl/makeSymTbl.tcl ppc tmp.o
symTbl.c
invalid command name "::tcl::tm::UnknownHandler"
while executing
"::tcl::tm::UnknownHandler ::tclPkgUnknown msgcat 1.4"
("package unknown" script)
invoked from within
"package require msgcat 1.4"
("uplevel" body line 2)
invoked from within
"uplevel \#0 {
package require msgcat 1.4
if { $::tcl_platform(platform) eq {windows} } {
if { [catch { package require registry 1.1 }] } {
..."
(file "C:/Tornado/host/x86-win32/lib/tcl8.5/clock.tcl" line 23)
invoked from within
"source -encoding utf-8 [file join $TclLibDir clock.tcl]"
(procedure "::tcl::clock::format" line 3)
invoked from within
"clock format [clock seconds]"
invoked from within
"puts $makeSymTbl::fdOut " * ON [clock format [clock
seconds]]""
(file "c:/Tornado/host/resource/hutils/tcl/makeSymTbl.tcl" line
334)
make: *** [vxWorks.st] Error 1


From: Alexander R.Povolotsky on
Thanks Dan = Happy New Year !

So I started tclsh executable
The window came up where I typed the following per your instructions

% info patch
8.5.8
% ::tcl::tm::UnknownHandler ::tclPkgUnknown msgcat 1.4
%

So per above it appears that the failure reported by the program (it
is actuallty WindRiver Tornado stuff) did not show up that way -
right ?

But the funny thing that after I performed shown above what you have
suggested in tclsh - the problem I originally reported
in the program which is executed in the MKS (Korn) shell window
disappered as well !
Is there reasonable explanation for that phenomena ?

Thanks,
Alex
From: Alexander R.Povolotsky on
Sorry for the confusion in my previous post.
I forgot that I commented out the line (as a temp solution) just to
get going
#puts $makeSymTbl::fdOut " * ON [clock format [clock
seconds]]"
so when I uncommented it the problem reappeared again

tclsh c:/Tornado/host/resource/hutils/tcl/makeSymTbl.tcl ppc tmp.o
symTbl.c
invalid command name "::tcl::tm::UnknownHandler"
while executing
"::tcl::tm::UnknownHandler ::tclPkgUnknown msgcat 1.4"
("package unknown" script)
invoked from within
"package require msgcat 1.4"
("uplevel" body line 2)
invoked from within
"uplevel \#0 {
package require msgcat 1.4
if { $::tcl_platform(platform) eq {windows} } {
if { [catch { package require registry 1.1 }] } {
..."
(file "C:/Tornado/host/x86-win32/lib/tcl8.5/clock.tcl" line 23)
invoked from within
"source -encoding utf-8 [file join $TclLibDir clock.tcl]"
(procedure "::tcl::clock::format" line 3)
invoked from within
"clock format [clock seconds]"
invoked from within
"puts $makeSymTbl::fdOut " * ON [clock format [clock
seconds]]""
(file "c:/Tornado/host/resource/hutils/tcl/makeSymTbl.tcl" line
334)
make: *** [vxWorks.st] Error 1

From: Alexander R.Povolotsky on
Still can not make

puts stdout [array get ::auto_index *ownHand*]

to work ...

It is not stdout which is not working since

puts stdout "Hello"

works OK

but rather the auto_index itself

My coworker on his PC also did not have
puts stdout [array get ::auto_index *ownHand*]
working but he got some output when he modified above to
puts stdout [array get ::auto_index *]
but for me (on my PC) this modification didn't produce the output


From: Alexander R.Povolotsky on
while inserted into
makeSymTbl.tcl,
which is executed within my application

puts stdout [array size ::auto_index]

gives 0 in its output

In contrast if I open tclsh window and do this line there - then I get
79

% puts stdout [array size ::auto_index]
79

On Jan 6, 11:03 am, Don Porter <d...(a)nist.gov> wrote:
> Alexander R.Povolotsky wrote:
> > puts stdout [array get ::auto_index *]
> > but for me (on my PC)  this modification didn't produce the output
>
> Change to:
>
> puts stdout [array size ::auto_index]
>
> and report whatever you see.
>
> --
> | Don Porter          Mathematical and Computational Sciences Division |
> | donald.por...(a)nist.gov             Information Technology Laboratory |
> |http://math.nist.gov/~DPorter/                                 NIST |
> |______________________________________________________________________|