ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> activetcl
activetcl
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

Privacy Policy | Email Opt-out | Feedback | Syndication
© ActiveState Software Inc. All rights reserved