Bindings.APR.URI

diff --git a/Bindings/APR/URI.hsc b/Bindings/APR/URI.hsc
new file mode 100644 (file)
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 75952166f82de8247c96f4a8b941607eb38da84e..08809f3ffede85829b182159d24d46671a69286d 100644 (file)
--- 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: