01bc547035
* harbour/source/macro/macro.yyc
* harbour/source/macro/macro.yyh
* harbour/source/compiler/harbour.yyc
* harbour/source/compiler/harbour.yyh
* updated for recent modifications
163 lines
4.2 KiB
Plaintext
163 lines
4.2 KiB
Plaintext
/* A Bison parser, made by GNU Bison 2.3. */
|
|
|
|
/* Skeleton interface for Bison's Yacc-like parsers in C
|
|
|
|
Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
|
|
Free Software Foundation, Inc.
|
|
|
|
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, 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., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA. */
|
|
|
|
/* As a special exception, you may create a larger work that contains
|
|
part or all of the Bison parser skeleton and distribute that work
|
|
under terms of your choice, so long as that work isn't itself a
|
|
parser generator using the skeleton or a modified version thereof
|
|
as a parser skeleton. Alternatively, if you modify or redistribute
|
|
the parser skeleton itself, you may (at your option) remove this
|
|
special exception, which will cause the skeleton and the resulting
|
|
Bison output files to be licensed under the GNU General Public
|
|
License without this special exception.
|
|
|
|
This special exception was added by the Free Software Foundation in
|
|
version 2.2 of Bison. */
|
|
|
|
/* Tokens. */
|
|
#ifndef YYTOKENTYPE
|
|
# define YYTOKENTYPE
|
|
/* Put the tokens into the symbol table, so that GDB and other debuggers
|
|
know about them. */
|
|
enum yytokentype {
|
|
IDENTIFIER = 258,
|
|
NIL = 259,
|
|
NUM_DOUBLE = 260,
|
|
INASSIGN = 261,
|
|
NUM_LONG = 262,
|
|
NUM_DATE = 263,
|
|
IIF = 264,
|
|
LITERAL = 265,
|
|
TRUEVALUE = 266,
|
|
FALSEVALUE = 267,
|
|
AND = 268,
|
|
OR = 269,
|
|
NOT = 270,
|
|
EQ = 271,
|
|
NE1 = 272,
|
|
NE2 = 273,
|
|
INC = 274,
|
|
DEC = 275,
|
|
ALIASOP = 276,
|
|
HASHOP = 277,
|
|
SELF = 278,
|
|
LE = 279,
|
|
GE = 280,
|
|
FIELD = 281,
|
|
MACROVAR = 282,
|
|
MACROTEXT = 283,
|
|
PLUSEQ = 284,
|
|
MINUSEQ = 285,
|
|
MULTEQ = 286,
|
|
DIVEQ = 287,
|
|
POWER = 288,
|
|
EXPEQ = 289,
|
|
MODEQ = 290,
|
|
EPSILON = 291,
|
|
POST = 292,
|
|
UNARY = 293,
|
|
PRE = 294
|
|
};
|
|
#endif
|
|
/* Tokens. */
|
|
#define IDENTIFIER 258
|
|
#define NIL 259
|
|
#define NUM_DOUBLE 260
|
|
#define INASSIGN 261
|
|
#define NUM_LONG 262
|
|
#define NUM_DATE 263
|
|
#define IIF 264
|
|
#define LITERAL 265
|
|
#define TRUEVALUE 266
|
|
#define FALSEVALUE 267
|
|
#define AND 268
|
|
#define OR 269
|
|
#define NOT 270
|
|
#define EQ 271
|
|
#define NE1 272
|
|
#define NE2 273
|
|
#define INC 274
|
|
#define DEC 275
|
|
#define ALIASOP 276
|
|
#define HASHOP 277
|
|
#define SELF 278
|
|
#define LE 279
|
|
#define GE 280
|
|
#define FIELD 281
|
|
#define MACROVAR 282
|
|
#define MACROTEXT 283
|
|
#define PLUSEQ 284
|
|
#define MINUSEQ 285
|
|
#define MULTEQ 286
|
|
#define DIVEQ 287
|
|
#define POWER 288
|
|
#define EXPEQ 289
|
|
#define MODEQ 290
|
|
#define EPSILON 291
|
|
#define POST 292
|
|
#define UNARY 293
|
|
#define PRE 294
|
|
|
|
|
|
|
|
|
|
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
|
typedef union YYSTYPE
|
|
#line 130 "macro.y"
|
|
{
|
|
char * string; /* to hold a string returned by lex */
|
|
int iNumber; /* to hold a temporary integer number */
|
|
HB_LONG lNumber; /* to hold a temporary long number */
|
|
void * pVoid; /* to hold any memory structure we may need */
|
|
HB_EXPR_PTR asExpr;
|
|
struct
|
|
{
|
|
char * string;
|
|
int length;
|
|
} valChar;
|
|
struct
|
|
{
|
|
int iNumber; /* to hold a number returned by lex */
|
|
} valInteger;
|
|
struct
|
|
{
|
|
HB_LONG lNumber; /* to hold a long number returned by lex */
|
|
UCHAR bWidth; /* to hold the width of the value */
|
|
} valLong;
|
|
struct
|
|
{
|
|
double dNumber; /* to hold a double number returned by lex */
|
|
UCHAR bWidth; /* to hold the width of the value */
|
|
UCHAR bDec; /* to hold the number of decimal points in the value */
|
|
} valDouble;
|
|
}
|
|
/* Line 1535 of yacc.c. */
|
|
#line 155 "macroy.h"
|
|
YYSTYPE;
|
|
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
|
|
# define YYSTYPE_IS_DECLARED 1
|
|
# define YYSTYPE_IS_TRIVIAL 1
|
|
#endif
|
|
|
|
|
|
|