1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#
# $Source: /home/nlfm/Working/Zircon/Released/installer/RCS/file7.6.tcl,v $
# $Date: 1997/08/06 09:26:42 $
# $Revision: 1.18.1.14 $
#
# ----------------------------------------------------------------------
# AUTHOR: Lindsay Marshall <lindsay.marshall@newcastle.ac.uk>
# ----------------------------------------------------------------------
# Copyright 1996 The University of Newcastle upon Tyne (see COPYRIGHT)
# ======================================================================
#
package provide unixfile 1.18.7.6
#
proc filemkdir {dir} {file mkdir $dir}
#
proc filerename {from to} {file rename -force $from $to}
#
proc filedelete {f} {file delete $f}
#
proc copyfile {from to} {file copy -force $from $to}
#
proc mkReadable {file} { exec chmod a+r $file }
|
