diff GEMBASSY-1.0.3/gsoap/wsdl/wsdl.cpp @ 0:8300eb051bea draft

Initial upload
author ktnyt
date Fri, 26 Jun 2015 05:19:29 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GEMBASSY-1.0.3/gsoap/wsdl/wsdl.cpp	Fri Jun 26 05:19:29 2015 -0400
@@ -0,0 +1,1536 @@
+/*
+	wsdl.cpp
+
+	WSDL 1.1 and WSDL 2.0 binding schema implementation
+
+--------------------------------------------------------------------------------
+gSOAP XML Web services tools
+Copyright (C) 2000-2012, Robert van Engelen, Genivia Inc. All Rights Reserved.
+This software is released under one of the following licenses:
+GPL or Genivia's license for commercial use.
+--------------------------------------------------------------------------------
+GPL license.
+
+This program is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License, or (at your option) any later
+version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place, Suite 330, Boston, MA 02111-1307 USA
+
+Author contact information:
+engelen@genivia.com / engelen@acm.org
+--------------------------------------------------------------------------------
+A commercial use license is available from Genivia, Inc., contact@genivia.com
+--------------------------------------------------------------------------------
+
+*/
+
+#include "wsdlH.h"
+#include "includes.h"
+
+extern struct Namespace namespaces[];
+
+const char *qname_token(const char *QName, const char *URI)
+{ if (QName && QName[0] == '"' && QName[1] == '"' && QName[2] == ':')
+    return QName + 3;
+  if (QName && URI && *QName == '"') // QNames are stored in the format "URI":name, unless the URI is in the nsmap
+  { size_t n = strlen(URI);
+    if (!strncmp(QName + 1, URI, n) && QName[n + 1] == '"')
+      return QName + n + 3;
+  }
+  return NULL;
+}
+
+int is_builtin_qname(const char *QName)
+{ if (iflag)
+    return 1;
+  if (QName)
+  { if (*QName == '#') // reserved QNames
+      return 0;
+    if (*QName != '"')
+      return 1;	// if the QName does not start with a ", it must be in the nsmap
+    const char *s = strchr(QName + 1, '"');
+    if (s)
+    { size_t n = s - QName - 1;
+      for (SetOfString::const_iterator i = exturis.begin(); i != exturis.end(); ++i)
+        if (strlen(*i) == n && !strncmp(QName + 1, *i, n))
+          return 1; // QName is in exturis
+    }
+  }
+  return 0;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+//
+//	wsdl
+//
+////////////////////////////////////////////////////////////////////////////////
+
+extern "C" {
+int warn_ignore(struct soap*, const char*);
+int show_ignore(struct soap*, const char*);
+}
+
+wsdl__definitions::wsdl__definitions()
+{ soap = soap_new1(SOAP_XML_TREE | SOAP_C_UTFSTRING);
+#ifdef HTTPDA_H
+  soap_register_plugin(soap, http_da);
+#endif
+#ifdef WITH_OPENSSL
+  soap_ssl_client_context(soap, SOAP_SSL_NO_AUTHENTICATION, NULL, NULL, NULL, NULL, NULL);
+#endif
+  soap_set_namespaces(soap, namespaces);
+  soap_default(soap);
+  if (vflag)
+    soap->fignore = show_ignore;
+  else
+    soap->fignore = warn_ignore;
+  soap->encodingStyle = NULL;
+  soap->proxy_host = proxy_host;
+  soap->proxy_port = proxy_port;
+  soap->proxy_userid = proxy_userid;
+  soap->proxy_passwd = proxy_passwd;
+  name = NULL;
+  targetNamespace = soap_strdup(soap, "");
+  documentation = NULL;
+  types = NULL;
+  updated = false;
+  location = NULL;
+  redirs = 0;
+}
+
+wsdl__definitions::wsdl__definitions(struct soap *copy, const char *cwd, const char *loc)
+{ soap = soap_copy(copy);
+  soap->socket = SOAP_INVALID_SOCKET;
+  soap->recvfd = 0;
+  soap->sendfd = 1;
+  strcpy(soap->host, copy->host);
+  soap_default(soap);
+  soap->fignore = warn_ignore;
+  soap->encodingStyle = NULL;
+  updated = false;
+  location = NULL;
+  redirs = 0;
+  read(cwd, loc);
+}
+
+wsdl__definitions::~wsdl__definitions()
+{ soap_destroy(soap);
+  soap_end(soap);
+  soap_done(soap);
+  free(soap);
+}
+
+int wsdl__definitions::get(struct soap *soap)
+{ return preprocess();
+}
+
+int wsdl__definitions::read(int num, char **loc)
+{ if (num <= 0)
+    return read((const char*)NULL, (const char*)NULL);
+  if (num == 1)
+    return read((const char*)NULL, loc[0]);
+  wsdl__import im;
+  im.namespace_ = NULL;
+  name = soap_strdup(soap, "WSDL");
+  targetNamespace = soap_strdup(soap, "");;
+  for (int i = 0; i < num; i++)
+  { im.location = loc[i];
+    import.push_back(im);
+  }
+  return preprocess();
+}
+
+int wsdl__definitions::read(const char *cwd, const char *loc)
+{ const char *cwd_temp;
+  if (!cwd)
+    cwd = cwd_path;
+  if (vflag)
+    fprintf(stderr, "\nOpening WSDL/XSD '%s' from '%s'\n", loc?loc:"", cwd?cwd:"");
+  if (loc)
+  { if (soap->recvfd > 2)
+    { soap_end_recv(soap);
+      close(soap->recvfd);
+      soap->recvfd = -1;
+    }
+    else if (soap_valid_socket(soap->socket))
+    { soap_end_recv(soap);
+      soap_closesock(soap);
+    }
+#ifdef WITH_OPENSSL
+    if (!strncmp(loc, "http://", 7) || !strncmp(loc, "https://", 8))
+#else
+    if (!strncmp(loc, "https://", 8))
+    { fprintf(stderr, "\nCannot connect to https site: no SSL support, please rebuild wsdl2h with SSL or download the files and rerun wsdl2h\n");
+      exit(1);
+    }
+    else if (!strncmp(loc, "http://", 7))
+#endif
+    { fprintf(stderr, "\nConnecting to '%s' to retrieve WSDL/XSD...\n", loc);
+      location = soap_strdup(soap, loc);
+      if (soap_connect_command(soap, SOAP_GET, location, NULL))
+      { fprintf(stderr, "Connection failed\n");
+        soap_print_fault(soap, stderr);
+        exit(1);
+      }
+      fprintf(stderr, "Connected, receiving...\n");
+    }
+    else if (cwd && (!strncmp(cwd, "http://", 7) || !strncmp(cwd, "https://", 8)))
+    { char *s;
+      location = (char*)soap_malloc(soap, strlen(cwd) + strlen(loc) + 2);
+      strcpy(location, cwd);
+      s = strrchr(location, '/');
+      if (s)
+        *s = '\0';
+      strcat(location, "/");
+      strcat(location, loc);
+      fprintf(stderr, "\nConnecting to '%s' to retrieve relative path '%s' WSDL/XSD...\n", location, loc);
+      if (soap_connect_command(soap, SOAP_GET, location, NULL))
+      { fprintf(stderr, "Connection failed\n");
+        exit(1);
+      }
+      fprintf(stderr, "Connected, receiving...\n");
+    }
+    else
+    { soap->recvfd = open(loc, O_RDONLY, 0);
+      if (soap->recvfd < 0)
+      { if (cwd)
+        { char *s;
+          location = (char*)soap_malloc(soap, strlen(cwd) + strlen(loc) + 2);
+          strcpy(location, cwd);
+          s = strrchr(location, '/');
+#ifdef WIN32
+          if (!s)
+            s = strrchr(location, '\\');
+#endif
+          if (s)
+            *s = '\0';
+          strcat(location, "/");
+          strcat(location, loc);
+          if (!strncmp(location, "file://", 7))
+            location += 7;
+          soap->recvfd = open(location, O_RDONLY, 0);
+        }
+        if (soap->recvfd < 0 && import_path)
+        { location = (char*)soap_malloc(soap, strlen(import_path) + strlen(loc) + 2);
+          strcpy(location, import_path);
+          strcat(location, "/");
+          strcat(location, loc);
+          if (!strncmp(location, "file://", 7))
+            location += 7;
+          soap->recvfd = open(location, O_RDONLY, 0);
+        }
+        if (soap->recvfd < 0)
+        { fprintf(stderr, "\nCannot open '%s'\n", loc);
+          exit(1);
+        }
+      }
+      else
+        location = soap_strdup(soap, loc);
+      fprintf(stderr, "\nReading file '%s'...\n", location);
+    }
+  }
+  cwd_temp = cwd_path;
+  cwd_path = location;
+  if (!soap_begin_recv(soap))
+    this->soap_in(soap, "wsdl:", NULL);
+  if (soap->error)
+  { // handle sloppy WSDLs that import schemas at the top level rather than
+    // importing them in <types>
+    if (soap->error == SOAP_TAG_MISMATCH && soap->level == 0)
+    { soap_retry(soap);
+      xs__schema *schema = soap_new_xs__schema(soap, -1);
+      schema->soap_in(soap, "xs:schema", NULL);
+      if (soap->error)
+      { fprintf(stderr, "\nAn error occurred while parsing WSDL or XSD from '%s'\n", loc?loc:"");
+        soap_print_fault(soap, stderr);
+        if (soap->error < 200)
+          soap_print_fault_location(soap, stderr);
+        exit(1);
+      }
+      name = NULL;
+      targetNamespace = schema->targetNamespace;
+      if (vflag)
+        cerr << "Found schema '" << (targetNamespace?targetNamespace:"") << "' when expecting WSDL" << endl;
+      types = soap_new_wsdl__types(soap, -1);
+      types->documentation = NULL;
+      types->xs__schema_.push_back(schema);
+      types->preprocess(*this);
+    }
+    // check HTTP redirect (socket was closed)
+    else if ((soap->error >= 301 && soap->error <= 303) || soap->error == 307)
+    { int r = SOAP_ERR;
+      fprintf(stderr, "Redirected to '%s'...\n", soap->endpoint);
+      if (redirs++ < 10)
+        r = read(cwd, soap->endpoint);
+      else
+        fprintf(stderr, "\nMax redirects exceeded\n");
+      redirs--;
+      return r;
+    }
+    else if (soap->error == 401)
+    { int r = SOAP_ERR;
+      fprintf(stderr, "Authenticating to '%s' realm '%s'...\n", loc, soap->authrealm);
+      if (auth_userid && auth_passwd && redirs++ < 1)
+      { 
+#ifdef HTTPDA_H
+        struct http_da_info info;
+        http_da_save(soap, &info, soap->authrealm, auth_userid, auth_passwd);
+#else
+        soap->userid = auth_userid;
+        soap->passwd = auth_passwd;
+#endif
+        r = read(cwd, loc);
+#ifdef HTTPDA_H
+        http_da_release(soap, &info);
+#endif
+        redirs--;
+      }
+      else
+        fprintf(stderr, "Authentication failed, use option -r:uid:pwd and (re)build with OpenSSL to enable digest authentication\n");
+      return r;
+    }
+    else
+    { fprintf(stderr, "\nAn error occurred while parsing WSDL from '%s'\n", loc?loc:"");
+      soap_print_fault(soap, stderr);
+      if (soap->error < 200)
+        soap_print_fault_location(soap, stderr);
+      exit(1);
+    }
+  }
+  fprintf(stderr, "Done reading '%s'\n", loc?loc:"");
+  soap_end_recv(soap);
+  if (soap->recvfd > 2)
+  { close(soap->recvfd);
+    soap->recvfd = -1;
+  }
+  else
+    soap_closesock(soap);
+  cwd_path = cwd_temp;
+  return SOAP_OK;
+}
+
+int wsdl__definitions::preprocess()
+{ if (vflag)
+    cerr << "Preprocessing wsdl definitions '" << (location?location:"") << "' namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+  // process import
+  for (vector<wsdl__import>::iterator im1 = import.begin(); im1 != import.end(); ++im1)
+    (*im1).preprocess(*this);
+  // merge nested imported WSDLs into single import list
+again:
+  for (vector<wsdl__import>::iterator im2 = import.begin(); im2 != import.end(); ++im2)
+  { if ((*im2).definitionsPtr())
+    { for (vector<wsdl__import>::iterator i = (*im2).definitionsPtr()->import.begin(); i != (*im2).definitionsPtr()->import.end(); ++i)
+      { if ((*i).definitionsPtr())
+        { bool found = false;
+          if (vflag)
+            cerr << "Import WSDL '" << ((*i).location?(*i).location:"") << endl;
+          for (vector<wsdl__import>::iterator j = import.begin(); j != import.end(); ++j)
+          { if ((*i).definitionsPtr() == (*j).definitionsPtr()
+             || ((*i).location && (*j).location && !strcmp((*i).location, (*j).location)))
+            { found = true;
+              break;
+            }
+          }
+          if (!found)
+          { if (vflag)
+              cerr << "Adding imported WSDL '" << ((*i).location?(*i).location:"") << "' to '" << (location?location:"") << "' ('" << (name?name:"") << "') namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+            import.push_back(*i);
+            goto again;
+          }
+        }
+      }
+    }
+  }
+  // merge <types>
+  for (vector<wsdl__import>::iterator im3 = import.begin(); im3 != import.end(); ++im3)
+  { if ((*im3).definitionsPtr() && (*im3).definitionsPtr()->types)
+    { if (!types)
+      { types = soap_new_wsdl__types(soap, -1);
+        types->soap_default(soap);
+      }
+      // merge <types>, check for duplicates, add namespaces for sloppy imports
+      for (vector<xs__schema*>::const_iterator i = (*im3).definitionsPtr()->types->xs__schema_.begin(); i != (*im3).definitionsPtr()->types->xs__schema_.end(); ++i)
+      { bool found = false;
+        vector<xs__schema*>::const_iterator j;
+        if (!(*i)->targetNamespace)
+        { (*i)->targetNamespace = targetNamespace;
+          if (!Wflag)
+	    cerr << "Warning: schema without namespace, assigning namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+        }
+        for (j = types->xs__schema_.begin(); j != types->xs__schema_.end(); ++j)
+        { if ((*j)->targetNamespace && !strcmp((*i)->targetNamespace, (*j)->targetNamespace))
+          { found = true;
+            break;
+          }
+        }
+        // add new schema only if not already in <types>, otherwise merge schema components
+        if (found)
+        { if (vflag)
+            cerr << "Warning: duplicate schema with namespace '" << ((*i)->targetNamespace?(*i)->targetNamespace:"") << "' merged in WSDL '" << (name?name:"") << "' namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+          (*j)->insert(*(*i));
+        }
+        else
+        { if (vflag)
+            cerr << "Adding schema with namespace '" << ((*i)->targetNamespace?(*i)->targetNamespace:"") << "' to types in WSDL '" << (name?name:"") << "' namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+          types->xs__schema_.push_back(*i);
+        }
+      }
+    }
+  }
+  // process the types
+  if (types)
+    types->preprocess(*this);
+  return SOAP_OK;
+}
+
+int wsdl__definitions::traverse()
+{ if (updated)
+    return SOAP_OK;
+  if (vflag)
+    cerr << "Analyzing definitions '" << (name?name:"") << "' in wsdl namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+  updated = true;
+  if (!targetNamespace)
+  { if (vflag)
+      cerr << "Warning: wsdl '" << (name?name:"") << "' has no targetNamespace" << endl;
+    targetNamespace = soap_strdup(soap, "");
+  }
+  // process import first
+  for (vector<wsdl__import>::iterator im = import.begin(); im != import.end(); ++im)
+    (*im).traverse(*this);
+  // then process the types
+  if (types)
+    types->traverse(*this);
+  // process messages before portType
+  for (vector<wsdl__message>::iterator mg = message.begin(); mg != message.end(); ++mg)
+    (*mg).traverse(*this);
+  // process portType before binding
+  for (vector<wsdl__portType>::iterator pt = portType.begin(); pt != portType.end(); ++pt)
+    (*pt).traverse(*this);
+  // process interface before binding WSDL 2.0
+  for (vector<wsdl__portType>::iterator in = interface_.begin(); in != interface_.end(); ++in)
+    (*in).traverse(*this);
+  // process binding
+  for (vector<wsdl__binding>::iterator bg = binding.begin(); bg != binding.end(); ++bg)
+    (*bg).traverse(*this);
+  // process service
+  for (vector<wsdl__service>::iterator sv = service.begin(); sv != service.end(); ++sv)
+    (*sv).traverse(*this);
+  if (vflag)
+    cerr << "End of definitions '" << (name?name:"") << "' namespace '" << (targetNamespace?targetNamespace:"") << "'" << endl;
+  for (std::vector<wsp__Policy>::iterator p = wsp__Policy_.begin(); p != wsp__Policy_.end(); ++p)
+    (*p).traverse(*this);
+  return SOAP_OK;
+}
+
+const char *wsdl__definitions::sourceLocation()
+{ return location;
+}
+
+int wsdl__definitions::error()
+{ return soap->error;
+}
+
+void wsdl__definitions::print_fault()
+{ soap_print_fault(soap, stderr);
+  if (soap->error < 200)
+    soap_print_fault_location(soap, stderr);
+}
+
+void wsdl__definitions::builtinType(const char *type)
+{ builtinTypeSet.insert(type);
+}
+
+void wsdl__definitions::builtinTypes(const SetOfString& types)
+{ for (SetOfString::const_iterator tp = types.begin(); tp != types.end(); ++tp)
+    builtinTypeSet.insert(*tp);
+}
+
+void wsdl__definitions::builtinElement(const char *element)
+{ builtinElementSet.insert(element);
+}
+
+void wsdl__definitions::builtinElements(const SetOfString& elements)
+{ for (SetOfString::const_iterator el = elements.begin(); el != elements.end(); ++el)
+   builtinElementSet.insert(*el);
+}
+
+void wsdl__definitions::builtinAttribute(const char *attribute)
+{ builtinAttributeSet.insert(attribute);
+}
+
+void wsdl__definitions::builtinAttributes(const SetOfString& attributes)
+{ for (SetOfString::const_iterator at = attributes.begin(); at != attributes.end(); ++at)
+    builtinAttributeSet.insert(*at);
+}
+
+const SetOfString& wsdl__definitions::builtinTypes() const
+{ return builtinTypeSet;
+}
+
+const SetOfString& wsdl__definitions::builtinElements() const
+{ return builtinElementSet;
+}
+
+const SetOfString& wsdl__definitions::builtinAttributes() const
+{ return builtinAttributeSet;
+}
+
+int wsdl__service::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "Analyzing service '" << (name?name:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  // process ports
+  for (vector<wsdl__port>::iterator pt = port.begin(); pt != port.end(); ++pt)
+    (*pt).traverse(definitions);
+  for (vector<wsdl__port>::iterator ep = endpoint.begin(); ep != endpoint.end(); ++ep)
+    (*ep).traverse(definitions);
+  for (vector<wsp__Policy>::iterator py = wsp__Policy_.begin(); py != wsp__Policy_.end(); ++py)
+    (*py).traverse(definitions);
+  for (vector<wsp__PolicyReference>::iterator pr = wsp__PolicyReference_.begin(); pr != wsp__PolicyReference_.end(); ++pr)
+    (*pr).traverse(definitions);
+  return SOAP_OK;
+}
+
+wsdl__port::wsdl__port()
+{ bindingRef = NULL;
+}
+
+int wsdl__port::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << " Analyzing service port/endpoint in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  // search binding name
+  const char *token = qname_token(binding, definitions.targetNamespace);
+  bindingRef = NULL;
+  if (token)
+  { for (vector<wsdl__binding>::iterator binding = definitions.binding.begin(); binding != definitions.binding.end(); ++binding)
+    { if ((*binding).name && !strcmp((*binding).name, token))
+      { bindingRef = &(*binding);
+        if (vflag)
+          cerr << "  Found port/endpoint '" << (name?name:"") << "' binding '" << (token?token:"") << "'" << endl;
+        break;
+      }
+    }
+  }
+  if (!bindingRef)
+  { for (vector<wsdl__import>::iterator import = definitions.import.begin(); import != definitions.import.end(); ++import)
+    { wsdl__definitions *importdefinitions = (*import).definitionsPtr();
+      if (importdefinitions)
+      { token = qname_token(binding, importdefinitions->targetNamespace);
+        if (token)
+        { for (vector<wsdl__binding>::iterator binding = importdefinitions->binding.begin(); binding != importdefinitions->binding.end(); ++binding)
+          { if ((*binding).name && !strcmp((*binding).name, token))
+            { bindingRef = &(*binding);
+              if (vflag)
+                cerr << "  Found port/endpoint '" << (name?name:"") << "' binding '" << (token?token:"") << "'" << endl;
+              break;
+            }
+          }
+        }
+      }
+    }
+  }
+  if (!bindingRef)
+    if (!Wflag)
+      cerr << "Warning: no port/endpoint '" << (name?name:"") << "' binding '" << (binding?binding:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__port::bindingPtr(wsdl__binding *binding)
+{ bindingRef = binding;
+  if (!bindingRef && vflag)
+    cerr << "Warning: wsdl__port binding set to NULL" << endl;
+}
+
+wsdl__binding *wsdl__port::bindingPtr() const
+{ return bindingRef;
+}
+
+wsdl__binding::wsdl__binding()
+{ portTypeRef = NULL;
+}
+
+int wsdl__binding::traverse(wsdl__definitions& definitions)
+{ const char *token;
+  if (vflag)
+    cerr << " Analyzing binding '" << (name?name:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  portTypeRef = NULL;
+  if (interface_) // WSDL 2.0
+    token = qname_token(interface_, definitions.targetNamespace);
+  else
+    token = qname_token(type, definitions.targetNamespace);
+  if (token)
+  { for (vector<wsdl__portType>::iterator portType = definitions.portType.begin(); portType != definitions.portType.end(); ++portType)
+    { if ((*portType).name && !strcmp((*portType).name, token))
+      { portTypeRef = &(*portType);
+        if (vflag)
+          cerr << "  Found binding '" << (name?name:"") << "' portType '" << (token?token:"") << "'" << endl;
+        break;
+      }
+    }
+    // WSDL 2.0
+    for (vector<wsdl__portType>::iterator i = definitions.interface_.begin(); i != definitions.interface_.end(); ++i)
+    { if ((*i).name && !strcmp((*i).name, token))
+      { portTypeRef = &(*i);
+        if (vflag)
+          cerr << "  Found binding '" << (name?name:"") << "' interface '" << (token?token:"") << "'" << endl;
+        break;
+      }
+    }
+  }
+  if (!portTypeRef)
+  { for (vector<wsdl__import>::iterator import = definitions.import.begin(); import != definitions.import.end(); ++import)
+    { wsdl__definitions *importdefinitions = (*import).definitionsPtr();
+      if (importdefinitions)
+      { if (interface_) // WSDL 2.0
+          token = qname_token(interface_, importdefinitions->targetNamespace);
+	else
+          token = qname_token(type, importdefinitions->targetNamespace);
+        if (token)
+        { for (vector<wsdl__portType>::iterator portType = importdefinitions->portType.begin(); portType != importdefinitions->portType.end(); ++portType)
+          { if ((*portType).name && !strcmp((*portType).name, token))
+            { portTypeRef = &(*portType);
+              if (vflag)
+                cerr << "  Found binding '" << (name?name:"") << "' portType '" << (token?token:"") << "'" << endl;
+              break;
+            }
+          }
+	  // WSDL 2.0
+          for (vector<wsdl__portType>::iterator i = importdefinitions->interface_.begin(); i != importdefinitions->interface_.end(); ++i)
+          { if ((*i).name && !strcmp((*i).name, token))
+            { portTypeRef = &(*i);
+              if (vflag)
+                cerr << "  Found binding '" << (name?name:"") << "' interface '" << (token?token:"") << "'" << endl;
+              break;
+            }
+          }
+        }
+      }
+    }
+  }
+  if (!portTypeRef)
+  { if (!Wflag)
+    { if (interface_)
+        cerr << "Warning: no binding '" << (name?name:"") << "' interface '" << (interface_?interface_:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+      else
+        cerr << "Warning: no binding '" << (name?name:"") << "' portType '" << (type?type:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+  }
+  // WSDL 2.0
+  for (vector<wsdl__ext_fault>::iterator f = fault.begin(); f != fault.end(); ++f)
+    (*f).traverse(definitions, portTypeRef);
+  for (vector<wsdl__ext_operation>::iterator i = operation.begin(); i != operation.end(); ++i)
+    (*i).traverse(definitions, portTypeRef);
+  for (vector<wsp__Policy>::iterator p = wsp__Policy_.begin(); p != wsp__Policy_.end(); ++p)
+    (*p).traverse(definitions);
+  for (vector<wsp__PolicyReference>::iterator r = wsp__PolicyReference_.begin(); r != wsp__PolicyReference_.end(); ++r)
+    (*r).traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__binding::portTypePtr(wsdl__portType *portType)
+{ portTypeRef = portType;
+  if (!portTypeRef && vflag)
+    cerr << "Warning: wsdl__binding portType set to NULL" << endl;
+}
+
+wsdl__portType *wsdl__binding::portTypePtr() const
+{ return portTypeRef;
+}
+
+wsdl__ext_operation::wsdl__ext_operation()
+{ operationRef = NULL;
+}
+
+int wsdl__ext_operation::traverse(wsdl__definitions& definitions, wsdl__portType *portTypeRef)
+{ if (vflag)
+    cerr << "  Analyzing binding operation '" << (name?name:ref?ref:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  if (input)
+    input->traverse(definitions);
+  if (output)
+    output->traverse(definitions);
+  for (vector<wsdl__ext_fault>::iterator f = fault.begin(); f != fault.end(); ++f)
+    (*f).traverse(definitions, portTypeRef);
+  // WSDL 2.0
+  for (vector<wsdl__ext_fault>::iterator fi = infault.begin(); fi != infault.end(); ++fi)
+    (*fi).traverse(definitions, portTypeRef);
+  for (vector<wsdl__ext_fault>::iterator fo = outfault.begin(); fo != outfault.end(); ++fo)
+    (*fo).traverse(definitions, portTypeRef);
+  operationRef = NULL;
+  if (portTypeRef)
+  { // WSDL 2.0, assumption: ref refers to an operation in the interface for this binding
+    const char *token = NULL;
+    if (ref)
+      token = qname_token(ref, portTypeRef->definitionsPtr()->targetNamespace);
+    for (vector<wsdl__operation>::iterator i = portTypeRef->operation.begin(); i != portTypeRef->operation.end(); ++i)
+    { if (token)
+      { if ((*i).name && !strcmp((*i).name, token))
+        { operationRef = &(*i);
+          if (vflag)
+            cerr << "   Found operation '" << token << "' in interface '" << portTypeRef->name << "'" << endl;
+          break;
+        }
+      }
+      else if (name && (*i).name && !strcmp((*i).name, name))
+      { if ((!input
+	    || !input->name
+	    || ((*i).__union1 == SOAP_UNION_wsdl__union_ioput_input && (*i).__ioput1.input->name && !strcmp((*i).__ioput1.input->name, input->name))
+            || ((*i).__union2 == SOAP_UNION_wsdl__union_ioput_input && (*i).__ioput2.input->name && !strcmp((*i).__ioput2.input->name, input->name))
+	    )
+	 && (!output
+	    || !output->name
+	    || ((*i).__union1 == SOAP_UNION_wsdl__union_ioput_output && (*i).__ioput1.output->name && !strcmp((*i).__ioput1.output->name, output->name))
+            || ((*i).__union2 == SOAP_UNION_wsdl__union_ioput_output && (*i).__ioput2.output->name && !strcmp((*i).__ioput2.output->name, output->name))
+	    ))
+        { operationRef = &(*i);
+          if (vflag)
+            cerr << "   Found operation '" << name << "' in portType '" << portTypeRef->name << "'" << endl;
+          break;
+        }
+      }
+    }
+    if (name && !operationRef)
+    { for (vector<wsdl__operation>::iterator j = portTypeRef->operation.begin(); j != portTypeRef->operation.end(); ++j)
+      { if ((*j).name && !strcmp((*j).name, name))
+        { if (input
+	   && input->name
+	   && (((*j).__union1 == SOAP_UNION_wsdl__union_ioput_input && (*j).__ioput1.input->name && !strcmp((*j).__ioput1.input->name, input->name))
+	    || ((*j).__union2 == SOAP_UNION_wsdl__union_ioput_input && (*j).__ioput2.input->name && !strcmp((*j).__ioput2.input->name, input->name))
+	      ))
+            cerr << "Warning: no matching portType operation input name '" << input->name << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+          if (output
+	   && output->name
+	   && (((*j).__union1 == SOAP_UNION_wsdl__union_ioput_output && (*j).__ioput1.output->name && !strcmp((*j).__ioput1.output->name, output->name))
+	    || ((*j).__union2 == SOAP_UNION_wsdl__union_ioput_output && (*j).__ioput2.output->name && !strcmp((*j).__ioput2.output->name, output->name))
+	      ))
+            cerr << "Warning: no matching portType operation output name '" << output->name << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+          operationRef = &(*j);
+          if (vflag)
+            cerr << "   Found operation '" << name << "'" << endl;
+          break;
+        }
+      }
+    }
+  }
+  if (!operationRef)
+  { if (!Wflag)
+    { if (ref)
+        cerr << "Warning: no matching interface operation '" << (ref?ref:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+      else
+        cerr << "Warning: no matching portType operation '" << (name?name:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+  }
+  else
+  { for (vector<wsdl__ext_fault>::iterator i = fault.begin(); i != fault.end(); ++i)
+    { if ((*i).name)
+      { for (vector<wsdl__fault>::iterator j = operationRef->fault.begin(); j != operationRef->fault.end(); ++j)
+        { if ((*j).name && !strcmp((*j).name, (*i).name))
+          { (*i).faultPtr(&(*j));
+            if (vflag)
+              cerr << "   Found fault '" << (*j).name << "' message" << endl;
+            break;
+          }
+        }
+      }
+      else if ((*i).soap__fault_ && (*i).soap__fault_->name) // try the soap:fault name, this is not elegant, but neither is WSDL 1.1 
+      { for (vector<wsdl__fault>::iterator j = operationRef->fault.begin(); j != operationRef->fault.end(); ++j)
+        { if ((*j).name && !strcmp((*j).name, (*i).soap__fault_->name))
+          { (*i).faultPtr(&(*j));
+            if (vflag)
+              cerr << "   Found fault '" << ((*j).name?(*j).name:"") << "' message" << endl;
+            break;
+          }
+        }
+      }
+      if (!(*i).faultPtr())
+        if (!Wflag)
+	  cerr << "Warning: no soap:fault '" << ((*i).name?(*i).name:"") << "' message in wsdl definitions '" << (definitions.name?definitions.name:"") << "' operation '" << (name?name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+  }
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__ext_operation::operationPtr(wsdl__operation *operation)
+{ operationRef = operation;
+  if (!operationRef && vflag)
+    cerr << "Warning: wsdl__ext_operation operation set to NULL" << endl;
+}
+
+wsdl__operation *wsdl__ext_operation::operationPtr() const
+{ return operationRef;
+}
+
+int wsdl__ext_ioput::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "   Analyzing binding operation input/output in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  for (vector<soap__header>::iterator hd = soap__header_.begin(); hd != soap__header_.end(); ++hd)
+    (*hd).traverse(definitions);
+  for (vector<wsoap__header>::iterator whd = wsoap__header_.begin(); whd != wsoap__header_.end(); ++whd)
+    (*whd).traverse(definitions);
+  if (mime__multipartRelated_)
+    mime__multipartRelated_->traverse(definitions);
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+wsdl__ext_fault::wsdl__ext_fault()
+{ faultRef = NULL;
+}
+
+int wsdl__ext_fault::traverse(wsdl__definitions& definitions, wsdl__portType *portTypeRef)
+{ if (vflag)
+    cerr << "   Analyzing binding operation fault in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  if (ref && portTypeRef)
+  { // WSDL 2.0, assumption: ref refers to a fault in the interface for this binding
+    const char *token = qname_token(ref, portTypeRef->definitionsPtr()->targetNamespace);
+    if (token)
+    { for (vector<wsdl__fault>::iterator fault = portTypeRef->fault.begin(); fault != portTypeRef->fault.end(); ++fault)
+      { if ((*fault).name && !strcmp((*fault).name, token))
+        { faultRef = &(*fault);
+          if (vflag)
+            cerr << "   Found fault '" << (*fault).name << endl;
+          break;
+        }
+      }
+    }
+    if (!faultRef)
+      if (!Wflag)
+        cerr << "Warning: no fault '" << (ref?ref:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' interface '" << (portTypeRef->name?portTypeRef->name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  }
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__ext_fault::faultPtr(wsdl__fault *fault)
+{ faultRef = fault;
+  if (!faultRef && vflag)
+    cerr << "Warning: wsdl__ext_fault fault ref set to NULL" << endl;
+}
+
+wsdl__fault *wsdl__ext_fault::faultPtr() const
+{ return faultRef;
+}
+
+wsdl__portType::wsdl__portType()
+{ definitionsRef = NULL;
+}
+
+int wsdl__portType::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << " Analyzing portType/interface '" << (name?name:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  definitionsRef = &definitions;
+  // traverse faults before operations, WSDL 2.0
+  for (vector<wsdl__fault>::iterator f = fault.begin(); f != fault.end(); ++f)
+    (*f).traverse(definitions);
+  for (vector<wsdl__operation>::iterator i = operation.begin(); i != operation.end(); ++i)
+    (*i).traverse(definitions);
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__portType::definitionsPtr(wsdl__definitions *definitions)
+{ definitionsRef = definitions;
+}
+
+wsdl__definitions *wsdl__portType::definitionsPtr() const
+{ return definitionsRef;
+}
+
+int wsdl__operation::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "  Analyzing portType/interface operation '" << (name?name:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  if (__union1 == SOAP_UNION_wsdl__union_ioput_input)
+    if (__ioput1.input)
+       __ioput1.input->traverse(definitions);
+  if (__union1 == SOAP_UNION_wsdl__union_ioput_output)
+    if (__ioput1.output)
+       __ioput1.output->traverse(definitions);
+  if (__union2 == SOAP_UNION_wsdl__union_ioput_input)
+    if (__ioput2.input)
+       __ioput2.input->traverse(definitions);
+  if (__union2 == SOAP_UNION_wsdl__union_ioput_output)
+    if (__ioput2.output)
+       __ioput2.output->traverse(definitions);
+  for (vector<wsdl__fault>::iterator i = fault.begin(); i != fault.end(); ++i)
+    (*i).traverse(definitions);
+  // WSDL 2.0
+  for (vector<wsdl__fault>::iterator fi = infault.begin(); fi != infault.end(); ++fi)
+    (*fi).traverse(definitions);
+  for (vector<wsdl__fault>::iterator fo = outfault.begin(); fo != outfault.end(); ++fo)
+    (*fo).traverse(definitions);
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+wsdl__ioput::wsdl__ioput()
+{ messageRef = NULL;
+  elementRef = NULL;
+}
+
+int wsdl__ioput::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "   Analyzing portType/interface operation input/output in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  messageRef = NULL;
+  elementRef = NULL;
+  // WSDL 2.0
+  if (element)
+  { if (definitions.types)
+    { for (vector<xs__schema*>::iterator schema = definitions.types->xs__schema_.begin(); schema != definitions.types->xs__schema_.end(); ++schema)
+      { const char *token = qname_token(element, (*schema)->targetNamespace);
+        if (token)
+        { for (vector<xs__element>::iterator element = (*schema)->element.begin(); element != (*schema)->element.end(); ++element)
+          { if ((*element).name && !strcmp((*element).name, token))
+            { elementRef = &(*element);
+              if (vflag)
+                cerr << "   Found input/output '" << (messageLabel?messageLabel:"") << "' element '" << (token?token:"") << "'" << endl;
+              break;
+            }
+          }
+        }
+      }
+    }
+    if (*element != '#' && !elementRef)
+    { if (is_builtin_qname(element))
+        definitions.builtinElement(element);
+      else
+        if (!Wflag)
+          cerr << "Warning: no input/output '" << (messageLabel?messageLabel:"") << "' element '" << element << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+  }
+  else
+  { const char *token = qname_token(message, definitions.targetNamespace);
+    if (token)
+    { for (vector<wsdl__message>::iterator message = definitions.message.begin(); message != definitions.message.end(); ++message)
+      { if ((*message).name && !strcmp((*message).name, token))
+        { messageRef = &(*message);
+          if (vflag)
+            cerr << "    Found input/output '" << (name?name:"") << "' message '" << (token?token:"") << "'" << endl;
+          break;
+        }
+      }
+    }
+    if (!messageRef)
+    { for (vector<wsdl__import>::iterator import = definitions.import.begin(); import != definitions.import.end(); ++import)
+      { wsdl__definitions *importdefinitions = (*import).definitionsPtr();
+        if (importdefinitions)
+        { token = qname_token(message, importdefinitions->targetNamespace);
+          if (token)
+          { for (vector<wsdl__message>::iterator message = importdefinitions->message.begin(); message != importdefinitions->message.end(); ++message)
+            { if ((*message).name && !strcmp((*message).name, token))
+              { messageRef = &(*message);
+                if (vflag)
+                  cerr << "    Found input/output '" << (name?name:"") << "' message '" << (token?token:"") << "'" << endl;
+                break;
+              }
+            }
+          }
+        }
+      }
+    }
+    if (!messageRef)
+      if (!Wflag)
+        cerr << "Warning: no input/output '" << (name?name:"") << "' message '" << (message?message:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  }
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__ioput::messagePtr(wsdl__message *message)
+{ messageRef = message;
+}
+
+wsdl__message *wsdl__ioput::messagePtr() const
+{ return messageRef;
+}
+
+void wsdl__ioput::elementPtr(xs__element *element)
+{ elementRef = element;
+}
+
+xs__element *wsdl__ioput::elementPtr() const
+{ return elementRef;
+}
+
+wsdl__fault::wsdl__fault()
+{ messageRef = NULL;
+  elementRef = NULL;
+}
+
+int wsdl__fault::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "   Analyzing portType/interface operation faults in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  messageRef = NULL;
+  elementRef = NULL;
+  // WSDL 2.0
+  if (ref)
+  { const char *token = qname_token(ref, definitions.targetNamespace);
+    if (token)
+    { for (vector<wsdl__portType>::iterator i = definitions.interface_.begin(); i != definitions.interface_.end(); ++i)
+      { for (vector<wsdl__fault>::iterator fault = (*i).fault.begin(); fault != (*i).fault.end(); ++fault)
+        { if ((*fault).name && !strcmp((*fault).name, token))
+          { elementRef = (*fault).elementPtr();
+            if (vflag)
+              cerr << "   Found fault '" << (ref?ref:"") << "' element '" << (token?token:"") << "'" << endl;
+            break;
+          }
+        }
+      }
+    }
+    if (!elementRef)
+    { for (vector<wsdl__import>::iterator import = definitions.import.begin(); import != definitions.import.end(); ++import)
+      { wsdl__definitions *importdefinitions = (*import).definitionsPtr();
+        if (importdefinitions)
+        { token = qname_token(message, importdefinitions->targetNamespace);
+          if (token)
+          { for (vector<wsdl__portType>::iterator i = importdefinitions->interface_.begin(); i != importdefinitions->interface_.end(); ++i)
+            { for (vector<wsdl__fault>::iterator fault = (*i).fault.begin(); fault != (*i).fault.end(); ++fault)
+              { if ((*fault).name && !strcmp((*fault).name, token))
+                { elementRef = (*fault).elementPtr();
+                  if (vflag)
+                    cerr << "   Found fault '" << (ref?ref:"") << "' element '" << (token?token:"") << "'" << endl;
+                  break;
+                }
+              }
+            }
+          }
+        }
+      }
+    }
+    if (!elementRef)
+    { if (is_builtin_qname(element))
+        definitions.builtinElement(element);
+      else
+        if (!Wflag)
+          cerr << "Warning: no fault '" << (messageLabel?messageLabel:"") << "' ref '" << ref << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+  }
+  else if (element)
+  { if (definitions.types)
+    { for (vector<xs__schema*>::iterator schema = definitions.types->xs__schema_.begin(); schema != definitions.types->xs__schema_.end(); ++schema)
+      { const char *token = qname_token(element, (*schema)->targetNamespace);
+        if (token)
+        { for (vector<xs__element>::iterator element = (*schema)->element.begin(); element != (*schema)->element.end(); ++element)
+          { if ((*element).name && !strcmp((*element).name, token))
+            { elementRef = &(*element);
+              if (vflag)
+                cerr << "   Found fault '" << (messageLabel?messageLabel:"") << "' element '" << (token?token:"") << "'" << endl;
+              break;
+            }
+          }
+        }
+      }
+    }
+    if (!elementRef)
+    { if (is_builtin_qname(element))
+        definitions.builtinElement(element);
+      else
+        if (!Wflag)
+          cerr << "Warning: no fault '" << (messageLabel?messageLabel:"") << "' element '" << element << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+  }
+  else
+  { const char *token = qname_token(message, definitions.targetNamespace);
+    if (token)
+    { for (vector<wsdl__message>::iterator message = definitions.message.begin(); message != definitions.message.end(); ++message)
+      { if ((*message).name && !strcmp((*message).name, token))
+        { messageRef = &(*message);
+          if (vflag)
+            cerr << "    Found operation fault '" << (name?name:"") << "' message '" << (token?token:"") << "'" << endl;
+          break;
+        }
+      }
+    }
+    if (!messageRef)
+    { for (vector<wsdl__import>::iterator import = definitions.import.begin(); import != definitions.import.end(); ++import)
+      { wsdl__definitions *importdefinitions = (*import).definitionsPtr();
+        if (importdefinitions)
+        { token = qname_token(message, importdefinitions->targetNamespace);
+          if (token)
+          { for (vector<wsdl__message>::iterator message = importdefinitions->message.begin(); message != importdefinitions->message.end(); ++message)
+            { if ((*message).name && !strcmp((*message).name, token))
+              { messageRef = &(*message);
+                if (vflag)
+                  cerr << "    Found operation fault '" << (name?name:"") << "' message '" << (token?token:"") << "'" << endl;
+                break;
+              }
+            }
+          }
+        }
+      }
+    }
+    if (!messageRef)
+      if (!Wflag)
+        cerr << "Warning: no operation fault '" << (name?name:"") << "' message '" << (message?message:"") << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  }
+  if (wsp__Policy_)
+    wsp__Policy_->traverse(definitions);
+  if (wsp__PolicyReference_)
+    wsp__PolicyReference_->traverse(definitions);
+  return SOAP_OK;
+}
+
+void wsdl__fault::messagePtr(wsdl__message *message)
+{ messageRef = message;
+}
+
+wsdl__message *wsdl__fault::messagePtr() const
+{ return messageRef;
+}
+
+void wsdl__fault::elementPtr(xs__element *element)
+{ elementRef = element;
+}
+
+xs__element *wsdl__fault::elementPtr() const
+{ return elementRef;
+}
+
+int wsdl__message::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << " Analyzing message '" << (name?name:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  for (vector<wsdl__part>::iterator i = part.begin(); i != part.end(); ++i)
+    (*i).traverse(definitions);
+  for (vector<wsp__Policy>::iterator p = wsp__Policy_.begin(); p != wsp__Policy_.end(); ++p)
+    (*p).traverse(definitions);
+  for (vector<wsp__PolicyReference>::iterator r = wsp__PolicyReference_.begin(); r != wsp__PolicyReference_.end(); ++r)
+    (*r).traverse(definitions);
+  return SOAP_OK;
+}
+
+wsdl__part::wsdl__part()
+{ elementRef = NULL;
+  simpleTypeRef = NULL;
+  complexTypeRef = NULL;
+}
+
+int wsdl__part::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "  Analyzing message parts in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  elementRef = NULL;
+  simpleTypeRef = NULL;
+  complexTypeRef = NULL;
+  if (definitions.types)
+  { for (vector<xs__schema*>::iterator schema = definitions.types->xs__schema_.begin(); schema != definitions.types->xs__schema_.end(); ++schema)
+    { const char *token = qname_token(element, (*schema)->targetNamespace);
+      if (token)
+      { for (vector<xs__element>::iterator element = (*schema)->element.begin(); element != (*schema)->element.end(); ++element)
+        { if ((*element).name && !strcmp((*element).name, token))
+          { elementRef = &(*element);
+            if (vflag)
+              cerr << "   Found message part '" << (name?name:"") << "' element '" << (token?token:"") << "'" << endl;
+            break;
+          }
+        }
+      }
+      token = qname_token(type, (*schema)->targetNamespace);
+      if (token)
+      { for (vector<xs__simpleType>::iterator simpleType = (*schema)->simpleType.begin(); simpleType != (*schema)->simpleType.end(); ++simpleType)
+        { if ((*simpleType).name && !strcmp((*simpleType).name, token))
+          { simpleTypeRef = &(*simpleType);
+            if (vflag)
+              cerr << "   Found message part '" << (name?name:"") << "' simpleType '" << (token?token:"") << "'" << endl;
+            break;
+          }
+        }
+      }
+      token = qname_token(type, (*schema)->targetNamespace);
+      if (token)
+      { for (vector<xs__complexType>::iterator complexType = (*schema)->complexType.begin(); complexType != (*schema)->complexType.end(); ++complexType)
+        { if ((*complexType).name && !strcmp((*complexType).name, token))
+          { complexTypeRef = &(*complexType);
+            if (vflag)
+              cerr << "   Found message part '" << (name?name:"") << "' complexType '" << (token?token:"") << "'" << endl;
+            break;
+          }
+        }
+      }
+    }
+  }
+  if (!elementRef && !simpleTypeRef && !complexTypeRef)
+  { if (element)
+    { if (is_builtin_qname(element))
+        definitions.builtinElement(element);
+      else
+        if (!Wflag)
+	  cerr << "Warning: no message part '" << (name?name:"") << "' element '" << element << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+    else if (type)
+    { if (is_builtin_qname(type))
+        definitions.builtinType(type);
+      else
+        if (!Wflag)
+	  cerr << "Warning: no message part '" << (name?name:"") << "' type '" << type << "' in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    }
+    else
+      if (!Wflag)
+        cerr << "Warning: no message part '" << (name?name:"") << "' element or type in wsdl definitions '" << (definitions.name?definitions.name:"") << "' namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  }
+  return SOAP_OK;
+}
+
+void wsdl__part::elementPtr(xs__element *element)
+{ elementRef = element;
+  if (!elementRef && vflag)
+    cerr << "Warning: wsdl__part element set to NULL" << endl;
+}
+
+void wsdl__part::simpleTypePtr(xs__simpleType *simpleType)
+{ simpleTypeRef = simpleType;
+  if (!simpleTypeRef && vflag)
+    cerr << "Warning: wsdl__part simpleType set to NULL" << endl;
+}
+
+void wsdl__part::complexTypePtr(xs__complexType *complexType)
+{ complexTypeRef = complexType;
+  if (!complexTypeRef && vflag)
+    cerr << "Warning: wsdl__part complexType set to NULL" << endl;
+}
+
+xs__element *wsdl__part::elementPtr() const
+{ return elementRef;
+}
+
+xs__simpleType *wsdl__part::simpleTypePtr() const
+{ return simpleTypeRef;
+}
+
+xs__complexType *wsdl__part::complexTypePtr() const
+{ return complexTypeRef;
+}
+
+int wsdl__types::preprocess(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << "Preprocessing wsdl types" << endl;
+  if (!empty()) // WSDL 2.0 <types>
+  { targetNamespace = definitions.targetNamespace;
+    xs__schema_.push_back(this);
+  }
+  // set the location of each schema in <types> to the WSDL's location
+  for (vector<xs__schema*>::iterator schema0 = xs__schema_.begin(); schema0 != xs__schema_.end(); ++schema0)
+  { if (!(*schema0)->sourceLocation())
+      (*schema0)->sourceLocation(definitions.sourceLocation());
+  }
+again:
+  // link imported schemas, need to repeat when <types> is extended with new imported schema (from inside another schema, etc.)
+  for (vector<xs__schema*>::iterator schema1 = xs__schema_.begin(); schema1 != xs__schema_.end(); ++schema1)
+  { for (vector<xs__import>::iterator import = (*schema1)->import.begin(); import != (*schema1)->import.end(); ++import)
+    { if ((*import).namespace_ && !(*import).schemaPtr() && strcmp((*import).namespace_, targetNamespace))
+      { for (vector<xs__schema*>::const_iterator schema2 = xs__schema_.begin(); schema2 != xs__schema_.end(); ++schema2)
+        { if (schema2 != schema1 && (*schema2)->targetNamespace && !strcmp((*import).namespace_, (*schema2)->targetNamespace))
+          { (*import).schemaPtr(*schema2);
+            break;
+          }
+        }
+      }
+    }
+  }
+  // if a schema is imported but not in <types> then get it
+  for (vector<xs__schema*>::iterator schema2 = xs__schema_.begin(); schema2 != xs__schema_.end(); ++schema2)
+  { for (vector<xs__import>::iterator import = (*schema2)->import.begin(); import != (*schema2)->import.end(); ++import)
+    { bool found = false;
+      if ((*import).schemaPtr())
+        found = true;
+      if (vflag)
+        cerr << "Preprocessing schema '" << (*schema2)->targetNamespace << "' import '" << ((*import).namespace_?(*import).namespace_:"") << "'" << endl; 
+      if (!found && (*import).namespace_)
+      { if ((*import).schemaPtr())
+          found = true;
+        else if (strcmp((*import).namespace_, targetNamespace))
+        { for (vector<xs__schema*>::const_iterator schema3 = xs__schema_.begin(); schema3 != xs__schema_.end(); ++schema3)
+          { if (schema3 != schema2 && (*schema3)->targetNamespace && !strcmp((*import).namespace_, (*schema3)->targetNamespace))
+            { found = true;
+              if (vflag)
+                cerr << "Schema '" << (*schema2)->targetNamespace << "' already found and present" << endl;
+              break;
+            }
+          }
+        }
+        if (!found)
+        { for (SetOfString::const_iterator i = exturis.begin(); i != exturis.end(); ++i)
+          { if (!soap_tag_cmp((*import).namespace_, *i))
+            { found = true;
+              break;
+            }
+          }
+        }
+      }
+      if (!found && !iflag) // don't import any of the schemas in the .nsmap table (or when -i option is used)
+      { xs__schema *importschema;
+        importschema = (*import).schemaPtr();
+        if (!importschema)
+        { const char *s = (*import).schemaLocation;
+          if (!s)
+            s = (*import).namespace_;
+          if (!s)
+            continue;
+          importschema = new xs__schema(definitions.soap, (*schema2)->sourceLocation(), s);
+          if (!(*import).namespace_)
+          { if ((*schema2)->targetNamespace)
+              (*import).namespace_ = (*schema2)->targetNamespace;
+            else if (importschema->targetNamespace)
+              (*import).namespace_ = importschema->targetNamespace;
+            else
+              (*import).namespace_ = soap_strdup(definitions.soap, "");
+          }
+          if (!importschema->targetNamespace || !*importschema->targetNamespace)
+            importschema->targetNamespace = (*import).namespace_;
+          else if ((*import).namespace_ && strcmp(importschema->targetNamespace, (*import).namespace_))
+            cerr << "Schema import namespace '" << ((*import).namespace_?(*import).namespace_:"") << "' does not correspond to imported namespace '" << importschema->targetNamespace << "'" << endl;
+        }
+	if (strcmp((*import).namespace_, targetNamespace))
+        { for (vector<xs__schema*>::const_iterator schema3 = xs__schema_.begin(); schema3 != xs__schema_.end(); ++schema3)
+          { if (schema3 != schema2 && (*schema3)->targetNamespace && !strcmp((*import).namespace_, (*schema3)->targetNamespace))
+            { found = true;
+              (*import).schemaPtr(*schema3);
+              break;
+            }
+          }
+	}
+        if (!found)
+        { (*import).schemaPtr(importschema);
+          xs__schema_.push_back(importschema);
+          if (vflag)
+            cerr << "Adding schema '" << importschema->targetNamespace << "'" << endl;
+          goto again;
+        }
+      }
+    }
+  }
+  return SOAP_OK;
+}
+
+int wsdl__types::traverse(wsdl__definitions& definitions)
+{ if (vflag)
+    cerr << " Analyzing types in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+  for (vector<xs__schema*>::iterator schema3 = xs__schema_.begin(); schema3 != xs__schema_.end(); ++schema3)
+  { // artificially extend the <import> of each schema to include others so when we traverse schemas we can resolve references
+    for (vector<xs__schema*>::iterator importschema = xs__schema_.begin(); importschema != xs__schema_.end(); ++importschema)
+    { if (schema3 != importschema && (*importschema)->targetNamespace)
+      { xs__import *import = soap_new_xs__import(definitions.soap, -1);
+        import->namespace_ = (*importschema)->targetNamespace;
+        import->schemaPtr(*importschema);
+        (*schema3)->import.push_back(*import);
+      }
+    }
+    // check and report
+    for (vector<xs__import>::iterator import = (*schema3)->import.begin(); import != (*schema3)->import.end(); ++import)
+    { if ((*import).namespace_)
+      { bool found = false;
+        for (vector<xs__schema*>::const_iterator importschema = xs__schema_.begin(); importschema != xs__schema_.end(); ++importschema)
+        { if ((*importschema)->targetNamespace && !strcmp((*import).namespace_, (*importschema)->targetNamespace))
+          { found = true;
+            break;
+          }
+        }
+        if (!found && vflag)
+          cerr << "Schema import namespace '" << (*import).namespace_ << "' refers to an unknown Schema" << endl;
+      }
+      else if (!Wflag)
+	cerr << "Warning: schema import '" << ((*import).schemaLocation ? (*import).schemaLocation : "") << "' has no namespace" << endl;
+    }
+  }
+  // traverse the schemas
+  for (vector<xs__schema*>::iterator schema4 = xs__schema_.begin(); schema4 != xs__schema_.end(); ++schema4)
+    (*schema4)->traverse();
+  // find all built-in types, elements, and attributes
+  for (vector<xs__schema*>::iterator schema5 = xs__schema_.begin(); schema5 != xs__schema_.end(); ++schema5)
+  { if (vflag)
+      for (SetOfString::const_iterator i = (*schema5)->builtinTypes().begin(); i != (*schema5)->builtinTypes().end(); ++i)
+        cerr << " Built-in schema type '" << (*i) << "'" << endl;
+    definitions.builtinTypes((*schema5)->builtinTypes());
+    definitions.builtinElements((*schema5)->builtinElements());
+    definitions.builtinAttributes((*schema5)->builtinAttributes());
+  }
+  return SOAP_OK;
+}
+
+int wsdl__import::preprocess(wsdl__definitions& definitions)
+{ static map<const char*, wsdl__definitions*, ltstr> included;
+  bool found = false;
+  if (vflag)
+    cerr << "Preprocess wsdl import '" << (location?location:"") << "'" << endl;
+  definitionsRef = NULL;
+  if (namespace_)
+  { for (SetOfString::const_iterator i = exturis.begin(); i != exturis.end(); ++i)
+    { if (!soap_tag_cmp(namespace_, *i))
+      { found = true;
+        break;
+      }
+    }
+  }
+  if (!found && location)
+  { map<const char*, wsdl__definitions*, ltstr>::iterator i = included.find(location);
+    if (i != included.end())
+    { if (vflag)
+        fprintf(stderr, "\nWSDL/XSD '%s' already imported\n", location);
+      found = true;
+      definitionsRef = (*i).second;
+    }
+  }
+  if (!found && location)
+  { // parse imported definitions
+    const char *source = definitions.sourceLocation();
+    if (vflag)
+      cerr << "Importing '" << location << "' into '" << (source?source:"(source location not set)") << "'" << endl;
+    included[location] = definitionsRef = new wsdl__definitions(definitions.soap, source, location);
+    if (!definitionsRef)
+      return SOAP_EOF;
+    if (!namespace_)
+      namespace_ = definitionsRef->targetNamespace;
+    else if (!definitionsRef->targetNamespace || !*definitionsRef->targetNamespace)
+      definitionsRef->targetNamespace = namespace_;
+    else if (strcmp(namespace_, definitionsRef->targetNamespace))
+      cerr << "Error: wsdl definitions/import '" << location << "' namespace '" << namespace_ << "' does not match imported targetNamespace '" << definitionsRef->targetNamespace << "'" << endl;
+  }
+  else if (!location)
+    cerr << "Warning: wsdl definitions/import has no location attribute" << endl;
+  return SOAP_OK;
+}
+
+int wsdl__import::traverse(wsdl__definitions& definitions)
+{ if (definitionsRef)
+  { if (vflag)
+      cerr << " Analyzing imported wsdl namespace '" << (namespace_?namespace_:"") << "' in wsdl namespace '" << (definitions.targetNamespace?definitions.targetNamespace:"") << "'" << endl;
+    // process import first
+    for (vector<wsdl__import>::iterator im = definitionsRef->import.begin(); im != definitionsRef->import.end(); ++im)
+      (*im).traverse(definitions);
+    // then process the types
+    if (definitionsRef->types)
+      definitionsRef->types->traverse(definitions);
+    // process messages before portTypes
+    for (vector<wsdl__message>::iterator mg = definitionsRef->message.begin(); mg != definitionsRef->message.end(); ++mg)
+      (*mg).traverse(definitions);
+    // process portTypes before bindings
+    for (vector<wsdl__portType>::iterator pt = definitionsRef->portType.begin(); pt != definitionsRef->portType.end(); ++pt)
+      (*pt).traverse(definitions);
+    // process bindings
+    for (vector<wsdl__binding>::iterator bg = definitionsRef->binding.begin(); bg != definitionsRef->binding.end(); ++bg)
+      (*bg).traverse(definitions);
+    // process services
+    for (vector<wsdl__service>::iterator sv = definitionsRef->service.begin(); sv != definitionsRef->service.end(); ++sv)
+      (*sv).traverse(definitions);
+    if (vflag)
+      cerr << " End of imported wsdl namespace '" << (namespace_?namespace_:"") << "'" << endl;
+  }
+  return SOAP_OK;
+}
+
+void wsdl__import::definitionsPtr(wsdl__definitions *definitions)
+{ definitionsRef = definitions;
+  if (!definitionsRef && vflag)
+    cerr << "Warning: wsdl__import definitions set to NULL" << endl;
+}
+
+wsdl__definitions *wsdl__import::definitionsPtr() const
+{ return definitionsRef;
+}
+
+wsdl__import::wsdl__import()
+{ definitionsRef = NULL;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+//
+//	streams
+//
+////////////////////////////////////////////////////////////////////////////////
+
+ostream &operator<<(ostream &o, const wsdl__definitions &e)
+{ if (!e.soap)
+  { struct soap soap;
+    soap_init2(&soap, SOAP_IO_DEFAULT, SOAP_XML_TREE | SOAP_C_UTFSTRING);
+    soap_set_namespaces(&soap, namespaces);
+    e.soap_serialize(&soap);
+    soap_begin_send(&soap);
+    e.soap_out(&soap, "wsdl:definitions", 0, NULL);
+    soap_end_send(&soap);
+    soap_destroy(&soap);
+    soap_end(&soap);
+    soap_done(&soap);
+  }
+  else
+  { ostream *os = e.soap->os;
+    e.soap->os = &o;
+    e.soap_serialize(e.soap);
+    soap_begin_send(e.soap);
+    e.soap_out(e.soap, "wsdl:definitions", 0, NULL);
+    soap_end_send(e.soap);
+    e.soap->os = os;
+  }
+  return o;
+}
+
+istream &operator>>(istream &i, wsdl__definitions &e)
+{ if (!e.soap)
+  { e.soap = soap_new1(SOAP_XML_TREE | SOAP_C_UTFSTRING);
+    soap_set_namespaces(e.soap, namespaces);
+  }
+  istream *is = e.soap->is;
+  e.soap->is = &i;
+  if (soap_begin_recv(e.soap)
+   || !e.soap_in(e.soap, "wsdl:", NULL)
+   || soap_end_recv(e.soap))
+  { // handle error? Note: e.soap->error is set and app should check
+  }
+  e.soap->is = is;
+  return i;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+//
+//	Miscellaneous
+//
+////////////////////////////////////////////////////////////////////////////////
+
+extern "C" {
+
+int warn_ignore(struct soap *soap, const char *tag)
+{ // We don't warn if the omitted element was an annotation or a documentation in an unexpected place
+  if (soap->mustUnderstand)
+    fprintf(stderr, "Error: element '%s' at level %d must be understood\n", tag, soap->level);
+  if (!Wflag
+   && soap_match_tag(soap, tag, "xs:annotation")
+   && soap_match_tag(soap, tag, "xs:documentation")
+   && soap_match_tag(soap, tag, "xs:appinfo"))
+    fprintf(stderr, "Warning: unexpected element '%s' at level %d is skipped (safe to ignore)\n", tag, soap->level);
+  if (soap->body && !soap_string_in(soap, 0, -1, -1))
+    return soap->error;
+  return SOAP_OK;
+}
+
+int show_ignore(struct soap *soap, const char *tag)
+{ warn_ignore(soap, tag);
+  soap_print_fault_location(soap, stderr);
+  return SOAP_OK;
+}
+
+} // end extern "C"