From 0276aab2cd3ece73fc8141fbf33634ec48a3a048 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Wed, 6 Oct 2010 23:28:03 +0900
Subject: [PATCH] Bindings.APR.URI

---
 Bindings/APR/URI.hsc    | 59 +++++++++++++++++++++++++++++++++++++++++
 bindings-apr-util.cabal |  1 +
 2 files changed, 60 insertions(+)
 create mode 100644 Bindings/APR/URI.hsc

diff --git a/Bindings/APR/URI.hsc b/Bindings/APR/URI.hsc
new file mode 100644
index 0000000..48a102c
--- /dev/null
+++ b/Bindings/APR/URI.hsc
@@ -0,0 +1,59 @@
+#include <bindings.dsl.h>
+#include <apr_uri.h>
+
+module Bindings.APR.URI where
+#strict_import
+import Bindings.APR.ErrNo
+import Bindings.APR.Network.IO
+import Bindings.APR.Pools
+
+#num APR_URI_FTP_DEFAULT_PORT
+#num APR_URI_SSH_DEFAULT_PORT
+#num APR_URI_TELNET_DEFAULT_PORT
+#num APR_URI_GOPHER_DEFAULT_PORT
+#num APR_URI_HTTP_DEFAULT_PORT
+#num APR_URI_POP_DEFAULT_PORT
+#num APR_URI_NNTP_DEFAULT_PORT
+#num APR_URI_IMAP_DEFAULT_PORT
+#num APR_URI_PROSPERO_DEFAULT_PORT
+#num APR_URI_WAIS_DEFAULT_PORT
+#num APR_URI_LDAP_DEFAULT_PORT
+#num APR_URI_HTTPS_DEFAULT_PORT
+#num APR_URI_RTSP_DEFAULT_PORT
+#num APR_URI_SNEWS_DEFAULT_PORT
+#num APR_URI_ACAP_DEFAULT_PORT
+#num APR_URI_NFS_DEFAULT_PORT
+#num APR_URI_TIP_DEFAULT_PORT
+#num APR_URI_SIP_DEFAULT_PORT
+
+#num APR_URI_UNP_OMITSITEPART
+#num APR_URI_UNP_OMITUSER
+#num APR_URI_UNP_OMITPASSWORD
+#num APR_URI_UNP_OMITUSERINFO
+#num APR_URI_UNP_REVEALPASSWORD
+#num APR_URI_UNP_OMITPATHINFO
+#num APR_URI_UNP_OMITQUERY
+
+#starttype struct apr_uri_t
+#  field scheme  , Ptr CChar
+#  field hostinfo, Ptr CChar
+#  field user    , Ptr CChar
+#  field password, Ptr CChar
+#  field hostname, Ptr CChar
+#  field port_str, Ptr CChar
+#  field path    , Ptr CChar
+#  field query   , Ptr CChar
+#  field fragment, Ptr CChar
+-- FIXME: struct hostent
+-- #  field hostent , Ptr <hostent>
+#  field port    , <apr_port_t>
+-- FIXME: bit fields
+-- #  field is_initialized, CUInt
+-- #  field dns_looked_up , CUInt
+-- #  field dns_resolved  , CUInt
+#stoptype
+
+#ccall apr_uri_port_of_scheme, Ptr CChar -> IO <apr_port_t>
+#ccall apr_uri_unparse       , Ptr <apr_pool_t> -> Ptr <apr_uri_t> -> CUInt -> IO (Ptr CChar)
+#ccall apr_uri_parse         , Ptr <apr_pool_t> -> Ptr CChar -> Ptr <apr_uri_t> -> IO <apr_status_t>
+#ccall apr_uri_parse_hostinfo, Ptr <apr_pool_t> -> Ptr CChar -> Ptr <apr_uri_t> -> IO <apr_status_t>
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 7595216..08809f3 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -52,6 +52,7 @@ Library
         Bindings.APR.SHA1
         Bindings.APR.StrMatch
         Bindings.APR.Thread.Pool
+        Bindings.APR.URI
         Bindings.APR.XLate
 
     C-Sources:
-- 
2.40.0