1 /* top.h -- Public #include File (module.h template V1.0) 2 Copyright (C) 1995, 1996, 1997, 1999 Free Software Foundation, Inc. 3 Contributed by James Craig Burley. 4 5 This file is part of GNU Fortran. 6 7 GNU Fortran is free software; you can redistribute it and/or modify 8 it under the terms of the GNU General Public License as published by 9 the Free Software Foundation; either version 2, or (at your option) 10 any later version. 11 12 GNU Fortran is distributed in the hope that it will be useful, 13 but WITHOUT ANY WARRANTY; without even the implied warranty of 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 GNU General Public License for more details. 16 17 You should have received a copy of the GNU General Public License 18 along with GNU Fortran; see the file COPYING. If not, write to 19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 20 02111-1307, USA. 21 22 Owning Modules: 23 top.c 24 25 Modifications: 26 */ 27 28 /* Allow multiple inclusion to work. */ 29 30 #ifndef GCC_F_TOP_H 31 #define GCC_F_TOP_H 32 33 /* Simple definitions and enumerations. */ 34 35 enum _ffe_case_ 36 { 37 FFE_caseNONE, /* No case conversion, match 38 case-insensitive. */ 39 FFE_caseUPPER, /* Convert lowercase to uppercase, match 40 upper. */ 41 FFE_caseLOWER, /* Convert uppercase to lowercase, match 42 lower. */ 43 FFE_caseINITCAP, /* Match InitialCap (no meaning for 44 conversion). */ 45 FFE_case 46 }; 47 typedef enum _ffe_case_ ffeCase; 48 49 enum _ffeintrinsic_state_ 50 { /* State of a family of intrinsics. NOTE: 51 order IS important, see 52 ffe_intrinsic_state_max (). */ 53 FFE_intrinsicstateDELETED, /* Doesn't exist at all. */ 54 FFE_intrinsicstateDISABLED, /* Diagnostic if used as intrinsic. */ 55 FFE_intrinsicstateHIDDEN, /* Exists only if INTRINSIC stmt. */ 56 FFE_intrinsicstateENABLED, /* Exists as normal. */ 57 FFE_intrinsicstate 58 }; 59 typedef enum _ffeintrinsic_state_ ffeIntrinsicState; 60 61 /* Typedefs. */ 62 63 typedef unsigned long ffeCounter; 64 #define ffeCounter_f "l" 65 typedef unsigned int ffeKwIndex; 66 typedef unsigned long int ffeTokenLength; 67 #define ffeTokenLength_f "l" 68 typedef void *ffeUnionLongPtr; /* unused type to cover union of long and 69 ptr. */ 70 71 /* Include files needed by this one. */ 72 73 #include "malloc.h" 74 #include "where.h" 75 76 /* Structure definitions. */ 77 78 79 /* Global objects accessed by users of this module. */ 80 81 extern bool ffe_is_do_internal_checks_; 82 extern bool ffe_is_90_; 83 extern bool ffe_is_automatic_; 84 extern bool ffe_is_backslash_; 85 extern bool ffe_is_emulate_complex_; 86 extern bool ffe_is_underscoring_; 87 extern bool ffe_is_second_underscore_; 88 extern bool ffe_is_debug_kludge_; 89 extern bool ffe_is_dollar_ok_; 90 extern bool ffe_is_f2c_; 91 extern bool ffe_is_f2c_library_; 92 extern bool ffe_is_ffedebug_; 93 extern bool ffe_is_flatten_arrays_; 94 extern bool ffe_is_free_form_; 95 extern bool ffe_is_globals_; 96 extern bool ffe_is_init_local_zero_; 97 extern bool ffe_is_mainprog_; 98 extern bool ffe_is_onetrip_; 99 extern bool ffe_is_silent_; 100 extern bool ffe_is_typeless_boz_; 101 extern bool ffe_is_pedantic_; 102 extern bool ffe_is_saveall_; 103 extern bool ffe_is_ugly_args_; 104 extern bool ffe_is_ugly_assign_; 105 extern bool ffe_is_ugly_assumed_; 106 extern bool ffe_is_ugly_comma_; 107 extern bool ffe_is_ugly_complex_; 108 extern bool ffe_is_ugly_init_; 109 extern bool ffe_is_ugly_logint_; 110 extern bool ffe_is_version_; 111 extern bool ffe_is_vxt_; 112 extern bool ffe_is_warn_globals_; 113 extern bool ffe_is_warn_implicit_; 114 extern bool ffe_is_warn_surprising_; 115 extern bool ffe_is_zeros_; 116 extern ffeCase ffe_case_intrin_; 117 extern ffeCase ffe_case_match_; 118 extern ffeCase ffe_case_source_; 119 extern ffeCase ffe_case_symbol_; 120 extern ffeIntrinsicState ffe_intrinsic_state_badu77_; 121 extern ffeIntrinsicState ffe_intrinsic_state_gnu_; 122 extern ffeIntrinsicState ffe_intrinsic_state_f2c_; 123 extern ffeIntrinsicState ffe_intrinsic_state_f90_; 124 extern ffeIntrinsicState ffe_intrinsic_state_mil_; 125 extern ffeIntrinsicState ffe_intrinsic_state_unix_; 126 extern ffeIntrinsicState ffe_intrinsic_state_vxt_; 127 extern int ffe_fixed_line_length_; 128 extern mallocPool ffe_file_pool_; 129 extern mallocPool ffe_any_unit_pool_; 130 extern mallocPool ffe_program_unit_pool_; 131 extern ffeCounter ffe_count_0; 132 extern ffeCounter ffe_count_1; 133 extern ffeCounter ffe_count_2; 134 extern ffeCounter ffe_count_3; 135 extern ffeCounter ffe_count_4; 136 extern bool ffe_in_0; 137 extern bool ffe_in_1; 138 extern bool ffe_in_2; 139 extern bool ffe_in_3; 140 extern bool ffe_in_4; 141 142 /* Declare functions with prototypes. */ 143 144 int ffe_decode_option (int argc, char **argv); 145 void ffe_file (ffewhereFile wf, FILE *f); 146 void ffe_init_0 (void); 147 void ffe_init_1 (void); 148 void ffe_init_2 (void); 149 void ffe_init_3 (void); 150 void ffe_init_4 (void); 151 void ffe_terminate_0 (void); 152 void ffe_terminate_1 (void); 153 void ffe_terminate_2 (void); 154 void ffe_terminate_3 (void); 155 void ffe_terminate_4 (void); 156 157 /* Define macros. */ 158 159 #define ffe_case_intrin() ffe_case_intrin_ 160 #define ffe_case_match() ffe_case_match_ 161 #define ffe_case_source() ffe_case_source_ 162 #define ffe_case_symbol() ffe_case_symbol_ 163 #define ffe_intrinsic_state_badu77() ffe_intrinsic_state_badu77_ 164 #define ffe_intrinsic_state_f2c() ffe_intrinsic_state_f2c_ 165 #define ffe_intrinsic_state_f90() ffe_intrinsic_state_f90_ 166 #define ffe_intrinsic_state_gnu() ffe_intrinsic_state_gnu_ 167 #define ffe_intrinsic_state_mil() ffe_intrinsic_state_mil_ 168 #define ffe_intrinsic_state_unix() ffe_intrinsic_state_unix_ 169 #define ffe_intrinsic_state_vxt() ffe_intrinsic_state_vxt_ 170 #define ffe_is_90() ffe_is_90_ 171 #define ffe_is_automatic() ffe_is_automatic_ 172 #define ffe_is_backslash() ffe_is_backslash_ 173 #define ffe_is_debug_kludge() ffe_is_debug_kludge_ 174 #define ffe_is_do_internal_checks() ffe_is_do_internal_checks_ 175 #define ffe_is_dollar_ok() ffe_is_dollar_ok_ 176 #define ffe_is_emulate_complex() ffe_is_emulate_complex_ 177 #define ffe_is_f2c() ffe_is_f2c_ 178 #define ffe_is_f2c_library() ffe_is_f2c_library_ 179 #define ffe_is_ffedebug() ffe_is_ffedebug_ 180 #define ffe_is_flatten_arrays() ffe_is_flatten_arrays_ 181 #define ffe_is_free_form() ffe_is_free_form_ 182 #define ffe_is_globals() ffe_is_globals_ 183 #define ffe_is_init_local_zero() ffe_is_init_local_zero_ 184 #define ffe_is_mainprog() ffe_is_mainprog_ 185 #define ffe_is_onetrip() ffe_is_onetrip_ 186 #define ffe_is_pedantic() ffe_is_pedantic_ 187 #define ffe_is_pedantic_not_90() (ffe_is_pedantic_ && !ffe_is_90_) 188 #define ffe_is_saveall() ffe_is_saveall_ 189 #define ffe_is_second_underscore() ffe_is_second_underscore_ 190 #define ffe_is_silent() ffe_is_silent_ 191 #define ffe_is_typeless_boz() ffe_is_typeless_boz_ 192 #define ffe_is_ugly_args() ffe_is_ugly_args_ 193 #define ffe_is_ugly_assign() ffe_is_ugly_assign_ 194 #define ffe_is_ugly_assumed() ffe_is_ugly_assumed_ 195 #define ffe_is_ugly_comma() ffe_is_ugly_comma_ 196 #define ffe_is_ugly_complex() ffe_is_ugly_complex_ 197 #define ffe_is_ugly_init() ffe_is_ugly_init_ 198 #define ffe_is_ugly_logint() ffe_is_ugly_logint_ 199 #define ffe_is_underscoring() ffe_is_underscoring_ 200 #define ffe_is_version() ffe_is_version_ 201 #define ffe_is_vxt() ffe_is_vxt_ 202 #define ffe_is_warn_globals() ffe_is_warn_globals_ 203 #define ffe_is_warn_implicit() ffe_is_warn_implicit_ 204 #define ffe_is_warn_surprising() ffe_is_warn_surprising_ 205 #define ffe_is_zeros() ffe_is_zeros_ 206 #define ffe_fixed_line_length() ffe_fixed_line_length_ 207 #define ffe_pool_file() (ffe_file_pool_) 208 #define ffe_pool_any_unit() (ffe_any_unit_pool_) 209 #define ffe_pool_program_unit() (ffe_program_unit_pool_) 210 #define ffe_set_case_intrin(f) (ffe_case_intrin_ = (f)) 211 #define ffe_set_case_match(f) (ffe_case_match_ = (f)) 212 #define ffe_set_case_source(f) (ffe_case_source_ = (f)) 213 #define ffe_set_case_symbol(f) (ffe_case_symbol_ = (f)) 214 #define ffe_set_intrinsic_state_badu77(s) (ffe_intrinsic_state_badu77_ = (s)) 215 #define ffe_set_intrinsic_state_f2c(s) (ffe_intrinsic_state_f2c_ = (s)) 216 #define ffe_set_intrinsic_state_f90(s) (ffe_intrinsic_state_f90_ = (s)) 217 #define ffe_set_intrinsic_state_gnu(s) (ffe_intrinsic_state_gnu_ = (s)) 218 #define ffe_set_intrinsic_state_mil(s) (ffe_intrinsic_state_mil_ = (s)) 219 #define ffe_set_intrinsic_state_unix(s) (ffe_intrinsic_state_unix_ = (s)) 220 #define ffe_set_intrinsic_state_vxt(s) (ffe_intrinsic_state_vxt_ = (s)) 221 #define ffe_set_is_90(f) (ffe_is_90_ = (f)) 222 #define ffe_set_is_automatic(f) (ffe_is_automatic_ = (f)) 223 #define ffe_set_is_backslash(f) (ffe_is_backslash_ = (f)) 224 #define ffe_set_is_debug_kludge(f) (ffe_is_debug_kludge_ = (f)) 225 #define ffe_set_is_do_internal_checks(f) (ffe_is_do_internal_checks_ = (f)) 226 #define ffe_set_is_dollar_ok(f) (ffe_is_dollar_ok_ = (f)) 227 #define ffe_set_is_emulate_complex(f) (ffe_is_emulate_complex_ = (f)) 228 #define ffe_set_is_f2c(f) (ffe_is_f2c_ = (f)) 229 #define ffe_set_is_f2c_library(f) (ffe_is_f2c_library_ = (f)) 230 #define ffe_set_is_ffedebug(f) (ffe_is_ffedebug_ = (f)) 231 #define ffe_set_is_flatten_arrays(f) (ffe_is_flatten_arrays_ = (f)) 232 #define ffe_set_is_free_form(f) (ffe_is_free_form_ = (f)) 233 #define ffe_set_is_globals(f) (ffe_is_globals_ = (f)) 234 #define ffe_set_is_init_local_zero(f) (ffe_is_init_local_zero_ = (f)) 235 #define ffe_set_is_mainprog(f) (ffe_is_mainprog_ = (f)) 236 #define ffe_set_is_onetrip(f) (ffe_is_onetrip_ = (f)) 237 #define ffe_set_is_pedantic(f) (ffe_is_pedantic_ = (f)) 238 #define ffe_set_is_saveall(f) (ffe_is_saveall_ = (f)) 239 #define ffe_set_is_second_underscore(f) (ffe_is_second_underscore_ = (f)) 240 #define ffe_set_is_silent(f) (ffe_is_silent_ = (f)) 241 #define ffe_set_is_typeless_boz(f) (ffe_is_typeless_boz_ = (f)) 242 #define ffe_set_is_ugly_args(f) (ffe_is_ugly_args_ = (f)) 243 #define ffe_set_is_ugly_assign(f) (ffe_is_ugly_assign_ = (f)) 244 #define ffe_set_is_ugly_assumed(f) (ffe_is_ugly_assumed_ = (f)) 245 #define ffe_set_is_ugly_comma(f) (ffe_is_ugly_comma_ = (f)) 246 #define ffe_set_is_ugly_complex(f) (ffe_is_ugly_complex_ = (f)) 247 #define ffe_set_is_ugly_init(f) (ffe_is_ugly_init_ = (f)) 248 #define ffe_set_is_ugly_logint(f) (ffe_is_ugly_logint_ = (f)) 249 #define ffe_set_is_underscoring(f) (ffe_is_underscoring_ = (f)) 250 #define ffe_set_is_version(f) (ffe_is_version_ = (f)) 251 #define ffe_set_is_vxt(f) (ffe_is_vxt_ = (f)) 252 #define ffe_set_is_warn_globals(f) (ffe_is_warn_globals_ = (f)) 253 #define ffe_set_is_warn_implicit(f) (ffe_is_warn_implicit_ = (f)) 254 #define ffe_set_is_warn_surprising(f) (ffe_is_warn_surprising_ = (f)) 255 #define ffe_set_is_zeros(f) (ffe_is_zeros_ = (f)) 256 #define ffe_set_fixed_line_length(l) (ffe_fixed_line_length_ = (l)) 257 #define ffe_state_max(s1,s2) ((s1) > (s2) ? (s1) : (s2)) 258 259 /* End of #include file. */ 260 261 #endif /* ! GCC_F_TOP_H */ 262