X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FXLate.hsc;fp=Bindings%2FAPR%2FXLate.hsc;h=415886f39e0d54c57ba34a12cff6b7251f1bd0ab;hp=0000000000000000000000000000000000000000;hb=468cc5fe8177261bc46c989e885ac96ab40a2345;hpb=c2eb5e1556aaff2501098944197ee80f0a15da14

diff --git a/Bindings/APR/XLate.hsc b/Bindings/APR/XLate.hsc
new file mode 100644
index 0000000..415886f
--- /dev/null
+++ b/Bindings/APR/XLate.hsc
@@ -0,0 +1,25 @@
+#include <bindings.dsl.h>
+#include <apr_xlate.h>
+
+module Bindings.APR.XLate where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+
+#opaque_t apr_xlate_t
+
+#ccall apr_xlate_open, Ptr (Ptr <apr_xlate_t>) -> Ptr CChar -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
+
+#pointer APR_DEFAULT_CHARSET
+#pointer APR_LOCALE_CHARSET
+
+#ccall apr_xlate_sb_get     , Ptr <apr_xlate_t> -> Ptr CInt -> IO <apr_status_t>
+#ccall apr_xlate_conv_buffer, Ptr <apr_xlate_t> -> Ptr CChar -> Ptr <apr_size_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
+
+#if APR_NOT_DONE_YET
+#  ccall apr_xlate_conv_char, Ptr <apr_xlate_t> -> CChar -> CChar -> IO <apr_status_t>
+#endif
+
+#ccall apr_xlate_conv_byte  , Ptr <apr_xlate_t> -> CUChar -> IO <apr_int32_t>
+#ccall apr_xlate_close      , Ptr <apr_xlate_t> -> IO <apr_status_t>