Inheritance diagram for psyclone.f2pygen.SelectionGen:

Collaboration diagram for psyclone.f2pygen.SelectionGen:

Public Member Functions
def	__init__ (self, parent, expr="UNSET", typeselect=False)

def	addcase (self, casenames, content=None)

def	adddefault (self)

Public Member Functions inherited from psyclone.f2pygen.BaseGen
def	__init__ (self, parent, root)

def	parent (self)

def	children (self)

def	root (self)

def	add (self, new_object, position=None)

def	previous_loop (self)

def	last_declaration (self)

def	start_parent_loop (self, debug=False)

Detailed Description

 Generate a Fortran SELECT block

Definition at line 1296 of file f2pygen.py.

Constructor & Destructor Documentation

◆ init()

def psyclone.f2pygen.SelectionGen.__init__	(	self,
		parent,
		expr = `"UNSET"`,
		typeselect = `False`
	)

Construct a SelectionGen for creating a SELECT block

:param parent: node to which to add this select block as a child
:type parent: :py:class:`psyclone.f2pygen.BaseGen`
:param str expr: the CASE expression
:param bool typeselect: whether or not this is a SELECT TYPE rather
                        than a SELECT CASE

Definition at line 1300 of file f2pygen.py.

     def __init__(self, parent, expr="UNSET", typeselect=False):
         '''
         Construct a SelectionGen for creating a SELECT block
  
         :param parent: node to which to add this select block as a child
         :type parent: :py:class:`psyclone.f2pygen.BaseGen`
         :param str expr: the CASE expression
         :param bool typeselect: whether or not this is a SELECT TYPE rather
                                 than a SELECT CASE
         '''
         self._typeselect = typeselect
         reader = FortranStringReader(
             "SELECT CASE (x)\nCASE (1)\nCASE DEFAULT\nEND SELECT")
         reader.set_format(FortranFormat(True, True))  # free form, strict
         select_line = reader.next()
         self._case_line = reader.next()
         self._case_default_line = reader.next()
         end_select_line = reader.next()
         if self._typeselect:
             select = SelectType(parent.root, select_line)
         else:
             select = SelectCase(parent.root, select_line)
         endselect = EndSelect(select, end_select_line)
         select.expr = expr
         select.content.append(endselect)
         BaseGen.__init__(self, parent, select)
  

References psyclone.f2pygen.SelectionGen._case_default_line, psyclone.f2pygen.SelectionGen._case_line, and psyclone.f2pygen.SelectionGen._typeselect.

Member Function Documentation

◆ addcase()

def psyclone.f2pygen.SelectionGen.addcase	(	self,
		casenames,
		content = `None`
	)

 Add a case to this select block

Definition at line 1327 of file f2pygen.py.

     def addcase(self, casenames, content=None):
         ''' Add a case to this select block '''
         if content is None:
             content = []
         if self._typeselect:
             case = TypeCase(self.root, self._case_line)
         else:
             case = Case(self.root, self._case_line)
         case.items = [casenames]
         self.root.content.insert(0, case)
         idx = 0
         for stmt in content:
             idx += 1
             self.root.content.insert(idx, stmt.root)
  

References psyclone.f2pygen.SelectionGen._case_line, psyclone.f2pygen.SelectionGen._typeselect, psyclone.f2pygen.BaseGen.root(), psyclone.f2pygen.BaseDeclGen.root(), and psyclone.psyir.nodes.node.Node.root().

Here is the call graph for this function:

◆ adddefault()

def psyclone.f2pygen.SelectionGen.adddefault ( self )

 Add the default case to this select block

Definition at line 1342 of file f2pygen.py.

     def adddefault(self):
         ''' Add the default case to this select block '''
         if self._typeselect:
             case_default = TypeCase(self.root, self._case_default_line)
         else:
             case_default = Case(self.root, self._case_default_line)
         self.root.content.insert(len(self.root.content)-1, case_default)
  
  

References psyclone.f2pygen.SelectionGen._case_default_line, psyclone.f2pygen.SelectionGen._typeselect, psyclone.f2pygen.BaseGen.root(), psyclone.f2pygen.BaseDeclGen.root(), and psyclone.psyir.nodes.node.Node.root().