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 91 of file fortranscanner.l.

Member Enumeration Documentation

◆ Direction

enum SymbolModifiers::Direction

Enumerator
NONE_D
IN
OUT
INOUT

Definition at line 94 of file fortranscanner.l.

94{NONE_D, IN, OUT, INOUT};

◆ Protection

enum SymbolModifiers::Protection

Enumerator
NONE_P
PUBLIC
PRIVATE

Definition at line 93 of file fortranscanner.l.

93{NONE_P, PUBLIC, PRIVATE};

Constructor & Destructor Documentation

◆ SymbolModifiers()

SymbolModifiers::SymbolModifiers ( )

inline

Definition at line 120 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 2252 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 2279 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;
}