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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-04-11 21:40:50 -05:00
parent 578741e3ae 5a2a3bf0a8
commit bc5a8ccceb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/io/windows/nt/monitors/monitors.factor
View File

@ -21,7 +21,7 @@ IN: io.windows.nt.monitors
dup add-completion dup add-completion
f <win32-file> ; f <win32-file> ;
TUPLE: win32-monitor < monitor port path recursive ; TUPLE: win32-monitor < monitor port recursive ;
: begin-reading-changes ( port -- overlapped ) : begin-reading-changes ( port -- overlapped )
{ {
@ -56,13 +56,13 @@ TUPLE: win32-monitor < monitor port path recursive ;
} case ; } case ;
: memory>u16-string ( alien len -- string ) : memory>u16-string ( alien len -- string )
[ memory>byte-array ] [ 2/ ] bi c-ushort-array> >string ; [ memory>byte-array ] keep 2/ c-ushort-array> >string ;
: parse-notify-record ( buffer -- changed path ) : parse-notify-record ( buffer -- changed path )
[ FILE_NOTIFY_INFORMATION-Action parse-action ] [ FILE_NOTIFY_INFORMATION-Action parse-action ]
[ FILE_NOTIFY_INFORMATION-FileName ] [ FILE_NOTIFY_INFORMATION-FileName ]
[ FILE_NOTIFY_INFORMATION-FileNameLength ] [ FILE_NOTIFY_INFORMATION-FileNameLength ] tri
tri memory>u16-string ; memory>u16-string ;
: file-notify-records ( buffer -- seq ) : file-notify-records ( buffer -- seq )
[ dup FILE_NOTIFY_INFORMATION-NextEntryOffset 0 > ] [ dup FILE_NOTIFY_INFORMATION-NextEntryOffset 0 > ]