File: shpinfo.tcl

package info (click to toggle)
mapserver 4.10.0-5%2Betch1
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 11,960 kB
  • ctags: 15,165
  • sloc: ansic: 164,837; python: 5,770; java: 5,169; perl: 2,388; cpp: 1,603; makefile: 735; lex: 507; sh: 375; yacc: 317; tcl: 158; cs: 85; ruby: 53
file content (33 lines) | stat: -rwxr-xr-x 754 bytes parent folder | download | duplicates (17) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
#!/usr/local/bin/tclsh8.3

# if running a test before install, include directory to find package

lappend auto_path [pwd]/..

package require Mapscript

array set types {
   1 point
   3 arc
   5 polygon
   8 multipoint
}


set file $argv

if {! [file isfile $file.shp]} {
    puts "shapefile \"$file\" not found"
    puts "usage: $argv0 <shapefile>"
    exit
}

mapscript::shapefileObj shp1 $file -1

puts "\nShapefile $file:\n"
puts "\ttype: $types([shp1 cget -type])"
puts "\tnumber of features: [shp1 cget -numshapes]"
set rectPtr [shp1 cget -bounds]
puts "\tbounds: ([mapscript::rectObjRef $rectPtr cget -minx],[mapscript::rectObjRef $rectPtr cget -miny]) ([mapscript::rectObjRef $rectPtr cget -maxx],[mapscript::rectObjRef $rectPtr cget -maxy])"