comimpl.xsl@ 93088

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

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

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

Download in other formats: