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
|
# -*- tcl -*-
# This file holds the commands determining the files to install. They
# are used by the installer to actually perform the installation, and
# by 'sak' to get the per-module lists of relevant files. The
# different purposes are handled through the redefinition of the
# commands [xcopy] and [xcopyf] used by the commands here.
proc _null {args} {}
proc _all {module libdir} {
global distribution
xcopy \
[file join $distribution modules $module] \
[file join $libdir $module] \
1
return
}
proc _cfh {module libdir} {
global distribution
_tcl $module $libdir
set moddir [file join $distribution modules $module ]
xcopy $moddir [file join $libdir $module] 0 *.c
xcopy $moddir [file join $libdir $module] 0 *.h
return
}
proc _tcl {module libdir} {
global distribution
xcopy \
[file join $distribution modules $module] \
[file join $libdir $module] \
0 *.tcl
return
}
proc _tcr {module libdir} {
global distribution
xcopy \
[file join $distribution modules $module] \
[file join $libdir $module] \
1 *.tcl
return
}
proc _rde {module libdir} {
global distribution
_tcl $module $libdir
xcopy \
[file join $distribution modules $module rde_critcl] \
[file join $libdir $module rde_critcl] \
1
return
}
proc _doc {module libdir} {
global distribution
_tcl $module $libdir
xcopy \
[file join $distribution modules $module mpformats] \
[file join $libdir $module mpformats] \
1
return
}
proc _msg {module libdir} {
global distribution
_tcl $module $libdir
xcopy \
[file join $distribution modules $module msgs] \
[file join $libdir $module msgs] \
1
return
}
proc _tex {module libdir} {
global distribution
_tcl $module $libdir
xcopy \
[file join $distribution modules $module] \
[file join $libdir $module] \
0 *.tex
return
}
proc _tci {module libdir} {
global distribution
_tcl $module $libdir
xcopyfile [file join $distribution modules $module tclIndex] \
[file join $libdir $module]
return
}
proc _trt {module libdir} {
global distribution
_tcr $module $libdir
xcopy \
[file join $distribution modules $module] \
[file join $libdir $module] \
0 *.template
return
}
proc _manfile {f format ext docdir} { return }
proc _man {module format ext docdir} { return }
proc _exa {module exadir} {
global distribution
xcopy \
[file join $distribution examples $module] \
[file join $exadir $module] \
1
return
}
proc _exax {actual module exadir} {
global distribution
xcopy \
[file join $distribution examples $actual] \
[file join $exadir $module] \
1
return
}
|
