X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FUUID.hsc;fp=Bindings%2FAPR%2FUUID.hsc;h=41208a8110f911c865d0a9f42dea47b30128fb50;hp=0000000000000000000000000000000000000000;hb=4296301234c048e172b7338c24d420606fb3788e;hpb=0276aab2cd3ece73fc8141fbf33634ec48a3a048

diff --git a/Bindings/APR/UUID.hsc b/Bindings/APR/UUID.hsc
new file mode 100644
index 0000000..41208a8
--- /dev/null
+++ b/Bindings/APR/UUID.hsc
@@ -0,0 +1,16 @@
+#include <bindings.dsl.h>
+#include <apr_uuid.h>
+
+module Bindings.APR.UUID where
+#strict_import
+import Bindings.APR.ErrNo
+
+#starttype apr_uuid_t
+#  array_field data, CUChar
+#stoptype
+
+#num APR_UUID_FORMATTED_LENGTH
+
+#ccall apr_uuid_get   , Ptr <apr_uuid_t> -> IO ()
+#ccall apr_uuid_format, Ptr CChar -> Ptr <apr_uuid_t> -> IO ()
+#ccall apr_uuid_parse , Ptr <apr_uuid_t> -> Ptr CChar -> IO <apr_status_t>