Paste: random-temp-file

Author: mrjbq7
Mode: factor
Date: Thu, 5 Aug 2010 03:40:14
Plain Text |
<PRIVATE

CONSTANT: CHARACTERS
    abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"

PRIVATE>

: random-temp-file ( -- path )
    6 [ CHARACTERS random ] replicate >string temp-file ;

New Annotation

Summary:
Author:
Mode:
Body: