Re: [Activetcl] tclchecker and package checking
by Thomas other posts by this author
Oct 16 2007 8:07AM messages near this date
view in the new Beta List Site
Re: [Activetcl] tclchecker and package checking
|
[Activetcl] looking for example of using tdom/tnc to validate data against a dtd
Hello Larry,
for me this is not a problem of arguments for TclChecker and with
any packages. This warning can easy reproduced by the following
script:
proc Vergleich {r1 r2} {
set r1 [split $r1 ","]
set r2 [split $r2 ","]
set r1a [lindex $r1 1]
set r2a [lindex $r2 1]
set r1 [lindex $r1 0]
set r2 [lindex $r2 0]
if {$r1 < $r2} {
return -1
} elseif {$r1 > $r2} {
return 1
} elseif {$r1a < $r2a} {
return -1
} elseif {$r1a > $r2a} {
return 1
} else {
return 0
}
}
set Raenge [array names ...]
set Raenge [lsort -decreasing -integer -command Vergleich $Raenge]
For the last line the same message appears:
test.tcl:25 (warnUndefProc) undefined procedure: Vergleich
But this proc is defined above! So this sould be a mistake in the
TclChecker-Engine itself. Maybe this appears only, if the call of
the proc is inside of an other proc and so namespace and scope plays
a role.
The ... stands for an array with names of format
"number.number,number.number" and with any array values, like
"set ...(2.3,4.5) 16".
I use this (and ignore this warning) since long time, because simple
sorting can't go because of wrong number format for Tcl and literal
sorting is't what I want.
Greetings Thomas Wunderlich
> -----Original Message-----
> From: activetcl-bounces@[...].com
> [mailto:activetcl-bounces@[...].com] On Behalf
> Of Virden, Larry W.
> Sent: Tuesday, October 16, 2007 4:26 PM
> To: activetcl@[...].com
> Subject: [Activetcl] tclchecker and package checking
>
>
> I have some tcl code which uses Img, Iwidgets, and Tk.
>
> I'm using TclDevKit 4.0, along with teacup installed packages.
>
> What arguments do I need to give tclchecker so that it knows
> about the commands in these packages? I'm getting output such as
> Administrator.tcl:11 (warnUndefProc) undefined procedure:
> iwidgets::tabnotebook
> iwidgets::tabnotebook $adm.ts -tabpos n -width $totlngth -height 40
> ^
> --
> Tcl - The glue of a new generation. <URL: http://wiki.tcl.tk/ >
> Larry W. Virden <mailto:lvirden@[...].org><URL:
> http://www.purl.org/NET/lvirden/ >
> Even if explicitly stated to the contrary, nothing in this
> posting should
> be construed as representing my employer's opinions.
> -><-
> _______________________________________________
> ActiveTcl mailing list
> ActiveTcl@[...].com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActiveTcl mailing list
ActiveTcl@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Thread:
Larry W. Virden
Andreas Kupries
Thomas
|