1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax system sequences vocabs.loader words
7 << "unix.kqueue." os name>> append require >>
9 FUNCTION: int kqueue ( ) ;
12 CONSTANT: EV_ADD HEX: 1 ! add event to kq (implies enable)
13 CONSTANT: EV_DELETE HEX: 2 ! delete event from kq
14 CONSTANT: EV_ENABLE HEX: 4 ! enable event
15 CONSTANT: EV_DISABLE HEX: 8 ! disable event (not reported)
18 CONSTANT: EV_ONESHOT HEX: 10 ! only report one occurrence
19 CONSTANT: EV_CLEAR HEX: 20 ! clear event state after reporting
21 CONSTANT: EV_SYSFLAGS HEX: f000 ! reserved by system
22 CONSTANT: EV_FLAG0 HEX: 1000 ! filter-specific flag
23 CONSTANT: EV_FLAG1 HEX: 2000 ! filter-specific flag
26 CONSTANT: EV_EOF HEX: 8000 ! EOF detected
27 CONSTANT: EV_ERROR HEX: 4000 ! error, data contains errno
29 ALIAS: EV_POLL EV_FLAG0
30 ALIAS: EV_OOBAND EV_FLAG1
32 CONSTANT: NOTE_LOWAT HEX: 00000001 ! low water mark
34 CONSTANT: NOTE_DELETE HEX: 00000001 ! vnode was removed
35 CONSTANT: NOTE_WRITE HEX: 00000002 ! data contents changed
36 CONSTANT: NOTE_EXTEND HEX: 00000004 ! size increased
37 CONSTANT: NOTE_ATTRIB HEX: 00000008 ! attributes changed
38 CONSTANT: NOTE_LINK HEX: 00000010 ! link count changed
39 CONSTANT: NOTE_RENAME HEX: 00000020 ! vnode was renamed
40 CONSTANT: NOTE_REVOKE HEX: 00000040 ! vnode access was revoked
42 CONSTANT: NOTE_EXIT HEX: 80000000 ! process exited
43 CONSTANT: NOTE_FORK HEX: 40000000 ! process forked
44 CONSTANT: NOTE_EXEC HEX: 20000000 ! process exec'd
45 CONSTANT: NOTE_PCTRLMASK HEX: f0000000 ! mask for hint bits
46 CONSTANT: NOTE_PDATAMASK HEX: 000fffff ! mask for pid
48 CONSTANT: NOTE_SECONDS HEX: 00000001 ! data is seconds
49 CONSTANT: NOTE_USECONDS HEX: 00000002 ! data is microseconds
50 CONSTANT: NOTE_NSECONDS HEX: 00000004 ! data is nanoseconds
51 CONSTANT: NOTE_ABSOLUTE HEX: 00000008 ! absolute timeout
53 CONSTANT: NOTE_TRACK HEX: 00000001 ! follow across forks
54 CONSTANT: NOTE_TRACKERR HEX: 00000002 ! could not track child
55 CONSTANT: NOTE_CHILD HEX: 00000004 ! am a child process