diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
commit | a780057cc1b51dd3a557549c3cf2431f09136c0d (patch) | |
tree | 717f78052c55596449b27743171d7e170c4d39a0 /tkimg/tools/install.tcl | |
parent | 7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff) | |
download | blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2 |
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/tools/install.tcl')
-rwxr-xr-x | tkimg/tools/install.tcl | 141 |
1 files changed, 0 insertions, 141 deletions
diff --git a/tkimg/tools/install.tcl b/tkimg/tools/install.tcl deleted file mode 100755 index c5d7ae1..0000000 --- a/tkimg/tools/install.tcl +++ /dev/null @@ -1,141 +0,0 @@ -#!/bin/sh -# The next line restarts using wish \ -exec wish $0 ${1+"$@"} -# -# Initialization of some global variables - -eval destroy [winfo children .] - -switch -glob [info sharedlibextension] { - .so* { - set libs [list libpng.so.2.1.0 libjpeg.so.62.0.0 libtiff.so.3.4.37 \ - libz.so.1.1.3 libttf.so.1.2.0 libungif.so.3.1.0] - } - ..a { - set libs [list libpng.a libjpeg.a libtiff.a libz.a libttf.a libungif.a] - } - .dll { - set libs [list png.lib jpeg62.lib tiff.lib zlib.lib ttf.lib ungif.lib] - set dll [list png.dll jpeg62.dll tiff.dll zlib.dll ttf.dll ungif.dll] - } - * { - set libs [list libpng[info sharedlibextension] libjpeg[info sharedlibextension] \ - libtiff[info sharedlibextension] libz[info sharedlibextension] \ - libttf[info sharedlibextension] libungif[info sharedlibextension]] - } -} - -if [info exists env(PATH)] { - if [string compare $tcl_platform(platform) windows] { - set dirs [split $env(PATH) :] - } else { - set dirs [split $env(PATH) \;] - } -} else { - set dirs "/usr/local/lib /usr/lib /lib" -} - -foreach dir "$dirs C:/WINDOWS/* C:/WINNT/*" { - foreach d [list $dir [file join [file dirname $dir] lib]] { - set x [glob -nocomplain [file join $d \{lib,\}tcl\[78\]*[info sharedlibextension]*]] - if [string compare $x {}] break - } - if [string compare $x {}] break -} - - -label .f1 -text "Where should the following files be installed?" -pack .f1 -proc line {f label default} { - frame $f - label $f.l -text $label - entry $f.e -width 50 - $f.e insert end $default - pack $f.l -side left - pack $f.e -side right - pack $f -expand y -fill both -} -set prefix [file dirname [file dirname $tk_library]] - -if [string compare $tcl_platform(platform) windows] { - set imglibs [lindex [file split $x] end] - if [string match libtcl?.?[info sharedlibextension]* $imglibs] { - set imglibs libimg1.2[info sharedlibextension] - } else { - set imglibs libimg12[info sharedlibextension] - } -} else { - set x [lindex $x 0] - set systemdll [file dirname $x] - set imglibs [list img1280.dll img1281.dll] - line .f2 "system dll's" $systemdll -} -line .f3 "system libraries" [file join $prefix lib] -line .f4 "system headers" [file join $prefix include] -line .f5 "Img 1.2 files" [file join $prefix lib Img1.2] -frame .f6 -button .f6.install -text Install -command Install -button .f6.exit -text Exit -command "destroy ." -pack .f6.install .f6.exit -side left -fill both -expand y -pack .f6 -fill both -expand y - -proc Copy {src dst} { - if [file exists $src] { - file delete -force [file join $dst $src] - puts_stdout "copying $src to $dst" - file copy $src $dst - return 1 - } - return 0 -} - -proc Install {} { - global libs dll tcl_platform imglibs - if [winfo exists .t] { - raise .t - } else { - toplevel .t - frame .t.f - button .t.f.d -text dismiss -command [list destroy .t] - pack .t.f.d -side left - pack .t.f -side top -fill x - text .t.t -yscrollcommand [list .t.s set] - scrollbar .t.s -command [list .t.t yview] - pack .t.t .t.s -side left -expand y -fill both - } - .t.t delete 1.0 end - proc puts_stdout args { - .t.t insert end "[lindex $args 0]\n" - .t.t see end - update - } - .t.t see end - if ![string compare $tcl_platform(platform) windows] { - set dir [.f2.e get] - foreach lib $dll { - Copy $lib $dir - } - } - set dir [.f3.e get] - foreach lib $libs { - if {[Copy $lib $dir] && ![string compare [info sharedlibextension] .so]} { - while {[string compare .so [set ext [file extension $lib]]]} { - file delete [set file [file join $dir [file rootname $lib]]] - puts_stdout "ln -s $lib $file" - exec ln -s $lib $file - set lib [file rootname $lib] - } - } - } - set dir [.f4.e get] - foreach lib [list zlib.h zconf.h png.h pngconf.h jpeglib.h jconfig.h \ - jmorecfg.h jerror.h tiff.h tiffio.h tiffconf.h freetype.h gif_lib.h] { - Copy $lib $dir - } - set dir [.f5.e get] - catch {file mkdir $dir} - foreach lib "$imglibs pkgIndex.tcl" { - Copy $lib $dir - } - puts_stdout "---------- installation complete ----------" -} |