diff options
Diffstat (limited to 'gcc/java/lex.h')
| -rw-r--r-- | gcc/java/lex.h | 247 |
1 files changed, 0 insertions, 247 deletions
diff --git a/gcc/java/lex.h b/gcc/java/lex.h deleted file mode 100644 index 20f7680b0fd..00000000000 --- a/gcc/java/lex.h +++ /dev/null @@ -1,247 +0,0 @@ -/* Language lexer definitions for the GNU compiler for the Java(TM) language. - Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 - Free Software Foundation, Inc. - Contributed by Alexandre Petit-Bianco (apbianco@cygnus.com) - -This file is part of GCC. - -GCC 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. - -GCC 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 GCC; see the file COPYING. If not, write to -the Free Software Foundation, 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. - -Java and all Java-based marks are trademarks or registered trademarks -of Sun Microsystems, Inc. in the United States and other countries. -The Free Software Foundation is independent of Sun Microsystems, Inc. */ - -#ifndef GCC_JAVA_LEX_H -#define GCC_JAVA_LEX_H - -#include "input.h" - -/* Extern global variables declarations */ -extern FILE *finput; - -/* A Unicode character, as read from the input file */ -typedef unsigned short unicode_t; - -#ifndef HAVE_ICONV_H -#undef HAVE_ICONV -#endif - -#if defined HAVE_ICONV -#include <iconv.h> -#endif /* HAVE_ICONV */ - -/* Default encoding to use if no encoding is specified. */ -#define DEFAULT_ENCODING "UTF-8" - -typedef struct java_lc_s GTY(()) { - int line; /* line number (1-based) */ - int col; /* column number number (1-based) */ -} java_lc; - -struct java_lexer -{ - /* The file from which we're reading. */ - FILE *finput; - - /* Number of consecutive backslashes we've read. */ - int bs_count; - - /* Next available Unicode character. - * This is post-Unicode-escape-processing. -1 if EOF. */ - int next_unicode; - - /* True if next_unicode is next available character, or EOF. */ - bool avail_unicode; - - /* Number of source columns of the previous Unicode character (next_unicode). - If next_unicode==-2, then this is the number of columns of the previous - Unicode character (most recent result of java_{get,peek}_unicode). */ - int next_columns; - - /* If nonzero, a value that was pushed back. This is a unicode character, - but (unlike next_unicode) is pre-'\uXXXX'-processing. It is also used - when a '\r' is *not* followed by a '\n'. */ - unicode_t unget_value; - - /* Name of the character encoding we're using. */ - const char *encoding; - - /* Current source position. */ - java_lc position; - -#ifndef USE_MAPPED_LOCATION - java_lc token_start; /* Error's line column info */ -#endif - -#ifdef HAVE_ICONV - /* Nonzero if we've read any bytes. We only recognize the - byte-order-marker (BOM) as the first word. */ - unsigned int read_anything : 1; - - /* Nonzero if we have to byte swap. */ - unsigned int byte_swap : 1; - - /* Nonzero if we're using the fallback decoder. */ - unsigned int use_fallback : 1; - - /* The handle for the iconv converter we're using. */ - iconv_t handle; - - /* Bytes we've read from the file but have not sent to iconv. */ - char buffer[1024]; - - /* Index of first valid character in buffer, -1 if no valid - characters. */ - int first; - - /* Index of last valid character in buffer, plus one. -1 if no - valid characters in buffer. */ - int last; - - /* This is a buffer of characters already converted by iconv. We - use `char' here because we're assuming that iconv() converts to - UCS-2, and then we convert it ourselves. */ - unsigned char out_buffer[1024]; - - /* Index of first valid output character. -1 if no valid - characters. */ - int out_first; - - /* Index of last valid output character, plus one. -1 if no valid - characters. */ - int out_last; - -#endif /* HAVE_ICONV */ -}; -typedef struct java_lexer java_lexer; - -/* Destroy a lexer object. */ -extern void java_destroy_lexer (java_lexer *); - -#define JAVA_LINE_MAX 80 - -/* Build a location compound integer */ -#ifdef USE_MAPPED_LOCATION -#define BUILD_LOCATION() input_location -#else -#define BUILD_LOCATION() ((ctxp->lexer->token_start.line << 12) \ - | (ctxp->lexer->token_start.col & 0xfff)) -#endif - -/* Those macros are defined differently if we compile jc1-lite - (JC1_LITE defined) or jc1. */ -#ifdef JC1_LITE - -#define DCONST0 0 -#define REAL_VALUE_TYPE int -#define GET_IDENTIFIER(S) xstrdup ((S)) -#define REAL_VALUE_ATOF(LIT,MODE) 0 -#define REAL_VALUE_ISINF(VALUE) 0 -#define REAL_VALUE_ISNAN(VALUE) 0 -#define SET_REAL_VALUE_ATOF(TARGET,SOURCE) -#define FLOAT_TYPE_NODE 0 -#define DOUBLE_TYPE_NODE 0 -#define SET_MODIFIER_CTX(TOKEN) java_lval->value = (TOKEN) -#define GET_TYPE_PRECISION(NODE) 4 -#define BUILD_OPERATOR(TOKEN) return TOKEN -#define BUILD_OPERATOR2(TOKEN) return ASSIGN_ANY_TK -#define SET_LVAL_NODE(NODE) -#define BUILD_ID_WFL(EXP) (EXP) -#define JAVA_FLOAT_RANGE_ERROR(S) {} -#define JAVA_RANGE_ERROR(S) do { } while (0) - -#else - -#define DCONST0 dconst0 -#define GET_IDENTIFIER(S) get_identifier ((S)) -#define SET_REAL_VALUE_ATOF(TARGET,SOURCE) (TARGET) = (SOURCE) -#define FLOAT_TYPE_NODE float_type_node -#define DOUBLE_TYPE_NODE double_type_node -/* Set modifier_ctx according to TOKEN */ -#define SET_MODIFIER_CTX(TOKEN) \ - { \ - ctxp->modifier_ctx [(TOKEN)-PUBLIC_TK] = build_wfl_node (NULL_TREE); \ - java_lval->value = (TOKEN)-PUBLIC_TK; \ - } -/* Type precision for long */ -#define GET_TYPE_PRECISION(NODE) TYPE_PRECISION (long_type_node) / 8; -/* Build an operator tree node and return TOKEN */ -#define BUILD_OPERATOR(TOKEN) \ - { \ - java_lval->operator.token = (TOKEN); \ - java_lval->operator.location = BUILD_LOCATION(); \ - return (TOKEN); \ - } - -/* Build an operator tree node but return ASSIGN_ANY_TK */ -#define BUILD_OPERATOR2(TOKEN) \ - { \ - java_lval->operator.token = (TOKEN); \ - java_lval->operator.location = BUILD_LOCATION(); \ - return ASSIGN_ANY_TK; \ - } -/* Set java_lval->node and TREE_TYPE(java_lval->node) in macros */ -#define SET_LVAL_NODE(NODE) java_lval->node = (NODE) -/* Wrap identifier around a wfl */ -#define BUILD_ID_WFL(EXP) build_wfl_node ((EXP)) -/* Special ways to report error on numeric literals */ -#define JAVA_FLOAT_RANGE_ERROR(m) \ - { \ - char *msg = XNEWVEC (char, 100 + strlen (m)); \ - sprintf (msg, "Floating point literal exceeds range of `%s'", (m)); \ - JAVA_RANGE_ERROR(msg); \ - free (msg); \ - } -#define JAVA_RANGE_ERROR(msg) \ - do { \ - int save_col = ctxp->lexer->position.col; \ - ctxp->lexer->position.col = number_beginning; \ - java_lex_error (msg, 0); \ - ctxp->lexer->position.col = save_col; \ - } while (0) - -#endif /* Definitions for jc1 compilation only */ - -/* Macros to decode character ranges */ -#define RANGE(c, l, h) (((c) >= l && (c) <= h)) -#define JAVA_WHITE_SPACE_P(c) (c == ' ' || c == '\t' || c == '\f') -#define JAVA_START_CHAR_P(c) ((c < 128 \ - && (ISIDST (c) || c == '$')) \ - || (c >= 128 && java_start_char_p (c))) -#define JAVA_PART_CHAR_P(c) ((c < 128 \ - && (ISIDNUM (c) \ - || c == '$' \ - || c == 0x0000 \ - || RANGE (c, 0x01, 0x08) \ - || RANGE (c, 0x0e, 0x1b) \ - || c == 0x7f)) \ - || (c >= 128 && java_part_char_p (c))) -#define JAVA_ASCII_DIGIT(c) ISDIGIT (c) -#define JAVA_ASCII_OCTDIGIT(c) RANGE (c, '0', '7') -#define JAVA_ASCII_HEXDIGIT(c) ISXDIGIT (c) -#define JAVA_ASCII_FPCHAR(c) (RANGE (c, 'd', 'f') || RANGE (c, 'D', 'F') || \ - c == '.' || JAVA_ASCII_DIGIT (c)) -#define JAVA_FP_SUFFIX(c) (c == 'D' || c == 'd' || c == 'f' || c == 'F') -#define JAVA_FP_EXP(c) (c == 'E' || c == 'F') -#define JAVA_FP_PM(c) (c == '-' || c == '+') -#define JAVA_ASCII_LETTER(c) ISALPHA (c) - -/* Constants */ -#define JAVA_READ_BUFFER 256 -#define JAVA_CHAR_ERROR -2 -#define UEOF -1 - -#endif /* ! GCC_JAVA_LEX_H */ |