//========================================================================================
// R1102 program-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_ProgramStmt(ProgramStmt * programStmt)
{
Sg_File_Info * start = NULL;
SgUntypedProgramHeaderDeclaration * program = NULL;
program = new SgUntypedProgramHeaderDeclaration(start, programStmt->getProgramName()->getIdent()->getName());
program->set_statement_enum(SgToken::FORTRAN_PROGRAM);
if (programStmt->getLabel()) program->set_label_string(programStmt->getLabel()->getValue());
programStmt->setPayload(program);
}
//========================================================================================
// R1102 program-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_ProgramStmt(ProgramStmt * programStmt)
{
Sg_File_Info * start = NULL;
SgUntypedProgramHeaderDeclaration * program = NULL;
// set up the function scope
//
SgUntypedFunctionScope * scope = new SgUntypedFunctionScope(start);
scope->set_declaration_list(new SgUntypedDeclarationList(start));
scope->set_statement_list(new SgUntypedStatementList(start));
scope->set_function_list(new SgUntypedFunctionDeclarationList(start));
program = new SgUntypedProgramHeaderDeclaration(start, programStmt->getProgramName()->getIdent()->getName());
program->set_statement_enum(SgToken::FORTRAN_PROGRAM);
program->set_scope(scope);
if (programStmt->getLabel()) program->set_label_string(programStmt->getLabel()->getValue());
programStmt->setPayload(program);
}
//========================================================================================
// R1101 main-program
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_MainProgram(MainProgram * mainProgram)
{
Sg_File_Info * start = NULL;
SgUntypedNamedStatement * stmt = NULL;
SgUntypedDeclarationList* sgDeclList = NULL;
SgUntypedStatementList* sgStmtList = NULL;
SgUntypedProgramHeaderDeclaration * program = NULL;
// ProgramStmt
//
if (mainProgram->getProgramStmt()) {
program = dynamic_cast<SgUntypedProgramHeaderDeclaration*>(mainProgram->getProgramStmt()->getPayload()); assert(program);
}
else {
// no optional ProgramStmt
SgUntypedFunctionScope * scope = new SgUntypedFunctionScope(NULL);
scope->set_declaration_list(new SgUntypedDeclarationList(NULL));
scope->set_statement_list(new SgUntypedStatementList(NULL));
scope->set_function_list(new SgUntypedFunctionDeclarationList(NULL));
program = new SgUntypedProgramHeaderDeclaration(NULL, "");
program->set_statement_enum(SgToken::FORTRAN_PROGRAM);
program->set_scope(scope);
}
printf("build_MainProgram label: ........... %s\n", program->get_label_string().c_str());
printf(" begin name: ........... %s\n", program->get_name().c_str());
// SpecificationPart
//
SpecificationPart * specPart = mainProgram->getSpecificationPart();
sgDeclList = dynamic_cast<SgUntypedDeclarationList*>(specPart->givePayload()); assert(sgDeclList);
program->get_scope()->set_declaration_list(sgDeclList);
printf(" spec_list_size: ........... %lu\n", sgDeclList->get_decl_list().size());
// ExecutionPart
//
ExecutionPart * execPart = mainProgram->getExecutionPart();
sgStmtList = dynamic_cast<SgUntypedStatementList*>(execPart->givePayload()); assert(sgStmtList);
program->get_scope()->set_statement_list(sgStmtList);
printf(" exec_list_size: ........... %lu\n", sgStmtList->get_stmt_list().size());
// InternalSubprogramPart
//
InternalSubprogramPart * isubPart = mainProgram->getInternalSubprogramPart();
if (isubPart) {
SgUntypedFunctionDeclarationList* sgFuncList;
sgFuncList = dynamic_cast<SgUntypedFunctionDeclarationList*>(isubPart->givePayload()); assert(sgFuncList);
program->get_scope()->set_function_list(sgFuncList);
}
// EndProgramStmt
//
stmt = dynamic_cast<SgUntypedNamedStatement*>(mainProgram->getEndProgramStmt()->getPayload()); assert(stmt);
program->set_end_statement(stmt);
printf(" end label: ........... %s\n", stmt->get_label_string().c_str());
printf(" end name: ........... %s\n", stmt->get_statement_name().c_str());
mainProgram->setPayload(program);
}
//========================================================================================
// R1101 main-program
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_MainProgram(MainProgram * mainProgram)
{
#ifdef TODO_ROSE
Sg_File_Info * start = NULL;
SgUntypedNamedStatement * stmt = NULL;
SgUntypedDeclarationList* sgDeclList = NULL;
SgUntypedStatementList* sgStmtList = NULL;
SgUntypedProgramHeaderDeclaration * program = NULL;
// ProgramStmt
//
if (mainProgram->getProgramStmt()) {
program = dynamic_cast<SgUntypedProgramHeaderDeclaration*>(mainProgram->getProgramStmt()->getPayload()); assert(program);
}
else {
// no optional ProgramStmt
program = new SgUntypedProgramHeaderDeclaration(NULL, "");
program->set_statement_enum(SgToken::FORTRAN_PROGRAM);
}
program->set_scope(new SgUntypedFunctionScope(start));
#if UNPARSER_AVAILABLE
program->set_has_unparse(true);
#endif
#ifdef OFP_BUILD_DEBUG
printf("build_MainProgram label: ........... %s\n", program->get_label_string().c_str());
printf(" begin name: ........... %s\n", program->get_name().c_str());
#endif
// InitialSpecPart
//
InitialSpecPart * specPart = mainProgram->getInitialSpecPart();
sgDeclList = dynamic_cast<SgUntypedDeclarationList*>(specPart->givePayload()); assert(sgDeclList);
program->get_scope()->set_declaration_list(sgDeclList);
#ifdef OFP_BUILD_DEBUG
printf(" spec_list_size: ........... %lu\n", sgDeclList->get_decl_list().size());
#endif
// SpecAndExecPart
//
SpecAndExecPart * execPart = mainProgram->getSpecAndExecPart();
sgStmtList = dynamic_cast<SgUntypedStatementList*>(execPart->givePayload()); assert(sgStmtList);
program->get_scope()->set_statement_list(sgStmtList);
#ifdef OFP_BUILD_DEBUG
printf(" exec_list_size: ........... %lu\n", sgStmtList->get_stmt_list().size());
#endif
// InternalSubprogramPart
//
InternalSubprogramPart * isubPart = mainProgram->getInternalSubprogramPart();
if (isubPart) {
SgUntypedScope * isubScope = dynamic_cast<SgUntypedScope*>(isubPart->givePayload()); assert(isubScope);
SgUntypedStatementList * sgStmtList = isubScope->get_statement_list();
SgUntypedFunctionDeclarationList * sgFuncList = isubScope->get_function_list();
// has one contains stmt
SgUntypedStatement * contains = sgStmtList->get_stmt_list().front();
program->get_scope()->get_statement_list()->get_stmt_list().push_back(contains);
program->get_scope()->set_function_list(sgFuncList);
sgStmtList->get_stmt_list().clear();
}
else {
program->get_scope()->set_function_list(new SgUntypedFunctionDeclarationList(NULL));
}
// EndProgramStmt
//
stmt = dynamic_cast<SgUntypedNamedStatement*>(mainProgram->getEndProgramStmt()->getPayload()); assert(stmt);
program->set_end_statement(stmt);
#ifdef OFP_BUILD_DEBUG
printf(" end label: ........... %s\n", stmt->get_label_string().c_str());
printf(" end name: ........... %s\n", stmt->get_statement_name().c_str());
#endif
mainProgram->setPayload(program);
#else
printf ("UntypedASTBuilder::build_MainProgram(): commented out! \n");
#endif
}