Solaris fixes
[shibboleth/cpp-xmltooling.git] / xmltooling / util / ParserPool.cpp
1 /**
2  * Licensed to the University Corporation for Advanced Internet
3  * Development, Inc. (UCAID) under one or more contributor license
4  * agreements. See the NOTICE file distributed with this work for
5  * additional information regarding copyright ownership.
6  *
7  * UCAID licenses this file to you under the Apache License,
8  * Version 2.0 (the "License"); you may not use this file except
9  * in compliance with the License. You may obtain a copy of the
10  * License at
11  *
12  * http://www.apache.org/licenses/LICENSE-2.0
13  *
14  * Unless required by applicable law or agreed to in writing,
15  * software distributed under the License is distributed on an
16  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,
17  * either express or implied. See the License for the specific
18  * language governing permissions and limitations under the License.
19  */
20
21 /**
22  * ParserPool.cpp
23  *
24  * A thread-safe pool of parsers that share characteristics.
25  */
26
27 #include "internal.h"
28 #include "exceptions.h"
29 #include "logging.h"
30 #include "util/CurlURLInputStream.h"
31 #include "util/NDC.h"
32 #include "util/ParserPool.h"
33 #include "util/Threads.h"
34 #include "util/XMLHelper.h"
35
36 #include <sys/types.h>
37 #include <sys/stat.h>
38 #include <algorithm>
39 #include <functional>
40 #include <boost/algorithm/string.hpp>
41 #include <boost/bind.hpp>
42 #include <boost/tokenizer.hpp>
43 #include <xercesc/util/PlatformUtils.hpp>
44 #include <xercesc/util/XMLUniDefs.hpp>
45 #include <xercesc/sax/SAXException.hpp>
46 #include <xercesc/framework/MemBufInputSource.hpp>
47 #include <xercesc/framework/LocalFileInputSource.hpp>
48 #include <xercesc/framework/Wrapper4InputSource.hpp>
49
50 using namespace xmltooling::logging;
51 using namespace xmltooling;
52 using namespace xercesc;
53 using namespace boost;
54 using namespace std;
55
56
57 namespace {
58     class MyErrorHandler : public DOMErrorHandler {
59     public:
60         unsigned int errors;
61
62         MyErrorHandler() : errors(0) {}
63
64         bool handleError(const DOMError& e)
65         {
66 #ifdef _DEBUG
67             xmltooling::NDC ndc("handleError");
68 #endif
69             Category& log=Category::getInstance(XMLTOOLING_LOGCAT".ParserPool");
70
71             DOMLocator* locator=e.getLocation();
72             auto_ptr_char temp(e.getMessage());
73
74             switch (e.getSeverity()) {
75                 case DOMError::DOM_SEVERITY_WARNING:
76                     log.warnStream() << "warning on line " << locator->getLineNumber()
77                         << ", column " << locator->getColumnNumber()
78                         << ", message: " << temp.get() << logging::eol;
79                     return true;
80
81                 case DOMError::DOM_SEVERITY_ERROR:
82                     ++errors;
83                     log.errorStream() << "error on line " << locator->getLineNumber()
84                         << ", column " << locator->getColumnNumber()
85                         << ", message: " << temp.get() << logging::eol;
86                     return true;
87
88                 case DOMError::DOM_SEVERITY_FATAL_ERROR:
89                     ++errors;
90                     log.errorStream() << "fatal error on line " << locator->getLineNumber()
91                         << ", column " << locator->getColumnNumber()
92                         << ", message: " << temp.get() << logging::eol;
93                     return true;
94             }
95
96             ++errors;
97             log.errorStream() << "undefined error type on line " << locator->getLineNumber()
98                 << ", column " << locator->getColumnNumber()
99                 << ", message: " << temp.get() << logging::eol;
100             return false;
101         }
102     };
103 }
104
105
106 ParserPool::ParserPool(bool namespaceAware, bool schemaAware)
107     : m_namespaceAware(namespaceAware), m_schemaAware(schemaAware), m_lock(Mutex::create()), m_security(new SecurityManager()) {}
108
109 ParserPool::~ParserPool()
110 {
111     while(!m_pool.empty()) {
112         m_pool.top()->release();
113         m_pool.pop();
114     }
115 }
116
117 DOMDocument* ParserPool::newDocument()
118 {
119     return DOMImplementationRegistry::getDOMImplementation(nullptr)->createDocument();
120 }
121
122 #ifdef XMLTOOLING_XERCESC_COMPLIANT_DOMLS
123
124 DOMDocument* ParserPool::parse(DOMLSInput& domsrc)
125 {
126     DOMLSParser* parser=checkoutBuilder();
127     XercesJanitor<DOMLSParser> janitor(parser);
128     try {
129         MyErrorHandler deh;
130         parser->getDomConfig()->setParameter(XMLUni::fgDOMErrorHandler, dynamic_cast<DOMErrorHandler*>(&deh));
131         DOMDocument* doc=parser->parse(&domsrc);
132         if (deh.errors) {
133             if (doc)
134                 doc->release();
135             throw XMLParserException("XML error(s) during parsing, check log for specifics");
136         }
137         parser->getDomConfig()->setParameter(XMLUni::fgDOMErrorHandler, (void*)nullptr);
138         parser->getDomConfig()->setParameter(XMLUni::fgXercesUserAdoptsDOMDocument, true);
139         checkinBuilder(janitor.release());
140         return doc;
141     }
142     catch (XMLException& ex) {
143         parser->getDomConfig()->setParameter(XMLUni::fgDOMErrorHandler, (void*)nullptr);
144         parser->getDomConfig()->setParameter(XMLUni::fgXercesUserAdoptsDOMDocument, true);
145         checkinBuilder(janitor.release());
146         auto_ptr_char temp(ex.getMessage());
147         throw XMLParserException(string("Xerces error during parsing: ") + (temp.get() ? temp.get() : "no message"));
148     }
149     catch (XMLToolingException&) {
150         parser->getDomConfig()->setParameter(XMLUni::fgDOMErrorHandler, (void*)nullptr);
151         parser->getDomConfig()->setParameter(XMLUni::fgXercesUserAdoptsDOMDocument, true);
152         checkinBuilder(janitor.release());
153         throw;
154     }
155 }
156
157 #else
158
159 DOMDocument* ParserPool::parse(DOMInputSource& domsrc)
160 {
161     DOMBuilder* parser=checkoutBuilder();
162     XercesJanitor<DOMBuilder> janitor(parser);
163     try {
164         MyErrorHandler deh;
165         parser->setErrorHandler(&deh);
166         DOMDocument* doc=parser->parse(domsrc);
167         if (deh.errors) {
168             if (doc)
169                 doc->release();
170             throw XMLParserException("XML error(s) during parsing, check log for specifics");
171         }
172         parser->setErrorHandler(nullptr);
173         parser->setFeature(XMLUni::fgXercesUserAdoptsDOMDocument, true);
174         checkinBuilder(janitor.release());
175         return doc;
176     }
177     catch (XMLException& ex) {
178         parser->setErrorHandler(nullptr);
179         parser->setFeature(XMLUni::fgXercesUserAdoptsDOMDocument, true);
180         checkinBuilder(janitor.release());
181         auto_ptr_char temp(ex.getMessage());
182         throw XMLParserException(string("Xerces error during parsing: ") + (temp.get() ? temp.get() : "no message"));
183     }
184     catch (XMLToolingException&) {
185         parser->setErrorHandler(nullptr);
186         parser->setFeature(XMLUni::fgXercesUserAdoptsDOMDocument, true);
187         checkinBuilder(janitor.release());
188         throw;
189     }
190 }
191
192 #endif
193
194 DOMDocument* ParserPool::parse(istream& is)
195 {
196     StreamInputSource src(is);
197     Wrapper4InputSource domsrc(&src,false);
198     return parse(domsrc);
199 }
200
201 // Functor to double its argument separated by a character and append to a buffer
202 template <class T> class doubleit {
203 public:
204     doubleit(T& t, const typename T::value_type& s) : temp(t), sep(s) {}
205     void operator() (const pair<const T,T>& s) { temp += s.first + sep + s.first + sep; }
206     T& temp;
207     const typename T::value_type& sep;
208 };
209
210 bool ParserPool::loadSchema(const XMLCh* nsURI, const XMLCh* pathname)
211 {
212     // Just check the pathname and then directly register the pair into the map.
213
214     auto_ptr_char p(pathname);
215 #ifdef WIN32
216     struct _stat stat_buf;
217     if (_stat(p.get(), &stat_buf) != 0)
218 #else
219     struct stat stat_buf;
220     if (stat(p.get(), &stat_buf) != 0)
221 #endif
222     {
223 #if _DEBUG
224         xmltooling::NDC ndc("loadSchema");
225 #endif
226         Category& log=Category::getInstance(XMLTOOLING_LOGCAT".ParserPool");
227         auto_ptr_char n(nsURI);
228         log.error("failed to load schema for (%s), file not found (%s)",n.get(),p.get());
229         return false;
230     }
231
232     Lock lock(m_lock);
233     m_schemaLocMap[nsURI]=pathname;
234     m_schemaLocations.erase();
235     for_each(m_schemaLocMap.begin(), m_schemaLocMap.end(), doubleit<xstring>(m_schemaLocations,chSpace));
236
237     return true;
238 }
239
240 bool ParserPool::loadCatalogs(const char* pathnames)
241 {
242     string temp(pathnames);
243     boost::tokenizer< char_separator<char> > catpaths(temp, char_separator<char>(PATH_SEPARATOR_STR));
244     for_each(
245         catpaths.begin(), catpaths.end(),
246         // Call loadCatalog with an inner call to s->c_str() on each entry.
247         boost::bind(static_cast<bool (ParserPool::*)(const char*)>(&ParserPool::loadCatalog), this, boost::bind(&string::c_str, _1))
248         );
249     return catpaths.begin() != catpaths.end();
250 }
251
252 bool ParserPool::loadCatalog(const char* pathname)
253 {
254     auto_ptr_XMLCh temp(pathname);
255     return loadCatalog(temp.get());
256 }
257
258 bool ParserPool::loadCatalog(const XMLCh* pathname)
259 {
260 #if _DEBUG
261     xmltooling::NDC ndc("loadCatalog");
262 #endif
263     Category& log=Category::getInstance(XMLTOOLING_LOGCAT".ParserPool");
264
265     // XML constants
266     static const XMLCh catalog[] =  UNICODE_LITERAL_7(c,a,t,a,l,o,g);
267     static const XMLCh system[] =   UNICODE_LITERAL_6(s,y,s,t,e,m);
268     static const XMLCh systemId[] = UNICODE_LITERAL_8(s,y,s,t,e,m,I,d);
269     static const XMLCh uri[] =      UNICODE_LITERAL_3(u,r,i);
270     static const XMLCh CATALOG_NS[] = {
271         chLatin_u, chLatin_r, chLatin_n, chColon,
272         chLatin_o, chLatin_a, chLatin_s, chLatin_i, chLatin_s, chColon,
273         chLatin_n, chLatin_a, chLatin_m, chLatin_e, chLatin_s, chColon,
274         chLatin_t, chLatin_c, chColon,
275         chLatin_e, chLatin_n, chLatin_t, chLatin_i, chLatin_t, chLatin_y, chColon,
276         chLatin_x, chLatin_m, chLatin_l, chLatin_n, chLatin_s, chColon,
277         chLatin_x, chLatin_m, chLatin_l, chColon,
278         chLatin_c, chLatin_a, chLatin_t, chLatin_a, chLatin_l, chLatin_o, chLatin_g, chNull
279     };
280
281     // Parse the catalog with the internal parser pool.
282
283     if (log.isDebugEnabled()) {
284         auto_ptr_char temp(pathname);
285         log.debug("loading XML catalog from %s", temp.get());
286     }
287
288     LocalFileInputSource fsrc(nullptr,pathname);
289     Wrapper4InputSource domsrc(&fsrc,false);
290     try {
291         DOMDocument* doc=XMLToolingConfig::getConfig().getParser().parse(domsrc);
292         XercesJanitor<DOMDocument> janitor(doc);
293
294         // Check root element.
295         const DOMElement* root=doc->getDocumentElement();
296         if (!XMLHelper::isNodeNamed(root,CATALOG_NS,catalog)) {
297             auto_ptr_char temp(pathname);
298             log.error("unknown root element, failed to load XML catalog from %s", temp.get());
299             return false;
300         }
301
302         // Fetch all the <system> elements.
303         DOMNodeList* mappings=root->getElementsByTagNameNS(CATALOG_NS,system);
304         Lock lock(m_lock);
305         for (XMLSize_t i=0; i<mappings->getLength(); i++) {
306             root=static_cast<DOMElement*>(mappings->item(i));
307             const XMLCh* from=root->getAttributeNS(nullptr,systemId);
308             const XMLCh* to=root->getAttributeNS(nullptr,uri);
309             m_schemaLocMap[from]=to;
310         }
311         m_schemaLocations.erase();
312         for_each(m_schemaLocMap.begin(), m_schemaLocMap.end(), doubleit<xstring>(m_schemaLocations,chSpace));
313     }
314     catch (std::exception& e) {
315         log.error("catalog loader caught exception: %s", e.what());
316         return false;
317     }
318
319     return true;
320 }
321
322 #ifdef XMLTOOLING_XERCESC_COMPLIANT_DOMLS
323 DOMLSInput* ParserPool::resolveResource(
324             const XMLCh *const resourceType,
325             const XMLCh *const namespaceUri,
326             const XMLCh *const publicId,
327             const XMLCh *const systemId,
328             const XMLCh *const baseURI
329             )
330 #else
331 DOMInputSource* ParserPool::resolveEntity(
332     const XMLCh* const publicId, const XMLCh* const systemId, const XMLCh* const baseURI
333     )
334 #endif
335 {
336 #if _DEBUG
337     xmltooling::NDC ndc("resolveEntity");
338 #endif
339     if (!systemId)
340         return nullptr;
341     xstring sysId(systemId);
342
343     Category& log=Category::getInstance(XMLTOOLING_LOGCAT".ParserPool");
344     if (log.isDebugEnabled()) {
345         auto_ptr_char sysId(systemId);
346         auto_ptr_char base(baseURI);
347         log.debug("asked to resolve %s with baseURI %s",sysId.get(),base.get() ? base.get() : "(null)");
348     }
349
350     // Find well-known schemas in the specified location.
351     map<xstring,xstring>::const_iterator i = m_schemaLocMap.find(sysId);
352     if (i != m_schemaLocMap.end())
353         return new Wrapper4InputSource(new LocalFileInputSource(baseURI, i->second.c_str()));
354
355     // Check for entity as a suffix of a value in the map.
356     bool (*p_ends_with)(const xstring&, const xstring&) = ends_with;
357     i = find_if(
358         m_schemaLocMap.begin(), m_schemaLocMap.end(),
359         boost::bind(p_ends_with, boost::bind(&map<xstring,xstring>::value_type::second, _1), boost::ref(sysId))
360         );
361     if (i != m_schemaLocMap.end())
362         return new Wrapper4InputSource(new LocalFileInputSource(baseURI, i->second.c_str()));
363
364     // We'll allow anything without embedded slashes.
365     if (XMLString::indexOf(systemId, chForwardSlash) == -1 && XMLString::indexOf(systemId, chBackSlash) == -1)
366         return new Wrapper4InputSource(new LocalFileInputSource(baseURI, systemId));
367
368     // Shortcircuit the request.
369     auto_ptr_char temp(systemId);
370     log.debug("unauthorized entity request (%s), blocking it", temp.get());
371     static const XMLByte nullbuf[] = {0};
372     return new Wrapper4InputSource(new MemBufInputSource(nullbuf, 0, systemId));
373 }
374
375 #ifdef XMLTOOLING_XERCESC_COMPLIANT_DOMLS
376
377 DOMLSParser* ParserPool::createBuilder()
378 {
379     static const XMLCh impltype[] = { chLatin_L, chLatin_S, chNull };
380     DOMImplementation* impl=DOMImplementationRegistry::getDOMImplementation(impltype);
381     DOMLSParser* parser=static_cast<DOMImplementationLS*>(impl)->createLSParser(DOMImplementationLS::MODE_SYNCHRONOUS,nullptr);
382     parser->getDomConfig()->setParameter(XMLUni::fgDOMNamespaces, m_namespaceAware);
383     if (m_schemaAware) {
384         parser->getDomConfig()->setParameter(XMLUni::fgDOMNamespaces, true);
385         parser->getDomConfig()->setParameter(XMLUni::fgXercesSchema, true);
386         parser->getDomConfig()->setParameter(XMLUni::fgDOMValidate, true);
387         parser->getDomConfig()->setParameter(XMLUni::fgXercesCacheGrammarFromParse, true);
388
389         // We build a "fake" schema location hint that binds each namespace to itself.
390         // This ensures the entity resolver will be given the namespace as a systemId it can check.
391         parser->getDomConfig()->setParameter(XMLUni::fgXercesSchemaExternalSchemaLocation, const_cast<XMLCh*>(m_schemaLocations.c_str()));
392     }
393     parser->getDomConfig()->setParameter(XMLUni::fgXercesUserAdoptsDOMDocument, true);
394     parser->getDomConfig()->setParameter(XMLUni::fgXercesDisableDefaultEntityResolution, true);
395     parser->getDomConfig()->setParameter(XMLUni::fgDOMResourceResolver, dynamic_cast<DOMLSResourceResolver*>(this));
396     parser->getDomConfig()->setParameter(XMLUni::fgXercesSecurityManager, m_security.get());
397     return parser;
398 }
399
400 DOMLSParser* ParserPool::checkoutBuilder()
401 {
402     Lock lock(m_lock);
403     if (m_pool.empty()) {
404         DOMLSParser* builder=createBuilder();
405         return builder;
406     }
407     DOMLSParser* p=m_pool.top();
408     m_pool.pop();
409     if (m_schemaAware)
410         p->getDomConfig()->setParameter(XMLUni::fgXercesSchemaExternalSchemaLocation, const_cast<XMLCh*>(m_schemaLocations.c_str()));
411     return p;
412 }
413
414 void ParserPool::checkinBuilder(DOMLSParser* builder)
415 {
416     if (builder) {
417         Lock lock(m_lock);
418         m_pool.push(builder);
419     }
420 }
421
422 #else
423
424 DOMBuilder* ParserPool::createBuilder()
425 {
426     static const XMLCh impltype[] = { chLatin_L, chLatin_S, chNull };
427     DOMImplementation* impl=DOMImplementationRegistry::getDOMImplementation(impltype);
428     DOMBuilder* parser=static_cast<DOMImplementationLS*>(impl)->createDOMBuilder(DOMImplementationLS::MODE_SYNCHRONOUS,0);
429     parser->setFeature(XMLUni::fgDOMNamespaces, m_namespaceAware);
430     if (m_schemaAware) {
431         parser->setFeature(XMLUni::fgDOMNamespaces, true);
432         parser->setFeature(XMLUni::fgXercesSchema, true);
433         parser->setFeature(XMLUni::fgDOMValidation, true);
434         parser->setFeature(XMLUni::fgXercesCacheGrammarFromParse, true);
435
436         // We build a "fake" schema location hint that binds each namespace to itself.
437         // This ensures the entity resolver will be given the namespace as a systemId it can check.
438         parser->setProperty(XMLUni::fgXercesSchemaExternalSchemaLocation,const_cast<XMLCh*>(m_schemaLocations.c_str()));
439     }
440     parser->setProperty(XMLUni::fgXercesSecurityManager, m_security.get());
441     parser->setFeature(XMLUni::fgXercesUserAdoptsDOMDocument, true);
442     parser->setFeature(XMLUni::fgXercesDisableDefaultEntityResolution, true);
443     parser->setEntityResolver(this);
444     return parser;
445 }
446
447 DOMBuilder* ParserPool::checkoutBuilder()
448 {
449     Lock lock(m_lock);
450     if (m_pool.empty()) {
451         DOMBuilder* builder=createBuilder();
452         return builder;
453     }
454     DOMBuilder* p=m_pool.top();
455     m_pool.pop();
456     if (m_schemaAware)
457         p->setProperty(XMLUni::fgXercesSchemaExternalSchemaLocation,const_cast<XMLCh*>(m_schemaLocations.c_str()));
458     return p;
459 }
460
461 void ParserPool::checkinBuilder(DOMBuilder* builder)
462 {
463     if (builder) {
464         Lock lock(m_lock);
465         m_pool.push(builder);
466     }
467 }
468
469 #endif
470
471 StreamInputSource::StreamInputSource(istream& is, const char* systemId) : InputSource(systemId), m_is(is)
472 {
473 }
474
475 BinInputStream* StreamInputSource::makeStream() const
476 {
477     return new StreamBinInputStream(m_is);
478 }
479
480 StreamInputSource::StreamBinInputStream::StreamBinInputStream(istream& is) : m_is(is), m_pos(0)
481 {
482 }
483
484 #ifdef XMLTOOLING_XERCESC_64BITSAFE
485 XMLFilePos
486 #else
487 unsigned int
488 #endif
489 StreamInputSource::StreamBinInputStream::curPos() const
490 {
491     return m_pos;
492 }
493
494 #ifdef XMLTOOLING_XERCESC_64BITSAFE
495 const XMLCh* StreamInputSource::StreamBinInputStream::getContentType() const
496 {
497     return nullptr;
498 }
499 #endif
500
501 xsecsize_t StreamInputSource::StreamBinInputStream::readBytes(XMLByte* const toFill, const xsecsize_t maxToRead)
502 {
503     XMLByte* target=toFill;
504     xsecsize_t bytes_read=0,request=maxToRead;
505
506     // Fulfill the rest by reading from the stream.
507     if (request && !m_is.eof() && !m_is.fail()) {
508         try {
509             m_is.read(reinterpret_cast<char* const>(target),request);
510             m_pos+=m_is.gcount();
511             bytes_read+=m_is.gcount();
512         }
513         catch(ios_base::failure& e) {
514             Category::getInstance(XMLTOOLING_LOGCAT".StreamInputSource").critStream()
515                 << "XML::StreamInputSource::StreamBinInputStream::readBytes caught an exception: " << e.what()
516                 << logging::eol;
517             *toFill=0;
518             return 0;
519         }
520     }
521     return bytes_read;
522 }
523
524 #ifdef XMLTOOLING_LITE
525
526 URLInputSource::URLInputSource(const XMLCh* url, const char* systemId, string* cacheTag) : InputSource(systemId), m_url(url)
527 {
528 }
529
530 URLInputSource::URLInputSource(const DOMElement* e, const char* systemId, string* cacheTag) : InputSource(systemId)
531 {
532     static const XMLCh uri[] = UNICODE_LITERAL_3(u,r,i);
533     static const XMLCh url[] = UNICODE_LITERAL_3(u,r,l);
534
535     const XMLCh* attr = e->getAttributeNS(nullptr, url);
536     if (!attr || !*attr) {
537         attr = e->getAttributeNS(nullptr, uri);
538         if (!attr || !*attr)
539             throw IOException("No URL supplied via DOM to URLInputSource constructor.");
540     }
541
542     m_url.setURL(attr);
543 }
544
545 BinInputStream* URLInputSource::makeStream() const
546 {
547     // Ask the URL to create us an appropriate input stream
548     return m_url.makeNewStream();
549 }
550
551 #else
552
553 URLInputSource::URLInputSource(const XMLCh* url, const char* systemId, string* cacheTag)
554     : InputSource(systemId), m_cacheTag(cacheTag), m_url(url), m_root(nullptr)
555 {
556 }
557
558 URLInputSource::URLInputSource(const DOMElement* e, const char* systemId, string* cacheTag)
559     : InputSource(systemId), m_cacheTag(cacheTag), m_root(e)
560 {
561 }
562
563 BinInputStream* URLInputSource::makeStream() const
564 {
565     return m_root ? new CurlURLInputStream(m_root, m_cacheTag) : new CurlURLInputStream(m_url.get(), m_cacheTag);
566 }
567
568 #endif
569
570 const char URLInputSource::asciiStatusCodeElementName[] = "URLInputSourceStatus";
571
572 const XMLCh URLInputSource::utf16StatusCodeElementName[] = UNICODE_LITERAL_20(U,R,L,I,n,p,u,t,S,o,u,r,c,e,S,t,a,t,u,s);