diff options
Diffstat (limited to 'gcc/f/src.h')
| -rw-r--r-- | gcc/f/src.h | 147 |
1 files changed, 3 insertions, 144 deletions
diff --git a/gcc/f/src.h b/gcc/f/src.h index 02279154d28..6f8bff2f3fc 100644 --- a/gcc/f/src.h +++ b/gcc/f/src.h @@ -1,144 +1,3 @@ -/* src.h -- Public #include File - Copyright (C) 1995 Free Software Foundation, Inc. - Contributed by James Craig Burley (burley@gnu.ai.mit.edu). - -This file is part of GNU Fortran. - -GNU Fortran 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. - -GNU Fortran 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 GNU Fortran; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. - - Owning Modules: - src.c - - Modifications: -*/ - -/* Allow multiple inclusion to work. */ - -#ifndef _H_f_src -#define _H_f_src - -#include "bad.h" -#include "top.h" - -extern char ffesrc_toupper_[256]; -extern char ffesrc_tolower_[256]; -extern char ffesrc_char_match_init_[256]; -extern char ffesrc_char_match_noninit_[256]; -extern char ffesrc_char_source_[256]; -extern char ffesrc_char_internal_init_[256]; -extern ffebad ffesrc_bad_symbol_init_[256]; -extern ffebad ffesrc_bad_symbol_noninit_[256]; -extern bool ffesrc_check_symbol_; -extern bool ffesrc_ok_match_init_upper_; -extern bool ffesrc_ok_match_init_lower_; -extern bool ffesrc_ok_match_noninit_upper_; -extern bool ffesrc_ok_match_noninit_lower_; - -/* These C-language-syntax modifiers could avoid the match arg if gcc's - extension allowing macros to generate dynamic labels was used. They - could use the no_match arg (and the "caller's" label defs) if there - was a way to say "goto default" in a switch statement. Oh well. - - NOTE: These macro assume "case FFESRC_CASE_MATCH_[NON]INIT(...):" is used - to invoke them, and thus assume the "above" case does not fall through to - this one. This syntax was chosen to keep indenting tools working. */ - -#define FFESRC_CASE_MATCH_INIT(upper, lower, match, no_match) \ - upper: if (!ffesrc_ok_match_init_upper_) goto no_match; \ - else goto match; \ - case lower: if (!ffesrc_ok_match_init_lower_) goto no_match; \ - match - -#define FFESRC_CASE_MATCH_NONINIT(upper, lower, match, no_match) \ - upper: if (!ffesrc_ok_match_noninit_upper_) goto no_match; \ - else goto match; \ - case lower: if (!ffesrc_ok_match_noninit_lower_) goto no_match; \ - match - -/* If character is ok in a symbol name (not including intrinsic names), - returns FFEBAD, else returns something else, type ffebad. */ - -#define ffesrc_bad_char_symbol_init(c) \ - (ffesrc_bad_symbol_init_[(unsigned int) (c)]) -#define ffesrc_bad_char_symbol_noninit(c) \ - (ffesrc_bad_symbol_noninit_[(unsigned int) (c)]) - -/* Returns TRUE if character is ok in a symbol name (including - intrinsic names). Doesn't care about case settings, this is - used just for parsing (before semantic complaints about symbol- - name casing and such). One specific usage is to decide whether - an underscore is valid as the first or subsequent character in - some symbol name -- if not, an underscore is a separate token - (while lexing, for example). Note that ffesrc_is_name_init - must return TRUE for a (not necessarily proper) subset of - characters for which ffelex_is_firstnamechar returns TRUE. */ - -#define ffesrc_is_name_init(c) \ - ((isalpha ((c))) || (!(1 || ffe_is_90 ()) && ((c) == '_'))) -#define ffesrc_is_name_noninit(c) \ - ((isalnum ((c))) || (!(1 || ffe_is_90 ()) && ((c) == '_'))) - -/* Test if source-translated character matches given alphabetic character - (passed in both uppercase and lowercase, to allow for custom speedup - of compilation in environments where compile-time options aren't needed - for casing). */ - -#define ffesrc_char_match_init(c, up, low) \ - (ffesrc_char_match_init_[(unsigned int) (c)] == up) - -#define ffesrc_char_match_noninit(c, up, low) \ - (ffesrc_char_match_noninit_[(unsigned int) (c)] == up) - -/* Translate character from input-file form to source form. */ - -#define ffesrc_char_source(c) (ffesrc_char_source_[(unsigned int) (c)]) - -/* Translate internal character (upper/lower) to source form in an - initial-character context (i.e. ffesrc_char_match_init of the result - will always succeed). */ - -#define ffesrc_char_internal_init(up, low) \ - (ffesrc_char_internal_init_[(unsigned int) (up)]) - -/* Returns TRUE if a name representing a symbol should be checked for - validity according to compile-time options. That is, if it is possible - that ffesrc_bad_char_symbol(c) can return something other than FFEBAD - for any valid character in an ffelex NAME(S) token. */ - -#define ffesrc_check_symbol() ffesrc_check_symbol_ - -#define ffesrc_init_0() -void ffesrc_init_1 (void); -#define ffesrc_init_2() -#define ffesrc_init_3() -#define ffesrc_init_4() -int ffesrc_strcmp_1ns2i (ffeCase mcase, const char *var, int len, - const char *str_ic); -int ffesrc_strcmp_2c (ffeCase mcase, const char *var, const char *str_uc, - const char *str_lc, const char *str_ic); -int ffesrc_strncmp_2c (ffeCase mcase, const char *var, const char *str_uc, - const char *str_lc, const char *str_ic, int len); -#define ffesrc_terminate_0() -#define ffesrc_terminate_1() -#define ffesrc_terminate_2() -#define ffesrc_terminate_3() -#define ffesrc_terminate_4() -#define ffesrc_toupper(c) (ffesrc_toupper_[(unsigned int) (c)]) -#define ffesrc_tolower(c) (ffesrc_tolower_[(unsigned int) (c)]) - -/* End of #include file. */ - -#endif + Contributed by James Craig Burley (burley@gnu.org). + ((ISALPHA ((c))) || (! (1 || ffe_is_90 ()) && ((c) == '_'))) + ((ISALNUM ((c))) || (! (1 || ffe_is_90 ()) && ((c) == '_'))) |