Bindings.APR.Version

diff --git a/Bindings/APR/Version.hsc b/Bindings/APR/Version.hsc
new file mode 100644 (file)
index 0000000..6f00153
--- /dev/null
+++ b/Bindings/APR/Version.hsc
@@ -0,0 +1,28 @@
+#include <bindings.dsl.h>
+#include <apr_version.h>
+
+module Bindings.APR.Version where
+#strict_import
+
+#num APR_MAJOR_VERSION
+#num APR_MINOR_VERSION
+#num APR_PATCH_VERSION
+
+#cinline APR_VERSION_AT_LEAST, CInt -> CInt -> CInt -> IO CInt
+
+#pointer APR_IS_DEV_STRING
+#pointer APR_VERSION_STRING
+
+#if !defined(APR_VERSION_ONLY)
+
+#  starttype apr_version_t
+#    field major , CInt
+#    field minor , CInt
+#    field patch , CInt
+#    field is_dev, CInt
+#  stoptype
+
+#  ccall apr_version, Ptr <apr_version_t> -> IO ()
+#  ccall apr_version_string, IO (Ptr CChar)
+
+#endif
\ No newline at end of file

diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index 2d556d0a0e4f97e2bb36ca1b47d6786710e16c1f..752bcb2e179a62bac207a0357fbefb460c3af4ef 100644 (file)
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -63,6 +63,7 @@ Library
         Bindings.APR.Thread.RWLock
         Bindings.APR.Time
         Bindings.APR.User
+        Bindings.APR.Version
         Bindings.APR.Want
 
     C-Sources:
@@ -76,6 +77,7 @@ Library
         cbits/helper_apr_time.c
         cbits/helper_apr_thread_proc.c
         cbits/helper_apr_user.c
+        cbits/helper_apr_version.c
 
     Extensions:
         ForeignFunctionInterface

diff --git a/cbits/helper_apr_version.c b/cbits/helper_apr_version.c
new file mode 100644 (file)
index 0000000..add2bdf
--- /dev/null
+++ b/cbits/helper_apr_version.c
@@ -0,0 +1,4 @@
+#include <bindings.cmacros.h>
+#include <apr_version.h>
+
+BC_INLINE3(APR_VERSION_AT_LEAST, int, int, int, int)