55 lines
2.1 KiB
Factor
55 lines
2.1 KiB
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
USING: alien.syntax system sequences vocabs.loader words ;
|
||
|
|
IN: unix.kqueue
|
||
|
|
|
||
|
<< "unix.kqueue." os name>> append require >>
|
||
|
|
|
||
|
FUNCTION: int kqueue ( ) ;
|
||
|
|
|
||
|
|
! actions
|
||
|
|
: EV_ADD HEX: 1 ; inline ! add event to kq (implies enable)
|
||
|
|
: EV_DELETE HEX: 2 ; inline ! delete event from kq
|
||
|
|
: EV_ENABLE HEX: 4 ; inline ! enable event
|
||
|
|
: EV_DISABLE HEX: 8 ; inline ! disable event (not reported)
|
||
|
|
|
||
|
|
! flags
|
||
|
|
: EV_ONESHOT HEX: 10 ; inline ! only report one occurrence
|
||
|
|
: EV_CLEAR HEX: 20 ; inline ! clear event state after reporting
|
||
|
|
|
||
|
|
: EV_SYSFLAGS HEX: f000 ; inline ! reserved by system
|
||
|
|
: EV_FLAG0 HEX: 1000 ; inline ! filter-specific flag
|
||
|
|
: EV_FLAG1 HEX: 2000 ; inline ! filter-specific flag
|
||
|
|
|
||
|
|
! returned values
|
||
|
|
: EV_EOF HEX: 8000 ; inline ! EOF detected
|
||
|
|
: EV_ERROR HEX: 4000 ; inline ! error, data contains errno
|
||
|
|
|
||
|
|
: EV_POLL EV_FLAG0 ; inline
|
||
|
|
: EV_OOBAND EV_FLAG1 ; inline
|
||
|
|
|
||
|
|
: NOTE_LOWAT HEX: 00000001 ; inline ! low water mark
|
||
|
|
|
||
|
|
: NOTE_DELETE HEX: 00000001 ; inline ! vnode was removed
|
||
|
|
: NOTE_WRITE HEX: 00000002 ; inline ! data contents changed
|
||
|
|
: NOTE_EXTEND HEX: 00000004 ; inline ! size increased
|
||
|
|
: NOTE_ATTRIB HEX: 00000008 ; inline ! attributes changed
|
||
|
|
: NOTE_LINK HEX: 00000010 ; inline ! link count changed
|
||
|
|
: NOTE_RENAME HEX: 00000020 ; inline ! vnode was renamed
|
||
|
|
: NOTE_REVOKE HEX: 00000040 ; inline ! vnode access was revoked
|
||
|
|
|
||
|
|
: NOTE_EXIT HEX: 80000000 ; inline ! process exited
|
||
|
|
: NOTE_FORK HEX: 40000000 ; inline ! process forked
|
||
|
|
: NOTE_EXEC HEX: 20000000 ; inline ! process exec'd
|
||
|
|
: NOTE_PCTRLMASK HEX: f0000000 ; inline ! mask for hint bits
|
||
|
|
: NOTE_PDATAMASK HEX: 000fffff ; inline ! mask for pid
|
||
|
|
|
||
|
|
: NOTE_SECONDS HEX: 00000001 ; inline ! data is seconds
|
||
|
|
: NOTE_USECONDS HEX: 00000002 ; inline ! data is microseconds
|
||
|
|
: NOTE_NSECONDS HEX: 00000004 ; inline ! data is nanoseconds
|
||
|
|
: NOTE_ABSOLUTE HEX: 00000008 ; inline ! absolute timeout
|
||
|
|
|
||
|
|
: NOTE_TRACK HEX: 00000001 ; inline ! follow across forks
|
||
|
|
: NOTE_TRACKERR HEX: 00000002 ; inline ! could not track child
|
||
|
|
: NOTE_CHILD HEX: 00000004 ; inline ! am a child process
|