Open64: osprey/crayf90/fe90/src

00001 /*
00002  * Copyright 2004, 2005, 2006 PathScale, Inc.  All Rights Reserved.
00003  */
00004 
00005 /*
00006 
00007   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00008 
00009   This program is free software; you can redistribute it and/or modify it
00010   under the terms of version 2 of the GNU General Public License as
00011   published by the Free Software Foundation.
00012 
00013   This program is distributed in the hope that it would be useful, but
00014   WITHOUT ANY WARRANTY; without even the implied warranty of
00015   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00016 
00017   Further, this software is distributed without any warranty that it is
00018   free of the rightful claim of any third person regarding infringement 
00019   or the like.  Any license provided herein, whether implied or 
00020   otherwise, applies only to this software file.  Patent licenses, if 
00021   any, provided herein do not apply to combinations of this program with 
00022   other software, or any other product whatsoever.  
00023 
00024   You should have received a copy of the GNU General Public License along
00025   with this program; if not, write the Free Software Foundation, Inc., 59
00026   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00027 
00028   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00029   Mountain View, CA 94043, or:
00030 
00031   http://www.sgi.com
00032 
00033   For further information regarding this notice, see:
00034 
00035   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00036 
00037 */
00038 
00039 
00040 
00041 /* USMID:  "\n@(#)5.0_pl/headers/src_input.h  5.3 09/01/99 12:24:50\n" */
00042 
00043  
00044 /********************************************\
00045 |* type specifiers used within this module. *|
00046 \********************************************/
00047 
00048 enum  src_file_values        {Stdin_Src,
00049         Input_Src,
00050         Include_Src };
00051 
00052 typedef enum      src_file_values   src_file_type;
00053 
00054 struct  src_stk_entry        {Uint    file_line   : 32;
00055         Uint    file_idx    : 32;
00056         src_file_type file_type   : 4;
00057                                 src_form_type   prev_src_form   : 4;
00058             Uint    cif_file_id   : 24;
00059         Uint    global_line_first_idx : 32;
00060         boolean   do_not_fclose;
00061         FILE         *file_ptr;
00062         char    path_name[MAX_PATH_NAME_SIZE];
00063   };
00064 
00065 enum  dir_prefix_values {Cdir_Dir,
00066          Cmic_Dir,
00067          Cpar_Dir,
00068          Cstar_Dir,
00069          Cdollar_Dir,
00070          Comp_Dir,
00071          Cdbg_Dir,
00072          Csgi_Dir};
00073 
00074 typedef enum dir_prefix_values  dir_prefix_type;
00075 
00076 
00077 /******************************************************************************\
00078 |*  In the following struct for msg queueing, the value of order          *|
00079 |*  determines the order of possible str and arg arguments.               *|
00080 |*                        *|
00081 |*      order   implies             *|
00082 |*      -----   -------             *|
00083 |*        0    no args            *|
00084 |*        1    str              *|
00085 |*        2    arg              *|
00086 |*        3    str, arg           *|
00087 |*        4    arg, str           *|
00088 |*                        *|
00089 \******************************************************************************/
00090 
00091 struct  msg_queue_entry {Uint     line_num  : 24;
00092        Uint     col_num   :  8;
00093        Uint     msg_num   : 24;
00094        msg_severities_type  sever   :  8;
00095        Uint     order   :  8;
00096        Uint     str_len   : 24;
00097        Uint     next_msg  : 32;
00098        long     arg;
00099       };
00100 
00101 
00102 typedef struct    msg_queue_entry   msg_queue_type;
00103 typedef struct    msg_queue_entry   next_msg_queue_type;
00104 typedef struct    src_stk_entry   src_stk_type;
00105 
00106 
00107 next_msg_queue_type *next_msg_queue;
00108 long    next_msg_queue_idx   = NULL_IDX;
00109 int   next_msg_queue_inc   = 5;
00110 int   next_msg_queue_init_size = 5;   /* Same as increment */
00111 long    next_msg_queue_limit   = OUR_LONG_MAX;
00112 int   next_msg_queue_num_wds   = NUM_MQ_WDS;
00113 long    next_msg_queue_size  = 0;
00114 long    next_msg_queue_largest_idx  = NULL_IDX;
00115 
00116 msg_queue_type *msg_queue;
00117 long    msg_queue_idx   = NULL_IDX;
00118 int   msg_queue_inc   = 5;
00119 int   msg_queue_init_size = 5;   /* Same as increment */
00120 long    msg_queue_limit   = OUR_LONG_MAX;
00121 int   msg_queue_num_wds = NUM_MQ_WDS;
00122 long    msg_queue_size    = 0;
00123 long    msg_queue_largest_idx = NULL_IDX;
00124 
00125 
00126 src_stk_type   * RESTRICT src_stk;
00127 long    src_stk_idx   = NULL_IDX;
00128 int   src_stk_inc   = 2;
00129 int   src_stk_init_size = 3;
00130 long    src_stk_limit   = OUR_LONG_MAX;
00131 int   src_stk_num_wds   = HOST_BYTES_TO_WORDS(
00132                                                         sizeof(src_stk_type));
00133 long    src_stk_size    = 0;
00134 long    src_stk_largest_idx = NULL_IDX;
00135 
00136 
00137 /****************************************\
00138 |* static data used within this module. *|
00139 \****************************************/
00140 
00141 boolean                 change_source_form  = FALSE;
00142 int                     char_delim;
00143 int     continuation_count;
00144 int                     digit_start;
00145 line_type               expected_line;
00146 boolean     first_line    = TRUE;
00147 boolean     first_pound_line  = TRUE;
00148 boolean     cif_file_rec_issued = FALSE;
00149 int     full_include_name_idx = NULL_IDX;
00150 boolean     ignore_source_line  = FALSE;
00151 
00152 char      include_file[MAX_FILE_NAME_SIZE];
00153 int     include_stmt_file_line  = 0;
00154 int     include_stmt_file_col = 0;
00155 boolean     include_switch;
00156 boolean     include_complete;
00157 boolean     include_found;
00158 
00159 boolean     issue_obsolete_src_form_msg = FALSE;
00160 
00161 char      pound_file[MAX_FILE_NAME_SIZE];
00162 boolean     change_orig_src_file  = FALSE;
00163 
00164 int     line_size;
00165 int                     lines_in_buf;
00166 char                    num_str[5];
00167 int                     num_idx;
00168 
00169 # ifdef _FRONTEND_CONDITIONAL_COMP
00170 int                     nxt_line[MAX_STMT_CHAR_SIZE];
00171 int                     nxt_line_col[MAX_STMT_CHAR_SIZE];
00172 # else
00173 int                     nxt_line[MAX_SRC_LINE_SIZE];
00174 int                     nxt_line_col[MAX_SRC_LINE_SIZE];
00175 # endif
00176 int                     nxt_line_idx;
00177 boolean     nxt_line_label;
00178 int                     nxt_line_length;
00179 int                     nxt_line_num;
00180 line_type               nxt_line_type;
00181 int                     nxt_line_EOL;
00182 int     nxt_line_prefix_len;
00183 boolean     nxt_line_mp_line;
00184 
00185 int                     nxt_line_start_idx[MAX_FIXED_LINES+1];
00186 int                     nxt_line_end_idx[MAX_FIXED_LINES+1];
00187 boolean                 pp_nxt_line_label[MAX_FIXED_LINES+1];
00188 int                     pp_nxt_line_length[MAX_FIXED_LINES+1];
00189 int                     pp_nxt_line_num[MAX_FIXED_LINES+1];
00190 line_type               pp_nxt_line_type[MAX_FIXED_LINES+1];
00191 int                     pp_nxt_line_EOL[MAX_FIXED_LINES+1];
00192 int                     pp_nxt_line_prefix_len[MAX_FIXED_LINES+1];
00193 int                     pp_nxt_line_idx[MAX_FIXED_LINES+1];
00194 boolean                 pp_nxt_line_mp_line[MAX_FIXED_LINES+1];
00195 boolean                 pp_change_source_form[MAX_FIXED_LINES+1];
00196 dir_prefix_type   pp_nxt_line_actual_dir_prefix[MAX_FIXED_LINES+1];
00197 dir_prefix_type   pp_nxt_line_dir_prefix[MAX_FIXED_LINES+1];
00198 line_type               pp_expected_line[MAX_FIXED_LINES+1];
00199 int     pp_orig_line_size[MAX_FIXED_LINES+1];
00200 
00201 int     nxt_line_num_lines;
00202 int     pp_line_idx;
00203 
00204 int     extra_nxt_line = NULL_IDX;
00205 
00206 int     prev_char_delim = 0;
00207 int     prev_char_delim_idx;
00208 int                     previous_char;
00209 boolean                 seen_lp_eq_slash;
00210 int                     starting_pt;
00211 
00212 int                     stmt_buf[MAX_STMT_CHAR_SIZE];
00213 int                     stmt_buf_col[MAX_STMT_CHAR_SIZE];
00214 int                     stmt_buf_idx;
00215 line_type               stmt_buf_type;
00216 int                     stmt_buf_EOS_idx;
00217 int                     stmt_line_start_idx[MAX_FIXED_LINES+1];
00218 int                     stmt_line_end_idx[MAX_FIXED_LINES+1];
00219 int                     stmt_line_idx;
00220 int                     stmt_line_num[MAX_FIXED_LINES+1];
00221 int                     stmt_line_offset[MAX_FIXED_LINES+1];
00222 int     stmt_prefix_len;
00223 
00224 dir_prefix_type   stmt_buf_dir_prefix;
00225 dir_prefix_type   nxt_line_dir_prefix;
00226          
00227 dir_prefix_type   line_dir_prefix[MAX_FIXED_LINES+1];
00228 dir_prefix_type   nxt_line_actual_dir_prefix;
00229 
00230 /* chars predefined as ints */
00231 
00232 int      lc_a         = 'a';
00233 int      uc_a         = 'A';
00234 int lc_b       = 'b';
00235 int uc_b       = 'B';
00236 int      lc_c         = 'c';
00237 int      uc_c         = 'C';
00238 int      lc_d         = 'd';
00239 int      uc_d         = 'D';
00240 int lc_e       = 'e';
00241 int uc_e       = 'E';
00242 int      lc_f         = 'f';
00243 int      uc_f         = 'F';
00244 int      lc_g         = 'g';
00245 int      uc_g         = 'G';
00246 int lc_h         = 'h';
00247 int uc_h         = 'H';
00248 int      lc_i         = 'i';
00249 int      uc_i         = 'I';
00250 int lc_l         = 'l';
00251 int      uc_l         = 'L';
00252 int      lc_m         = 'm';
00253 int      uc_m         = 'M';
00254 int      lc_o         = 'o';
00255 int      uc_o         = 'O';
00256 int      lc_p         = 'p';
00257 int      uc_p         = 'P';
00258 int      lc_r         = 'r';
00259 int uc_r         = 'R';
00260 int      lc_s         = 's';
00261 int      uc_s         = 'S';
00262 int      lc_t         = 't';
00263 int      uc_t         = 'T';
00264 int      dot          = '.';
00265 int star         = '*';
00266 int quote        = '\'';
00267 int      db_quote     = '"';
00268 int      blank        = ' ';
00269 int      marked_blank = ((1 << SIGN_BIT) | ' ');
00270 int      tab          = '\t';
00271 int      newline      = '\n';
00272 int      dosnewline   = '\r';
00273 int      bang         = '!';
00274 int      lparen       = '(';
00275 int      rparen       = ')';
00276 int      lbrkt        = '[';
00277 int      rbrkt        = ']';
00278 int      equal        = '=';
00279 int      slash        = '/';
00280 int      underscore   = '_';
00281 int      dollar       = '$';
00282 int      amp          = '&';
00283 int      percent      = '%';
00284 int      at_sign      = '@';
00285 int      semi_colon   = ';';
00286 int      colon        = ':';
00287 int      eos          = 0;
00288 int      one          = '1';
00289 int      nine         = '9';
00290 int      zero         = '0';
00291 int      comma        = ',';
00292 int pound        = '#';
00293 int greater      = '>';
00294 int less         = '<';
00295 
00296 int      format_str[7][2] = { {'F', 'f'},
00297           {'O', 'o'},
00298           {'R', 'r'},
00299           {'M', 'm'},
00300           {'A', 'a'},
00301           {'T', 't'},
00302           {'(', '('}};
00303 
00304 int      format_idx = -1;
00305 boolean  in_format = FALSE;
00306 int      format_start_idx;
00307 
00308 /* The following flags allow certain messages to be issued only once. */
00309 static boolean  have_issued_msg_37;
00310 
00311 /* The following table is used to identify the class of look ahead characters */
00312 ch_class_type   ch_class[MAX_ASCII_CHARS] = {
00313         Ch_Class_EOS,            /* NULL*/
00314         Ch_Class_Symbol,           /* SOH */
00315         Ch_Class_Symbol,           /* STX */
00316         Ch_Class_Symbol,           /* ETX */
00317         Ch_Class_Symbol,           /* EOT */
00318         Ch_Class_Symbol,           /* ENQ */
00319         Ch_Class_Symbol,           /* ACK */
00320         Ch_Class_Symbol,           /* BEL */
00321         Ch_Class_Symbol,           /* BS  */
00322         Ch_Class_Symbol,           /* TAB */
00323         Ch_Class_Symbol,           /* LF  */
00324         Ch_Class_Symbol,           /* VT  */
00325         Ch_Class_Symbol,           /* FF  */
00326         Ch_Class_Symbol,           /* CR  */
00327         Ch_Class_Symbol,           /* SO  */
00328         Ch_Class_Symbol,           /* SI  */
00329         Ch_Class_Symbol,           /* DLE */
00330         Ch_Class_Symbol,           /* DC1 */
00331         Ch_Class_Symbol,           /* DC2 */
00332         Ch_Class_Symbol,           /* DC3 */
00333         Ch_Class_Symbol,           /* DC4 */
00334         Ch_Class_Symbol,           /* NAK */
00335         Ch_Class_Symbol,           /* SYN */
00336         Ch_Class_Symbol,           /* ETB */
00337         Ch_Class_Symbol,           /* CAN */
00338         Ch_Class_Symbol,           /* EM  */
00339         Ch_Class_Symbol,           /* SUB */
00340         Ch_Class_Symbol,           /* ESC */
00341         Ch_Class_Symbol,           /* FS  */
00342         Ch_Class_Symbol,           /* GS  */
00343         Ch_Class_Symbol,           /* RS  */
00344         Ch_Class_Symbol,           /* US  */
00345         Ch_Class_Symbol,           /* SP  */
00346         Ch_Class_Symbol,           /* !   */
00347         Ch_Class_Symbol,           /* "   */
00348         Ch_Class_Symbol,           /* #   */
00349         Ch_Class_Symbol,           /* $   */
00350         Ch_Class_Symbol,           /* %   */
00351         Ch_Class_Symbol,           /* &   */
00352         Ch_Class_Symbol,           /* '   */
00353         Ch_Class_Symbol,           /* (   */
00354         Ch_Class_Symbol,           /* )   */
00355         Ch_Class_Symbol,           /* *   */
00356         Ch_Class_Symbol,           /* +   */
00357         Ch_Class_Symbol,           /* ,   */
00358         Ch_Class_Symbol,           /* -   */
00359         Ch_Class_Symbol,           /* .   */
00360         Ch_Class_Symbol,           /* /   */
00361         Ch_Class_Digit,            /* 0   */
00362         Ch_Class_Digit,            /* 1   */
00363         Ch_Class_Digit,            /* 2   */
00364         Ch_Class_Digit,            /* 3   */
00365         Ch_Class_Digit,            /* 4   */
00366         Ch_Class_Digit,            /* 5   */
00367         Ch_Class_Digit,            /* 6   */
00368         Ch_Class_Digit,            /* 7   */
00369         Ch_Class_Digit,            /* 8   */
00370         Ch_Class_Digit,            /* 9   */
00371         Ch_Class_Symbol,           /* :   */
00372         Ch_Class_Symbol,           /* ;   */
00373         Ch_Class_Symbol,           /* <   */
00374         Ch_Class_Symbol,           /* =   */
00375         Ch_Class_Symbol,           /* >   */
00376         Ch_Class_Symbol,           /* ?   */
00377         Ch_Class_Symbol,           /* @   */
00378         Ch_Class_Letter,           /* A   */
00379         Ch_Class_Letter,           /* B   */
00380         Ch_Class_Letter,           /* C   */
00381         Ch_Class_Letter,           /* D   */
00382         Ch_Class_Letter,           /* E   */
00383         Ch_Class_Letter,           /* F   */
00384         Ch_Class_Letter,           /* G   */
00385         Ch_Class_Letter,           /* H   */
00386         Ch_Class_Letter,           /* I   */
00387         Ch_Class_Letter,           /* J   */
00388         Ch_Class_Letter,           /* K   */
00389         Ch_Class_Letter,           /* L   */
00390         Ch_Class_Letter,           /* M   */
00391         Ch_Class_Letter,           /* N   */
00392         Ch_Class_Letter,           /* O   */
00393         Ch_Class_Letter,           /* P   */
00394         Ch_Class_Letter,           /* Q   */
00395         Ch_Class_Letter,           /* R   */
00396         Ch_Class_Letter,           /* S   */
00397         Ch_Class_Letter,           /* T   */
00398         Ch_Class_Letter,           /* U   */
00399         Ch_Class_Letter,           /* V   */
00400         Ch_Class_Letter,           /* W   */
00401         Ch_Class_Letter,           /* X   */
00402         Ch_Class_Letter,           /* Y   */
00403         Ch_Class_Letter,           /* Z   */
00404         Ch_Class_Symbol,           /* [   */
00405         Ch_Class_Symbol,           /* \   */
00406         Ch_Class_Symbol,           /* ]   */
00407         Ch_Class_Symbol,           /* ^   */
00408         Ch_Class_Symbol,           /* _   */
00409         Ch_Class_Symbol,           /* `   */
00410         Ch_Class_Letter,           /* a   */
00411         Ch_Class_Letter,           /* b   */
00412         Ch_Class_Letter,           /* c   */
00413         Ch_Class_Letter,           /* d   */
00414         Ch_Class_Letter,           /* e   */
00415         Ch_Class_Letter,           /* f   */
00416         Ch_Class_Letter,           /* g   */
00417         Ch_Class_Letter,           /* h   */
00418         Ch_Class_Letter,           /* i   */
00419         Ch_Class_Letter,           /* j   */
00420         Ch_Class_Letter,           /* k   */
00421         Ch_Class_Letter,           /* l   */
00422         Ch_Class_Letter,           /* m   */
00423         Ch_Class_Letter,           /* n   */
00424         Ch_Class_Letter,           /* o   */
00425         Ch_Class_Letter,           /* p   */
00426         Ch_Class_Letter,           /* q   */
00427         Ch_Class_Letter,           /* r   */
00428         Ch_Class_Letter,           /* s   */
00429         Ch_Class_Letter,           /* t   */
00430         Ch_Class_Letter,           /* u   */
00431         Ch_Class_Letter,           /* v   */
00432         Ch_Class_Letter,           /* w   */
00433         Ch_Class_Letter,           /* x   */
00434         Ch_Class_Letter,           /* y   */
00435         Ch_Class_Letter,           /* z   */
00436         Ch_Class_Symbol,           /* {   */
00437         Ch_Class_Symbol,           /* |   */
00438         Ch_Class_Symbol,           /* }   */
00439         Ch_Class_Symbol,           /* ~   */
00440         Ch_Class_Symbol,           /* DEL */
00441         Ch_Class_Symbol,           /* 128 */
00442         Ch_Class_Symbol,           /* 129 */
00443         Ch_Class_Symbol,           /* 130 */
00444         Ch_Class_Symbol,           /* 131 */
00445         Ch_Class_Symbol,           /* 132 */
00446         Ch_Class_Symbol,           /* 133 */
00447         Ch_Class_Symbol,           /* 134 */
00448         Ch_Class_Symbol,           /* 135 */
00449         Ch_Class_Symbol,           /* 136 */
00450         Ch_Class_Symbol,           /* 137 */
00451         Ch_Class_Symbol,           /* 138 */
00452         Ch_Class_Symbol,           /* 139 */
00453         Ch_Class_Symbol,           /* 140 */
00454         Ch_Class_Symbol,           /* 141 */
00455         Ch_Class_Symbol,           /* 142 */
00456         Ch_Class_Symbol,           /* 143 */
00457         Ch_Class_Symbol,           /* 144 */
00458         Ch_Class_Symbol,           /* 145 */
00459         Ch_Class_Symbol,           /* 146 */
00460         Ch_Class_Symbol,           /* 147 */
00461         Ch_Class_Symbol,           /* 148 */
00462         Ch_Class_Symbol,           /* 149 */
00463         Ch_Class_Symbol,           /* 150 */
00464         Ch_Class_Symbol,           /* 151 */
00465         Ch_Class_Symbol,           /* 152 */
00466         Ch_Class_Symbol,           /* 153 */
00467         Ch_Class_Symbol,           /* 154 */
00468         Ch_Class_Symbol,           /* 155 */
00469         Ch_Class_Symbol,           /* 156 */
00470         Ch_Class_Symbol,           /* 157 */
00471         Ch_Class_Symbol,           /* 158 */
00472         Ch_Class_Symbol,           /* 159 */
00473         Ch_Class_Symbol,           /* 160 */
00474         Ch_Class_Symbol,           /* 161 */
00475         Ch_Class_Symbol,           /* 162 */
00476         Ch_Class_Symbol,           /* 163 */
00477         Ch_Class_Symbol,           /* 164 */
00478         Ch_Class_Symbol,           /* 165 */
00479         Ch_Class_Symbol,           /* 166 */
00480         Ch_Class_Symbol,           /* 167 */
00481         Ch_Class_Symbol,           /* 168 */
00482         Ch_Class_Symbol,           /* 169 */
00483         Ch_Class_Symbol,           /* 170 */
00484         Ch_Class_Symbol,           /* 171 */
00485         Ch_Class_Symbol,           /* 172 */
00486         Ch_Class_Symbol,           /* 173 */
00487         Ch_Class_Symbol,           /* 174 */
00488         Ch_Class_Symbol,           /* 175 */
00489         Ch_Class_Symbol,           /* 176 */
00490         Ch_Class_Symbol,           /* 177 */
00491         Ch_Class_Symbol,           /* 178 */
00492         Ch_Class_Symbol,           /* 179 */
00493         Ch_Class_Symbol,           /* 180 */
00494         Ch_Class_Symbol,           /* 181 */
00495         Ch_Class_Symbol,           /* 182 */
00496         Ch_Class_Symbol,           /* 183 */
00497         Ch_Class_Symbol,           /* 184 */
00498         Ch_Class_Symbol,           /* 185 */
00499         Ch_Class_Symbol,           /* 186 */
00500         Ch_Class_Symbol,           /* 187 */
00501         Ch_Class_Symbol,           /* 188 */
00502         Ch_Class_Symbol,           /* 189 */
00503         Ch_Class_Symbol,           /* 190 */
00504         Ch_Class_Symbol,           /* 191 */
00505         Ch_Class_Symbol,           /* 192 */
00506         Ch_Class_Symbol,           /* 193 */
00507         Ch_Class_Symbol,           /* 194 */
00508         Ch_Class_Symbol,           /* 195 */
00509         Ch_Class_Symbol,           /* 196 */
00510         Ch_Class_Symbol,           /* 197 */
00511         Ch_Class_Symbol,           /* 198 */
00512         Ch_Class_Symbol,           /* 199 */
00513         Ch_Class_Symbol,           /* 200 */
00514         Ch_Class_Symbol,           /* 201 */
00515         Ch_Class_Symbol,           /* 202 */
00516         Ch_Class_Symbol,           /* 203 */
00517         Ch_Class_Symbol,           /* 204 */
00518         Ch_Class_Symbol,           /* 205 */
00519         Ch_Class_Symbol,           /* 206 */
00520         Ch_Class_Symbol,           /* 207 */
00521         Ch_Class_Symbol,           /* 208 */
00522         Ch_Class_Symbol,           /* 209 */
00523         Ch_Class_Symbol,           /* 210 */
00524         Ch_Class_Symbol,           /* 211 */
00525         Ch_Class_Symbol,           /* 212 */
00526         Ch_Class_Symbol,           /* 213 */
00527         Ch_Class_Symbol,           /* 214 */
00528         Ch_Class_Symbol,           /* 215 */
00529         Ch_Class_Symbol,           /* 216 */
00530         Ch_Class_Symbol,           /* 217 */
00531         Ch_Class_Symbol,           /* 218 */
00532         Ch_Class_Symbol,           /* 219 */
00533         Ch_Class_Symbol,           /* 220 */
00534         Ch_Class_Symbol,           /* 221 */
00535         Ch_Class_Symbol,           /* 222 */
00536         Ch_Class_Symbol,           /* 223 */
00537         Ch_Class_Symbol,           /* 224 */
00538         Ch_Class_Symbol,           /* 225 */
00539         Ch_Class_Symbol,           /* 226 */
00540         Ch_Class_Symbol,           /* 227 */
00541         Ch_Class_Symbol,           /* 228 */
00542         Ch_Class_Symbol,           /* 229 */
00543         Ch_Class_Symbol,           /* 230 */
00544         Ch_Class_Symbol,           /* 231 */
00545         Ch_Class_Symbol,           /* 232 */
00546         Ch_Class_Symbol,           /* 233 */
00547         Ch_Class_Symbol,           /* 234 */
00548         Ch_Class_Symbol,           /* 235 */
00549         Ch_Class_Symbol,           /* 236 */
00550         Ch_Class_Symbol,           /* 237 */
00551         Ch_Class_Symbol,           /* 238 */
00552         Ch_Class_Symbol,           /* 239 */
00553         Ch_Class_Symbol,           /* 240 */
00554         Ch_Class_Symbol,           /* 241 */
00555         Ch_Class_Symbol,           /* 242 */
00556         Ch_Class_Symbol,           /* 243 */
00557         Ch_Class_Symbol,           /* 244 */
00558         Ch_Class_Symbol,           /* 245 */
00559         Ch_Class_Symbol,           /* 246 */
00560         Ch_Class_Symbol,           /* 247 */
00561         Ch_Class_Symbol,           /* 248 */
00562         Ch_Class_Symbol,           /* 249 */
00563         Ch_Class_Symbol,           /* 250 */
00564         Ch_Class_Symbol,           /* 251 */
00565         Ch_Class_Symbol,           /* 252 */
00566         Ch_Class_Symbol,           /* 253 */
00567         Ch_Class_Symbol,           /* 254 */
00568         Ch_Class_EOF };            /* 255 */
00569 
00570 /* The following table is just to see if a character is in the "valid" */
00571 /* Fortran 90 character set.                                           */
00572 
00573 static  boolean   valid_f90_char[MAX_ASCII_CHARS] = {
00574                                 FALSE,                          /* NULL*/
00575                                 FALSE,                       /* SOH */
00576                                 FALSE,                       /* STX */
00577                                 FALSE,                       /* ETX */
00578                                 FALSE,                       /* EOT */
00579                                 FALSE,                       /* ENQ */
00580                                 FALSE,                       /* ACK */
00581                                 FALSE,                       /* BEL */
00582                                 FALSE,                       /* BS  */
00583                                 TRUE ,                       /* TAB */
00584                                 FALSE,                       /* LF  */
00585                                 FALSE,                       /* VT  */
00586                                 FALSE,                       /* FF  */
00587                                 FALSE,                       /* CR  */
00588                                 FALSE,                       /* SO  */
00589                                 FALSE,                       /* SI  */
00590                                 FALSE,                       /* DLE */
00591                                 FALSE,                       /* DC1 */
00592                                 FALSE,                       /* DC2 */
00593                                 FALSE,                       /* DC3 */
00594                                 FALSE,                       /* DC4 */
00595                                 FALSE,                       /* NAK */
00596                                 FALSE,                       /* SYN */
00597                                 FALSE,                       /* ETB */
00598                                 FALSE,                       /* CAN */
00599                                 FALSE,                       /* EM  */
00600                                 FALSE,                       /* SUB */
00601                                 FALSE,                       /* ESC */
00602                                 FALSE,                       /* FS  */
00603                                 FALSE,                       /* GS  */
00604                                 FALSE,                       /* RS  */
00605                                 FALSE,                       /* US  */
00606                                 TRUE ,                       /* SP  */
00607                                 TRUE ,                       /* !   */
00608                                 TRUE ,                       /* "   */
00609                                 FALSE,                       /* #   */
00610                                 TRUE ,                       /* $   */
00611                                 TRUE ,                       /* %   */
00612                                 TRUE ,                       /* &   */
00613                                 TRUE ,                       /* '   */
00614                                 TRUE ,                       /* (   */
00615                                 TRUE ,                       /* )   */
00616                                 TRUE ,                       /* *   */
00617                                 TRUE ,                       /* +   */
00618                                 TRUE ,                       /* ,   */
00619                                 TRUE ,                       /* -   */
00620                                 TRUE ,                       /* .   */
00621                                 TRUE ,                       /* /   */
00622                                 TRUE ,                        /* 0   */
00623                                 TRUE ,                        /* 1   */
00624                                 TRUE ,                        /* 2   */
00625                                 TRUE ,                        /* 3   */
00626                                 TRUE ,                        /* 4   */
00627                                 TRUE ,                        /* 5   */
00628                                 TRUE ,                        /* 6   */
00629                                 TRUE ,                        /* 7   */
00630                                 TRUE ,                        /* 8   */
00631                                 TRUE ,                        /* 9   */
00632                                 TRUE ,                       /* :   */
00633                                 TRUE ,                       /* ;   */
00634                                 TRUE ,                       /* <   */
00635                                 TRUE ,                       /* =   */
00636                                 TRUE ,                       /* >   */
00637                                 TRUE ,                       /* ?   */
00638                                 FALSE,                       /* @   */
00639                                 TRUE ,                       /* A   */
00640                                 TRUE ,                       /* B   */
00641                                 TRUE ,                       /* C   */
00642                                 TRUE ,                       /* D   */
00643                                 TRUE ,                       /* E   */
00644                                 TRUE ,                       /* F   */
00645                                 TRUE ,                       /* G   */
00646                                 TRUE ,                       /* H   */
00647                                 TRUE ,                       /* I   */
00648                                 TRUE ,                       /* J   */
00649                                 TRUE ,                       /* K   */
00650                                 TRUE ,                       /* L   */
00651                                 TRUE ,                       /* M   */
00652                                 TRUE ,                       /* N   */
00653                                 TRUE ,                       /* O   */
00654                                 TRUE ,                       /* P   */
00655                                 TRUE ,                       /* Q   */
00656                                 TRUE ,                       /* R   */
00657                                 TRUE ,                       /* S   */
00658                                 TRUE ,                       /* T   */
00659                                 TRUE ,                       /* U   */
00660                                 TRUE ,                       /* V   */
00661                                 TRUE ,                       /* W   */
00662                                 TRUE ,                       /* X   */
00663                                 TRUE ,                       /* Y   */
00664                                 TRUE ,                       /* Z   */
00665                                 FALSE,                       /* [   */
00666                                 FALSE,                       /* \   */
00667                                 FALSE,                       /* ]   */
00668                                 FALSE,                       /* ^   */
00669                                 TRUE ,                       /* _   */
00670                                 FALSE,                       /* `   */
00671                                 TRUE ,                       /* a   */
00672                                 TRUE ,                       /* b   */
00673                                 TRUE ,                       /* c   */
00674                                 TRUE ,                       /* d   */
00675                                 TRUE ,                       /* e   */
00676                                 TRUE ,                       /* f   */
00677                                 TRUE ,                       /* g   */
00678                                 TRUE ,                       /* h   */
00679                                 TRUE ,                       /* i   */
00680                                 TRUE ,                       /* j   */
00681                                 TRUE ,                       /* k   */
00682                                 TRUE ,                       /* l   */
00683                                 TRUE ,                       /* m   */
00684                                 TRUE ,                       /* n   */
00685                                 TRUE ,                       /* o   */
00686                                 TRUE ,                       /* p   */
00687                                 TRUE ,                       /* q   */
00688                                 TRUE ,                       /* r   */
00689                                 TRUE ,                       /* s   */
00690                                 TRUE ,                       /* t   */
00691                                 TRUE ,                       /* u   */
00692                                 TRUE ,                       /* v   */
00693                                 TRUE ,                       /* w   */
00694                                 TRUE ,                       /* x   */
00695                                 TRUE ,                       /* y   */
00696                                 TRUE ,                       /* z   */
00697                                 FALSE,                       /* {   */
00698                                 FALSE,                       /* |   */
00699                                 FALSE,                       /* }   */
00700                                 FALSE,                       /* ~   */
00701                                 FALSE,                       /* DEL */
00702                                 FALSE,                       /* 128 */
00703                                 FALSE,                       /* 129 */
00704                                 FALSE,                       /* 130 */
00705                                 FALSE,                       /* 131 */
00706                                 FALSE,                       /* 132 */
00707                                 FALSE,                       /* 133 */
00708                                 FALSE,                       /* 134 */
00709                                 FALSE,                       /* 135 */
00710                                 FALSE,                       /* 136 */
00711                                 FALSE,                       /* 137 */
00712                                 FALSE,                       /* 138 */
00713                                 FALSE,                       /* 139 */
00714                                 FALSE,                       /* 140 */
00715                                 FALSE,                       /* 141 */
00716                                 FALSE,                       /* 142 */
00717                                 FALSE,                       /* 143 */
00718                                 FALSE,                       /* 144 */
00719                                 FALSE,                       /* 145 */
00720                                 FALSE,                       /* 146 */
00721                                 FALSE,                       /* 147 */
00722                                 FALSE,                       /* 148 */
00723                                 FALSE,                       /* 149 */
00724                                 FALSE,                       /* 150 */
00725                                 FALSE,                       /* 151 */
00726                                 FALSE,                       /* 152 */
00727                                 FALSE,                       /* 153 */
00728                                 FALSE,                       /* 154 */
00729                                 FALSE,                       /* 155 */
00730                                 FALSE,                       /* 156 */
00731                                 FALSE,                       /* 157 */
00732                                 FALSE,                       /* 158 */
00733                                 FALSE,                       /* 159 */
00734                                 FALSE,                       /* 160 */
00735                                 FALSE,                       /* 161 */
00736                                 FALSE,                       /* 162 */
00737                                 FALSE,                       /* 163 */
00738                                 FALSE,                       /* 164 */
00739                                 FALSE,                       /* 165 */
00740                                 FALSE,                       /* 166 */
00741                                 FALSE,                       /* 167 */
00742                                 FALSE,                       /* 168 */
00743                                 FALSE,                       /* 169 */
00744                                 FALSE,                       /* 170 */
00745                                 FALSE,                       /* 171 */
00746                                 FALSE,                       /* 172 */
00747                                 FALSE,                       /* 173 */
00748                                 FALSE,                       /* 174 */
00749                                 FALSE,                       /* 175 */
00750                                 FALSE,                       /* 176 */
00751                                 FALSE,                       /* 177 */
00752                                 FALSE,                       /* 178 */
00753                                 FALSE,                       /* 179 */
00754                                 FALSE,                       /* 180 */
00755                                 FALSE,                       /* 181 */
00756                                 FALSE,                       /* 182 */
00757                                 FALSE,                       /* 183 */
00758                                 FALSE,                       /* 184 */
00759                                 FALSE,                       /* 185 */
00760                                 FALSE,                       /* 186 */
00761                                 FALSE,                       /* 187 */
00762                                 FALSE,                       /* 188 */
00763                                 FALSE,                       /* 189 */
00764                                 FALSE,                       /* 190 */
00765                                 FALSE,                       /* 191 */
00766                                 FALSE,                       /* 192 */
00767                                 FALSE,                       /* 193 */
00768                                 FALSE,                       /* 194 */
00769                                 FALSE,                       /* 195 */
00770                                 FALSE,                       /* 196 */
00771                                 FALSE,                       /* 197 */
00772                                 FALSE,                       /* 198 */
00773                                 FALSE,                       /* 199 */
00774                                 FALSE,                       /* 200 */
00775                                 FALSE,                       /* 201 */
00776                                 FALSE,                       /* 202 */
00777                                 FALSE,                       /* 203 */
00778                                 FALSE,                       /* 204 */
00779                                 FALSE,                       /* 205 */
00780                                 FALSE,                       /* 206 */
00781                                 FALSE,                       /* 207 */
00782                                 FALSE,                       /* 208 */
00783                                 FALSE,                       /* 209 */
00784                                 FALSE,                       /* 210 */
00785                                 FALSE,                       /* 211 */
00786                                 FALSE,                       /* 212 */
00787                                 FALSE,                       /* 213 */
00788                                 FALSE,                       /* 214 */
00789                                 FALSE,                       /* 215 */
00790                                 FALSE,                       /* 216 */
00791                                 FALSE,                       /* 217 */
00792                                 FALSE,                       /* 218 */
00793                                 FALSE,                       /* 219 */
00794                                 FALSE,                       /* 220 */
00795                                 FALSE,                       /* 221 */
00796                                 FALSE,                       /* 222 */
00797                                 FALSE,                       /* 223 */
00798                                 FALSE,                       /* 224 */
00799                                 FALSE,                       /* 225 */
00800                                 FALSE,                       /* 226 */
00801                                 FALSE,                       /* 227 */
00802                                 FALSE,                       /* 228 */
00803                                 FALSE,                       /* 229 */
00804                                 FALSE,                       /* 230 */
00805                                 FALSE,                       /* 231 */
00806                                 FALSE,                       /* 232 */
00807                                 FALSE,                       /* 233 */
00808                                 FALSE,                       /* 234 */
00809                                 FALSE,                       /* 235 */
00810                                 FALSE,                       /* 236 */
00811                                 FALSE,                       /* 237 */
00812                                 FALSE,                       /* 238 */
00813                                 FALSE,                       /* 239 */
00814                                 FALSE,                       /* 240 */
00815                                 FALSE,                       /* 241 */
00816                                 FALSE,                       /* 242 */
00817                                 FALSE,                       /* 243 */
00818                                 FALSE,                       /* 244 */
00819                                 FALSE,                       /* 245 */
00820                                 FALSE,                       /* 246 */
00821                                 FALSE,                       /* 247 */
00822                                 FALSE,                       /* 248 */
00823                                 FALSE,                       /* 249 */
00824                                 FALSE,                       /* 250 */
00825                                 FALSE,                       /* 251 */
00826                                 FALSE,                       /* 252 */
00827                                 FALSE,                       /* 253 */
00828                                 FALSE,                       /* 254 */
00829                                 FALSE };                        /* 255 */
00830 
00831 
00832 # ifdef _DEBUG
00833    static char *line_type_str[] = {
00834       "Comment_Line",     /* Comment_Line       */
00835       "Include_Line",     /* Include_Line       */
00836       "Cond_Comp_Line",               /* Cond_Comp_Line     */
00837       "Dir_Line",     /* Dir_Line       */
00838       "Regular_Line",     /* Regular_Line       */
00839       "Continuation_Line",    /* Continuation_Line  */
00840       "EOF_Line"      /* EOF_Line       */
00841     };
00842 
00843    static char *ch_str[] = {
00844       "EOS", "SOH", "STX", "ETX", "EOT", "ENQ", "ACK", "BEL",
00845       "BS",  "TAB", "LF",  "VT",  "FF",  "CR",  "SO",  "SI",
00846       "DLE", "DC1", "DC2", "DC3", "DC4", "NAK", "SYN", "ETB",
00847       "CAN", "EM",  "SUB", "ESC", "FS",  "GS",  "RS",  "US",
00848       "SP",  "!",   "\"",  "#",   "$",   "%",   "&",   "'",
00849       "(",   ")",   "*",   "+",   ",",   "-",   ".",   "/",
00850       "0",   "1",   "2",   "3",   "4",   "5",   "6",   "7",
00851       "8",   "9",   ":",   ";",   "<",   "=",   ">",   "?",
00852       "@",   "A",   "B",   "C",   "D",   "E",   "F",   "G",
00853       "H",   "I",   "J",   "K",   "L",   "M",   "N",   "O",
00854       "P",   "Q",   "R",   "S",   "T",   "U",   "V",   "W",
00855       "X",   "Y",   "Z",   "[",   "\\",  "]",   "^",   "_", 
00856       "`",   "a",   "b",   "c",   "d",   "e",   "f",   "g", 
00857       "h",   "i",   "j",   "k",   "l",   "m",   "n",   "o", 
00858       "p",   "q",   "r",   "s",   "t",   "u",   "v",   "w",
00859       "x",   "y",   "z",   "{",   "|",   "}",   "~",   "DEL",
00860       "128", "129", "130", "131", "132", "133", "134", "135",
00861       "136", "137", "138", "139", "140", "141", "142", "143",
00862       "144", "145", "146", "147", "148", "149", "150", "151",
00863       "152", "153", "154", "155", "156", "157", "158", "159",
00864       "160", "161", "162", "163", "164", "165", "166", "167",
00865       "168", "169", "170", "171", "172", "173", "174", "175",
00866       "176", "177", "178", "179", "180", "181", "182", "183",
00867       "184", "185", "186", "187", "188", "189", "190", "191",
00868       "192", "193", "194", "195", "196", "197", "198", "199",
00869       "200", "201", "202", "203", "204", "205", "206", "207",
00870       "208", "209", "210", "211", "212", "213", "214", "215",
00871       "216", "217", "218", "219", "220", "221", "222", "223",
00872       "224", "225", "226", "227", "228", "229", "230", "231",
00873       "232", "233", "234", "235", "236", "237", "238", "239",
00874       "240", "241", "242", "243", "244", "245", "246", "247",
00875       "248", "249", "250", "251", "252", "253", "254", "EOF"
00876     };
00877 # endif
00878 
00879 /*************************************\
00880 |* objects referenced by this module *|
00881 \*************************************/
00882 extern boolean  sig_blank;
00883 extern la_type  stmt_EOS_la_ch;
00884 
00885 static boolean havent_issued_tab_ansi;
00886 static boolean havent_issued_at_ansi;
00887 static boolean havent_issued_dollar_ansi;
00888 
00889 extern boolean parse_cc_line(void);
00890 extern boolean is_par_directive (int);
00891 extern boolean is_dollar_directive (int);
00892 extern boolean is_star_directive (int);
00893 
00894 extern boolean scan_fortran_stmt(void);
00895 extern boolean scan_fixed_comment(void);
00896 
00897 extern void check_for_continued_macro(void);
00898 
00899 FILE  *dot_i_fptr;
00900 
00901 boolean angle_brkt_include = FALSE;
00902 
00903 /* save variables */
00904 int save_prev_char_delim;
00905 int save_prev_char_delim_idx;
00906 int save_previous_char;
00907 boolean save_seen_lp_eq_slash;
00908 int save_char_delim;
00909 int save_digit_start;
00910 int save_format_idx;
00911 boolean save_in_format;
00912 line_type save_expected_line;
00913 boolean save_first_line;
00914 
00915 boolean issue_pound_exit_line = FALSE;
00916 
00917 extern  char                    cc_stmt_buf[MAX_STMT_CHAR_SIZE];
00918 extern  int     cc_stmt_buf_idx;
00919 extern  cc_stmt_buf_line_type   cc_stmt_buf_line[200];
00920 extern  long                    cc_stmt_buf_num_lines;
00921 
00922 long  previous_global_line;
osprey/crayf90/fe90/src_input.h
