diff options
Diffstat (limited to 'contrib/gcc/f/stv.h')
| -rw-r--r-- | contrib/gcc/f/stv.h | 165 |
1 files changed, 0 insertions, 165 deletions
diff --git a/contrib/gcc/f/stv.h b/contrib/gcc/f/stv.h deleted file mode 100644 index 22b177e027a1..000000000000 --- a/contrib/gcc/f/stv.h +++ /dev/null @@ -1,165 +0,0 @@ -/* stv.h -- Private #include File (module.h template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. - Contributed by James Craig Burley. - -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: - stv.c - - Modifications: -*/ - -/* Allow multiple inclusion to work. */ - -#ifndef _H_f_stv -#define _H_f_stv - -/* Simple definitions and enumerations. */ - -typedef enum - { - FFESTV_accessstateNONE, /* Haven't seen PUBLIC or PRIVATE yet. */ - FFESTV_accessstatePUBLIC, /* Seen PUBLIC stmt w/o args. */ - FFESTV_accessstatePRIVATE, /* Seen PRIVATE stmt w/o args. */ - FFESTV_accessstateANY, /* Conflict seen and reported, so stop - whining. */ - FFESTV_accessstate - } ffestvAccessstate; - -typedef enum - { /* Format specifier in an I/O statement. */ - FFESTV_formatNONE, /* None. */ - FFESTV_formatLABEL, /* Label (normal format). */ - FFESTV_formatCHAREXPR, /* Character expression (normal format). */ - FFESTV_formatASTERISK, /* Asterisk (list-directed). */ - FFESTV_formatINTEXPR, /* Integer expression (assigned label). */ - FFESTV_formatNAMELIST, /* Namelist (namelist-directed). */ - FFESTV_format - } ffestvFormat; - -typedef enum - { - FFESTV_savestateNONE, /* Haven't seen SAVE stmt or attribute yet. */ - FFESTV_savestateSPECIFIC, /* Seen SAVE stmt w/args or SAVE attr. */ - FFESTV_savestateALL, /* Seen SAVE stmt w/o args. */ - FFESTV_savestateANY, /* Conflict seen and reported, so stop - whining. */ - FFESTV_savestate - } ffestvSavestate; - -typedef enum - { - FFESTV_stateNIL, /* Initial state, and after end of outer prog - unit. */ - FFESTV_statePROGRAM0, /* After PROGRAM. */ - FFESTV_statePROGRAM1, /* Before first non-USE statement. */ - FFESTV_statePROGRAM2, /* After IMPLICIT NONE. */ - FFESTV_statePROGRAM3, /* After IMPLICIT, PARAMETER, FORMAT. */ - FFESTV_statePROGRAM4, /* Before executable stmt or CONTAINS. */ - FFESTV_statePROGRAM5, /* After CONTAINS. */ - FFESTV_stateSUBROUTINE0, /* After SUBROUTINE. */ - FFESTV_stateSUBROUTINE1, /* Before first non-USE statement. */ - FFESTV_stateSUBROUTINE2, /* After IMPLICIT NONE. */ - FFESTV_stateSUBROUTINE3, /* After IMPLICIT, PARAMETER, FORMAT, ENTRY. */ - FFESTV_stateSUBROUTINE4, /* Before executable stmt or CONTAINS. */ - FFESTV_stateSUBROUTINE5, /* After CONTAINS. */ - FFESTV_stateFUNCTION0, /* After FUNCTION. */ - FFESTV_stateFUNCTION1, /* Before first non-USE statement. */ - FFESTV_stateFUNCTION2, /* After IMPLICIT NONE. */ - FFESTV_stateFUNCTION3, /* After IMPLICIT, PARAMETER, FORMAT, ENTRY. */ - FFESTV_stateFUNCTION4, /* Before executable stmt or CONTAINS. */ - FFESTV_stateFUNCTION5, /* After CONTAINS. */ - FFESTV_stateMODULE0, /* After MODULE. */ - FFESTV_stateMODULE1, /* Before first non-USE statement. */ - FFESTV_stateMODULE2, /* After IMPLICIT NONE. */ - FFESTV_stateMODULE3, /* After IMPLICIT, PARAMETER, FORMAT, ENTRY. */ - FFESTV_stateMODULE4, /* Before executable stmt or CONTAINS. */ - FFESTV_stateMODULE5, /* After CONTAINS. */ - FFESTV_stateBLOCKDATA0, /* After BLOCKDATA. */ - FFESTV_stateBLOCKDATA1, /* Before first non-USE statement. */ - FFESTV_stateBLOCKDATA2, /* After IMPLICIT NONE. */ - FFESTV_stateBLOCKDATA3, /* After IMPLICIT, PARAMETER, FORMAT, ENTRY. */ - FFESTV_stateBLOCKDATA4, /* Before executable stmt or CONTAINS. */ - FFESTV_stateBLOCKDATA5, /* After CONTAINS. */ - FFESTV_stateUSE, /* Before first USE thru last USE. */ - FFESTV_stateTYPE, /* After TYPE thru END TYPE. */ - FFESTV_stateINTERFACE0, /* After INTERFACE thru MODULE PROCEDURE. */ - FFESTV_stateINTERFACE1, /* After MODULE PROCEDURE thru END INTERFACE. */ - FFESTV_stateSTRUCTURE, /* After STRUCTURE thru END STRUCTURE. */ - FFESTV_stateUNION, /* After UNION thru END UNION. */ - FFESTV_stateMAP, /* After MAP thru END MAP. */ - FFESTV_stateWHERETHEN, /* After WHERE-construct thru END WHERE. */ - FFESTV_stateWHERE, /* After WHERE-stmt thru next stmt. */ - FFESTV_stateIFTHEN, /* After IF THEN thru END IF. */ - FFESTV_stateIF, /* After IF thru next stmt. */ - FFESTV_stateDO, /* After DO thru END DO or terminating label. */ - FFESTV_stateSELECT0, /* After SELECT to before first CASE. */ - FFESTV_stateSELECT1, /* First CASE in SELECT thru END SELECT. */ - FFESTV_state - } ffestvState; - -typedef enum - { /* Unit specifier. */ - FFESTV_unitNONE, /* None. */ - FFESTV_unitINTEXPR, /* Integer expression (external file unit). */ - FFESTV_unitASTERISK, /* Default unit. */ - FFESTV_unitCHAREXPR, /* Character expression (internal file unit). */ - FFESTV_unit - } ffestvUnit; - -/* Typedefs. */ - - -/* Include files needed by this one. */ - -#include "lab.h" -#include "where.h" - -/* Structure definitions. */ - - -/* Global objects accessed by users of this module. */ - -extern ffestvSavestate ffestv_save_state_; -extern ffewhereLine ffestv_save_line_; -extern ffewhereColumn ffestv_save_col_; -extern ffestvAccessstate ffestv_access_state_; -extern ffewhereLine ffestv_access_line_; -extern ffewhereColumn ffestv_access_col_; -extern ffelabNumber ffestv_num_label_defines_; - -/* Declare functions with prototypes. */ - - -/* Define macros. */ - -#define ffestv_init_0() -#define ffestv_init_1() -#define ffestv_init_2() -#define ffestv_init_3() -#define ffestv_init_4() -#define ffestv_terminate_0() -#define ffestv_terminate_1() -#define ffestv_terminate_2() -#define ffestv_terminate_3() -#define ffestv_terminate_4() - -/* End of #include file. */ - -#endif |