C++ (Cpp) SgUntypedNamedStatement::set_statement_name Beispiele

Beispiel #1

//========================================================================================
// R1103 end-program-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_EndProgramStmt(EndProgramStmt * endProgramStmt)
{
   Sg_File_Info * start = NULL;
   SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start);
   stmt->set_statement_enum(SgToken::FORTRAN_END_PROGRAM);

   if (endProgramStmt->getLabel())       stmt->set_label_string  (endProgramStmt->getLabel()->getValue());
   if (endProgramStmt->getProgramName()) stmt->set_statement_name(endProgramStmt->getProgramName()->getIdent()->getValue());

   endProgramStmt->setPayload(stmt);
}

Beispiel #2

Datei: UntypedASTBuilder.cpp Projekt: Federico2014/edg4x-rose

//========================================================================================
// R1106 end-module-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_EndModuleStmt(EndModuleStmt* endModuleStmt)
{
#if 0
   Sg_File_Info * start = NULL;
   SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start);
   stmt->set_statement_enum(SgToken::FORTRAN_END_MODULE);

   if (endModuleStmt->getLabel())       stmt->set_label_string  (endModuleStmt->getLabel()->getValue());
   if (endModuleStmt->getModuleName()) stmt->set_statement_name(endModuleStmt->getModuleName()->getIdent()->getValue());

   endModuleStmt->setPayload(stmt);
#endif
}

Beispiel #3

//========================================================================================
// R1236 end-subroutine-stmt
//----------------------------------------------------------------------------------------
void  UntypedASTBuilder::build_EndSubroutineStmt(EndSubroutineStmt * endSubroutineStmt)
{
   Sg_File_Info * start = NULL;
   SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start);
   stmt->set_statement_enum(SgToken::FORTRAN_END_SUBROUTINE);

   if (endSubroutineStmt->getLabel()) {
      stmt->set_label_string  (endSubroutineStmt->getLabel()->getValue());
   }
   if (endSubroutineStmt->getSubroutineName()) {
      stmt->set_statement_name(endSubroutineStmt->getSubroutineName()->getIdent()->getValue());
   }

   endSubroutineStmt->setPayload(stmt);
}

Beispiel #4

Datei: UntypedASTBuilder.cpp Projekt: Federico2014/edg4x-rose

//========================================================================================
// R1232 end-function-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_EndFunctionStmt(EndFunctionStmt* endFunctionStmt)
{
#if 0
   Sg_File_Info * start = NULL;
   SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start);
   stmt->set_statement_enum(SgToken::FORTRAN_END_FUNCTION);

   if (endFunctionStmt->getLabel()) {
      stmt->set_label_string  (endFunctionStmt->getLabel()->getValue());
   }
   if (endFunctionStmt->getFunctionName()) {
      stmt->set_statement_name(endFunctionStmt->getFunctionName()->getIdent()->getValue());
   }

   endFunctionStmt->setPayload(stmt);
#endif
}

Beispiel #5

Datei: UntypedASTBuilder.cpp Projekt: Federico2014/edg4x-rose

//========================================================================================
// R1239 end-mp-subprogram-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_EndMpSubprogramStmt(EndMpSubprogramStmt* endMpSubprogramStmt)
{
#if 0
   Sg_File_Info * start = NULL;
   SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start);
   stmt->set_statement_enum(SgToken::FORTRAN_END_MP_SUBPROGRAM);

   if (endMpSubprogramStmt->getLabel()) {
      stmt->set_label_string  (endMpSubprogramStmt->getLabel()->getValue());
   }
   if (endMpSubprogramStmt->getProcedureName()) {
      stmt->set_statement_name(endMpSubprogramStmt->getProcedureName()->getIdent()->getValue());
   }

   endMpSubprogramStmt->setPayload(stmt);
#endif
}