src/soapcpp2.h - platform/external/gsoap - Git at Google

 /*

 soapcpp2.h

 gSOAP XML Web services tools
 Copyright (C) 2000-2006, Robert van Engelen, Genivia Inc. All Rights Reserved.
 This part of the software is released under one of the following licenses:
 GPL, the gSOAP public license, or Genivia's license for commercial use.
 --------------------------------------------------------------------------------
 gSOAP public license.

 The contents of this file are subject to the gSOAP Public License Version 1.3
 (the "License"); you may not use this file except in compliance with the
 License. You may obtain a copy of the License at
 http://www.cs.fsu.edu/~engelen/soaplicense.html
 Software distributed under the License is distributed on an "AS IS" basis,
 WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 for the specific language governing rights and limitations under the License.

 The Initial Developer of the Original Code is Robert A. van Engelen.
 Copyright (C) 2000-2006 Robert A. van Engelen, Genivia inc. All Rights Reserved.
 --------------------------------------------------------------------------------
 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 <stdio.h>
 #include <stdlib.h>
 #include <errno.h>
 #include <string.h>
 #include <ctype.h>
 #include <time.h>
 #include "error2.h"

 #ifndef VERSION
 #define VERSION "2.7.6e" /* Current version */
 #endif

 #ifdef WIN32
 #ifndef WITH_BISON
 #define WITH_BISON
 #endif
 #endif

 /* #define DEBUG */ /* uncomment to debug */

 #ifdef DEBUG
 #define	check(expr, msg) ((expr) ? 1 : progerror(msg, __FILE__, __LINE__))
 #define DBGLOG(DBGCMD) { DBGCMD; }
 #else
 #define check(expr, msg) (expr, 1)
 #define DBGLOG(DBGCMD)
 #endif

 #ifdef WITH_BISON
 #ifdef WIN32_WITHOUT_SOLARIS_FLEX
 #define yyparse soapcpp2parse
 #define yylex soapcpp2lex
 #define yyerror soapcpp2error
 #define yylval soapcpp2lval
 #define yychar soapcpp2char
 #define yydebug soapcpp2debug
 #define yynerrs soapcpp2nerrs
 #define yylineno soapcpp2lineno
 #define yytext soapcpp2text
 #define yyin soapcpp2in
 #define yywrap soapcpp2wrap
 #endif
 #endif

 #ifdef WIN32
 #define SOAP_PATHCAT "\\"
 #define SOAP_PATHSEP ";"
 #define LONG64 __int64
 #else
 #define SOAP_PATHCAT "/"
 #define SOAP_PATHSEP ":"
 #define LONG64 long long
 #endif

 #if defined(WIN32)
 #define SOAP_LONG_FORMAT "%I64d"
 #define SOAP_ULONG_FORMAT "%I64u"
 #define SOAP_XLONG_FORMAT "%I64x"
 #elif defined(TRU64)
 #define SOAP_LONG_FORMAT "%ld"
 #define SOAP_ULONG_FORMAT "%lu"
 #define SOAP_XLONG_FORMAT "%lx"
 #endif

 #ifndef SOAP_LONG_FORMAT
 #define SOAP_LONG_FORMAT "%lld"		/* printf format for 64 bit ints */
 #endif
 #ifndef SOAP_ULONG_FORMAT
 #define SOAP_ULONG_FORMAT "%llu"	/* printf format for unsigned 64 bit ints */
 #endif
 #ifndef SOAP_XLONG_FORMAT
 #define SOAP_XLONG_FORMAT "%llx"	/* printf format for unsigned 64 bit hex ints */
 #endif

 extern int yylineno;

 typedef	enum Bool {False, True} Bool;

 typedef	int Token;

 typedef	enum Type
 {	Tnone,
 	Tvoid,		/* primitive types */
 	Tchar,
 	Twchar,
 	Tshort,
 	Tint,
 	Tlong,
 	Tllong,
 	Tfloat,
 	Tdouble,
 	Tuchar,
 	Tushort,
 	Tuint,
 	Tulong,
 	Tullong,
 	Tenum,
 	Ttime,
 	Tclass,		/* compound types */
 	Tstruct,
 	Tunion,
 	Tpointer,
 	Treference,
 	Tarray,
 	Ttemplate,
 	Tfun
 } Type;

 #define	TYPES (Tfun+1)	/* number of type (operators) enumerated above */

 typedef	enum Storage
 {	Snone		= 0,
 	Sauto		= 0x000001,
 	Sregister	= 0x000002,
 	Sstatic		= 0x000004,
 	Sextern		= 0x000008,
 	Stypedef	= 0x000010,
 	Svirtual	= 0x000020,
 	Sconst		= 0x000040,
 	Sfriend		= 0x000080,
 	Sinline		= 0x000100,
 	Sconstobj	= 0x000200,
 	Sabstract	= 0x000400,
 	SmustUnderstand	= 0x000800,
 	Sreturn		= 0x001000,
 	Sattribute	= 0x002000,
 	Sexplicit	= 0x004000,
 	Sprivate	= 0x010000,
 	Sprotected	= 0x020000
 } Storage;

 typedef	enum Level { INTERNAL, GLOBAL, PARAM, LOCAL } Level;

 #define mknone()	mktype(Tnone,     NULL, 0)
 #define mkvoid()	mktype(Tvoid,     NULL, 0)
 #define mkbool()	mktype(Tenum,     booltable, 2)
 #define mkchar()	mktype(Tchar,     NULL, 1)
 #define mkwchart()	mktype(Twchar,    NULL, 4)
 #define mkshort()	mktype(Tshort,    NULL, 2)
 #define mkint()		mktype(Tint,      NULL, 4)
 #define mklong()	mktype(Tlong,     NULL, 8)
 #define mkllong()	mktype(Tllong,    NULL, 8)
 #define mkfloat()	mktype(Tfloat,    NULL, 4)
 #define mkdouble()	mktype(Tdouble,   NULL, 8)
 #define mkuchar()	mktype(Tuchar,    NULL, 1)	/* unsigned char */
 #define mkushort()	mktype(Tushort,   NULL, 2)	/* unsigned short */
 #define mkuint()	mktype(Tuint,     NULL, 4)	/* unsigned int */
 #define mkulong()	mktype(Tulong,    NULL, 8)	/* unsigned long */
 #define mkullong()	mktype(Tullong,   NULL, 8)	/* unsigned long */
 #define mktimet()	mktype(Ttime,     NULL, 4)
 #define mkenum(t)	mktype(Tenum,	  t,    4)
 #define mkmask(t)	mktype(Tenum,	  t,    8)
 #define	mkpointer(t)	mktype(Tpointer,  t,    4)
 #define	mkreference(t)	mktype(Treference,t,    4)
 #define	mkclass(t, w)	mktype(Tclass,    t,    w)
 #define	mkstruct(t, w)	mktype(Tstruct,   t,    w)
 #define	mkunion(t, w)	mktype(Tunion,    t,    w)
 #define	mkarray(t, w)	mktype(Tarray,    t,    w)
 #define	mkfun(t)	mktype(Tfun,      t,    0)
 #define mkstring()	mkpointer(mkchar())

 typedef struct Symbol
 {	char	*name;
 	Token	token;
 	struct	Symbol *next;
 } Symbol;

 Symbol	*install(const char*, Token), *lookup(const char*), *gensym(const char*), *gensymidx(const char*, int);

 typedef	struct Tnode
 {	Type	type;
 	void	*ref;
 	Symbol	*id;	/* struct/class/union/enum name */
 	Symbol	*base;	/* base class name */
 	Symbol	*sym;	/* typedef name */
 	struct	Entry *response; /* funcs only: points to response struct */
 	int	width;
 	int	transient;
 	int	imports;
 	struct	Tnode *next;
         Bool	generated;
         Bool	wsdl;
 	int	num;
 	char	*pattern;
 	long	minLength;
 	long	maxLength;
 } Tnode;

 typedef	union Value {
 	LONG64	i;
 	double	r;
 	char	*s;
 } Value;

 typedef	struct IDinfo {
 	Tnode	*typ;
 	Storage	sto;
 	Bool	hasval;		/* if true, identifier is constant */
 	Value	val;		/* ... with this value */
 	int	offset;
 	long	minOccurs;
 	long	maxOccurs;
 } IDinfo;

 typedef	struct Entry {
 	Symbol	*sym;
 	IDinfo	info;
 	Level	level;
 	int	lineno;
 	struct	Entry *next;
 } Entry;

 typedef	struct Table {
 	Symbol	*sym;
 	Level	level;
 	Entry	*list;
 	struct	Table *prev;
 } Table;

 typedef struct FNinfo {
 	Tnode	*ret;
 	Table	*args;
 } FNinfo;


 typedef	struct Node {
 	Tnode	*typ;
 	Storage	sto;
 	Bool	hasval;		/* if true, this node has a constant value */
 	Value	val;		/* ... this is the value */
 	long	minOccurs;
 	long	maxOccurs;
 	char	*pattern;
 } Node;

 #define ACTION 0
 #define HDRIN 1
 #define HDROUT 2
 #define MIMEIN 4
 #define MIMEOUT 8
 #define COMMENT 16
 #define ENCODING 32
 #define RESPONSE_ENCODING 64
 #define STYLE 128
 #define FAULT 256

 typedef struct Data
 {	struct Data *next;
 	char *name;
 	char *part;
 } Data;

 typedef struct Method
 {	struct Method *next;
 	char *name;
 	short mess; /* see #defines above */
 	char *part;
 } Method;

 typedef struct Service
 {	struct Service *next;
 	char *ns;
 	char *name;
 	char *port;
 	char *binding;
 	char *definitions;
 	char *transport;
 	char *URL;
 	char *executable;
 	char *import;
 	char *URI;
 	char *WSDL;
 	char *style;
 	char *encoding;
 	char *elementForm;
 	char *attributeForm;
 	char *documentation;
 	struct Method *list;
 	struct Data *data;
 } Service;

 typedef struct Pragma
 {	struct Pragma *next;
 	char *pragma;
 } Pragma;

 extern Entry *enter(Table*, Symbol*), *entry(Table*, Symbol*), *reenter(Table*, Symbol*), *enumentry(Symbol*);

 extern Table *mktable(Table*);

 extern Tnode *mkmethod(Tnode*, Table*);

 extern char *emalloc(unsigned int);

 extern Tnode *mktype(Type, void*, int);
 extern Tnode *mksymtype(Tnode*, Symbol*);
 extern Tnode *mktemplate(Tnode*, Symbol*);

 extern int is_transient(Tnode*);
 extern int is_response(Tnode*);

 extern Table *typetable, *enumtable, *classtable, *booltable, *templatetable;

 extern void compile(Table*);
 extern void freetable(Table*);
 extern Entry *unlinklast(Table*);

 extern FILE *fmsg;

 extern int aflag;
 extern int vflag;
 extern int wflag;
 extern int cflag;
 extern int Cflag;
 extern int eflag;
 extern int iflag;
 extern int mflag;
 extern int nflag;
 extern int lflag;
 extern int Lflag;
 extern int Sflag;
 extern int tflag;
 extern int xflag;
 extern int is_module;
 extern char dirpath[1024];
 extern char filename[1024];
 extern char *prefix;
 extern char *importpath;
 extern int custom_header;
 extern int custom_fault;
 extern Pragma *pragmas;
 extern Service *services;
 extern char *namespaceid;
 extern int transient;
 extern int imports;
 extern int typeNO;

 extern char *envURI;
 extern char *encURI;
 extern char *rpcURI;
 extern char *xsiURI;
 extern char *xsdURI;
	/*

	soapcpp2.h

	gSOAP XML Web services tools
	Copyright (C) 2000-2006, Robert van Engelen, Genivia Inc. All Rights Reserved.
	This part of the software is released under one of the following licenses:
	GPL, the gSOAP public license, or Genivia's license for commercial use.
	--------------------------------------------------------------------------------
	gSOAP public license.

	The contents of this file are subject to the gSOAP Public License Version 1.3
	(the "License"); you may not use this file except in compliance with the
	License. You may obtain a copy of the License at
	http://www.cs.fsu.edu/~engelen/soaplicense.html
	Software distributed under the License is distributed on an "AS IS" basis,
	WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
	for the specific language governing rights and limitations under the License.

	The Initial Developer of the Original Code is Robert A. van Engelen.
	Copyright (C) 2000-2006 Robert A. van Engelen, Genivia inc. All Rights Reserved.
	--------------------------------------------------------------------------------
	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 <stdio.h>
	#include <stdlib.h>
	#include <errno.h>
	#include <string.h>
	#include <ctype.h>
	#include <time.h>
	#include "error2.h"

	#ifndef VERSION
	#define VERSION "2.7.6e" /* Current version */
	#endif

	#ifdef WIN32
	#ifndef WITH_BISON
	#define WITH_BISON
	#endif
	#endif

	/* #define DEBUG / / uncomment to debug */

	#ifdef DEBUG
	#define check(expr, msg) ((expr) ? 1 : progerror(msg, __FILE__, __LINE__))
	#define DBGLOG(DBGCMD) { DBGCMD; }
	#else
	#define check(expr, msg) (expr, 1)
	#define DBGLOG(DBGCMD)
	#endif

	#ifdef WITH_BISON
	#ifdef WIN32_WITHOUT_SOLARIS_FLEX
	#define yyparse soapcpp2parse
	#define yylex soapcpp2lex
	#define yyerror soapcpp2error
	#define yylval soapcpp2lval
	#define yychar soapcpp2char
	#define yydebug soapcpp2debug
	#define yynerrs soapcpp2nerrs
	#define yylineno soapcpp2lineno
	#define yytext soapcpp2text
	#define yyin soapcpp2in
	#define yywrap soapcpp2wrap
	#endif
	#endif

	#ifdef WIN32
	#define SOAP_PATHCAT "\\"
	#define SOAP_PATHSEP ";"
	#define LONG64 __int64
	#else
	#define SOAP_PATHCAT "/"
	#define SOAP_PATHSEP ":"
	#define LONG64 long long
	#endif

	#if defined(WIN32)
	#define SOAP_LONG_FORMAT "%I64d"
	#define SOAP_ULONG_FORMAT "%I64u"
	#define SOAP_XLONG_FORMAT "%I64x"
	#elif defined(TRU64)
	#define SOAP_LONG_FORMAT "%ld"
	#define SOAP_ULONG_FORMAT "%lu"
	#define SOAP_XLONG_FORMAT "%lx"
	#endif

	#ifndef SOAP_LONG_FORMAT
	#define SOAP_LONG_FORMAT "%lld" /* printf format for 64 bit ints */
	#endif
	#ifndef SOAP_ULONG_FORMAT
	#define SOAP_ULONG_FORMAT "%llu" /* printf format for unsigned 64 bit ints */
	#endif
	#ifndef SOAP_XLONG_FORMAT
	#define SOAP_XLONG_FORMAT "%llx" /* printf format for unsigned 64 bit hex ints */
	#endif

	extern int yylineno;

	typedef enum Bool {False, True} Bool;

	typedef int Token;

	typedef enum Type
	{ Tnone,
	Tvoid, /* primitive types */
	Tchar,
	Twchar,
	Tshort,
	Tint,
	Tlong,
	Tllong,
	Tfloat,
	Tdouble,
	Tuchar,
	Tushort,
	Tuint,
	Tulong,
	Tullong,
	Tenum,
	Ttime,
	Tclass, /* compound types */
	Tstruct,
	Tunion,
	Tpointer,
	Treference,
	Tarray,
	Ttemplate,
	Tfun
	} Type;

	#define TYPES (Tfun+1) /* number of type (operators) enumerated above */

	typedef enum Storage
	{ Snone = 0,
	Sauto = 0x000001,
	Sregister = 0x000002,
	Sstatic = 0x000004,
	Sextern = 0x000008,
	Stypedef = 0x000010,
	Svirtual = 0x000020,
	Sconst = 0x000040,
	Sfriend = 0x000080,
	Sinline = 0x000100,
	Sconstobj = 0x000200,
	Sabstract = 0x000400,
	SmustUnderstand = 0x000800,
	Sreturn = 0x001000,
	Sattribute = 0x002000,
	Sexplicit = 0x004000,
	Sprivate = 0x010000,
	Sprotected = 0x020000
	} Storage;

	typedef enum Level { INTERNAL, GLOBAL, PARAM, LOCAL } Level;

	#define mknone() mktype(Tnone, NULL, 0)
	#define mkvoid() mktype(Tvoid, NULL, 0)
	#define mkbool() mktype(Tenum, booltable, 2)
	#define mkchar() mktype(Tchar, NULL, 1)
	#define mkwchart() mktype(Twchar, NULL, 4)
	#define mkshort() mktype(Tshort, NULL, 2)
	#define mkint() mktype(Tint, NULL, 4)
	#define mklong() mktype(Tlong, NULL, 8)
	#define mkllong() mktype(Tllong, NULL, 8)
	#define mkfloat() mktype(Tfloat, NULL, 4)
	#define mkdouble() mktype(Tdouble, NULL, 8)
	#define mkuchar() mktype(Tuchar, NULL, 1) /* unsigned char */
	#define mkushort() mktype(Tushort, NULL, 2) /* unsigned short */
	#define mkuint() mktype(Tuint, NULL, 4) /* unsigned int */
	#define mkulong() mktype(Tulong, NULL, 8) /* unsigned long */
	#define mkullong() mktype(Tullong, NULL, 8) /* unsigned long */
	#define mktimet() mktype(Ttime, NULL, 4)
	#define mkenum(t) mktype(Tenum, t, 4)
	#define mkmask(t) mktype(Tenum, t, 8)
	#define mkpointer(t) mktype(Tpointer, t, 4)
	#define mkreference(t) mktype(Treference,t, 4)
	#define mkclass(t, w) mktype(Tclass, t, w)
	#define mkstruct(t, w) mktype(Tstruct, t, w)
	#define mkunion(t, w) mktype(Tunion, t, w)
	#define mkarray(t, w) mktype(Tarray, t, w)
	#define mkfun(t) mktype(Tfun, t, 0)
	#define mkstring() mkpointer(mkchar())

	typedef struct Symbol
	{ char *name;
	Token token;
	struct Symbol *next;
	} Symbol;

	Symbol install(const char, Token), lookup(const char), gensym(const char), gensymidx(const char, int);

	typedef struct Tnode
	{ Type type;
	void *ref;
	Symbol id; / struct/class/union/enum name */
	Symbol base; / base class name */
	Symbol sym; / typedef name */
	struct Entry response; / funcs only: points to response struct */
	int width;
	int transient;
	int imports;
	struct Tnode *next;
	Bool generated;
	Bool wsdl;
	int num;
	char *pattern;
	long minLength;
	long maxLength;
	} Tnode;

	typedef union Value {
	LONG64 i;
	double r;
	char *s;
	} Value;

	typedef struct IDinfo {
	Tnode *typ;
	Storage sto;
	Bool hasval; /* if true, identifier is constant */
	Value val; /* ... with this value */
	int offset;
	long minOccurs;
	long maxOccurs;
	} IDinfo;

	typedef struct Entry {
	Symbol *sym;
	IDinfo info;
	Level level;
	int lineno;
	struct Entry *next;
	} Entry;

	typedef struct Table {
	Symbol *sym;
	Level level;
	Entry *list;
	struct Table *prev;
	} Table;

	typedef struct FNinfo {
	Tnode *ret;
	Table *args;
	} FNinfo;


	typedef struct Node {
	Tnode *typ;
	Storage sto;
	Bool hasval; /* if true, this node has a constant value */
	Value val; /* ... this is the value */
	long minOccurs;
	long maxOccurs;
	char *pattern;
	} Node;

	#define ACTION 0
	#define HDRIN 1
	#define HDROUT 2
	#define MIMEIN 4
	#define MIMEOUT 8
	#define COMMENT 16
	#define ENCODING 32
	#define RESPONSE_ENCODING 64
	#define STYLE 128
	#define FAULT 256

	typedef struct Data
	{ struct Data *next;
	char *name;
	char *part;
	} Data;

	typedef struct Method
	{ struct Method *next;
	char *name;
	short mess; /* see #defines above */
	char *part;
	} Method;

	typedef struct Service
	{ struct Service *next;
	char *ns;
	char *name;
	char *port;
	char *binding;
	char *definitions;
	char *transport;
	char *URL;
	char *executable;
	char *import;
	char *URI;
	char *WSDL;
	char *style;
	char *encoding;
	char *elementForm;
	char *attributeForm;
	char *documentation;
	struct Method *list;
	struct Data *data;
	} Service;

	typedef struct Pragma
	{ struct Pragma *next;
	char *pragma;
	} Pragma;

	extern Entry enter(Table, Symbol), entry(Table, Symbol), reenter(Table, Symbol), enumentry(Symbol*);

	extern Table mktable(Table);

	extern Tnode mkmethod(Tnode, Table*);

	extern char *emalloc(unsigned int);

	extern Tnode mktype(Type, void, int);
	extern Tnode mksymtype(Tnode, Symbol*);
	extern Tnode mktemplate(Tnode, Symbol*);

	extern int is_transient(Tnode*);
	extern int is_response(Tnode*);

	extern Table typetable, enumtable, classtable, booltable, *templatetable;

	extern void compile(Table*);
	extern void freetable(Table*);
	extern Entry unlinklast(Table);

	extern FILE *fmsg;

	extern int aflag;
	extern int vflag;
	extern int wflag;
	extern int cflag;
	extern int Cflag;
	extern int eflag;
	extern int iflag;
	extern int mflag;
	extern int nflag;
	extern int lflag;
	extern int Lflag;
	extern int Sflag;
	extern int tflag;
	extern int xflag;
	extern int is_module;
	extern char dirpath[1024];
	extern char filename[1024];
	extern char *prefix;
	extern char *importpath;
	extern int custom_header;
	extern int custom_fault;
	extern Pragma *pragmas;
	extern Service *services;
	extern char *namespaceid;
	extern int transient;
	extern int imports;
	extern int typeNO;

	extern char *envURI;
	extern char *encURI;
	extern char *rpcURI;
	extern char *xsiURI;
	extern char *xsdURI;