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
|
set platform LINUX
set instdir /usr/local
if {$argc > 0} {
set platform [lindex $argv 0]
} else {
if {[string equal $tcl_platform(platform) windows]} {
set platform WIN32
}
}
if {$argc > 1} {
set instdir [lindex $argv 1]
}
if {$argc > 2} {
set sysconfdir [lindex $argv 2]
} else {
set sysconfdir $instdir/etc
}
proc copyfile {force src dst} {
file mkdir [file dirname $dst]
if {$force} {
if {[catch {
file copy -force -- $src $dst
}]} {
puts stderr "installation error: could not write $dst"
}
} else {
if {![file exists $dst]} {
copyfile 1 $src $dst
}
}
}
proc copylocale {dir fname dstdir} {
set ldirs [glob -types d -path $dir -tails *]
foreach d $ldirs {
set dst [format $dstdir $d]
puts "$dir$d/$fname -> $dst/$fname"
file mkdir $dst
file copy -force -- $dir$d/$fname $dst/$fname
}
}
if {[string equal $platform WIN32]} {
copyfile 1 ../therion.bin/therion.exe "c:/Program files/Therion/therion.exe"
copyfile 1 ../therion.bin/xtherion/xtherion.tcl "c:/Program files/Therion/xtherion.tcl"
copyfile 1 ../therion.bin/loch/loch.exe "c:/Program files/Therion/loch.exe"
} elseif {[string equal $platform MACOSX]} {
copyfile 1 therion /usr/local/bin/therion
file attributes /usr/local/bin/therion -permissions 0755
copyfile 1 xtherion/xtherion /usr/local/bin/xtherion
file attributes /usr/local/bin/xtherion -permissions 0755
file delete -force /Applications/loch.app
copyfile 1 loch/loch.app /Applications
file attributes /Applications/loch.app -permissions 0755
file attributes /Applications/loch.app/Contents -permissions 0755
file attributes /Applications/loch.app/Contents/Info.plist -permissions 0644
file attributes /Applications/loch.app/Contents/PkgInfo -permissions 0644
file attributes /Applications/loch.app/Contents/MacOS -permissions 0755
file attributes /Applications/loch.app/Contents/MacOS/loch -permissions 0755
file attributes /Applications/loch.app/Contents/Resources -permissions 0755
file attributes /Applications/loch.app/Contents/Resources/loch.icns -permissions 0644
copyfile 1 therion.ini /usr/local/etc/therion.ini.new
file attributes /usr/local/etc/therion.ini.new -permissions 0644
copyfile 1 xtherion/xtherion.ini /usr/local/etc/xtherion.ini.new
file attributes /usr/local/etc/xtherion.ini.new -permissions 0644
copyfile 0 therion.ini /usr/local/etc/therion.ini
file attributes /usr/local/etc/therion.ini -permissions 0644
copyfile 0 xtherion/xtherion.ini /usr/local/etc/xtherion.ini
file attributes /usr/local/etc/xtherion.ini -permissions 0644
} else {
copyfile 1 therion $instdir/bin/therion
copyfile 1 xtherion/xtherion $instdir/bin/xtherion
copyfile 1 loch/loch $instdir/bin/loch
copyfile 1 therion.ini $sysconfdir/therion.ini.new
copyfile 1 xtherion/xtherion.ini $sysconfdir/xtherion.ini.new
copyfile 0 therion.ini $sysconfdir/therion.ini
copyfile 0 xtherion/xtherion.ini $sysconfdir/xtherion.ini
copylocale loch/locale/ loch.mo $instdir/share/locale/%s/LC_MESSAGES
copylocale loch/help/ loch.htb $instdir/share/doc/therion-viewer/help/%s
}
|
