basis/core-foundation/file-descriptors/file-descriptors.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.syntax kernel math.bitwise core-foundation ;
   4 IN: core-foundation.file-descriptors
   5
   6 TYPEDEF: void* CFFileDescriptorRef
   7 TYPEDEF: int CFFileDescriptorNativeDescriptor
   8 TYPEDEF: void* CFFileDescriptorCallBack
   9 TYPEDEF: void* CFFileDescriptorContext*
  10
  11 FUNCTION: CFFileDescriptorRef CFFileDescriptorCreate (
  12     CFAllocatorRef allocator,
  13     CFFileDescriptorNativeDescriptor fd,
  14     Boolean closeOnInvalidate,
  15     CFFileDescriptorCallBack callout,
  16     CFFileDescriptorContext* context
  17 ) ;
  18
  19 CONSTANT: kCFFileDescriptorReadCallBack 1
  20 CONSTANT: kCFFileDescriptorWriteCallBack 2
  21
  22 FUNCTION: void CFFileDescriptorEnableCallBacks (
  23     CFFileDescriptorRef f,
  24     CFOptionFlags callBackTypes
  25 ) ;
  26
  27 : enable-all-callbacks ( fd -- )
  28     { kCFFileDescriptorReadCallBack kCFFileDescriptorWriteCallBack } flags
  29     CFFileDescriptorEnableCallBacks ;
  30
  31 : <CFFileDescriptor> ( fd callback -- handle )
  32     [ f swap ] [ t swap ] bi* f CFFileDescriptorCreate
  33     [ "CFFileDescriptorCreate failed" throw ] unless* ;