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