initial import

1 files changed, 261 insertions, 0 deletions

diff --git a/xsd2c/tr.c b/xsd2c/tr.c
new file mode 100644
index 0000000..5756e91
--- /dev/null
+++ b/xsd2c/tr.c
@@ -0,0 +1,261 @@
+/******************************************************************
+ *  $Id: tr.c,v 1.1 2004/06/02 11:17:03 snowdrop Exp $
+ *
+ * CSOAP Project:  A SOAP client/server library in C
+ * Copyright (C) 2003  Ferhat Ayaz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA  02111-1307, USA.
+ * 
+ * Email: ayaz@jprogrammet.net
+ ******************************************************************/
+
+#include "tr.h"
+#include <stdio.h>
+
+#define XSD2C_MAP(xsdtype, ctype) \
+  trRegisterType(xsdtype, ctype);
+ 
+#define XSD2C_MAPNS(xsdtype, ctype) \
+  trRegisterTypeNS(trXSDNS, xsdtype, ctype);
+ 
+#define XSD2C_MAPNS_LIST(xsdtype, ctype) \
+  trRegisterListTypeNS(trXSDNS, xsdtype, ctype);
+ 
+struct XSD2C_TypeRegistry
+{
+  char *xsd_type;
+  char *c_type;
+  int isbuildin;
+  struct XSD2C_TypeRegistry* next;
+};
+
+static struct XSD2C_TypeRegistry* tr_head;
+static struct XSD2C_TypeRegistry* tr_tail;
+static struct XSD2C_TypeRegistry* trl_head;
+static struct XSD2C_TypeRegistry* trl_tail;
+
+
+static char trXSDNS[15];
+
+static char* _trC2XSD(const char* cType, struct XSD2C_TypeRegistry* head);
+static char* _trXSD2C(const char* xsdType, struct XSD2C_TypeRegistry* head);
+
+
+void trInitModule(const char* ns)
+{
+  tr_head = NULL; 
+  tr_tail = NULL;
+  trl_head = NULL; 
+  trl_tail = NULL;
+  struct XSD2C_TypeRegistry* cur;
+  strcpy(trXSDNS, ns);
+
+  #include "types.map"
+
+  cur = tr_head;
+
+  while (cur != NULL)
+  {
+    cur->isbuildin = 1;
+    cur = cur->next;
+  }
+};
+
+
+void trFreeModule()
+{
+  struct XSD2C_TypeRegistry* cur, *tmp;
+
+  cur = tr_head;
+
+  while (cur != NULL)
+  {
+    if (cur->xsd_type) free(cur->xsd_type);
+    if (cur->c_type) free(cur->c_type);
+    tmp = cur->next;
+    free(cur);
+    cur = tmp;
+  }
+  cur = trl_head;
+
+  while (cur != NULL)
+  {
+    if (cur->xsd_type) free(cur->xsd_type);
+    if (cur->c_type) free(cur->c_type);
+    tmp = cur->next;
+    free(cur);
+    cur = tmp;
+  }
+}
+
+
+int trGetBuildInFlag(const char* xsdType)
+{
+  struct XSD2C_TypeRegistry* cur;
+
+  cur = tr_head;
+
+  while (cur != NULL)
+  {
+    if (!strcmp(cur->xsd_type, xsdType))
+    {
+      return cur->isbuildin;
+    }
+    cur = cur->next;
+  }
+  return -1;
+}
+
+
+char* trC2XSD(const char* cType)
+{
+  return _trC2XSD(cType, tr_head);
+}
+
+char* trXSD2C(const char* xsdType)
+{
+  return _trXSD2C(xsdType, tr_head);
+}
+
+char* trC2XSDList(const char* cType)
+{
+  return _trC2XSD(cType, trl_head);
+}
+
+char* trXSD2CList(const char* xsdType)
+{
+  return _trXSD2C(xsdType, trl_head);
+}
+
+void trRegisterType(const char* xsdType, const char* cType)
+{
+  trRegisterTypeNS(NULL, xsdType, cType);
+}
+
+void trRegisterTypeNS(const char* ns, const char* xsdType, const char* cType)
+{
+  struct XSD2C_TypeRegistry* reg;
+  if (xsdType == NULL || cType == NULL)
+  {
+    fprintf(stderr, "WARNING: Can not register type\n");
+    return;
+  }
+
+  reg = (struct XSD2C_TypeRegistry*)malloc(sizeof(struct XSD2C_TypeRegistry));
+  reg->xsd_type = (char*)malloc((ns?strlen(ns):0)+strlen(xsdType)+2);
+  reg->c_type = (char*)malloc(strlen(cType)+1);
+  reg->next = NULL;
+  reg->isbuildin = 0;
+
+  if (ns)
+    sprintf(reg->xsd_type, "%s:%s",ns,xsdType);
+  else
+    strcpy(reg->xsd_type, xsdType);
+ 
+  strcpy(reg->c_type, cType);
+
+  if (tr_tail)
+  {
+    tr_tail->next = reg;
+  }
+
+  if (tr_head == NULL)
+  {
+    tr_head = reg;
+  }
+
+  tr_tail = reg;
+}
+
+
+void trRegisterListType(const char* xsdType, const char* cType)
+{
+  trRegisterListTypeNS(NULL, xsdType, cType);
+}
+
+void trRegisterListTypeNS(const char* ns, const char* xsdType, const char* cType)
+{
+  struct XSD2C_TypeRegistry* reg;
+  if (xsdType == NULL || cType == NULL)
+  {
+    fprintf(stderr, "WARNING: Can not register type\n");
+    return;
+  }
+
+  reg = (struct XSD2C_TypeRegistry*)malloc(sizeof(struct XSD2C_TypeRegistry));
+  reg->xsd_type = (char*)malloc((ns?strlen(ns):0)+strlen(xsdType)+2);
+  reg->c_type = (char*)malloc(strlen(cType)+1);
+  reg->next = NULL;
+  reg->isbuildin = 0;
+
+  if (ns)
+    sprintf(reg->xsd_type, "%s:%s",ns,xsdType);
+  else
+    strcpy(reg->xsd_type, xsdType);
+ 
+  strcpy(reg->c_type, cType);
+
+  if (trl_tail)
+  {
+    trl_tail->next = reg;
+  }
+
+  if (trl_head == NULL)
+  {
+    trl_head = reg;
+  }
+
+  trl_tail = reg;
+}
+
+
+static 
+char* _trC2XSD(const char* cType, struct XSD2C_TypeRegistry* head)
+{
+  struct XSD2C_TypeRegistry* cur;
+
+  cur = head;
+
+  while (cur != NULL)
+  {
+    if (!strcmp(cur->c_type, cType))
+    {
+      return cur->xsd_type;
+    }
+    cur = cur->next;
+  }
+
+  return NULL;
+}
+
+static char* _trXSD2C(const char* xsdType, struct XSD2C_TypeRegistry* head)
+{
+  struct XSD2C_TypeRegistry* cur;
+
+  cur = head;
+
+  while (cur != NULL)
+  {
+  /*  printf("%s\n", cur->xsd_type);*/
+    if (!strcmp(cur->xsd_type, xsdType))
+    {
+      return cur->c_type;
+    }
+    cur = cur->next;
+  }
+
+  return NULL;
+}