CXCursor.cpp revision 9915539294a96eb931a4e17c802be73980ba98e0 
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 "clang/Frontend/ASTUnit.h"
20#include "clang/AST/Decl.h"
21#include "clang/AST/DeclCXX.h"
22#include "clang/AST/DeclObjC.h"
23#include "clang/AST/Expr.h"
24#include "clang/AST/ExprCXX.h"
25#include "clang-c/Index.h"
26#include "llvm/Support/ErrorHandling.h"
27
28using namespace clang;
29using namespace cxcursor;
30
31CXCursor cxcursor::MakeCXCursorInvalid(CXCursorKind K) {
32  assert(K >= CXCursor_FirstInvalid && K <= CXCursor_LastInvalid);
33  CXCursor C = { K, { 0, 0, 0 } };
34  return C;
35}
36
37static CXCursorKind GetCursorKind(const Attr *A) {
38  assert(A && "Invalid arguments!");
39  switch (A->getKind()) {
40    default: break;
41    case attr::IBAction: return CXCursor_IBActionAttr;
42    case attr::IBOutlet: return CXCursor_IBOutletAttr;
43    case attr::IBOutletCollection: return CXCursor_IBOutletCollectionAttr;
44  }
45
46  return CXCursor_UnexposedAttr;
47}
48
49CXCursor cxcursor::MakeCXCursor(const Attr *A, Decl *Parent,
50                                CXTranslationUnit TU) {
51  assert(A && Parent && TU && "Invalid arguments!");
52  CXCursor C = { GetCursorKind(A), { Parent, (void*)A, TU } };
53  return C;
54}
55
56CXCursor cxcursor::MakeCXCursor(Decl *D, CXTranslationUnit TU,
57                                bool FirstInDeclGroup) {
58  assert(D && TU && "Invalid arguments!");
59  CXCursor C = { getCursorKindForDecl(D),
60                 { D, (void*) (FirstInDeclGroup ? 1 : 0), TU }
61               };
62  return C;
63}
64
65CXCursor cxcursor::MakeCXCursor(Stmt *S, Decl *Parent,
66                                CXTranslationUnit TU) {
67  assert(S && TU && "Invalid arguments!");
68  CXCursorKind K = CXCursor_NotImplemented;
69
70  switch (S->getStmtClass()) {
71  case Stmt::NoStmtClass:
72    break;
73
74  case Stmt::NullStmtClass:
75  case Stmt::CompoundStmtClass:
76  case Stmt::CaseStmtClass:
77  case Stmt::DefaultStmtClass:
78  case Stmt::IfStmtClass:
79  case Stmt::SwitchStmtClass:
80  case Stmt::WhileStmtClass:
81  case Stmt::DoStmtClass:
82  case Stmt::ForStmtClass:
83  case Stmt::GotoStmtClass:
84  case Stmt::IndirectGotoStmtClass:
85  case Stmt::ContinueStmtClass:
86  case Stmt::BreakStmtClass:
87  case Stmt::ReturnStmtClass:
88  case Stmt::DeclStmtClass:
89  case Stmt::SwitchCaseClass:
90  case Stmt::AsmStmtClass:
91  case Stmt::ObjCAtTryStmtClass:
92  case Stmt::ObjCAtCatchStmtClass:
93  case Stmt::ObjCAtFinallyStmtClass:
94  case Stmt::ObjCAtThrowStmtClass:
95  case Stmt::ObjCAtSynchronizedStmtClass:
96  case Stmt::ObjCForCollectionStmtClass:
97  case Stmt::CXXCatchStmtClass:
98  case Stmt::CXXTryStmtClass:
99    K = CXCursor_UnexposedStmt;
100    break;
101
102  case Stmt::LabelStmtClass:
103    K = CXCursor_LabelStmt;
104    break;
105
106  case Stmt::PredefinedExprClass:
107  case Stmt::IntegerLiteralClass:
108  case Stmt::FloatingLiteralClass:
109  case Stmt::ImaginaryLiteralClass:
110  case Stmt::StringLiteralClass:
111  case Stmt::CharacterLiteralClass:
112  case Stmt::ParenExprClass:
113  case Stmt::UnaryOperatorClass:
114  case Stmt::OffsetOfExprClass:
115  case Stmt::SizeOfAlignOfExprClass:
116  case Stmt::ArraySubscriptExprClass:
117  case Stmt::BinaryOperatorClass:
118  case Stmt::CompoundAssignOperatorClass:
119  case Stmt::ConditionalOperatorClass:
120  case Stmt::ImplicitCastExprClass:
121  case Stmt::CStyleCastExprClass:
122  case Stmt::CompoundLiteralExprClass:
123  case Stmt::ExtVectorElementExprClass:
124  case Stmt::InitListExprClass:
125  case Stmt::DesignatedInitExprClass:
126  case Stmt::ImplicitValueInitExprClass:
127  case Stmt::ParenListExprClass:
128  case Stmt::VAArgExprClass:
129  case Stmt::AddrLabelExprClass:
130  case Stmt::StmtExprClass:
131  case Stmt::ChooseExprClass:
132  case Stmt::GNUNullExprClass:
133  case Stmt::CXXStaticCastExprClass:
134  case Stmt::CXXDynamicCastExprClass:
135  case Stmt::CXXReinterpretCastExprClass:
136  case Stmt::CXXConstCastExprClass:
137  case Stmt::CXXFunctionalCastExprClass:
138  case Stmt::CXXTypeidExprClass:
139  case Stmt::CXXUuidofExprClass:
140  case Stmt::CXXBoolLiteralExprClass:
141  case Stmt::CXXNullPtrLiteralExprClass:
142  case Stmt::CXXThisExprClass:
143  case Stmt::CXXThrowExprClass:
144  case Stmt::CXXDefaultArgExprClass:
145  case Stmt::CXXScalarValueInitExprClass:
146  case Stmt::CXXNewExprClass:
147  case Stmt::CXXDeleteExprClass:
148  case Stmt::CXXPseudoDestructorExprClass:
149  case Stmt::UnresolvedLookupExprClass:
150  case Stmt::UnaryTypeTraitExprClass:
151  case Stmt::BinaryTypeTraitExprClass:
152  case Stmt::DependentScopeDeclRefExprClass:
153  case Stmt::CXXBindTemporaryExprClass:
154  case Stmt::ExprWithCleanupsClass:
155  case Stmt::CXXUnresolvedConstructExprClass:
156  case Stmt::CXXDependentScopeMemberExprClass:
157  case Stmt::UnresolvedMemberExprClass:
158  case Stmt::CXXNoexceptExprClass:
159  case Stmt::ObjCStringLiteralClass:
160  case Stmt::ObjCEncodeExprClass:
161  case Stmt::ObjCSelectorExprClass:
162  case Stmt::ObjCProtocolExprClass:
163  case Stmt::ObjCIsaExprClass:
164  case Stmt::ShuffleVectorExprClass:
165  case Stmt::BlockExprClass:
166  case Stmt::OpaqueValueExprClass:
167    K = CXCursor_UnexposedExpr;
168    break;
169
170  case Stmt::DeclRefExprClass:
171  case Stmt::BlockDeclRefExprClass:
172    // FIXME: UnresolvedLookupExpr?
173    // FIXME: DependentScopeDeclRefExpr?
174    K = CXCursor_DeclRefExpr;
175    break;
176
177  case Stmt::MemberExprClass:
178  case Stmt::ObjCIvarRefExprClass:
179  case Stmt::ObjCPropertyRefExprClass:
180    // FIXME: UnresolvedMemberExpr?
181    // FIXME: CXXDependentScopeMemberExpr?
182    K = CXCursor_MemberRefExpr;
183    break;
184
185  case Stmt::CallExprClass:
186  case Stmt::CXXOperatorCallExprClass:
187  case Stmt::CXXMemberCallExprClass:
188  case Stmt::CXXConstructExprClass:
189  case Stmt::CXXTemporaryObjectExprClass:
190    // FIXME: CXXUnresolvedConstructExpr
191    K = CXCursor_CallExpr;
192    break;
193
194  case Stmt::ObjCMessageExprClass:
195    K = CXCursor_ObjCMessageExpr;
196    break;
197  }
198
199  CXCursor C = { K, { Parent, S, TU } };
200  return C;
201}
202
203CXCursor cxcursor::MakeCursorObjCSuperClassRef(ObjCInterfaceDecl *Super,
204                                               SourceLocation Loc,
205                                               CXTranslationUnit TU) {
206  assert(Super && TU && "Invalid arguments!");
207  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
208  CXCursor C = { CXCursor_ObjCSuperClassRef, { Super, RawLoc, TU } };
209  return C;
210}
211
212std::pair<ObjCInterfaceDecl *, SourceLocation>
213cxcursor::getCursorObjCSuperClassRef(CXCursor C) {
214  assert(C.kind == CXCursor_ObjCSuperClassRef);
215  return std::make_pair(static_cast<ObjCInterfaceDecl *>(C.data[0]),
216           SourceLocation::getFromRawEncoding(
217                                      reinterpret_cast<uintptr_t>(C.data[1])));
218}
219
220CXCursor cxcursor::MakeCursorObjCProtocolRef(ObjCProtocolDecl *Super,
221                                             SourceLocation Loc,
222                                             CXTranslationUnit TU) {
223  assert(Super && TU && "Invalid arguments!");
224  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
225  CXCursor C = { CXCursor_ObjCProtocolRef, { Super, RawLoc, TU } };
226  return C;
227}
228
229std::pair<ObjCProtocolDecl *, SourceLocation>
230cxcursor::getCursorObjCProtocolRef(CXCursor C) {
231  assert(C.kind == CXCursor_ObjCProtocolRef);
232  return std::make_pair(static_cast<ObjCProtocolDecl *>(C.data[0]),
233           SourceLocation::getFromRawEncoding(
234                                      reinterpret_cast<uintptr_t>(C.data[1])));
235}
236
237CXCursor cxcursor::MakeCursorObjCClassRef(ObjCInterfaceDecl *Class,
238                                          SourceLocation Loc,
239                                          CXTranslationUnit TU) {
240  // 'Class' can be null for invalid code.
241  if (!Class)
242    return MakeCXCursorInvalid(CXCursor_InvalidCode);
243  assert(TU && "Invalid arguments!");
244  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
245  CXCursor C = { CXCursor_ObjCClassRef, { Class, RawLoc, TU } };
246  return C;
247}
248
249std::pair<ObjCInterfaceDecl *, SourceLocation>
250cxcursor::getCursorObjCClassRef(CXCursor C) {
251  assert(C.kind == CXCursor_ObjCClassRef);
252  return std::make_pair(static_cast<ObjCInterfaceDecl *>(C.data[0]),
253           SourceLocation::getFromRawEncoding(
254                                      reinterpret_cast<uintptr_t>(C.data[1])));
255}
256
257CXCursor cxcursor::MakeCursorTypeRef(TypeDecl *Type, SourceLocation Loc,
258                                     CXTranslationUnit TU) {
259  assert(Type && TU && "Invalid arguments!");
260  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
261  CXCursor C = { CXCursor_TypeRef, { Type, RawLoc, TU } };
262  return C;
263}
264
265std::pair<TypeDecl *, SourceLocation>
266cxcursor::getCursorTypeRef(CXCursor C) {
267  assert(C.kind == CXCursor_TypeRef);
268  return std::make_pair(static_cast<TypeDecl *>(C.data[0]),
269           SourceLocation::getFromRawEncoding(
270                                      reinterpret_cast<uintptr_t>(C.data[1])));
271}
272
273CXCursor cxcursor::MakeCursorTemplateRef(TemplateDecl *Template,
274                                         SourceLocation Loc,
275                                         CXTranslationUnit TU) {
276  assert(Template && TU && "Invalid arguments!");
277  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
278  CXCursor C = { CXCursor_TemplateRef, { Template, RawLoc, TU } };
279  return C;
280}
281
282std::pair<TemplateDecl *, SourceLocation>
283cxcursor::getCursorTemplateRef(CXCursor C) {
284  assert(C.kind == CXCursor_TemplateRef);
285  return std::make_pair(static_cast<TemplateDecl *>(C.data[0]),
286                        SourceLocation::getFromRawEncoding(
287                                       reinterpret_cast<uintptr_t>(C.data[1])));
288}
289
290CXCursor cxcursor::MakeCursorNamespaceRef(NamedDecl *NS, SourceLocation Loc,
291                                          CXTranslationUnit TU) {
292
293  assert(NS && (isa<NamespaceDecl>(NS) || isa<NamespaceAliasDecl>(NS)) && TU &&
294         "Invalid arguments!");
295  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
296  CXCursor C = { CXCursor_NamespaceRef, { NS, RawLoc, TU } };
297  return C;
298}
299
300std::pair<NamedDecl *, SourceLocation>
301cxcursor::getCursorNamespaceRef(CXCursor C) {
302  assert(C.kind == CXCursor_NamespaceRef);
303  return std::make_pair(static_cast<NamedDecl *>(C.data[0]),
304                        SourceLocation::getFromRawEncoding(
305                                       reinterpret_cast<uintptr_t>(C.data[1])));
306}
307
308CXCursor cxcursor::MakeCursorMemberRef(FieldDecl *Field, SourceLocation Loc,
309                                       CXTranslationUnit TU) {
310
311  assert(Field && TU && "Invalid arguments!");
312  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
313  CXCursor C = { CXCursor_MemberRef, { Field, RawLoc, TU } };
314  return C;
315}
316
317std::pair<FieldDecl *, SourceLocation>
318cxcursor::getCursorMemberRef(CXCursor C) {
319  assert(C.kind == CXCursor_MemberRef);
320  return std::make_pair(static_cast<FieldDecl *>(C.data[0]),
321                        SourceLocation::getFromRawEncoding(
322                                       reinterpret_cast<uintptr_t>(C.data[1])));
323}
324
325CXCursor cxcursor::MakeCursorCXXBaseSpecifier(CXXBaseSpecifier *B,
326                                              CXTranslationUnit TU){
327  CXCursor C = { CXCursor_CXXBaseSpecifier, { B, 0, TU } };
328  return C;
329}
330
331CXXBaseSpecifier *cxcursor::getCursorCXXBaseSpecifier(CXCursor C) {
332  assert(C.kind == CXCursor_CXXBaseSpecifier);
333  return static_cast<CXXBaseSpecifier*>(C.data[0]);
334}
335
336CXCursor cxcursor::MakePreprocessingDirectiveCursor(SourceRange Range,
337                                                    CXTranslationUnit TU) {
338  CXCursor C = { CXCursor_PreprocessingDirective,
339                 { reinterpret_cast<void *>(Range.getBegin().getRawEncoding()),
340                   reinterpret_cast<void *>(Range.getEnd().getRawEncoding()),
341                   TU }
342               };
343  return C;
344}
345
346SourceRange cxcursor::getCursorPreprocessingDirective(CXCursor C) {
347  assert(C.kind == CXCursor_PreprocessingDirective);
348  return SourceRange(SourceLocation::getFromRawEncoding(
349                                      reinterpret_cast<uintptr_t> (C.data[0])),
350                     SourceLocation::getFromRawEncoding(
351                                      reinterpret_cast<uintptr_t> (C.data[1])));
352}
353
354CXCursor cxcursor::MakeMacroDefinitionCursor(MacroDefinition *MI,
355                                             CXTranslationUnit TU) {
356  CXCursor C = { CXCursor_MacroDefinition, { MI, 0, TU } };
357  return C;
358}
359
360MacroDefinition *cxcursor::getCursorMacroDefinition(CXCursor C) {
361  assert(C.kind == CXCursor_MacroDefinition);
362  return static_cast<MacroDefinition *>(C.data[0]);
363}
364
365CXCursor cxcursor::MakeMacroInstantiationCursor(MacroInstantiation *MI,
366                                                CXTranslationUnit TU) {
367  CXCursor C = { CXCursor_MacroInstantiation, { MI, 0, TU } };
368  return C;
369}
370
371MacroInstantiation *cxcursor::getCursorMacroInstantiation(CXCursor C) {
372  assert(C.kind == CXCursor_MacroInstantiation);
373  return static_cast<MacroInstantiation *>(C.data[0]);
374}
375
376CXCursor cxcursor::MakeInclusionDirectiveCursor(InclusionDirective *ID,
377                                                CXTranslationUnit TU) {
378  CXCursor C = { CXCursor_InclusionDirective, { ID, 0, TU } };
379  return C;
380}
381
382InclusionDirective *cxcursor::getCursorInclusionDirective(CXCursor C) {
383  assert(C.kind == CXCursor_InclusionDirective);
384  return static_cast<InclusionDirective *>(C.data[0]);
385}
386
387CXCursor cxcursor::MakeCursorLabelRef(LabelStmt *Label, SourceLocation Loc,
388                                      CXTranslationUnit TU) {
389
390  assert(Label && TU && "Invalid arguments!");
391  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
392  CXCursor C = { CXCursor_LabelRef, { Label, RawLoc, TU } };
393  return C;
394}
395
396std::pair<LabelStmt*, SourceLocation>
397cxcursor::getCursorLabelRef(CXCursor C) {
398  assert(C.kind == CXCursor_LabelRef);
399  return std::make_pair(static_cast<LabelStmt *>(C.data[0]),
400                        SourceLocation::getFromRawEncoding(
401                                       reinterpret_cast<uintptr_t>(C.data[1])));
402}
403
404CXCursor cxcursor::MakeCursorOverloadedDeclRef(OverloadExpr *E,
405                                               CXTranslationUnit TU) {
406  assert(E && TU && "Invalid arguments!");
407  OverloadedDeclRefStorage Storage(E);
408  void *RawLoc = reinterpret_cast<void *>(E->getNameLoc().getRawEncoding());
409  CXCursor C = {
410                 CXCursor_OverloadedDeclRef,
411                 { Storage.getOpaqueValue(), RawLoc, TU }
412               };
413  return C;
414}
415
416CXCursor cxcursor::MakeCursorOverloadedDeclRef(Decl *D,
417                                               SourceLocation Loc,
418                                               CXTranslationUnit TU) {
419  assert(D && TU && "Invalid arguments!");
420  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
421  OverloadedDeclRefStorage Storage(D);
422  CXCursor C = {
423    CXCursor_OverloadedDeclRef,
424    { Storage.getOpaqueValue(), RawLoc, TU }
425  };
426  return C;
427}
428
429CXCursor cxcursor::MakeCursorOverloadedDeclRef(TemplateName Name,
430                                               SourceLocation Loc,
431                                               CXTranslationUnit TU) {
432  assert(Name.getAsOverloadedTemplate() && TU && "Invalid arguments!");
433  void *RawLoc = reinterpret_cast<void *>(Loc.getRawEncoding());
434  OverloadedDeclRefStorage Storage(Name.getAsOverloadedTemplate());
435  CXCursor C = {
436    CXCursor_OverloadedDeclRef,
437    { Storage.getOpaqueValue(), RawLoc, TU }
438  };
439  return C;
440}
441
442std::pair<cxcursor::OverloadedDeclRefStorage, SourceLocation>
443cxcursor::getCursorOverloadedDeclRef(CXCursor C) {
444  assert(C.kind == CXCursor_OverloadedDeclRef);
445  return std::make_pair(OverloadedDeclRefStorage::getFromOpaqueValue(C.data[0]),
446                        SourceLocation::getFromRawEncoding(
447                                       reinterpret_cast<uintptr_t>(C.data[1])));
448}
449
450Decl *cxcursor::getCursorDecl(CXCursor Cursor) {
451  return (Decl *)Cursor.data[0];
452}
453
454Expr *cxcursor::getCursorExpr(CXCursor Cursor) {
455  return dyn_cast_or_null<Expr>(getCursorStmt(Cursor));
456}
457
458Stmt *cxcursor::getCursorStmt(CXCursor Cursor) {
459  if (Cursor.kind == CXCursor_ObjCSuperClassRef ||
460      Cursor.kind == CXCursor_ObjCProtocolRef ||
461      Cursor.kind == CXCursor_ObjCClassRef)
462    return 0;
463
464  return (Stmt *)Cursor.data[1];
465}
466
467Attr *cxcursor::getCursorAttr(CXCursor Cursor) {
468  return (Attr *)Cursor.data[1];
469}
470
471ASTContext &cxcursor::getCursorContext(CXCursor Cursor) {
472  return getCursorASTUnit(Cursor)->getASTContext();
473}
474
475ASTUnit *cxcursor::getCursorASTUnit(CXCursor Cursor) {
476  return static_cast<ASTUnit *>(static_cast<CXTranslationUnit>(Cursor.data[2])
477                                  ->TUData);
478}
479
480CXTranslationUnit cxcursor::getCursorTU(CXCursor Cursor) {
481  return static_cast<CXTranslationUnit>(Cursor.data[2]);
482}
483
484bool cxcursor::operator==(CXCursor X, CXCursor Y) {
485  return X.kind == Y.kind && X.data[0] == Y.data[0] && X.data[1] == Y.data[1] &&
486         X.data[2] == Y.data[2];
487}
488
489// FIXME: Remove once we can model DeclGroups and their appropriate ranges
490// properly in the ASTs.
491bool cxcursor::isFirstInDeclGroup(CXCursor C) {
492  assert(clang_isDeclaration(C.kind));
493  return ((uintptr_t) (C.data[1])) != 0;
494}
495
496//===----------------------------------------------------------------------===//
497// CXCursorSet.
498//===----------------------------------------------------------------------===//
499
500typedef llvm::DenseMap<CXCursor, unsigned> CXCursorSet_Impl;
501
502static inline CXCursorSet packCXCursorSet(CXCursorSet_Impl *setImpl) {
503  return (CXCursorSet) setImpl;
504}
505static inline CXCursorSet_Impl *unpackCXCursorSet(CXCursorSet set) {
506  return (CXCursorSet_Impl*) set;
507}
508namespace llvm {
509template<> struct llvm::DenseMapInfo<CXCursor> {
510public:
511  static inline CXCursor getEmptyKey() {
512    return MakeCXCursorInvalid(CXCursor_InvalidFile);
513  }
514  static inline CXCursor getTombstoneKey() {
515    return MakeCXCursorInvalid(CXCursor_NoDeclFound);
516  }
517  static inline unsigned getHashValue(const CXCursor &cursor) {
518    return llvm::DenseMapInfo<std::pair<void*,void*> >
519      ::getHashValue(std::make_pair(cursor.data[0], cursor.data[1]));
520  }
521  static inline bool isEqual(const CXCursor &x, const CXCursor &y) {
522    return x.kind == y.kind &&
523           x.data[0] == y.data[0] &&
524           x.data[1] == y.data[1];
525  }
526};
527}
528
529extern "C" {
530CXCursorSet clang_createCXCursorSet() {
531  return packCXCursorSet(new CXCursorSet_Impl());
532}
533
534void clang_disposeCXCursorSet(CXCursorSet set) {
535  delete unpackCXCursorSet(set);
536}
537
538unsigned clang_CXCursorSet_contains(CXCursorSet set, CXCursor cursor) {
539  CXCursorSet_Impl *setImpl = unpackCXCursorSet(set);
540  if (!setImpl)
541    return 0;
542  return setImpl->find(cursor) == setImpl->end();
543}
544
545unsigned clang_CXCurorSet_insert(CXCursorSet set, CXCursor cursor) {
546  // Do not insert invalid cursors into the set.
547  if (cursor.kind >= CXCursor_FirstInvalid &&
548      cursor.kind <= CXCursor_LastInvalid)
549    return 1;
550
551  CXCursorSet_Impl *setImpl = unpackCXCursorSet(set);
552  if (!setImpl)
553    return 1;
554  unsigned &entry = (*setImpl)[cursor];
555  unsigned flag = entry == 0 ? 1 : 0;
556  entry = 1;
557  return flag;
558}
559} // end: extern "C"
560
561