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: