Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
p_io.c File Reference
#include "defines.h"
#include "host.m"
#include "host.h"
#include "target.m"
#include "target.h"
#include "globals.m"
#include "tokens.m"
#include "sytb.m"
#include "p_globals.m"
#include "debug.m"
#include "p_io.m"
#include "globals.h"
#include "tokens.h"
#include "sytb.h"
#include "p_globals.h"
#include "p_io.h"
Include dependency graph for p_io.c:

Go to the source code of this file.

Functions

long * _fmt_parse (void(**msg_rtn)(), char *, int, long *, boolean *)
void emit_format_msg (int, int, int)
static int find_ciitem_idx (io_stmt_type)
static boolean parse_io_control_list (opnd_type *, io_stmt_type)
static int pre_parse_format (int, int)
static int create_format_tmp (int)
void parse_backspace_stmt (void)
void parse_buffer_stmt (void)
void parse_close_stmt (void)
void parse_decode_stmt (void)
void parse_encode_stmt (void)
void parse_endfile_stmt (void)
void parse_format_stmt (void)
void parse_inquire_stmt (void)
void parse_open_stmt (void)
void parse_print_stmt (void)
void parse_read_stmt (void)
void parse_rewind_stmt (void)
void parse_write_stmt (void)
boolean parse_io_list (opnd_type *result_opnd)

Variables

static char USMID [] = "\n@(#)5.0_pl/sources/p_io.c 5.3 06/17/99 09:28:10\n"

Function Documentation

long* _fmt_parse ( void(**)()  msg_rtn,
char *  ,
int  ,
long *  ,
boolean  
)
static int create_format_tmp ( int  const_idx) [static]

Definition at line 3276 of file p_io.c.

References Assignment_Stmt, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_DATA_INIT, ATD_FLD, ATD_READ_ONLY_VAR, ATD_SAVED, ATD_STOR_BLK_IDX, ATD_TMP_IDX, ATD_TYPE_IDX, BD_ARRAY_CLASS, BD_ARRAY_SIZE, BD_COLUMN_NUM, BD_LB_FLD, BD_LB_IDX, BD_LEN_FLD, BD_LEN_IDX, BD_LINE_NUM, BD_RANK, BD_RESOLVED, BD_SM_FLD, BD_SM_IDX, BD_UB_FLD, BD_UB_IDX, BD_XT_FLD, BD_XT_IDX, Before, C_INT_TO_CN, Character, Character_4, CLEAR_TBL_NTRY, CN_EXTRA_ZERO_WORD, CN_INT_TO_C, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, CN_TYPE_IDX, Constant_Size, curr_scp_idx, curr_stmt_sh_idx, Explicit_Shape, FALSE, size_offset_entry::fld, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), size_offset_entry::idx, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_PREV_LIST_IDX, IL_Tbl_Idx, Init_Opr, IR_COL_NUM, IR_COL_NUM_L, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LIST_CNT_R, IR_OPR, IR_TYPE_IDX, L, NTR_IR_LIST_TBL, NTR_IR_TBL, ntr_type_tbl(), NULL, NULL_IDX, reserve_array_ntry(), SCP_SB_STACK_IDX, SCP_SB_STATIC_INIT_IDX, set_stride_for_first_dim(), SH_IR_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, Shared, stmt_start_col, stmt_start_line, stride, TRACE, TRUE, TYP_BIT_LEN, TYP_IDX, TYP_TYPE, TYP_WORK_IDX, type_tbl, Typeless, and TYPELESS_DEFAULT_TYPE.

Referenced by parse_decode_stmt(), parse_encode_stmt(), parse_format_stmt(), parse_io_control_list(), parse_print_stmt(), parse_read_stmt(), and parse_write_stmt().

Here is the call graph for this function:

static boolean parse_io_control_list ( opnd_type result_opnd,
io_stmt_type  stmt_type 
) [static]

Definition at line 2523 of file p_io.c.

