blob: 2d67a0a47348369796cc7651d873b95e61bd2840 (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
#!/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 ----------"
}
|
