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\|= (QCString mdfrString)

Public Attributes
QCString	type
	This is only used with function return value.
QCString	returnName
Protection	protection
Direction	direction
bool	optional
bool	protect
QCString	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
QCString	passVar
QCString	bindVar

Detailed Description

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

Definition at line 98 of file fortranscanner.l.

Member Enumeration Documentation

◆ Direction

enum SymbolModifiers::Direction

Enumerator
NONE_D
IN
OUT
INOUT

Definition at line 101 of file fortranscanner.l.

101{NONE_D, IN, OUT, INOUT};

◆ Protection

enum SymbolModifiers::Protection

Enumerator
NONE_P
PUBLIC
PRIVATE

Definition at line 100 of file fortranscanner.l.

100{NONE_P, PUBLIC, PRIVATE};

Constructor & Destructor Documentation

◆ SymbolModifiers()

SymbolModifiers::SymbolModifiers ( )

inline

Definition at line 127 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, FALSE, 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 2261 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.isEmpty()) 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, external, intrinsic, QCString::isEmpty(), 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|= ( QCString mdfStringArg )

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

Definition at line 2288 of file fortranscanner.l.

{
  QCString mdfString = mdfStringArg.lower();
  SymbolModifiers newMdf;
 
  if (mdfString.find("dimension")==0)
  {
    newMdf.dimension=mdfString;
  }
  else if (mdfString.contains("intent"))
  {
    QCString tmp = extractFromParens(mdfString);
    bool isin = tmp.contains("in")!=0;
    bool isout = tmp.contains("out")!=0;
    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;
}