Ignore:
Timestamp:
May 29, 2006, 4:57:03 PM (13 years ago)
Author:
mww
Message:

add 'delete' routine for future replacement for 'file delete';
this is more convenient, faster & should work more reliable with earlier Tcl versions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r17792 r18144  
    11# et:ts=4
    22# portutil.tcl
    3 # $Id: portutil.tcl,v 1.191 2006/04/30 05:32:52 pguyot Exp $
     3# $Id: portutil.tcl,v 1.192 2006/05/29 16:57:03 mww Exp $
    44#
    55# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
    66# Copyright (c) 2002 Apple Computer, Inc.
     7# Copyright (c) 2006 Markus W. Weissmann <mww@opendarwin.org>
    78# All rights reserved.
    89#
     
    509510    }
    510511    return
     512}
     513
     514# delete
     515# fast (and more reliable than 'file delete') file- and directory-remove routine
     516proc delete {args} {
     517        foreach arg $args {
     518                ui_debug "delete: $arg"
     519                system "/bin/rm -rf $arg"
     520        }
    511521}
    512522
Note: See TracChangeset for help on using the changeset viewer.