diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2016-12-21 22:47:21 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2016-12-21 22:47:21 (GMT) |
| commit | 5514e37335c012cc70f5b9aee3cedfe3d57f583f (patch) | |
| tree | 4ba7d8aad13735e52f59bdce7ca5ba3151ebd7e3 /tcl8.6/tools/installData.tcl | |
| parent | 768f87f613cc9789fcf8073018fa02178c8c91df (diff) | |
| download | blt-5514e37335c012cc70f5b9aee3cedfe3d57f583f.zip blt-5514e37335c012cc70f5b9aee3cedfe3d57f583f.tar.gz blt-5514e37335c012cc70f5b9aee3cedfe3d57f583f.tar.bz2 | |
undo subtree
Diffstat (limited to 'tcl8.6/tools/installData.tcl')
| -rw-r--r-- | tcl8.6/tools/installData.tcl | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/tcl8.6/tools/installData.tcl b/tcl8.6/tools/installData.tcl deleted file mode 100644 index 4b43f1e..0000000 --- a/tcl8.6/tools/installData.tcl +++ /dev/null @@ -1,50 +0,0 @@ -#!/bin/sh -#\ -exec tclsh "$0" ${1+"$@"} - -#---------------------------------------------------------------------- -# -# installData.tcl -- -# -# This file installs a hierarchy of data found in the directory -# specified by its first argument into the directory specified -# by its second. -# -#---------------------------------------------------------------------- -# -# Copyright (c) 2004 by Kevin B. Kenny. All rights reserved. -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -#---------------------------------------------------------------------- - -proc copyDir {d1 d2} { - - puts [format {%*sCreating %s} [expr {4 * [info level]}] {} \ - [file tail $d2]] - - file delete -force -- $d2 - file mkdir $d2 - - foreach ftail [glob -directory $d1 -nocomplain -tails *] { - set f [file join $d1 $ftail] - if {[file isdirectory $f] && [string compare CVS $ftail]} { - copyDir $f [file join $d2 $ftail] - } elseif {[file isfile $f]} { - file copy -force $f [file join $d2 $ftail] - if {$::tcl_platform(platform) eq {unix}} { - file attributes [file join $d2 $ftail] -permissions 0644 - } else { - file attributes [file join $d2 $ftail] -readonly 1 - } - } - } - - if {$::tcl_platform(platform) eq {unix}} { - file attributes $d2 -permissions 0755 - } else { - file attributes $d2 -readonly 1 - } - -} - -copyDir [file normalize [lindex $argv 0]] [file normalize [lindex $argv 1]] |