X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FURI.hsc;fp=Bindings%2FAPR%2FURI.hsc;h=48a102ca3bd622039280b717e1c9fdc26b8a66a9;hp=0000000000000000000000000000000000000000;hb=0276aab2cd3ece73fc8141fbf33634ec48a3a048;hpb=d82743b7340faff8f2d981b87bd57fdd5203723f

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>