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

45 lines
1.1 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: use a startup hook as the temp directory could change from run to run.
2016-03-17 00:40:25 -04:00
USING: combinators init io.directories io.pathnames kernel
io.files.temp: allow changing of current temp and cache directory.
2016-03-16 18:19:10 -04:00
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
: 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
: 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
io.files.temp: Initialize symbols after the backends are loaded. Top level code sucks.
2016-03-17 00:25:19 -04:00
io.files.temp: use a startup hook as the temp directory could change from run to run.
2016-03-17 00:40:25 -04:00
[
io.files.temp: Initialize symbols after the backends are loaded. Top level code sucks.
2016-03-17 00:25:19 -04:00
default-temp-directory dup make-directories
io.files.temp: use a startup hook as the temp directory could change from run to run.
2016-03-17 00:40:25 -04:00
current-temp-directory set-global
io.files.temp: Initialize symbols after the backends are loaded. Top level code sucks.
2016-03-17 00:25:19 -04:00
default-cache-directory dup make-directories
io.files.temp: use a startup hook as the temp directory could change from run to run.
2016-03-17 00:40:25 -04:00
current-cache-directory set-global
] "io.files.temp" add-startup-hook