initial import

2 files changed, 495 insertions, 0 deletions

diff --git a/wsdl2c/Makefile.am b/wsdl2c/Makefile.am
new file mode 100755
index 0000000..4feb2c3
--- /dev/null
+++ b/wsdl2c/Makefile.am
@@ -0,0 +1,8 @@
+bin_PROGRAMS=wsdl2c

+

+INCLUDES=$(LIBXML_CFLAGS) -I$(top_srcdir)

+LDFLAGS=$(LIBXML_LIBS)

+

+wsdl2c_SOURCES=wsdl2c.c

+wsdl2c_LDFLAGS=$(LDFLAGS)

+

diff --git a/wsdl2c/wsdl2c.c b/wsdl2c/wsdl2c.c
new file mode 100755
index 0000000..827040e
--- /dev/null
+++ b/wsdl2c/wsdl2c.c
@@ -0,0 +1,487 @@
+#include <libxml/xpath.h>

+

+

+int parseNS(const char* fullname, char *ns, char *name)

+{

+  int len, i, found;

+

+  if (fullname == NULL || ns == NULL || name == NULL) return 0;

+  

+  len = strlen(fullname);

+

+  found = 0;

+  for (i = len - 1; i > 0; i--) 

+  {

+    if (fullname[i] == ':') { found = 1; break; }

+  }

+

+  if (found) strncpy(ns, fullname, i);

+  else ns[0] = '\0';

+

+  strcpy(name, 

+      (fullname[i] == ':')?

+      (&fullname[i+1]):(&fullname[i]));

+

+  return 1;

+}

+

+xmlXPathObjectPtr xpath_eval(xmlDocPtr doc, const char *xpath)

+{

+  xmlXPathContextPtr context;

+  xmlXPathObjectPtr result;

+  xmlNodePtr node;

+  xmlNsPtr default_ns;

+

+  node = xmlDocGetRootElement(doc);

+  if (node == NULL) {

+    fprintf(stderr,"empty document\n");

+    return NULL;

+  }

+

+  

+  context = xmlXPathNewContext(doc);

+

+  context->namespaces = xmlGetNsList(doc, node);

+  context->nsNr = 0;

+  if (context->namespaces != NULL) {

+     while (context->namespaces[context->nsNr] != NULL) {

+/*      fprintf(stdout, "NS: '%s' - '%s'\n", context->namespaces[context->nsNr]->href, 

+  context->namespaces[context->nsNr]->prefix); */

+      context->nsNr++;

+     }

+  }

+

+  /* search default namespace */

+  default_ns = xmlSearchNs(doc, node, NULL);

+  if (default_ns != NULL && default_ns->href != NULL) {

+    fprintf(stdout, "Register default namespace '%s'\n", (const char*)default_ns->href);

+    xmlXPathRegisterNs(context, "wsdl", default_ns->href ); /* default_ns : "http://schemas.xmlsoap.org/wsdl/" */

+  } 

+  

+

+

+  result = xmlXPathEvalExpression((xmlChar*)xpath, context);  

+  if (result == NULL) {

+    fprintf(stderr, "ERROR: XPath error!\n");

+    return NULL;

+  }

+

+  if(xmlXPathNodeSetIsEmpty(result->nodesetval)){

+    /* no result */

+    return NULL;

+  }

+

+  xmlXPathFreeContext(context);

+  return result;  

+}

+

+xmlNodePtr findPortType(xmlDocPtr doc, const char *name)

+{

+  xmlNodePtr root;

+  xmlNodePtr cur;

+  xmlChar *attr_name;

+

+  root = xmlDocGetRootElement(doc);

+  if (root == NULL) {

+    fprintf(stderr, "Empty document!\n");

+    return;

+  }

+

+  cur = root->xmlChildrenNode;

+

+  while (cur != NULL) {

+    

+    if (cur->type != XML_ELEMENT_NODE) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (xmlStrcmp(cur->name, (const xmlChar*)"portType")) {

+      cur = cur->next;

+      continue;

+    }

+

+    attr_name = xmlGetProp(cur, "name");  

+    if (attr_name == NULL) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (!xmlStrcmp(attr_name, (const xmlChar*)name)) {

+      xmlFree(attr_name);

+      return cur;

+    }

+    

+    xmlFree(attr_name);

+    cur = cur->next;

+  }

+

+  return NULL;

+}

+

+

+xmlNodePtr findMessage(xmlDocPtr doc, const char *name)

+{

+  xmlNodePtr root;

+  xmlNodePtr cur;

+  xmlChar *attr_name;

+

+  root = xmlDocGetRootElement(doc);

+  if (root == NULL) {

+    fprintf(stderr, "Empty document!\n");

+    return;

+  }

+

+  cur = root->xmlChildrenNode;

+

+  while (cur != NULL) {

+    

+    if (cur->type != XML_ELEMENT_NODE) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (xmlStrcmp(cur->name, (const xmlChar*)"message")) {

+      cur = cur->next;

+      continue;

+    }

+

+    attr_name = xmlGetProp(cur, "name");  

+    if (attr_name == NULL) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (!xmlStrcmp(attr_name, (const xmlChar*)name)) {

+      xmlFree(attr_name);

+      return cur;

+    }

+    

+    xmlFree(attr_name);

+    cur = cur->next;

+  }

+

+  return NULL;

+}

