1 #include <bindings.dsl.h>
4 module Bindings.APR.URI where
6 import Bindings.APR.ErrNo
7 import Bindings.APR.Network.IO
8 import Bindings.APR.Pools
10 #num APR_URI_FTP_DEFAULT_PORT
11 #num APR_URI_SSH_DEFAULT_PORT
12 #num APR_URI_TELNET_DEFAULT_PORT
13 #num APR_URI_GOPHER_DEFAULT_PORT
14 #num APR_URI_HTTP_DEFAULT_PORT
15 #num APR_URI_POP_DEFAULT_PORT
16 #num APR_URI_NNTP_DEFAULT_PORT
17 #num APR_URI_IMAP_DEFAULT_PORT
18 #num APR_URI_PROSPERO_DEFAULT_PORT
19 #num APR_URI_WAIS_DEFAULT_PORT
20 #num APR_URI_LDAP_DEFAULT_PORT
21 #num APR_URI_HTTPS_DEFAULT_PORT
22 #num APR_URI_RTSP_DEFAULT_PORT
23 #num APR_URI_SNEWS_DEFAULT_PORT
24 #num APR_URI_ACAP_DEFAULT_PORT
25 #num APR_URI_NFS_DEFAULT_PORT
26 #num APR_URI_TIP_DEFAULT_PORT
27 #num APR_URI_SIP_DEFAULT_PORT
29 #num APR_URI_UNP_OMITSITEPART
30 #num APR_URI_UNP_OMITUSER
31 #num APR_URI_UNP_OMITPASSWORD
32 #num APR_URI_UNP_OMITUSERINFO
33 #num APR_URI_UNP_REVEALPASSWORD
34 #num APR_URI_UNP_OMITPATHINFO
35 #num APR_URI_UNP_OMITQUERY
37 #starttype struct apr_uri_t
38 # field scheme , Ptr CChar
39 # field hostinfo, Ptr CChar
40 # field user , Ptr CChar
41 # field password, Ptr CChar
42 # field hostname, Ptr CChar
43 # field port_str, Ptr CChar
44 # field path , Ptr CChar
45 # field query , Ptr CChar
46 # field fragment, Ptr CChar
47 -- FIXME: struct hostent
48 -- # field hostent , Ptr <hostent>
49 # field port , <apr_port_t>
51 -- # field is_initialized, CUInt
52 -- # field dns_looked_up , CUInt
53 -- # field dns_resolved , CUInt
56 #ccall apr_uri_port_of_scheme, Ptr CChar -> IO <apr_port_t>
57 #ccall apr_uri_unparse , Ptr <apr_pool_t> -> Ptr <apr_uri_t> -> CUInt -> IO (Ptr CChar)
58 #ccall apr_uri_parse , Ptr <apr_pool_t> -> Ptr CChar -> Ptr <apr_uri_t> -> IO <apr_status_t>
59 #ccall apr_uri_parse_hostinfo, Ptr <apr_pool_t> -> Ptr CChar -> Ptr <apr_uri_t> -> IO <apr_status_t>