X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FXML.hsc;fp=Bindings%2FAPR%2FXML.hsc;h=c048d6dbd16b8d90f3048bec5423cc772d0266f0;hp=0000000000000000000000000000000000000000;hb=555f5bdd1b954ba961fa08bcc59bb3f77e57a58d;hpb=4296301234c048e172b7338c24d420606fb3788e diff --git a/Bindings/APR/XML.hsc b/Bindings/APR/XML.hsc new file mode 100644 index 0000000..c048d6d --- /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