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

io.backend.unix.multiplexors.select: some cleanup.

db4
John Benediktsson 2014-06-26 13:49:48 -07:00
parent 3a9f4edcff
commit 0c7a5b7c84
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/io/backend/unix/multiplexers/select/select.factor
View File

@ -1,9 +1,8 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.data kernel bit-arrays sequences assocs math USING: accessors alien.data assocs bit-arrays fry
namespaces accessors math.order locals fry io.ports io.backend.unix io.backend.unix.multiplexers kernel layouts
io.backend.unix io.backend.unix.multiplexers unix unix.ffi locals math math.order sequences unix.ffi unix.time ;
unix.time layouts ;
IN: io.backend.unix.multiplexers.select IN: io.backend.unix.multiplexers.select
TUPLE: select-mx < mx read-fdset write-fdset ; TUPLE: select-mx < mx read-fdset write-fdset ;
@ -13,8 +12,8 @@ TUPLE: select-mx < mx read-fdset write-fdset ;
! byte order differences on big endian platforms ! byte order differences on big endian platforms
: munge ( i -- i' ) : munge ( i -- i' )
little-endian? [ little-endian? [
cell 4 = [ 0b11000 ] [ 0b111000 ] if cell 4 = 0b11000 0b111000 ? bitxor
bitxor ] unless ; inline ] unless ; inline
: <select-mx> ( -- mx ) : <select-mx> ( -- mx )
select-mx new-mx select-mx new-mx