Paste: create-file

Author: mrjbq7
Mode: factor
Date: Mon, 23 Feb 2009 21:43:28
Plain Text |
: create-file ( path -- )
    [ "" ] dip binary set-file-lines ;

: create-if-not-exists ( path -- )
    dup exists? [ drop ] [ create-file ] if ;

Annotation: touch-file

Author: mrjbq7
Mode: factor
Date: Wed, 25 Feb 2009 17:09:20
Plain Text |
\ touch-file see

USING: io.backend ;
IN: io.directories
HOOK: touch-file io-backend ( path -- )

New Annotation

Summary:
Author:
Mode:
Body: