Logo Search packages:      
Sourcecode: gsoap version File versions




gSOAP XML Web services tools
Copyright (C) 2000-2004, Robert van Engelen, Genivia, Inc. All Rights Reserved.

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
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-2004 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

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

#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.0d" /* Current version */

#if defined(WIN32)
#ifndef WITH_BISON
#define WITH_BISON

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

#ifdef DEBUG
#define     check(expr, msg) ((expr) ? 1 : progerror(msg, __FILE__, __LINE__))
#define check(expr, msg) (expr, 1)

#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

#ifdef WIN32
#define LONG64 __int64
#define LONG64 long long

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

#define SOAP_LONG_FORMAT "%lld"           /* printf format for 64 bit ints */
#define SOAP_ULONG_FORMAT "%llu"    /* printf format for unsigned 64 bit ints */

extern int yylineno;

typedef     enum Bool {False, True} Bool;

typedef     int Token;

typedef     enum Type
{     Tnone,
      Tvoid,            /* primitive types */
      Tclass,           /* compound types */
} Type;

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

typedef     enum Storage
{     Snone       = 0,
      Sauto       = 0x0001,
      Sregister   = 0x0002,
      Sstatic           = 0x0004,
      Sextern           = 0x0008,
      Stypedef    = 0x0010,
      Svirtual    = 0x0020,
      Sconst            = 0x0040,
      Sfriend           = 0x0080,
      Sinline           = 0x0100,
      Sconstobj   = 0x0200,
      Sabstract   = 0x0400,
      SmustUnderstand   = 0x0800,
      Sreturn           = 0x1000,
      Sattribute  = 0x2000,
      Sexplicit   = 0x4000
} 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         /* bits 0 and 1 are reserved for hdr ops */
#define HDROUT 2
#define COMMENT 4
#define ENCODING 8
#define STYLE 32
#define FAULT 64

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 *URL;
      char *executable;
      char *import;
      char *URI;
      char *WSDL;
      char *style;
      char *encoding;
      char *elementForm;
      char *attributeForm;
      char *documentation;
      struct Method *list;
} 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, *uniontable, *enumtable, *classtable, *booltable, *templatetable;

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

extern int vflag;
extern int wflag;
extern int cflag;
extern int eflag;
extern int mflag;
extern int nflag;
extern int lflag;
extern int tflag;
extern int xflag;
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;

Generated by  Doxygen 1.6.0   Back to index