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