/*
* call-seq:
* register_variable(name, value)
*
* Register the variable +name+ with +value+.
*/
static VALUE register_variable(VALUE self, VALUE name, VALUE value)
{
xmlXPathContextPtr ctx;
xmlXPathObjectPtr xmlValue;
Data_Get_Struct(self, xmlXPathContext, ctx);
xmlValue = xmlXPathNewCString(StringValuePtr(value));
xmlXPathRegisterVariable( ctx,
(const xmlChar *)StringValuePtr(name),
xmlValue
);
return self;
}
/**
* Loop through array of operations and perform them
*/
static void
edProcess(xmlDocPtr doc, const XmlEdAction* ops, int ops_count)
{
int k;
xmlXPathContextPtr ctxt = xmlXPathNewContext(doc);
/* NOTE: later registrations override earlier ones */
registerXstarNs(ctxt);
/* variables */
previous_insertion = xmlXPathNodeSetCreate(NULL);
registerXstarVariable(ctxt, "prev",
xmlXPathWrapNodeSet(previous_insertion));
xmlDeregisterNodeDefault(&removeNodeFromPrev);
#if HAVE_EXSLT_XPATH_REGISTER
/* register extension functions */
exsltDateXpathCtxtRegister(ctxt, BAD_CAST "date");
exsltMathXpathCtxtRegister(ctxt, BAD_CAST "math");
exsltSetsXpathCtxtRegister(ctxt, BAD_CAST "set");
exsltStrXpathCtxtRegister(ctxt, BAD_CAST "str");
#endif
/* namespaces from doc */
extract_ns_defs(doc, ctxt);
/* namespaces from command line */
nsarr_xpath_register(ctxt);
for (k = 0; k < ops_count; k++)
{
xmlXPathObjectPtr res;
xmlNodeSetPtr nodes;
/* NOTE: to make relative paths match as if from "/", set context to
document; setting to root would match as if from "/node()/" */
ctxt->node = (xmlNodePtr) doc;
if (ops[k].op == XML_ED_VAR) {
res = xmlXPathEvalExpression(BAD_CAST ops[k].arg2, ctxt);
xmlXPathRegisterVariable(ctxt, BAD_CAST ops[k].arg1, res);
continue;
}
res = xmlXPathEvalExpression(BAD_CAST ops[k].arg1, ctxt);
if (!res || res->type != XPATH_NODESET || !res->nodesetval) continue;
nodes = res->nodesetval;
switch (ops[k].op)
{
case XML_ED_DELETE:
edDelete(doc, nodes);
break;
case XML_ED_MOVE: {
xmlXPathObjectPtr res_to;
ctxt->node = (xmlNodePtr) doc;
res_to = xmlXPathEvalExpression(BAD_CAST ops[k].arg2, ctxt);
if (!res_to
|| res_to->type != XPATH_NODESET
|| res_to->nodesetval->nodeNr != 1) {
fprintf(stderr, "move destination is not a single node\n");
continue;
}
edMove(doc, nodes, res_to->nodesetval->nodeTab[0]);
xmlXPathFreeObject(res_to);
break;
}
case XML_ED_UPDATE:
edUpdate(doc, nodes, ops[k].arg2, ops[k].type, ctxt);
break;
case XML_ED_RENAME:
edRename(doc, nodes, ops[k].arg2, ops[k].type);
break;
case XML_ED_INSERT:
edInsert(doc, nodes, ops[k].arg2, ops[k].arg3, ops[k].type, -1);
break;
case XML_ED_APPEND:
edInsert(doc, nodes, ops[k].arg2, ops[k].arg3, ops[k].type, 1);
break;
case XML_ED_SUBNODE:
edInsert(doc, nodes, ops[k].arg2, ops[k].arg3, ops[k].type, 0);
break;
default:
break;
}
xmlXPathFreeObject(res);
}
/* NOTE: free()ing ctxt also free()s previous_insertion */
previous_insertion = NULL;
xmlDeregisterNodeDefault(NULL);
xmlXPathFreeContext(ctxt);
}
