#
# $Source: /home/nlfm/Working/Zircon/Released/installer/RCS/file7.5.tcl,v $
# $Date: 1997/01/13 12:14:54 $
# $Revision: 1.18.1.12 $
#
# ----------------------------------------------------------------------
#   AUTHOR:  Lindsay Marshall <lindsay.marshall@newcastle.ac.uk>
# ----------------------------------------------------------------------
# Copyright 1996 The University of Newcastle upon Tyne (see COPYRIGHT)
# ======================================================================
#
package provide unixfile 1.18.7.5
#
proc filemkdir {dir} {if ![file exists $dir] {exec mkdir $dir}}
#
proc filedelete {f} {exec rm -f $f}
#
proc filerename {from to} {exec mv -f $from $to}
#
proc copyfile {from to} {
    if [file exists $to] { exec rm -f $to }
    exec cp $from $to
}
