translate to tcl

[Lowell.Filak]

Karl Lehenbauer writes: 

> On Mar 10, 2006, at 5:58 PM, salah jubeh wrote:
> CAN ANY BODY HELP ME IN TRANSLATE THIS TO TCL
>  map = mapscript.Map('rquery.map') 
> 
> set map [mapscript::mapObj -args "rquery.map"] 
> 
>  layer = map.getLayer(0) 
> 
> set layer [$map getLayer 0] 
> 
>  pnt = mapscript.Point()
>  pnt.x = 440780  pnt.y = 3751260 
> 
> set pnt [::mapscript::new_pointObj 440780 3751260]
> layer.queryByPoint( map, pnt, mapscript.MS_MULTIPLE, 180.0 )
> $layer queryByPoint $map $pnt $::mapscript::MS_MULTIPLE 180.0 
> 
> layer.open()  for i in range(1000):
> result = layer.getResult( i )
> if result is None:
> break 
> 
>     $layer open 
> 
>     for {set i 0} {$i < [$layer getNumResults]} {incr i} {
>         set result [$layer getResult]
>         if {$result == "NULL"} break 
> 
> print '(%d,%d)' % (result.shapeindex, result.tileindex) 
> 
>     puts [format "%d,%d" [$result shapeindex] [$result tileindex]]
> s = layer.getShape( result.shapeindex, result.tileindex ) 
> 
>     set s [$layer getShape [$result shapeindex] [$result tileindex] 
> 
> etc etc etc
> for i in range(layer.numitems):
> print '%s: %s' % (layer.getItem(i), s.getValue(i)) 
> 
> layer.close() 
> 
> Don't listen to people who tell you Tcl mapscript is all broken.   Take a 
> look at flightaware.com -- it's Tcl all the way.

Karl, 

I didn't see anybody else reply to the thread and indicate that anything was 
"all broken". That would leave my reply, which certainly was not intended to 
indicate anything along those lines either. 

Lowell