basis/io/unix/bsd/bsd.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: io.unix.bsd
   4 USING: namespaces system kernel accessors assocs continuations
   5 unix io.backend io.unix.backend io.unix.select ;
   6
   7 M: bsd init-io ( -- )
   8     <select-mx> mx set-global ;
   9 !     <kqueue-mx> kqueue-mx set-global
  10 !     kqueue-mx get-global <mx-port> <mx-task>
  11 !     dup io-task-fd
  12 !     [ mx get-global reads>> set-at ]
  13 !     [ mx get-global writes>> set-at ] 2bi ;
  14
  15 ! M: bsd (monitor) ( path recursive? mailbox -- )
  16 !     swap [ "Recursive kqueue monitors not supported" throw ] when
  17 !     <vnode-monitor> ;