References ADVANCE_IDX, Ansi, arg_idx_tbl, AT_DCL_ERR, AT_DEFINED, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, AT_REFERENCED, AT_Tbl_Idx, ATL_CLASS, ATP_HAS_ALT_RETURN, Backspace, Backspace_Attr_Idx, build_fwd_ref_entry(), Ch_Class_Digit, Character, check_label_ref(), cif_flags, CIF_Label_Referenced_As_Format, cif_usage_rec(), ciitem_tbl_entry::ciitem_list, ciitem_tbl, Close, Close_Attr_Idx, CN_CONST, CN_INT_TO_C, CN_Tbl_Idx, CN_TYPE_IDX, COMMA, COPY_OPND, create_format_tmp(), curr_stmt_sh_idx, digit_is_format_label(), END_IDX, Endfile, Endfile_Attr_Idx, EOR_IDX, Error, EXIT, Exp_Form, FALSE, FILE_IDX, find_ciitem_idx(), Find_Comma_Rparen, Find_EOS, find_opnd_line_and_column(), FMT_IDX, format_cn_idx, Format_Form, Format_Ref, Func_Entry, Func_Exit, glb_tbl_idx, idx, ignore_trailing_chars, IL_ARG_DESC_VARIANT, IL_COL_NUM, IL_FLD, IL_FORMAT_EXPECTED, IL_IDX, IL_LINE_NUM, IL_LIST_CNT, IL_NAMELIST_EXPECTED, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, Inquire, Inquire_Attr_Idx, io_stmt_str, LA_CH_BUF_IDX, LA_CH_CLASS, LA_CH_COLUMN, LA_CH_LINE, LA_CH_VALUE, Label, Label_Form, Lbl_Format, LN_DEF_LOC, LPAREN, mark_attr_defined(), MATCHED_TOKEN_CLASS, name, Namelist_Form, Namelist_Grp, next_arg_is_kwd_equal(), NEXT_LA_CH, NO_Tbl_Idx, NTR_IR_LIST_TBL, ntr_sym_tbl(), NULL, NULL_IDX, ciitem_tbl_entry::num_ciitems, Open, Open_Attr_Idx, OPND_FLD, OPND_IDX, OPND_LIST_CNT, parse_deref(), parse_err_flush(), parse_expr(), pre_parse_format(), PRINTMSG(), Read, REC_IDX, Referenced, Rewind, Rewind_Attr_Idx, RPAREN, set_format_start_idx(), SH_COL_NUM, SH_GLB_LINE, SIZE_IDX, srch_sym_tbl(), STAR, stmt_start_col, stmt_start_line, stmt_type, Tok_Class_Id, Tok_Class_Label, token, TOKEN_COLUMN, TOKEN_ERR, TOKEN_LEN, TOKEN_LINE, TOKEN_STR, TOUPPER, TRACE, TRUE, TYP_IDX, TYP_TYPE, UNIT_IDX, Var_Only_Form, Write, and XREF_RECS.

Referenced by parse_backspace_stmt(), parse_close_stmt(), parse_endfile_stmt(), parse_inquire_stmt(), parse_open_stmt(), parse_read_stmt(), parse_rewind_stmt(), and parse_write_stmt().

Here is the call graph for this function:

void parse_print_stmt ( void  )

Definition at line 1550 of file p_io.c.

References AT_DCL_ERR, AT_DEFINED, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, AT_Tbl_Idx, ATL_CLASS, ATP_ELEMENTAL, ATP_PURE, build_fwd_ref_entry(), Ch_Class_Digit, Character, cif_flags, CIF_Label_Referenced_As_Format, cif_usage_rec(), ciitem_tbl, CN_Tbl_Idx, CN_TYPE_IDX, COMMA, COPY_OPND, create_format_tmp(), CURR_BLK_NO_EXEC, curr_scp_idx, curr_stmt_category, curr_stmt_sh_idx, digit_is_format_label(), EOS, EOS_STR, Error, Executable_Stmt_Cat, FALSE, Find_Comma, Find_EOS, format_cn_idx, Format_Ref, Func_Entry, Func_Exit, idx, ignore_trailing_chars, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_LIST_CNT, IL_NEXT_LIST_IDX, IL_OPND, IL_PREV_LIST_IDX, IL_Tbl_Idx, INSERT_IO_END, INSERT_IO_START, IR_COL_NUM, IR_FLD_L, IR_IDX_L, IR_LINE_NUM, IR_LIST_CNT_L, IR_OPND_R, IR_OPR, IR_TYPE_IDX, iss_blk_stk_err(), LA_CH_BUF_IDX, LA_CH_CLASS, LA_CH_VALUE, Label, Lbl_Format, cc_stmt_buf_line_entry::line, LN_DEF_LOC, matched_specific_token(), MATCHED_TOKEN_CLASS, NEXT_LA_CH, NTR_IR_LIST_TBL, NTR_IR_TBL, ntr_sym_tbl(), NULL, NULL_IDX, ciitem_tbl_entry::num_ciitems, parse_err_flush(), parse_expr(), parse_io_list(), pre_parse_format(), PRINTMSG(), SCP_ATTR_IDX, set_format_start_idx(), SH_IR_IDX, srch_sym_tbl(), STAR, stmt_type, stmt_type_str, Tok_Class_Label, Tok_Class_Punct, Tok_EOS, token, TOKEN_COLUMN, TOKEN_ERR, TOKEN_LEN, TOKEN_LINE, TOKEN_STR, TRACE, TRUE, TYP_TYPE, TYPELESS_DEFAULT_TYPE, Write, Write_Formatted_Opr, and XREF_RECS.

Here is the call graph for this function:

void parse_read_stmt ( void  )

Variable Documentation

char USMID[] = "\n@(#)5.0_pl/sources/p_io.c 5.3 06/17/99 09:28:10\n" [static]

Definition at line 37 of file p_io.c.

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines