Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
src_input.m File Reference
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines

#define CONTINUE_COLUMN   6 /* fixed src continuation col */
#define SIGN_BIT   31
#define NUM_MQ_WDS   5
#define MASK_CHAR_CONST_IDX   017777777400
#define NO_ARG   0
#define STR_ARG   1
#define ARG_ARG   2
#define STR_ARG_ARG   3
#define ARG_STR_ARG   4
#define MULT_STR_ARG   5
#define MAX_ASCII_CHARS   256 /* max ascii characters */
#define FIXED_SRC_LINE_SIZE_72   72 /* std fixed src line size */
#define FIXED_SRC_LINE_SIZE_80   80 /* alt fixed src line size */
#define FIXED_SRC_LINE_SIZE_132   132 /* alt fixed src line size */
#define FREE_SRC_LINE_SIZE   132 /* std free src line size */
#define MAX_SRC_LINE_SIZE   135 /* maximum source line size */
#define MAX_STMT_CHAR_SIZE   13500 /* maximum statement size */
#define MAX_ANSI_FIXED_LINES   20
#define MAX_ANSI_FREE_LINES   40
#define MAX_FIXED_LINES   100
#define MAX_FREE_LINES   100
#define SRC_STK_BASE_IDX   1
#define SRC_STK_CIF_FILE_ID(IDX)   src_stk[IDX].cif_file_id
#define SRC_STK_FILE_IDX(IDX)   src_stk[IDX].file_idx
#define SRC_STK_FILE_LINE(IDX)   src_stk[IDX].file_line
#define SRC_STK_FILE_NAME(IDX)   &src_stk[IDX].path_name[src_stk[IDX].file_idx]
#define SRC_STK_DO_NOT_FCLOSE(IDX)   src_stk[IDX].do_not_fclose
#define SRC_STK_FILE_PTR(IDX)   src_stk[IDX].file_ptr
#define SRC_STK_FILE_TYPE(IDX)   src_stk[IDX].file_type
#define SRC_STK_GLOBAL_LINE_IDX(IDX)   src_stk[IDX].global_line_first_idx
#define SRC_STK_PREV_SRC_FORM(IDX)   src_stk[IDX].prev_src_form
#define SRC_STK_PATH_NAME(IDX)   src_stk[IDX].path_name
#define IS_1TO9(CH)   ((CH) >= one && (CH) <= nine)
#define POP_SRC
#define OUTPUT_POUND_INCLUDE_EXIT_LINE(GLB_LINE)
#define OUTPUT_POUND_LINE_NUM(GLB_LINE)
#define MARK_CHAR_CONST(CH)   ((CH) = (((unsigned)1 << SIGN_BIT) | (CH)))
#define PRINT_STMT_SRC()
#define SAVE_GLOBAL_VARIABLES
#define RESTORE_GLOBAL_VARIABLES
#define NXT_COL(COL)   (nxt_line_start_idx[pp_line_idx]+(COL)-1)
#define PP_IDX_TO_COL(IDX)   ((IDX - nxt_line_start_idx[pp_line_idx]) + 1)
#define PP_IDX   pp_nxt_line_idx[pp_line_idx]
#define PP_LINE_TYPE   pp_nxt_line_type[pp_line_idx]
#define PP_DIR_PREFIX   pp_nxt_line_dir_prefix[pp_line_idx]
#define PP_ACTUAL_DIR_PREFIX   pp_nxt_line_actual_dir_prefix[pp_line_idx]
#define PP_PREFIX_LEN   pp_nxt_line_prefix_len[pp_line_idx]
#define PP_LINE_NUM   pp_nxt_line_num[pp_line_idx]
#define PP_EOL   pp_nxt_line_EOL[pp_line_idx]
#define PP_LABEL   pp_nxt_line_label[pp_line_idx]
#define PP_MP_LINE   pp_nxt_line_mp_line[pp_line_idx]
#define PP_EXPECTED_LINE   pp_expected_line[pp_line_idx]
#define PP_ORIG_SIZE   pp_orig_line_size[pp_line_idx]
#define PP_CHANGE_SOURCE_FORM   pp_change_source_form[pp_line_idx]
#define IS_DIR_CONTINUATION(DIR)

Define Documentation

#define ARG_STR_ARG   4
#define CONTINUE_COLUMN   6 /* fixed src continuation col */
#define FIXED_SRC_LINE_SIZE_132   132 /* alt fixed src line size */

