comimpl.xsl@ 45434

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

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

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

Download in other formats: