annotate clang/lib/Analysis/CocoaConventions.cpp @ 176:de4ac79aef9d

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 17:13:11 +0900
parents 1d019706d866
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===- CocoaConventions.h - Special handling of Cocoa conventions -*- C++ -*--//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8 //
anatofuz
parents:
diff changeset
9 // This file implements cocoa naming convention analysis.
anatofuz
parents:
diff changeset
10 //
anatofuz
parents:
diff changeset
11 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
12
anatofuz
parents:
diff changeset
13 #include "clang/Analysis/DomainSpecific/CocoaConventions.h"
anatofuz
parents:
diff changeset
14 #include "clang/AST/Decl.h"
anatofuz
parents:
diff changeset
15 #include "clang/AST/DeclObjC.h"
anatofuz
parents:
diff changeset
16 #include "clang/AST/Type.h"
anatofuz
parents:
diff changeset
17 #include "clang/Basic/CharInfo.h"
anatofuz
parents:
diff changeset
18 #include "llvm/ADT/StringExtras.h"
anatofuz
parents:
diff changeset
19 #include "llvm/Support/ErrorHandling.h"
anatofuz
parents:
diff changeset
20
anatofuz
parents:
diff changeset
21 using namespace clang;
anatofuz
parents:
diff changeset
22 using namespace ento;
anatofuz
parents:
diff changeset
23
anatofuz
parents:
diff changeset
24 bool cocoa::isRefType(QualType RetTy, StringRef Prefix,
anatofuz
parents:
diff changeset
25 StringRef Name) {
anatofuz
parents:
diff changeset
26 // Recursively walk the typedef stack, allowing typedefs of reference types.
anatofuz
parents:
diff changeset
27 while (const TypedefType *TD = RetTy->getAs<TypedefType>()) {
anatofuz
parents:
diff changeset
28 StringRef TDName = TD->getDecl()->getIdentifier()->getName();
anatofuz
parents:
diff changeset
29 if (TDName.startswith(Prefix) && TDName.endswith("Ref"))
anatofuz
parents:
diff changeset
30 return true;
anatofuz
parents:
diff changeset
31 // XPC unfortunately uses CF-style function names, but aren't CF types.
anatofuz
parents:
diff changeset
32 if (TDName.startswith("xpc_"))
anatofuz
parents:
diff changeset
33 return false;
anatofuz
parents:
diff changeset
34 RetTy = TD->getDecl()->getUnderlyingType();
anatofuz
parents:
diff changeset
35 }
anatofuz
parents:
diff changeset
36
anatofuz
parents:
diff changeset
37 if (Name.empty())
anatofuz
parents:
diff changeset
38 return false;
anatofuz
parents:
diff changeset
39
anatofuz
parents:
diff changeset
40 // Is the type void*?
anatofuz
parents:
diff changeset
41 const PointerType* PT = RetTy->castAs<PointerType>();
anatofuz
parents:
diff changeset
42 if (!PT || !PT->getPointeeType().getUnqualifiedType()->isVoidType())
anatofuz
parents:
diff changeset
43 return false;
anatofuz
parents:
diff changeset
44
anatofuz
parents:
diff changeset
45 // Does the name start with the prefix?
anatofuz
parents:
diff changeset
46 return Name.startswith(Prefix);
anatofuz
parents:
diff changeset
47 }
anatofuz
parents:
diff changeset
48
anatofuz
parents:
diff changeset
49 /// Returns true when the passed-in type is a CF-style reference-counted
anatofuz
parents:
diff changeset
50 /// type from the DiskArbitration framework.
anatofuz
parents:
diff changeset
51 static bool isDiskArbitrationAPIRefType(QualType T) {
anatofuz
parents:
diff changeset
52 return cocoa::isRefType(T, "DADisk") ||
anatofuz
parents:
diff changeset
53 cocoa::isRefType(T, "DADissenter") ||
anatofuz
parents:
diff changeset
54 cocoa::isRefType(T, "DASessionRef");
anatofuz
parents:
diff changeset
55 }
anatofuz
parents:
diff changeset
56
anatofuz
parents:
diff changeset
57 bool coreFoundation::isCFObjectRef(QualType T) {
anatofuz
parents:
diff changeset
58 return cocoa::isRefType(T, "CF") || // Core Foundation.
anatofuz
parents:
diff changeset
59 cocoa::isRefType(T, "CG") || // Core Graphics.
anatofuz
parents:
diff changeset
60 cocoa::isRefType(T, "CM") || // Core Media.
anatofuz
parents:
diff changeset
61 isDiskArbitrationAPIRefType(T);
anatofuz
parents:
diff changeset
62 }
anatofuz
parents:
diff changeset
63
anatofuz
parents:
diff changeset
64
anatofuz
parents:
diff changeset
65 bool cocoa::isCocoaObjectRef(QualType Ty) {
anatofuz
parents:
diff changeset
66 if (!Ty->isObjCObjectPointerType())
anatofuz
parents:
diff changeset
67 return false;
anatofuz
parents:
diff changeset
68
anatofuz
parents:
diff changeset
69 const ObjCObjectPointerType *PT = Ty->getAs<ObjCObjectPointerType>();
anatofuz
parents:
diff changeset
70
anatofuz
parents:
diff changeset
71 // Can be true for objects with the 'NSObject' attribute.
anatofuz
parents:
diff changeset
72 if (!PT)
anatofuz
parents:
diff changeset
73 return true;
anatofuz
parents:
diff changeset
74
anatofuz
parents:
diff changeset
75 // We assume that id<..>, id, Class, and Class<..> all represent tracked
anatofuz
parents:
diff changeset
76 // objects.
anatofuz
parents:
diff changeset
77 if (PT->isObjCIdType() || PT->isObjCQualifiedIdType() ||
anatofuz
parents:
diff changeset
78 PT->isObjCClassType() || PT->isObjCQualifiedClassType())
anatofuz
parents:
diff changeset
79 return true;
anatofuz
parents:
diff changeset
80
anatofuz
parents:
diff changeset
81 // Does the interface subclass NSObject?
anatofuz
parents:
diff changeset
82 // FIXME: We can memoize here if this gets too expensive.
anatofuz
parents:
diff changeset
83 const ObjCInterfaceDecl *ID = PT->getInterfaceDecl();
anatofuz
parents:
diff changeset
84
anatofuz
parents:
diff changeset
85 // Assume that anything declared with a forward declaration and no
anatofuz
parents:
diff changeset
86 // @interface subclasses NSObject.
anatofuz
parents:
diff changeset
87 if (!ID->hasDefinition())
anatofuz
parents:
diff changeset
88 return true;
anatofuz
parents:
diff changeset
89
anatofuz
parents:
diff changeset
90 for ( ; ID ; ID = ID->getSuperClass())
anatofuz
parents:
diff changeset
91 if (ID->getIdentifier()->getName() == "NSObject")
anatofuz
parents:
diff changeset
92 return true;
anatofuz
parents:
diff changeset
93
anatofuz
parents:
diff changeset
94 return false;
anatofuz
parents:
diff changeset
95 }
anatofuz
parents:
diff changeset
96
anatofuz
parents:
diff changeset
97 bool coreFoundation::followsCreateRule(const FunctionDecl *fn) {
anatofuz
parents:
diff changeset
98 // For now, *just* base this on the function name, not on anything else.
anatofuz
parents:
diff changeset
99
anatofuz
parents:
diff changeset
100 const IdentifierInfo *ident = fn->getIdentifier();
anatofuz
parents:
diff changeset
101 if (!ident) return false;
anatofuz
parents:
diff changeset
102 StringRef functionName = ident->getName();
anatofuz
parents:
diff changeset
103
anatofuz
parents:
diff changeset
104 StringRef::iterator it = functionName.begin();
anatofuz
parents:
diff changeset
105 StringRef::iterator start = it;
anatofuz
parents:
diff changeset
106 StringRef::iterator endI = functionName.end();
anatofuz
parents:
diff changeset
107
anatofuz
parents:
diff changeset
108 while (true) {
anatofuz
parents:
diff changeset
109 // Scan for the start of 'create' or 'copy'.
anatofuz
parents:
diff changeset
110 for ( ; it != endI ; ++it) {
anatofuz
parents:
diff changeset
111 // Search for the first character. It can either be 'C' or 'c'.
anatofuz
parents:
diff changeset
112 char ch = *it;
anatofuz
parents:
diff changeset
113 if (ch == 'C' || ch == 'c') {
anatofuz
parents:
diff changeset
114 // Make sure this isn't something like 'recreate' or 'Scopy'.
anatofuz
parents:
diff changeset
115 if (ch == 'c' && it != start && isLetter(*(it - 1)))
anatofuz
parents:
diff changeset
116 continue;
anatofuz
parents:
diff changeset
117
anatofuz
parents:
diff changeset
118 ++it;
anatofuz
parents:
diff changeset
119 break;
anatofuz
parents:
diff changeset
120 }
anatofuz
parents:
diff changeset
121 }
anatofuz
parents:
diff changeset
122
anatofuz
parents:
diff changeset
123 // Did we hit the end of the string? If so, we didn't find a match.
anatofuz
parents:
diff changeset
124 if (it == endI)
anatofuz
parents:
diff changeset
125 return false;
anatofuz
parents:
diff changeset
126
anatofuz
parents:
diff changeset
127 // Scan for *lowercase* 'reate' or 'opy', followed by no lowercase
anatofuz
parents:
diff changeset
128 // character.
anatofuz
parents:
diff changeset
129 StringRef suffix = functionName.substr(it - start);
anatofuz
parents:
diff changeset
130 if (suffix.startswith("reate")) {
anatofuz
parents:
diff changeset
131 it += 5;
anatofuz
parents:
diff changeset
132 }
anatofuz
parents:
diff changeset
133 else if (suffix.startswith("opy")) {
anatofuz
parents:
diff changeset
134 it += 3;
anatofuz
parents:
diff changeset
135 } else {
anatofuz
parents:
diff changeset
136 // Keep scanning.
anatofuz
parents:
diff changeset
137 continue;
anatofuz
parents:
diff changeset
138 }
anatofuz
parents:
diff changeset
139
anatofuz
parents:
diff changeset
140 if (it == endI || !isLowercase(*it))
anatofuz
parents:
diff changeset
141 return true;
anatofuz
parents:
diff changeset
142
anatofuz
parents:
diff changeset
143 // If we matched a lowercase character, it isn't the end of the
anatofuz
parents:
diff changeset
144 // word. Keep scanning.
anatofuz
parents:
diff changeset
145 }
anatofuz
parents:
diff changeset
146 }