|
253
|
1 /**
|
|
|
2 *
|
|
|
3 * Copyright: Copyright QtD Team, 2008-2009
|
|
|
4 * License: <a href="http://www.boost.org/LICENSE_1_0.txt>Boost License 1.0</a>
|
|
258
|
5 * Authors: Max Samukha, Eldar Insafutdinov
|
|
253
|
6 *
|
|
|
7 * Copyright QtD Team, 2008-2009
|
|
|
8 * Distributed under the Boost Software License, Version 1.0.
|
|
|
9 * (See accompanying file boost-license-1.0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
|
258
|
10 *
|
|
253
|
11 */
|
|
|
12
|
|
|
13 module qt.QtdObject;
|
|
|
14
|
|
|
15 import qt.Signal;
|
|
258
|
16 import tango.core.Memory;
|
|
|
17 debug (QtdVerbose)
|
|
|
18 import tango.io.Stdout;
|
|
|
19
|
|
253
|
20
|
|
|
21 enum QtdObjectFlags : ubyte
|
|
|
22 {
|
|
|
23 none,
|
|
258
|
24 // The native object will not be deleted when the wrapper is deleted
|
|
|
25 skipNativeDelete = 0b0001,
|
|
|
26 skipDDelete = 0b0010,
|
|
|
27 hasDId = 0b0100,
|
|
|
28 stackAllocated = 0b1000
|
|
|
29 /+
|
|
|
30 // The will be deleted when is goes out of scope. Implies skipNativeDelete
|
|
|
31 scoped = 0x08
|
|
|
32 +/
|
|
253
|
33 }
|
|
|
34
|
|
258
|
35 class MetaObject
|
|
253
|
36 {
|
|
258
|
37 alias typeof(this) This;
|
|
|
38
|
|
|
39 private
|
|
|
40 {
|
|
|
41 MetaObject _base;
|
|
|
42 ClassInfo _classInfo;
|
|
|
43 }
|
|
|
44
|
|
|
45 //COMPILER BUG: not accessible from QMetaObject
|
|
|
46 protected
|
|
|
47 {
|
|
|
48 This _firstDerived;
|
|
|
49 This _next;
|
|
|
50 }
|
|
|
51
|
|
|
52 private void addDerived(This mo)
|
|
|
53 {
|
|
|
54 mo._next = _firstDerived;
|
|
|
55 _firstDerived = mo;
|
|
|
56 }
|
|
|
57
|
|
|
58 /++
|
|
|
59 Next sibling on this derivation level
|
|
|
60 +/
|
|
|
61 final This next()
|
|
|
62 {
|
|
|
63 return _next;
|
|
|
64 }
|
|
|
65
|
|
|
66 /++
|
|
|
67 Head of the linked list of derived classes
|
|
|
68 +/
|
|
|
69 final This firstDerived()
|
|
|
70 {
|
|
|
71 return _firstDerived;
|
|
|
72 }
|
|
|
73
|
|
|
74 // NOTE: construction is split between this non-templated constructor and 'construct' function below.
|
|
|
75 this(This base)
|
|
|
76 {
|
|
|
77 if (base)
|
|
|
78 {
|
|
|
79 base.addDerived(this);
|
|
|
80 _base = base;
|
|
|
81 }
|
|
|
82 }
|
|
|
83
|
|
|
84 // TODO: can be removed when D acquires templated constructors
|
|
|
85 void construct(T : Object)()
|
|
|
86 {
|
|
|
87 _classInfo = T.classinfo;
|
|
|
88 }
|
|
|
89
|
|
|
90 final This base()
|
|
|
91 {
|
|
|
92 return _base;
|
|
|
93 }
|
|
|
94
|
|
|
95 final ClassInfo classInfo()
|
|
|
96 {
|
|
|
97 return _classInfo;
|
|
|
98 }
|
|
|
99 }
|
|
|
100
|
|
|
101
|
|
|
102 abstract class QtdMetaObject : MetaObject
|
|
|
103 {
|
|
|
104 QtdObjectBase function(void* nativeId, QtdObjectFlags flags) _createWrapper;
|
|
|
105
|
|
|
106 void construct(T : QtdObject, Concrete = T)()
|
|
|
107 {
|
|
|
108 super.construct!(T);
|
|
|
109 _createWrapper = &T.__createWrapper;
|
|
|
110 }
|
|
|
111 }
|
|
|
112
|
|
|
113 /++
|
|
|
114 Meta-object for polymorphic Qt classes.
|
|
|
115 +/
|
|
|
116 final class QtdMetaObject : MetaObject
|
|
|
117 {
|
|
|
118 alias typeof(this) This;
|
|
|
119
|
|
|
120 private void* _typeId;
|
|
|
121
|
|
|
122 this(void* typeId, QtdMetaObject base)
|
|
|
123 {
|
|
|
124 super(base);
|
|
|
125 _typeId = typeId;
|
|
|
126 }
|
|
|
127
|
|
|
128 QtdObject wrap(void* nativeId, void* typeId, QtdObjectFlags flags = QtdObjectFlags.skipNativeDelete)
|
|
|
129 {
|
|
|
130 if (typeId == _typeId)
|
|
|
131 {
|
|
|
132 /+
|
|
|
133 if (auto p = nativeId in _nativeToDMap)
|
|
|
134 return *p;
|
|
|
135 +/
|
|
|
136 }
|
|
|
137 else
|
|
|
138 {
|
|
|
139 for (auto mo = static_cast!(This)(_firstDerived); mo; mo = static_cast!(This)(mo._next))
|
|
|
140 {
|
|
|
141 if (auto obj = mo.wrap(nativeId, typeId, flags))
|
|
|
142 return obj;
|
|
|
143 }
|
|
|
144 }
|
|
|
145
|
|
|
146 return _createWrapper(nativeId, flags);
|
|
|
147 }
|
|
|
148 }
|
|
|
149
|
|
|
150 abstract class QtdObjectBase
|
|
|
151 {
|
|
|
152 alias typeof(this) This;
|
|
|
153
|
|
253
|
154 void* __nativeId;
|
|
258
|
155 QtdObjectFlags __flags;
|
|
|
156
|
|
|
157 new (size_t size, QtdObjectFlags flags = QtdObjectFlags.none)
|
|
|
158 {
|
|
|
159 return flags & QtdObjectFlags.stackAllocated ? __stackAlloc.alloc(size) :
|
|
|
160 GC.malloc(size, GC.BlkAttr.FINALIZE);
|
|
|
161 }
|
|
|
162
|
|
|
163 delete (void* p)
|
|
|
164 {
|
|
|
165 if ((cast(This)p).__flags & QtdObjectFlags.stackAllocated)
|
|
|
166 __stackAlloc.free(this.classinfo.init.length);
|
|
|
167 else
|
|
|
168 GC.free(p);
|
|
|
169 }
|
|
|
170
|
|
253
|
171 this(void* nativeId, QtdObjectFlags flags = QtdObjectFlags.none)
|
|
|
172 {
|
|
|
173 __nativeId = nativeId;
|
|
258
|
174 __flags = flags;
|
|
|
175 debug(QtdVerbose) __print("D wrapper constructed");
|
|
253
|
176 }
|
|
258
|
177
|
|
|
178 debug(QtdVerbose)
|
|
|
179 {
|
|
|
180 void __print(string msg)
|
|
|
181 {
|
|
|
182 Stdout.formatln("{} (native: {}, D: {}, flags 0b{:b})", msg, __nativeId, cast(void*)this, __flags);
|
|
|
183 }
|
|
253
|
184 }
|
|
258
|
185
|
|
253
|
186 protected void __deleteNative()
|
|
|
187 {
|
|
258
|
188 assert(false, "Cannot delete native "
|
|
|
189 ~ this.classinfo.name
|
|
|
190 ~ " because it has no public destructor");
|
|
253
|
191 }
|
|
258
|
192
|
|
253
|
193 ~this()
|
|
|
194 {
|
|
258
|
195 debug(QtdVerbose) __print("In QtdObjectBase destructor");
|
|
|
196
|
|
|
197 if (!(__flags & QtdObjectFlags.skipNativeDelete))
|
|
253
|
198 {
|
|
258
|
199 __flags |= QtdObjectFlags.skipDDelete;
|
|
|
200 debug(QtdVerbose) __print("About to call native delete");
|
|
253
|
201 __deleteNative;
|
|
258
|
202 }
|
|
|
203 }
|
|
|
204 }
|
|
|
205
|
|
|
206 // Base class for by-reference objects
|
|
|
207 abstract class QtdObject : QtdObjectBase
|
|
|
208 {
|
|
|
209 private
|
|
|
210 {
|
|
|
211 typeof(this) __next, __prev;
|
|
|
212 static typeof(this) __root;
|
|
|
213 }
|
|
|
214
|
|
|
215 /++
|
|
|
216 Use this method instead of 'is' operator to check if two D objects
|
|
|
217 wrap the same native object.
|
|
|
218 +/
|
|
|
219 bool isSame(QtdObject other)
|
|
|
220 {
|
|
|
221 return __nativeId == other.__nativeId;
|
|
|
222 }
|
|
|
223
|
|
|
224 mixin SignalHandlerOps;
|
|
|
225
|
|
|
226 this(void* nativeId, QtdObjectFlags flags)
|
|
|
227 {
|
|
|
228 super (nativeId, flags);
|
|
|
229 if (!(flags & QtdObjectFlags.skipNativeDelete))
|
|
|
230 __pin;
|
|
|
231 }
|
|
|
232
|
|
|
233 final void __pin()
|
|
|
234 {
|
|
|
235 debug(QtdVerbose) __print("Pinning");
|
|
|
236
|
|
|
237 __next = __root;
|
|
|
238 __root = this;
|
|
|
239 if (__next)
|
|
|
240 __next.__prev = this;
|
|
|
241 }
|
|
|
242
|
|
|
243 final void __unpin()
|
|
|
244 {
|
|
|
245 debug(QtdVerbose) __print("Unpinning");
|
|
|
246
|
|
|
247 if (__prev)
|
|
|
248 __prev.__next = __next;
|
|
|
249 else
|
|
|
250 __root = __next;
|
|
|
251
|
|
|
252 if (__next)
|
|
|
253 __next.__prev = __prev;
|
|
|
254 }
|
|
|
255
|
|
|
256 void __nativeOwnership(bool value)
|
|
|
257 {
|
|
|
258 if (value)
|
|
|
259 {
|
|
|
260 assert (!(__flags & QtdObjectFlags.skipNativeDelete));
|
|
|
261 __flags |= QtdObjectFlags.skipNativeDelete;
|
|
|
262 __unpin;
|
|
253
|
263 }
|
|
258
|
264 else
|
|
|
265 {
|
|
|
266 assert (__flags & QtdObjectFlags.skipNativeDelete);
|
|
|
267 __flags = __flags &= ~QtdObjectFlags.skipNativeDelete;
|
|
|
268 __pin;
|
|
|
269 }
|
|
|
270 }
|
|
|
271
|
|
|
272 ~this()
|
|
|
273 {
|
|
|
274 debug(QtdVerbose) __print("In QtdObject destructor");
|
|
|
275
|
|
259
|
276 if (__prev || __root is this)d
|
|
258
|
277 __unpin;
|
|
|
278 }
|
|
|
279 }
|
|
|
280
|
|
|
281 /++
|
|
|
282 +/
|
|
|
283 void dispose(QtdObjectBase obj)
|
|
|
284 {
|
|
|
285 obj.__flags &= ~QtdObjectFlags.skipNativeDelete;
|
|
|
286 delete obj;
|
|
|
287 }
|
|
|
288
|
|
|
289 // Called from shell destructors
|
|
|
290 extern(C) void qtd_delete_d_object(void* dId)
|
|
|
291 {
|
|
|
292 auto obj = cast(QtdObject)dId;
|
|
|
293 debug(QtdVerbose) obj.__print("In qtd_delete_d_object");
|
|
|
294
|
|
|
295 if (!(obj.__flags & QtdObjectFlags.skipDDelete))
|
|
|
296 {
|
|
|
297 // Avoid deleting native object twice
|
|
|
298 obj.__flags |= QtdObjectFlags.skipNativeDelete;
|
|
|
299 delete obj;
|
|
253
|
300 }
|
|
|
301 } |
