From 24b724830db91f5172a00369e85eca146fb1d090 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sat, 21 Aug 2010 14:43:18 +0900
Subject: [PATCH] Bindings.APR.Strings

---
 Bindings/APR/Strings.hsc | 33 +++++++++++++++++++++++++++++++++
 bindings-apr.cabal       |  1 +
 2 files changed, 34 insertions(+)
 create mode 100644 Bindings/APR/Strings.hsc

diff --git a/Bindings/APR/Strings.hsc b/Bindings/APR/Strings.hsc
new file mode 100644
index 0000000..86bcf04
--- /dev/null
+++ b/Bindings/APR/Strings.hsc
@@ -0,0 +1,33 @@
+#include <bindings.dsl.h>
+#include <apr_shm.h>
+
+module Bindings.APR.Strings where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+import Bindings.APR.Want
+
+#ccall apr_strnatcmp    , Ptr CChar -> Ptr CChar -> IO CInt
+#ccall apr_strnatcasecmp, Ptr CChar -> Ptr CChar -> IO CInt
+#ccall apr_pstrdup      , Ptr <apr_pool_t> -> Ptr CChar -> IO (Ptr CChar)
+#ccall apr_pstrmemdup   , Ptr <apr_pool_t> -> Ptr CChar -> <apr_size_t> -> IO (Ptr CChar)
+#ccall apr_pstrndup     , Ptr <apr_pool_t> -> Ptr CChar -> <apr_size_t> -> IO (Ptr CChar)
+#ccall apr_pmemdup      , Ptr <apr_pool_t> -> Ptr () -> <apr_size_t> -> IO (Ptr ())
+-- FIXME: apr_pstrcat
+#ccall apr_pstrcatv     , Ptr <apr_pool_t> -> Ptr <iovec> -> <apr_size_t> -> Ptr <apr_size_t> -> IO (Ptr CChar)
+-- FIXME: apr_pvsprintf
+-- FIXME: apr_psprintf
+#ccall apr_cpystrn         , Ptr CChar -> Ptr CChar -> <apr_size_t> -> IO (Ptr CChar)
+#ccall apr_collapse_spaces , Ptr CChar -> Ptr CChar -> IO (Ptr CChar)
+#ccall apr_tokenize_to_argv, Ptr CChar -> Ptr (Ptr (Ptr CChar)) -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#ccall apr_strtok          , Ptr CChar -> Ptr CChar -> Ptr (Ptr CChar) -> IO (Ptr CChar)
+-- FIXME: apr_snprintf
+-- FIXME: apr_vsnprintf
+#ccall apr_itoa         , Ptr <apr_pool_t> -> CInt -> IO (Ptr CChar)
+#ccall apr_ltoa         , Ptr <apr_pool_t> -> CLong -> IO (Ptr CChar)
+#ccall apr_off_t_toa    , Ptr <apr_pool_t> -> <apr_off_t> -> IO (Ptr CChar)
+#ccall apr_strtoff      , Ptr <apr_off_t> -> Ptr CChar -> Ptr (Ptr CChar) -> CInt -> IO <apr_status_t>
+#ccall apr_strtoi64     , Ptr CChar -> Ptr (Ptr CChar) -> CInt -> IO <apr_int64_t>
+#ccall apr_atoi64       , Ptr CChar -> IO <apr_int64_t>
+#ccall apr_strfsize     , <apr_off_t> -> Ptr CChar -> IO (Ptr CChar)
diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index 81059fc..cbc3d4e 100644
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -54,6 +54,7 @@ Library
         Bindings.APR.Random
         Bindings.APR.Shm
         Bindings.APR.Signal
+        Bindings.APR.Strings
         Bindings.APR.Tables
         Bindings.APR.Thread.Mutex
         Bindings.APR.Thread.Proc
-- 
2.40.0