comimpl.xsl

Last change on this file was 106065, checked in by vboxsync, 3 months ago
Manual copyright year updates.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 45.1 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	comimpl.xsl:
9	XSLT stylesheet that generates COM C++ classes implementing
10	interfaces described in VirtualBox.xidl.
11	For now we generate implementation for events, as they are
12	rather trivial container classes for their read-only attributes.
13	Further extension to other interfaces is possible and anticipated.
14	-->
15	<!--
16	Copyright (C) 2010-2024 Oracle and/or its affiliates.
17
18	This file is part of VirtualBox base platform packages, as
19	available from https://www.virtualbox.org.
20
21	This program is free software; you can redistribute it and/or
22	modify it under the terms of the GNU General Public License
23	as published by the Free Software Foundation, in version 3 of the
24	License.
25
26	This program is distributed in the hope that it will be useful, but
27	WITHOUT ANY WARRANTY; without even the implied warranty of
28	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
29	General Public License for more details.
30
31	You should have received a copy of the GNU General Public License
32	along with this program; if not, see <https://www.gnu.org/licenses>.
33
34	SPDX-License-Identifier: GPL-3.0-only
35	-->
36
37	<xsl:output
38	method="text"
39	version="1.0"
40	encoding="utf-8"
41	indent="no"/>
42
43	<xsl:include href="typemap-shared.inc.xsl" />
44
45	<!-- Global parameters. -->
46	<xsl:param name="g_uVBoxCopyrightYear">2024</xsl:param>
47
48	<!-- $G_kind contains what kind of COM class implementation we generate -->
49	<xsl:variable name="G_xsltFilename" select="'autogen.xsl'" />
50	<xsl:variable name="G_generateBstrVariants" select="'no'" />
51
52
53	<!-- - - - - - - - - - - - - - - - - - - - - - -
54	Keys for more efficiently looking up of types.
55	- - - - - - - - - - - - - - - - - - - - - - -->
56
57	<xsl:key name="G_keyEnumsByName" match="//enum[@name]" use="@name"/>
58	<xsl:key name="G_keyInterfacesByName" match="//interface[@name]" use="@name"/>
59
60	<!-- - - - - - - - - - - - - - - - - - - - - - -
61	- - - - - - - - - - - - - - - - - - - - - - -->
62
63	<xsl:template name="fileheader">
64	<xsl:param name="name" />
65	<xsl:text>/** @file </xsl:text>
66	<xsl:value-of select="$name"/>
67	<xsl:text>
68	* DO NOT EDIT! This is a generated file.
69	* Generated from: src/VBox/Main/idl/VirtualBox.xidl (VirtualBox's interface definitions in XML)
70	* Generator: src/VBox/Main/idl/comimpl.xsl
71	*/
72
73	/*
74	* Copyright (C) 2010-</xsl:text><xsl:value-of select="$g_uVBoxCopyrightYear"/><xsl:text> Oracle and/or its affiliates.
75	*
76	* This file is part of VirtualBox base platform packages, as
77	* available from https://www.virtualbox.org.
78	*
79	* This program is free software; you can redistribute it and/or
80	* modify it under the terms of the GNU General Public License
81	* as published by the Free Software Foundation, in version 3 of the
82	* License.
83	*
84	* This program is distributed in the hope that it will be useful, but
85	* WITHOUT ANY WARRANTY; without even the implied warranty of
86	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
87	* General Public License for more details.
88	*
89	* You should have received a copy of the GNU General Public License
90	* along with this program; if not, see <https://www.gnu.org/licenses>.
91	*
92	* SPDX-License-Identifier: GPL-3.0-only
93	*/
94
95	</xsl:text>
96	</xsl:template>
97
98	<xsl:template name="genComEntry">
99	<xsl:param name="name" />
100	<xsl:variable name="extends">
101	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
102	</xsl:variable>
103
104	<xsl:value-of select="concat(' COM_INTERFACE_ENTRY(', $name, ') ')" />
105	<xsl:choose>
106	<xsl:when test="$extends='$unknown'">
107	<!-- Reached base -->
108	</xsl:when>
109	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
110	<xsl:call-template name="genComEntry">
111	<xsl:with-param name="name" select="$extends" />
112	</xsl:call-template>
113	</xsl:when>
114	<xsl:otherwise>
115	<xsl:call-template name="fatalError">
116	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $extends)" />
117	</xsl:call-template>
118	</xsl:otherwise>
119	</xsl:choose>
120	</xsl:template>
121
122	<xsl:template name="typeIdl2Back">
123	<xsl:param name="type" />
124	<xsl:param name="safearray" />
125	<xsl:param name="param" />
126	<xsl:param name="dir" />
127	<xsl:param name="mod" />
128	<xsl:param name="utf8str" select="'no'" />
129
130	<xsl:choose>
131	<xsl:when test="$safearray='yes'">
132	<xsl:variable name="elemtype">
133	<xsl:call-template name="typeIdl2Back">
134	<xsl:with-param name="type" select="$type" />
135	<xsl:with-param name="safearray" select="''" />
136	<xsl:with-param name="dir" select="'in'" />
137	<xsl:with-param name="utf8str" select="$utf8str" />
138	</xsl:call-template>
139	</xsl:variable>
140	<xsl:choose>
141	<xsl:when test="$param and ($dir='in')">
142	<xsl:value-of select="concat('ComSafeArrayIn(',$elemtype,',', $param,')')"/>
143	</xsl:when>
144	<xsl:when test="$param and ($dir='out')">
145	<xsl:value-of select="concat('ComSafeArrayOut(',$elemtype,', ', $param, ')')"/>
146	</xsl:when>
147	<xsl:otherwise>
148	<xsl:value-of select="concat('com::SafeArray<',$elemtype,'>')"/>
149	</xsl:otherwise>
150	</xsl:choose>
151	</xsl:when>
152	<xsl:otherwise>
153	<xsl:choose>
154	<xsl:when test="$mod='ptr'">
155	<xsl:value-of select="'BYTE *'" />
156	</xsl:when>
157	<xsl:when test="(($type='wstring') or ($type='uuid'))">
158	<xsl:choose>
159	<xsl:when test="$param and ($dir='in') and ($utf8str!='yes')">
160	<xsl:value-of select="'CBSTR'"/>
161	</xsl:when>
162	<xsl:when test="$param and ($dir='in') and ($utf8str='yes')">
163	<xsl:value-of select="'const Utf8Str &'"/>
164	</xsl:when>
165	<xsl:when test="$param and ($dir='out')">
166	<xsl:value-of select="'BSTR'"/>
167	</xsl:when>
168	<xsl:when test="$param and ($dir='out') and ($utf8str='yes')">
169	<xsl:value-of select="'Utf8Str &'"/>
170	</xsl:when>
171	<xsl:otherwise>
172	<xsl:value-of select="'Utf8Str'"/>
173	</xsl:otherwise>
174	</xsl:choose>
175	</xsl:when>
176	<xsl:when test="count(key('G_keyEnumsByName', $type)) > 0">
177	<xsl:value-of select="concat($type,'_T')"/>
178	</xsl:when>
179	<xsl:when test="count(key('G_keyInterfacesByName', $type)) > 0">
180	<xsl:choose>
181	<xsl:when test="$param">
182	<xsl:value-of select="concat($type,' *')"/>
183	</xsl:when>
184	<xsl:otherwise>
185	<xsl:value-of select="concat('ComPtr<',$type,'>')"/>
186	</xsl:otherwise>
187	</xsl:choose>
188	</xsl:when>
189	<xsl:when test="$type='boolean'">
190	<xsl:value-of select="'BOOL'" />
191	</xsl:when>
192	<xsl:when test="$type='octet'">
193	<xsl:value-of select="'BYTE'" />
194	</xsl:when>
195	<xsl:when test="$type='unsigned short'">
196	<xsl:value-of select="'USHORT'" />
197	</xsl:when>
198	<xsl:when test="$type='short'">
199	<xsl:value-of select="'SHORT'" />
200	</xsl:when>
201	<xsl:when test="$type='unsigned long'">
202	<xsl:value-of select="'ULONG'" />
203	</xsl:when>
204	<xsl:when test="$type='long'">
205	<xsl:value-of select="'LONG'" />
206	</xsl:when>
207	<xsl:when test="$type='unsigned long long'">
208	<xsl:value-of select="'ULONG64'" />
209	</xsl:when>
210	<xsl:when test="$type='long long'">
211	<xsl:value-of select="'LONG64'" />
212	</xsl:when>
213	<xsl:otherwise>
214	<xsl:call-template name="fatalError">
215	<xsl:with-param name="msg" select="concat('Unhandled type: ', $type)" />
216	</xsl:call-template>
217	</xsl:otherwise>
218	</xsl:choose>
219	<xsl:if test="$dir='out'">
220	<xsl:value-of select="' *'"/>
221	</xsl:if>
222	<xsl:if test="$param and not($param='_')">
223	<xsl:value-of select="concat(' ', $param)"/>
224	</xsl:if>
225	</xsl:otherwise>
226	</xsl:choose>
227
228	</xsl:template>
229
230	<!-- Checks if interface $name has any string attributes, producing '1' for each string attrib.
231	No output if no string attributes -->
232	<xsl:template name="hasStringAttributes">
233	<xsl:param name="name" />
234
235	<!-- Recurse into parent interfaces: -->
236	<xsl:variable name="extends">
237	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
238	</xsl:variable>
239	<xsl:choose>
240	<xsl:when test="$extends='IEvent'">
241	</xsl:when>
242	<xsl:when test="$extends='IReusableEvent'">
243	</xsl:when>
244	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
245	<xsl:call-template name="hasStringAttributes">
246	<xsl:with-param name="name" select="$extends" />
247	</xsl:call-template>
248	</xsl:when>
249	<xsl:otherwise>
250	<xsl:call-template name="fatalError">
251	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
252	</xsl:call-template>
253	</xsl:otherwise>
254	</xsl:choose>
255
256	<!-- Find immediate string and uuid attributes and output '1' for each one: -->
257	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[(@type = 'wstring' or @type = 'uuid') and (@name != 'midlDoesNotLikeEmptyInterfaces')]">
258	<xsl:text>1</xsl:text>
259	</xsl:for-each>
260	</xsl:template>
261
262
263	<xsl:template name="genSetParam">
264	<xsl:param name="member"/>
265	<xsl:param name="param"/>
266	<xsl:param name="type"/>
267	<xsl:param name="safearray"/>
268	<xsl:param name="internal"/>
269
270	<xsl:choose>
271	<xsl:when test="$safearray='yes'">
272	<xsl:variable name="elemtype">
273	<xsl:call-template name="typeIdl2Back">
274	<xsl:with-param name="type" select="$type" />
275	<xsl:with-param name="safearray" select="''" />
276	<xsl:with-param name="dir" select="'in'" />
277	</xsl:call-template>
278	</xsl:variable>
279	<xsl:text> SafeArray<</xsl:text><xsl:value-of select="$elemtype"/>
280	<xsl:text>> aArr(ComSafeArrayInArg(</xsl:text><xsl:value-of select="$param"/><xsl:text>)); </xsl:text>
281	<xsl:text> return </xsl:text><xsl:value-of select="$member"/><xsl:text>.initFrom(aArr); </xsl:text>
282	</xsl:when>
283	<xsl:when test="($type='wstring') or ($type='uuid')">
284	<xsl:text> return </xsl:text><xsl:value-of select="$member"/><xsl:text>.assignEx(</xsl:text>
285	<xsl:value-of select="$param"/><xsl:text>); </xsl:text>
286	</xsl:when>
287	<xsl:otherwise>
288	<xsl:value-of select="concat(' ', $member, ' = ', $param, '; ')"/>
289	<xsl:if test="$internal!='yes'">
290	<xsl:text> return S_OK; </xsl:text>
291	</xsl:if>
292	</xsl:otherwise>
293	</xsl:choose>
294	</xsl:template>
295
296	<xsl:template name="genRetParam">
297	<xsl:param name="member"/>
298	<xsl:param name="param"/>
299	<xsl:param name="type"/>
300	<xsl:param name="safearray"/>
301	<xsl:choose>
302	<xsl:when test="$safearray='yes'">
303	<xsl:variable name="elemtype">
304	<xsl:call-template name="typeIdl2Back">
305	<xsl:with-param name="type" select="$type" />
306	<xsl:with-param name="safearray" select="''" />
307	<xsl:with-param name="dir" select="'in'" />
308	</xsl:call-template>
309	</xsl:variable>
310	<!-- @todo String arrays probably needs work, I doubt we're generating sensible code for them at the moment. -->
311	<xsl:text> SafeArray<</xsl:text><xsl:value-of select="$elemtype"/><xsl:text>> result; </xsl:text>
312	<xsl:text> HRESULT hrc = </xsl:text><xsl:value-of select="$member"/><xsl:text>.cloneTo(result); </xsl:text>
313	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
314	<xsl:text> result.detachTo(ComSafeArrayOutArg(</xsl:text><xsl:value-of select="$param"/><xsl:text>)); </xsl:text>
315	<xsl:text> return hrc; </xsl:text>
316	</xsl:when>
317	<xsl:otherwise>
318	<xsl:choose>
319	<xsl:when test="($type='wstring') or ($type = 'uuid')">
320	<xsl:text> return </xsl:text><xsl:value-of select="$member"/><xsl:text>.cloneToEx(</xsl:text>
321	<xsl:value-of select="$param"/><xsl:text>); </xsl:text>
322	</xsl:when>
323	<xsl:when test="count(key('G_keyInterfacesByName', $type)) > 0">
324	<xsl:text> return </xsl:text><xsl:value-of select="$member"/><xsl:text>.queryInterfaceTo(</xsl:text>
325	<xsl:value-of select="$param"/><xsl:text>); </xsl:text>
326	</xsl:when>
327	<xsl:otherwise>
328	<xsl:text> *</xsl:text><xsl:value-of select="$param"/><xsl:text> = </xsl:text>
329	<xsl:value-of select="$member"/><xsl:text>; </xsl:text>
330	<xsl:text> return S_OK; </xsl:text>
331	</xsl:otherwise>
332	</xsl:choose>
333	</xsl:otherwise>
334	</xsl:choose>
335	</xsl:template>
336
337	<xsl:template name="genFormalParams">
338	<xsl:param name="name" />
339	<xsl:param name="utf8str" />
340	<xsl:variable name="extends">
341	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
342	</xsl:variable>
343
344	<xsl:choose>
345	<xsl:when test="$extends='IEvent'">
346	</xsl:when>
347	<xsl:when test="$extends='IReusableEvent'">
348	</xsl:when>
349	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
350	<xsl:call-template name="genFormalParams">
351	<xsl:with-param name="name" select="$extends" />
352	<xsl:with-param name="utf8str" select="$utf8str" />
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
362	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
363	<xsl:variable name="aName" select="concat('a_',@name)"/>
364	<xsl:variable name="aTypeName">
365	<xsl:call-template name="typeIdl2Back">
366	<xsl:with-param name="type" select="@type" />
367	<xsl:with-param name="safearray" select="@safearray" />
368	<xsl:with-param name="param" select="$aName" />
369	<xsl:with-param name="dir" select="'in'" />
370	<xsl:with-param name="mod" select="@mod" />
371	<xsl:with-param name="utf8str" select="$utf8str" />
372	</xsl:call-template>
373	</xsl:variable>
374	<xsl:value-of select="concat(', ',$aTypeName)"/>
375	</xsl:for-each>
376	</xsl:template>
377
378	<xsl:template name="genCallParams">
379	<xsl:param name="name" />
380	<xsl:variable name="extends">
381	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
382	</xsl:variable>
383
384	<xsl:choose>
385	<xsl:when test="$extends='IEvent'">
386	</xsl:when>
387	<xsl:when test="$extends='IReusableEvent'">
388	</xsl:when>
389	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
390	<xsl:call-template name="genCallParams">
391	<xsl:with-param name="name" select="$extends" />
392	</xsl:call-template>
393	</xsl:when>
394	<xsl:otherwise>
395	<xsl:call-template name="fatalError">
396	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
397	</xsl:call-template>
398	</xsl:otherwise>
399	</xsl:choose>
400
401	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
402	<xsl:variable name="aName" select="concat('a_',@name)"/>
403	<xsl:choose>
404	<xsl:when test="@safearray='yes'">
405	<xsl:value-of select="concat(', ComSafeArrayInArg(',$aName,')')"/>
406	</xsl:when>
407	<xsl:otherwise>
408	<xsl:value-of select="concat(', ',$aName)"/>
409	</xsl:otherwise>
410	</xsl:choose>
411	</xsl:for-each>
412	</xsl:template>
413
414	<xsl:template name="genAttrInitCode">
415	<xsl:param name="name" />
416	<xsl:param name="obj" />
417	<xsl:variable name="extends">
418	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
419	</xsl:variable>
420
421	<xsl:choose>
422	<xsl:when test="$extends='IEvent'">
423	</xsl:when>
424	<xsl:when test="$extends='IReusableEvent'">
425	</xsl:when>
426	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
427	<xsl:call-template name="genAttrInitCode">
428	<xsl:with-param name="name" select="$extends" />
429	<xsl:with-param name="obj" select="$obj" />
430	</xsl:call-template>
431	</xsl:when>
432	<xsl:otherwise>
433	<xsl:call-template name="fatalError">
434	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
435	</xsl:call-template>
436	</xsl:otherwise>
437	</xsl:choose>
438
439	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
440	<xsl:variable name="aName" select="concat('a_',@name)"/>
441	<xsl:variable name="aTypeName">
442	<xsl:call-template name="typeIdl2Back">
443	<xsl:with-param name="type" select="@type" />
444	<xsl:with-param name="safearray" select="@safearray" />
445	<xsl:with-param name="param" select="$aName" />
446	<xsl:with-param name="dir" select="'in'" />
447	<xsl:with-param name="mod" select="@mod" />
448	</xsl:call-template>
449	</xsl:variable>
450	<xsl:variable name="aType">
451	<xsl:call-template name="typeIdl2Back">
452	<xsl:with-param name="type" select="@type" />
453	<xsl:with-param name="safearray" select="@safearray" />
454	<xsl:with-param name="param" select="'_'" />
455	<xsl:with-param name="dir" select="'in'" />
456	<xsl:with-param name="mod" select="@mod" />
457	</xsl:call-template>
458	</xsl:variable>
459
460	<xsl:choose>
461	<xsl:when test="@safearray='yes'">
462	<xsl:variable name="elemtype">
463	<xsl:call-template name="typeIdl2Back">
464	<xsl:with-param name="type" select="@type" />
465	<xsl:with-param name="safearray" select="''" />
466	<xsl:with-param name="dir" select="'in'" />
467	</xsl:call-template>
468	</xsl:variable>
469	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
470	<xsl:value-of select="concat(' hrc = ',$obj, '->set_', @name, '(ComSafeArrayInArg(a_', @name, ')); ')"/>
471	</xsl:when>
472	<xsl:when test="(@type='wstring') or (@type = 'uuid')">
473	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
474	<xsl:value-of select="concat(' hrc = ',$obj, '->set_', @name, '(',$aName, '); ')"/>
475	</xsl:when>
476	<xsl:otherwise>
477	<xsl:value-of select="concat(' ',$obj, '->set_', @name, '(',$aName, '); ')"/>
478	</xsl:otherwise>
479	</xsl:choose>
480	</xsl:for-each>
481	</xsl:template>
482
483	<xsl:template name="genImplList">
484	<xsl:param name="impl" />
485	<xsl:param name="name" />
486	<xsl:param name="depth" />
487	<xsl:param name="parents" />
488
489	<xsl:variable name="extends">
490	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
491	</xsl:variable>
492
493	<xsl:choose>
494	<xsl:when test="$name='IEvent'">
495	<xsl:value-of select=" '#ifdef VBOX_WITH_XPCOM '" />
496	<xsl:value-of select="concat('NS_DECL_CLASSINFO(', $impl, ') ')" />
497	<xsl:value-of select="concat('NS_IMPL_THREADSAFE_ISUPPORTS',$depth,'_CI(', $impl, $parents, ', IEvent) ')" />
498	<xsl:value-of select=" '#endif '"/>
499	</xsl:when>
500	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
501	<xsl:call-template name="genImplList">
502	<xsl:with-param name="impl" select="$impl" />
503	<xsl:with-param name="name" select="$extends" />
504	<xsl:with-param name="depth" select="$depth+1" />
505	<xsl:with-param name="parents" select="concat($parents, ', ', $name)" />
506	</xsl:call-template>
507	</xsl:when>
508	<xsl:otherwise>
509	<xsl:call-template name="fatalError">
510	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
511	</xsl:call-template>
512	</xsl:otherwise>
513	</xsl:choose>
514	</xsl:template>
515
516	<xsl:template name="genAttrCode">
517	<xsl:param name="name" />
518	<xsl:param name="depth" />
519	<xsl:param name="parents" />
520	<xsl:param name="fGenBstr" />
521
522	<xsl:variable name="extends">
523	<xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
524	</xsl:variable>
525
526	<xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute">
527	<xsl:variable name="mName">
528	<xsl:value-of select="concat('m_', @name)" />
529	</xsl:variable>
530	<xsl:variable name="mType">
531	<xsl:call-template name="typeIdl2Back">
532	<xsl:with-param name="type" select="@type" />
533	<xsl:with-param name="safearray" select="@safearray" />
534	<xsl:with-param name="dir" select="'in'" />
535	<xsl:with-param name="mod" select="@mod" />
536	</xsl:call-template>
537	</xsl:variable>
538	<xsl:variable name="pName">
539	<xsl:value-of select="concat('a_', @name)" />
540	</xsl:variable>
541	<xsl:variable name="pTypeNameOut">
542	<xsl:call-template name="typeIdl2Back">
543	<xsl:with-param name="type" select="@type" />
544	<xsl:with-param name="safearray" select="@safearray" />
545	<xsl:with-param name="param" select="$pName" />
546	<xsl:with-param name="dir" select="'out'" />
547	<xsl:with-param name="mod" select="@mod" />
548	</xsl:call-template>
549	</xsl:variable>
550
551	<xsl:variable name="pTypeNameIn">
552	<xsl:call-template name="typeIdl2Back">
553	<xsl:with-param name="type" select="@type" />
554	<xsl:with-param name="safearray" select="@safearray" />
555	<xsl:with-param name="param" select="$pName" />
556	<xsl:with-param name="dir" select="'in'" />
557	<xsl:with-param name="mod" select="@mod" />
558	</xsl:call-template>
559	</xsl:variable>
560
561	<xsl:variable name="capsName">
562	<xsl:call-template name="capitalize">
563	<xsl:with-param name="str" select="@name" />
564	</xsl:call-template>
565	</xsl:variable>
566
567	<xsl:value-of select=" ' '" />
568	<xsl:value-of select="concat(' // attribute ', @name,' ')" />
569	<xsl:value-of select=" 'private: '" />
570	<xsl:value-of select="concat(' ', $mType, ' ', $mName,'; ')" />
571	<xsl:value-of select=" 'public: '" />
572	<xsl:value-of select="concat(' STDMETHOD(COMGETTER(', $capsName,'))(',$pTypeNameOut,') RT_OVERRIDE { ')" />
573	<xsl:call-template name="genRetParam">
574	<xsl:with-param name="type" select="@type" />
575	<xsl:with-param name="member" select="$mName" />
576	<xsl:with-param name="param" select="$pName" />
577	<xsl:with-param name="safearray" select="@safearray" />
578	</xsl:call-template>
579	<xsl:value-of select=" ' } '" />
580
581	<xsl:if test="not(@readonly='yes')">
582	<xsl:value-of select="concat(' STDMETHOD(COMSETTER(', $capsName,'))(',$pTypeNameIn,') RT_OVERRIDE { ')" />
583	<xsl:call-template name="genSetParam">
584	<xsl:with-param name="type" select="@type" />
585	<xsl:with-param name="member" select="$mName" />
586	<xsl:with-param name="param" select="$pName" />
587	<xsl:with-param name="safearray" select="@safearray" />
588	<xsl:with-param name="internal" select="'no'" />
589	</xsl:call-template>
590	<xsl:value-of select=" ' } '" />
591	</xsl:if>
592
593	<xsl:text> // purely internal setter </xsl:text>
594	<xsl:if test="(@type='wstring') or (@type = 'uuid')">
595	<xsl:text> inline HRESULT set_</xsl:text><xsl:value-of select="@name"/><xsl:text>(const Utf8Str &a_rString) </xsl:text>
596	<xsl:text> { </xsl:text>
597	<xsl:text> return </xsl:text><xsl:value-of select="$mName"/><xsl:text>.assignEx(a_rString); </xsl:text>
598	<xsl:text> } </xsl:text>
599	</xsl:if>
600	<xsl:if test="not((@type='wstring') or (@type = 'uuid')) or $fGenBstr">
601	<xsl:text> inline </xsl:text>
602	<xsl:choose>
603	<xsl:when test="(@safearray='yes') or (@type='wstring') or (@type = 'uuid')">
604	<xsl:text>HRESULT</xsl:text>
605	</xsl:when>
606	<xsl:otherwise>
607	<xsl:text>void</xsl:text>
608	</xsl:otherwise>
609	</xsl:choose>
610	<xsl:value-of select="concat(' set_', @name,'(',$pTypeNameIn, ') { ')" />
611	<xsl:call-template name="genSetParam">
612	<xsl:with-param name="type" select="@type" />
613	<xsl:with-param name="member" select="$mName" />
614	<xsl:with-param name="param" select="$pName" />
615	<xsl:with-param name="safearray" select="@safearray" />
616	<xsl:with-param name="internal" select="'yes'" />
617	</xsl:call-template>
618	<xsl:value-of select=" ' } '" />
619	</xsl:if>
620
621	</xsl:for-each>
622
623	<xsl:choose>
624	<xsl:when test="$extends='IEvent'">
625	<xsl:value-of select=" ' // skipping IEvent attributes '" />
626	</xsl:when>
627	<xsl:when test="$extends='IReusableEvent'">
628	<xsl:value-of select=" ' // skipping IReusableEvent attributes '" />
629	</xsl:when>
630	<xsl:when test="$extends='IVetoEvent'">
631	<xsl:value-of select=" ' // skipping IVetoEvent attributes '" />
632	</xsl:when>
633	<xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
634	<xsl:call-template name="genAttrCode">
635	<xsl:with-param name="name" select="$extends" />
636	<xsl:with-param name="depth" select="$depth+1" />
637	<xsl:with-param name="parents" select="concat($parents, ', ', @name)" />
638	<xsl:with-param name="fGenBstr" select="$fGenBstr" />
639	</xsl:call-template>
640	</xsl:when>
641	<xsl:otherwise>
642	<xsl:call-template name="fatalError">
643	<xsl:with-param name="msg" select="concat('No idea how to process it: ', $extends)" />
644	</xsl:call-template>
645	</xsl:otherwise>
646	</xsl:choose>
647	</xsl:template>
648
649	<xsl:template name="genReinitFunction">
650	<xsl:param name="name"/>
651	<xsl:param name="evname"/>
652	<xsl:param name="ifname"/>
653	<xsl:param name="implName"/>
654	<xsl:param name="utf8str"/>
655
656	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Reinit', $evname, '(IEvent *aEvent')"/>
657	<xsl:call-template name="genFormalParams">
658	<xsl:with-param name="name" select="$ifname" />
659	<xsl:with-param name="utf8str" select="'no'" />
660	</xsl:call-template>
661	<xsl:text>) </xsl:text>
662	<xsl:text>{ </xsl:text>
663	<xsl:text> </xsl:text><xsl:value-of select="$implName"/><xsl:text> *pEvtImpl = dynamic_cast<</xsl:text>
664	<xsl:value-of select="$implName"/><xsl:text> *>(aEvent); </xsl:text>
665	<xsl:text> if (pEvtImpl) </xsl:text>
666	<xsl:text> { </xsl:text>
667	<xsl:text> pEvtImpl->Reuse(); </xsl:text>
668	<xsl:text> HRESULT hrc = S_OK; </xsl:text>
669	<xsl:call-template name="genAttrInitCode">
670	<xsl:with-param name="name" select="$name" />
671	<xsl:with-param name="obj" select="'pEvtImpl'" />
672	</xsl:call-template>
673	<xsl:text> return hrc; </xsl:text>
674	<xsl:text> } </xsl:text>
675	<xsl:text> return E_INVALIDARG; </xsl:text>
676	<xsl:text>} </xsl:text>
677	<xsl:text> </xsl:text>
678	</xsl:template>
679
680	<xsl:template name="genCreateFunction">
681	<xsl:param name="name"/>
682	<xsl:param name="evname"/>
683	<xsl:param name="ifname"/>
684	<xsl:param name="implName"/>
685	<xsl:param name="waitable"/>
686	<xsl:param name="evid"/>
687	<xsl:param name="utf8str"/>
688
689	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Create', $evname, '(IEvent *aEvent, IEventSource aSource')"/>
690	<xsl:call-template name="genFormalParams">
691	<xsl:with-param name="name" select="$ifname" />
692	<xsl:with-param name="utf8str" select="$utf8str" />
693	</xsl:call-template>
694	<xsl:text>) </xsl:text>
695	<xsl:text>{ </xsl:text>
696	<xsl:text> ComObjPtr<</xsl:text><xsl:value-of select="$implName"/><xsl:text>> EvtObj; </xsl:text>
697	<xsl:text> HRESULT hrc = EvtObj.createObject(); </xsl:text>
698	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
699	<xsl:text> { </xsl:text>
700	<xsl:text> hrc = EvtObj->init(aSource, VBoxEventType_</xsl:text><xsl:value-of select="$evid"/>
701	<xsl:text>, </xsl:text><xsl:value-of select="$waitable" /><xsl:text> /waitable/); </xsl:text>
702	<xsl:call-template name="genAttrInitCode">
703	<xsl:with-param name="name" select="$name" />
704	<xsl:with-param name="obj" select="'EvtObj'" />
705	</xsl:call-template>
706	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
707	<xsl:text> { </xsl:text>
708	<xsl:text> hrc = EvtObj.queryInterfaceTo(aEvent); </xsl:text>
709	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
710	<xsl:text> return hrc; </xsl:text>
711	<xsl:text> } </xsl:text>
712	<xsl:text> } </xsl:text>
713	<xsl:text> *aEvent = NULL; </xsl:text>
714	<xsl:text> return hrc; </xsl:text>
715	<xsl:text>} </xsl:text>
716	<xsl:text> </xsl:text>
717	</xsl:template>
718
719	<xsl:template name="genFireFunction">
720	<xsl:param name="evname"/>
721	<xsl:param name="ifname"/>
722	<xsl:param name="utf8str"/>
723
724	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Fire', $evname, '(IEventSource *aSource')"/>
725	<xsl:call-template name="genFormalParams">
726	<xsl:with-param name="name" select="$ifname" />
727	<xsl:with-param name="utf8str" select="$utf8str" />
728	</xsl:call-template>
729	<xsl:text>) </xsl:text>
730	<xsl:text>{ </xsl:text>
731	<xsl:text> AssertReturn(aSource, E_INVALIDARG); </xsl:text>
732	<xsl:text> ComPtr<IEvent> ptrEvent; </xsl:text>
733	<xsl:text> HRESULT hrc = </xsl:text>
734	<xsl:value-of select="concat('Create', $evname, '(ptrEvent.asOutParam(), aSource')"/>
735	<xsl:call-template name="genCallParams">
736	<xsl:with-param name="name" select="$ifname" />
737	</xsl:call-template>
738	<xsl:text>); </xsl:text>
739	<xsl:text> if (SUCCEEDED(hrc)) </xsl:text>
740	<xsl:text> { </xsl:text>
741	<xsl:text> BOOL fDeliveredIgnored = FALSE; </xsl:text>
742	<xsl:text> hrc = aSource->FireEvent(ptrEvent, /* do not wait for delivery */ 0, &fDeliveredIgnored); </xsl:text>
743	<xsl:text> AssertComRC(hrc); </xsl:text>
744	<xsl:text> } </xsl:text>
745	<xsl:text> return hrc; </xsl:text>
746	<xsl:text>} </xsl:text>
747	<xsl:text> </xsl:text>
748	</xsl:template>
749
750	<xsl:template name="genEventImpl">
751	<xsl:param name="implName" />
752	<xsl:param name="isVeto" />
753	<xsl:param name="isReusable" />
754
755	<xsl:value-of select="concat('class ATL_NO_VTABLE ',$implName,
756	' : public VirtualBoxBase , VBOX_SCRIPTABLE_IMPL(',
757	@name, ') { ')" />
758	<xsl:value-of select="'public: '" />
759	<xsl:value-of select="concat(' VIRTUALBOXBASE_ADD_ERRORINFO_SUPPORT(', $implName, ', ', @name, ') ')" />
760	<xsl:value-of select="concat(' DECLARE_NOT_AGGREGATABLE(', $implName, ') ')" />
761	<xsl:value-of select=" ' DECLARE_PROTECT_FINAL_CONSTRUCT() '" />
762	<xsl:value-of select="concat(' BEGIN_COM_MAP(', $implName, ') ')" />
763	<xsl:value-of select=" ' COM_INTERFACE_ENTRY(ISupportErrorInfo) '" />
764	<xsl:value-of select="concat(' COM_INTERFACE_ENTRY(', @name, ') ')" />
765	<xsl:value-of select="concat(' COM_INTERFACE_ENTRY2(IDispatch, ', @name, ') ')" />
766	<xsl:value-of select="concat(' VBOX_TWEAK_INTERFACE_ENTRY(', @name, ') ')" />
767
768	<xsl:call-template name="genComEntry">
769	<xsl:with-param name="name" select="@name" />
770	</xsl:call-template>
771	<xsl:value-of select=" ' END_COM_MAP() '" />
772	<xsl:value-of select="concat(' ',$implName,'() { Log12(("',$implName,' %p\n", this)); } ')" />
773	<xsl:value-of select="concat(' virtual ~',$implName,'() { Log12(("~',$implName,' %p\n", this)); uninit(); } ')" />
774	<xsl:text><![CDATA[
775	HRESULT FinalConstruct()
776	{
777	BaseFinalConstruct();
778	return mEvent.createObject();
779	}
780	void FinalRelease()
781	{
782	uninit();
783	BaseFinalRelease();
784	}
785	STDMETHOD(COMGETTER(Type))(VBoxEventType_T *aType) RT_OVERRIDE
786	{
787	return mEvent->COMGETTER(Type)(aType);
788	}
789	STDMETHOD(COMGETTER(Source))(IEventSource * *aSource) RT_OVERRIDE
790	{
791	return mEvent->COMGETTER(Source)(aSource);
792	}
793	STDMETHOD(COMGETTER(Waitable))(BOOL *aWaitable) RT_OVERRIDE
794	{
795	return mEvent->COMGETTER(Waitable)(aWaitable);
796	}
797	STDMETHOD(SetProcessed)() RT_OVERRIDE
798	{
799	return mEvent->SetProcessed();
800	}
801	STDMETHOD(WaitProcessed)(LONG aTimeout, BOOL *aResult) RT_OVERRIDE
802	{
803	return mEvent->WaitProcessed(aTimeout, aResult);
804	}
805	void uninit() RT_OVERRIDE
806	{
807	if (!mEvent.isNull())
808	{
809	mEvent->uninit();
810	mEvent.setNull();
811	}
812	}
813	]]></xsl:text>
814	<xsl:choose>
815	<xsl:when test="$isVeto='yes'">
816	<xsl:text><![CDATA[
817	HRESULT init(IEventSource *aSource, VBoxEventType_T aType, BOOL aWaitable = TRUE)
818	{
819	NOREF(aWaitable);
820	return mEvent->init(aSource, aType);
821	}
822	STDMETHOD(AddVeto)(IN_BSTR aVeto) RT_OVERRIDE
823	{
824	return mEvent->AddVeto(aVeto);
825	}
826	STDMETHOD(IsVetoed)(BOOL *aResult) RT_OVERRIDE
827	{
828	return mEvent->IsVetoed(aResult);
829	}
830	STDMETHOD(GetVetos)(ComSafeArrayOut(BSTR, aVetos)) RT_OVERRIDE
831	{
832	return mEvent->GetVetos(ComSafeArrayOutArg(aVetos));
833	}
834	STDMETHOD(AddApproval)(IN_BSTR aReason) RT_OVERRIDE
835	{
836	return mEvent->AddApproval(aReason);
837	}
838	STDMETHOD(IsApproved)(BOOL *aResult) RT_OVERRIDE
839	{
840	return mEvent->IsApproved(aResult);
841	}
842	STDMETHOD(GetApprovals)(ComSafeArrayOut(BSTR, aReasons)) RT_OVERRIDE
843	{
844	return mEvent->GetApprovals(ComSafeArrayOutArg(aReasons));
845	}
846	private:
847	ComObjPtr<VBoxVetoEvent> mEvent;
848	]]></xsl:text>
849	</xsl:when>
850	<xsl:when test="$isReusable='yes'">
851	<xsl:text>
852	<![CDATA[
853	HRESULT init(IEventSource *aSource, VBoxEventType_T aType, BOOL aWaitable = FALSE)
854	{
855	mGeneration = 1;
856	return mEvent->init(aSource, aType, aWaitable);
857	}
858	STDMETHOD(COMGETTER(Generation))(ULONG *aGeneration) RT_OVERRIDE
859	{
860	*aGeneration = mGeneration;
861	return S_OK;
862	}
863	STDMETHOD(Reuse)() RT_OVERRIDE
864	{
865	ASMAtomicIncU32((volatile uint32_t *)&mGeneration);
866	return S_OK;
867	}
868	private:
869	volatile ULONG mGeneration;
870	ComObjPtr<VBoxEvent> mEvent;
871	]]></xsl:text>
872	</xsl:when>
873	<xsl:otherwise>
874	<xsl:text><![CDATA[
875	HRESULT init(IEventSource *aSource, VBoxEventType_T aType, BOOL aWaitable)
876	{
877	return mEvent->init(aSource, aType, aWaitable);
878	}
879	private:
880	ComObjPtr<VBoxEvent> mEvent;
881	]]></xsl:text>
882	</xsl:otherwise>
883	</xsl:choose>
884
885	<!-- Before we generate attribute code, we check and make sure there are attributes here. -->
886	<xsl:if test="count(attribute) = 0 and @name != 'INATNetworkAlterEvent'">
887	<xsl:call-template name="fatalError">
888	<xsl:with-param name="msg">error: <xsl:value-of select="@name"/> has no attributes</xsl:with-param>
889	</xsl:call-template>
890	</xsl:if>
891
892	<xsl:call-template name="genAttrCode">
893	<xsl:with-param name="name" select="@name" />
894	<xsl:with-param name="fGenBstr" select="($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR'))" />
895	</xsl:call-template>
896	<xsl:value-of select="'}; '" />
897
898
899	<xsl:call-template name="genImplList">
900	<xsl:with-param name="impl" select="$implName" />
901	<xsl:with-param name="name" select="@name" />
902	<xsl:with-param name="depth" select="'1'" />
903	<xsl:with-param name="parents" select="''" />
904	</xsl:call-template>
905
906	<!-- Associate public functions. -->
907	<xsl:variable name="evname">
908	<xsl:value-of select="substring(@name, 2)" />
909	</xsl:variable>
910	<xsl:variable name="evid">
911	<xsl:value-of select="concat('On', substring(@name, 2, string-length(@name)-6))" />
912	</xsl:variable>
913	<xsl:variable name="ifname">
914	<xsl:value-of select="@name" />
915	</xsl:variable>
916	<xsl:variable name="waitable">
917	<xsl:choose>
918	<xsl:when test="@waitable='yes'">
919	<xsl:value-of select="'TRUE'"/>
920	</xsl:when>
921	<xsl:otherwise>
922	<xsl:value-of select="'FALSE'"/>
923	</xsl:otherwise>
924	</xsl:choose>
925	</xsl:variable>
926	<xsl:variable name="hasStringAttribs">
927	<xsl:call-template name="hasStringAttributes">
928	<xsl:with-param name="name" select="@name"/>
929	</xsl:call-template>
930	</xsl:variable>
931
932	<!-- Generate ReinitXxxxEvent functions if reusable. -->
933	<xsl:if test="$isReusable='yes'">
934	<xsl:call-template name="genReinitFunction">
935	<xsl:with-param name="name" select="@name"/>
936	<xsl:with-param name="evname" select="$evname"/>
937	<xsl:with-param name="ifname" select="$ifname"/>
938	<xsl:with-param name="implName" select="$implName"/>
939	<xsl:with-param name="utf8str" select="'yes'"/>
940	</xsl:call-template>
941
942	<xsl:if test="($hasStringAttribs != '') and (($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR')))">
943	<xsl:call-template name="genReinitFunction">
944	<xsl:with-param name="name" select="@name"/>
945	<xsl:with-param name="evname" select="$evname"/>
946	<xsl:with-param name="ifname" select="$ifname"/>
947	<xsl:with-param name="implName" select="$implName"/>
948	<xsl:with-param name="utf8str" select="'no'"/>
949	</xsl:call-template>
950	</xsl:if>
951	</xsl:if>
952
953	<!-- Generate the CreateXxxxEvent function. -->
954	<xsl:call-template name="genCreateFunction">
955	<xsl:with-param name="name" select="@name"/>
956	<xsl:with-param name="evname" select="$evname"/>
957	<xsl:with-param name="ifname" select="$ifname"/>
958	<xsl:with-param name="implName" select="$implName"/>
959	<xsl:with-param name="waitable" select="$waitable"/>
960	<xsl:with-param name="evid" select="$evid"/>
961	<xsl:with-param name="utf8str" select="'yes'"/>
962	</xsl:call-template>
963
964	<xsl:if test="($hasStringAttribs != '') and (($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR')))">
965	<xsl:call-template name="genCreateFunction">
966	<xsl:with-param name="name" select="@name"/>
967	<xsl:with-param name="evname" select="$evname"/>
968	<xsl:with-param name="ifname" select="$ifname"/>
969	<xsl:with-param name="implName" select="$implName"/>
970	<xsl:with-param name="waitable" select="$waitable"/>
971	<xsl:with-param name="evid" select="$evid"/>
972	<xsl:with-param name="utf8str" select="'no'"/>
973	</xsl:call-template>
974	</xsl:if>
975
976	<!-- Generate the FireXxxxEvent function. -->
977	<xsl:call-template name="genFireFunction">
978	<xsl:with-param name="evname" select="$evname"/>
979	<xsl:with-param name="ifname" select="$ifname"/>
980	<xsl:with-param name="utf8str" select="'yes'"/>
981	</xsl:call-template>
982
983	<xsl:if test="($hasStringAttribs != '') and (($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR')))">
984	<xsl:call-template name="genFireFunction">
985	<xsl:with-param name="evname" select="$evname"/>
986	<xsl:with-param name="ifname" select="$ifname"/>
987	<xsl:with-param name="utf8str" select="'no'"/>
988	</xsl:call-template>
989	</xsl:if>
990
991	</xsl:template>
992
993
994	<!--
995	Produces VBoxEvents.cpp
996	-->
997	<xsl:template name="genCommonEventCode">
998	<xsl:call-template name="fileheader">
999	<xsl:with-param name="name" select="'VBoxEvents.cpp'" />
1000	</xsl:call-template>
1001
1002	<xsl:text><![CDATA[
1003	#define LOG_GROUP LOG_GROUP_MAIN_EVENT
1004	#include <VBox/com/array.h>
1005	#include <VBox/log.h>
1006	#include <iprt/asm.h>
1007	#include "VBoxEvents.h"
1008
1009	]]></xsl:text>
1010
1011	<!-- Interfaces -->
1012	<xsl:for-each select="//interface[@autogen=$G_kind]">
1013	<xsl:value-of select="concat('// ', @name, ' implementation code')" />
1014	<xsl:call-template name="xsltprocNewlineOutputHack"/>
1015	<xsl:variable name="implName">
1016	<xsl:value-of select="substring(@name, 2)" />
1017	</xsl:variable>
1018
1019	<xsl:choose>
1020	<xsl:when test="$G_kind='VBoxEvent'">
1021	<xsl:variable name="isVeto">
1022	<xsl:if test="@extends='IVetoEvent'">
1023	<xsl:value-of select="'yes'" />
1024	</xsl:if>
1025	</xsl:variable>
1026	<xsl:variable name="isReusable">
1027	<xsl:if test="@extends='IReusableEvent'">
1028	<xsl:value-of select="'yes'" />
1029	</xsl:if>
1030	</xsl:variable>
1031	<xsl:call-template name="genEventImpl">
1032	<xsl:with-param name="implName" select="$implName" />
1033	<xsl:with-param name="isVeto" select="$isVeto" />
1034	<xsl:with-param name="isReusable" select="$isReusable" />
1035	</xsl:call-template>
1036	</xsl:when>
1037	</xsl:choose>
1038	</xsl:for-each>
1039
1040	</xsl:template>
1041
1042
1043	<!--
1044	Produces VBoxEvents.h
1045	-->
1046	<xsl:template name="genCommonEventHeader">
1047	<xsl:call-template name="fileheader">
1048	<xsl:with-param name="name" select="'VBoxEvents.h'" />
1049	</xsl:call-template>
1050
1051	<xsl:text><![CDATA[
1052	#include "EventImpl.h"
1053
1054	]]></xsl:text>
1055
1056	<!-- Simple methods for firing off events. -->
1057	<xsl:text>/** @name Fire off events </xsl:text>
1058	<xsl:text> * @{ */ </xsl:text>
1059	<xsl:for-each select="//interface[@autogen='VBoxEvent']">
1060	<xsl:value-of select="concat('/** Fire an ', @name, ' event. */ ')" />
1061	<xsl:variable name="evname">
1062	<xsl:value-of select="substring(@name, 2)" />
1063	</xsl:variable>
1064	<xsl:variable name="ifname">
1065	<xsl:value-of select="@name" />
1066	</xsl:variable>
1067	<xsl:variable name="hasStringAttribs">
1068	<xsl:call-template name="hasStringAttributes">
1069	<xsl:with-param name="name" select="@name"/>
1070	</xsl:call-template>
1071	</xsl:variable>
1072
1073	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Fire', $evname, '(IEventSource *aSource')"/>
1074	<xsl:call-template name="genFormalParams">
1075	<xsl:with-param name="name" select="$ifname" />
1076	<xsl:with-param name="utf8str" select="'yes'" />
1077	</xsl:call-template>
1078	<xsl:text>); </xsl:text>
1079
1080	<xsl:if test="($hasStringAttribs != '') and (($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR')))">
1081	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Fire', $evname, '(IEventSource *aSource')"/>
1082	<xsl:call-template name="genFormalParams">
1083	<xsl:with-param name="name" select="$ifname" />
1084	<xsl:with-param name="utf8str" select="'no'" />
1085	</xsl:call-template>
1086	<xsl:text>); </xsl:text>
1087	</xsl:if>
1088	</xsl:for-each>
1089	<xsl:text>/** @} */ </xsl:text>
1090
1091	<!-- Event instantiation methods. -->
1092	<xsl:text>/** @name Instantiate events </xsl:text>
1093	<xsl:text> * @{ */ </xsl:text>
1094	<xsl:for-each select="//interface[@autogen='VBoxEvent']">
1095	<xsl:value-of select="concat('/** Create an ', @name, ' event. */ ')" />
1096	<xsl:variable name="evname">
1097	<xsl:value-of select="substring(@name, 2)" />
1098	</xsl:variable>
1099	<xsl:variable name="ifname">
1100	<xsl:value-of select="@name" />
1101	</xsl:variable>
1102	<xsl:variable name="hasStringAttribs">
1103	<xsl:call-template name="hasStringAttributes">
1104	<xsl:with-param name="name" select="@name"/>
1105	</xsl:call-template>
1106	</xsl:variable>
1107
1108	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Create', $evname, '(IEvent *aEvent, IEventSource aSource')"/>
1109	<xsl:call-template name="genFormalParams">
1110	<xsl:with-param name="name" select="$ifname" />
1111	<xsl:with-param name="utf8str" select="'yes'" />
1112	</xsl:call-template>
1113	<xsl:text>); </xsl:text>
1114
1115	<xsl:if test="($hasStringAttribs != '') and (($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR')))">
1116	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Create', $evname, '(IEvent *aEvent, IEventSource aSource')"/>
1117	<xsl:call-template name="genFormalParams">
1118	<xsl:with-param name="name" select="$ifname" />
1119	<xsl:with-param name="utf8str" select="'no'" />
1120	</xsl:call-template>
1121	<xsl:text>); </xsl:text>
1122	</xsl:if>
1123	</xsl:for-each>
1124	<xsl:text>/** @} */ </xsl:text>
1125	<xsl:text> </xsl:text>
1126
1127	<!-- Reinitialization methods for reusable events. -->
1128	<xsl:text>/** @name Re-init reusable events </xsl:text>
1129	<xsl:text> * @{ */ </xsl:text>
1130	<xsl:for-each select="//interface[@autogen='VBoxEvent']">
1131	<xsl:if test="@extends='IReusableEvent'">
1132	<xsl:value-of select="concat('/** Re-init an ', @name, ' event. */ ')" />
1133	<xsl:variable name="evname">
1134	<xsl:value-of select="substring(@name, 2)" />
1135	</xsl:variable>
1136	<xsl:variable name="ifname">
1137	<xsl:value-of select="@name" />
1138	</xsl:variable>
1139	<xsl:variable name="hasStringAttribs">
1140	<xsl:call-template name="hasStringAttributes">
1141	<xsl:with-param name="name" select="@name"/>
1142	</xsl:call-template>
1143	</xsl:variable>
1144
1145	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Reinit', $evname, '(IEvent *aEvent')"/>
1146	<xsl:call-template name="genFormalParams">
1147	<xsl:with-param name="name" select="$ifname" />
1148	<xsl:with-param name="utf8str" select="'yes'" />
1149	</xsl:call-template>
1150	<xsl:text>); </xsl:text>
1151
1152	<xsl:if test="($hasStringAttribs != '') and (($G_generateBstrVariants = 'yes') or (contains(@autogenflags, 'BSTR')))">
1153	<xsl:value-of select="concat('DECLHIDDEN(HRESULT) Reinit', $evname, '(IEvent *aEvent')"/>
1154	<xsl:call-template name="genFormalParams">
1155	<xsl:with-param name="name" select="$ifname" />
1156	<xsl:with-param name="utf8str" select="'no'" />
1157	</xsl:call-template>
1158	<xsl:text>); </xsl:text>
1159	</xsl:if>
1160	</xsl:if>
1161	</xsl:for-each>
1162	<xsl:text>/** @} */ </xsl:text>
1163
1164	</xsl:template>
1165
1166	<xsl:template match="/">
1167	<!-- Global code -->
1168	<xsl:choose>
1169	<xsl:when test="$G_kind='VBoxEvent'">
1170	<xsl:call-template name="genCommonEventCode">
1171	</xsl:call-template>
1172	</xsl:when>
1173	<xsl:when test="$G_kind='VBoxEventHeader'">
1174	<xsl:call-template name="genCommonEventHeader">
1175	</xsl:call-template>
1176	</xsl:when>
1177	<xsl:otherwise>
1178	<xsl:call-template name="fatalError">
1179	<xsl:with-param name="msg" select="concat('Request unsupported: ', $G_kind)" />
1180	</xsl:call-template>
1181	</xsl:otherwise>
1182	</xsl:choose>
1183	</xsl:template>
1184
1185	</xsl:stylesheet>

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

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

Download in other formats: