wipe-all ( directory -- )
Wipe

Prev:	wipe ( path -- )
Next:	wipe-file ( file-name -- )

Vocabulary
wipe

Inputs

directory

a pathname string

Outputs
None

Word description
Wipe all files in the directory and all subdirectories by overwriting their contents with random data and then deleting them.

Definition

USING: accessors io.directories io.files.info kernel ;

IN: wipe

: wipe-all ( directory -- )
    [ dup directory? [ drop ] [ name>> wipe-file ] if ]
    each-directory-entry ;