From: Petr P. <pa...@us...> - 2003-11-07 15:19:31
|
Update of /cvsroot/perl-xml/XML-LibXML-XPathContext In directory sc8-pr-cvs1:/tmp/cvs-serv14553 Modified Files: perl-libxml-mm.c MANIFEST Removed Files: perl-libxml-sax.h perl-libxml-sax.c Log Message: removing perl-libxml-sax.c/perl-libxml-sax.h dependency Index: perl-libxml-mm.c =================================================================== RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/perl-libxml-mm.c,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- perl-libxml-mm.c 3 Nov 2003 18:09:38 -0000 1.3 +++ perl-libxml-mm.c 7 Nov 2003 15:19:23 -0000 1.4 @@ -29,8 +29,6 @@ #endif -#include "perl-libxml-sax.h" - #ifdef __cplusplus } #endif @@ -586,103 +584,6 @@ } } } - -xpc_ProxyNodePtr -xpc_PmmNewContext(xmlParserCtxtPtr node) -{ - xpc_ProxyNodePtr proxy = NULL; - - proxy = (xpc_ProxyNodePtr)xmlMalloc(sizeof(xpc_ProxyNode)); - if (proxy != NULL) { - proxy->node = (xmlNodePtr)node; - proxy->owner = NULL; - proxy->count = 1; - } - else { - warn( "empty context" ); - } - return proxy; -} - -int -xpc_PmmContextREFCNT_dec( xpc_ProxyNodePtr node ) -{ - xmlParserCtxtPtr libnode = NULL; - int retval = 0; - if ( node != NULL ) { - retval = xpc_PmmREFCNT(node)--; - if ( xpc_PmmREFCNT(node) <= 0 ) { - xs_warn( "NODE DELETATION\n" ); - libnode = (xmlParserCtxtPtr)xpc_PmmNODE( node ); - if ( libnode != NULL ) { - if (libnode->_private != NULL ) { - if ( libnode->_private != (void*)node ) { - xpc_PmmSAXCloseContext( libnode ); - } - else { - xmlFree( libnode->_private ); - } - libnode->_private = NULL; - } - xpc_PmmNODE( node ) = NULL; - xmlFreeParserCtxt(libnode); - } - } - xmlFree( node ); - } - return retval; -} - -SV* -xpc_PmmContextSv( xmlParserCtxtPtr ctxt ) -{ - xpc_ProxyNodePtr dfProxy= NULL; - SV * retval = &PL_sv_undef; - const char * CLASS = "XML::LibXML::ParserContext"; - void * saxvector = NULL; - - if ( ctxt != NULL ) { - dfProxy = xpc_PmmNewContext(ctxt); - - retval = NEWSV(0,0); - sv_setref_pv( retval, CLASS, (void*)dfProxy ); - xpc_PmmREFCNT_inc(dfProxy); - } - else { - xs_warn( "no node found!" ); - } - - return retval; -} - -xmlParserCtxtPtr -xpc_PmmSvContext( SV * scalar ) -{ - xmlParserCtxtPtr retval = NULL; - - if ( scalar != NULL - && scalar != &PL_sv_undef - && sv_isa( scalar, "XML::LibXML::ParserContext" ) - && SvPROXYNODE(scalar) != NULL ) { - retval = (xmlParserCtxtPtr)xpc_PmmNODE( SvPROXYNODE(scalar) ); - } - else { - if ( scalar == NULL - && scalar == &PL_sv_undef ) { - xs_warn( "no scalar!" ); - } - else if ( ! sv_isa( scalar, "XML::LibXML::ParserContext" ) ) { - xs_warn( "bad object" ); - } - else if (SvPROXYNODE(scalar) == NULL) { - xs_warn( "empty object" ); - } - else { - xs_warn( "nothing was wrong!"); - } - } - return retval; -} xmlChar* xpc_PmmFastEncodeString( int charset, Index: MANIFEST =================================================================== RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/MANIFEST,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- MANIFEST 22 Sep 2003 08:09:34 -0000 1.5 +++ MANIFEST 7 Nov 2003 15:19:23 -0000 1.6 @@ -9,8 +9,6 @@ dom.h perl-libxml-mm.c perl-libxml-mm.h -perl-libxml-sax.c -perl-libxml-sax.h ppport.h t/00-xpathcontext.t t/01-variables.t --- perl-libxml-sax.h DELETED --- --- perl-libxml-sax.c DELETED --- |