diff --git a/Bindings/APR/AnyLock.hsc b/Bindings/APR/AnyLock.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/AnyLock.hsc @@ -0,0 +1,32 @@ +#include +#include + +module Bindings.APR.AnyLock where +#strict_import +import Bindings.APR.ErrNo +import Bindings.APR.Proc.Mutex +import Bindings.APR.Thread.Mutex +import Bindings.APR.Thread.RWLock + +#synonym_t tm_lock, CInt +#num apr_anylock_none +#num apr_anylock_procmutex +#num apr_anylock_readlock +#num apr_anylock_writelock + +#starttype union apr_anylock_u_t +# union_field pm, Ptr +# if APR_HAS_THREADS +# union_field tm, Ptr +# union_field rw, Ptr +# endif +#stoptype + +#starttype struct apr_anylock_t +#field type, +#field lock, +#stoptype + +#cinline APR_ANYLOCK_LOCK , Ptr -> IO +#cinline APR_ANYLOCK_TRYLOCK, Ptr -> IO +#cinline APR_ANYLOCK_UNLOCK , Ptr -> IO diff --git a/Bindings/APR/Base64.hsc b/Bindings/APR/Base64.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/Base64.hsc @@ -0,0 +1,13 @@ +#include +#include + +module Bindings.APR.Base64 where +#strict_import + +#ccall apr_base64_encode_len , CInt -> IO CInt +#ccall apr_base64_encode , Ptr CChar -> Ptr CChar -> CInt -> IO CInt +#ccall apr_base64_encode_binary, Ptr CChar -> Ptr CUChar -> CInt -> IO CInt +#ccall apr_base64_decode_len , Ptr CChar -> IO CInt +#ccall apr_base64_decode , Ptr CChar -> Ptr CChar -> IO CInt +#ccall apr_base64_decode_binary, Ptr CUChar -> Ptr CChar -> IO CInt + diff --git a/Bindings/APR/Buckets.hsc b/Bindings/APR/Buckets.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/Buckets.hsc @@ -0,0 +1,217 @@ +#include +#include +#include + +module Bindings.APR.Buckets where +#strict_import +import Bindings.APR +import Bindings.APR.Allocator.Types +import Bindings.APR.ErrNo +import Bindings.APR.File.Types +import Bindings.APR.MMap +import Bindings.APR.Network.IO +import Bindings.APR.Pools +import Bindings.APR.Want + +#num APR_BUCKET_BUFF_SIZE + +#integral_t apr_read_type_e +#num APR_BLOCK_READ +#num APR_NONBLOCK_READ + +#opaque_t apr_bucket_alloc_t + +#num APR_BUCKET_DATA +#num APR_BUCKET_METADATA +#starttype struct apr_bucket_type_t +# field name , Ptr CChar +# field num_func , CInt +# field is_metadata, CInt +# field destroy , FunPtr (Ptr () -> IO ()) +# field read , FunPtr (Ptr -> Ptr (Ptr CChar) -> Ptr -> -> IO ) +# field setaside , FunPtr (Ptr -> Ptr -> IO ) +# field split , FunPtr (Ptr -> -> IO ) +# field copy , FunPtr (Ptr -> Ptr (Ptr ) -> IO ) +#stoptype + +#starttype struct apr_bucket +# apr_ring_entry_field link, +# field type , Ptr +# field length, +# field start , +# field data , Ptr () +# field free , FunPtr (Ptr () -> IO ()) +# field list , Ptr +#stoptype + +#apr_ring_head_t apr_bucket_list, +#starttype struct apr_bucket_brigade +# field p , Ptr +# field list , +# field bucket_alloc, Ptr +#stoptype + +#callback apr_brigade_flush, Ptr -> Ptr () -> IO + +#cinline APR_BRIGADE_CHECK_CONSISTENCY, Ptr -> IO () +#cinline APR_BUCKET_CHECK_CONSISTENCY , Ptr -> IO () + +#cinline APR_BRIGADE_SENTINEL , Ptr -> IO (Ptr ) +#cinline APR_BRIGADE_EMPTY , Ptr -> IO CInt +#cinline APR_BRIGADE_FIRST , Ptr -> IO (Ptr ) +#cinline APR_BRIGADE_LAST , Ptr -> IO (Ptr ) +#cinline APR_BRIGADE_INSERT_HEAD, Ptr -> Ptr -> IO () +#cinline APR_BRIGADE_INSERT_TAIL, Ptr -> Ptr -> IO () +#cinline APR_BRIGADE_CONCAT , Ptr -> Ptr -> IO () +#cinline APR_BRIGADE_PREPEND , Ptr -> Ptr -> IO () + +#cinline APR_BUCKET_INSERT_BEFORE, Ptr -> Ptr -> IO () +#cinline APR_BUCKET_INSERT_AFTER , Ptr -> Ptr -> IO () +#cinline APR_BUCKET_NEXT , Ptr -> IO (Ptr ) +#cinline APR_BUCKET_PREV , Ptr -> IO (Ptr ) +#cinline APR_BUCKET_REMOVE , Ptr -> IO () +#cinline APR_BUCKET_INIT , Ptr -> IO () +#cinline APR_BUCKET_IS_METADATA , Ptr -> IO CInt +#cinline APR_BUCKET_IS_FLUSH , Ptr -> IO CInt +#cinline APR_BUCKET_IS_EOS , Ptr -> IO CInt +#cinline APR_BUCKET_IS_FILE , Ptr -> IO CInt +#cinline APR_BUCKET_IS_PIPE , Ptr -> IO CInt +#cinline APR_BUCKET_IS_SOCKET , Ptr -> IO CInt +#cinline APR_BUCKET_IS_HEAP , Ptr -> IO CInt +#cinline APR_BUCKET_IS_TRANSIENT , Ptr -> IO CInt +#cinline APR_BUCKET_IS_IMMORTAL , Ptr -> IO CInt +#if APR_HAS_MMAP +# cinline APR_BUCKET_IS_MMAP , Ptr -> IO CInt +#endif +#cinline APR_BUCKET_IS_POOL , Ptr -> IO CInt + +#starttype struct apr_bucket_refcount +# field refcount, CInt +#stoptype + +#starttype struct apr_bucket_heap +# field refcount , +# field base , Ptr CChar +# field alloc_len, +# field free_func, FunPtr (Ptr () -> IO ()) +#stoptype + +#starttype struct apr_bucket_pool +# field heap, +# field base, Ptr CChar +# field pool, Ptr +# field list, Ptr +#stoptype + +#if APR_HAS_MMAP +# starttype struct apr_bucket_mmap +# field refcount, +# field mmap , +# stoptype +#endif + +#starttype struct apr_bucket_file +# field refcount, +# field fd , Ptr +# field readpool, Ptr +# if APR_HAS_MMAP +# field can_mmap, CInt +# endif +#stoptype + +#starttype union apr_bucket_structs +# union_field b , +# union_field heap, +# union_field pool, +# if APR_HAS_MMAP +# union_field mmap, +# endif +# union_field file, +#stoptype + +#num APR_BUCKET_ALLOC_SIZE + +#ccall apr_brigade_create , Ptr -> Ptr -> IO (Ptr ) +#ccall apr_brigade_destroy , Ptr -> IO +#ccall apr_brigade_cleanup , Ptr () -> IO +#ccall apr_brigade_split_ex , Ptr -> Ptr -> Ptr -> IO (Ptr ) +#ccall apr_brigade_split , Ptr -> Ptr -> IO (Ptr ) +#ccall apr_brigade_partition , Ptr -> -> Ptr (Ptr ) -> IO +#ccall apr_brigade_length , Ptr -> CInt -> Ptr -> IO +#ccall apr_brigade_flatten , Ptr -> Ptr CChar -> Ptr -> IO +#ccall apr_brigade_pflatten , Ptr -> Ptr (Ptr CChar) -> Ptr -> Ptr -> IO +#ccall apr_brigade_split_line , Ptr -> Ptr -> -> -> IO +#ccall apr_brigade_to_iovec , Ptr -> Ptr -> Ptr CInt -> +-- FIXME: apr_brigade_to_vputstrs takes va_list +#ccall apr_brigade_write , Ptr -> -> Ptr () -> Ptr CChar -> -> IO +#ccall apr_brigade_writev , Ptr -> -> Ptr () -> Ptr -> -> IO +#ccall apr_brigade_puts , Ptr -> -> Ptr () -> Ptr CChar -> IO +#ccall apr_brigade_putc , Ptr -> -> Ptr () -> CChar -> IO +-- FIXME: apr_brigade_putstrs takes varargs +-- FIXME: apr_brigade_printf takes varargs +-- FIXME: apr_brigade_vprintf takes va_list +#ccall apr_brigade_insert_file, Ptr -> Ptr -> -> -> Ptr -> IO (Ptr ) + +#ccall apr_bucket_alloc_create , Ptr -> Ptr () +#ccall apr_bucket_alloc_create_ex, Ptr -> Ptr () +#ccall apr_bucket_alloc_destroy , Ptr -> IO () +#ccall apr_bucket_alloc , -> Ptr -> IO (Ptr ()) +#ccall apr_bucket_free , Ptr () -> IO () + +#cinline apr_bucket_destroy , Ptr -> IO () +#cinline apr_bucket_delete , Ptr -> IO () +#cinline apr_bucket_read , Ptr -> Ptr (Ptr CChar) -> Ptr -> -> IO +#cinline apr_bucket_setaside, Ptr -> Ptr -> IO +#cinline apr_bucket_split , Ptr -> -> IO +#cinline apr_bucket_copy , Ptr -> Ptr (Ptr ) -> IO + +#ccall apr_bucket_setaside_noop , Ptr -> Ptr -> IO +#ccall apr_bucket_setaside_notimpl, Ptr -> Ptr -> IO +#ccall apr_bucket_split_notimpl , Ptr -> -> IO +#ccall apr_bucket_copy_notimpl , Ptr -> Ptr (Ptr ) -> IO +#ccall apr_bucket_destroy_noop , Ptr () -> IO () + +#globalvar apr_bucket_type_flush , +#globalvar apr_bucket_type_eos , +#globalvar apr_bucket_type_file , +#globalvar apr_bucket_type_heap , +#if APR_HAS_MMAP +# globalvar apr_bucket_type_mmap , +#endif +#globalvar apr_bucket_type_pool , +#globalvar apr_bucket_type_pipe , +#globalvar apr_bucket_type_immortal , +#globalvar apr_bucket_type_transient, +#globalvar apr_bucket_type_socket , + +#ccall apr_bucket_simple_split, Ptr -> -> IO +#ccall apr_bucket_simple_copy , Ptr -> Ptr (Ptr ) -> IO + +#ccall apr_bucket_shared_make , Ptr -> Ptr () -> -> -> IO (Ptr ) +#ccall apr_bucket_shared_destroy, Ptr () -> IO CInt +#ccall apr_bucket_shared_split , Ptr -> -> IO +#ccall apr_bucket_shared_copy , Ptr -> Ptr (Ptr ) -> IO + +#ccall apr_bucket_eos_create , Ptr -> IO (Ptr ) +#ccall apr_bucket_eos_make , Ptr -> IO (Ptr ) +#ccall apr_bucket_flush_create , Ptr -> IO (Ptr ) +#ccall apr_bucket_flush_make , Ptr -> IO (Ptr ) +#ccall apr_bucket_immortal_create , Ptr CChar -> -> Ptr -> IO (Ptr ) +#ccall apr_bucket_immortal_make , Ptr -> Ptr CChar -> -> IO (Ptr ) +#ccall apr_bucket_transient_create, Ptr CChar -> -> Ptr -> IO (Ptr ) +#ccall apr_bucket_transient_make , Ptr -> Ptr CChar -> -> IO (Ptr ) +#ccall apr_bucket_heap_create , Ptr CChar -> -> FunPtr (Ptr () -> IO ()) -> Ptr -> IO (Ptr ) +#ccall apr_bucket_heap_make , Ptr -> Ptr CChar -> -> FunPtr (Ptr () -> IO ()) -> IO (Ptr ) +#ccall apr_bucket_pool_create , Ptr CChar -> -> Ptr -> Ptr -> IO (Ptr ) +#ccall apr_bucket_pool_make , Ptr -> Ptr CChar -> -> Ptr -> IO (Ptr ) +#if APR_HAS_MMAP +# ccall apr_bucket_mmap_create , Ptr -> -> -> Ptr -> IO (Ptr ) +# ccall apr_bucket_mmap_make , Ptr -> Ptr -> -> -> IO (Ptr ) +#endif +#ccall apr_bucket_socket_create , Ptr -> Ptr -> IO (Ptr ) +#ccall apr_bucket_socket_make , Ptr -> Ptr -> IO (Ptr ) +#ccall apr_bucket_pipe_create , Ptr -> Ptr -> IO (Ptr ) +#ccall apr_bucket_pipe_make , Ptr -> Ptr -> IO (Ptr ) +#ccall apr_bucket_file_create , Ptr -> -> -> Ptr -> Ptr -> IO (Ptr ) +#ccall apr_bucket_file_make , Ptr -> Ptr -> -> -> Ptr -> IO (Ptr ) +#ccall apr_bucket_file_enable_mmap, Ptr -> CInt -> IO diff --git a/Bindings/APR/DBD.hsc b/Bindings/APR/DBD.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/DBD.hsc @@ -0,0 +1,81 @@ +#include +#include + +module Bindings.APR.DBD where +#strict_import +import Bindings.APR.ErrNo +import Bindings.APR.Pools + +#integral_t apr_dbd_type_e +#num APR_DBD_TYPE_NONE +#num APR_DBD_TYPE_TINY +#num APR_DBD_TYPE_UTINY +#num APR_DBD_TYPE_SHORT +#num APR_DBD_TYPE_USHORT +#num APR_DBD_TYPE_INT +#num APR_DBD_TYPE_UINT +#num APR_DBD_TYPE_LONG +#num APR_DBD_TYPE_ULONG +#num APR_DBD_TYPE_LONGLONG +#num APR_DBD_TYPE_ULONGLONG +#num APR_DBD_TYPE_FLOAT +#num APR_DBD_TYPE_DOUBLE +#num APR_DBD_TYPE_STRING +#num APR_DBD_TYPE_TEXT +#num APR_DBD_TYPE_TIME +#num APR_DBD_TYPE_DATE +#num APR_DBD_TYPE_DATETIME +#num APR_DBD_TYPE_TIMESTAMP +#num APR_DBD_TYPE_ZTIMESTAMP +#num APR_DBD_TYPE_BLOB +#num APR_DBD_TYPE_CLOB +#num APR_DBD_TYPE_NULL + +#opaque_t apr_dbd_driver_t +#opaque_t apr_dbd_t +#opaque_t apr_dbd_transaction_t +#opaque_t apr_dbd_results_t +#opaque_t apr_dbd_row_t +#opaque_t apr_dbd_prepared_t + +#ccall apr_dbd_init , Ptr -> IO +#ccall apr_dbd_get_driver , Ptr -> Ptr CChar -> Ptr (Ptr ) -> IO +#ccall apr_dbd_open_ex , Ptr -> Ptr -> Ptr CChar -> Ptr (Ptr ) -> Ptr (Ptr CChar) -> IO +#ccall apr_dbd_open , Ptr -> Ptr -> Ptr CChar -> Ptr (Ptr ) -> IO +#ccall apr_dbd_close , Ptr -> Ptr -> IO +#ccall apr_dbd_name , Ptr -> IO (Ptr CChar) +#ccall apr_dbd_native_handle, Ptr -> Ptr -> IO (Ptr ()) +#ccall apr_dbd_check_conn , Ptr -> Ptr -> Ptr -> IO CInt +#ccall apr_dbd_set_dbname , Ptr -> Ptr -> Ptr -> Ptr CChar -> IO CInt + +#ccall apr_dbd_transaction_start, Ptr -> Ptr -> Ptr -> Ptr (Ptr ) -> IO CInt +#ccall apr_dbd_transaction_end , Ptr -> Ptr -> Ptr -> IO CInt + +#num APR_DBD_TRANSACTION_COMMIT +#num APR_DBD_TRANSACTION_ROLLBACK +#num APR_DBD_TRANSACTION_IGNORE_ERRORS + +#ccall apr_dbd_transaction_mode_get, Ptr -> Ptr -> IO CInt +#ccall apr_dbd_transaction_mode_set, Ptr -> Ptr -> CInt -> IO CInt + +#ccall apr_dbd_query , Ptr -> Ptr -> Ptr CInt -> Ptr CChar -> IO CInt +#ccall apr_dbd_select , Ptr -> Ptr -> Ptr -> Ptr (Ptr ) -> Ptr CChar -> CInt -> IO CInt +#ccall apr_dbd_num_cols , Ptr -> Ptr -> IO CInt +#ccall apr_dbd_num_tuples, Ptr -> Ptr -> IO CInt +#ccall apr_dbd_get_row , Ptr -> Ptr -> Ptr -> Ptr (Ptr ) -> CInt -> IO CInt +#ccall apr_dbd_get_entry , Ptr -> Ptr -> CInt -> IO (Ptr CChar) +#ccall apr_dbd_get_name , Ptr -> Ptr -> CInt -> IO (Ptr CChar) +#ccall apr_dbd_error , Ptr -> Ptr -> CInt -> IO (Ptr CChar) +#ccall apr_dbd_escape , Ptr -> Ptr -> Ptr CChar -> Ptr -> IO (Ptr CChar) + +#ccall apr_dbd_prepare , Ptr -> Ptr -> Ptr -> Ptr CChar -> Ptr CChar -> Ptr (Ptr ) -> IO CInt +#ccall apr_dbd_pquery , Ptr -> Ptr -> Ptr -> Ptr CInt -> Ptr -> CInt -> Ptr (Ptr CChar) -> IO CInt +#ccall apr_dbd_pselect , Ptr -> Ptr -> Ptr -> Ptr (Ptr ) -> Ptr -> CInt -> CInt -> Ptr (Ptr CChar) -> IO CInt +-- FIXME: apr_dbd_pvquery takes varargs +-- FIXME: apr_dbd_pvselect takes varargs +#ccall apr_dbd_pbquery , Ptr -> Ptr -> Ptr -> Ptr CInt -> Ptr -> Ptr (Ptr ()) -> IO CInt +#ccall apr_dbd_pbselect, Ptr -> Ptr -> Ptr -> Ptr (Ptr ) -> Ptr -> CInt -> Ptr (Ptr ()) -> IO CInt +-- FIXME: apr_dbd_pvbquery takes varargs +-- FIXME: apr_dbd_pvbselect takes varargs + +#ccall apr_dbd_datum_get, Ptr -> Ptr -> CInt -> -> Ptr () -> IO diff --git a/Bindings/APR/DBM.hsc b/Bindings/APR/DBM.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/DBM.hsc @@ -0,0 +1,35 @@ +#include +#include + +module Bindings.APR.DBM where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.File.Info +import Bindings.APR.Pools + +#opaque_t apr_dbm_t + +#starttype apr_datum_t +# field dptr , Ptr CChar +# field dsize, +#stoptype + +#num APR_DBM_READONLY +#num APR_DBM_READWRITE +#num APR_DBM_RWCREATE +#num APR_DBM_RWTRUNC + +#ccall apr_dbm_open_ex, Ptr (Ptr ) -> Ptr CChar -> Ptr CChar -> -> -> Ptr -> IO +#ccall apr_dbm_open , Ptr (Ptr ) -> Ptr CChar -> -> -> Ptr -> IO +#ccall apr_dbm_close , Ptr -> IO () +#cinline apr_dbm_fetch , Ptr -> Ptr -> Ptr -> IO +#cinline apr_dbm_store , Ptr -> Ptr -> Ptr -> IO +#cinline apr_dbm_delete , Ptr -> Ptr -> IO +#cinline apr_dbm_exists , Ptr -> Ptr -> IO CInt +#ccall apr_dbm_firstkey, Ptr -> Ptr -> IO +#ccall apr_dbm_nextkey , Ptr -> Ptr -> IO +#cinline apr_dbm_freedatum, Ptr -> Ptr -> IO () +#ccall apr_dbm_geterror, Ptr -> Ptr CInt -> Ptr CChar -> -> IO (Ptr CChar) +#ccall apr_dbm_get_usednames_ex, Ptr -> Ptr CChar -> Ptr CChar -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO +#ccall apr_dbm_get_usednames, Ptr -> Ptr CChar -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO () diff --git a/Bindings/APR/Date.hsc b/Bindings/APR/Date.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/Date.hsc @@ -0,0 +1,12 @@ +#include +#include + +module Bindings.APR.Date where +#strict_import +import Bindings.APR.Time + +#num APR_DATE_BAD + +#ccall apr_date_checkmask , Ptr CChar -> Ptr CChar -> IO CInt +#ccall apr_date_parse_http, Ptr CChar -> IO +#ccall apr_date_parse_rfc , Ptr CChar -> IO diff --git a/Bindings/APR/Hooks.hsc b/Bindings/APR/Hooks.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/Hooks.hsc @@ -0,0 +1,22 @@ +#include +#include + +module Bindings.APR.Hooks where +#strict_import +import Bindings.APR.Pools +import Bindings.APR.Tables + +#num APR_HOOK_REALLY_FIRST +#num APR_HOOK_FIRST +#num APR_HOOK_MIDDLE +#num APR_HOOK_LAST +#num APR_HOOK_REALLY_LAST + +#globalvar apr_hook_global_pool , Ptr +#globalvar apr_hook_debug_enabled, CInt +#globalvar apr_hook_debug_current, Ptr CChar + +#ccall apr_hook_sort_register , Ptr CChar -> Ptr (Ptr ) -> IO () +#ccall apr_hook_sort_all , Ptr () +#ccall apr_hook_debug_show , Ptr CChar -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO () +#ccall apr_hook_deregister_all, Ptr () diff --git a/Bindings/APR/LDAP.hsc b/Bindings/APR/LDAP.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/LDAP.hsc @@ -0,0 +1,44 @@ +#include +#include + +module Bindings.APR.LDAP where +#strict_import + +#num APR_HAS_LDAP + +#num APR_HAS_NETSCAPE_LDAPSDK +#num APR_HAS_SOLARIS_LDAPSDK +#num APR_HAS_NOVELL_LDAPSDK +#num APR_HAS_MOZILLA_LDAPSDK +#num APR_HAS_OPENLDAP_LDAPSDK +#num APR_HAS_MICROSOFT_LDAPSDK +#num APR_HAS_TIVOLI_LDAPSDK +#num APR_HAS_ZOS_LDAPSDK +#num APR_HAS_OTHER_LDAPSDK + +#if APR_HAS_LDAP + +# num APR_HAS_LDAP_SSL +# num APR_HAS_LDAP_URL_PARSE + +# opaque_t LDAP + +# num APR_HAS_LDAPSSL_CLIENT_INIT +# num APR_HAS_LDAPSSL_CLIENT_DEINIT +# num APR_HAS_LDAPSSL_ADD_TRUSTED_CERT +# num APR_HAS_LDAP_START_TLS_S +# num APR_HAS_LDAP_SSLINIT +# num APR_HAS_LDAPSSL_INIT +# num APR_HAS_LDAPSSL_INSTALL_ROUTINES + +# num APR_LDAP_SIZELIMIT + +# starttype struct apr_ldap_err_t +# field reason, Ptr CChar +# field msg , Ptr CChar +# field rc , CInt +# stoptype + +# cinline APR_LDAP_IS_SERVER_DOWN, CInt -> IO CInt + +#endif diff --git a/Bindings/APR/LDAP/Init.hsc b/Bindings/APR/LDAP/Init.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/LDAP/Init.hsc @@ -0,0 +1,19 @@ +#include +#include + +module Bindings.APR.LDAP.Init where +#strict_import +import Bindings.APR.LDAP +import Bindings.APR.Pools + +#if APR_HAS_LDAP + +# num APU_LDAP_INSUFFICIENT_ACCESS +# cinline APU_LDAP_SECURITY_ERROR, CInt -> IO CInt + +# ccall apr_ldap_ssl_init , Ptr -> Ptr CChar -> CInt -> Ptr (Ptr ) -> IO CInt +# ccall apr_ldap_ssl_deinit, IO CInt +# ccall apr_ldap_init , Ptr -> Ptr (Ptr ) -> Ptr CChar -> CInt -> CInt -> Ptr (Ptr ) -> IO CInt +# ccall apr_ldap_info , Ptr -> Ptr (Ptr ) -> IO CInt + +#endif diff --git a/Bindings/APR/LDAP/Option.hsc b/Bindings/APR/LDAP/Option.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/LDAP/Option.hsc @@ -0,0 +1,47 @@ +#include +#include + +module Bindings.APR.LDAP.Option where +#strict_import +import Bindings.APR.LDAP +import Bindings.APR.Pools + +#if APR_HAS_LDAP + +# num APR_LDAP_OPT_TLS +# num APR_LDAP_OPT_TLS_CERT +# num APR_LDAP_OPT_VERIFY_CERT +# num APR_LDAP_OPT_REFERRALS +# num APR_LDAP_OPT_REFHOPLIMIT + +# num APR_LDAP_CA_TYPE_UNKNOWN +# num APR_LDAP_CA_TYPE_DER +# num APR_LDAP_CA_TYPE_BASE64 +# num APR_LDAP_CA_TYPE_SECMOD +# num APR_LDAP_CERT_TYPE_UNKNOWN +# num APR_LDAP_CERT_TYPE_DER +# num APR_LDAP_CERT_TYPE_BASE64 +# num APR_LDAP_CERT_TYPE_KEY3_DB +# num APR_LDAP_CERT_TYPE_NICKNAME +# num APR_LDAP_KEY_TYPE_UNKNOWN +# num APR_LDAP_KEY_TYPE_DER +# num APR_LDAP_KEY_TYPE_BASE64 +# num APR_LDAP_CERT_TYPE_PFX +# num APR_LDAP_KEY_TYPE_PFX +# num APR_LDAP_CA_TYPE_CACERTDIR_BASE64 + +# starttype struct apr_ldap_opt_tls_cert_t +# field type , CInt +# field path , Ptr CChar +# field password, Ptr CChar +# stoptype + +# num APR_LDAP_NONE +# num APR_LDAP_SSL +# num APR_LDAP_STARTTLS +# num APR_LDAP_STOPTLS + +# ccall apr_ldap_get_option, Ptr -> Ptr -> CInt -> Ptr () -> Ptr (Ptr ) -> IO CInt +# ccall apr_ldap_set_option, Ptr -> Ptr -> CInt -> Ptr () -> Ptr (Ptr ) -> IO CInt + +#endif diff --git a/Bindings/APR/LDAP/Rebind.hsc b/Bindings/APR/LDAP/Rebind.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/LDAP/Rebind.hsc @@ -0,0 +1,16 @@ +#include +#include +#include + +module Bindings.APR.LDAP.Rebind where +#strict_import +import Bindings.APR.ErrNo +import Bindings.APR.LDAP +import Bindings.APR.Pools + +#if APR_HAS_LDAP + +# ccall apr_ldap_rebind_add , Ptr -> Ptr -> Ptr CChar -> Ptr CChar -> IO +# ccall apr_ldap_rebind_remove, Ptr -> IO + +#endif diff --git a/Bindings/APR/LDAP/URL.hsc b/Bindings/APR/LDAP/URL.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/LDAP/URL.hsc @@ -0,0 +1,43 @@ +#include +#include +#include + +module Bindings.APR.LDAP.URL where +#strict_import +import Bindings.APR.LDAP +import Bindings.APR.Pools + +#if APR_HAS_LDAP + +# starttype struct apr_ldap_url_desc_t +# field lud_next , Ptr +# field lud_scheme, Ptr CChar +# field lud_host , Ptr CChar +# field lud_port , CInt +# field lud_dn , Ptr CChar +# field lud_attrs , Ptr (Ptr CChar) +# field lud_scope , CInt +# field lud_filter, Ptr CChar +# field lud_exts , Ptr (Ptr CChar) +# field lud_crit_exts, CInt +# stoptype + +# num APR_LDAP_URL_SUCCESS +# num APR_LDAP_URL_ERR_MEM +# num APR_LDAP_URL_ERR_PARAM +# num APR_LDAP_URL_ERR_BADSCHEME +# num APR_LDAP_URL_ERR_BADENCLOSURE +# num APR_LDAP_URL_ERR_BADURL +# num APR_LDAP_URL_ERR_BADHOST +# num APR_LDAP_URL_ERR_BADATTRS +# num APR_LDAP_URL_ERR_BADSCOPE +# num APR_LDAP_URL_ERR_BADFILTER +# num APR_LDAP_URL_ERR_BADEXTS + +# ccall apr_ldap_is_ldap_url , Ptr CChar -> IO CInt +# ccall apr_ldap_is_ldaps_url , Ptr CChar -> IO CInt +# ccall apr_ldap_is_ldapi_url , Ptr CChar -> IO CInt +# ccall apr_ldap_url_parse_ext, Ptr -> Ptr CChar -> Ptr (Ptr ) -> Ptr (Ptr ) -> IO CInt +# ccall apr_ldap_url_parse , Ptr -> Ptr CChar -> Ptr (Ptr ) -> Ptr (Ptr ) -> IO CInt + +#endif diff --git a/Bindings/APR/MD4.hsc b/Bindings/APR/MD4.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/MD4.hsc @@ -0,0 +1,25 @@ +#include +#include + +module Bindings.APR.MD4 where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.XLate + +#num APR_MD4_DIGESTSIZE + +#starttype struct apr_md4_ctx_t +# array_field state , +# array_field count , +# array_field buffer, CUChar +# if APR_HAS_XLATE +# field xlate, Ptr +# endif +#stoptype + +#ccall apr_md4_init , Ptr -> IO +#cinline apr_md4_set_xlate, Ptr -> Ptr -> IO +#ccall apr_md4_update , Ptr -> Ptr CUChar -> -> IO +#ccall apr_md4_final , Ptr CUChar -> Ptr -> IO +#ccall apr_md4 , Ptr CUChar -> Ptr CUChar -> -> IO diff --git a/Bindings/APR/MD5.hsc b/Bindings/APR/MD5.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/MD5.hsc @@ -0,0 +1,25 @@ +#include +#include + +module Bindings.APR.MD5 where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.XLate + +#num APR_MD5_DIGESTSIZE + +#starttype struct apr_md5_ctx_t +# array_field state , +# array_field count , +# array_field buffer, CUChar +# field xlate , Ptr +#stoptype + +#ccall apr_md5_init , Ptr -> IO +#ccall apr_md5_set_xlate, Ptr -> Ptr -> IO +#ccall apr_md5_update , Ptr -> Ptr () -> -> IO +#ccall apr_md5_final , Ptr CUChar -> Ptr -> IO +#ccall apr_md5 , Ptr CUChar -> Ptr () -> -> IO +#ccall apr_md5_encode , Ptr CChar -> Ptr CChar -> Ptr CChar -> -> IO +#ccall apr_password_validate, Ptr CChar -> Ptr CChar -> IO diff --git a/Bindings/APR/MemCache.hsc b/Bindings/APR/MemCache.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/MemCache.hsc @@ -0,0 +1,108 @@ +#include +#include + +module Bindings.APR.MemCache where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.Hash +import Bindings.APR.Network.IO +import Bindings.APR.Pools +import Bindings.APR.ResList +import Bindings.APR.Thread.Mutex +import Bindings.APR.Time + +#integral_t apr_memcache_server_status_t +#num APR_MC_SERVER_LIVE +#num APR_MC_SERVER_DEAD + +#opaque_t apr_memcache_conn_t + +#starttype struct apr_memcache_server_t +# field host , Ptr CChar +# field port , +# field status, +# if APR_HAS_THREADS +# field conns, Ptr +# else +# field conn, Ptr +# endif +# field p , Ptr +# if APR_HAS_THREADS +# field lock, Ptr +# endif +# field btime , +#stoptype + +#callback apr_memcache_hash_func , Ptr () -> Ptr CChar -> -> IO +#callback apr_memcache_server_func, Ptr () -> Ptr -> -> IO (Ptr ) + +#starttype struct apr_memcache_t +# field flags , +# field nalloc , +# field ntotal , +# field live_servers, Ptr (Ptr ) +# field p , Ptr +# field hash_func , +# field server_baton, Ptr () +# field server_func , +#stoptype + +#starttype apr_memcache_value_t +# field status, +# field key , Ptr CChar +# field len , +# field data , Ptr () +# field flags , +#stoptype + +#ccall apr_memcache_hash , Ptr -> Ptr CChar -> -> IO +#ccall apr_memcache_hash_crc32 , Ptr () -> Ptr CChar -> -> IO +#ccall apr_memcache_hash_default, Ptr () -> Ptr CChar -> -> IO + +#ccall apr_memcache_find_server_hash , Ptr -> -> IO (Ptr ) +#ccall apr_memcache_find_server_hash_default, Ptr () -> Ptr -> -> IO (Ptr ) + +#ccall apr_memcache_add_server , Ptr -> Ptr -> IO +#ccall apr_memcache_find_server , Ptr -> Ptr CChar -> -> IO (Ptr ) +#ccall apr_memcache_enable_server , Ptr -> Ptr -> IO +#ccall apr_memcache_disable_server , Ptr -> Ptr -> IO +#ccall apr_memcache_server_create , Ptr -> Ptr CChar -> -> -> -> -> -> Ptr (Ptr ) -> IO +#ccall apr_memcache_create , Ptr -> -> -> Ptr (Ptr ) -> IO +#ccall apr_memcache_getp , Ptr -> Ptr -> Ptr CChar -> Ptr (Ptr CChar) -> Ptr -> Ptr -> IO +#ccall apr_memcache_add_multget_key, Ptr -> Ptr CChar -> Ptr (Ptr ) -> IO () +#ccall apr_memcache_multgetp , Ptr -> Ptr -> Ptr -> Ptr -> IO +#ccall apr_memcache_set , Ptr -> Ptr CChar -> Ptr CChar -> -> -> -> IO +#ccall apr_memcache_add , Ptr -> Ptr CChar -> Ptr CChar -> -> -> -> IO +#ccall apr_memcache_replace , Ptr -> Ptr CChar -> Ptr CChar -> -> -> -> IO +#ccall apr_memcache_delete , Ptr -> Ptr CChar -> -> IO +#ccall apr_memcache_incr , Ptr -> Ptr CChar -> -> Ptr -> IO +#ccall apr_memcache_decr , Ptr -> Ptr CChar -> -> Ptr -> IO +#ccall apr_memcache_version , Ptr -> Ptr -> Ptr (Ptr CChar) -> IO + +#starttype apr_memcache_stats_t +# field version , Ptr CChar +# field pid , +# field uptime , +# field time , +# field pointer_size , +# field rusage_user , +# field rusage_system, +# field curr_items , +# field total_items , +# field bytes , +# field curr_connections , +# field total_connections, +# field connection_structures, +# field cmd_get , +# field cmd_set , +# field get_hits , +# field get_misses , +# field evictions , +# field bytes_read , +# field bytes_written , +# field limit_maxbytes, +# field threads , +#stoptype + +#ccall apr_memcache_stats, Ptr -> Ptr -> Ptr (Ptr ) -> IO diff --git a/Bindings/APR/Queue.hsc b/Bindings/APR/Queue.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/Queue.hsc @@ -0,0 +1,19 @@ +#include +#include + +module Bindings.APR.Queue where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.Pools + +#opaque_t apr_queue_t + +#ccall apr_queue_create , Ptr (Ptr ) -> CUInt -> Ptr -> IO +#ccall apr_queue_push , Ptr -> Ptr () -> IO +#ccall apr_queue_pop , Ptr -> Ptr (Ptr ()) -> IO +#ccall apr_queue_trypush, Ptr -> Ptr () -> IO +#ccall apr_queue_trypop , Ptr -> Ptr (Ptr ()) -> IO +#ccall apr_queue_size , Ptr -> IO CUInt +#ccall apr_queue_interrupt_all, Ptr -> IO +#ccall apr_queue_term , Ptr -> IO diff --git a/Bindings/APR/RMM.hsc b/Bindings/APR/RMM.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/RMM.hsc @@ -0,0 +1,24 @@ +#include +#include + +module Bindings.APR.RMM where +#strict_import +import Bindings.APR +import Bindings.APR.AnyLock +import Bindings.APR.ErrNo +import Bindings.APR.Pools + +#opaque_t apr_rmm_t +#integral_t apr_rmm_off_t + +#ccall apr_rmm_init , Ptr (Ptr ) -> Ptr -> Ptr () -> -> Ptr -> IO +#ccall apr_rmm_destroy , Ptr -> IO +#ccall apr_rmm_attach , Ptr (Ptr ) -> Ptr -> Ptr () -> Ptr -> IO +#ccall apr_rmm_detach , Ptr -> IO +#ccall apr_rmm_malloc , Ptr -> -> IO +#ccall apr_rmm_realloc , Ptr -> Ptr () -> -> IO +#ccall apr_rmm_calloc , Ptr -> -> IO +#ccall apr_rmm_free , Ptr -> -> IO +#ccall apr_rmm_addr_get, Ptr -> -> IO (Ptr ()) +#ccall apr_rmm_offset_get , Ptr -> Ptr () -> IO +#ccall apr_rmm_overhead_get, CInt -> IO diff --git a/Bindings/APR/ResList.hsc b/Bindings/APR/ResList.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/ResList.hsc @@ -0,0 +1,24 @@ +#include +#include + +module Bindings.APR.ResList where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.Pools +import Bindings.APR.Time + +#if APR_HAS_THREADS +# opaque_t apr_reslist_t +# callback apr_reslist_constructor, Ptr (Ptr ()) -> Ptr () -> Ptr -> IO +# callback apr_reslist_destructor , Ptr () -> Ptr () -> Ptr -> IO + +# ccall apr_reslist_create , Ptr (Ptr ) -> CInt -> CInt -> CInt -> -> -> -> Ptr () -> Ptr -> IO +# ccall apr_reslist_destroy, Ptr -> IO +# ccall apr_reslist_acquire, Ptr -> Ptr (Ptr ()) -> IO +# ccall apr_reslist_release, Ptr -> Ptr () -> IO + +# ccall apr_reslist_timeout_set , Ptr -> -> IO () +# ccall apr_reslist_acquired_count, Ptr -> IO +# ccall apr_reslist_invalidate , Ptr -> Ptr () -> IO +#endif diff --git a/Bindings/APR/SDBM.hsc b/Bindings/APR/SDBM.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/SDBM.hsc @@ -0,0 +1,34 @@ +#include +#include + +module Bindings.APR.SDBM where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.File.Info +import Bindings.APR.Pools + +#opaque_t apr_sdbm_t + +#starttype apr_sdbm_datum_t +# field dptr , Ptr CChar +# field dsize, CInt +#stoptype + +#globalarray APR_SDBM_DIRFEXT, CChar +#globalarray APR_SDBM_PAGFEXT, CChar + +#num APR_SDBM_INSERT +#num APR_SDBM_REPLACE +#num APR_SDBM_INSERTDUP + +#ccall apr_sdbm_open , Ptr (Ptr ) -> Ptr CChar -> -> -> Ptr -> IO +#ccall apr_sdbm_close , Ptr -> IO +#ccall apr_sdbm_lock , Ptr -> CInt -> IO +#ccall apr_sdbm_unlock , Ptr -> IO +#cinline apr_sdbm_fetch , Ptr -> Ptr -> Ptr -> IO +#cinline apr_sdbm_store , Ptr -> Ptr -> Ptr -> CInt -> IO +#cinline apr_sdbm_delete , Ptr -> Ptr -> IO +#ccall apr_sdbm_firstkey, Ptr -> Ptr -> IO +#ccall apr_sdbm_nextkey , Ptr -> Ptr -> IO +#ccall apr_sdbm_rdonly , Ptr -> IO CInt diff --git a/Bindings/APR/SHA1.hsc b/Bindings/APR/SHA1.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/SHA1.hsc @@ -0,0 +1,26 @@ +#include +#include + +module Bindings.APR.SHA1 where +#strict_import +import Bindings.APR + +#num APR_SHA1_DIGESTSIZE + +#globalarray APR_SHA1_ID, CChar + +#num APR_SHA1PW_IDLEN + +#starttype struct apr_sha1_ctx_t +# array_field digest , +# field count_lo, +# field count_hi, +# array_field data , +# field local , CInt +#stoptype + +#ccall apr_sha1_base64 , Ptr CChar -> CInt -> Ptr CChar -> IO () +#ccall apr_sha1_init , Ptr -> IO () +#ccall apr_sha1_update , Ptr -> Ptr CChar -> CUInt -> IO () +#ccall apr_sha1_update_binary, Ptr -> Ptr CUInt -> CUInt -> IO () +#ccall apr_sha1_final , Ptr CUChar -> Ptr -> IO () diff --git a/Bindings/APR/StrMatch.hsc b/Bindings/APR/StrMatch.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/StrMatch.hsc @@ -0,0 +1,18 @@ +#include +#include + +module Bindings.APR.StrMatch where +#strict_import +import Bindings.APR +import Bindings.APR.Pools + +#starttype struct apr_strmatch_pattern +# field compare, FunPtr (Ptr -> Ptr CChar -> -> IO (Ptr CChar)) +# field pattern, Ptr CChar +# field length , +# field context, Ptr () +#stoptype + +#cinline apr_strmach, Ptr -> Ptr CChar -> -> IO (Ptr CChar) + +#ccall apr_strmatch_precompile, Ptr -> Ptr CChar -> CInt -> IO (Ptr ) diff --git a/Bindings/APR/Thread/Pool.hsc b/Bindings/APR/Thread/Pool.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/Thread/Pool.hsc @@ -0,0 +1,47 @@ +#include +#include + +module Bindings.APR.Thread.Pool where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.Pools +import Bindings.APR.Thread.Proc +import Bindings.APR.Time + +#if APR_HAS_THREADS + +# opaque_t apr_thread_pool_t + +# num APR_THREAD_TASK_PRIORITY_LOWEST +# num APR_THREAD_TASK_PRIORITY_LOW +# num APR_THREAD_TASK_PRIORITY_NORMAL +# num APR_THREAD_TASK_PRIORITY_HIGH +# num APR_THREAD_TASK_PRIORITY_HIGHEST + +# ccall apr_thread_pool_create , Ptr (Ptr ) -> -> -> Ptr -> IO +# ccall apr_thread_pool_destroy , Ptr -> IO +# ccall apr_thread_pool_push , Ptr -> -> Ptr () -> -> Ptr () -> IO +# ccall apr_thread_pool_schedule , Ptr -> -> Ptr () -> -> Ptr () -> IO +# ccall apr_thread_pool_top , Ptr -> -> Ptr () -> -> Ptr () -> IO +# ccall apr_thread_pool_tasks_cancel, Ptr -> Ptr () -> IO +# ccall apr_thread_pool_tasks_count , Ptr -> IO +# ccall apr_thread_pool_scheduled_tasks_count, Ptr -> IO +# ccall apr_thread_pool_threads_count , Ptr -> IO +# ccall apr_thread_pool_busy_count , Ptr -> IO +# ccall apr_thread_pool_idle_count , Ptr -> IO +# ccall apr_thread_pool_idle_max_set , Ptr -> -> IO +# ccall apr_thread_pool_tasks_run_count , Ptr -> IO +# ccall apr_thread_pool_tasks_high_count , Ptr -> IO +# ccall apr_thread_pool_threads_high_count , Ptr -> IO +# ccall apr_thread_pool_threads_idle_timeout_count, Ptr -> IO +# ccall apr_thread_pool_idle_max_get , Ptr -> IO +# ccall apr_thread_pool_thread_max_set, Ptr -> -> IO +# ccall apr_thread_pool_idle_wait_set , Ptr -> -> IO +# ccall apr_thread_pool_idle_wait_get , Ptr -> IO +# ccall apr_thread_pool_thread_max_get, Ptr -> IO +# ccall apr_thread_pool_threshold_set , Ptr -> -> IO +# ccall apr_thread_pool_threshold_get , Ptr -> IO +# ccall apr_thread_pool_task_owner_get, Ptr -> Ptr (Ptr ()) -> IO + +#endif diff --git a/Bindings/APR/URI.hsc b/Bindings/APR/URI.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/URI.hsc @@ -0,0 +1,59 @@ +#include +#include + +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 +# field port , +-- 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 +#ccall apr_uri_unparse , Ptr -> Ptr -> CUInt -> IO (Ptr CChar) +#ccall apr_uri_parse , Ptr -> Ptr CChar -> Ptr -> IO +#ccall apr_uri_parse_hostinfo, Ptr -> Ptr CChar -> Ptr -> IO diff --git a/Bindings/APR/UUID.hsc b/Bindings/APR/UUID.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/UUID.hsc @@ -0,0 +1,16 @@ +#include +#include + +module Bindings.APR.UUID where +#strict_import +import Bindings.APR.ErrNo + +#starttype apr_uuid_t +# array_field data, CUChar +#stoptype + +#num APR_UUID_FORMATTED_LENGTH + +#ccall apr_uuid_get , Ptr -> IO () +#ccall apr_uuid_format, Ptr CChar -> Ptr -> IO () +#ccall apr_uuid_parse , Ptr -> Ptr CChar -> IO diff --git a/Bindings/APR/XLate.hsc b/Bindings/APR/XLate.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/XLate.hsc @@ -0,0 +1,25 @@ +#include +#include + +module Bindings.APR.XLate where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.Pools + +#opaque_t apr_xlate_t + +#ccall apr_xlate_open, Ptr (Ptr ) -> Ptr CChar -> Ptr CChar -> Ptr -> IO + +#pointer APR_DEFAULT_CHARSET +#pointer APR_LOCALE_CHARSET + +#ccall apr_xlate_sb_get , Ptr -> Ptr CInt -> IO +#ccall apr_xlate_conv_buffer, Ptr -> Ptr CChar -> Ptr -> Ptr CChar -> Ptr -> IO + +#if APR_NOT_DONE_YET +# ccall apr_xlate_conv_char, Ptr -> CChar -> CChar -> IO +#endif + +#ccall apr_xlate_conv_byte , Ptr -> CUChar -> IO +#ccall apr_xlate_close , Ptr -> IO diff --git a/Bindings/APR/XML.hsc b/Bindings/APR/XML.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APR/XML.hsc @@ -0,0 +1,90 @@ +#include +#include + +module Bindings.APR.XML where +#strict_import +import Bindings.APR +import Bindings.APR.ErrNo +import Bindings.APR.File.Types +import Bindings.APR.Pools +import Bindings.APR.Tables +import Bindings.APR.XLate + +#starttype struct apr_text +# field text, Ptr CChar +# field next, Ptr +#stoptype + +#starttype struct apr_text_header +# field first, Ptr +# field last , Ptr +#stoptype + +#ccall apr_text_append, Ptr -> Ptr -> Ptr CChar -> IO () + +#num APR_XML_NS_DAV_ID +#num APR_XML_NS_NONE + +#num APR_XML_NS_ERROR_BASE +#cinline APR_XML_NS_IS_ERROR, CInt -> IO CInt + +#starttype struct apr_xml_attr +# field name , Ptr CChar +# field ns , CInt +# field value, Ptr CChar +# field next , Ptr +#stoptype + +#opaque_t apr_xml_ns_scope + +#starttype struct apr_xml_elem +# field name, Ptr CChar +# field ns , CInt +# field lang, Ptr CChar + +# field first_cdata , +# field following_cdata, + +# field parent , Ptr +# field next , Ptr +# field first_child, Ptr +# field attr , Ptr + +# field last_child , Ptr +# field ns_scope , Ptr + +# field priv, Ptr () +#stoptype + +#cinline APR_XML_ELEM_IS_EMPTY, Ptr -> IO CInt + +#starttype struct apr_xml_doc +# field root , Ptr +# field namespaces, Ptr +#stoptype + +#opaque_t apr_xml_parser + +#ccall apr_xml_parser_create , Ptr -> IO (Ptr ) +#ccall apr_xml_parse_file , Ptr -> Ptr (Ptr ) -> Ptr (Ptr ) -> Ptr -> -> IO +#ccall apr_xml_parser_feed , Ptr -> Ptr CChar -> -> IO +#ccall apr_xml_parser_done , Ptr -> Ptr (Ptr ) -> IO +#ccall apr_xml_parser_geterror, Ptr -> Ptr CChar -> -> IO (Ptr CChar) + +#ccall apr_xml_to_text, Ptr -> Ptr -> CInt -> Ptr -> Ptr CInt -> Ptr (Ptr CChar) -> Ptr -> IO () + +#num APR_XML_X2T_FULL +#num APR_XML_X2T_INNER +#num APR_XML_X2T_LANG_INNER +#num APR_XML_X2T_FULL_NS_LANG + +#ccall apr_xml_empty_elem , Ptr -> Ptr -> IO (Ptr CChar) +#ccall apr_xml_quote_string, Ptr -> Ptr CChar -> CInt -> IO (Ptr CChar) +#ccall apr_xml_quote_elem , Ptr -> Ptr -> IO () +#ccall apr_xml_insert_uri , Ptr -> Ptr CChar -> IO CInt + +#cinline APR_XML_GET_URI_ITEM, Ptr -> CInt -> IO (Ptr CChar) + +#if APR_CHARSET_EBCDIC +# ccall apr_xml_parser_convert_doc, Ptr -> Ptr -> Ptr -> IO +#endif diff --git a/Bindings/APU.hsc b/Bindings/APU.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APU.hsc @@ -0,0 +1,26 @@ +#include +#include + +module Bindings.APU where +#strict_import + +#num APU_HAVE_SDBM +#num APU_HAVE_GDBM +#num APU_HAVE_NDBM +#num APU_HAVE_DB + +#if APU_HAVE_DB +# num APU_HAVE_DB_VERSION +#endif + +#num APU_HAVE_PGSQL +#num APU_HAVE_MYSQL +#num APU_HAVE_SQLITE3 +#num APU_HAVE_SQLITE2 +#num APU_HAVE_ORACLE +#num APU_HAVE_FREETDS +#num APU_HAVE_ODBC + +#num APU_HAVE_APR_ICONV +#num APU_HAVE_ICONV +#num APR_HAS_XLATE diff --git a/Bindings/APU/Version.hsc b/Bindings/APU/Version.hsc new file mode 100644 --- /dev/null +++ b/Bindings/APU/Version.hsc @@ -0,0 +1,17 @@ +#include +#include + +module Bindings.APU.Version where +#strict_import +import Bindings.APR.Version + +#num APU_MAJOR_VERSION +#num APU_MINOR_VERSION +#num APU_PATCH_VERSION + +#globalarray APU_VERSION_STRING, CChar + +#ifndef APU_VERSION_ONLY +# ccall apu_version , Ptr -> IO () +# ccall apu_version_string, IO (Ptr CChar) +#endif diff --git a/COPYING b/COPYING new file mode 100644 --- /dev/null +++ b/COPYING @@ -0,0 +1,29 @@ + + + + + bindings-apr-util + + + PHO + + + + + + + + + + + + diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,4 @@ +#!/usr/bin/env runghc + +import Distribution.Simple +main = defaultMain diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal new file mode 100644 --- /dev/null +++ b/bindings-apr-util.cabal @@ -0,0 +1,75 @@ +Name: bindings-apr-util +Synopsis: Low level bindings to Apache Portable Runtime Utility (APR Utility) +Description: + Bindings to APR Utility: +Version: 0.1 +License: PublicDomain +License-File: COPYING +Author: PHO +Maintainer: PHO +Stability: experimental +Homepage: http://cielonegro.org/Bindings-APR.html +Category: FFI +Tested-With: GHC == 6.12.3 +Cabal-Version: >= 1.6 +Build-Type: Simple +Extra-Source-Files: + +Source-Repository head + Type: git + Location: git://git.cielonegro.org/bindings-apr-util.git + +Library + Build-Depends: + base == 4.2.*, + bindings-DSL == 1.0.*, + bindings-apr == 0.1.* + + PkgConfig-Depends: + apr-util-1 >= 1.3 + + Exposed-Modules: + Bindings.APR.AnyLock + Bindings.APR.Base64 + Bindings.APR.Buckets + Bindings.APR.Date + Bindings.APR.DBD + Bindings.APR.DBM + Bindings.APR.Hooks + Bindings.APR.LDAP + Bindings.APR.LDAP.Init + Bindings.APR.LDAP.Option + Bindings.APR.LDAP.Rebind + Bindings.APR.LDAP.URL + Bindings.APR.MD4 + Bindings.APR.MD5 + Bindings.APR.MemCache + Bindings.APR.Queue + Bindings.APR.RMM + Bindings.APR.ResList + Bindings.APR.SDBM + Bindings.APR.SHA1 + Bindings.APR.StrMatch + Bindings.APR.Thread.Pool + Bindings.APR.URI + Bindings.APR.UUID + Bindings.APR.XLate + Bindings.APR.XML + Bindings.APU + Bindings.APU.Version + + C-Sources: + cbits/helper_apr_anylock.c + cbits/helper_apr_buckets.c + cbits/helper_apr_dbm.c + cbits/helper_apr_ldap.c + cbits/helper_apr_ldap_init.c + cbits/helper_apr_md4.c + cbits/helper_apr_sdbm.c + cbits/helper_apr_sha1.c + cbits/helper_apr_strmatch.c + cbits/helper_apr_xml.c + cbits/helper_apu_version.c + + Extensions: + ForeignFunctionInterface diff --git a/cbits/helper_apr_anylock.c b/cbits/helper_apr_anylock.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_anylock.c @@ -0,0 +1,6 @@ +#include +#include + +BC_INLINE1(APR_ANYLOCK_LOCK , apr_anylock_t*, apr_status_t) +BC_INLINE1(APR_ANYLOCK_TRYLOCK, apr_anylock_t*, apr_status_t) +BC_INLINE1(APR_ANYLOCK_UNLOCK , apr_anylock_t*, apr_status_t) diff --git a/cbits/helper_apr_buckets.c b/cbits/helper_apr_buckets.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_buckets.c @@ -0,0 +1,41 @@ +#include +#include + +BC_INLINE1VOID(APR_BRIGADE_CHECK_CONSISTENCY, apr_bucket_brigade*) +BC_INLINE1VOID(APR_BUCKET_CHECK_CONSISTENCY , apr_bucket*) + +BC_INLINE1(APR_BRIGADE_SENTINEL, apr_bucket_brigade*, apr_bucket*) +BC_INLINE1(APR_BRIGADE_EMPTY , apr_bucket_brigade*, int) +BC_INLINE1(APR_BRIGADE_FIRST , apr_bucket_brigade*, apr_bucket*) +BC_INLINE1(APR_BRIGADE_LAST , apr_bucket_brigade*, apr_bucket*) +BC_INLINE2VOID(APR_BRIGADE_INSERT_HEAD, apr_bucket_brigade*, apr_bucket*) +BC_INLINE2VOID(APR_BRIGADE_INSERT_TAIL, apr_bucket_brigade*, apr_bucket*) +BC_INLINE2VOID(APR_BRIGADE_CONCAT , apr_bucket_brigade*, apr_bucket_brigade*) +BC_INLINE2VOID(APR_BRIGADE_PREPEND , apr_bucket_brigade*, apr_bucket_brigade*) + +BC_INLINE2VOID(APR_BUCKET_INSERT_BEFORE, apr_bucket*, apr_bucket*) +BC_INLINE2VOID(APR_BUCKET_INSERT_AFTER , apr_bucket*, apr_bucket*) +BC_INLINE1 (APR_BUCKET_NEXT , apr_bucket*, apr_bucket*) +BC_INLINE1 (APR_BUCKET_PREV , apr_bucket*, apr_bucket*) +BC_INLINE1VOID(APR_BUCKET_REMOVE , apr_bucket*) +BC_INLINE1VOID(APR_BUCKET_INIT , apr_bucket*) +BC_INLINE1 (APR_BUCKET_IS_METADATA , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_FLUSH , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_EOS , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_FILE , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_PIPE , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_SOCKET , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_HEAP , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_TRANSIENT , apr_bucket*, int) +BC_INLINE1 (APR_BUCKET_IS_IMMORTAL , apr_bucket*, int) +#if APR_HAS_MMAP + BC_INLINE1 (APR_BUCKET_IS_MMAP , apr_bucket*, int) +#endif +BC_INLINE1 (APR_BUCKET_IS_POOL , apr_bucket*, int) + +BC_INLINE1VOID(apr_bucket_destroy , apr_bucket*) +BC_INLINE1VOID(apr_bucket_delete , apr_bucket*) +BC_INLINE4 (apr_bucket_read , apr_bucket*, const char**, apr_size_t*, apr_read_type_e, apr_status_t) +BC_INLINE2 (apr_bucket_setaside, apr_bucket*, apr_pool_t*, apr_status_t) +BC_INLINE2 (apr_bucket_split , apr_bucket*, apr_size_t, apr_status_t) +BC_INLINE2 (apr_bucket_copy , apr_bucket*, apr_bucket**, apr_status_t) diff --git a/cbits/helper_apr_dbm.c b/cbits/helper_apr_dbm.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_dbm.c @@ -0,0 +1,22 @@ +#include +#include + +apr_status_t inline_apr_dbm_fetch(apr_dbm_t* dbm, apr_datum_t* key, apr_datum_t* pvalue) { + return apr_dbm_fetch(dbm, *key, pvalue); +} + +apr_status_t inline_apr_dbm_store(apr_dbm_t* dbm, apr_datum_t* key, apr_datum_t* value) { + return apr_dbm_store(dbm, *key, *value); +} + +apr_status_t inline_apr_dbm_delete(apr_dbm_t* dbm, apr_datum_t* key) { + return apr_dbm_delete(dbm, *key); +} + +int inline_apr_dbm_exists(apr_dbm_t* dbm, apr_datum_t* key) { + return apr_dbm_exists(dbm, *key); +} + +void inline_apr_dbm_freedatum(apr_dbm_t* dbm, apr_datum_t* data) { + apr_dbm_freedatum(dbm, *data); +} diff --git a/cbits/helper_apr_ldap.c b/cbits/helper_apr_ldap.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_ldap.c @@ -0,0 +1,4 @@ +#include +#include + +BC_INLINE1(APR_LDAP_IS_SERVER_DOWN, int, int) diff --git a/cbits/helper_apr_ldap_init.c b/cbits/helper_apr_ldap_init.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_ldap_init.c @@ -0,0 +1,4 @@ +#include +#include + +BC_INLINE1(APU_LDAP_SECURITY_ERROR, int, int) diff --git a/cbits/helper_apr_md4.c b/cbits/helper_apr_md4.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_md4.c @@ -0,0 +1,4 @@ +#include +#include + +BC_INLINE2(apr_md4_set_xlate, apr_md4_ctx_t*, apr_xlate_t*, apr_status_t) diff --git a/cbits/helper_apr_sdbm.c b/cbits/helper_apr_sdbm.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_sdbm.c @@ -0,0 +1,23 @@ +#include +#include + +BC_GLOBALARRAY(APR_SDBM_DIRFEXT, char) +BC_GLOBALARRAY(APR_SDBM_PAGFEXT, char) + +apr_status_t inline_apr_sdbm_fetch(apr_sdbm_t* db, + apr_sdbm_datum_t* value, + apr_sdbm_datum_t* key) { + return apr_sdbm_fetch(db, value, *key); +} + +apr_status_t inline_apr_sdbm_store(apr_sdbm_t* db, + apr_sdbm_datum_t* key, + apr_sdbm_datum_t* value, + int opt) { + return apr_sdbm_store(db, *key, *value, opt); +} + +apr_status_t inline_apr_sdbm_delete(apr_sdbm_t* db, + const apr_sdbm_datum_t* key) { + return apr_sdbm_delete(db, *key); +} diff --git a/cbits/helper_apr_sha1.c b/cbits/helper_apr_sha1.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_sha1.c @@ -0,0 +1,4 @@ +#include +#include + +BC_GLOBALARRAY(APR_SHA1PW_ID, char) diff --git a/cbits/helper_apr_strmatch.c b/cbits/helper_apr_strmatch.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_strmatch.c @@ -0,0 +1,4 @@ +#include +#include + +BC_INLINE3(apr_strmatch, const apr_strmatch_pattern*, const char*, apr_size_t, const char*) diff --git a/cbits/helper_apr_xml.c b/cbits/helper_apr_xml.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apr_xml.c @@ -0,0 +1,6 @@ +#include +#include + +BC_INLINE1(APR_XML_NS_IS_ERROR , int, int) +BC_INLINE1(APR_XML_ELEM_IS_EMPTY, apr_xml_elem*, int) +BC_INLINE2(APR_XML_GET_URI_ITEM , apr_array_header_t*, int, const char*) diff --git a/cbits/helper_apu_version.c b/cbits/helper_apu_version.c new file mode 100644 --- /dev/null +++ b/cbits/helper_apu_version.c @@ -0,0 +1,4 @@ +#include +#include + +BC_GLOBALARRAY(APU_VERSION_STRING, char)