+

+

+xmlNodePtr findSubNode(xmlNodePtr root, const char *element_name)

+{

+  xmlNodePtr cur;

+

+  cur = root->xmlChildrenNode;

+

+  while (cur != NULL) {

+    

+    if (cur->type != XML_ELEMENT_NODE) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (!xmlStrcmp(cur->name, (const xmlChar*)element_name)) {

+      return cur;

+    }

+

+    cur = cur->next;

+  }

+

+  return NULL;

+}

+

+

+void handleInputParameters(xmlDocPtr doc, const char *name)

+{

+  char ns[10];

+  char message_name[255];

+  xmlNodePtr node;

+  xmlNodePtr cur;

+

+  xmlChar *var_name, *var_type, *var_element;

+

+  parseNS(name, ns, message_name); /* check why to pase ns? */

+

+  node = findMessage(doc, message_name);

+  if (node == NULL) {

+    fprintf(stderr, "ERROR: Can not find message '%s'\n", message_name);

+    return;

+  }

+

+  cur = node->xmlChildrenNode;

+  while (cur != NULL) {

+    

+    if (cur->type != XML_ELEMENT_NODE) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (xmlStrcmp(cur->name, (const xmlChar*)"part")) {

+      cur = cur->next;

+      continue;

+    }

+

+    var_name = xmlGetProp(cur, "name");  

+    if (var_name == NULL) {

+      fprintf(stderr, "ERROR: Found <part> without attrbute 'name'! (message:'%s')\n", 

+        message_name);

+      cur = cur->next;

+      continue;

+    }

+

+    var_type = xmlGetProp(cur, "type");  

+    if (var_type != NULL) {

+      fprintf(stdout, "\t\t(type:%s,%s)\n", (const char*)var_type, (const char*)var_name);

+      xmlFree(var_name);

+      xmlFree(var_type);

+      cur = cur->next;

+      continue;

+    } 

+

+    var_element = xmlGetProp(cur, "element");  

+    if (var_element == NULL) {

+      fprintf(stderr, "ERROR: Found <part> without attrbute 'type' or 'element'! (message:'%s')\n", 

+        message_name);

+      xmlFree(var_name);

+      cur = cur->next;

+      continue;

+    }

+

+    fprintf(stdout, "\t\t(element:%s,%s)\n", (const char*)var_element, (const char*)var_name);

+

+    xmlFree(var_name);

+    xmlFree(var_type);

+

+    cur = cur->next;

+  }

+

+}

+

+void handlePortType(xmlDocPtr doc, const char *name)

+{

+  xmlNodePtr node;

+  xmlNodePtr input;

+  xmlNodePtr output;

+  xmlNodePtr cur;

+  xmlChar *attr_name;

+  xmlChar *message;

+

+  char opname[255];

+

+  node = findPortType(doc, name);

+  if (node == NULL) {

+    fprintf(stderr, "PortType '%s' not found!\n", name);

+    return;

+  }

+

+  cur = node->xmlChildrenNode;

+  while (cur != NULL) {

+    

+    if (cur->type != XML_ELEMENT_NODE) {

+      cur = cur->next;

+      continue;

+    }

+

+    if (xmlStrcmp(cur->name, (const xmlChar*)"operation")) {

+      cur = cur->next;

+      continue;

+    }

+

+    attr_name = xmlGetProp(cur, "name");  

+    if (attr_name == NULL) {

+      cur = cur->next;

+      continue;

+    }

+

+    strcpy(opname, (const char*)attr_name);

+    xmlFree(attr_name);

+    fprintf(stdout, "Operation -> '%s'\n", opname);

+

+    /* handle input */

+    input = findSubNode(cur, "input");

+    if (input == NULL) {

+      fprintf(stderr, "WARNING: No input for operation '%'\n", opname);

+      cur = cur->next;

+      continue;

+    }

+

+    message = xmlGetProp(input, "message");  

+    if (message == NULL) {

+      fprintf(stderr, "ERROR: No message attribute for input operation '%'\n", opname);

+      cur = cur->next;

+      continue;

+    }

+    

+    fprintf(stdout, "\tinput  = '%s'\n", (const char*)message);

+    

+    handleInputParameters(doc, (const char*)message);

+

+    xmlFree(message);

+  

+    /* handle output */

+    output = findSubNode(cur, "output");

+    if (output == NULL) { /* one way operation is ok */

+      cur = cur->next;

+      continue;

+    }

+

+    message = xmlGetProp(output, "message");  

+    if (message == NULL) {

+      fprintf(stderr, "ERROR: No message attribute for output operation '%'\n", opname);

+      cur = cur->next;

+      continue;

+    }

+    

+    fprintf(stdout, "\toutput = '%s'\n", (const char*)message);

+    xmlFree(message);

+  

+    cur = cur->next;

+  }

+

+}

