From: PHO <pho@cielonegro.org>
Date: Thu, 19 Aug 2010 12:10:00 +0000 (+0900)
Subject: Bindings.APR.GetOpt
X-Git-Tag: RELEASE-0.1~23
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=commitdiff_plain;h=794d2d4643eb43a9ef18025fb1537388dd803310

Bindings.APR.GetOpt
---

diff --git a/Bindings/APR/GetOpt.hsc b/Bindings/APR/GetOpt.hsc
new file mode 100644
index 0000000..2b9c768
--- /dev/null
+++ b/Bindings/APR/GetOpt.hsc
@@ -0,0 +1,36 @@
+#include <bindings.dsl.h>
+#include <apr_getopt.h>
+
+module Bindings.APR.GetOpt where
+#strict_import
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+
+-- apr_getopt_err_fn_t takes varargs so it can't be declared as FunPtr.
+#opaque_t apr_getopt_err_fn_t
+
+#starttype struct apr_getopt_t
+#  field cont  , Ptr <apr_pool_t>
+#  field errfn , Ptr <apr_getopt_err_fn_t>
+#  field errarg, Ptr ()
+#  field ind   , CInt
+#  field opt   , CInt
+#  field reset , CInt
+#  field argc  , CInt
+#  field argv  , Ptr (Ptr CChar)
+#  field place , Ptr CChar
+#  field interleave, CInt
+#  field skip_start, CInt
+#  field skip_end  , CInt
+#stoptype
+
+#starttype struct apr_getopt_option_t
+#  field name       , Ptr CChar
+#  field optch      , CInt
+#  field has_arg    , CInt
+#  field description, Ptr CChar
+#stoptype
+
+#ccall apr_getopt_init, Ptr (Ptr <apr_getopt_t>) -> Ptr <apr_pool_t> -> CInt -> Ptr (Ptr CChar) -> IO <apr_status_t>
+#ccall apr_getopt     , Ptr <apr_getopt_t> -> Ptr CChar -> Ptr CChar -> Ptr (Ptr CChar) -> IO <apr_status_t>
+#ccall apr_getopt_long, Ptr <apr_getopt_t> -> Ptr <apr_getopt_option_t> -> Ptr CInt -> Ptr (Ptr CChar) -> IO <apr_status_t>
diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index 6b312d1..3969e4b 100644
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -41,6 +41,7 @@ Library
         Bindings.APR.File.Types
         Bindings.APR.FNMatch
         Bindings.APR.General
+        Bindings.APR.GetOpt
         Bindings.APR.Pools
         Bindings.APR.Proc.Mutex
         Bindings.APR.Tables