File: setup.tcl

package info (click to toggle)
mapserver 4.10.0-5.1%2Betch4
  • links: PTS
  • area: main
  • in suites: etch
  • size: 12,264 kB
  • ctags: 15,165
  • sloc: ansic: 164,837; sh: 6,141; python: 5,770; java: 5,169; perl: 2,388; cpp: 1,603; makefile: 735; lex: 507; yacc: 317; tcl: 158; cs: 85; ruby: 53
file content (20 lines) | stat: -rw-r--r-- 578 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
 
# install mapscript/tcl

set tclhome [file dirname $tcl_library]
set mslib $tclhome/MapscriptTcl1.0

if {! [file isdirectory $mslib]} {
    file mkdir $mslib
}

file copy -force libMapscript.dll      $mslib
file copy -force ../pkgIndex.tcl       $mslib
file copy -force ../mapscriptsupp.tcl  $mslib
catch {file copy -force ../mapscriptsupp.html  $mslib}
catch {file copy -force ../mapscript_wrap.html  $mslib}

wm title . "Mapscript/Tcl Installer"
label .l -text "Mapscript/Tcl Installation is complete."
button .b -text Ok -command exit
pack .l .b -side top -padx 30 -pady 30