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

38 lines
999 B
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.windows: fix up
2012-03-31 20:11:38 -04:00
USING: alien.data alien.strings io.directories
io.files.info.windows: Fix file-systems word in two ways. First, don't allocate 32k on the local alloc stack (which causes a 'double fault.') Second, if the volume doesnt look up to a real path, don't make a dummy object for that. volume Use alien>native-string and native-string>alien wherever possible instead of utf16n for Windows.
2012-06-21 11:32:53 -04:00
io.files.temp io.pathnames kernel math
io.files.temp.windows: fix up
2012-03-31 20:11:38 -04:00
memoize specialized-arrays system windows.errors
windows.kernel32 windows.ole32 windows.shell32
windows.types ;
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
SPECIALIZED-ARRAY: WCHAR
IN: io.files.temp.windows
<PRIVATE
: (get-temp-directory) ( -- path )
io.files.temp.windows: fix up
2012-03-31 20:11:38 -04:00
MAX_PATH 1 + dup WCHAR <c-array> [ GetTempPath ] keep
swap win32-error=0/f
io.files.info.windows: Fix file-systems word in two ways. First, don't allocate 32k on the local alloc stack (which causes a 'double fault.') Second, if the volume doesnt look up to a real path, don't make a dummy object for that. volume Use alien>native-string and native-string>alien wherever possible instead of utf16n for Windows.
2012-06-21 11:32:53 -04:00
alien>native-string ;
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
editors.visual-studio-code: Support for m$ft's new code editor. Can't figure out command line parameters yet. io.files.temp.windows: Make (get-appdata-directory) not private and rename it to get-appdata-directory.
2015-04-30 21:20:16 -04:00
PRIVATE>
: get-appdata-directory ( -- 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
f
CSIDL_LOCAL_APPDATA CSIDL_FLAG_CREATE bitor
f
0
io.files.temp.windows: fix up
2012-03-31 20:11:38 -04:00
MAX_PATH 1 + WCHAR <c-array>
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
[ SHGetFolderPath ] keep
utf16n: botched merge commit. oops
2012-06-21 12:04:09 -04:00
swap check-ole32-error alien>native-string ;
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
MEMO: (temp-directory) ( -- path )
(get-temp-directory) "factorcode.org\\Factor" append-path dup make-directories ;
M: windows temp-directory (temp-directory) ;
MEMO: (cache-directory) ( -- path )
editors.visual-studio-code: Support for m$ft's new code editor. Can't figure out command line parameters yet. io.files.temp.windows: Make (get-appdata-directory) not private and rename it to get-appdata-directory.
2015-04-30 21:20:16 -04:00
get-appdata-directory "factorcode.org\\Factor" append-path dup make-directories ;
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
M: windows cache-directory (cache-directory) ;