symbol2.c

linux下开发的soap协议。建议大家学习学习！

void
copyrightnote(FILE *fd, char *fn)
{ fprintf(fd, "/* %s\n   Generated by the gSOAP Stub and Skeleton Compiler for C and C++ "VERSION"\n   Copyright (C) 2001-2002 Robert A. van Engelen, Florida State University.\n   All rights reserved.\n*/", fn);
}

void
compile(Table *table)
{	Entry *p;
	char *s;
	char base[1024];
	char soapStub[1024];
	char soapH[1024];
	char soapC[1024];
	char soapClient[1024];
	char soapServer[1024];
	char soapMsg[1024];
    
	DBGLOG(fprintf(stderr,"\n IN dumptable."));
	typeNO = 0;

	s = "";
	if (*dirpath && *(s = dirpath+strlen(dirpath)-1) != '/' && *s != '\\')
#ifdef WIN32
			s = "\\";
#else
			s = "/";
#endif
	strcpy(base, dirpath);
	strcat(base, s);
	strcat(base, prefix);
	if (cflag)
		s = ".c";
	else
		s = ".cpp";
	strcpy(soapStub, base);
	strcat(soapStub, "Stub.h");
	strcpy(soapH, base);
	strcat(soapH, "H.h");
	strcpy(soapC, base);
	strcat(soapC, "C");
	strcat(soapC, s);
	strcpy(soapClient, base);
	strcat(soapClient, "Client");
	strcat(soapClient, s);
	strcpy(soapServer, base);
	strcat(soapServer, "Server");
	strcat(soapServer, s);
	strcpy(soapMsg, base);
	strcat(soapMsg, "Msg");
	strcat(soapMsg, s);
	fprintf(stderr, "Saving %s\n", soapStub);
	fheader=fopen(soapStub, "w");
	if (!fheader)
		execerror("Cannot write to file");
	copyrightnote(fheader, soapStub);
	fprintf(stderr, "Saving %s\n", soapH);
	fhead=fopen(soapH,"w");
	if (!fhead)
		execerror("Cannot write to file");
	copyrightnote(fhead, soapH);
	fprintf(stderr, "Saving %s\n", soapC);
	fout=fopen(soapC,"w");
	if (!fout)
		execerror("Cannot write to file");
	copyrightnote(fout, soapC);
	fprintf(stderr, "Saving %s\n", soapClient);
        fclient=fopen(soapClient,"w");
	if (!fclient)
		execerror("Cannot write to file");
	copyrightnote(fclient, soapClient);
	fprintf(stderr, "Saving %s\n", soapServer);
        fserver=fopen(soapServer,"w");
	if (!fserver)
		execerror("Cannot write to file");
	copyrightnote(fserver, soapServer);

	fprintf(fhead,"\n#ifndef %sH_H\n#define %sH_H", prefix, prefix);
	fprintf(fhead,"\n#include \"stdsoap2.h\"");
	fprintf(fhead,"\n#include \"%sStub.h\"", prefix);
	if (cflag)
	  fprintf(fhead,"\n#ifdef __cplusplus\nextern \"C\" {\n#endif");
	fprintf(fheader,"\n#ifndef %sStub_H\n#define %sStub_H", prefix, prefix);
	if (cflag)
	  fprintf(fheader,"\n#ifdef __cplusplus\nextern \"C\" {\n#endif");
	generate_header(table);
	generate_schema(table);
	fprintf(fout,"\n#include \"%sH.h\"", prefix);
	if (cflag)
	  fprintf(fout,"\n#ifdef __cplusplus\nextern \"C\" {\n#endif");
        fprintf(fclient,"\n#include \"%sH.h\"", prefix);
	if (cflag)
	  fprintf(fclient,"\n#ifdef __cplusplus\nextern \"C\" {\n#endif");
        fprintf(fserver,"\n#include \"%sH.h\"", prefix);
	if (cflag)
	  fprintf(fserver,"\n#ifdef __cplusplus\nextern \"C\" {\n#endif");

	DBGLOG(fprintf(stderr,"\n Calling function_input_output( )."));
        function_input_output(table);
	DBGLOG(fprintf(stderr,"\n Completed function_input_output( )."));

        if (entry(classtable, lookup("SOAP_ENV__Header"))->info.typ->type == Tstruct)
	  fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_serializeheader(struct soap *soap)\n{\n\tsoap_serialize_SOAP_ENV__Header(soap, soap->header);\n}");
	else
	  fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_serializeheader(struct soap *soap)\n{\n\tif (soap->header)\n\t\tsoap->header->soap_serialize(soap);\n}");
	fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_putheader(struct soap *soap)\n{\n\tif (soap->header)\n\t{\tsoap->is_in_header = 1;\n\t\tsoap_out_SOAP_ENV__Header(soap, \"SOAP-ENV:Header\", 0, soap->header, NULL);\n\t\tsoap->is_in_header = 0;\n\t}\n}");
	fprintf(fout,"\n\nSOAP_FMAC1 int SOAP_FMAC2 soap_getheader(struct soap *soap)\n{\n\tsoap->is_in_header = 1;\n\tsoap->header = soap_get_SOAP_ENV__Header(soap, NULL, \"SOAP-ENV:Header\", NULL);\n\tsoap->is_in_header = 0;\n\treturn soap->header == NULL;\n}");
        if (entry(classtable, lookup("SOAP_ENV__Fault"))->info.typ->type == Tstruct)
	{ fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_fault(struct soap *soap)\n{\n\tif (!soap->fault)\n\t{\tsoap->fault = (struct SOAP_ENV__Fault*)soap_malloc(soap, sizeof(struct SOAP_ENV__Fault));\n\t\tsoap_default_SOAP_ENV__Fault(soap, soap->fault);\n\t}\n}");
	  fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_serializefault(struct soap *soap)\n{\n\tsoap_serialize_SOAP_ENV__Fault(soap, soap->fault);\n}");
	}
	else
	{ fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_fault(struct soap *soap)\n{\n\tif (!soap->fault)\n\t{\tsoap->fault = soap_new_SOAP_ENV__Fault(soap, -1);\n\t\tsoap->fault->soap_default(soap);\n\t}\n}");
	  fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_serializefault(struct soap *soap)\n{\n\tif (soap->fault)\n\t\tsoap->fault->soap_serialize(soap);\n}");
	}
	fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_putfault(struct soap *soap)\n{\n\tsoap_out_SOAP_ENV__Fault(soap, \"SOAP-ENV:Fault\", 0, soap->fault, NULL);\n}");
	fprintf(fout,"\n\nSOAP_FMAC1 int SOAP_FMAC2 soap_getfault(struct soap *soap)\n{\n\treturn (soap->fault = soap_get_SOAP_ENV__Fault(soap, NULL, \"SOAP-ENV:Fault\", NULL)) == NULL;\n}");
	fprintf(fout,"\n\nSOAP_FMAC1 const char ** SOAP_FMAC2 soap_faultcode(struct soap *soap)\n{\n\tsoap_fault(soap);\n\treturn (const char**)&soap->fault->faultcode;\n}");
	fprintf(fout,"\n\nSOAP_FMAC1 const char ** SOAP_FMAC2 soap_faultstring(struct soap *soap)\n{\n\tsoap_fault(soap);\n\treturn (const char**)&soap->fault->faultstring;\n}");
	fprintf(fout,"\n\nSOAP_FMAC1 const char ** SOAP_FMAC2 soap_faultdetail(struct soap *soap)\n{\n\tsoap_fault(soap);\n\treturn (const char**)&soap->fault->detail;\n}");

	fprintf(fout,"\n\nSOAP_FMAC1 int SOAP_FMAC2 soap_getindependent(struct soap *soap)\n{");
	fprintf(fout,"\n\tfor (;;)");
        fprintf(fout,"\n\t{\tif (soap_peek_element(soap) || !*soap->id)\n\t\t\tbreak;");
	fprintf(fout,"\n\t\tswitch (soap_lookup_type(soap, soap->id))\n\t\t{");
	DBGLOG(fprintf(stderr,"\n Calling in_defs( )."));
	in_defs(table);
	DBGLOG(fprintf(stderr,"\n Completed in_defs( )."));
        fprintf(fout,"\n\t\tdefault:");
	in_defs2(table);
        fprintf(fout,"\n\t\t}");
        fprintf(fout,"\n\t\tif (soap->error)\n\t\t\tbreak;");
        fprintf(fout,"\n\t}");
        fprintf(fout,"\n\tif (soap->error == SOAP_NO_TAG)");
        fprintf(fout,"\n\t\tsoap->error = SOAP_OK;");
        fprintf(fout,"\n\treturn soap->error;");
        fprintf(fout,"\n}");

	fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_putindependent(struct soap *soap)\n{\n\tint i;\n\tstruct soap_plist *pp;");
	fprintf(fout,"\n\tif (soap->enable_embedding || soap->disable_href)\n\t\treturn;");
	fprintf(fout,"\n\tfor (i = 0; i < SOAP_PTRHASH; i++)");
	fprintf(fout,"\n\t\tfor (pp = soap->pht[i]; pp; pp = pp->next)");
	fprintf(fout,"\n\t\t\tif (soap->counting ? pp->mark1 == 2 : pp->mark2 == 2)");
	fprintf(fout,"\n\t\t\t\tswitch (pp->type & 0x3FF)\n\t\t\t\t{");
        out_defs(table);
	fprintf(fout,"\n\t\t\t\t}\n\t\t\n\t\n}");

	fprintf(fout,"\n\nSOAP_FMAC1 int SOAP_FMAC2 soap_getattachments(struct soap *soap)\n{");
	fprintf(fout,"\n\tif (!soap->dime)\n\t\treturn SOAP_OK;");
	fprintf(fout,"\n\twhile (soap->dime_flags&SOAP_DIME_CF)\n\t{\tif (soap_getdimehdr(soap))\n\t\t\treturn soap->error;\n\t\tif (soap_move(soap, soap->dime_size))\n\t\t\treturn soap->error = SOAP_EOF;\n\t}");
	fprintf(fout,"\n\tif (soap_move(soap, ((soap->dime_size+3)&-4)-soap_tell(soap)))\n\t\treturn soap->error = SOAP_EOF;");
	fprintf(fout,"\n\tfor (;;)");
        fprintf(fout,"\n\t{\tif (soap_getdime(soap) || !soap->dime_id)\n\t\t\tbreak;");
	fprintf(fout,"\n\t\tswitch (soap_lookup_type(soap, soap->dime_id))\n\t\t{");
        in_attach(table);
        fprintf(fout,"\n\t\tdefault:\n\t\t\tsoap->error = SOAP_DIME_ERROR;");
        fprintf(fout,"\n\t\t}");
        fprintf(fout,"\n\t\tif (soap->error)\n\t\t\tbreak;");
        fprintf(fout,"\n\t}");
        fprintf(fout,"\n\tif (soap->error == SOAP_EOD)");
        fprintf(fout,"\n\t\tsoap->error = SOAP_OK;");
        fprintf(fout,"\n\treturn soap->error;");
        fprintf(fout,"\n}");

	fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_putattachments(struct soap *soap)\n{\n\tint i;\n\tstruct soap_plist *pp;");
	fprintf(fout,"\n\tif (!soap->dime)\n\t\treturn;");
	fprintf(fout,"\n\tsoap_send_raw(soap, \"\\0\\0\\0\", -(int)soap->count&3);");
	fprintf(fout,"\n\tfor (i = 0; i < SOAP_PTRHASH; i++)");
	fprintf(fout,"\n\t\tfor (pp = soap->pht[i]; pp; pp = pp->next)");
	fprintf(fout,"\n\t\t\tif (pp->mark2 == 3)");
	fprintf(fout,"\n\t\t\t\tswitch (pp->type & 0x3FF)\n\t\t\t\t{");
        out_attach(table);
	fprintf(fout,"\n\t\t\t\t}\n\t\t\n\t\n}");

	fprintf(fout,"\n\nSOAP_FMAC1 void * SOAP_FMAC2 soap_instantiate(struct soap *soap, int t, const char *type, const char *arrayType)\n{\n\tswitch (t)\n\t{");
	if (classtable)
	  for (p = classtable->list; p; p = p->next)
	    if (p->info.typ->type == Tclass && !is_transient(p->info.typ))
	      fprintf(fout,"\n\tcase SOAP_%s:\n\t\treturn (void*)soap_instantiate_%s(soap, -1, type, arrayType);", p->info.typ->id->name, p->info.typ->id->name);

	fprintf(fout,"\n\t}\n\treturn NULL;\n}");

	fprintf(fout,"\n\nSOAP_FMAC1 void SOAP_FMAC2 soap_delete(struct soap *soap, void *p, int t, int n)\n{\n\tswitch (t)\n\t{");
	if (classtable)
	  for (p = classtable->list; p; p = p->next)
	    if (p->info.typ->type == Tclass && !is_transient(p->info.typ))
	    { fprintf(fout,"\n\tcase SOAP_%s:\n\t\tDBGLOG(TEST, SOAP_MESSAGE(fdebug, \"\\nsoap_delete(%s, %%d)\", n));", c_type(p->info.typ), c_type(p->info.typ));
	      fprintf(fout,"\n\t\tif (n<0)\n\t\t\tdelete (%s*)p;\n\t\telse\n\t\t\tdelete[] (%s*)p;\n\t\tbreak;", c_ident(p->info.typ), c_type(p->info.typ), c_type(p->info.typ));
	    }
	fprintf(fout,"\n\t}\n}");

	DBGLOG(fprintf(stderr,"\n Calling xml_def_table( )."));
        xml_def_table(table,0);
	DBGLOG(fprintf(stderr,"\n Completed xml_def_table( )."));
	if (cflag)
	  fprintf(fout,"\n#ifdef __cplusplus\n}\n#endif");
	fprintf(fout, "\n\n/* end of %s */\n", soapC);
        fclose(fout);
	if (cflag)
	  fprintf(fhead,"\n#ifdef __cplusplus\n}\n#endif");
	fprintf(fhead, "\n#endif");
	fprintf(fhead, "\n\n/* end of %s */\n", soapH);
	fclose(fhead);
	if (cflag)
	  fprintf(fheader,"\n#ifdef __cplusplus\n}\n#endif");
	fprintf(fheader, "\n#endif");
	fprintf(fheader, "\n\n/* end of %s */\n", soapStub);
	fclose(fheader);
	if (cflag)
	  fprintf(fclient,"\n#ifdef __cplusplus\n}\n#endif");
	fprintf(fclient, "\n\n/* end of %s */\n", soapClient);
        fclose(fclient);
	if (cflag)
	  fprintf(fserver,"\n#ifdef __cplusplus\n}\n#endif");
	fprintf(fserver, "\n\n/* end of %s */\n", soapServer);
 	fclose(fserver);
}

void
gen_class(FILE *fd, Tnode *typ)
{ Table *Tptr;
  Entry *Eptr;
  char *x = xsi_type(typ);
  typ->generated = True;
  if (is_hexBinary(typ))
    fprintf(fheader, "/* hexBinary schema type: */\n");
  else if (is_binary(typ))
    fprintf(fheader, "/* Base64 schema type: */\n");
  else if (is_primclass(typ))
    fprintf(fheader, "/* Primitive %s schema type: */\n", x);
  else if (is_dynamic_array(typ))
    if (has_ns(typ) || is_untyped(typ))
      fprintf(fheader, "/* Vector %s schema type: */\n", x);
    else
      fprintf(fheader, "/* Array of %s schema type: */\n", x);
  else if (is_transient(typ) && typ->ref)
    fprintf(fheader, "/* transient: */\n");
  else if (!strcmp(typ->id->name, "SOAP_ENV__Header"))
    fprintf(fheader, "/* SOAP Header: */\n#ifndef WITH_NOHEADER\n#define WITH_NOHEADER\n");
  else if (!strcmp(typ->id->name, "SOAP_ENV__Fault"))
    fprintf(fheader, "/* SOAP Fault: */\n#ifndef WITH_NOFAULT\n#define WITH_NOFAULT\n");
  if (typ->type == Tstruct)
  { { DBGLOG(fprintf(stderr,"\nstruct %s\n", typ->id->name));
      if (typ->ref)
      { fprintf(fd, "struct %s\n{", typ->id->name );
        for (Eptr = ((Table*)typ->ref)->list; Eptr; Eptr = Eptr->next)
        { fprintf(fd, "\n\t%s", c_storage(Eptr->info.sto));
	  if (Eptr->info.typ->type == Tclass && Eptr->info.typ->generated == False || Eptr->info.typ->ref && ((Tnode*)Eptr->info.typ->ref)->type == Tclass && ((Tnode*)Eptr->info.typ->ref)->generated == False)
	    fprintf(fd, "class ");
          fprintf(fd, "%s;", c_type_id(Eptr->info.typ,Eptr->sym->name));
	  if (Eptr->info.sto & Sconst)
	    fprintf(fd, "\t/* const field cannot be deserialized */");
	  else if (is_transient(Eptr->info.typ))
	    fprintf(fd, "\t/* transient */");
	  else if (Eptr->info.sto & SmustUnderstand)
	    fprintf(fd, "\t/* mustUnderstand */");
	  if (!is_dynamic_array(typ) && !is_primclass(typ))
	  { if (!strncmp(Eptr->sym->name, "__size", 6))
	    { if (!Eptr->next || Eptr->next->info.typ->type != Tpointer)
              { sprintf(errbuf, "Field '%s' with leading __ not followed by a pointer field in struct '%s'", Eptr->sym->name, typ->id->name);
                semwarn(errbuf);
	      }
	    }
	    else if (!strncmp(Eptr->sym->name, "__", 2))
            { sprintf(errbuf, "Field '%s' with leading __ not used in array or binary type struct '%s'", Eptr->sym->name, typ->id->name);
              semwarn(errbuf);
	    }
	  }
	}
        fprintf(fd, "\n};");
      }
      else if (strcmp(typ->id->name, "soap"))
      { sprintf(errbuf, "struct '%s' is empty", typ->id->name);
        semwarn(errbuf);
      }
    }
  }
  else
  { DBGLOG(fprintf(stderr,"\nclass %s\n", typ->id->name));
    if (typ->ref)
    { fprintf(fd,"class SOAP_CMAC %s", typ->id->name );
      Tptr =  ((Table *)typ->ref);
      if(Tptr->prev)
        fprintf(fd," : public %s", Tptr->prev->sym->name);
        fprintf(fd,"\n{ public:");
      for (Eptr = ((Table*)typ->ref)->list; Eptr; Eptr = Eptr->next)
      { fprintf(fd,"\n\t%s", c_storage(Eptr->info.sto));
	if (Eptr->info.typ->type == Tclass && Eptr->info.typ->generated == False || Eptr->info.typ->ref && ((Tnode*)Eptr->info.typ->ref)->type == Tclass && ((Tnode*)Eptr->info.typ->ref)->generated == False)
	  fprintf(fd, "class ");
	fprintf(fd,"%s", c_type_id(Eptr->info.typ,Eptr->sym->name));
	if (Eptr->info.sto & Sconstobj)
	  fprintf(fd, " const;");
	if (Eptr->info.sto & Sabstract)
	  fprintf(fd, " = 0;");
	else
	  fprintf(fd, ";");
	if (Eptr->info.sto & Sconst)
	  fprintf(fd, "\t/* const field cannot be deserialized */");
	else if (is_transient(Eptr->info.typ))
	  fprintf(fd, "\t/* transient */");
	else if (Eptr->info.sto & SmustUnderstand)
	  fprintf(fd, "\t/* mustUnderstand */");
	if (!is_dynamic_array(typ) && !is_primclass(typ))
	{ if (!strncmp(Eptr->sym->name, "__size", 6))