22 lines
512 B
Factor
22 lines
512 B
Factor
! Copyright (C) 2003, 2004 Mackenzie Straight.
|
|
|
|
IN: io
|
|
USING: compiler namespaces kernel win32-io-internals win32-stream win32-api
|
|
threads ;
|
|
|
|
: <file-reader> <win32-file-reader> ;
|
|
: <file-writer> <win32-file-writer> ;
|
|
: <server> <win32-server> ;
|
|
|
|
IN: io-internals
|
|
|
|
: io-multiplex ( ms -- )
|
|
#! FIXME: needs to work given a timeout
|
|
dup -1 = [ drop INFINITE ] when cancel-timedout wait-for-io
|
|
swap [ schedule-thread-with ] [ drop ] if* ;
|
|
|
|
: init-io ( -- )
|
|
win32-init-stdio
|
|
init-winsock ;
|
|
|