+

+void handleBinding(xmlDocPtr doc, const char *type)

+{

+  

+  int i;

+  xmlChar *name;

+  xmlChar *btype;

+  xmlNodeSetPtr nodeset; 

+  xmlXPathObjectPtr xpathObj;

+  char query[255];

+  char port_name[255], port_ns[10];

+  char binding_type[255], binding_ns[10];

+

+  parseNS(type, binding_ns, binding_type);

+

+  /* Set xpath  query */

+  sprintf(query, "//wsdl:definitions/wsdl:binding[@name=\"%s\"]", binding_type);

+

+  /* Find Bindings */

+  xpathObj = xpath_eval(doc, query);

+  

+  if (xpathObj == NULL) {

+    fprintf(stderr, "No Soap Binding found!\n");

+    return;

+  }

+

+  /* Check if found nodes */

+  nodeset = xpathObj->nodesetval;

+  if (nodeset == NULL) {

+    fprintf(stderr, "No Soap Binding found! nodeset empty!\n");

+    return;

+  }

+

+  /* Iterate all soap services */

+  for (i=0;i < nodeset->nodeNr; i++) {

+    

+    name = xmlGetProp(nodeset->nodeTab[i], "name");

+

+    if (name == NULL) {

+      fprintf(stderr, "WARNING: no attribute name found!\n");

+    } else {

+      fprintf(stdout, "Found Binding -> (name: '%s')\n", 

+        (const char*)name);

+    }

+

+    btype = xmlGetProp(nodeset->nodeTab[i], "type");

+

+    if (btype == NULL) {

+      fprintf(stderr, "WARNING: no attribute type found!\n");

+    } else {

+      parseNS(btype, port_ns, port_name);

+      handlePortType(doc, port_name);

+    }

+

+    if (name != NULL) xmlFree(name);

+    if (btype != NULL) xmlFree(btype);  

+  }

+  

+}

+

+void wsdlParse(xmlDocPtr doc)

+{

+  int i;

+  xmlChar *name, *binding;

+  xmlNodeSetPtr nodeset; 

+  xmlXPathObjectPtr xpathObj;

+

+

+  /* Find Soap Service */

+  xpathObj = xpath_eval(doc, "//wsdl:definitions/wsdl:service/wsdl:port[soap:address]");

+  

+  if (xpathObj == NULL) {

+    fprintf(stderr, "No Soap Service (soap:address) found!\n");

+    return;

+  }

+

+  /* Check if found nodes */

+  nodeset = xpathObj->nodesetval;

+  if (nodeset == NULL) {

+    fprintf(stderr, "No Soap Service (soap:address) found! nodeset empty!\n");

+    return;

+  }

+

+  /* Iterate all soap services */

+  for (i=0;i < nodeset->nodeNr; i++) {

+    

+    name = xmlGetProp(nodeset->nodeTab[i], "name");

+    binding = xmlGetProp(nodeset->nodeTab[i], "binding");

+

+    if (name == NULL) {

+      fprintf(stderr, "WARNING: no attribute type found!\n");

+    } if (binding == NULL) {

+      fprintf(stderr, "WARNING: no attribute binding found!\n");

+    } else {

+      fprintf(stdout, "Found SOAP port -> (type: '%s') (binding: '%s')\n", 

+        (const char*)name, (const char*)binding);

+    }

+

+    handleBinding(doc, binding);

+

+    if (name != NULL) xmlFree(name);

+    if (binding != NULL) xmlFree(binding);

+  }

+  

+

+}

+

+int main(int argc, char *argv[])

+{

+  xmlDocPtr doc;

+  xmlNodePtr cur;

+  xmlNodePtr node;

+  xmlNsPtr default_ns;

+

+  if (argc < 2) {

+    fprintf(stderr, "usage: %s <wsdl file>\n", argv[0]);

+    return 1;

+  }

+

+  doc = xmlParseFile(argv[1]);

+

+  if (doc == NULL ) {

+    fprintf(stderr,"Document not parsed successfully. \n");

+    return 1;

+  }

+

+

+  node = xmlDocGetRootElement(doc);

+  if (node == NULL) {

+    fprintf(stderr,"empty document\n");

+    xmlFreeDoc(doc);

+    return 1;

+  }

+

+  /* search default namespace */

+  default_ns = xmlSearchNs(doc, node, NULL);

+  if (default_ns == NULL || ( default_ns != NULL && default_ns->href == NULL)) {

+    fprintf(stdout, "Adding default namespace 'http://schemas.xmlsoap.org/wsdl/'\n");

+    xmlNewDocProp(doc,  "xmlns", "http://schemas.xmlsoap.org/wsdl/");

+  } 

+

+

+  wsdlParse(doc);

+

+  xmlFreeDoc(doc);

+  return 0;

+}

+