Rebol Programming/delete

USAGE:

DELETE target /any 

DESCRIPTION:

Deletes the specified file(s).

DELETE is a function value.

ARGUMENTS

• target -- the file to delete (Type: file url)

REFINEMENTS

• /any -- allow wild cards

(SPECIAL ATTRIBUTES)

• catch

SOURCE CODE

delete: func [
    "Deletes the specified file(s)." 
    [catch] 
    target [file! url!] "the file to delete" 
    /any "allow wild cards" 
    /local p dir blk file ret err
][
    dir: throw-on-error [open first p: split-path clean-path target] 
    error? set/any 'err try [
        either any [
            blk: copy dir 
            foreach file blk [
                ret: find/match/any file second p 
                if none? ret [ret: file] 
                either tail? ret [
                    remove dir
                ] [
                    dir: next dir
                ]
            ]
        ] [
            blk: copy dir 
            either not none? blk: find blk second p [
                remove skip dir (index? blk) - 1
            ] [
                make error! reduce ['access 'no-delete target]
            ]
        ]
    ] 
    attempt [close dir] 
    either error? get/any 'err [throw err] [get/any 'err]
]