Sujet : Re: [info stacktrace] → ask for assistance
De : wortkarg3 (at) *nospam* yahoo.com (Harald Oehlmann)
Groupes : comp.lang.tclDate : 26. Nov 2024, 09:09:16
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vi3vnc$3c7g5$1@dont-email.me>
References : 1
User-Agent : Mozilla Thunderbird
Hi,
remark that "info errorstack" and the stack trace are different things.
In the first, variable names are replaced by values.
In the second, there are the variable names "$var".
They don't match directly.
THanks,
Harald
Am 25.11.2024 um 22:13 schrieb aotto1968:
Hi,
my goal is to transfer the "errorInfo" into a "stacktrace" used by my SW.
-> I require: command, fileName and lineNumber
-> the [info errorstack] return "something" which is missing some essential parts.
[info errorstack]:
> INNER {invokeStk1 ::tcllcconfig::LcSettingC::MK_NULL LookupBool in} CALL {::oo::Obj40::my LcSettingLookupBool}
as I understand:
$setting LookupBool $name == ::tcllcconfig::LcSettingC::MK_NULL LookupBool in
-> problem: post versa pre parse expression
-> problem: the fileName(class etc) is *not* available
==== lcconfig-2-0-5-(0-0-0+binary+pipe+tcl.pipe.pipe) use invalid cfs FAILED
---- Result was:
C> (client-0-0-0) [ServiceCallError] <Tok| 2E3A471B{LcSettingRpc::LookupBool}> <Num|1>
S> (server-0-0-0) [tcl_mqmsgque_ServiceCall] 'LcSettingC' hdl is NULL
while executing
"$setting LookupBool $name"
(class "::LibLcConfigRpcServer" method "LcSettingLookupBool" line 4)
invoked from within
"::oo::Obj40::my LcSettingLookupBool"
C> (client-0-0-0) | 871 | send_mq.c | MqSendEND_AND_WAIT_RT
C> (client-0-0-0) | 508 | high_lng.h | $ctx Send 'W' ... '2E3A471B{LcSettingRpc::LookupBool}:HC@O' ...
C> (client-0-0-0) | 522 | high_lng.h | $ctx Send...
C> (client-0-0-0) | 75 | ~KernelRpcClient.tcl | my Send $typ $fmt {*}$args
C> (client-0-0-0) | 588 | ~ConfigRpcClient.tcl | $rpc send "W" "2E3A471B{LcSettingRpc::LookupBool}:HC@O" $hdl $name
C> (client-0-0-0) | 3 | lcconfig.test | $null LookupBool in
C> (client-0-0-0) | 2405 | tcltest-2.5.3.tm | uplevel 1 $script
C> (client-0-0-0) | 1 | lcconfig.test | ::tcltest::RunTest lcconfig-2-0-5-(0-0-0+binary+pipe+tcl.pipe.pipe) { ...
C> (client-0-0-0) | 1651 | tcltest-2.5.3.tm | uplevel 1 $script
C> (client-0-0-0) | 1 | lcconfig.test | ::tcltest::Eval {::tcltest::RunTest lcconfig-2-0-5-(0-0-0+binary+pipe+tcl.pipe.pipe) { ...
C> (client-0-0-0) | 2021 | tcltest-2.5.3.tm | uplevel 1 [list [namespace origin Eval] $command 1]
C> (client-0-0-0) | 87 | lcconfig.test | test lcconfig-2-0-5-($F+$B+$C+$S) { use invalid cfs } -constraints {$B eq "binary"} -setup { ...
C> (client-0-0-0) | 6 | lcconfig.test | foreach F [handles] { ...
C> (client-0-0-0) | 649 | library.tcl | uplevel $code
C> (client-0-0-0) | 195 | lcconfig.test | Block 2 { ...
C> (client-0-0-0) | 104 | lcconfig.test | foreach S [filter SRV_LST $C ] { ...
C> (client-0-0-0) | 101 | lcconfig.test | foreach C [getEnv COM_LST] { ...
C> (client-0-0-0) | 98 | lcconfig.test | foreach B [getEnv BIN_LST] { ...