Source

perl-XML-LibXML / xpath.c

ma...@9ae0c189-c… 7f5ccab 






















































#include <libxml/tree.h>
#include <libxml/xpath.h>
#include <libxml/xpathInternals.h>

#include "dom.h"

/**
 * Most of the code is stolen from textXPath. 
 * The almost only thing I added, is the storeing of the data, so
 * we can access the data easily - or say more easiely than through
 * libxml2.
 **/

xmlNodeSetPtr
domXPathSelect( xmlNodePtr refNode, xmlChar * path ) {
  xmlNodeSetPtr rv ;
  
  rv = xmlXPathNodeSetCreate( 0 );
  
  if ( refNode != 0 && refNode->doc != 0 && path != 0 ) {
    /* we can only do a path in a valid document! 
     */
    xmlXPathObjectPtr res;
    xmlXPathContextPtr ctxt;
    xmlXPathCompExprPtr comp;

    /* prepare the xpath context */
    ctxt = xmlXPathNewContext( refNode->doc );
    ctxt->node = refNode;

    comp = xmlXPathCompile( path );
    if (comp != NULL) {
      res = xmlXPathCompiledEval(comp, ctxt);
      xmlXPathFreeCompExpr(comp);

      /* here we have to transfer the result from the internal
         structure to the return value */
      if ( res != NULL ) {
	/* get the result from the query */
	/* we have to unbind the nodelist, so free object can 
	   not kill it */
	rv = res->nodesetval;  
	res->nodesetval = 0 ;

      }
    }
    else {
      res = NULL;
    }
    
    xmlXPathFreeObject(res);
    xmlXPathFreeContext(ctxt);
  }

  return rv;
}