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
6 TYPEDEF: void* CFFileDescriptorRef
7 TYPEDEF: int CFFileDescriptorNativeDescriptor
8 TYPEDEF: void* CFFileDescriptorCallBack
9 TYPEDEF: void* CFFileDescriptorContext*
11 FUNCTION: CFFileDescriptorRef CFFileDescriptorCreate (
12 CFAllocatorRef allocator,
13 CFFileDescriptorNativeDescriptor fd,
14 Boolean closeOnInvalidate,
15 CFFileDescriptorCallBack callout,
16 CFFileDescriptorContext* context
19 CONSTANT: kCFFileDescriptorReadCallBack 1
20 CONSTANT: kCFFileDescriptorWriteCallBack 2
22 FUNCTION: void CFFileDescriptorEnableCallBacks (
23 CFFileDescriptorRef f,
24 CFOptionFlags callBackTypes
27 : enable-all-callbacks ( fd -- )
28 { kCFFileDescriptorReadCallBack kCFFileDescriptorWriteCallBack } flags
29 CFFileDescriptorEnableCallBacks ;
31 : <CFFileDescriptor> ( fd callback -- handle )
32 [ f swap ] [ t swap ] bi* f CFFileDescriptorCreate
33 [ "CFFileDescriptorCreate failed" throw ] unless* ;