2011-08-19 17:26:32 -04:00
|
|
|
! Copyright (C) 2010 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
2011-11-02 14:23:41 -04:00
|
|
|
USING: combinators system vocabs ;
|
2011-08-19 17:26:32 -04:00
|
|
|
|
2011-08-19 17:31:19 -04:00
|
|
|
IN: io.files.trash
|
2011-08-19 17:26:32 -04:00
|
|
|
|
|
|
|
|
HOOK: send-to-trash os ( path -- )
|
|
|
|
|
|
|
|
|
|
{
|
2014-11-15 17:25:12 -05:00
|
|
|
{ [ os windows? ] [ "io.files.trash.windows" ] }
|
|
|
|
|
{ [ os macosx? ] [ "io.files.trash.macosx" ] }
|
|
|
|
|
{ [ os unix? ] [ "io.files.trash.unix" ] }
|
2011-08-19 17:26:32 -04:00
|
|
|
} cond require
|
|
|
|
|
|
