src/whirl2xaif/wn2xaif_io.cxx File Reference

#include "Open64IRInterface/Open64BasicTypes.h"
#include "wn2xaif.h"
#include "wn2xaif_mem.h"
#include "wn2xaif_io.h"
#include "st2xaif.h"
#include "ty2xaif.h"

Include dependency graph for wn2xaif_io.cxx:

Go to the source code of this file.

Namespaces
namespace	whirl2xaif
Typedefs
typedef void(*	XlateWNHandlerFunc )(xml::ostream &, WN *, PUXlationContext &)
Functions
static void	WN2F_ios_backspace (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_close (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_definefile (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_delete (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_endfile (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_find (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_inquire (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_namelist (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_open (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_rewind (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_unlock (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_accept (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_decode (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_encode (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_print (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_read (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_rewrite (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_type (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_write (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static void	WN2F_ios_cr (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
static BOOL	xlate_IO_ITEM_unit (xml::ostream &xos, WN *item, PUXlationContext &ctxt)
static BOOL	xlate_IO_ITEM_format (xml::ostream &xos, WN *item, PUXlationContext &ctxt)
static BOOL	xlate_IO_ITEM_control (xml::ostream &xos, WN *item, PUXlationContext &ctxt)
static BOOL	xlate_IO_ITEM_list (xml::ostream &xos, WN *item, PUXlationContext &ctxt)
static void	WN2F_Io_initialize (void)
static BOOL	Is_Cray_IO (IOSTATEMENT ios)
static void	xlate_IOControlList (xml::ostream &xos, WN *ios, INT from_kid, INT to_kid, PUXlationContext &ctxt)
static void	xlate_IOList (xml::ostream &xos, WN *ios, INT from_kid, PUXlationContext &ctxt)
void	whirl2xaif::WN2F_implied_do (xml::ostream &xos, WN *wn, PUXlationContext &ctxt)
Variables
static UINT32	Origfmt_Ioctrl_Label
static XlateWNHandlerFunc	XlateWNio_HandlerTable [IOSTATEMENT_LAST+1]
static bool	HandlerTableInitialized = false

---

Typedef Documentation

typedef void(* XlateWNHandlerFunc)(xml::ostream &, WN *, PUXlationContext &)

Definition at line 126 of file wn2xaif_io.cxx.

---

Function Documentation

static BOOL Is_Cray_IO

(

IOSTATEMENT

ios

)

[static]

Definition at line 169 of file wn2xaif_io.cxx.

Referenced by whirl2xaif::xlate_IO().

static void WN2F_Io_initialize

(

void

)

[static]

Definition at line 131 of file wn2xaif_io.cxx.

References WN2F_ios_accept(), WN2F_ios_backspace(), WN2F_ios_close(), WN2F_ios_cr(), WN2F_ios_decode(), WN2F_ios_definefile(), WN2F_ios_delete(), WN2F_ios_encode(), WN2F_ios_endfile(), WN2F_ios_find(), WN2F_ios_inquire(), WN2F_ios_namelist(), WN2F_ios_open(), WN2F_ios_print(), WN2F_ios_read(), WN2F_ios_rewind(), WN2F_ios_rewrite(), WN2F_ios_type(), WN2F_ios_unlock(), WN2F_ios_write(), and XlateWNio_HandlerTable.

Referenced by whirl2xaif::xlate_IO().

Here is the call graph for this function:

static void WN2F_ios_accept	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 835 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_backspace	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 601 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, IS_IO_ITEM_IOU, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_close	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 623 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegAttr(), xml::BegElem(), XAIFStringRepository::elem_Marker(), xml::EndAttr(), xml::EndElem(), whirl2xaif::PUXlationContext::findWNId(), FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::WhirlIdAnnotVal(), WN_IOSTMT, XAIFStrings, and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_cr	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 1133 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegAttr(), xml::BegElem(), whirl2xaif::PUXlationContext::currentXlationContext(), XAIFStringRepository::elem_Marker(), xml::EndAttr(), xml::EndElem(), whirl2xaif::PUXlationContext::findWNId(), whirl2xaif::XlationContext::FMT_IO, FORTTK_ASSERT, IS_IO_ITEM_IOL, whirl2xaif::XlationContext::setFlag(), fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::WhirlIdAnnotVal(), XAIFStrings, xlate_IOControlList(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_decode	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 851 of file wn2xaif_io.cxx.

References whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, FORTTK_ASSERT, FORTTK_ASSERT_WARN, IS_IO_ITEM_IOC, whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOITEM, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_definefile	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 648 of file wn2xaif_io.cxx.

References whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, FORTTK_ASSERT, whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::XlationContext::unsetFlag(), WN_IOSTMT, WN_Tree_Type(), and xlate_IO_ITEM_unit().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_delete	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 690 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_encode	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 907 of file wn2xaif_io.cxx.

References whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, FORTTK_ASSERT, FORTTK_ASSERT_WARN, IS_IO_ITEM_IOC, whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOITEM, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_endfile	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 705 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, IS_IO_ITEM_IOU, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_find	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 726 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_inquire	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 741 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegAttr(), xml::BegElem(), whirl2xaif::PUXlationContext::currentXlationContext(), XAIFStringRepository::elem_Marker(), xml::EndAttr(), xml::EndElem(), whirl2xaif::PUXlationContext::findWNId(), FORTTK_ASSERT, whirl2xaif::XlationContext::getNewVertexId(), fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::WhirlIdAnnotVal(), WN_IOSTMT, XAIFStrings, and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_namelist	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 768 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_open	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 784 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegAttr(), xml::BegElem(), XAIFStringRepository::elem_Marker(), xml::EndAttr(), xml::EndElem(), whirl2xaif::PUXlationContext::findWNId(), FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::WhirlIdAnnotVal(), WN_IOSTMT, and XAIFStrings.

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_print	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 963 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, IS_IO_ITEM_IOU, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_read	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 994 of file wn2xaif_io.cxx.

References whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_IO_ITEM, IS_IO_ITEM_IOF, IS_IO_ITEM_IOL, whirl2xaif::XlationContext::setFlag(), WN_IOITEM, whirl2xaif::xlate_IO_ITEM(), xlate_IOControlList(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_rewind	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 802 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegAttr(), xml::BegElem(), XAIFStringRepository::elem_Marker(), xml::EndAttr(), xml::EndElem(), whirl2xaif::PUXlationContext::findWNId(), FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::WhirlIdAnnotVal(), WN_IOSTMT, and XAIFStrings.

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_rewrite	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 1043 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, IS_IO_ITEM_IOL, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, xlate_IOControlList(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_type	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 1077 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_unlock	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 815 of file wn2xaif_io.cxx.

References FORTTK_ASSERT, IS_IO_ITEM_IOU, fortTkSupport::Diagnostics::UnexpectedOpr, WN_IOSTMT, whirl2xaif::xlate_IO_ITEM(), and xlate_IOControlList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static void WN2F_ios_write	(	xml::ostream &	xos,
		WN *	wn,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 1093 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegAttr(), xml::BegElem(), XAIFStringRepository::elem_Marker(), xml::EndAttr(), xml::EndElem(), whirl2xaif::PUXlationContext::findWNId(), IS_IO_ITEM_IOL, whirl2xaif::WhirlIdAnnotVal(), XAIFStrings, xlate_IOControlList(), and xlate_IOList().

Referenced by WN2F_Io_initialize().

Here is the call graph for this function:

static BOOL xlate_IO_ITEM_control	(	xml::ostream &	xos,
		WN *	item,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 417 of file wn2xaif_io.cxx.

References sexp::BegComment(), whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, sexp::EndComment(), FORTTK_ASSERT, FORTTK_ASSERT_WARN, FORTTK_DEVMSG, whirl2xaif::XlationContext::HAS_LOGICAL_ARG, Num2Str(), Origfmt_Ioctrl_Label, whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), fortTkSupport::Diagnostics::UnexpectedOpr, fortTkSupport::Diagnostics::Unimplemented, whirl2xaif::XlationContext::unsetFlag(), whirl2xaif::WN2F_String_Argument(), WN_IOITEM, and WN_Tree_Type().

Referenced by whirl2xaif::xlate_IO_ITEM().

Here is the call graph for this function:

static BOOL xlate_IO_ITEM_format	(	xml::ostream &	xos,
		WN *	item,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 329 of file wn2xaif_io.cxx.

References sexp::BegComment(), sexp::Comment(), whirl2xaif::XlationContext::CRAY_IO, whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, sexp::EndComment(), whirl2xaif::XlationContext::FMT_IO, FORTTK_ASSERT_WARN, FORTTK_DIE, IS_IO_NULL_OPR, whirl2xaif::XlationContext::isFlag(), Num2Str(), whirl2xaif::XlationContext::ORIGFMT_IOCTRL, Origfmt_Ioctrl_Label, whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::WN2F_String_Argument(), and WN_IOITEM.

Referenced by whirl2xaif::xlate_IO_ITEM().

Here is the call graph for this function:

static BOOL xlate_IO_ITEM_list	(	xml::ostream &	xos,
		WN *	item,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 520 of file wn2xaif_io.cxx.

References whirl2xaif::XlationContext::CRAY_IO, whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, FORTTK_DIE, whirl2xaif::XlationContext::HAS_LOGICAL_ARG, whirl2xaif::XlationContext::isFlag(), whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), TY_Is_Pointer(), fortTkSupport::Diagnostics::UnexpectedOpr, whirl2xaif::XlationContext::unsetFlag(), whirl2xaif::WN2F_implied_do(), whirl2xaif::WN2F_String_Argument(), and WN_IOITEM.

Referenced by whirl2xaif::xlate_IO_ITEM().

Here is the call graph for this function:

static BOOL xlate_IO_ITEM_unit	(	xml::ostream &	xos,
		WN *	item,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 295 of file wn2xaif_io.cxx.

References sexp::BegComment(), sexp::Comment(), whirl2xaif::PUXlationContext::currentXlationContext(), whirl2xaif::XlationContext::DEREF_ADDR, sexp::EndComment(), FORTTK_DIE, whirl2xaif::XlationContext::setFlag(), whirl2xaif::TranslateWN(), fortTkSupport::Diagnostics::UnexpectedOpr, and WN_IOITEM.

Referenced by WN2F_ios_definefile(), and whirl2xaif::xlate_IO_ITEM().

Here is the call graph for this function:

static void xlate_IOControlList	(	xml::ostream &	xos,
		WN *	ios,
		INT	from_kid,
		INT	to_kid,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 263 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegElem(), whirl2xaif::PUXlationContext::createXlationContext(), whirl2xaif::PUXlationContext::deleteXlationContext(), xml::EndElem(), and whirl2xaif::xlate_IO_ITEM().

Referenced by WN2F_ios_backspace(), WN2F_ios_close(), WN2F_ios_cr(), WN2F_ios_delete(), WN2F_ios_endfile(), WN2F_ios_find(), WN2F_ios_inquire(), WN2F_ios_read(), WN2F_ios_rewrite(), WN2F_ios_unlock(), and WN2F_ios_write().

Here is the call graph for this function:

static void xlate_IOList	(	xml::ostream &	xos,
		WN *	ios,
		INT	from_kid,
		PUXlationContext &	ctxt
	)		[static]

Definition at line 277 of file wn2xaif_io.cxx.

References xml::Attr(), xml::BegElem(), whirl2xaif::PUXlationContext::createXlationContext(), whirl2xaif::PUXlationContext::deleteXlationContext(), xml::EndElem(), and whirl2xaif::xlate_IO_ITEM().

Referenced by WN2F_ios_accept(), WN2F_ios_cr(), WN2F_ios_decode(), WN2F_ios_encode(), WN2F_ios_namelist(), WN2F_ios_print(), WN2F_ios_read(), WN2F_ios_rewrite(), WN2F_ios_type(), and WN2F_ios_write().

Here is the call graph for this function:

---

Variable Documentation

bool HandlerTableInitialized = false [static]

Definition at line 128 of file wn2xaif_io.cxx.

Referenced by whirl2xaif::xlate_IO().

UINT32 Origfmt_Ioctrl_Label [static]

Definition at line 122 of file wn2xaif_io.cxx.

Referenced by whirl2xaif::xlate_IO(), xlate_IO_ITEM_control(), and xlate_IO_ITEM_format().

XlateWNHandlerFunc XlateWNio_HandlerTable[IOSTATEMENT_LAST+1] [static]

Definition at line 127 of file wn2xaif_io.cxx.

Referenced by WN2F_Io_initialize(), and whirl2xaif::xlate_IO().