/* $Id: ftnchek.h,v 1.94 2005/02/06 21:36:37 moniot Exp $ Common definitions for Fortran Program Checker */ /* Copyright (c) 2001 by Robert K. Moniot. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Acknowledgement: the above permission notice is what is known as the "MIT License." Acknowledgement: the above permission notice was copied, with minor changes, from the XFree86 Project. */ #define COPYRIGHT_DATE \ "Copyright (C) 1994, 1997, 2000, 2004 by Robert K. Moniot" #define COPYRIGHT_NOTICE \ "This program is free software. Permission is granted to\n\ modify it and/or redistribute it, retaining this notice.\n\ No guarantees accompany this software." #define VERSION_NUMBER "FTNCHEK Version 3.3 November 2004" #define PATCHLEVEL "Patch Level 1" #define PROJECT_VERSION "P3" /* Project file format version number */ #include "config.h" /* Get system-specific information */ /* Define macro PROTO for declaring function prototypes. If compiler doesn't accept prototypes, use -DNO_PROTOTYPES. The args in macro must be enclosed in parentheses. Define macro VOID for declaring functions without args. Also define HAVE_STDC for declaring functions in ANSI form or Kernighan-Ritchie form. Each function defn is in both forms, with #ifdef HAVE_STDC to select between them. */ #ifdef NO_PROTOTYPES #define PROTO(TYPE_AND_NAME,ARGS) TYPE_AND_NAME() #define VOID #define HAVE_STDC 0 #else #define PROTO(TYPE_AND_NAME,ARGS) TYPE_AND_NAME ARGS #define VOID void #define HAVE_STDC 1 #endif /* The following system defines should be defined with the -D (for UNIX) or /DEFINE (for VMS) compiler options in the makefile, not here. They are shown here so you know what to define. MSDOS should be defined for IBM PC version. We set it here automatically if a DOS/Win compiler is detected, otherwise when compiling you should define it on compiler command line. Only one of MSDOS, VMS, or UNIX should be defined. They control details of behavior such as filename extensions and use of slash as an option prefix. */ /*#define VMS*/ /* Set flag for VMS system-dependent defns. */ /*#define UNIX*/ /* Set flag for UNIX (any flavor) defns. */ /* Many (all?) Windows compilers autodefine _WIN32. I am guessing about _MSDOS. TurboC (DOS and Win versions) sets __TURBOC__ */ #if defined(_WIN32) || defined(_MSDOS) || defined(__TURBOC__) #define MSDOS /* Set flag for MSDOS (including Windows) */ #endif /* For portability, declare standard routines here. */ #if HAVE_STDLIB_H #include #else PROTO(char *getenv,(char *)); PROTO(char *malloc,(unsigned)); PROTO(char *calloc,(unsigned,unsigned)); PROTO(VOID free,(void *)); PROTO(VOID exit,(int)); #endif /************************************************************************* Begin section of defines for system-dependent configuration. **************************************************************************/ /* set flag to allow options to start with '/' */ #ifndef OPTION_PREFIX_SLASH #ifndef NO_OPTION_PREFIX_SLASH #ifdef VMS #define OPTION_PREFIX_SLASH #endif #ifdef MSDOS #define OPTION_PREFIX_SLASH #endif #endif #endif /* Define standard home directory for VMS and MSDOS. This directory is one place ftnchek looks for the rc or ini file. */ #ifdef VMS #ifndef SPECIAL_HOMEDIR #define SPECIAL_HOMEDIR "SYS$DISK:[]" #endif #endif #ifdef MSDOS #ifndef SPECIAL_HOMEDIR #define SPECIAL_HOMEDIR "c:\\lib" #endif #endif /* Define the Unix-style startup file name and a non-Unix-style alternate. Both are looked for on all systems. */ #ifndef UNIX_RC_FILE #define UNIX_RC_FILE ".ftnchekrc" #endif #ifndef NONUNIX_RC_FILE #define NONUNIX_RC_FILE "ftnchek.ini" #endif /* Define default source and output file extensions. These * can be overridden by defines on compiler commandline. */ #ifndef DEF_SRC_EXTENSION #ifdef VMS #define DEF_SRC_EXTENSION ".for" /* VMS default extension */ #endif #ifdef MSDOS #define DEF_SRC_EXTENSION ".for" /* IBM PC default extension */ #endif #endif /* DEF_SRC_EXTENSION */ #ifndef DEF_SRC_EXTENSION #define DEF_SRC_EXTENSION ".f" /* Unix and all others */ #endif /* define default list-file extension */ #ifndef DEF_LIST_EXTENSION #define DEF_LIST_EXTENSION ".lis" #endif /* define default project-file extension */ #ifndef DEF_PROJ_EXTENSION #define DEF_PROJ_EXTENSION ".prj" #endif /* define default declaration-file extension */ #ifndef DEF_DCL_EXTENSION #define DEF_DCL_EXTENSION ".dcl" #endif /* define default html documentation-file extension */ #ifndef DEF_HTML_EXTENSION #define DEF_HTML_EXTENSION ".html" #endif /* define default include-file extension */ #ifndef DEF_INC_EXTENSION #define DEF_INC_EXTENSION DEF_SRC_EXTENSION #endif /* define default declaration-file extension */ #ifndef DEF_VCG_EXTENSION #define DEF_VCG_EXTENSION ".vcg" #endif /* define project-file name for case of input from stdin */ #ifndef STDIN_PROJ_FILENAME #define STDIN_PROJ_FILENAME "ftnchek.prj" #endif #ifndef ENV_PREFIX /* prefix for option environment variables */ #define ENV_PREFIX "FTNCHEK_" #endif #ifndef ENV_INCLUDE_VAR #define ENV_INCLUDE_VAR "INCLUDE" /* name of env variable for include dir */ #endif #ifndef DEFAULT_INCLUDE_DIR #ifdef UNIX #define DEFAULT_INCLUDE_DIR "/usr/include" #endif #ifdef VMS #define DEFAULT_INCLUDE_DIR "SYS$LIBRARY:" #endif #ifdef MSDOS #define DEFAULT_INCLUDE_DIR "\\include" #endif #endif /************************************************************************* End of section of defines for system-dependent configuration. Begin section of defines to control ftnchek's behavior (syntax accepted, options supported, etc.) **************************************************************************/ /* The following macro turns on useful extra information saying "expecting whatever" in "parse error" messages from GNU bison-generated parser. This macro may not do anything if parser is generated by another version of bison or yacc. */ #ifndef NO_YYERROR_VERBOSE #define YYERROR_VERBOSE #endif /* This is the default limit on "cascades" of error messages where the trailer "etc..." is given instead of printing them all. The limit can be changed at run time by -error=num. */ #ifndef DEF_ERROR_CASCADE_LIMIT #define DEF_ERROR_CASCADE_LIMIT 3 #endif /* VCG support is now standard. If you don't want it, you can eliminate it by defining NO_VCG_SUPPORT. You can customize the graph options by changing the macro VCG_GRAPH_OPTIONS. Include \n between options and after the last option. (These options affect the graph as a whole.) */ #ifndef NO_VCG_SUPPORT #define VCG_SUPPORT #ifndef VCG_GRAPH_OPTIONS #define VCG_GRAPH_OPTIONS "color: lightgray\n" #endif #endif /* Define the amount of indentation of declarations produced under -makedcls in free-form mode. Must be >= 0. */ #ifndef DCL_FREEFORM_INDENT #define DCL_FREEFORM_INDENT 2 #endif /* The following defines control the default status of warnings controlled by -arg, -f77/90/95, -port, -pretty, and -trunc. */ /* -arguments options default to ARGCHECK_ALL. Define LAX_ARGCHECK to make -arguments=none the default. Otherwise -arguments=all is default. */ #ifdef LAX_ARGCHECK #define ARGCHECK_ALL FALSE #else #define ARGCHECK_ALL TRUE #endif /* -array options default to ARRAYCHECK_ALL. Define LAX_ARRAYCHECK to make -array=none the default. Otherwise -array=all is default. */ #ifdef LAX_ARRAYCHECK #define ARRAYCHECK_ALL FALSE #else #define ARRAYCHECK_ALL TRUE #endif /* -common options default to COMCHECK_ALL, except for volatile, which defaults to FALSE. Define LAX_COMCHECK to make -common=none the default. Otherwise -common=type,length,exact is default. */ #ifdef LAX_COMCHECK #define COMCHECK_ALL FALSE #else #define COMCHECK_ALL TRUE #endif /* -f77 options default to F77_ALL. Define STRICT_SYNTAX to make -f77=all the default. Otherwise -f77=none is default. */ #ifdef STRICT_SYNTAX #define F77_ALL 1 #else #define F77_ALL 0 #endif /* -f90 options default to none unless F90_SYNTAX is defined. */ #ifdef F90_SYNTAX #define F90_ALL 1 #else #define F90_ALL 0 #endif /* -f95 options default to none unless F95_SYNTAX is defined. */ #ifdef F95_SYNTAX #define F95_ALL 1 #else #define F95_ALL 0 #endif /* -portability options default to PORT_ALL. Define STRICT_PORTABILITY to make -port=all the default. Otherwise -port=none is default. */ #ifdef STRICT_PORTABILITY #define PORT_ALL TRUE #else #define PORT_ALL FALSE #endif /* -pretty options default to PRETTY_ALL. Define UGLY_IS_OK to make -pretty=none the default. Otherwise -pretty=all is default. */ #ifdef UGLY_IS_OK #define PRETTY_ALL FALSE #else #define PRETTY_ALL TRUE #endif /* -source options are defined here. Since -source=all is unlikely to be desired, each option has its own macro for default value */ #ifndef DEC_TABS /* DEC-style ugly tabbed source is off by default */ #define DEC_TABS FALSE #endif /* VMS-style INCLUDE supports defaulting extension, /NOLIST feature. It is default for VMS, not for other systems. */ #ifndef VMS_INCLUDE #ifdef VMS #define VMS_INCLUDE TRUE #else #define VMS_INCLUDE FALSE #endif #endif #ifndef UNIX_BACKSLASH /* UNIX backslash escape sequences in strings */ #define UNIX_BACKSLASH FALSE #endif /* standard parameters take data type from value */ #ifndef PARAMETER_IMPLICIT_TYPE #define PARAMETER_IMPLICIT_TYPE FALSE #endif /* DEC-style parameters get data type in standard way */ #ifndef DEC_PARAMETER_STANDARD_TYPE #define DEC_PARAMETER_STANDARD_TYPE FALSE #endif /* -style options default to STYLECHECK_ALL, which should be FALSE to prevent ftnchek from spewing warnings about perfectly normal code. */ #ifndef STYLECHECK_ALL #define STYLECHECK_ALL FALSE #endif /* -truncation options default to TRUNC_ALL. Define LAX_TRUNCATION to make -trunc=none the default. Otherwise -trunc=all is default. */ #ifdef LAX_TRUNCATION #define TRUNC_ALL FALSE #else #define TRUNC_ALL TRUE #endif /* -usage options default to USAGE_ALL. Define LAX_USAGE to make -usage=none the default. Otherwise -usage=all is default. */ #ifdef LAX_USAGE #define USAGE_ALL FALSE #else #define USAGE_ALL TRUE #endif /* The macros in the following section control whether certain groups of nonstandard intrinsics are compiled into ftnchek. By turning off all these macros using the STANDARD_INTRINSICS define or selectively by using the NO_ prefix, some efficiency is gained but these intrinsics will then never be recognized by ftnchek, regardless of the -intrinsic setting. Turn these off only if you are a purist who will never use non-F77 intrinsics. */ #ifndef STANDARD_INTRINSICS #ifndef NO_EXTRA_INTRINSICS #define EXTRA_INTRINSICS /* Common nonstandard intrinsic functions */ #endif #ifndef NO_UNIX_INTRINSICS #define UNIX_INTRINSICS /* UNIX intrinsic functions */ #endif #ifndef NO_VMS_INTRINSICS #define VMS_INTRINSICS /* VMS intrinsic functions */ #endif /* The macros in the next section define the default value of the -intrinsic settings governing which intrinsic groups to recognize and how to treat RAND and IARGC, which may take no argument or one dummy argument on different platforms. */ /* Define which sets to recognize by default: bit 0 = commonly available nonstandard intrinsics bit 1 = some Unix intrinsics bit 2 = some VMS intrinsics */ #ifdef UNIX /* Unix default: accept Common & Unix intrinsics */ #define DEF_INTRINSIC_SET 3 #endif #ifdef VMS /* VMS default: accept Common & VMS intrinsics */ #define DEF_INTRINSIC_SET 5 #endif #ifndef DEF_INTRINSIC_SET /* Otherwise default = only common set */ #define DEF_INTRINSIC_SET 1 #endif /* Define which RAND form to use. bit 0 = allow no-arg form bit 1 = allow one-arg form */ #ifdef RAND_NO_ARG /*RAND() form*/ #define DEF_INTRINSIC_RAND 1 #else #ifdef RAND_ONE_ARG /*RAND(ISEED) form*/ #define DEF_INTRINSIC_RAND 2 #else /* Default: allow either form */ #define DEF_INTRINSIC_RAND 3 #endif #endif /* Define which IARGC form to use */ #ifdef IARGC_NO_ARG #define DEF_INTRINSIC_IARGC 1 #else #ifdef IARGC_ONE_ARG #define DEF_INTRINSIC_IARGC 2 #else /* Default: allow either form */ #define DEF_INTRINSIC_IARGC 3 #endif #endif #endif /* not STANDARD_INTRINSICS */ /* Default BpW = 4 bytes per word, which matches many machines. This macro serves as the default value for -wordsize. If the Fortran code does not declare explicit sizes of numeric variables (e.g. REAL*8), then the value of -wordsize will not matter, since the table conforms to the standard in that sizeof(INTEGER)=sizeof(REAL), and sizeof(DOUBLE)=sizeof(COMPLEX) =2*sizeof(REAL). If the code does declare explicit sizes of numeric types, then the value of -wordsize will matter if explicit and default sizes are expected to match. If you want to suppress warnings of this kind, you may use the -wordsize setting or, to make it the default, change BpW to match your hardware. Under the -portability option, explicit and default sizes never match: e.g. passing REAL*8 where DOUBLE PRECISION expected. None of this applies to CHARACTER data: the default size (1) is well-defined, and the standard does not specify the ratio of sizeof(CHARACTER) to sizeof(REAL). For the Cray pointer extension, we also define PTRSIZE as the size of a pointer. The default is the same as the wordsize. This can be changed at run time by -pointersize=nnn. */ #ifndef BpW #define BpW 4 /* Bytes per Word: might want to use sizeof(float) instead */ #endif #ifndef PTRSIZE #define PTRSIZE BpW #endif /* Define to tolerate embedded blanks in numeric consts unless feature turned off by defining NO_BLANKS_IN_NUMBERS. */ #ifndef NO_BLANKS_IN_NUMBERS #define BLANKS_IN_NUMBERS #endif /* Default value of -wrap option */ #ifndef WRAP_COLUMN #define WRAP_COLUMN 79 /* When to wrap error messages to next line */ #endif #ifndef DEF_IDLETTER_LIST /* default nonalnums allowed in identifiers */ #define DEF_IDLETTER_LIST "$_" #endif /* The following defines used to be optional, now they are standard. If these defines are removed or undef'd, the corresponding syntax will not be recognized (resulting in parse errors). I don't recommend undefining them. They are all warned about by -f77 */ #define ALLOW_CRAY_POINTERS 1 #define ALLOW_DO_ENDDO 1 #define ALLOW_INCLUDE 1 #define ALLOW_QUOTEMARKS 1 #define ALLOW_TYPELESS_CONSTANTS 1 #define ALLOW_UNIX_BACKSLASH 1 #define ALLOW_UNIX_CPP 1 #define ALLOW_VMS_IO 1 #define ALLOW_IBM_IO 1 #define INLINE_COMMENT_CHAR '!' /* Inline comments start with '!' */ #define KEEP_ARG_NAMES 1 /* option was formerly experimental */ /* SMALL_INT_VALUE is an integer that is small enough that we don't need to worry if it is assigned to a small-size int, for purposes of catching truncation errors. We conservatively use maximum signed 8-bit byte value. */ #ifndef SMALL_INT_VALUE #define SMALL_INT_VALUE 127 #endif #ifdef DEVELOPMENT /* For maintaining the program */ #define DEBUG_FORLEX #endif /************************************************************************* End section of defines to control ftnchek's behavior Begin section to define limits, table sizes, etc. **************************************************************************/ #ifndef MAXLINE #define MAXLINE 132 /* Maximum input line length. Ignores past this. */ #endif #ifndef MAXIDSIZE #define MAXIDSIZE 31 /* Longest identifier allowed */ #endif #ifndef MAX_SRC_TEXT #define MAX_SRC_TEXT (20*66) /* Longest text string of a token */ #endif #ifndef MAX_CHAR_CODE #define MAX_CHAR_CODE 255 /* Largest possible value of a char (8 bits here) */ #endif #ifndef MAX_INCLUDE_DEPTH #define MAX_INCLUDE_DEPTH 16 /* Max nesting depth of include files */ #endif #ifndef MAXEXPRTEXT #define MAXEXPRTEXT 15 /* length of expr text saved in arg lists */ #endif #ifndef MAX_RC_LINE #define MAX_RC_LINE 500 /* Max length of line in rc file */ #endif #ifndef RC_COMMENT_CHAR #define RC_COMMENT_CHAR '#' /* Comments start with this or space */ #endif /* Definitions of table sizes Constraints: STRSPACESZ > 20*72 so max f77 statement will fit LOCSYMTABSZ+GLOBSYMTABSZ < HASHSZ so hashtab never full */ #define KEYHASHSZ 195 /* Size of keyword hashtable -- do not change */ #define INTRINS_HASHSZ 433 /* Chosen to give few clashes -- change with care */ #ifdef SMALL_MACHINE /* Use these for e.g. IBM PC */ #ifndef HASHSZ /* Hint: pick one with no square factors */ #define HASHSZ 798 /* SMALL_MACHINE Size of symbol hashtable */ #endif #ifndef STRSPACESZ #define STRSPACESZ 4000 /* SMALL_MACHINE chunk size of string space */ #endif #ifndef LOCSYMTABSZ #define LOCSYMTABSZ 300 /* SMALL_MACHINE Size of local symbol table */ #endif #ifndef GLOBSYMTABSZ #define GLOBSYMTABSZ 400 /* SMALL_MACHINE Size of global symbol table */ #endif #ifndef PARAMINFOSPACESZ #define PARAMINFOSPACESZ 20 /* SMALL_MACHINE ParamInfo structs per chunk */ #endif #ifndef TOKHEADSPACESZ #define TOKHEADSPACESZ 50 /* SMALL_MACHINE TokenListHeaders per chunk */ #endif #ifndef TOKENSPACESZ #define TOKENSPACESZ 200 /* SMALL_MACHINE tokens per token space chunk */ #endif #ifndef ARGLISTHEADSZ #define ARGLISTHEADSZ 300 /* SMALL_MACHINE argument headers per chunk */ #endif #ifndef ARGLISTELTSZ #define ARGLISTELTSZ 1000 /* SMALL_MACHINE argument list elts per chunk */ #endif #ifndef COMLISTHEADSZ #define COMLISTHEADSZ 200 /* SMALL_MACHINE common list headers per chunk */ #endif #ifndef COMLISTELTSZ #define COMLISTELTSZ 1000 /* SMALL_MACHINE common elts per chunk */ #endif #ifndef PTRSPACESZ #define PTRSPACESZ 200 /* SMALL_MACHINE ptrs-to-arraydim per chunk */ #endif #ifndef LABTABLE_SIZE #define LABTABLE_SIZE 109 /* SMALL_MACHINE initial size of label table */ #endif #ifndef REF_LISTS_SIZE #define REF_LISTS_SIZE 200 /* SMALL_MACHINE Lab_ref_lists per chunk*/ #endif #ifndef IO_UNIT_INFO_SIZE #define IO_UNIT_INFO_SIZE 50 /* SMALL_MACHINE initial size of I/O unit info table */ #endif #else /* end if SMALL_MACHINE */ #ifdef MEDIUM_MACHINE /* use these if default is too big */ #ifndef HASHSZ #define HASHSZ 2002 /* MEDIUM_MACHINE Size of symbol hashtable */ #endif #ifndef STRSPACESZ #define STRSPACESZ 10000 /* MEDIUM_MACHINE chunk size of string space */ #endif #ifndef LOCSYMTABSZ #define LOCSYMTABSZ 800 /* MEDIUM_MACHINE Size of local symbol table */ #endif #ifndef GLOBSYMTABSZ #define GLOBSYMTABSZ 1200 /* MEDIUM_MACHINE Size of global symbol table */ #endif #ifndef PARAMINFOSPACESZ #define PARAMINFOSPACESZ 50 /* MEDIUM_MACHINE ParamInfo structs per chunk */ #endif #ifndef TOKHEADSPACESZ #define TOKHEADSPACESZ 200 /* MEDIUM_MACHINE TokenListHeaders per chunk */ #endif #ifndef TOKENSPACESZ #define TOKENSPACESZ 1000 /* MEDIUM_MACHINE tokens per token space chunk */ #endif #ifndef ARGLISTHEADSZ #define ARGLISTHEADSZ 1500 /* MEDIUM_MACHINE argument headers per chunk */ #endif #ifndef ARGLISTELTSZ #define ARGLISTELTSZ 5000 /* MEDIUM_MACHINE argument list elts per chunk */ #endif #ifndef COMLISTHEADSZ #define COMLISTHEADSZ 1000 /* MEDIUM_MACHINE common list headers per chunk */ #endif #ifndef COMLISTELTSZ #define COMLISTELTSZ 4000 /* MEDIUM_MACHINE common elts per chunk */ #endif #ifndef PTRSPACESZ #define PTRSPACESZ 400 /* MEDIUM_MACHINE Max number of ptrs to arraydim */ #endif #ifndef LABTABLE_SIZE #define LABTABLE_SIZE 209 /* MEDIUM_MACHINE initial size of labtable */ #endif #ifndef REF_LISTS_SIZE #define REF_LISTS_SIZE 400 /* MEDIUM_MACHINE Lab_ref_lists per chunk*/ #endif #ifndef IO_UNIT_INFO_SIZE #define IO_UNIT_INFO_SIZE 200 /* MEDIUM_MACHINE initial size of I/O unit info table */ #endif #else /* Default is now LARGE_MACHINE, OK for most modern machines */ #ifndef HASHSZ /* must be <= max int */ #define HASHSZ 20930 /* LARGE_MACHINE Size of symbol hashtable */ #endif #ifndef STRSPACESZ #define STRSPACESZ 10000 /* LARGE_MACHINE chunk size of string space */ #endif #ifndef LOCSYMTABSZ #define LOCSYMTABSZ 8000 /* LARGE_MACHINE Size of local symbol table */ #endif #ifndef GLOBSYMTABSZ #define GLOBSYMTABSZ 12000 /* LARGE_MACHINE Size of global symbol table */ #endif #ifndef PARAMINFOSPACESZ #define PARAMINFOSPACESZ 200 /* LARGE_MACHINE ParamInfo structs per chunk */ #endif #ifndef TOKHEADSPACESZ #define TOKHEADSPACESZ 500 /* LARGE_MACHINE TokenListHeaders per chunk */ #endif #ifndef TOKENSPACESZ #define TOKENSPACESZ 10000 /* LARGE_MACHINE tokens per token space chunk */ #endif #ifndef ARGLISTHEADSZ #define ARGLISTHEADSZ 15000 /* LARGE_MACHINE argument headers per chunk */ #endif #ifndef ARGLISTELTSZ #define ARGLISTELTSZ 50000 /* LARGE_MACHINE argument list elts per chunk */ #endif #ifndef COMLISTHEADSZ #define COMLISTHEADSZ 10000 /* LARGE_MACHINE common list headers per chunk */ #endif #ifndef COMLISTELTSZ #define COMLISTELTSZ 50000 /* LARGE_MACHINE common elts per chunk */ #endif #ifndef PTRSPACESZ #define PTRSPACESZ 2000 /* LARGE_MACHINE Max number of ptrs to arraydim */ #endif #ifndef LABTABLE_SIZE #define LABTABLE_SIZE 299 /* LARGE_MACHINE initial size of labtable */ #endif #ifndef REF_LISTS_SIZE #define REF_LISTS_SIZE 2000 /* LARGE_MACHINE Lab_ref_lists per chunk*/ #endif #ifndef IO_UNIT_INFO_SIZE #define IO_UNIT_INFO_SIZE 500 /* LARGE_MACHINE initial size of I/O unit info table */ #endif #endif /* end if LARGE_MACHINE else */ #endif/*end if SMALL_MACHINE else*/ /************************************************************************* End of section to define limits, table sizes, etc. From here down should not be altered. **************************************************************************/ #define FALSE 0 #define TRUE 1 /* Make sure line numbers use 32 bits */ #if SIZEOF_INT >= 4 typedef unsigned LINENO_t; #else typedef unsigned long LINENO_t; #endif typedef unsigned COLNO_t; #define NO_COL_NUM ((COLNO_t)999)/* Impossible column number to suppress * printing in error messages */ #define GLOBAL_NO_COL_NUM ((LINENO_t)998)/* Ditto for global-level warnings */ #define NO_LINE_NUM ((LINENO_t)0)/* Ditto for line number to suppress flushing * of line if error not in local context */ #define OOPS_NONFATAL 0 /* Severity of "oops" messages */ #define OOPS_FATAL 1 /************************************************************************* Shared variable and function defns start here **************************************************************************/ #ifdef MAIN #define SHARED /* (nothing) */ #else #define SHARED extern /* Non-main routines declare shared vars extern */ #endif #define PRIVATE static /* For non-shared functions */ /* Except when DEBUG_FORLEX is turned on, ftnchek has no need of floating-point calculations, so to allow it to run on machines without coprocessor, we neutralize the few floating-point operations that there are. */ #ifndef DEBUG_FORLEX #ifndef NO_FLOATING_POINT #define NO_FLOATING_POINT #endif #endif #ifdef NO_FLOATING_POINT typedef long DBLVAL; #else typedef double DBLVAL; #endif SHARED FILE *input_fd, /* Input file */ *list_fd, /* Output file for listing */ *dcl_fd, /* Output type declaration file */ *html_fd, /* Output file for HTML documentation */ *htmlcalltree_fd, /* Output file for html call tree documentation */ #ifdef VCG_SUPPORT *vcg_fd, /* Output VCG graph description file */ #endif *project_fd;/* Project file for symtab info summary */ SHARED char *html_filename; /* name of the html documentation file */ SHARED char *htmlcalltree_filename; /* name of the html call tree doc file */ SHARED char *current_filename, /* name of current input file */ *top_filename; /* name of toplevel parent input file */ SHARED int incdepth; #ifdef VCG_SUPPORT SHARED char *main_filename; /* name of file containing main program */ #endif /*****************************************************************/ /* Declare variables for command line options */ /*****************************************************************/ #ifdef MAIN #define OPT(Type,Name,Value) Type Name=Value #else #define OPT(Type,Name,Value) extern Type Name #endif /* These options are controlled by -arguments */ OPT(int,argcheck_argnumber,ARGCHECK_ALL);/* Check for wrong no. of args */ OPT(int,argcheck_arrayness,ARGCHECK_ALL);/* Check arg arrayness mismatches */ OPT(int,argcheck_argtype,ARGCHECK_ALL); /* Check for arg type mismatches */ OPT(int,argcheck_functype,ARGCHECK_ALL); /* Check for func type mismatches */ /* End of -arguments options */ /* These options are controlled by -array */ OPT(int,arraycheck_dims,ARRAYCHECK_ALL);/* Check for mismatch no.of dims */ OPT(int,arraycheck_size,ARRAYCHECK_ALL);/* Check for mismatch no.of elements */ /* End of -array options */ /* These options are controlled by -calltree */ OPT(int,print_call_tree,FALSE); /* Print the call tree */ OPT(int,print_ref_list,FALSE); /* Print reference (who-calls-who) list */ #ifdef VCG_SUPPORT OPT(int,print_vcg_list,FALSE); /* Print call graph in vcg format */ #endif OPT(int,call_tree_prune,TRUE); /* do not repeat duplicates, use "see above" */ OPT(int,call_tree_sort,TRUE); /* alphabetized, not program order */ /* End of -calltree options */ /* These options are controlled by -crossref */ OPT(int,print_xref_list,FALSE); /* print subprogram cross-references */ OPT(int,print_com_xrefs,FALSE); /* print common block cross-refs */ OPT(int,print_lab_refs,FALSE); /* print label cross-references */ /* End of -crossref options */ /* These options are controlled by -common */ OPT(int,comcheck_type,COMCHECK_ALL);/* Check for type mismatch */ OPT(int,comcheck_length,COMCHECK_ALL);/* Check for length mismatch */ OPT(int,comcheck_dims,COMCHECK_ALL);/* Check for array dim mismatch */ OPT(int,comcheck_by_name,COMCHECK_ALL);/* Check name-by-name */ OPT(int,comcheck_volatile,FALSE); /* Assume blocks are "volatile" */ /* End of -common options */ /* These options are controlled by -f77 */ OPT(int,f77_20_continue,F77_ALL); OPT(int,f77_accept_type,F77_ALL); OPT(int,f77_assignment,F77_ALL); OPT(int,f77_array_bounds,F77_ALL); OPT(int,f77_attrbased_typedecl,F77_ALL); OPT(int,f77_automatic_array,F77_ALL); OPT(int,f77_byte,F77_ALL); OPT(int,f77_case_construct,F77_ALL); OPT(int,f77_char_extension,F77_ALL); OPT(int,f77_cray_pointers,F77_ALL); OPT(int,f77_common_subprog_name,F77_ALL); OPT(int,f77_construct_name,F77_ALL); OPT(int,f77_cycle_exit,F77_ALL); OPT(int,f77_d_comment,F77_ALL); OPT(int,f77_dec_tabs,F77_ALL); OPT(int,f77_do_enddo,F77_ALL); OPT(int,f77_dollarsigns,F77_ALL); OPT(int,f77_double_complex,F77_ALL); OPT(int,f77_format_dollarsigns,F77_ALL); OPT(int,f77_format_extensions,F77_ALL); OPT(int,f77_function_noparen,F77_ALL); OPT(int,f77_implicit_none,F77_ALL); OPT(int,f77_include,F77_ALL); OPT(int,f77_initializers,F77_ALL); OPT(int,f77_inline_comment,F77_ALL); OPT(int,f77_internal_list_io,F77_ALL); OPT(int,f77_intrinsics,F77_ALL); OPT(int,f77_io_keywords,F77_ALL); OPT(int,f77_long_names,F77_ALL); OPT(int,f77_mixed_common,F77_ALL); OPT(int,f77_mixed_expr,F77_ALL); OPT(int,f77_namelist,F77_ALL); OPT(int,f77_overlength,F77_ALL); OPT(int,f77_param_implicit_type,F77_ALL); OPT(int,f77_param_intrinsic,F77_ALL); OPT(int,f77_param_noparen,F77_ALL); OPT(int,f77_pointers,F77_ALL); OPT(int,f77_quad_constants,F77_ALL); OPT(int,f77_quotemarks,F77_ALL); OPT(int,f77_relops,F77_ALL); OPT(int,f77_semicolon,F77_ALL); OPT(int,f77_stmt_order,F77_ALL); OPT(int,f77_typeless_constants,F77_ALL); OPT(int,f77_typesize,F77_ALL); OPT(int,f77_underscores,F77_ALL); OPT(int,f77_unix_backslash,F77_ALL); OPT(int,f77_unix_cpp,F77_ALL); OPT(int,f77_variable_format,F77_ALL); /* End of -f77 options */ /* These options are controlled by -f90 */ OPT(int,f90_accept_type,F90_ALL); OPT(int,f90_byte,F90_ALL); OPT(int,f90_continue,F90_ALL); OPT(int,f90_cray_pointers,F90_ALL); OPT(int,f90_d_comment,F90_ALL); OPT(int,f90_dec_tabs,F90_ALL); OPT(int,f90_dollarsigns,F90_ALL); OPT(int,f90_double_complex,F90_ALL); OPT(int,f90_format_dollarsigns,F90_ALL); OPT(int,f90_format_extensions,F90_ALL); OPT(int,f90_function_noparen,F90_ALL); OPT(int,f90_initializers,F90_ALL); OPT(int,f90_intrinsics,F90_ALL); OPT(int,f90_io_keywords,F90_ALL); OPT(int,f90_mixed_expr,F90_ALL); OPT(int,f90_overlength,F90_ALL); OPT(int,f90_param_implicit_type,F90_ALL); OPT(int,f90_param_noparen,F90_ALL); OPT(int,f90_quad_constants,F90_ALL); OPT(int,f90_stmt_order,F90_ALL); OPT(int,f90_typeless_constants,F90_ALL); OPT(int,f90_typesize,F90_ALL); OPT(int,f90_unix_backslash,F90_ALL); OPT(int,f90_unix_cpp,F90_ALL); OPT(int,f90_variable_format,F90_ALL); /* Abuse of blank space in free format is not treated as a supported extension to F90 but as a syntax error. Thus it is on by default. */ #define f90_freeform_space misc_warn /* End of -f90 options */ /* These options are controlled by -f95 */ OPT(int,f95_real_do,F95_ALL); /* real or d.p. DO variable */ OPT(int,f95_pause,F95_ALL); /* PAUSE stmt */ OPT(int,f95_assign,F95_ALL); /* ASSIGN stmt & kin */ OPT(int,f95_Hedit,F95_ALL); /* H edit descriptor */ /* End of -f95 options */ /* These options are controlled by -makedcls */ OPT(int,dcl_declarations,FALSE); OPT(int,dcl_only_undeclared,FALSE); OPT(int,dcl_compact,FALSE); OPT(int,dcl_use_continuations,FALSE); OPT(int,dcl_keywords_lowercase,FALSE); OPT(int,dcl_vars_and_consts_lowercase,FALSE); OPT(int,dcl_excl_sftran3_internal_vars,FALSE); OPT(int,dcl_asterisk_comment_character,FALSE); OPT(int,dcl_lowercase_comment_character,FALSE); OPT(int,dcl_no_array_dimensions,FALSE); OPT(int,dcl_free_form,FALSE); /* End of -makedcls options */ /* These options are controlled by -mkhtml */ OPT(int,html_documents,FALSE); OPT(int,html_only_undeclared,FALSE); OPT(int,html_compact,FALSE); OPT(int,html_use_continuations,FALSE); OPT(int,html_keywords_lowercase,FALSE); OPT(int,html_vars_and_consts_lowercase,FALSE); OPT(int,html_excl_sftran3_internal_vars,FALSE); OPT(int,html_no_array_dimensions,FALSE); OPT(int,html_free_form,FALSE); /* End of -makedcls options */ /* These options are controlled by -portability */ OPT(int,port_common_alignment,PORT_ALL);/* Common not in desc size order */ OPT(int,port_backslash,PORT_ALL); /* Backslash used in standard way */ OPT(int,port_real_do,PORT_ALL); /* Non-integer DO loop bounds */ OPT(int,port_long_string,PORT_ALL); /* Char string > 255 in length */ OPT(int,port_hollerith,PORT_ALL); /* Hollerith (except in FORMAT) */ OPT(int,port_mixed_equiv,PORT_ALL); /* Different types equivalenced */ OPT(int,port_mixed_size,PORT_ALL); /* sized, nonsized types mixed */ OPT(int,port_param_implicit_type,PORT_ALL);/* Implicit param type != default */ OPT(int,port_tabs,PORT_ALL); /* Tabs in source */ /* End of -portability options */ /* These options are controlled by -pretty */ OPT(int,pretty_alt_return,PRETTY_ALL);/* alternate return out of range */ OPT(int,pretty_multiple_common,PRETTY_ALL);/* COMMON decl in multiple stmts */ OPT(int,pretty_multiple_namelist,PRETTY_ALL);/* NAMELIST decl in multiple stmts */ OPT(int,pretty_parens,PRETTY_ALL); /* Parentheses around a variable */ OPT(int,pretty_overlength,PRETTY_ALL); /* Lines over 72 columns */ OPT(int,pretty_extra_space,PRETTY_ALL); /* Spaces in identifiers */ OPT(int,pretty_no_space,PRETTY_ALL); /* Space missing btw id and keyword */ OPT(int,pretty_contin,PRETTY_ALL); /* Continuation mark after comment */ /* End of -pretty options */ /* These options are controlled by -project */ OPT(int,make_project_file,FALSE);/* Save symtab defns in .prj file */ OPT(int,proj_trim_calls,TRUE); /* Keep min no of calls in project file */ OPT(int,proj_trim_common,TRUE); /* Keep min no of block decls in proj file */ /* End of -project options */ /* These options are controlled by -source */ OPT(int,source_dec_tab,DEC_TABS); /*DEC Fortran tab-format*/ OPT(int,source_vms_include,VMS_INCLUDE); /*VMS INCLUDE statement*/ OPT(int,source_unix_backslash,UNIX_BACKSLASH); /*UNIX backslash escape*/ OPT(int,source_dec_param_std_type,DEC_PARAMETER_STANDARD_TYPE); OPT(int,source_param_implicit,PARAMETER_IMPLICIT_TYPE);/* std params */ OPT(int,source_fixed_form,FALSE); /* force fixed format (see Note) */ OPT(int,source_free_form,FALSE); /* force free format (see Note) */ /* Note: actual flag variable used to specify source form is free_form in forlex.h. It is set by init_scan based on filename extension (.f or .f90), overridden by source_fixed_format or source_free_format if set.*/ /* end of -source options */ /* These options are controlled by -style */ /* require subprog END stmts to specify subprog class */ OPT(int,style_req_structured_end,STYLECHECK_ALL); /* require names on structured END stmts */ OPT(int,style_req_end_name,STYLECHECK_ALL); /* require names on IF, DO, and SELECT CASE constructs */ OPT(int,style_req_construct_name,STYLECHECK_ALL); /* require main prog to start with PROGRAM stmt */ OPT(int,style_req_prog_stmt,STYLECHECK_ALL); /* require use of block IF or logical IF */ OPT(int,style_req_block_if,STYLECHECK_ALL); /* require use of ENDDO with DO */ OPT(int,style_req_enddo,STYLECHECK_ALL); /* require use of ENDDO or CONTINUE with DO */ OPT(int,style_req_do_construct,STYLECHECK_ALL); /* no shared DO loop terminators */ OPT(int,style_shared_do_terminator,STYLECHECK_ALL); /* GOTO in all its forms */ OPT(int,style_goto,STYLECHECK_ALL); /* Labeled stmt other than FORMAT */ OPT(int,style_labeled_exec,STYLECHECK_ALL); /* Labeled FORMAT stmt */ OPT(int,style_labeled_format,STYLECHECK_ALL); /* End of -style options */ /* These options are controlled by -truncation */ OPT(int,trunc_int_div_real,TRUNC_ALL); /* Int/int --> real */ OPT(int,trunc_int_div_exponent,TRUNC_ALL);/* Int/int as exponentl */ OPT(int,trunc_int_div_zero,TRUNC_ALL); /* Int/int const = 0 */ OPT(int,trunc_int_neg_power,TRUNC_ALL); /* Int**(-int) */ OPT(int,trunc_real_subscript,TRUNC_ALL);/* Real array subscript */ OPT(int,trunc_real_do_index,TRUNC_ALL); /* Real DO index with int bounds */ OPT(int,trunc_type_demotion,TRUNC_ALL); /* High --> low precision */ OPT(int,trunc_size_demotion,TRUNC_ALL); /* High --> low precision */ OPT(int,trunc_promotion,TRUNC_ALL); /* Low --> high precision */ OPT(int,trunc_sigfigs,TRUNC_ALL); /* Sngl const overspecified */ /* truncation warnings related to precision */ #define trunc_precision (trunc_promotion||trunc_type_demotion||trunc_size_demotion) /* End of -truncation options */ /* These options are controlled by -usage */ OPT(int,usage_arg_modified,USAGE_ALL); /* const or expr arg modified */ OPT(int,usage_arg_alias_modified,USAGE_ALL); /* arg same-as other modified */ OPT(int,usage_array_alias_modified,USAGE_ALL);/* arg in same array as other modified */ OPT(int,usage_arg_common_modified,USAGE_ALL); /* arg in common modified */ OPT(int,usage_array_common_modified,USAGE_ALL); /* array arg in common modified */ OPT(int,usage_arg_unused,USAGE_ALL); /* arg declared but not used */ OPT(int,usage_com_block_unused,USAGE_ALL); /* whole block declared but not used */ OPT(int,usage_com_block_volatile,USAGE_ALL); /* block may lose defn */ OPT(int,usage_com_var_set_unused,USAGE_ALL); /* set but not used */ OPT(int,usage_com_var_uninitialized,USAGE_ALL);/* used but not set */ OPT(int,usage_com_var_unused,USAGE_ALL); /* declared but not used */ OPT(int,usage_do_var_modified,USAGE_ALL); /* DO index var modified */ OPT(int,usage_ext_declared_only,USAGE_ALL); /* declared EXTERNAL but not defined or used */ OPT(int,usage_ext_multiply_defined,USAGE_ALL);/* multiple definitions */ OPT(int,usage_ext_undefined,USAGE_ALL); /* used but not defined (= -external flag) */ OPT(int,usage_ext_unused,USAGE_ALL); /* defined but not used (like -library flag) */ OPT(int,usage_label_undefined,USAGE_ALL); /* label used but undefined */ OPT(int,usage_label_unused,USAGE_ALL); /* label defined but unused */ OPT(int,usage_var_set_unused,USAGE_ALL); /* set but not used */ OPT(int,usage_var_uninitialized,USAGE_ALL); /* used before set */ OPT(int,usage_var_unused,USAGE_ALL); /* declared but not used */ /* End of -usage options */ /* The following flag is for warnings not covered by other flags, so that all warnings can be turned off by -nocheck. */ OPT(int,misc_warn,TRUE); /* The following variables are controlled by command line options */ OPT(int,do_check,TRUE); /* For -nocheck option */ OPT(int,decls_required,FALSE); /* List all undeclared identifiers */ OPT(int,div_check,FALSE); /* Check for possible division by zero */ OPT(int,ext_def_check,TRUE); /* Check defined status of externals*/ OPT(int,help_screen,FALSE); /* Print out help screen */ OPT(int,library_mode,FALSE); /* Set used-flag for all modules in file */ OPT(int,brief,FALSE); /* Briefer form of local error messages */ OPT(int,do_list,FALSE); /* Listing flag */ OPT(int,novice_help,TRUE); /* Extra help for novices */ OPT(int,pure_functions,TRUE); /* Assume functions are pure */ OPT(int,quiet,FALSE); /* Less verbose output format */ OPT(int,sixclash,FALSE); /* To check if names unique in 1st 6 chars */ OPT(int,print_topo_sort,FALSE); /* Topological sort of modules */ OPT(int,do_symtab,FALSE); /* For symbol table printout */ OPT(int,print_version,FALSE); /* Print version number and quit */ /* Debugging flags */ OPT(int,debug_latest,FALSE); /* debug the latest addition */ OPT(int,debug_glob_symtab,FALSE);/* global symtab contents */ OPT(int,debug_parser,FALSE); /* grammar debug via DBG statements */ OPT(int,debug_hashtab,FALSE); /* hash table contents */ OPT(int,debug_loc_symtab,FALSE); /* local symtab contents */ OPT(int,show_resources,FALSE); /* space avail and used */ #if defined(DEBUG_FORLEX) || defined(DEBUG_IS_KEYWORD) OPT(int,debug_lexer,FALSE); /* list of tokens as scanned */ #endif /* Declare variables for commandline settings */ OPT(int,call_tree_options,0); /* Sum of: 1 (print it), */ /* 2 (who-calls-who form), 4 (don't prune) */ /* 8 (program order), 16 (VCG format) */ #ifndef STANDARD_INTRINSICS /* -intrinsic setting defaults */ OPT(int,intrinsic_rand_no_argument,(DEF_INTRINSIC_RAND & 1)==1); /* rand form */ OPT(int,intrinsic_rand_one_argument,(DEF_INTRINSIC_RAND & 2)==2); OPT(int,intrinsic_iargc_no_argument,(DEF_INTRINSIC_IARGC & 1)==1);/* iargc form */ OPT(int,intrinsic_iargc_one_argument,(DEF_INTRINSIC_IARGC & 2)==2); OPT(int,intrinsic_set_extra,(DEF_INTRINSIC_SET & 1)==1);/* common intrinsics */ OPT(int,intrinsic_set_unix,(DEF_INTRINSIC_SET & 2)==2);/* some unix intrinsics */ OPT(int,intrinsic_set_vms,(DEF_INTRINSIC_SET & 4)==4);/* some vms intrinsics */ #endif /* not STANDARD_INTRINSICS */ OPT(int,fixed_max_stmt_col,72); /* End of fixed-form statement field ( <= MAXLINE )*/ OPT(int,error_cascade_limit,DEF_ERROR_CASCADE_LIMIT);/* max errors in cascade */ OPT(int,local_ptrsize,PTRSIZE); /* Size of Cray pointer variables */ OPT(int,given_ptrsize,PTRSIZE); /* Size requested for Cray pointer variables */ OPT(int,local_wordsize,BpW); /* Bytes per word to use for default sizes */ OPT(int,given_wordsize,BpW); /* User's request as per -wordsize=n */ OPT(int,wrap_column,WRAP_COLUMN);/* For wrapping error messages */ /* Shorthands for checking control settings */ #define usage_com_any (usage_com_block_unused || usage_com_var_set_unused \ || usage_com_var_uninitialized || usage_com_var_unused) #define COMCHECK_OFF (!(comcheck_by_name||comcheck_type||comcheck_length)) #define check_com_tree (comcheck_volatile&&usage_com_block_volatile) /* Check undef errors */ #define full_output (do_list || do_symtab) #define ANY_DCL_DECLARATIONS() (dcl_declarations\ ||dcl_only_undeclared\ ||dcl_compact||dcl_use_continuations\ ||dcl_keywords_lowercase\ ||dcl_vars_and_consts_lowercase\ ||dcl_excl_sftran3_internal_vars\ ||dcl_asterisk_comment_character\ ||dcl_lowercase_comment_character\ ||dcl_no_array_dimensions\ ||dcl_free_form\ ) #define ANY_HTML_DECLARATIONS() (html_documents\ ||html_only_undeclared\ ||html_compact||html_use_continuations\ ||html_keywords_lowercase\ ||html_vars_and_consts_lowercase\ ||html_excl_sftran3_internal_vars\ ||html_no_array_dimensions\ ||html_free_form\ ) /* Declare variables for commandline StrSettings */ OPT(char*,out_fname,(char *)NULL); /* Output filename */ #ifdef ALLOW_INCLUDE OPT(char*,include_path,(char *)NULL); /* An include-file directory */ #endif OPT(char*,idletter_list,DEF_IDLETTER_LIST);/* non-alpha chars allowed in identifiers */ SHARED LINENO_t line_num, /* line num of current char */ next_line_num; /* line num of lookahead char */ SHARED COLNO_t col_num, /* column num of current char */ next_col_num; /* column num of lookahead char */ SHARED unsigned error_count, /* Count of syntax error messages per file */ warning_count; /* Count of warning messages per file */ SHARED char * tab_filename; /* Filename where there are tabs for -port */ /* Resource usage information: */ SHARED unsigned long tot_line_count, /* total source lines (stmts + comments) */ tot_stmt_line_count,/* total source stmt lines */ tot_exec_stmt_count,/* count of executable stmts in program */ tot_module_count, /* count of subprograms in program */ tot_label_count, /* total number of statement labels defined */ exec_stmt_count, /* count of executable stmts in module */ max_exec_stmt_count,/* max number of executable stmts in any module */ max_loc_strings, /* chars of local stringspace used */ max_srctextspace, /* chars of source text space used */ max_paraminfo, /* number of param info structs used */ max_tokenlists, /* number of tokenlists constructed */ max_token_space, /* number of tokens used */ max_ptrspace, /* number of pointers used */ max_labels, /* maximum no. of labels in any subprog */ glob_strings_used, /* chars of global stringspace used */ arglist_element_used, /* arg array elements used */ arglist_head_used, /* arg heads used (1 per call) */ comlist_element_used, /* com array elements used */ comlist_head_used; /* com heads used (1 per defn) */ SHARED long max_loc_symtab, /* number of local symtab entries used */ max_glob_symtab; /* number of global symtab entries used */ SHARED int equivalence_flag, /* true while parsing EQUIVALENCE statement */ initial_flag, /* true while only label or initial keywords read */ implicit_flag, /* true while parsing IMPLICIT statement */ implicit_letter_flag, /* true while getting letters in IMPLICIT list */ implicit_type_given,/* true if IMPLICIT type statement found */ implicit_none, /* true if IMPLICIT NONE statement found */ prev_token_class, /* token class of last-returned token */ curr_stmt_class; /* Token class of current stmt's leading token */ /* flag for error messages to behave differently in global cases */ SHARED int doing_wrapup; /* ditto for local cases */ SHARED int doing_end_proc; /* Define linked-list structure for include-path list */ #ifdef ALLOW_INCLUDE typedef struct IPNode { struct IPNode *link; /* next path on the list */ char *include_path; /* one path (full directory name) */ } IncludePathNode; SHARED IncludePathNode *include_path_list; /* header to the list */ #endif /* Declare routines shared with main module ftnchek.c */ /* in exprtype.c */ PROTO(void init_typesizes, ( void )); /* in ftnchek.c */ PROTO( char * add_ext,( char *s, const char *ext )); PROTO( int has_extension,( const char *name, const char *ext )); /* in forlex.c and advance.c */ PROTO(void make_legal_char_list, ( void )); PROTO(void finish_scan, ( void )); PROTO(int flush_line_out, ( LINENO_t n )); PROTO(int flush_end_stmt, ( LINENO_t n )); PROTO(void init_keyhashtab, ( void )); PROTO(void init_scan, ( void )); PROTO(void init_stream,( void )); /* in include.c */ PROTO(void open_include_file, ( char *fname, LINENO_t include_line_num )); PROTO(int pop_include_file,( void )); /* in fortran.y/fortran.c */ PROTO(void init_parser, ( void )); PROTO(int yyparse, ( void )); /* in message.c */ PROTO(void msg_tail, ( const char *s )); PROTO(void nonportable, ( LINENO_t lineno, COLNO_t colno, const char *s )); PROTO(void nonstandard, ( LINENO_t lineno, COLNO_t colno, int f90, int f95 )); PROTO(void oops_message, ( int severity, LINENO_t lineno, COLNO_t colno, const char *s )); PROTO(void oops_tail, ( const char *s )); PROTO(void print_a_line, ( FILE *fd, const char *line, LINENO_t num )); PROTO(void syntax_error, ( LINENO_t lineno, COLNO_t colno, const char *s )); PROTO(void ugly_code, ( LINENO_t lineno, COLNO_t colno, const char *s )); PROTO(void warning, ( LINENO_t lineno, COLNO_t colno, const char *s )); PROTO(void local_message, ( const char *filename, LINENO_t lineno, const char *s, const char *tag )); PROTO(void global_warning, ( const char *filename, LINENO_t lineno, const char *s )); PROTO(void global_message, ( const char *filename, LINENO_t lineno, const char *s )); PROTO(void lex_error, (const char *s )); PROTO(void yyerror, ( const char *s )); PROTO(char* ulongtostr, (unsigned long num)); /* Maximum length of a longtostr() result */ #define MAX_ULONGTOSTR (3*sizeof(unsigned long)) /* in pgsymtab.c */ PROTO(void check_arglists, ( void )); PROTO(void check_comlists, ( void )); PROTO(void check_com_usage, ( void )); PROTO(void visit_children, ( void )); /* in plsymtab.c */ PROTO(void debug_symtabs, ( void )); /* in project.c */ PROTO(void proj_file_out, ( FILE *fd )); PROTO(void proj_file_in, ( FILE *fd )); /* in symtab.c */ PROTO(void init_tables, ( void )); PROTO(void init_globals, ( void )); PROTO(void init_symtab, ( void )); PROTO(void note_filename, ( char *s )); #ifdef DEBUG_SIZES PROTO(void print_sizeofs, ( void )); #endif /* Misc. useful defines */ #undef MAX #define MAX(X,Y) ((X)>(Y)?(X):(Y))