steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix io monitors

db4
Doug Coleman 2009-08-29 14:28:00 -05:00
parent d2accedf8d
commit 56be96429a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/io/monitors/windows/nt/nt.factor
View File

@ -7,7 +7,7 @@ system accessors threads splitting io.backend io.backend.windows
io.backend.windows.nt io.files.windows.nt io.monitors io.ports
io.buffers io.files io.timeouts io.encodings.string
io.encodings.utf16n io windows.errors windows.kernel32 windows.types
io.pathnames ;
io.pathnames classes.struct ;
IN: io.monitors.windows.nt
: open-directory ( path -- handle )
@ -59,9 +59,10 @@ TUPLE: win32-monitor < monitor port ;
[ Action>> parse-action ] bi ;
: (file-notify-records) ( buffer -- buffer )
FILE_NOTIFY_INFORMATION memory>struct
dup ,
dup NextEntryOffset>> zero? [
[ NextEntryOffset>> ] [ <displaced-alien> ] bi
[ NextEntryOffset>> ] [ >c-ptr <displaced-alien> ] bi
(file-notify-records)
] unless ;