steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/io/files/temp/temp.factor

45 lines
1.0 KiB
Factor
Raw Normal View History

io.files.temp: use OS tmp dir; add cache-directory Change temp-directory to return an OS-sanctioned temporary directory instead of "resource:temp". Add a new function cache-directory to return an OS-sanctioned directory for storing staging images etc. Fixes #365. Windows implementation needs to be finished and tested.
2012-03-31 17:45:59 -04:00
! (c)2012 Joe Groff bsd license
io.files.temp: allow changing of current temp and cache directory.
2016-03-16 18:19:10 -04:00
USING: combinators io.directories io.pathnames kernel
namespaces system vocabs ;
Oops
2008-12-15 03:02:22 -05:00
IN: io.files.temp
io.files.temp: allow changing of current temp and cache directory.
2016-03-16 18:19:10 -04:00
HOOK: default-temp-directory os ( -- path )
SYMBOL: current-temp-directory
current-temp-directory [
default-temp-directory dup make-directories
] initialize
: temp-directory ( -- path )
current-temp-directory get ;
Oops
2008-12-15 03:02:22 -05:00
: temp-file ( name -- path )
io.files.temp: use OS tmp dir; add cache-directory Change temp-directory to return an OS-sanctioned temporary directory instead of "resource:temp". Add a new function cache-directory to return an OS-sanctioned directory for storing staging images etc. Fixes #365. Windows implementation needs to be finished and tested.
2012-03-31 17:45:59 -04:00
temp-directory prepend-path ;
io.files.temp: adding with-temp-directory and with-cache-directory.
2012-06-18 15:22:59 -04:00
: with-temp-directory ( quot -- )
[ temp-directory ] dip with-directory ; inline
io.files.temp: allow changing of current temp and cache directory.
2016-03-16 18:19:10 -04:00
HOOK: default-cache-directory os ( -- path )
SYMBOL: current-cache-directory
current-cache-directory [
default-cache-directory dup make-directories
] initialize
: cache-directory ( -- path )
current-cache-directory get ;
io.files.temp: use OS tmp dir; add cache-directory Change temp-directory to return an OS-sanctioned temporary directory instead of "resource:temp". Add a new function cache-directory to return an OS-sanctioned directory for storing staging images etc. Fixes #365. Windows implementation needs to be finished and tested.
2012-03-31 17:45:59 -04:00
: cache-file ( name -- path )
cache-directory prepend-path ;
io.files.temp: adding with-temp-directory and with-cache-directory.
2012-06-18 15:22:59 -04:00
: with-cache-directory ( quot -- )
[ cache-directory ] dip with-directory ; inline
io.files.temp: use OS tmp dir; add cache-directory Change temp-directory to return an OS-sanctioned temporary directory instead of "resource:temp". Add a new function cache-directory to return an OS-sanctioned directory for storing staging images etc. Fixes #365. Windows implementation needs to be finished and tested.
2012-03-31 17:45:59 -04:00
{
{ [ os windows? ] [ "io.files.temp.windows" ] }
{ [ os macosx? ] [ "io.files.temp.macosx" ] }
{ [ os unix? ] [ "io.files.temp.unix" ] }
} cond require