Home | History | Annotate | Download | only in slang 
      1 /*
      2  * Copyright 2010, The Android Open Source Project
      3  *
      4  * Licensed under the Apache License, Version 2.0 (the "License");
      5  * you may not use this file except in compliance with the License.
      6  * You may obtain a copy of the License at
      7  *
      8  *     http://www.apache.org/licenses/LICENSE-2.0
      9  *
     10  * Unless required by applicable law or agreed to in writing, software
     11  * distributed under the License is distributed on an "AS IS" BASIS,
     12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
     13  * See the License for the specific language governing permissions and
     14  * limitations under the License.
     15  */
     16 
     17 #include "slang_rs_export_var.h"
     18 
     19 #include "clang/AST/Type.h"
     20 
     21 #include "llvm/ADT/APSInt.h"
     22 
     23 #include "slang_assert.h"
     24 #include "slang_rs_context.h"
     25 #include "slang_rs_export_type.h"
     26 
     27 namespace slang {
     28 
     29 RSExportVar::RSExportVar(RSContext *Context,
     30                          const clang::VarDecl *VD,
     31                          const RSExportType *ET)
     32     : RSExportable(Context, RSExportable::EX_VAR),
     33       mName(VD->getName().data(), VD->getName().size()),
     34       mET(ET),
     35       mIsConst(false) {
     36   // mInit - Evaluate initializer expression
     37   const clang::Expr *Initializer = VD->getAnyInitializer();
     38   if (Initializer != NULL) {
     39     switch (ET->getClass()) {
     40       case RSExportType::ExportClassPrimitive:
     41       case RSExportType::ExportClassVector: {
     42         Initializer->Evaluate(mInit, Context->getASTContext());
     43         break;
     44       }
     45       case RSExportType::ExportClassPointer: {
     46         if (Initializer->isNullPointerConstant
     47             (Context->getASTContext(),
     48              clang::Expr::NPC_ValueDependentIsNotNull)
     49             )
     50           mInit.Val = clang::APValue(llvm::APSInt(1));
     51         else
     52           Initializer->Evaluate(mInit, Context->getASTContext());
     53         break;
     54       }
     55       case RSExportType::ExportClassRecord: {
     56         // No action
     57         fprintf(stderr, "RSExportVar::RSExportVar : Reflection of initializer "
     58                         "to variable '%s' (of type '%s') is unsupported "
     59                         "currently.\n",
     60                 mName.c_str(),
     61                 ET->getName().c_str());
     62         break;
     63       }
     64       default: {
     65         slangAssert(false && "Unknown class of type");
     66       }
     67     }
     68   }
     69 
     70   // mIsConst - Is it a constant?
     71   clang::QualType QT = VD->getTypeSourceInfo()->getType();
     72   if (!QT.isNull()) {
     73     mIsConst = QT.isConstQualified();
     74   }
     75 
     76   return;
     77 }
     78 
     79 }  // namespace slang
     80