steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.file-descriptors: some cleanup.

db4
John Benediktsson 2014-06-26 13:49:57 -07:00
parent 0c7a5b7c84
commit b8ac661ce8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/core-foundation/file-descriptors/file-descriptors.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.syntax kernel math.bitwise core-foundation USING: alien.c-types alien.syntax core-foundation kernel
literals ; literals ;
IN: core-foundation.file-descriptors IN: core-foundation.file-descriptors
@ -19,16 +19,18 @@ FUNCTION: CFFileDescriptorRef CFFileDescriptorCreate (
CONSTANT: kCFFileDescriptorReadCallBack 1 CONSTANT: kCFFileDescriptorReadCallBack 1
CONSTANT: kCFFileDescriptorWriteCallBack 2 CONSTANT: kCFFileDescriptorWriteCallBack 2
FUNCTION: void CFFileDescriptorEnableCallBacks ( FUNCTION: void CFFileDescriptorEnableCallBacks (
CFFileDescriptorRef f, CFFileDescriptorRef f,
CFOptionFlags callBackTypes CFOptionFlags callBackTypes
) ; ) ;
: enable-all-callbacks ( fd -- ) : enable-all-callbacks ( fd -- )
flags{ kCFFileDescriptorReadCallBack kCFFileDescriptorWriteCallBack } flags{
CFFileDescriptorEnableCallBacks ; inline kCFFileDescriptorReadCallBack
kCFFileDescriptorWriteCallBack
} CFFileDescriptorEnableCallBacks ; inline
: <CFFileDescriptor> ( fd callback -- handle ) : <CFFileDescriptor> ( fd callback -- handle )
[ f swap ] [ t swap ] bi* f CFFileDescriptorCreate [ f ] 2dip [ t ] dip f CFFileDescriptorCreate
[ "CFFileDescriptorCreate failed" throw ] unless* ; [ "CFFileDescriptorCreate failed" throw ] unless* ;