comimpl.xsl@ 72324

Last change on this file since 72324 was 60977, checked in by vboxsync, 9 years ago
Main/VirtualBoxBase: Add code for collecting information about how many API objects of each component type are currently around and how many have been created ever. While working on this the tiny bug in the event code was found (harmless, as before VirtualBoxBase::BaseFinalRelease was idempotent, but now no longer acceptable)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 33.0 KB

Line
1	<xsl:stylesheet version = '1.0'
2	xmlns:xsl='http://www.w3.org/1999/XSL/Transform'
3	xmlns:vbox="http://www.virtualbox.org/"
4	xmlns:exsl="http://exslt.org/common"
5	extension-element-prefixes="exsl">
6
7	<!--
8
9	comimpl.xsl:
10	XSLT stylesheet that generates COM C++ classes implementing
11	interfaces described in VirtualBox.xidl.
12	For now we generate implementation for events, as they are
13	rather trivial container classes for their read-only attributes.
14	Further extension to other interfaces is possible and anticipated.
15
16	Copyright (C) 2010-2016 Oracle Corporation
17
18	This file is part of VirtualBox Open Source Edition (OSE), as
19	available from http://www.virtualbox.org. This file is free software;
20	you can redistribute it and/or modify it under the terms of the GNU
21	General Public License (GPL) as published by the Free Software
22	Foundation, in version 2 as it comes in the "COPYING" file of the
23	VirtualBox OSE distribution. VirtualBox OSE is distributed in the
24	hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
25	-->
26
27	<xsl:output
28	method="text"
29	version="1.0"
30	encoding="utf-8"
31	indent="no"/>
32
33	<xsl:include href="typemap-shared.inc.xsl" />
34
35	<!-- $G_kind contains what kind of COM class implementation we generate -->
36	<xsl:variable name="G_xsltFilename" select="'autogen.xsl'" />
37
38
39	<!-- - - - - - - - - - - - - - - - - - - - - - -
40	Keys for more efficiently looking up of types.
41	- - - - - - - - - - - - - - - - - - - - - - -->
42
43	<xsl:key name="G_keyEnumsByName" match="//enum[@name]" use="@name"/>
44	<xsl:key name="G_keyInterfacesByName" match="//interface[@name]" use="@name"/>
45
46	<!-- - - - - - - - - - - - - - - - - - - - - - -
47	- - - - - - - - - - - - - - - - - - - - - - -->
48
49	<xsl:template name="fileheader">
50	<xsl:param name="name" />
51	<xsl:text>/** @file </xsl:text>
52	<xsl:value-of select="$name"/>
53	<xsl:text>
54	* DO NOT EDIT! This is a generated file.
55	* Generated from: src/VBox/Main/idl/VirtualBox.xidl (VirtualBox's interface definitions in XML)
56	* Generator: src/VBox/Main/idl/comimpl.xsl
57	*/
58
59	/*
60	* Copyright (C) 2010-2016 Oracle Corporation
61	*
62	* This file is part of VirtualBox Open Source Edition (OSE), as
63	* available from http://www.virtualbox.org. This file is free software;
64	* you can redistribute it and/or modify it under the terms of the GNU
65	* General Public License (GPL) as published by the Free Software
66	* Foundation, in version 2 as it comes in the "COPYING" file of the
67	* VirtualBox OSE distribution. VirtualBox OSE is distributed in the
68	* hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
69	*/
70
71	</xsl:text>
72	</xsl:template>
73
74	<xsl:template name="genComEntry">
75	<xsl:param name="name" />
76	<xsl:variable name="extends">
77	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
78	</xsl:variable>
79
80	<xsl:value-of select="concat(' COM_INTERFACE_ENTRY(', $name, ') ')" />
81	<xsl:choose>
82	<xsl:when test="$extends='$unknown'">
83	<!-- Reached base -->
84	</xsl:when>
85	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
86	<xsl:call-template name="genComEntry">
87	<xsl:with-param name="name" select="$extends" />
88	</xsl:call-template>
89	</xsl:when>
90	<xsl:otherwise>
91	<xsl:call-template name="fatalError">
92	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $extends)" />
93	</xsl:call-template>
94	</xsl:otherwise>
95	</xsl:choose>
96	</xsl:template>
97
98	<xsl:template name="typeIdl2Back">
99	<xsl:param name="type" />
100	<xsl:param name="safearray" />
101	<xsl:param name="param" />
102	<xsl:param name="dir" />
103	<xsl:param name="mod" />
104
105	<xsl:choose>
106	<xsl:when test="$safearray='yes'">
107	<xsl:variable name="elemtype">
108	<xsl:call-template name="typeIdl2Back">
109	<xsl:with-param name="type" select="$type" />
110	<xsl:with-param name="safearray" select="''" />
111	<xsl:with-param name="dir" select="'in'" />
112	</xsl:call-template>
113	</xsl:variable>
114	<xsl:choose>
115	<xsl:when test="$param and ($dir='in')">
116	<xsl:value-of select="concat('ComSafeArrayIn(',$elemtype,',', $param,')')"/>
117	</xsl:when>
118	<xsl:when test="$param and ($dir='out')">
119	<xsl:value-of select="concat('ComSafeArrayOut(',$elemtype,', ', $param, ')')"/>
120	</xsl:when>
121	<xsl:otherwise>
122	<xsl:value-of select="concat('com::SafeArray<',$elemtype,'>')"/>
123	</xsl:otherwise>
124	</xsl:choose>
125	</xsl:when>
126	<xsl:otherwise>
127	<xsl:choose>
128	<xsl:when test="$mod='ptr'">
129	<xsl:value-of select="'BYTE*'" />
130	</xsl:when>
131	<xsl:when test="(($type='wstring') or ($type='uuid'))">
132	<xsl:choose>
133	<xsl:when test="$param and ($dir='in')">
134	<xsl:value-of select="'CBSTR'"/>
135	</xsl:when>
136	<xsl:when test="$param and ($dir='out')">
137	<xsl:value-of select="'BSTR'"/>
138	</xsl:when>
139	<xsl:otherwise>
140	<xsl:value-of select="'Bstr'"/>
141	</xsl:otherwise>
142	</xsl:choose>
143	</xsl:when>
144	<xsl:when test="count(key('G_keyEnumsByName', $type)) > 0">
145	<xsl:value-of select="concat($type,'_T')"/>
146	</xsl:when>
147	<xsl:when test="count(key('G_keyInterfacesByName', $type)) > 0">
148	<xsl:choose>
149	<xsl:when test="$param">
150	<xsl:value-of select="concat($type,'*')"/>
151	</xsl:when>
152	<xsl:otherwise>
153	<xsl:value-of select="concat('ComPtr<',$type,'>')"/>
154	</xsl:otherwise>
155	</xsl:choose>
156	</xsl:when>
157	<xsl:when test="$type='boolean'">
158	<xsl:value-of select="'BOOL'" />
159	</xsl:when>
160	<xsl:when test="$type='octet'">
161	<xsl:value-of select="'BYTE'" />
162	</xsl:when>
163	<xsl:when test="$type='unsigned short'">
164	<xsl:value-of select="'USHORT'" />
165	</xsl:when>
166	<xsl:when test="$type='short'">
167	<xsl:value-of select="'SHORT'" />
168	</xsl:when>
169	<xsl:when test="$type='unsigned long'">
170	<xsl:value-of select="'ULONG'" />
171	</xsl:when>
172	<xsl:when test="$type='long'">
173	<xsl:value-of select="'LONG'" />
174	</xsl:when>
175	<xsl:when test="$type='unsigned long long'">
176	<xsl:value-of select="'ULONG64'" />
177	</xsl:when>
178	<xsl:when test="$type='long long'">
179	<xsl:value-of select="'LONG64'" />
180	</xsl:when>
181	<xsl:otherwise>
182	<xsl:call-template name="fatalError">
183	<xsl:with-param name="msg" select="concat('Unhandled type: ', $type)" />
184	</xsl:call-template>
185	</xsl:otherwise>
186	</xsl:choose>
187	<xsl:if test="$dir='out'">
188	<xsl:value-of select="'*'"/>
189	</xsl:if>
190	<xsl:if test="$param and not($param='_')">
191	<xsl:value-of select="concat(' ', $param)"/>
192	</xsl:if>
193	</xsl:otherwise>
194	</xsl:choose>
195
196	</xsl:template>
197
198
199	<xsl:template name="genSetParam">
200	<xsl:param name="member"/>
201	<xsl:param name="param"/>
202	<xsl:param name="type"/>
203	<xsl:param name="safearray"/>
204
205	<xsl:choose>
206	<xsl:when test="$safearray='yes'">
207	<xsl:variable name="elemtype">
208	<xsl:call-template name="typeIdl2Back">
209	<xsl:with-param name="type" select="$type" />
210	<xsl:with-param name="safearray" select="''" />
211	<xsl:with-param name="dir" select="'in'" />
212	</xsl:call-template>
213	</xsl:variable>
214	<xsl:value-of select="concat(' SafeArray<', $elemtype, '> aArr(ComSafeArrayInArg(',$param,')); ')"/>
215	<xsl:value-of select="concat(' ',$member, '.initFrom(aArr); ')"/>
216	</xsl:when>
217	<xsl:otherwise>
218	<xsl:value-of select="concat(' ', $member, ' = ', $param, '; ')"/>
219	</xsl:otherwise>
220	</xsl:choose>
221	</xsl:template>
222
223	<xsl:template name="genRetParam">
224	<xsl:param name="member"/>
225	<xsl:param name="param"/>
226	<xsl:param name="type"/>
227	<xsl:param name="safearray"/>
228	<xsl:choose>
229	<xsl:when test="$safearray='yes'">
230	<xsl:variable name="elemtype">
231	<xsl:call-template name="typeIdl2Back">
232	<xsl:with-param name="type" select="$type" />
233	<xsl:with-param name="safearray" select="''" />
234	<xsl:with-param name="dir" select="'in'" />
235	</xsl:call-template>
236	</xsl:variable>
237	<xsl:value-of select="concat(' SafeArray<', $elemtype,'> result; ')"/>
238	<xsl:value-of select="concat(' ', $member, '.cloneTo(result); ')"/>
239	<xsl:value-of select="concat(' result.detachTo(ComSafeArrayOutArg(', $param, ')); ')"/>
240	</xsl:when>
241	<xsl:otherwise>
242	<xsl:choose>
243	<xsl:when test="($type='wstring') or ($type = 'uuid')">
244	<xsl:value-of select="concat(' ', $member, '.cloneTo(', $param, '); ')"/>
245	</xsl:when>
246	<xsl:when test="count(key('G_keyInterfacesByName', $type)) > 0">
247	<xsl:value-of select="concat(' ', $member, '.queryInterfaceTo(', $param, '); ')"/>
248	</xsl:when>
249	<xsl:otherwise>
250	<xsl:value-of select="concat(' *', $param, ' = ', $member, '; ')"/>
251	</xsl:otherwise>
252	</xsl:choose>
253	</xsl:otherwise>
254	</xsl:choose>
255	</xsl:template>
256
257	<xsl:template name="genAttrInitCode">
258	<xsl:param name="name" />
259	<xsl:param name="obj" />
260	<xsl:variable name="extends">
261	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
262	</xsl:variable>
263
264	<xsl:choose>
265	<xsl:when test="$extends='IEvent'">
266	</xsl:when>
267	<xsl:when test="$extends='IReusableEvent'">
268	</xsl:when>
269	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
270	<xsl:call-template name="genAttrInitCode">
271	<xsl:with-param name="name" select="$extends" />
272	<xsl:with-param name="obj" select="$obj" />
273	</xsl:call-template>
274	</xsl:when>
275	<xsl:otherwise>
276	<xsl:call-template name="fatalError">
277	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
278	</xsl:call-template>
279	</xsl:otherwise>
280	</xsl:choose>
281
282	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
283	<xsl:variable name="aName" select="concat('a_',@name)"/>
284	<xsl:variable name="aTypeName">
285	<xsl:call-template name="typeIdl2Back">
286	<xsl:with-param name="type" select="@type" />
287	<xsl:with-param name="safearray" select="@safearray" />
288	<xsl:with-param name="param" select="$aName" />
289	<xsl:with-param name="dir" select="'in'" />
290	<xsl:with-param name="mod" select="@mod" />
291	</xsl:call-template>
292	</xsl:variable>
293	<xsl:variable name="aType">
294	<xsl:call-template name="typeIdl2Back">
295	<xsl:with-param name="type" select="@type" />
296	<xsl:with-param name="safearray" select="@safearray" />
297	<xsl:with-param name="param" select="'_'" />
298	<xsl:with-param name="dir" select="'in'" />
299	<xsl:with-param name="mod" select="@mod" />
300	</xsl:call-template>
301	</xsl:variable>
302
303	<xsl:choose>
304	<xsl:when test="@safearray='yes'">
305	<xsl:variable name="elemtype">
306	<xsl:call-template name="typeIdl2Back">
307	<xsl:with-param name="type" select="@type" />
308	<xsl:with-param name="safearray" select="''" />
309	<xsl:with-param name="dir" select="'in'" />
310	</xsl:call-template>
311	</xsl:variable>
312	<xsl:value-of select=" '#ifdef RT_OS_WINDOWS '"/>
313	<xsl:value-of select="concat(' SAFEARRAY aPtr_', @name, ' = va_arg(args, SAFEARRAY ); ')"/>
314	<xsl:value-of select="concat(' com::SafeArray<', $elemtype,'> aArr_', @name, '(aPtr_', @name, '); ')"/>
315	<xsl:value-of select=" '#else '"/>
316	<xsl:value-of select="concat(' PRUint32 aArrSize_', @name, ' = va_arg(args, PRUint32); ')"/>
317	<xsl:value-of select="concat(' void* aPtr_', @name, ' = va_arg(args, void*); ')"/>
318	<xsl:value-of select="concat(' com::SafeArray<', $elemtype,'> aArr_', @name, '(aArrSize_', @name, ', (', $elemtype,'*)aPtr_', @name, '); ')"/>
319	<xsl:value-of select=" '#endif '"/>
320	<xsl:value-of select="concat(' ',$obj, '->set_', @name, '(ComSafeArrayAsInParam(aArr_', @name, ')); ')"/>
321	</xsl:when>
322	<xsl:otherwise>
323	<xsl:value-of select="concat(' ',$aTypeName, ' = va_arg(args, ',$aType,'); ')"/>
324	<xsl:value-of select="concat(' ',$obj, '->set_', @name, '(',$aName, '); ')"/>
325	</xsl:otherwise>
326	</xsl:choose>
327	</xsl:for-each>
328	</xsl:template>
329
330	<xsl:template name="genImplList">
331	<xsl:param name="impl" />
332	<xsl:param name="name" />
333	<xsl:param name="depth" />
334	<xsl:param name="parents" />
335
336	<xsl:variable name="extends">
337	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
338	</xsl:variable>
339
340	<xsl:choose>
341	<xsl:when test="$name='IEvent'">
342	<xsl:value-of select=" '#ifdef VBOX_WITH_XPCOM '" />
343	<xsl:value-of select="concat('NS_DECL_CLASSINFO(', $impl, ') ')" />
344	<xsl:value-of select="concat('NS_IMPL_THREADSAFE_ISUPPORTS',$depth,'_CI(', $impl, $parents, ', IEvent) ')" />
345	<xsl:value-of select=" '#endif '"/>
346	</xsl:when>
347	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
348	<xsl:call-template name="genImplList">
349	<xsl:with-param name="impl" select="$impl" />
350	<xsl:with-param name="name" select="$extends" />
351	<xsl:with-param name="depth" select="$depth+1" />
352	<xsl:with-param name="parents" select="concat($parents, ', ', $name)" />
353	</xsl:call-template>
354	</xsl:when>
355	<xsl:otherwise>
356	<xsl:call-template name="fatalError">
357	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
358	</xsl:call-template>
359	</xsl:otherwise>
360	</xsl:choose>
361	</xsl:template>
362
363	<xsl:template name="genAttrCode">
364	<xsl:param name="name" />
365	<xsl:param name="depth" />
366	<xsl:param name="parents" />
367
368	<xsl:variable name="extends">
369	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
370	</xsl:variable>
371
372	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute">
373	<xsl:variable name="mName">
374	<xsl:value-of select="concat('m_', @name)" />
375	</xsl:variable>
376	<xsl:variable name="mType">
377	<xsl:call-template name="typeIdl2Back">
378	<xsl:with-param name="type" select="@type" />
379	<xsl:with-param name="safearray" select="@safearray" />
380	<xsl:with-param name="dir" select="'in'" />
381	<xsl:with-param name="mod" select="@mod" />
382	</xsl:call-template>
383	</xsl:variable>
384	<xsl:variable name="pName">
385	<xsl:value-of select="concat('a_', @name)" />
386	</xsl:variable>
387	<xsl:variable name="pTypeNameOut">
388	<xsl:call-template name="typeIdl2Back">
389	<xsl:with-param name="type" select="@type" />
390	<xsl:with-param name="safearray" select="@safearray" />
391	<xsl:with-param name="param" select="$pName" />
392	<xsl:with-param name="dir" select="'out'" />
393	<xsl:with-param name="mod" select="@mod" />
394	</xsl:call-template>
395	</xsl:variable>
396
397	<xsl:variable name="pTypeNameIn">
398	<xsl:call-template name="typeIdl2Back">
399	<xsl:with-param name="type" select="@type" />
400	<xsl:with-param name="safearray" select="@safearray" />
401	<xsl:with-param name="param" select="$pName" />
402	<xsl:with-param name="dir" select="'in'" />
403	<xsl:with-param name="mod" select="@mod" />
404	</xsl:call-template>
405	</xsl:variable>
406
407	<xsl:variable name="capsName">
408	<xsl:call-template name="capitalize">
409	<xsl:with-param name="str" select="@name" />
410	</xsl:call-template>
411	</xsl:variable>
412
413	<xsl:value-of select=" ' '" />
414	<xsl:value-of select="concat(' // attribute ', @name,' ')" />
415	<xsl:value-of select=" 'private: '" />
416	<xsl:value-of select="concat(' ', $mType, ' ', $mName,'; ')" />
417	<xsl:value-of select=" 'public: '" />
418	<xsl:value-of select="concat(' STDMETHOD(COMGETTER(', $capsName,'))(',$pTypeNameOut,') { ')" />
419	<xsl:call-template name="genRetParam">
420	<xsl:with-param name="type" select="@type" />
421	<xsl:with-param name="member" select="$mName" />
422	<xsl:with-param name="param" select="$pName" />
423	<xsl:with-param name="safearray" select="@safearray" />
424	</xsl:call-template>
425	<xsl:value-of select=" ' return S_OK; '" />
426	<xsl:value-of select=" ' } '" />
427
428	<xsl:if test="not(@readonly='yes')">
429	<xsl:value-of select="concat(' STDMETHOD(COMSETTER(', $capsName,'))(',$pTypeNameIn,') { ')" />
430	<xsl:call-template name="genSetParam">
431	<xsl:with-param name="type" select="@type" />
432	<xsl:with-param name="member" select="$mName" />
433	<xsl:with-param name="param" select="$pName" />
434	<xsl:with-param name="safearray" select="@safearray" />
435	</xsl:call-template>
436	<xsl:value-of select=" ' return S_OK; '" />
437	<xsl:value-of select=" ' } '" />
438	</xsl:if>
439
440	<xsl:value-of select=" ' // purely internal setter '" />
441	<xsl:value-of select="concat(' HRESULT set_', @name,'(',$pTypeNameIn, ') { ')" />
442	<xsl:call-template name="genSetParam">
443	<xsl:with-param name="type" select="@type" />
444	<xsl:with-param name="member" select="$mName" />
445	<xsl:with-param name="param" select="$pName" />
446	<xsl:with-param name="safearray" select="@safearray" />
447	</xsl:call-template>
448	<xsl:value-of select=" ' return S_OK; '" />
449	<xsl:value-of select=" ' } '" />
450	</xsl:for-each>
451
452	<xsl:choose>
453	<xsl:when test="$extends='IEvent'">
454	<xsl:value-of select=" ' // skipping IEvent attributes '" />
455	</xsl:when>
456	<xsl:when test="$extends='IReusableEvent'">
457	<xsl:value-of select=" ' // skipping IReusableEvent attributes '" />
458	</xsl:when>
459	<xsl:when test="$extends='IVetoEvent'">
460	<xsl:value-of select=" ' // skipping IVetoEvent attributes '" />
461	</xsl:when>
462	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
463	<xsl:call-template name="genAttrCode">
464	<xsl:with-param name="name" select="$extends" />
465	<xsl:with-param name="depth" select="$depth+1" />
466	<xsl:with-param name="parents" select="concat($parents, ', ', @name)" />
467	</xsl:call-template>
468	</xsl:when>
469	<xsl:otherwise>
470	<xsl:call-template name="fatalError">
471	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $extends)" />
472	</xsl:call-template>
473	</xsl:otherwise>
474	</xsl:choose>
475	</xsl:template>
476
477	<xsl:template name="genEventImpl">
478	<xsl:param name="implName" />
479	<xsl:param name="isVeto" />
480	<xsl:param name="isReusable" />
481
482	<xsl:value-of select="concat('class ATL_NO_VTABLE ',$implName,
483	' : public VirtualBoxBase, VBOX_SCRIPTABLE_IMPL(',
484	@name, ') { ')" />
485	<xsl:value-of select="'public: '" />
486	<xsl:value-of select="concat(' VIRTUALBOXBASE_ADD_ERRORINFO_SUPPORT(', $implName, ', ', @name, ') ')" />
487	<xsl:value-of select="concat(' DECLARE_NOT_AGGREGATABLE(', $implName, ') ')" />
488	<xsl:value-of select=" ' DECLARE_PROTECT_FINAL_CONSTRUCT() '" />
489	<xsl:value-of select="concat(' BEGIN_COM_MAP(', $implName, ') ')" />
490	<xsl:value-of select=" ' COM_INTERFACE_ENTRY(ISupportErrorInfo) '" />
491	<xsl:value-of select="concat(' COM_INTERFACE_ENTRY(', @name, ') ')" />
492	<xsl:value-of select="concat(' COM_INTERFACE_ENTRY2(IDispatch, ', @name, ') ')" />
493	<xsl:value-of select="concat(' VBOX_TWEAK_INTERFACE_ENTRY(', @name, ') ')" />
494
495	<xsl:call-template name="genComEntry">
496	<xsl:with-param name="name" select="@name" />
497	</xsl:call-template>
498	<xsl:value-of select=" ' END_COM_MAP() '" />
499	<xsl:value-of select="concat(' ',$implName,'() { /printf("',$implName,'\n")/;} ')" />
500	<xsl:value-of select="concat(' virtual ~',$implName,'() { /printf("~',$implName,'\n")/; uninit(); } ')" />
501	<xsl:text><![CDATA[
502	HRESULT FinalConstruct()
503	{
504	BaseFinalConstruct();
505	return mEvent.createObject();
506	}
507	void FinalRelease()
508	{
509	uninit();
510	BaseFinalRelease();
511	}
512	STDMETHOD(COMGETTER(Type))(VBoxEventType_T *aType)
513	{
514	return mEvent->COMGETTER(Type)(aType);
515	}
516	STDMETHOD(COMGETTER(Source))(IEventSource * *aSource)
517	{
518	return mEvent->COMGETTER(Source)(aSource);
519	}
520	STDMETHOD(COMGETTER(Waitable))(BOOL *aWaitable)
521	{
522	return mEvent->COMGETTER(Waitable)(aWaitable);
523	}
524	STDMETHOD(SetProcessed)()
525	{
526	return mEvent->SetProcessed();
527	}
528	STDMETHOD(WaitProcessed)(LONG aTimeout, BOOL *aResult)
529	{
530	return mEvent->WaitProcessed(aTimeout, aResult);
531	}
532	void uninit()
533	{
534	if (!mEvent.isNull())
535	{
536	mEvent->uninit();
537	mEvent.setNull();
538	}
539	}
540	]]></xsl:text>
541	<xsl:choose>
542	<xsl:when test="$isVeto='yes'">
543	<xsl:text><![CDATA[
544	HRESULT init(IEventSource* aSource, VBoxEventType_T aType, BOOL aWaitable = TRUE)
545	{
546	NOREF(aWaitable);
547	return mEvent->init(aSource, aType);
548	}
549	STDMETHOD(AddVeto)(IN_BSTR aVeto)
550	{
551	return mEvent->AddVeto(aVeto);
552	}
553	STDMETHOD(IsVetoed)(BOOL *aResult)
554	{
555	return mEvent->IsVetoed(aResult);
556	}
557	STDMETHOD(GetVetos)(ComSafeArrayOut(BSTR, aVetos))
558	{
559	return mEvent->GetVetos(ComSafeArrayOutArg(aVetos));
560	}
561	STDMETHOD(AddApproval)(IN_BSTR aReason)
562	{
563	return mEvent->AddApproval(aReason);
564	}
565	STDMETHOD(IsApproved)(BOOL *aResult)
566	{
567	return mEvent->IsApproved(aResult);
568	}
569	STDMETHOD(GetApprovals)(ComSafeArrayOut(BSTR, aReasons))
570	{
571	return mEvent->GetApprovals(ComSafeArrayOutArg(aReasons));
572	}
573	private:
574	ComObjPtr<VBoxVetoEvent> mEvent;
575	]]></xsl:text>
576	</xsl:when>
577	<xsl:when test="$isReusable='yes'">
578	<xsl:text>
579	<![CDATA[
580	HRESULT init(IEventSource* aSource, VBoxEventType_T aType, BOOL aWaitable = FALSE)
581	{
582	mGeneration = 1;
583	return mEvent->init(aSource, aType, aWaitable);
584	}
585	STDMETHOD(COMGETTER(Generation))(ULONG *aGeneration)
586	{
587	*aGeneration = mGeneration;
588	return S_OK;
589	}
590	STDMETHOD(Reuse)()
591	{
592	ASMAtomicIncU32((volatile uint32_t*)&mGeneration);
593	return S_OK;
594	}
595	private:
596	volatile ULONG mGeneration;
597	ComObjPtr<VBoxEvent> mEvent;
598	]]></xsl:text>
599	</xsl:when>
600	<xsl:otherwise>
601	<xsl:text><![CDATA[
602	HRESULT init(IEventSource* aSource, VBoxEventType_T aType, BOOL aWaitable)
603	{
604	return mEvent->init(aSource, aType, aWaitable);
605	}
606	private:
607	ComObjPtr<VBoxEvent> mEvent;
608	]]></xsl:text>
609	</xsl:otherwise>
610	</xsl:choose>
611
612	<!-- Before we generate attribute code, we check and make sure there are attributes here. -->
613	<xsl:if test="count(attribute) = 0 and @name != 'INATNetworkAlterEvent'">
614	<xsl:call-template name="fatalError">
615	<xsl:with-param name="msg">error: <xsl:value-of select="@name"/> has no attributes</xsl:with-param>
616	</xsl:call-template>
617	</xsl:if>
618
619	<xsl:call-template name="genAttrCode">
620	<xsl:with-param name="name" select="@name" />
621	</xsl:call-template>
622	<xsl:value-of select="'}; '" />
623
624
625	<xsl:call-template name="genImplList">
626	<xsl:with-param name="impl" select="$implName" />
627	<xsl:with-param name="name" select="@name" />
628	<xsl:with-param name="depth" select="'1'" />
629	<xsl:with-param name="parents" select="''" />
630	</xsl:call-template>
631
632	</xsl:template>
633
634
635	<xsl:template name="genSwitchCase">
636	<xsl:param name="ifaceName" />
637	<xsl:param name="implName" />
638	<xsl:param name="reinit" />
639	<xsl:variable name="waitable">
640	<xsl:choose>
641	<xsl:when test="@waitable='yes'">
642	<xsl:value-of select="'TRUE'"/>
643	</xsl:when>
644	<xsl:otherwise>
645	<xsl:value-of select="'FALSE'"/>
646	</xsl:otherwise>
647	</xsl:choose>
648	</xsl:variable>
649	<xsl:value-of select="concat(' case VBoxEventType_', @id, ': ')"/>
650	<xsl:value-of select=" ' { '"/>
651	<xsl:choose>
652	<xsl:when test="$reinit='yes'">
653	<xsl:value-of select="concat(' ComPtr<', $ifaceName, '> iobj; ')"/>
654	<xsl:value-of select=" ' iobj = mEvent; '"/>
655	<xsl:value-of select=" ' Assert(!iobj.isNull()); '"/>
656	<xsl:value-of select="concat(' ',$implName, '* obj = (', $implName, ')(', $ifaceName, ')iobj; ')"/>
657	<xsl:value-of select=" ' obj->Reuse(); '"/>
658	</xsl:when>
659	<xsl:otherwise>
660	<xsl:value-of select="concat(' ComObjPtr<', $implName, '> obj; ')"/>
661	<xsl:value-of select=" ' obj.createObject(); '"/>
662	<xsl:value-of select="concat(' obj->init(aSource, aType, ', $waitable, '); ')"/>
663	</xsl:otherwise>
664	</xsl:choose>
665	<xsl:call-template name="genAttrInitCode">
666	<xsl:with-param name="name" select="@name" />
667	<xsl:with-param name="obj" select="'obj'" />
668	</xsl:call-template>
669	<xsl:if test="not($reinit='yes')">
670	<xsl:value-of select=" ' obj.queryInterfaceTo(mEvent.asOutParam()); '"/>
671	</xsl:if>
672	<xsl:value-of select=" ' break; '"/>
673	<xsl:value-of select=" ' } '"/>
674	</xsl:template>
675
676	<xsl:template name="genCommonEventCode">
677	<xsl:call-template name="fileheader">
678	<xsl:with-param name="name" select="'VBoxEvents.cpp'" />
679	</xsl:call-template>
680
681	<xsl:text><![CDATA[
682	#include <VBox/com/array.h>
683	#include <iprt/asm.h>
684	#include "EventImpl.h"
685	]]></xsl:text>
686
687	<!-- Interfaces -->
688	<xsl:for-each select="//interface[@autogen=$G_kind]">
689	<xsl:value-of select="concat('// ', @name, ' implementation code')" />
690	<xsl:call-template name="xsltprocNewlineOutputHack"/>
691	<xsl:variable name="implName">
692	<xsl:value-of select="substring(@name, 2)" />
693	</xsl:variable>
694
695	<xsl:choose>
696	<xsl:when test="$G_kind='VBoxEvent'">
697	<xsl:variable name="isVeto">
698	<xsl:if test="@extends='IVetoEvent'">
699	<xsl:value-of select="'yes'" />
700	</xsl:if>
701	</xsl:variable>
702	<xsl:variable name="isReusable">
703	<xsl:if test="@extends='IReusableEvent'">
704	<xsl:value-of select="'yes'" />
705	</xsl:if>
706	</xsl:variable>
707	<xsl:call-template name="genEventImpl">
708	<xsl:with-param name="implName" select="$implName" />
709	<xsl:with-param name="isVeto" select="$isVeto" />
710	<xsl:with-param name="isReusable" select="$isReusable" />
711	</xsl:call-template>
712	</xsl:when>
713	</xsl:choose>
714	</xsl:for-each>
715
716	<xsl:text><![CDATA[
717	HRESULT VBoxEventDesc::init(IEventSource *aSource, VBoxEventType_T aType, ...)
718	{
719	va_list args;
720
721	mEventSource = aSource;
722	va_start(args, aType);
723	switch (aType)
724	{
725	]]></xsl:text>
726
727	<xsl:for-each select="//interface[@autogen=$G_kind]">
728	<xsl:variable name="implName">
729	<xsl:value-of select="substring(@name, 2)" />
730	</xsl:variable>
731	<xsl:call-template name="genSwitchCase">
732	<xsl:with-param name="ifaceName" select="@name" />
733	<xsl:with-param name="implName" select="$implName" />
734	<xsl:with-param name="reinit" select="'no'" />
735	</xsl:call-template>
736	</xsl:for-each>
737
738	<xsl:text><![CDATA[
739	default:
740	AssertFailed();
741	}
742	va_end(args);
743
744	return S_OK;
745	}
746	]]></xsl:text>
747
748	<xsl:text><![CDATA[
749	HRESULT VBoxEventDesc::reinit(VBoxEventType_T aType, ...)
750	{
751	va_list args;
752
753	va_start(args, aType);
754	switch (aType)
755	{
756	]]></xsl:text>
757
758	<xsl:for-each select="//interface[@autogen=$G_kind and @extends='IReusableEvent']">
759	<xsl:variable name="implName">
760	<xsl:value-of select="substring(@name, 2)" />
761	</xsl:variable>
762	<xsl:call-template name="genSwitchCase">
763	<xsl:with-param name="ifaceName" select="@name" />
764	<xsl:with-param name="implName" select="$implName" />
765	<xsl:with-param name="reinit" select="'yes'" />
766	</xsl:call-template>
767	</xsl:for-each>
768
769	<xsl:text><![CDATA[
770	default:
771	AssertFailed();
772	}
773	va_end(args);
774
775	return S_OK;
776	}
777	]]></xsl:text>
778
779	</xsl:template>
780
781	<xsl:template name="genFormalParams">
782	<xsl:param name="name" />
783	<xsl:variable name="extends">
784	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
785	</xsl:variable>
786
787	<xsl:choose>
788	<xsl:when test="$extends='IEvent'">
789	</xsl:when>
790	<xsl:when test="$extends='IReusableEvent'">
791	</xsl:when>
792	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
793	<xsl:call-template name="genFormalParams">
794	<xsl:with-param name="name" select="$extends" />
795	</xsl:call-template>
796	</xsl:when>
797	<xsl:otherwise>
798	<xsl:call-template name="fatalError">
799	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
800	</xsl:call-template>
801	</xsl:otherwise>
802	</xsl:choose>
803
804	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
805	<xsl:variable name="aName" select="concat('a_',@name)"/>
806	<xsl:variable name="aTypeName">
807	<xsl:call-template name="typeIdl2Back">
808	<xsl:with-param name="type" select="@type" />
809	<xsl:with-param name="safearray" select="@safearray" />
810	<xsl:with-param name="param" select="$aName" />
811	<xsl:with-param name="dir" select="'in'" />
812	<xsl:with-param name="mod" select="@mod" />
813	</xsl:call-template>
814	</xsl:variable>
815	<xsl:value-of select="concat(', ',$aTypeName)"/>
816	</xsl:for-each>
817	</xsl:template>
818
819	<xsl:template name="genFactParams">
820	<xsl:param name="name" />
821	<xsl:variable name="extends">
822	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
823	</xsl:variable>
824
825	<xsl:choose>
826	<xsl:when test="$extends='IEvent'">
827	</xsl:when>
828	<xsl:when test="$extends='IReusableEvent'">
829	</xsl:when>
830	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
831	<xsl:call-template name="genFactParams">
832	<xsl:with-param name="name" select="$extends" />
833	</xsl:call-template>
834	</xsl:when>
835	<xsl:otherwise>
836	<xsl:call-template name="fatalError">
837	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
838	</xsl:call-template>
839	</xsl:otherwise>
840	</xsl:choose>
841
842	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
843	<xsl:variable name="aName" select="concat('a_',@name)"/>
844	<xsl:choose>
845	<xsl:when test="@safearray='yes'">
846	<xsl:value-of select="concat(', ComSafeArrayInArg(',$aName,')')"/>
847	</xsl:when>
848	<xsl:otherwise>
849	<xsl:value-of select="concat(', ',$aName)"/>
850	</xsl:otherwise>
851	</xsl:choose>
852	</xsl:for-each>
853	</xsl:template>
854
855	<xsl:template name="genCommonEventHeader">
856	<xsl:call-template name="fileheader">
857	<xsl:with-param name="name" select="'VBoxEvents.h'" />
858	</xsl:call-template>
859
860	<xsl:text><![CDATA[
861	#include "EventImpl.h"
862	]]></xsl:text>
863
864	<!-- Interfaces -->
865	<xsl:for-each select="//interface[@autogen='VBoxEvent']">
866	<xsl:value-of select="concat('// ', @name, ' generation routine ')" />
867	<xsl:variable name="evname">
868	<xsl:value-of select="substring(@name, 2)" />
869	</xsl:variable>
870	<xsl:variable name="evid">
871	<xsl:value-of select="concat('On', substring(@name, 2, string-length(@name)-6))" />
872	</xsl:variable>
873
874	<xsl:variable name="ifname">
875	<xsl:value-of select="@name" />
876	</xsl:variable>
877
878	<xsl:value-of select="concat('DECLINLINE(void) fire', $evname, '(IEventSource* aSource')"/>
879	<xsl:call-template name="genFormalParams">
880	<xsl:with-param name="name" select="$ifname" />
881	</xsl:call-template>
882	<xsl:value-of select=" ') { '"/>
883
884	<xsl:value-of select=" ' VBoxEventDesc evDesc; '"/>
885	<xsl:value-of select="concat(' evDesc.init(aSource, VBoxEventType_',$evid)"/>
886	<xsl:call-template name="genFactParams">
887	<xsl:with-param name="name" select="$ifname" />
888	</xsl:call-template>
889	<xsl:value-of select="'); '"/>
890	<xsl:value-of select=" ' evDesc.fire(/* do not wait for delivery */ 0); '"/>
891	<xsl:value-of select=" '} '"/>
892	</xsl:for-each>
893	</xsl:template>
894
895	<xsl:template match="/">
896	<!-- Global code -->
897	<xsl:choose>
898	<xsl:when test="$G_kind='VBoxEvent'">
899	<xsl:call-template name="genCommonEventCode">
900	</xsl:call-template>
901	</xsl:when>
902	<xsl:when test="$G_kind='VBoxEventHeader'">
903	<xsl:call-template name="genCommonEventHeader">
904	</xsl:call-template>
905	</xsl:when>
906	<xsl:otherwise>
907	<xsl:call-template name="fatalError">
908	<xsl:with-param name="msg" select="concat('Request unsupported: ', $G_kind)" />
909	</xsl:call-template>
910	</xsl:otherwise>
911	</xsl:choose>
912	</xsl:template>
913
914	</xsl:stylesheet>

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/VBox/Main/idl/comimpl.xsl@ 72324

Download in other formats: