xml.c

   1 /* usmb - mount SMB shares via FUSE and Samba
   2  * Copyright (C) 2006-2008 Geoff Johnstone
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License version 3 as
   6  * published by the Free Software Foundation.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15  */
  16
  17 #include <libxml/xmlreader.h>
  18 #include <libxml/xpath.h>
  19 #include <libxml/xpathInternals.h>
  20 #include <assert.h>
  21 #include <stdbool.h>
  22 #include <string.h>
  23 #include "xml.h"
  24 #include "utils.h"
  25
  26
  27 bool xml_validate_relaxng (xmlDocPtr doc, const char *schema)
  28 {
  29   xmlRelaxNGParserCtxtPtr rngpcptr = NULL;
  30   xmlRelaxNGPtr rngptr = NULL;
  31   xmlRelaxNGValidCtxtPtr rngvptr = NULL;
  32   bool ret = false;
  33
  34   assert (NULL != doc);
  35
  36   do
  37   {
  38     rngpcptr = xmlRelaxNGNewMemParserCtxt (schema, strlen (schema));
  39     if (NULL == rngpcptr)
  40       break;
  41
  42     rngptr = xmlRelaxNGParse (rngpcptr);
  43     if (NULL == rngptr)
  44       break;
  45
  46     rngvptr = xmlRelaxNGNewValidCtxt (rngptr);
  47     if (NULL == rngvptr)
  48       break;
  49
  50     ret = (0 == xmlRelaxNGValidateDoc (rngvptr, doc));
  51   } while (false /*CONSTCOND*/);
  52
  53   if (NULL != rngvptr)
  54     xmlRelaxNGFreeValidCtxt (rngvptr);
  55
  56   if (NULL != rngptr)
  57     xmlRelaxNGFree (rngptr);
  58
  59   if (NULL != rngpcptr)
  60     xmlRelaxNGFreeParserCtxt (rngpcptr);
  61
  62   return ret;
  63 }
  64
  65
  66 bool xml_xpath_attr_value (xmlXPathContextPtr ctx,
  67                            char *xpath,
  68                            const char *attribute,
  69                            char **out)
  70 {
  71   xmlXPathObjectPtr obj;
  72   xmlChar *tmp;
  73
  74   assert (NULL != ctx);
  75   assert (NULL != xpath);
  76   assert (NULL != out);
  77
  78   *out = NULL;
  79
  80   obj = xmlXPathEval (BAD_CAST xpath, ctx);
  81   if (NULL == obj)
  82   {
  83     DEBUG (fputs ("XPath evaluation error\n", stderr));
  84     return false;
  85   }
  86
  87   do
  88   {
  89     if (XPATH_NODESET != obj->type)
  90     {
  91       DEBUG (fputs ("XPath evaluation didn't return a nodeset\n", stderr));
  92       break;
  93     }
  94
  95     if (NULL == obj->nodesetval)
  96     {
  97       DEBUG (fputs ("nodesetval is NULL\n", stderr));
  98       break;
  99     }
 100
 101     if (1 != obj->nodesetval->nodeNr)
 102     {
 103       DEBUG (fprintf (stderr, "Nodeset has %d elements\n",
 104                           obj->nodesetval->nodeNr));
 105       break;
 106     }
 107
 108     tmp = xmlGetProp (obj->nodesetval->nodeTab[0], BAD_CAST attribute);
 109     if (NULL == tmp)
 110       break;
 111
 112     *out = xstrdup ((char *)tmp);
 113     if (NULL == *out)
 114       break;
 115
 116     xmlXPathFreeObject (obj);
 117     return true;
 118     /*NOTREACHED*/
 119   } while (false /*CONSTCOND*/);
 120
 121   *out = NULL;
 122   xmlXPathFreeObject (obj);
 123   return false;
 124 }
 125
 126
 127 bool xml_xpath_text (xmlXPathContextPtr ctx, char *xpath, char **out)
 128 {
 129   xmlXPathObjectPtr obj;
 130
 131   assert (NULL != ctx);
 132   assert (NULL != xpath);
 133   assert (NULL != out);
 134
 135   *out = NULL;
 136
 137   DEBUG (fprintf (stderr, "xml_xpath_text (%s)\n", xpath));
 138
 139   obj = xmlXPathEval (BAD_CAST xpath, ctx);
 140   if (NULL == obj)
 141   {
 142     DEBUG (fputs ("XPath evaluation error\n", stderr));
 143     return false;
 144   }
 145
 146   do
 147   {
 148     if (XPATH_NODESET != obj->type)
 149     {
 150       DEBUG (fputs ("XPath evaluation didn't return a nodeset\n", stderr));
 151       break;
 152     }
 153
 154     if (NULL == obj->nodesetval)
 155     {
 156       DEBUG (fputs ("nodesetval is NULL\n", stderr));
 157       break;
 158     }
 159
 160     if (1 != obj->nodesetval->nodeNr)
 161     {
 162       DEBUG (fprintf (stderr, "Nodeset has %d elements\n",
 163                           obj->nodesetval->nodeNr));
 164       break;
 165     }
 166
 167     if (NULL == obj->nodesetval->nodeTab[0]->content)
 168     {
 169       DEBUG (fputs ("Node has no text\n", stderr));
 170       break;
 171     }
 172
 173     *out = xstrdup ((char *)obj->nodesetval->nodeTab[0]->content);
 174     if (NULL == *out)
 175       break;
 176
 177     xmlXPathFreeObject (obj);
 178     return true;
 179     /*NOTREACHED*/
 180   } while (false /*CONSTCOND*/);
 181
 182   *out = NULL;
 183   xmlXPathFreeObject (obj);
 184   return false;
 185 }
 186