From 13d20a43bdc325dba0ad2b0fa2cb6b59f1dc2bce Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Fri, 15 Oct 2010 22:07:19 +0900
Subject: [PATCH 1/1] CFBase.h

---
 Bindings/CoreFoundation/CFBase.hsc | 66 ++++++++++++++++++++++++++++++
 bindings-CoreFoundation.cabal      |  9 +---
 cbits/helper_CFBase.c              | 12 ++++++
 3 files changed, 80 insertions(+), 7 deletions(-)
 create mode 100644 cbits/helper_CFBase.c

diff --git a/Bindings/CoreFoundation/CFBase.hsc b/Bindings/CoreFoundation/CFBase.hsc
index be6d4a7..915baa3 100644
--- a/Bindings/CoreFoundation/CFBase.hsc
+++ b/Bindings/CoreFoundation/CFBase.hsc
@@ -91,3 +91,69 @@ module Bindings.CoreFoundation.CFBase where
 #num       kCFCompareEqualTo
 #num       kCFCompareGreaterThan
 #synonym_t CFComparisonResult, <CFIndex>
+
+#callback CFComparatorFunction, Ptr () -> Ptr () -> Ptr () -> IO <CFComparisonResult>
+
+#num kCFNotFound
+
+#starttype CFRange
+#  field location, <CFIndex>
+#  field length  , <CFIndex>
+#stoptype
+
+#if MAC_OS_X_VERSION_10_2 <= MAC_OS_X_VERSION_MAX_ALLOWED
+#  opaque_t  __CFNull
+#  synonym_t CFNullRef      , Ptr <__CFNull>
+#  ccall     CFNullGetTypeID, IO <CFTypeID>
+#  cinline   kCFNull        , IO <CFNullRef>
+#endif
+
+#opaque_t  __CFAllocator
+#synonym_t CFAllocatorRef           , Ptr <__CFAllocator>
+#cinline   kCFAllocatorDefault      , IO <CFAllocatorRef>
+#cinline   kCFAllocatorSystemDefault, IO <CFAllocatorRef>
+#cinline   kCFAllocatorMalloc       , IO <CFAllocatorRef>
+#cinline   kCFAllocatorMallocZone   , IO <CFAllocatorRef>
+#cinline   kCFAllocatorNull         , IO <CFAllocatorRef>
+#cinline   kCFAllocatorUseContext   , IO <CFAllocatorRef>
+
+#callback CFAllocatorRetainCallBack         , Ptr () -> IO (Ptr ())
+#callback CFAllocatorReleaseCallBack        , Ptr () -> IO ()
+#callback CFAllocatorCopyDescriptionCallBack, Ptr () -> IO <CFStringRef>
+#callback CFAllocatorAllocateCallBack       , <CFIndex> -> <CFOptionFlags> -> Ptr () -> IO (Ptr ())
+#callback CFAllocatorReallocateCallBack     , Ptr () -> <CFIndex> -> <CFOptionFlags> -> Ptr () -> IO (Ptr ())
+#callback CFAllocatorDeallocateCallBack     , Ptr () -> Ptr () -> IO ()
+#callback CFAllocatorPreferredSizeCallBack  , <CFIndex> -> <CFOptionFlags> -> Ptr () -> IO <CFIndex>
+
+#starttype CFAllocatorContext
+#  field version        , <CFIndex>
+#  field info           , Ptr ()
+#  field retain         , <CFAllocatorRetainCallBack>
+#  field release        , <CFAllocatorReleaseCallBack>
+#  field copyDescription, <CFAllocatorCopyDescriptionCallBack>
+#  field allocate       , <CFAllocatorAllocateCallBack>
+#  field reallocate     , <CFAllocatorReallocateCallBack>
+#  field deallocate     , <CFAllocatorDeallocateCallBack>
+#  field preferredSize  , <CFAllocatorPreferredSizeCallBack>
+#stoptype
+
+#ccall CFAllocatorGetTypeID , IO <CFTypeID>
+#ccall CFAllocatorSetDefault, <CFAllocatorRef> -> IO ()
+#ccall CFAllocatorGetDefault, IO <CFAllocatorRef>
+#ccall CFAllocatorCreate    , <CFAllocatorRef> -> Ptr <CFAllocatorContext> -> IO <CFAllocatorRef>
+#ccall CFAllocatorAllocate  , <CFAllocatorRef> -> <CFIndex> -> <CFOptionFlags> -> IO (Ptr ())
+#ccall CFAllocatorReallocate, <CFAllocatorRef> -> Ptr () -> <CFIndex> -> <CFOptionFlags> -> IO (Ptr ())
+#ccall CFAllocatorDeallocate, <CFAllocatorRef> -> Ptr () -> IO ()
+#ccall CFAllocatorGetPreferredSizeForSize, <CFAllocatorRef> -> <CFIndex> -> <CFOptionFlags> -> IO <CFIndex>
+#ccall CFAllocatorGetContext, <CFAllocatorRef> -> Ptr <CFAllocatorContext> -> IO ()
+
+#ccall CFGetTypeID      , <CFTypeRef> -> IO <CFTypeID>
+#ccall CFCopyTypeIDDescription, <CFTypeID> -> IO <CFStringRef>
+#ccall CFRetain         , <CFTypeRef> -> IO <CFTypeRef>
+#ccall CFRelease        , <CFTypeRef> -> IO ()
+#ccall CFGetRetainCount , <CFTypeRef> -> IO <CFIndex>
+#ccall CFMakeCollectable, <CFTypeRef> -> IO <CFTypeRef>
+#ccall CFEqual          , <CFTypeRef> -> <CFTypeRef> -> IO <Boolean>
+#ccall CFHash           , <CFTypeRef> -> IO <CFHashCode>
+#ccall CFCopyDescription, <CFTypeRef> -> IO <CFStringRef>
+#ccall CFGetAllocator   , <CFTypeRef> -> IO <CFAllocatorRef>
diff --git a/bindings-CoreFoundation.cabal b/bindings-CoreFoundation.cabal
index e02eed2..3691af7 100644
--- a/bindings-CoreFoundation.cabal
+++ b/bindings-CoreFoundation.cabal
@@ -31,13 +31,8 @@ Library
     Exposed-Modules:
         Bindings.CoreFoundation.CFBase
 
---    C-Sources:
---        cbits/helper_aiff.c
---        cbits/helper_files.c
---        cbits/helper_mactypes.c
-
---    CC-Options:
---        -fpascal-strings
+    C-Sources:
+        cbits/helper_CFBase.c
 
     Extensions:
         ForeignFunctionInterface
diff --git a/cbits/helper_CFBase.c b/cbits/helper_CFBase.c
new file mode 100644
index 0000000..5fb8abc
--- /dev/null
+++ b/cbits/helper_CFBase.c
@@ -0,0 +1,12 @@
+#include <bindings.cmacros.h>
+#include <CoreFoundation/CFBase.h>
+
+#if MAC_OS_X_VERSION_10_2 <= MAC_OS_X_VERSION_MAX_ALLOWED
+BC_INLINE_(kCFNull, CFNullRef)
+#endif
+
+BC_INLINE_(kCFAllocatorDefault      , CFAllocatorRef)
+BC_INLINE_(kCFAllocatorSystemDefault, CFAllocatorRef)
+BC_INLINE_(kCFAllocatorMalloc       , CFAllocatorRef)
+BC_INLINE_(kCFAllocatorNull         , CFAllocatorRef)
+BC_INLINE_(kCFAllocatorUseContext   , CFAllocatorRef)
-- 
2.40.0