Definition at line 76 of file src_input.m.

Referenced by free_get_char(), init_src_input(), and preprocess_only_driver().

#define FIXED_SRC_LINE_SIZE_72   72 /* std fixed src line size */

Definition at line 74 of file src_input.m.

Referenced by free_get_char(), init_src_input(), and preprocess_only_driver().

#define FIXED_SRC_LINE_SIZE_80   80 /* alt fixed src line size */

Definition at line 75 of file src_input.m.

Referenced by free_get_char(), init_src_input(), and preprocess_only_driver().

#define FREE_SRC_LINE_SIZE   132 /* std free src line size */

Definition at line 77 of file src_input.m.

Referenced by fixed_get_char(), init_src_input(), preprocess_only_driver(), and read_line().

#define IS_1TO9 (   CH)    ((CH) >= one && (CH) <= nine)

Definition at line 111 of file src_input.m.

Referenced by fixed_classify_line().

#define IS_DIR_CONTINUATION (   DIR)
Value:
((nxt_line_num_lines > 1 &&                                     \
     pp_nxt_line_type[1] == Dir_Line &&                         \
     pp_nxt_line_dir_prefix[1] == DIR) ||                       \
    (nxt_line_num_lines <= 1 &&                                 \
     stmt_buf_type == Dir_Line &&                               \
     stmt_buf_dir_prefix == DIR))

Definition at line 207 of file src_input.m.

Referenced by fixed_classify_line(), and free_classify_line().

#define MARK_CHAR_CONST (   CH)    ((CH) = (((unsigned)1 << SIGN_BIT) | (CH)))

Definition at line 151 of file src_input.m.

Referenced by fixed_classify_line(), and free_classify_line().

#define MASK_CHAR_CONST_IDX   017777777400

Definition at line 57 of file src_input.m.

Referenced by put_format_in_tbl().

#define MAX_ANSI_FIXED_LINES   20

Definition at line 84 of file src_input.m.

Referenced by fixed_get_stmt().

#define MAX_ANSI_FREE_LINES   40

Definition at line 85 of file src_input.m.

Referenced by free_get_stmt().

#define MAX_ASCII_CHARS   256 /* max ascii characters */

Definition at line 70 of file src_input.m.

#define MAX_FIXED_LINES   100

Definition at line 86 of file src_input.m.

Referenced by fixed_get_stmt(), and pp_get_stmt().

#define MAX_FREE_LINES   100

Definition at line 87 of file src_input.m.

Referenced by free_get_stmt().

#define MAX_SRC_LINE_SIZE   135 /* maximum source line size */

Definition at line 78 of file src_input.m.

#define MAX_STMT_CHAR_SIZE   13500 /* maximum statement size */

Definition at line 80 of file src_input.m.

Referenced by cc_get_stmt(), read_line(), and shift_nxt_line().

#define MULT_STR_ARG   5

Definition at line 64 of file src_input.m.

Referenced by issue_deferred_msgs().

#define NUM_MQ_WDS   5

Definition at line 53 of file src_input.m.

Referenced by ntr_msg_queue(), and ntr_next_msg_queue().

#define OUTPUT_POUND_INCLUDE_EXIT_LINE (   GLB_LINE)
Value:
if (on_off_flags.output_pound_lines &&                                              \
            (on_off_flags.preprocess_only || on_off_flags.save_dot_i)) {       \
           int _g_idx; int _file_line;                                         \
           GLOBAL_LINE_TO_FILE_LINE(GLB_LINE, _g_idx, _file_line);             \
           fprintf(dot_i_fptr,"# %d \"%s\" 2\n", _file_line,                   \
                   SRC_STK_FILE_NAME(src_stk_idx));                            \
           fprintf(dot_i_fptr,"# %d \"%s\"\n", _file_line,                     \
                   SRC_STK_FILE_NAME(src_stk_idx));                            \
        }

Definition at line 127 of file src_input.m.

Referenced by fixed_get_stmt(), free_get_stmt(), pp_get_stmt(), and preprocess_only_driver().

#define OUTPUT_POUND_LINE_NUM (   GLB_LINE)
Value:
if (on_off_flags.output_pound_lines &&                                              \
            (on_off_flags.preprocess_only || on_off_flags.save_dot_i)) {       \
           int _g_idx; int _file_line;                                         \
           GLOBAL_LINE_TO_FILE_LINE(GLB_LINE, _g_idx, _file_line);             \
           fprintf(dot_i_fptr,"# %d\n", _file_line);                           \
        }

