xref: /llvm-project/clang/tools/libclang/CXCursor.cpp (revision cc1b96d356a0bd85c033309b8cfa965f36ae8aa6) 
1 //===- CXCursor.cpp - Routines for manipulating CXCursors -----------------===//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 //
10 // This file defines routines for manipulating CXCursors. It should be the
11 // only file that has internal knowledge of the encoding of the data in
12 // CXCursor.
13 //
14 //===----------------------------------------------------------------------===//
15 
16 #include "CXTranslationUnit.h"
17 #include "CXCursor.h"
18 #include "CXString.h"
19 #include "CXType.h"
20 #include "clang-c/Index.h"
21 #include "clang/AST/Decl.h"
22 #include "clang/AST/DeclCXX.h"
23 #include "clang/AST/DeclObjC.h"
24 #include "clang/AST/DeclTemplate.h"
25 #include "clang/AST/Expr.h"
26 #include "clang/AST/ExprCXX.h"
27 #include "clang/AST/ExprObjC.h"
28 #include "clang/Frontend/ASTUnit.h"
29 #include "llvm/Support/ErrorHandling.h"
30 
31 using namespace clang;
32 using namespace cxcursor;
33 
34 CXCursor cxcursor::MakeCXCursorInvalid(CXCursorKind K, CXTranslationUnit TU) {
35   assert(K >= CXCursor_FirstInvalid && K <= CXCursor_LastInvalid);
36   CXCursor C = { K, 0, { 0, 0, TU } };
37   return C;
38 }
39 
40 static CXCursorKind GetCursorKind(const Attr *A) {
41   assert(A && "Invalid arguments!");
42   switch (A->getKind()) {
43     default: break;
44     case attr::IBAction: return CXCursor_IBActionAttr;
45     case attr::IBOutlet: return CXCursor_IBOutletAttr;
46     case attr::IBOutletCollection: return CXCursor_IBOutletCollectionAttr;
47     case attr::Final: return CXCursor_CXXFinalAttr;
48     case attr::Override: return CXCursor_CXXOverrideAttr;
49     case attr::Annotate: return CXCursor_AnnotateAttr;
50     case attr::AsmLabel: return CXCursor_AsmLabelAttr;
51   }
52 
53   return CXCursor_UnexposedAttr;
54 }
55 
56 CXCursor cxcursor::MakeCXCursor(const Attr *A, const Decl *Parent,
57                                 CXTranslationUnit TU) {
58   assert(A && Parent && TU && "Invalid arguments!");
59   CXCursor C = { GetCursorKind(A), 0, { Parent, A, TU } };
60   return C;
61 }
62 
63 CXCursor cxcursor::MakeCXCursor(const Decl *D, CXTranslationUnit TU,
64                                 SourceRange RegionOfInterest,
65                                 bool FirstInDeclGroup) {
66   assert(D && TU && "Invalid arguments!");
67 
68   CXCursorKind K = getCursorKindForDecl(D);
69 
70   if (K == CXCursor_ObjCClassMethodDecl ||
71       K == CXCursor_ObjCInstanceMethodDecl) {
72     int SelectorIdIndex = -1;
73     // Check if cursor points to a selector id.
74     if (RegionOfInterest.isValid() &&
75         RegionOfInterest.getBegin() == RegionOfInterest.getEnd()) {
76       SmallVector<SourceLocation, 16> SelLocs;
77       cast<ObjCMethodDecl>(D)->getSelectorLocs(SelLocs);
78       SmallVector<SourceLocation, 16>::iterator
79         I=std::find(SelLocs.begin(), SelLocs.end(),RegionOfInterest.getBegin());
80       if (I != SelLocs.end())
81         SelectorIdIndex = I - SelLocs.begin();
82     }
83     CXCursor C = { K, SelectorIdIndex,
84                    { D, (void*)(intptr_t) (FirstInDeclGroup ? 1 : 0), TU }};
85     return C;
86   }
87 
88   CXCursor C = { K, 0, { D, (void*)(intptr_t) (FirstInDeclGroup ? 1 : 0), TU }};
89   return C;
90 }
91 
92 CXCursor cxcursor::MakeCXCursor(const Stmt *S, const Decl *Parent,
93                                 CXTranslationUnit TU,
94                                 SourceRange RegionOfInterest) {
95   assert(S && TU && "Invalid arguments!");
96   CXCursorKind K = CXCursor_NotImplemented;
97 
98   switch (S->getStmtClass()) {
99   case Stmt::NoStmtClass:
100     break;
101 
102   case Stmt::CaseStmtClass:
103     K = CXCursor_CaseStmt;
104     break;
105 
106   case Stmt::DefaultStmtClass:
107     K = CXCursor_DefaultStmt;
108     break;
109 
110   case Stmt::IfStmtClass:
111     K = CXCursor_IfStmt;
112     break;
113 
114   case Stmt::SwitchStmtClass:
115     K = CXCursor_SwitchStmt;
116     break;
117 
118   case Stmt::WhileStmtClass:
119     K = CXCursor_WhileStmt;
120     break;
121 
122   case Stmt::DoStmtClass:
123     K = CXCursor_DoStmt;
124     break;
125 
126   case Stmt::ForStmtClass:
127     K = CXCursor_ForStmt;
128     break;
129 
130   case Stmt::GotoStmtClass:
131     K = CXCursor_GotoStmt;
132     break;
133 
134   case Stmt::IndirectGotoStmtClass:
135     K = CXCursor_IndirectGotoStmt;
136     break;
137 
138   case Stmt::ContinueStmtClass:
139     K = CXCursor_ContinueStmt;
140     break;
141 
142   case Stmt::BreakStmtClass:
143     K = CXCursor_BreakStmt;
144     break;
145 
146   case Stmt::ReturnStmtClass:
147     K = CXCursor_ReturnStmt;
148     break;
149 
150   case Stmt::GCCAsmStmtClass:
151     K = CXCursor_GCCAsmStmt;
152     break;
153 
154   case Stmt::MSAsmStmtClass:
155     K = CXCursor_MSAsmStmt;
156     break;
157 
158   case Stmt::ObjCAtTryStmtClass:
159     K = CXCursor_ObjCAtTryStmt;
160     break;
161 
162   case Stmt::ObjCAtCatchStmtClass:
163     K = CXCursor_ObjCAtCatchStmt;
164     break;
165 
166   case Stmt::ObjCAtFinallyStmtClass:
167     K = CXCursor_ObjCAtFinallyStmt;
168     break;
169 
170   case Stmt::ObjCAtThrowStmtClass:
171     K = CXCursor_ObjCAtThrowStmt;
172     break;
173 
174   case Stmt::ObjCAtSynchronizedStmtClass:
175     K = CXCursor_ObjCAtSynchronizedStmt;
176     break;
177 
178   case Stmt::ObjCAutoreleasePoolStmtClass:
179     K = CXCursor_ObjCAutoreleasePoolStmt;
180     break;
181 
182   case Stmt::ObjCForCollectionStmtClass:
183     K = CXCursor_ObjCForCollectionStmt;
184     break;
185 
186   case Stmt::CXXCatchStmtClass:
187     K = CXCursor_CXXCatchStmt;
188     break;
189 
190   case Stmt::CXXTryStmtClass:
191     K = CXCursor_CXXTryStmt;
192     break;
193 
194   case Stmt::CXXForRangeStmtClass:
195     K = CXCursor_CXXForRangeStmt;
196     break;
197 
198   case Stmt::SEHTryStmtClass:
199     K = CXCursor_SEHTryStmt;
200     break;
201 
202   case Stmt::SEHExceptStmtClass:
203     K = CXCursor_SEHExceptStmt;
204     break;
205 
206   case Stmt::SEHFinallyStmtClass:
207     K = CXCursor_SEHFinallyStmt;
208     break;
209 
210   case Stmt::ArrayTypeTraitExprClass:
211   case Stmt::AsTypeExprClass:
212   case Stmt::AtomicExprClass:
213   case Stmt::BinaryConditionalOperatorClass:
214   case Stmt::BinaryTypeTraitExprClass:
215   case Stmt::TypeTraitExprClass:
216   case Stmt::CXXBindTemporaryExprClass:
217   case Stmt::CXXDefaultArgExprClass:
218   case Stmt::CXXDefaultInitExprClass:
219   case Stmt::CXXStdInitializerListExprClass:
220   case Stmt::CXXScalarValueInitExprClass:
221   case Stmt::CXXUuidofExprClass:
222   case Stmt::ChooseExprClass:
223   case Stmt::DesignatedInitExprClass:
224   case Stmt::ExprWithCleanupsClass:
225   case Stmt::ExpressionTraitExprClass:
226   case Stmt::ExtVectorElementExprClass:
227   case Stmt::ImplicitCastExprClass:
228   case Stmt::ImplicitValueInitExprClass:
229   case Stmt::MaterializeTemporaryExprClass:
230   case Stmt::ObjCIndirectCopyRestoreExprClass:
231   case Stmt::OffsetOfExprClass:
232   case Stmt::ParenListExprClass:
233   case Stmt::PredefinedExprClass:
234   case Stmt::ShuffleVectorExprClass:
235   case Stmt::UnaryExprOrTypeTraitExprClass:
236   case Stmt::UnaryTypeTraitExprClass:
237   case Stmt::VAArgExprClass:
238   case Stmt::ObjCArrayLiteralClass:
239   case Stmt::ObjCDictionaryLiteralClass:
240   case Stmt::ObjCBoxedExprClass:
241   case Stmt::ObjCSubscriptRefExprClass:
242     K = CXCursor_UnexposedExpr;
243     break;
244 
245   case Stmt::OpaqueValueExprClass:
246     if (Expr *Src = cast<OpaqueValueExpr>(S)->getSourceExpr())
247       return MakeCXCursor(Src, Parent, TU, RegionOfInterest);
248     K = CXCursor_UnexposedExpr;
249     break;
250 
251   case Stmt::PseudoObjectExprClass:
252     return MakeCXCursor(cast<PseudoObjectExpr>(S)->getSyntacticForm(),
253                         Parent, TU, RegionOfInterest);
254 
255   case Stmt::CompoundStmtClass:
256     K = CXCursor_CompoundStmt;
257     break;
258 
259   case Stmt::NullStmtClass:
260     K = CXCursor_NullStmt;
261     break;
262 
263   case Stmt::LabelStmtClass:
264     K = CXCursor_LabelStmt;
265     break;
266 
267   case Stmt::AttributedStmtClass:
268     K = CXCursor_UnexposedStmt;
269     break;
270 
271   case Stmt::DeclStmtClass:
272     K = CXCursor_DeclStmt;
273     break;
274 
275   case Stmt::CapturedStmtClass:
276     K = CXCursor_UnexposedStmt;
277     break;
278 
279   case Stmt::IntegerLiteralClass:
280     K = CXCursor_IntegerLiteral;
281     break;
282 
283   case Stmt::FloatingLiteralClass:
284     K = CXCursor_FloatingLiteral;
285     break;
286 
287   case Stmt::ImaginaryLiteralClass:
288     K = CXCursor_ImaginaryLiteral;
289     break;
290 
291   case Stmt::StringLiteralClass:
292     K = CXCursor_StringLiteral;
293     break;
294 
295   case Stmt::CharacterLiteralClass:
296     K = CXCursor_CharacterLiteral;
297     break;
298 
299   case Stmt::ParenExprClass:
300     K = CXCursor_ParenExpr;
301     break;
302 
303   case Stmt::UnaryOperatorClass:
304     K = CXCursor_UnaryOperator;
305     break;
306 
307   case Stmt::CXXNoexceptExprClass:
308     K = CXCursor_UnaryExpr;
309     break;
310 
311   case Stmt::ArraySubscriptExprClass:
312     K = CXCursor_ArraySubscriptExpr;
313     break;
314 
315   case Stmt::BinaryOperatorClass:
316     K = CXCursor_BinaryOperator;
317     break;
318 
319   case Stmt::CompoundAssignOperatorClass:
320     K = CXCursor_CompoundAssignOperator;
321     break;
322 
323   case Stmt::ConditionalOperatorClass:
324     K = CXCursor_ConditionalOperator;
325     break;
326 
327   case Stmt::CStyleCastExprClass:
328     K = CXCursor_CStyleCastExpr;
329     break;
330 
331   case Stmt::CompoundLiteralExprClass:
332     K = CXCursor_CompoundLiteralExpr;
333     break;
334 
335   case Stmt::InitListExprClass:
336     K = CXCursor_InitListExpr;
337     break;
338 
339   case Stmt::AddrLabelExprClass:
340     K = CXCursor_AddrLabelExpr;
341     break;
342 
343   case Stmt::StmtExprClass:
344     K = CXCursor_StmtExpr;
345     break;
346 
347   case Stmt::GenericSelectionExprClass:
348     K = CXCursor_GenericSelectionExpr;
349     break;
350 
351   case Stmt::GNUNullExprClass:
352     K = CXCursor_GNUNullExpr;
353     break;
354 
355   case Stmt::CXXStaticCastExprClass:
356     K = CXCursor_CXXStaticCastExpr;
357     break;
358 
359   case Stmt::CXXDynamicCastExprClass:
360     K = CXCursor_CXXDynamicCastExpr;
361     break;
362 
363   case Stmt::CXXReinterpretCastExprClass:
364     K = CXCursor_CXXReinterpretCastExpr;
365     break;
366 
367   case Stmt::CXXConstCastExprClass:
368     K = CXCursor_CXXConstCastExpr;
369     break;
370 
371   case Stmt::CXXFunctionalCastExprClass:
372     K = CXCursor_CXXFunctionalCastExpr;
373     break;
374 
375   case Stmt::CXXTypeidExprClass:
376     K = CXCursor_CXXTypeidExpr;
377     break;
378 
379   case Stmt::CXXBoolLiteralExprClass:
380     K = CXCursor_CXXBoolLiteralExpr;
381     break;
382 
383   case Stmt::CXXNullPtrLiteralExprClass:
384     K = CXCursor_CXXNullPtrLiteralExpr;
385     break;
386 
387   case Stmt::CXXThisExprClass:
388     K = CXCursor_CXXThisExpr;
389     break;
390 
391   case Stmt::CXXThrowExprClass:
392     K = CXCursor_CXXThrowExpr;
393     break;
394 
395   case Stmt::CXXNewExprClass:
396     K = CXCursor_CXXNewExpr;
397     break;
398 
399   case Stmt::CXXDeleteExprClass:
400     K = CXCursor_CXXDeleteExpr;
401     break;
402 
403   case Stmt::ObjCStringLiteralClass:
404     K = CXCursor_ObjCStringLiteral;
405     break;
406 
407   case Stmt::ObjCEncodeExprClass:
408     K = CXCursor_ObjCEncodeExpr;
409     break;
410 
411   case Stmt::ObjCSelectorExprClass:
412     K = CXCursor_ObjCSelectorExpr;
413     break;
414 
415   case Stmt::ObjCProtocolExprClass:
416     K = CXCursor_ObjCProtocolExpr;
417     break;
418 
419   case Stmt::ObjCBoolLiteralExprClass:
420     K = CXCursor_ObjCBoolLiteralExpr;
421     break;
422 
423   case Stmt::ObjCBridgedCastExprClass:
424     K = CXCursor_ObjCBridgedCastExpr;
425     break;
426 
427   case Stmt::BlockExprClass:
428     K = CXCursor_BlockExpr;
429     break;
430 
431   case Stmt::PackExpansionExprClass:
432     K = CXCursor_PackExpansionExpr;
433     break;
434 
435   case Stmt::SizeOfPackExprClass:
436     K = CXCursor_SizeOfPackExpr;
437     break;
438 
439   case Stmt::DeclRefExprClass:
440     if (const ImplicitParamDecl *IPD =
441          dyn_cast_or_null<ImplicitParamDecl>(cast<DeclRefExpr>(S)->getDecl())) {
442       if (const ObjCMethodDecl *MD =
443             dyn_cast<ObjCMethodDecl>(IPD->getDeclContext())) {
444         if (MD->getSelfDecl() == IPD) {
445           K = CXCursor_ObjCSelfExpr;
446           break;
447         }
448       }
449     }
450 
451     K = CXCursor_DeclRefExpr;
452     break;
453 
454   case Stmt::DependentScopeDeclRefExprClass:
455   case Stmt::SubstNonTypeTemplateParmExprClass:
456   case Stmt::SubstNonTypeTemplateParmPackExprClass:
457   case Stmt::FunctionParmPackExprClass:
458   case Stmt::UnresolvedLookupExprClass:
459     K = CXCursor_DeclRefExpr;
460     break;
461 
462   case Stmt::CXXDependentScopeMemberExprClass:
463   case Stmt::CXXPseudoDestructorExprClass:
464   case Stmt::MemberExprClass:
465   case Stmt::MSPropertyRefExprClass:
466   case Stmt::ObjCIsaExprClass:
467   case Stmt::ObjCIvarRefExprClass:
468   case Stmt::ObjCPropertyRefExprClass:
469   case Stmt::UnresolvedMemberExprClass:
470     K = CXCursor_MemberRefExpr;
471     break;
472 
473   case Stmt::CallExprClass:
474   case Stmt::CXXOperatorCallExprClass:
475   case Stmt::CXXMemberCallExprClass:
476   case Stmt::CUDAKernelCallExprClass:
477   case Stmt::CXXConstructExprClass:
478   case Stmt::CXXTemporaryObjectExprClass:
479   case Stmt::CXXUnresolvedConstructExprClass:
480   case Stmt::UserDefinedLiteralClass:
481     K = CXCursor_CallExpr;
482     break;
483 
484   case Stmt::LambdaExprClass:
485     K = CXCursor_LambdaExpr;
486     break;
487 
488   case Stmt::ObjCMessageExprClass: {
489     K = CXCursor_ObjCMessageExpr;
490     int SelectorIdIndex = -1;
491     // Check if cursor points to a selector id.
492     if (RegionOfInterest.isValid() &&
493         RegionOfInterest.getBegin() == RegionOfInterest.getEnd()) {
494       SmallVector<SourceLocation, 16> SelLocs;
495       cast<ObjCMessageExpr>(S)->getSelectorLocs(SelLocs);
496       SmallVector<SourceLocation, 16>::iterator
497         I=std::find(SelLocs.begin(), SelLocs.end(),RegionOfInterest.getBegin());
498       if (I != SelLocs.end())
499         SelectorIdIndex = I - SelLocs.begin();
500     }
501     CXCursor C = { K, 0, { Parent, S, TU } };
502     return getSelectorIdentifierCursor(SelectorIdIndex, C);
503   }
504 
505   case Stmt::MSDependentExistsStmtClass:
506     K = CXCursor_UnexposedStmt;
507     break;
508   }
509 
510   CXCursor C = { K, 0, { Parent, S, TU } };
511   return C;
512 }
513 
514 CXCursor cxcursor::MakeCursorObjCSuperClassRef(ObjCInterfaceDecl *Super,
515                                                SourceLocation Loc,
516                                                CXTranslationUnit TU) {
517   assert(Super && TU && "Invalid arguments!");
518   void *RawLoc = Loc.getPtrEncoding();
519   CXCursor C = { CXCursor_ObjCSuperClassRef, 0, { Super, RawLoc, TU } };
520   return C;
521 }
522 
523 std::pair<const ObjCInterfaceDecl *, SourceLocation>
524 cxcursor::getCursorObjCSuperClassRef(CXCursor C) {
525   assert(C.kind == CXCursor_ObjCSuperClassRef);
526   return std::make_pair(static_cast<const ObjCInterfaceDecl *>(C.data[0]),
527                         SourceLocation::getFromPtrEncoding(C.data[1]));
528 }
529 
530 CXCursor cxcursor::MakeCursorObjCProtocolRef(const ObjCProtocolDecl *Proto,
531                                              SourceLocation Loc,
532                                              CXTranslationUnit TU) {
533   assert(Proto && TU && "Invalid arguments!");
534   void *RawLoc = Loc.getPtrEncoding();
535   CXCursor C = { CXCursor_ObjCProtocolRef, 0, { Proto, RawLoc, TU } };
536   return C;
537 }
538 
539 std::pair<const ObjCProtocolDecl *, SourceLocation>
540 cxcursor::getCursorObjCProtocolRef(CXCursor C) {
541   assert(C.kind == CXCursor_ObjCProtocolRef);
542   return std::make_pair(static_cast<const ObjCProtocolDecl *>(C.data[0]),
543                         SourceLocation::getFromPtrEncoding(C.data[1]));
544 }
545 
546 CXCursor cxcursor::MakeCursorObjCClassRef(const ObjCInterfaceDecl *Class,
547                                           SourceLocation Loc,
548                                           CXTranslationUnit TU) {
549   // 'Class' can be null for invalid code.
550   if (!Class)
551     return MakeCXCursorInvalid(CXCursor_InvalidCode);
552   assert(TU && "Invalid arguments!");
553   void *RawLoc = Loc.getPtrEncoding();
554   CXCursor C = { CXCursor_ObjCClassRef, 0, { Class, RawLoc, TU } };
555   return C;
556 }
557 
558 std::pair<const ObjCInterfaceDecl *, SourceLocation>
559 cxcursor::getCursorObjCClassRef(CXCursor C) {
560   assert(C.kind == CXCursor_ObjCClassRef);
561   return std::make_pair(static_cast<const ObjCInterfaceDecl *>(C.data[0]),
562                         SourceLocation::getFromPtrEncoding(C.data[1]));
563 }
564 
565 CXCursor cxcursor::MakeCursorTypeRef(const TypeDecl *Type, SourceLocation Loc,
566                                      CXTranslationUnit TU) {
567   assert(Type && TU && "Invalid arguments!");
568   void *RawLoc = Loc.getPtrEncoding();
569   CXCursor C = { CXCursor_TypeRef, 0, { Type, RawLoc, TU } };
570   return C;
571 }
572 
573 std::pair<const TypeDecl *, SourceLocation>
574 cxcursor::getCursorTypeRef(CXCursor C) {
575   assert(C.kind == CXCursor_TypeRef);
576   return std::make_pair(static_cast<const TypeDecl *>(C.data[0]),
577                         SourceLocation::getFromPtrEncoding(C.data[1]));
578 }
579 
580 CXCursor cxcursor::MakeCursorTemplateRef(const TemplateDecl *Template,
581                                          SourceLocation Loc,
582                                          CXTranslationUnit TU) {
583   assert(Template && TU && "Invalid arguments!");
584   void *RawLoc = Loc.getPtrEncoding();
585   CXCursor C = { CXCursor_TemplateRef, 0, { Template, RawLoc, TU } };
586   return C;
587 }
588 
589 std::pair<const TemplateDecl *, SourceLocation>
590 cxcursor::getCursorTemplateRef(CXCursor C) {
591   assert(C.kind == CXCursor_TemplateRef);
592   return std::make_pair(static_cast<const TemplateDecl *>(C.data[0]),
593                         SourceLocation::getFromPtrEncoding(C.data[1]));
594 }
595 
596 CXCursor cxcursor::MakeCursorNamespaceRef(const NamedDecl *NS,
597                                           SourceLocation Loc,
598                                           CXTranslationUnit TU) {
599 
600   assert(NS && (isa<NamespaceDecl>(NS) || isa<NamespaceAliasDecl>(NS)) && TU &&
601          "Invalid arguments!");
602   void *RawLoc = Loc.getPtrEncoding();
603   CXCursor C = { CXCursor_NamespaceRef, 0, { NS, RawLoc, TU } };
604   return C;
605 }
606 
607 std::pair<const NamedDecl *, SourceLocation>
608 cxcursor::getCursorNamespaceRef(CXCursor C) {
609   assert(C.kind == CXCursor_NamespaceRef);
610   return std::make_pair(static_cast<const NamedDecl *>(C.data[0]),
611                         SourceLocation::getFromPtrEncoding(C.data[1]));
612 }
613 
614 CXCursor cxcursor::MakeCursorVariableRef(const VarDecl *Var, SourceLocation Loc,
615                                          CXTranslationUnit TU) {
616 
617   assert(Var && TU && "Invalid arguments!");
618   void *RawLoc = Loc.getPtrEncoding();
619   CXCursor C = { CXCursor_VariableRef, 0, { Var, RawLoc, TU } };
620   return C;
621 }
622 
623 std::pair<const VarDecl *, SourceLocation>
624 cxcursor::getCursorVariableRef(CXCursor C) {
625   assert(C.kind == CXCursor_VariableRef);
626   return std::make_pair(static_cast<const VarDecl *>(C.data[0]),
627                         SourceLocation::getFromPtrEncoding(C.data[1]));
628 }
629 
630 CXCursor cxcursor::MakeCursorMemberRef(const FieldDecl *Field, SourceLocation Loc,
631                                        CXTranslationUnit TU) {
632 
633   assert(Field && TU && "Invalid arguments!");
634   void *RawLoc = Loc.getPtrEncoding();
635   CXCursor C = { CXCursor_MemberRef, 0, { Field, RawLoc, TU } };
636   return C;
637 }
638 
639 std::pair<const FieldDecl *, SourceLocation>
640 cxcursor::getCursorMemberRef(CXCursor C) {
641   assert(C.kind == CXCursor_MemberRef);
642   return std::make_pair(static_cast<const FieldDecl *>(C.data[0]),
643                         SourceLocation::getFromPtrEncoding(C.data[1]));
644 }
645 
646 CXCursor cxcursor::MakeCursorCXXBaseSpecifier(const CXXBaseSpecifier *B,
647                                               CXTranslationUnit TU){
648   CXCursor C = { CXCursor_CXXBaseSpecifier, 0, { B, 0, TU } };
649   return C;
650 }
651 
652 const CXXBaseSpecifier *cxcursor::getCursorCXXBaseSpecifier(CXCursor C) {
653   assert(C.kind == CXCursor_CXXBaseSpecifier);
654   return static_cast<const CXXBaseSpecifier*>(C.data[0]);
655 }
656 
657 CXCursor cxcursor::MakePreprocessingDirectiveCursor(SourceRange Range,
658                                                     CXTranslationUnit TU) {
659   CXCursor C = { CXCursor_PreprocessingDirective, 0,
660                  { Range.getBegin().getPtrEncoding(),
661                    Range.getEnd().getPtrEncoding(),
662                    TU }
663                };
664   return C;
665 }
666 
667 SourceRange cxcursor::getCursorPreprocessingDirective(CXCursor C) {
668   assert(C.kind == CXCursor_PreprocessingDirective);
669   SourceRange Range(SourceLocation::getFromPtrEncoding(C.data[0]),
670                     SourceLocation::getFromPtrEncoding(C.data[1]));
671   ASTUnit *TU = getCursorASTUnit(C);
672   return TU->mapRangeFromPreamble(Range);
673 }
674 
675 CXCursor cxcursor::MakeMacroDefinitionCursor(const MacroDefinition *MI,
676                                              CXTranslationUnit TU) {
677   CXCursor C = { CXCursor_MacroDefinition, 0, { MI, 0, TU } };
678   return C;
679 }
680 
681 const MacroDefinition *cxcursor::getCursorMacroDefinition(CXCursor C) {
682   assert(C.kind == CXCursor_MacroDefinition);
683   return static_cast<const MacroDefinition *>(C.data[0]);
684 }
685 
686 CXCursor cxcursor::MakeMacroExpansionCursor(MacroExpansion *MI,
687                                             CXTranslationUnit TU) {
688   CXCursor C = { CXCursor_MacroExpansion, 0, { MI, 0, TU } };
689   return C;
690 }
691 
692 CXCursor cxcursor::MakeMacroExpansionCursor(MacroDefinition *MI,
693                                             SourceLocation Loc,
694                                             CXTranslationUnit TU) {
695   assert(Loc.isValid());
696   CXCursor C = { CXCursor_MacroExpansion, 0, { MI, Loc.getPtrEncoding(), TU } };
697   return C;
698 }
699 
700 const IdentifierInfo *cxcursor::MacroExpansionCursor::getName() const {
701   if (isPseudo())
702     return getAsMacroDefinition()->getName();
703   return getAsMacroExpansion()->getName();
704 }
705 const MacroDefinition *cxcursor::MacroExpansionCursor::getDefinition() const {
706   if (isPseudo())
707     return getAsMacroDefinition();
708   return getAsMacroExpansion()->getDefinition();
709 }
710 SourceRange cxcursor::MacroExpansionCursor::getSourceRange() const {
711   if (isPseudo())
712     return getPseudoLoc();
713   return getAsMacroExpansion()->getSourceRange();
714 }
715 
716 CXCursor cxcursor::MakeInclusionDirectiveCursor(InclusionDirective *ID,
717                                                 CXTranslationUnit TU) {
718   CXCursor C = { CXCursor_InclusionDirective, 0, { ID, 0, TU } };
719   return C;
720 }
721 
722 const InclusionDirective *cxcursor::getCursorInclusionDirective(CXCursor C) {
723   assert(C.kind == CXCursor_InclusionDirective);
724   return static_cast<const InclusionDirective *>(C.data[0]);
725 }
726 
727 CXCursor cxcursor::MakeCursorLabelRef(LabelStmt *Label, SourceLocation Loc,
728                                       CXTranslationUnit TU) {
729 
730   assert(Label && TU && "Invalid arguments!");
731   void *RawLoc = Loc.getPtrEncoding();
732   CXCursor C = { CXCursor_LabelRef, 0, { Label, RawLoc, TU } };
733   return C;
734 }
735 
736 std::pair<const LabelStmt *, SourceLocation>
737 cxcursor::getCursorLabelRef(CXCursor C) {
738   assert(C.kind == CXCursor_LabelRef);
739   return std::make_pair(static_cast<const LabelStmt *>(C.data[0]),
740                         SourceLocation::getFromPtrEncoding(C.data[1]));
741 }
742 
743 CXCursor cxcursor::MakeCursorOverloadedDeclRef(const OverloadExpr *E,
744                                                CXTranslationUnit TU) {
745   assert(E && TU && "Invalid arguments!");
746   OverloadedDeclRefStorage Storage(E);
747   void *RawLoc = E->getNameLoc().getPtrEncoding();
748   CXCursor C = {
749                  CXCursor_OverloadedDeclRef, 0,
750                  { Storage.getOpaqueValue(), RawLoc, TU }
751                };
752   return C;
753 }
754 
755 CXCursor cxcursor::MakeCursorOverloadedDeclRef(const Decl *D,
756                                                SourceLocation Loc,
757                                                CXTranslationUnit TU) {
758   assert(D && TU && "Invalid arguments!");
759   void *RawLoc = Loc.getPtrEncoding();
760   OverloadedDeclRefStorage Storage(D);
761   CXCursor C = {
762     CXCursor_OverloadedDeclRef, 0,
763     { Storage.getOpaqueValue(), RawLoc, TU }
764   };
765   return C;
766 }
767 
768 CXCursor cxcursor::MakeCursorOverloadedDeclRef(TemplateName Name,
769                                                SourceLocation Loc,
770                                                CXTranslationUnit TU) {
771   assert(Name.getAsOverloadedTemplate() && TU && "Invalid arguments!");
772   void *RawLoc = Loc.getPtrEncoding();
773   OverloadedDeclRefStorage Storage(Name.getAsOverloadedTemplate());
774   CXCursor C = {
775     CXCursor_OverloadedDeclRef, 0,
776     { Storage.getOpaqueValue(), RawLoc, TU }
777   };
778   return C;
779 }
780 
781 std::pair<cxcursor::OverloadedDeclRefStorage, SourceLocation>
782 cxcursor::getCursorOverloadedDeclRef(CXCursor C) {
783   assert(C.kind == CXCursor_OverloadedDeclRef);
784   return std::make_pair(OverloadedDeclRefStorage::getFromOpaqueValue(
785                                        const_cast<void *>(C.data[0])),
786                         SourceLocation::getFromPtrEncoding(C.data[1]));
787 }
788 
789 const Decl *cxcursor::getCursorDecl(CXCursor Cursor) {
790   return static_cast<const Decl *>(Cursor.data[0]);
791 }
792 
793 const Expr *cxcursor::getCursorExpr(CXCursor Cursor) {
794   return dyn_cast_or_null<Expr>(getCursorStmt(Cursor));
795 }
796 
797 const Stmt *cxcursor::getCursorStmt(CXCursor Cursor) {
798   if (Cursor.kind == CXCursor_ObjCSuperClassRef ||
799       Cursor.kind == CXCursor_ObjCProtocolRef ||
800       Cursor.kind == CXCursor_ObjCClassRef)
801     return 0;
802 
803   return static_cast<const Stmt *>(Cursor.data[1]);
804 }
805 
806 const Attr *cxcursor::getCursorAttr(CXCursor Cursor) {
807   return static_cast<const Attr *>(Cursor.data[1]);
808 }
809 
810 const Decl *cxcursor::getCursorParentDecl(CXCursor Cursor) {
811   return static_cast<const Decl *>(Cursor.data[0]);
812 }
813 
814 ASTContext &cxcursor::getCursorContext(CXCursor Cursor) {
815   return getCursorASTUnit(Cursor)->getASTContext();
816 }
817 
818 ASTUnit *cxcursor::getCursorASTUnit(CXCursor Cursor) {
819   CXTranslationUnit TU = getCursorTU(Cursor);
820   if (!TU)
821     return 0;
822   return cxtu::getASTUnit(TU);
823 }
824 
825 CXTranslationUnit cxcursor::getCursorTU(CXCursor Cursor) {
826   return static_cast<CXTranslationUnit>(const_cast<void*>(Cursor.data[2]));
827 }
828 
829 void cxcursor::getOverriddenCursors(CXCursor cursor,
830                                     SmallVectorImpl<CXCursor> &overridden) {
831   assert(clang_isDeclaration(cursor.kind));
832   const NamedDecl *D = dyn_cast_or_null<NamedDecl>(getCursorDecl(cursor));
833   if (!D)
834     return;
835 
836   CXTranslationUnit TU = getCursorTU(cursor);
837   SmallVector<const NamedDecl *, 8> OverDecls;
838   D->getASTContext().getOverriddenMethods(D, OverDecls);
839 
840   for (SmallVector<const NamedDecl *, 8>::iterator
841          I = OverDecls.begin(), E = OverDecls.end(); I != E; ++I) {
842     overridden.push_back(MakeCXCursor(*I, TU));
843   }
844 }
845 
846 std::pair<int, SourceLocation>
847 cxcursor::getSelectorIdentifierIndexAndLoc(CXCursor cursor) {
848   if (cursor.kind == CXCursor_ObjCMessageExpr) {
849     if (cursor.xdata != -1)
850       return std::make_pair(cursor.xdata,
851                             cast<ObjCMessageExpr>(getCursorExpr(cursor))
852                                                 ->getSelectorLoc(cursor.xdata));
853   } else if (cursor.kind == CXCursor_ObjCClassMethodDecl ||
854              cursor.kind == CXCursor_ObjCInstanceMethodDecl) {
855     if (cursor.xdata != -1)
856       return std::make_pair(cursor.xdata,
857                             cast<ObjCMethodDecl>(getCursorDecl(cursor))
858                                                 ->getSelectorLoc(cursor.xdata));
859   }
860 
861   return std::make_pair(-1, SourceLocation());
862 }
863 
864 CXCursor cxcursor::getSelectorIdentifierCursor(int SelIdx, CXCursor cursor) {
865   CXCursor newCursor = cursor;
866 
867   if (cursor.kind == CXCursor_ObjCMessageExpr) {
868     if (SelIdx == -1 ||
869         unsigned(SelIdx) >= cast<ObjCMessageExpr>(getCursorExpr(cursor))
870                                                          ->getNumSelectorLocs())
871       newCursor.xdata = -1;
872     else
873       newCursor.xdata = SelIdx;
874   } else if (cursor.kind == CXCursor_ObjCClassMethodDecl ||
875              cursor.kind == CXCursor_ObjCInstanceMethodDecl) {
876     if (SelIdx == -1 ||
877         unsigned(SelIdx) >= cast<ObjCMethodDecl>(getCursorDecl(cursor))
878                                                          ->getNumSelectorLocs())
879       newCursor.xdata = -1;
880     else
881       newCursor.xdata = SelIdx;
882   }
883 
884   return newCursor;
885 }
886 
887 CXCursor cxcursor::getTypeRefCursor(CXCursor cursor) {
888   if (cursor.kind != CXCursor_CallExpr)
889     return cursor;
890 
891   if (cursor.xdata == 0)
892     return cursor;
893 
894   const Expr *E = getCursorExpr(cursor);
895   TypeSourceInfo *Type = 0;
896   if (const CXXUnresolvedConstructExpr *
897         UnCtor = dyn_cast<CXXUnresolvedConstructExpr>(E)) {
898     Type = UnCtor->getTypeSourceInfo();
899   } else if (const CXXTemporaryObjectExpr *Tmp =
900                  dyn_cast<CXXTemporaryObjectExpr>(E)){
901     Type = Tmp->getTypeSourceInfo();
902   }
903 
904   if (!Type)
905     return cursor;
906 
907   CXTranslationUnit TU = getCursorTU(cursor);
908   QualType Ty = Type->getType();
909   TypeLoc TL = Type->getTypeLoc();
910   SourceLocation Loc = TL.getBeginLoc();
911 
912   if (const ElaboratedType *ElabT = Ty->getAs<ElaboratedType>()) {
913     Ty = ElabT->getNamedType();
914     ElaboratedTypeLoc ElabTL = TL.castAs<ElaboratedTypeLoc>();
915     Loc = ElabTL.getNamedTypeLoc().getBeginLoc();
916   }
917 
918   if (const TypedefType *Typedef = Ty->getAs<TypedefType>())
919     return MakeCursorTypeRef(Typedef->getDecl(), Loc, TU);
920   if (const TagType *Tag = Ty->getAs<TagType>())
921     return MakeCursorTypeRef(Tag->getDecl(), Loc, TU);
922   if (const TemplateTypeParmType *TemplP = Ty->getAs<TemplateTypeParmType>())
923     return MakeCursorTypeRef(TemplP->getDecl(), Loc, TU);
924 
925   return cursor;
926 }
927 
928 bool cxcursor::operator==(CXCursor X, CXCursor Y) {
929   return X.kind == Y.kind && X.data[0] == Y.data[0] && X.data[1] == Y.data[1] &&
930          X.data[2] == Y.data[2];
931 }
932 
933 // FIXME: Remove once we can model DeclGroups and their appropriate ranges
934 // properly in the ASTs.
935 bool cxcursor::isFirstInDeclGroup(CXCursor C) {
936   assert(clang_isDeclaration(C.kind));
937   return ((uintptr_t) (C.data[1])) != 0;
938 }
939 
940 //===----------------------------------------------------------------------===//
941 // libclang CXCursor APIs
942 //===----------------------------------------------------------------------===//
943 
944 extern "C" {
945 
946 int clang_Cursor_isNull(CXCursor cursor) {
947   return clang_equalCursors(cursor, clang_getNullCursor());
948 }
949 
950 CXTranslationUnit clang_Cursor_getTranslationUnit(CXCursor cursor) {
951   return getCursorTU(cursor);
952 }
953 
954 int clang_Cursor_getNumArguments(CXCursor C) {
955   if (clang_isDeclaration(C.kind)) {
956     const Decl *D = cxcursor::getCursorDecl(C);
957     if (const ObjCMethodDecl *MD = dyn_cast_or_null<ObjCMethodDecl>(D))
958       return MD->param_size();
959     if (const FunctionDecl *FD = dyn_cast_or_null<FunctionDecl>(D))
960       return FD->param_size();
961   }
962 
963   if (clang_isExpression(C.kind)) {
964     const Expr *E = cxcursor::getCursorExpr(C);
965     if (const CallExpr *CE = dyn_cast<CallExpr>(E)) {
966       return CE->getNumArgs();
967     }
968   }
969 
970   return -1;
971 }
972 
973 CXCursor clang_Cursor_getArgument(CXCursor C, unsigned i) {
974   if (clang_isDeclaration(C.kind)) {
975     const Decl *D = cxcursor::getCursorDecl(C);
976     if (const ObjCMethodDecl *MD = dyn_cast_or_null<ObjCMethodDecl>(D)) {
977       if (i < MD->param_size())
978         return cxcursor::MakeCXCursor(MD->param_begin()[i],
979                                       cxcursor::getCursorTU(C));
980     } else if (const FunctionDecl *FD = dyn_cast_or_null<FunctionDecl>(D)) {
981       if (i < FD->param_size())
982         return cxcursor::MakeCXCursor(FD->param_begin()[i],
983                                       cxcursor::getCursorTU(C));
984     }
985   }
986 
987   if (clang_isExpression(C.kind)) {
988     const Expr *E = cxcursor::getCursorExpr(C);
989     if (const CallExpr *CE = dyn_cast<CallExpr>(E)) {
990       if (i < CE->getNumArgs()) {
991         return cxcursor::MakeCXCursor(CE->getArg(i),
992                                       getCursorDecl(C),
993                                       cxcursor::getCursorTU(C));
994       }
995     }
996   }
997 
998   return clang_getNullCursor();
999 }
1000 
1001 } // end: extern "C"
1002 
1003 //===----------------------------------------------------------------------===//
1004 // CXCursorSet.
1005 //===----------------------------------------------------------------------===//
1006 
1007 typedef llvm::DenseMap<CXCursor, unsigned> CXCursorSet_Impl;
1008 
1009 static inline CXCursorSet packCXCursorSet(CXCursorSet_Impl *setImpl) {
1010   return (CXCursorSet) setImpl;
1011 }
1012 static inline CXCursorSet_Impl *unpackCXCursorSet(CXCursorSet set) {
1013   return (CXCursorSet_Impl*) set;
1014 }
1015 namespace llvm {
1016 template<> struct DenseMapInfo<CXCursor> {
1017 public:
1018   static inline CXCursor getEmptyKey() {
1019     return MakeCXCursorInvalid(CXCursor_InvalidFile);
1020   }
1021   static inline CXCursor getTombstoneKey() {
1022     return MakeCXCursorInvalid(CXCursor_NoDeclFound);
1023   }
1024   static inline unsigned getHashValue(const CXCursor &cursor) {
1025     return llvm::DenseMapInfo<std::pair<const void *, const void *> >
1026       ::getHashValue(std::make_pair(cursor.data[0], cursor.data[1]));
1027   }
1028   static inline bool isEqual(const CXCursor &x, const CXCursor &y) {
1029     return x.kind == y.kind &&
1030            x.data[0] == y.data[0] &&
1031            x.data[1] == y.data[1];
1032   }
1033 };
1034 }
1035 
1036 extern "C" {
1037 CXCursorSet clang_createCXCursorSet() {
1038   return packCXCursorSet(new CXCursorSet_Impl());
1039 }
1040 
1041 void clang_disposeCXCursorSet(CXCursorSet set) {
1042   delete unpackCXCursorSet(set);
1043 }
1044 
1045 unsigned clang_CXCursorSet_contains(CXCursorSet set, CXCursor cursor) {
1046   CXCursorSet_Impl *setImpl = unpackCXCursorSet(set);
1047   if (!setImpl)
1048     return 0;
1049   return setImpl->find(cursor) != setImpl->end();
1050 }
1051 
1052 unsigned clang_CXCursorSet_insert(CXCursorSet set, CXCursor cursor) {
1053   // Do not insert invalid cursors into the set.
1054   if (cursor.kind >= CXCursor_FirstInvalid &&
1055       cursor.kind <= CXCursor_LastInvalid)
1056     return 1;
1057 
1058   CXCursorSet_Impl *setImpl = unpackCXCursorSet(set);
1059   if (!setImpl)
1060     return 1;
1061   unsigned &entry = (*setImpl)[cursor];
1062   unsigned flag = entry == 0 ? 1 : 0;
1063   entry = 1;
1064   return flag;
1065 }
1066 
1067 CXCompletionString clang_getCursorCompletionString(CXCursor cursor) {
1068   enum CXCursorKind kind = clang_getCursorKind(cursor);
1069   if (clang_isDeclaration(kind)) {
1070     const Decl *decl = getCursorDecl(cursor);
1071     if (const NamedDecl *namedDecl = dyn_cast_or_null<NamedDecl>(decl)) {
1072       ASTUnit *unit = getCursorASTUnit(cursor);
1073       CodeCompletionResult Result(namedDecl, CCP_Declaration);
1074       CodeCompletionString *String
1075         = Result.CreateCodeCompletionString(unit->getASTContext(),
1076                                             unit->getPreprocessor(),
1077                                  unit->getCodeCompletionTUInfo().getAllocator(),
1078                                  unit->getCodeCompletionTUInfo(),
1079                                  true);
1080       return String;
1081     }
1082   }
1083   else if (kind == CXCursor_MacroDefinition) {
1084     const MacroDefinition *definition = getCursorMacroDefinition(cursor);
1085     const IdentifierInfo *MacroInfo = definition->getName();
1086     ASTUnit *unit = getCursorASTUnit(cursor);
1087     CodeCompletionResult Result(MacroInfo);
1088     CodeCompletionString *String
1089       = Result.CreateCodeCompletionString(unit->getASTContext(),
1090                                           unit->getPreprocessor(),
1091                                  unit->getCodeCompletionTUInfo().getAllocator(),
1092                                  unit->getCodeCompletionTUInfo(),
1093                                  false);
1094     return String;
1095   }
1096   return NULL;
1097 }
1098 } // end: extern C.
1099 
1100 namespace {
1101   struct OverridenCursorsPool {
1102     typedef SmallVector<CXCursor, 2> CursorVec;
1103     std::vector<CursorVec*> AllCursors;
1104     std::vector<CursorVec*> AvailableCursors;
1105 
1106     ~OverridenCursorsPool() {
1107       for (std::vector<CursorVec*>::iterator I = AllCursors.begin(),
1108            E = AllCursors.end(); I != E; ++I) {
1109         delete *I;
1110       }
1111     }
1112   };
1113 }
1114 
1115 void *cxcursor::createOverridenCXCursorsPool() {
1116   return new OverridenCursorsPool();
1117 }
1118 
1119 void cxcursor::disposeOverridenCXCursorsPool(void *pool) {
1120   delete static_cast<OverridenCursorsPool*>(pool);
1121 }
1122 
1123 extern "C" {
1124 void clang_getOverriddenCursors(CXCursor cursor,
1125                                 CXCursor **overridden,
1126                                 unsigned *num_overridden) {
1127   if (overridden)
1128     *overridden = 0;
1129   if (num_overridden)
1130     *num_overridden = 0;
1131 
1132   CXTranslationUnit TU = cxcursor::getCursorTU(cursor);
1133 
1134   if (!overridden || !num_overridden || !TU)
1135     return;
1136 
1137   if (!clang_isDeclaration(cursor.kind))
1138     return;
1139 
1140   OverridenCursorsPool &pool =
1141     *static_cast<OverridenCursorsPool*>(TU->OverridenCursorsPool);
1142 
1143   OverridenCursorsPool::CursorVec *Vec = 0;
1144 
1145   if (!pool.AvailableCursors.empty()) {
1146     Vec = pool.AvailableCursors.back();
1147     pool.AvailableCursors.pop_back();
1148   }
1149   else {
1150     Vec = new OverridenCursorsPool::CursorVec();
1151     pool.AllCursors.push_back(Vec);
1152   }
1153 
1154   // Clear out the vector, but don't free the memory contents.  This
1155   // reduces malloc() traffic.
1156   Vec->clear();
1157 
1158   // Use the first entry to contain a back reference to the vector.
1159   // This is a complete hack.
1160   CXCursor backRefCursor = MakeCXCursorInvalid(CXCursor_InvalidFile, TU);
1161   backRefCursor.data[0] = Vec;
1162   assert(cxcursor::getCursorTU(backRefCursor) == TU);
1163   Vec->push_back(backRefCursor);
1164 
1165   // Get the overriden cursors.
1166   cxcursor::getOverriddenCursors(cursor, *Vec);
1167 
1168   // Did we get any overriden cursors?  If not, return Vec to the pool
1169   // of available cursor vectors.
1170   if (Vec->size() == 1) {
1171     pool.AvailableCursors.push_back(Vec);
1172     return;
1173   }
1174 
1175   // Now tell the caller about the overriden cursors.
1176   assert(Vec->size() > 1);
1177   *overridden = &((*Vec)[1]);
1178   *num_overridden = Vec->size() - 1;
1179 }
1180 
1181 void clang_disposeOverriddenCursors(CXCursor *overridden) {
1182   if (!overridden)
1183     return;
1184 
1185   // Use pointer arithmetic to get back the first faux entry
1186   // which has a back-reference to the TU and the vector.
1187   --overridden;
1188   OverridenCursorsPool::CursorVec *Vec =
1189       static_cast<OverridenCursorsPool::CursorVec *>(
1190           const_cast<void *>(overridden->data[0]));
1191   CXTranslationUnit TU = getCursorTU(*overridden);
1192 
1193   assert(Vec && TU);
1194 
1195   OverridenCursorsPool &pool =
1196     *static_cast<OverridenCursorsPool*>(TU->OverridenCursorsPool);
1197 
1198   pool.AvailableCursors.push_back(Vec);
1199 }
1200 
1201 int clang_Cursor_isDynamicCall(CXCursor C) {
1202   const Expr *E = 0;
1203   if (clang_isExpression(C.kind))
1204     E = getCursorExpr(C);
1205   if (!E)
1206     return 0;
1207 
1208   if (const ObjCMessageExpr *MsgE = dyn_cast<ObjCMessageExpr>(E))
1209     return MsgE->getReceiverKind() == ObjCMessageExpr::Instance;
1210 
1211   const MemberExpr *ME = 0;
1212   if (isa<MemberExpr>(E))
1213     ME = cast<MemberExpr>(E);
1214   else if (const CallExpr *CE = dyn_cast<CallExpr>(E))
1215     ME = dyn_cast_or_null<MemberExpr>(CE->getCallee());
1216 
1217   if (ME) {
1218     if (const CXXMethodDecl *
1219           MD = dyn_cast_or_null<CXXMethodDecl>(ME->getMemberDecl()))
1220       return MD->isVirtual() && !ME->hasQualifier();
1221   }
1222 
1223   return 0;
1224 }
1225 
1226 CXType clang_Cursor_getReceiverType(CXCursor C) {
1227   CXTranslationUnit TU = cxcursor::getCursorTU(C);
1228   const Expr *E = 0;
1229   if (clang_isExpression(C.kind))
1230     E = getCursorExpr(C);
1231 
1232   if (const ObjCMessageExpr *MsgE = dyn_cast_or_null<ObjCMessageExpr>(E))
1233     return cxtype::MakeCXType(MsgE->getReceiverType(), TU);
1234 
1235   return cxtype::MakeCXType(QualType(), TU);
1236 }
1237 
1238 } // end: extern "C"
1239