bindings-DSL 1.0.11 → 1.0.12

raw patch · 2 files changed

+15/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• bindings-DSL.cabal +1/−1
• bindings.dsl.h +14/−5

@@ -17,7 +17,7 @@   .   This package contains no Haskell code, only C header files   designed for hsc2hs.-version: 1.0.11+version: 1.0.12 license: BSD3 license-file: LICENSE maintainer: Maurício C. Antunes <mauricio.antunes@gmail.com>

@@ -101,8 +101,11 @@     bc_wordptr(name);printf("\n"); \     bc_varid(# name);printf(" :: FunPtr a\n"); \ -#define hsc_ccall(name,type) \-    hsc_callconv(name,ccall,type) \+#ifdef BINDINGS_STDCALLCONV+#define hsc_ccall(name,type) hsc_callconv(name,stdcall,type)+#else+#define hsc_ccall(name,type) hsc_callconv(name,ccall,type)+#endif  #define hsc_callconv(name,conv,type) \     printf("foreign import "# conv" \"%s\" ",# name); \@@ -150,14 +153,20 @@     bc_typemarkup(# type); \     printf("\n"); \ -#define hsc_callback(name,type) \+#ifdef BINDINGS_STDCALLCONV+#define hsc_callback(name,type) hsc_callbackconv(name,stdcall,type)+#else+#define hsc_callback(name,type) hsc_callbackconv(name,ccall,type)+#endif++#define hsc_callbackconv(name,conv,type) \     printf("type ");bc_conid(# name);printf(" = FunPtr ("); \     bc_typemarkup(# type);printf(")\n"); \-    printf("foreign import ccall \"wrapper\" "); \+    printf("foreign import "# conv" \"wrapper\" "); \     bc_wrapper(# name);printf("\n"); \     printf("  :: (");bc_typemarkup(# type); \     printf(") -> IO ");bc_conid(# name);printf("\n"); \-    printf("foreign import ccall \"dynamic\" "); \+    printf("foreign import "# conv" \"dynamic\" "); \     bc_dynamic(# name);printf("\n"); \     printf("  :: ");bc_conid(# name); \     printf(" -> (");bc_typemarkup(# type);printf(")\n"); \