Definition at line 138 of file src_input.m.

Referenced by print_nxt_line().

#define POP_SRC
Value:
{       if (! SRC_STK_DO_NOT_FCLOSE(src_stk_idx))                      \
                   fclose(SRC_STK_FILE_PTR(src_stk_idx));                      \
                if (src_stk_idx == NULL_IDX) { /* src_stk_idx underflow */     \
                   PRINTMSG (curr_glb_line, 12, Internal, 0, "src_stk_idx");   \
                }                                                              \
                src_stk_idx--;                                                 \
        }

Definition at line 118 of file src_input.m.

Referenced by fixed_get_stmt(), free_get_stmt(), and preprocess_only_driver().

#define PP_IDX_TO_COL (   IDX)    ((IDX - nxt_line_start_idx[pp_line_idx]) + 1)

Definition at line 192 of file src_input.m.

Referenced by classify_line(), and print_nxt_line().

Definition at line 201 of file src_input.m.

Referenced by classify_line(), and fixed_classify_line().

#define PRINT_STMT_SRC ( )
Value:
if (dump_flags.src_dmp) {                                      \
                   print_src();                                                \
                }

Definition at line 155 of file src_input.m.

Referenced by fixed_get_stmt(), and free_get_stmt().

Value:
prev_char_delim = save_prev_char_delim;           \
   prev_char_delim_idx = save_prev_char_delim_idx;   \
   previous_char = save_previous_char;               \
   seen_lp_eq_slash = save_seen_lp_eq_slash;         \
   char_delim = save_char_delim;                     \
   digit_start = save_digit_start;                   \
   format_idx = save_format_idx;                     \
   in_format = save_in_format;                       \
   expected_line = save_expected_line;               \
   first_line = save_first_line;

Definition at line 179 of file src_input.m.

Referenced by pp_get_stmt().

Value:
save_prev_char_delim = prev_char_delim;              \
   save_prev_char_delim_idx = prev_char_delim_idx;      \
   save_previous_char = previous_char;                  \
   save_seen_lp_eq_slash = seen_lp_eq_slash;            \
   save_char_delim = char_delim;                        \
   save_digit_start = digit_start;                      \
   save_format_idx = format_idx;                        \
   save_in_format = in_format;                          \
   save_expected_line = expected_line;                  \
   save_first_line = first_line;

Definition at line 167 of file src_input.m.

Referenced by pp_get_stmt().

#define SIGN_BIT   31

Definition at line 49 of file src_input.m.

#define SRC_STK_CIF_FILE_ID (   IDX)    src_stk[IDX].cif_file_id
#define SRC_STK_DO_NOT_FCLOSE (   IDX)    src_stk[IDX].do_not_fclose

Definition at line 100 of file src_input.m.

Referenced by open_include_file().

#define SRC_STK_FILE_IDX (   IDX)    src_stk[IDX].file_idx

Definition at line 97 of file src_input.m.

Referenced by init_src_input(), open_include_file(), and print_src_stk_entry().

#define SRC_STK_FILE_NAME (   IDX)    &src_stk[IDX].path_name[src_stk[IDX].file_idx]

Definition at line 99 of file src_input.m.

Referenced by get_curr_file_name(), init_src_input(), and update_global_line().

#define SRC_STK_FILE_PTR (   IDX)    src_stk[IDX].file_ptr

Definition at line 101 of file src_input.m.

Referenced by init_src_input(), open_include_file(), and read_line().

#define SRC_STK_FILE_TYPE (   IDX)    src_stk[IDX].file_type

Definition at line 102 of file src_input.m.

Referenced by init_src_input(), open_include_file(), and print_src_stk_entry().

#define SRC_STK_GLOBAL_LINE_IDX (   IDX)    src_stk[IDX].global_line_first_idx
#define SRC_STK_PATH_NAME (   IDX)    src_stk[IDX].path_name
#define SRC_STK_PREV_SRC_FORM (   IDX)    src_stk[IDX].prev_src_form
#define STR_ARG_ARG   3

Definition at line 62 of file src_input.m.

Referenced by copy_define_str(), issue_deferred_msgs(), and move_up_next_msg_queue().

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines