Coverage Report

Created: 2024-08-17 11:00

/src/libxslt/libexslt/common.c
Line
Count
Source (jump to first uncovered line)
1
#define IN_LIBEXSLT
2
#include "libexslt/libexslt.h"
3
4
#include <libxml/tree.h>
5
#include <libxml/xpath.h>
6
#include <libxml/xpathInternals.h>
7
8
#include <libxslt/xsltutils.h>
9
#include <libxslt/xsltInternals.h>
10
#include <libxslt/extensions.h>
11
#include <libxslt/transform.h>
12
#include <libxslt/extra.h>
13
#include <libxslt/preproc.h>
14
15
#include "exslt.h"
16
17
static void
18
8
exsltNodeSetFunction (xmlXPathParserContextPtr ctxt, int nargs) {
19
8
    if (nargs != 1) {
20
2
  xmlXPathSetArityError(ctxt);
21
2
  return;
22
2
    }
23
6
    if (xmlXPathStackIsNodeSet (ctxt)) {
24
2
  xsltFunctionNodeSet (ctxt, nargs);
25
2
  return;
26
4
    } else {
27
4
  xmlDocPtr fragment;
28
4
  xsltTransformContextPtr tctxt = xsltXPathGetTransformContext(ctxt);
29
4
  xmlNodePtr txt;
30
4
  xmlChar *strval;
31
4
  xmlXPathObjectPtr obj;
32
  /*
33
  * SPEC EXSLT:
34
  * "You can also use this function to turn a string into a text
35
  * node, which is helpful if you want to pass a string to a
36
  * function that only accepts a node-set."
37
  */
38
4
  fragment = xsltCreateRVT(tctxt);
39
4
  if (fragment == NULL) {
40
0
      xsltTransformError(tctxt, NULL, tctxt->inst,
41
0
    "exsltNodeSetFunction: Failed to create a tree fragment.\n");
42
0
      tctxt->state = XSLT_STATE_STOPPED;
43
0
      return;
44
0
  }
45
4
  xsltRegisterLocalRVT(tctxt, fragment);
46
47
4
  strval = xmlXPathPopString (ctxt);
48
49
4
  txt = xmlNewDocText (fragment, strval);
50
4
  xmlAddChild((xmlNodePtr) fragment, txt);
51
4
  obj = xmlXPathNewNodeSet(txt);
52
4
  if (obj == NULL) {
53
0
      xsltTransformError(tctxt, NULL, tctxt->inst,
54
0
    "exsltNodeSetFunction: Failed to create a node set object.\n");
55
0
      tctxt->state = XSLT_STATE_STOPPED;
56
0
  }
57
4
  if (strval != NULL)
58
4
      xmlFree (strval);
59
60
4
  valuePush (ctxt, obj);
61
4
    }
62
6
}
63
64
static void
65
4
exsltObjectTypeFunction (xmlXPathParserContextPtr ctxt, int nargs) {
66
4
    xmlXPathObjectPtr obj, ret;
67
68
4
    if (nargs != 1) {
69
2
  xmlXPathSetArityError(ctxt);
70
2
  return;
71
2
    }
72
73
2
    obj = valuePop(ctxt);
74
75
2
    switch (obj->type) {
76
0
    case XPATH_STRING:
77
0
  ret = xmlXPathNewCString("string");
78
0
  break;
79
2
    case XPATH_NUMBER:
80
2
  ret = xmlXPathNewCString("number");
81
2
  break;
82
0
    case XPATH_BOOLEAN:
83
0
  ret = xmlXPathNewCString("boolean");
84
0
  break;
85
0
    case XPATH_NODESET:
86
0
  ret = xmlXPathNewCString("node-set");
87
0
  break;
88
0
    case XPATH_XSLT_TREE:
89
0
  ret = xmlXPathNewCString("RTF");
90
0
  break;
91
0
    case XPATH_USERS:
92
0
  ret = xmlXPathNewCString("external");
93
0
  break;
94
0
    default:
95
0
  xsltGenericError(xsltGenericErrorContext,
96
0
    "object-type() invalid arg\n");
97
0
  ctxt->error = XPATH_INVALID_TYPE;
98
0
  xmlXPathFreeObject(obj);
99
0
  return;
100
2
    }
101
2
    xmlXPathFreeObject(obj);
102
2
    valuePush(ctxt, ret);
103
2
}
104
105
106
/**
107
 * exsltCommonRegister:
108
 *
109
 * Registers the EXSLT - Common module
110
 */
111
112
void
113
12
exsltCommonRegister (void) {
114
12
    xsltRegisterExtModuleFunction((const xmlChar *) "node-set",
115
12
          EXSLT_COMMON_NAMESPACE,
116
12
          exsltNodeSetFunction);
117
12
    xsltRegisterExtModuleFunction((const xmlChar *) "object-type",
118
12
          EXSLT_COMMON_NAMESPACE,
119
12
          exsltObjectTypeFunction);
120
12
    xsltRegisterExtModuleElement((const xmlChar *) "document",
121
12
         EXSLT_COMMON_NAMESPACE,
122
12
         xsltDocumentComp,
123
12
         xsltDocumentElem);
124
12
}