remove private stuff
parent
344a98802f
commit
82f3239012
|
@ -8,8 +8,6 @@ io.files.private ;
|
||||||
|
|
||||||
IN: io.unix.files
|
IN: io.unix.files
|
||||||
|
|
||||||
<PRIVATE
|
|
||||||
|
|
||||||
M: unix cwd ( -- path )
|
M: unix cwd ( -- path )
|
||||||
MAXPATHLEN [ <byte-array> ] [ ] bi getcwd
|
MAXPATHLEN [ <byte-array> ] [ ] bi getcwd
|
||||||
[ (io-error) ] unless* ;
|
[ (io-error) ] unless* ;
|
||||||
|
@ -17,8 +15,6 @@ M: unix cwd ( -- path )
|
||||||
M: unix cd ( path -- )
|
M: unix cd ( path -- )
|
||||||
chdir io-error ;
|
chdir io-error ;
|
||||||
|
|
||||||
PRIVATE>
|
|
||||||
|
|
||||||
: read-flags O_RDONLY ; inline
|
: read-flags O_RDONLY ; inline
|
||||||
|
|
||||||
: open-read ( path -- fd )
|
: open-read ( path -- fd )
|
||||||
|
|
|
@ -5,8 +5,6 @@ alien.c-types alien.arrays sequences combinators combinators.lib
|
||||||
sequences.lib ascii splitting alien strings assocs namespaces ;
|
sequences.lib ascii splitting alien strings assocs namespaces ;
|
||||||
IN: io.windows.nt.files
|
IN: io.windows.nt.files
|
||||||
|
|
||||||
<PRIVATE
|
|
||||||
|
|
||||||
M: winnt cwd
|
M: winnt cwd
|
||||||
MAX_UNICODE_PATH dup "ushort" <c-array>
|
MAX_UNICODE_PATH dup "ushort" <c-array>
|
||||||
[ GetCurrentDirectory win32-error=0/f ] keep
|
[ GetCurrentDirectory win32-error=0/f ] keep
|
||||||
|
@ -15,8 +13,6 @@ M: winnt cwd
|
||||||
M: winnt cd
|
M: winnt cd
|
||||||
SetCurrentDirectory win32-error=0/f ;
|
SetCurrentDirectory win32-error=0/f ;
|
||||||
|
|
||||||
PRIVATE>
|
|
||||||
|
|
||||||
: unicode-prefix ( -- seq )
|
: unicode-prefix ( -- seq )
|
||||||
"\\\\?\\" ; inline
|
"\\\\?\\" ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue