diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 19:39:39 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 19:39:39 (GMT) |
commit | ea28451286d3ea4a772fa174483f9a7a66bb1ab3 (patch) | |
tree | 6ee9d8a7848333a7ceeee3b13d492e40225f8b86 /tcllib/support/installation/actions.tcl | |
parent | b5ca09bae0d6a1edce939eea03594dd56383f2c8 (diff) | |
parent | 7c621da28f07e449ad90c387344f07a453927569 (diff) | |
download | blt-ea28451286d3ea4a772fa174483f9a7a66bb1ab3.zip blt-ea28451286d3ea4a772fa174483f9a7a66bb1ab3.tar.gz blt-ea28451286d3ea4a772fa174483f9a7a66bb1ab3.tar.bz2 |
Merge commit '7c621da28f07e449ad90c387344f07a453927569' as 'tcllib'
Diffstat (limited to 'tcllib/support/installation/actions.tcl')
-rw-r--r-- | tcllib/support/installation/actions.tcl | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/tcllib/support/installation/actions.tcl b/tcllib/support/installation/actions.tcl new file mode 100644 index 0000000..6978bf8 --- /dev/null +++ b/tcllib/support/installation/actions.tcl @@ -0,0 +1,112 @@ +# -*- 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 _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 +} |