Holds yyextra->modifiers (ie attributes) for one symbol (variable, function, etc). More...

Collaboration diagram for SymbolModifiers:

Public Types
enum	Protection { NONE_P , PUBLIC , PRIVATE }
enum	Direction { NONE_D , IN , OUT , INOUT }

Public Member Functions
	SymbolModifiers ()
SymbolModifiers &	operator\|= (const SymbolModifiers &mdfs)
SymbolModifiers &	operator\|= (DString mdfrString)

Public Attributes
DString	type
	This is only used with function return value.
DString	returnName
Protection	protection
Direction	direction
bool	optional
bool	protect
DString	dimension
bool	allocatable
bool	external
bool	intrinsic
bool	parameter
bool	pointer
bool	target
bool	save
bool	deferred
bool	nonoverridable
bool	nopass
bool	pass
bool	contiguous
bool	volat
bool	value
DString	passVar
DString	bindVar

Detailed Description

Holds yyextra->modifiers (ie attributes) for one symbol (variable, function, etc).

Definition at line 96 of file fortranscanner.l.

Member Enumeration Documentation

◆ Direction

enum SymbolModifiers::Direction

Enumerator
NONE_D
IN
OUT
INOUT

Definition at line 99 of file fortranscanner.l.

99{NONE_D, IN, OUT, INOUT};

◆ Protection

enum SymbolModifiers::Protection

Enumerator
NONE_P
PUBLIC
PRIVATE

Definition at line 98 of file fortranscanner.l.

98{NONE_P, PUBLIC, PRIVATE};

Constructor & Destructor Documentation

◆ SymbolModifiers()

SymbolModifiers::SymbolModifiers ( )

inline

Definition at line 125 of file fortranscanner.l.

                    : type(), returnName(), protection(NONE_P), direction(NONE_D),
    optional(false), protect(false), dimension(), allocatable(false),
    external(false), intrinsic(false), parameter(false),
    pointer(false), target(false), save(false), deferred(false), nonoverridable(false),
    nopass(false), pass(false), contiguous(false), volat(false), value(false), passVar(),
    bindVar() {}

References allocatable, bindVar, contiguous, deferred, dimension, direction, external, intrinsic, NONE_D, NONE_P, nonoverridable, nopass, optional, parameter, pass, passVar, pointer, protect, protection, returnName, save, target, type, value, and volat.

Referenced by operator|=(), and operator|=().

Member Function Documentation

◆ operator|=() [1/2]

SymbolModifiers & SymbolModifiers::operator|= ( const SymbolModifiers & mdfs )

Adds passed yyextra->modifiers to these yyextra->modifiers.

Definition at line 2343 of file fortranscanner.l.

{
  if (mdfs.protection!=NONE_P) protection = mdfs.protection;
  if (mdfs.direction!=NONE_D) direction = mdfs.direction;
  optional |= mdfs.optional;
  if (!mdfs.dimension.empty()) dimension = mdfs.dimension;
  allocatable |= mdfs.allocatable;
  external |= mdfs.external;
  intrinsic |= mdfs.intrinsic;
  protect |= mdfs.protect;
  parameter |= mdfs.parameter;
  pointer |= mdfs.pointer;
  target |= mdfs.target;
  save |= mdfs.save;
  deferred |= mdfs.deferred;
  nonoverridable |= mdfs.nonoverridable;
  nopass |= mdfs.nopass;
  pass |= mdfs.pass;
  passVar = mdfs.passVar;
  bindVar = mdfs.bindVar;
  contiguous |= mdfs.contiguous;
  volat |= mdfs.volat;
  value |= mdfs.value;
  return *this;
}

References allocatable, bindVar, contiguous, deferred, dimension, direction, DString::empty(), external, intrinsic, NONE_D, NONE_P, nonoverridable, nopass, optional, parameter, pass, passVar, pointer, protect, protection, save, SymbolModifiers(), target, value, and volat.

◆ operator|=() [2/2]

SymbolModifiers & SymbolModifiers::operator|= ( DString mdfStringArg )

Extracts and adds passed modifier to these yyextra->modifiers.

Definition at line 2370 of file fortranscanner.l.

{
  DString mdfString = mdfStringArg.lower();
  SymbolModifiers newMdf;
 
  if (mdfString.startsWith("dimension"))
  {
    newMdf.dimension=mdfString;
  }
  else if (mdfString.contains("intent"))
  {
    DString tmp = extractFromParens(mdfString);
    bool isin = tmp.find("in")!=DString::npos;
    bool isout = tmp.find("out")!=DString::npos;
    if (isin && isout) newMdf.direction = SymbolModifiers::INOUT;
    else if (isin) newMdf.direction = SymbolModifiers::IN;
    else if (isout) newMdf.direction = SymbolModifiers::OUT;
  }
  else if (mdfString=="public")
  {
    newMdf.protection = SymbolModifiers::PUBLIC;
  }
  else if (mdfString=="private")
  {
    newMdf.protection = SymbolModifiers::PRIVATE;
  }
  else if (mdfString=="protected")
  {
    newMdf.protect = true;
  }
  else if (mdfString=="optional")
  {
    newMdf.optional = true;
  }
  else if (mdfString=="allocatable")
  {
    newMdf.allocatable = true;
  }
  else if (mdfString=="external")
  {
    newMdf.external = true;
  }
  else if (mdfString=="intrinsic")
  {
    newMdf.intrinsic = true;
  }
  else if (mdfString=="parameter")
  {
    newMdf.parameter = true;
  }
  else if (mdfString=="pointer")
  {
    newMdf.pointer = true;
  }
  else if (mdfString=="target")
  {
    newMdf.target = true;
  }
  else if (mdfString=="save")
  {
    newMdf.save = true;
  }
  else if (mdfString=="nopass")
  {
    newMdf.nopass = true;
  }
  else if (mdfString=="deferred")
  {
    newMdf.deferred = true;
  }
  else if (mdfString=="non_overridable")
  {
    newMdf.nonoverridable = true;
  }
  else if (mdfString=="contiguous")
  {
    newMdf.contiguous = true;
  }
  else if (mdfString=="volatile")
  {
    newMdf.volat = true;
  }
  else if (mdfString=="value")
  {
    newMdf.value = true;
  }
  else if (mdfString.contains("pass"))
  {
    newMdf.pass = true;
    if (mdfString.contains("("))
      newMdf.passVar = extractFromParens(mdfString);
    else
      newMdf.passVar = "";
  }
  else if (mdfString.startsWith("bind"))
  {
    // we need here the original string as we want to don't want to have the lowercase name between the quotes of the name= part
    newMdf.bindVar = extractBind(mdfStringArg);
  }
 
  (*this) |= newMdf;
  return *this;
}