You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
170 lines
4.3 KiB
170 lines
4.3 KiB
/*
|
|
* Copyright 2011, The Android Open Source Project
|
|
*
|
|
* Licensed under the Apache License, Version 2.0 (the "License");
|
|
* you may not use this file except in compliance with the License.
|
|
* You may obtain a copy of the License at
|
|
*
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
|
*
|
|
* Unless required by applicable law or agreed to in writing, software
|
|
* distributed under the License is distributed on an "AS IS" BASIS,
|
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing permissions and
|
|
* limitations under the License.
|
|
*/
|
|
|
|
#include "slang_rs_ast_replace.h"
|
|
|
|
#include "slang_assert.h"
|
|
|
|
#include "llvm/Support/Casting.h"
|
|
|
|
namespace slang {
|
|
|
|
void RSASTReplace::ReplaceStmt(
|
|
clang::Stmt *OuterStmt,
|
|
clang::Stmt *OldStmt,
|
|
clang::Stmt *NewStmt) {
|
|
mOldStmt = OldStmt;
|
|
mNewStmt = NewStmt;
|
|
mOuterStmt = OuterStmt;
|
|
|
|
// This simplifies use in various Stmt visitor passes where the only
|
|
// valid type is an Expr.
|
|
mOldExpr = llvm::dyn_cast<clang::Expr>(OldStmt);
|
|
if (mOldExpr) {
|
|
mNewExpr = llvm::dyn_cast<clang::Expr>(NewStmt);
|
|
}
|
|
Visit(mOuterStmt);
|
|
}
|
|
|
|
void RSASTReplace::ReplaceInCompoundStmt(clang::CompoundStmt *CS) {
|
|
clang::Stmt **UpdatedStmtList = new clang::Stmt*[CS->size()];
|
|
|
|
unsigned UpdatedStmtCount = 0;
|
|
clang::CompoundStmt::body_iterator bI = CS->body_begin();
|
|
clang::CompoundStmt::body_iterator bE = CS->body_end();
|
|
|
|
for ( ; bI != bE; bI++) {
|
|
if (matchesStmt(*bI)) {
|
|
UpdatedStmtList[UpdatedStmtCount++] = mNewStmt;
|
|
} else {
|
|
UpdatedStmtList[UpdatedStmtCount++] = *bI;
|
|
}
|
|
}
|
|
|
|
CS->setStmts(C, llvm::makeArrayRef(UpdatedStmtList, UpdatedStmtCount));
|
|
|
|
delete [] UpdatedStmtList;
|
|
}
|
|
|
|
void RSASTReplace::VisitStmt(clang::Stmt *S) {
|
|
// This function does the actual iteration through all sub-Stmt's within
|
|
// a given Stmt. Note that this function is skipped by all of the other
|
|
// Visit* functions if we have already found a higher-level match.
|
|
for (clang::Stmt::child_iterator I = S->child_begin(), E = S->child_end();
|
|
I != E;
|
|
I++) {
|
|
if (clang::Stmt *Child = *I) {
|
|
if (!matchesStmt(Child)) {
|
|
Visit(Child);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitCompoundStmt(clang::CompoundStmt *CS) {
|
|
VisitStmt(CS);
|
|
ReplaceInCompoundStmt(CS);
|
|
}
|
|
|
|
void RSASTReplace::VisitCaseStmt(clang::CaseStmt *CS) {
|
|
if (matchesStmt(CS->getSubStmt())) {
|
|
CS->setSubStmt(mNewStmt);
|
|
} else {
|
|
VisitStmt(CS);
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitDeclStmt(clang::DeclStmt* DS) {
|
|
VisitStmt(DS);
|
|
for (clang::Decl* D : DS->decls()) {
|
|
clang::VarDecl* VD;
|
|
if ((VD = llvm::dyn_cast<clang::VarDecl>(D))) {
|
|
if (matchesExpr(VD->getInit())) {
|
|
VD->setInit(mNewExpr);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitDefaultStmt(clang::DefaultStmt *DS) {
|
|
if (matchesStmt(DS->getSubStmt())) {
|
|
DS->setSubStmt(mNewStmt);
|
|
} else {
|
|
VisitStmt(DS);
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitDoStmt(clang::DoStmt *DS) {
|
|
if (matchesExpr(DS->getCond())) {
|
|
DS->setCond(mNewExpr);
|
|
} else if (matchesStmt(DS->getBody())) {
|
|
DS->setBody(mNewStmt);
|
|
} else {
|
|
VisitStmt(DS);
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitForStmt(clang::ForStmt *FS) {
|
|
if (matchesStmt(FS->getInit())) {
|
|
FS->setInit(mNewStmt);
|
|
} else if (matchesExpr(FS->getCond())) {
|
|
FS->setCond(mNewExpr);
|
|
} else if (matchesExpr(FS->getInc())) {
|
|
FS->setInc(mNewExpr);
|
|
} else if (matchesStmt(FS->getBody())) {
|
|
FS->setBody(mNewStmt);
|
|
} else {
|
|
VisitStmt(FS);
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitIfStmt(clang::IfStmt *IS) {
|
|
if (matchesExpr(IS->getCond())) {
|
|
IS->setCond(mNewExpr);
|
|
} else if (matchesStmt(IS->getThen())) {
|
|
IS->setThen(mNewStmt);
|
|
} else if (matchesStmt(IS->getElse())) {
|
|
IS->setElse(mNewStmt);
|
|
} else {
|
|
VisitStmt(IS);
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitSwitchCase(clang::SwitchCase *SC) {
|
|
slangAssert(false && "Both case and default have specialized handlers");
|
|
VisitStmt(SC);
|
|
}
|
|
|
|
void RSASTReplace::VisitSwitchStmt(clang::SwitchStmt *SS) {
|
|
if (matchesExpr(SS->getCond())) {
|
|
SS->setCond(mNewExpr);
|
|
} else {
|
|
VisitStmt(SS);
|
|
}
|
|
}
|
|
|
|
void RSASTReplace::VisitWhileStmt(clang::WhileStmt *WS) {
|
|
if (matchesExpr(WS->getCond())) {
|
|
WS->setCond(mNewExpr);
|
|
} else if (matchesStmt(WS->getBody())) {
|
|
WS->setBody(mNewStmt);
|
|
} else {
|
|
VisitStmt(WS);
|
|
}
|
|
}
|
|
|
|
} // namespace slang
|