xml.c

   1 /* usmb - mount SMB shares via FUSE and Samba
   2  * Copyright (C) 2006-2013 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 "config.h"
  18 #include <libxml/xmlreader.h>
  19 #include <libxml/xpath.h>
  20 #include <libxml/xpathInternals.h>
  21 #include <assert.h>
  22 #include <stdbool.h>
  23 #include <string.h>
  24 #include "xml.h"
  25 #include "utils.h"
  26
  27
  28 bool xml_validate_relaxng (xmlDocPtr doc, const char *schema)
  29 {
  30   xmlRelaxNGParserCtxtPtr rngpcptr = NULL;
  31   xmlRelaxNGPtr rngptr = NULL;
  32   xmlRelaxNGValidCtxtPtr rngvptr = NULL;
  33   bool ret = false;
  34
  35   assert (NULL != doc);
  36
  37   do
  38   {
  39     rngpcptr = xmlRelaxNGNewMemParserCtxt (schema, strlen (schema));
  40     if (NULL == rngpcptr)
  41       break;
  42
  43     rngptr = xmlRelaxNGParse (rngpcptr);
  44     if (NULL == rngptr)
  45       break;
  46
  47     rngvptr = xmlRelaxNGNewValidCtxt (rngptr);
  48     if (NULL == rngvptr)
  49       break;
  50
  51     ret = (0 == xmlRelaxNGValidateDoc (rngvptr, doc));
  52   } while (false /*CONSTCOND*/);
  53
  54   if (NULL != rngvptr)
  55     xmlRelaxNGFreeValidCtxt (rngvptr);
  56
  57   if (NULL != rngptr)
  58     xmlRelaxNGFree (rngptr);
  59
  60   if (NULL != rngpcptr)
  61     xmlRelaxNGFreeParserCtxt (rngpcptr);
  62
  63   return ret;
  64 }
  65
  66
  67 bool xml_xpath_attr_value (xmlXPathContextPtr ctx,
  68                            char *xpath,
  69                            const char *attr,
  70                            char **out)
  71 {
  72   xmlXPathObjectPtr obj;
  73   xmlChar *tmp;
  74
  75   assert (NULL != ctx);
  76   assert (NULL != xpath);
  77   assert (NULL != out);
  78
  79   *out = NULL;
  80
  81   obj = xmlXPathEval (BAD_CAST xpath, ctx);
  82   if (NULL == obj)
  83   {
  84     DEBUG (fputs ("XPath evaluation error\n", stderr));
  85     return false;
  86   }
  87
  88   do
  89   {
  90     if (XPATH_NODESET != obj->type)
  91     {
  92       DEBUG (fputs ("XPath evaluation didn't return a nodeset\n", stderr));
  93       break;
  94     }
  95
  96     if (NULL == obj->nodesetval)
  97     {
  98       DEBUG (fputs ("nodesetval is NULL\n", stderr));
  99       break;
 100     }
 101
 102     if (1 != obj->nodesetval->nodeNr)
 103     {
 104       DEBUG (fprintf (stderr, "Nodeset has %d elements\n",
 105                           obj->nodesetval->nodeNr));
 106       break;
 107     }
 108
 109     tmp = xmlGetProp (obj->nodesetval->nodeTab[0], BAD_CAST attr);
 110     if (NULL == tmp)
 111       break;
 112
 113     *out = xstrdup ((char *)tmp);
 114     if (NULL == *out)
 115       break;
 116
 117     xmlXPathFreeObject (obj);
 118     return true;
 119     /*NOTREACHED*/
 120   } while (false /*CONSTCOND*/);
 121
 122   *out = NULL;
 123   xmlXPathFreeObject (obj);
 124   return false;
 125 }
 126
 127
 128 bool xml_xpath_text (xmlXPathContextPtr ctx, char *xpath, char **out)
 129 {
 130   xmlXPathObjectPtr obj;
 131
 132   assert (NULL != ctx);
 133   assert (NULL != xpath);
 134   assert (NULL != out);
 135
 136   *out = NULL;
 137
 138   DEBUG (fprintf (stderr, "xml_xpath_text (%s)\n", xpath));
 139
 140   obj = xmlXPathEval (BAD_CAST xpath, ctx);
 141   if (NULL == obj)
 142   {
 143     DEBUG (fputs ("XPath evaluation error\n", stderr));
 144     return false;
 145   }
 146
 147   do
 148   {
 149     if (XPATH_NODESET != obj->type)
 150     {
 151       DEBUG (fputs ("XPath evaluation didn't return a nodeset\n", stderr));
 152       break;
 153     }
 154
 155     if (NULL == obj->nodesetval)
 156     {
 157       DEBUG (fputs ("nodesetval is NULL\n", stderr));
 158       break;
 159     }
 160
 161     if (1 != obj->nodesetval->nodeNr)
 162     {
 163       DEBUG (fprintf (stderr, "Nodeset has %d elements\n",
 164                           obj->nodesetval->nodeNr));
 165       break;
 166     }
 167
 168     if (NULL == obj->nodesetval->nodeTab[0]->content)
 169     {
 170       DEBUG (fputs ("Node has no text\n", stderr));
 171       break;
 172     }
 173
 174     *out = xstrdup ((char *)obj->nodesetval->nodeTab[0]->content);
 175     if (NULL == *out)
 176       break;
 177
 178     xmlXPathFreeObject (obj);
 179     return true;
 180     /*NOTREACHED*/
 181   } while (false /*CONSTCOND*/);
 182
 183   *out = NULL;
 184   xmlXPathFreeObject (obj);
 185   return false;
 186 }
 187