VirtualBox

source: vbox/trunk/src/VBox/Main/idl/midl.xsl@ 62873

Last change on this file since 62873 was 62486, checked in by vboxsync, 8 years ago

(C) 2016
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 29.8 KB
Line 
1<?xml version="1.0"?>
2<!-- $Id: midl.xsl 62486 2016-07-22 18:37:16Z vboxsync $ -->
3
4<!--
5 * A template to generate a MS IDL compatible interface definition file
6 * from the generic interface definition expressed in XML.
7
8 Copyright (C) 2006-2016 Oracle Corporation
9
10 This file is part of VirtualBox Open Source Edition (OSE), as
11 available from http://www.virtualbox.org. This file is free software;
12 you can redistribute it and/or modify it under the terms of the GNU
13 General Public License (GPL) as published by the Free Software
14 Foundation, in version 2 as it comes in the "COPYING" file of the
15 VirtualBox OSE distribution. VirtualBox OSE is distributed in the
16 hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
17-->
18
19<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
20<xsl:output method="text"/>
21
22<xsl:strip-space elements="*"/>
23
24<!-- Whether to generate proxy code and type library ('yes'), or just the type-library. -->
25<xsl:param name="g_fGenProxy" select="'no'"/>
26
27<xsl:include href="typemap-shared.inc.xsl"/>
28
29
30<!--
31// templates
32/////////////////////////////////////////////////////////////////////////////
33-->
34
35<!--
36 * not explicitly matched elements and attributes
37-->
38<xsl:template match="*"/>
39
40
41<!--
42 * header
43-->
44<xsl:template match="/idl">
45 <xsl:text>
46/*
47 * DO NOT EDIT! This is a generated file.
48 *
49 * MS IDL (MIDL) definition for VirtualBox Main API (COM interfaces)
50 * generated from XIDL (XML interface definition).
51 *
52 * Source : src/VBox/Main/idl/VirtualBox.xidl
53 * Generator : src/VBox/Main/idl/midl.xsl
54 */
55 </xsl:text>
56 <xsl:text>&#x0A;</xsl:text>
57 <xsl:text>import "unknwn.idl";&#x0A;&#x0A;</xsl:text>
58 <xsl:apply-templates/>
59</xsl:template>
60
61
62<!--
63 * ignore all |if|s except those for MIDL target
64-->
65<xsl:template match="if">
66 <xsl:if test="@target='midl'">
67 <xsl:apply-templates/>
68 </xsl:if>
69</xsl:template>
70<xsl:template match="if" mode="forward">
71 <xsl:if test="@target='midl'">
72 <xsl:apply-templates mode="forward"/>
73 </xsl:if>
74</xsl:template>
75<xsl:template match="if" mode="forwarder">
76 <xsl:param name="nameOnly"/>
77 <xsl:if test="@target='midl'">
78 <xsl:apply-templates mode="forwarder">
79 <xsl:with-param name="nameOnly" select="$nameOnly"/>
80 </xsl:apply-templates>
81 </xsl:if>
82</xsl:template>
83
84
85<!--
86 * cpp_quote
87-->
88<xsl:template match="cpp">
89 <xsl:text>cpp_quote("</xsl:text>
90 <xsl:value-of select="@line"/>
91 <xsl:text>")&#x0A;&#x0A;</xsl:text>
92</xsl:template>
93
94
95<!--
96 * #if statement (@if attribute)
97-->
98<xsl:template match="@if" mode="begin">
99 <xsl:text>#if </xsl:text>
100 <xsl:value-of select="."/>
101 <xsl:text>&#x0A;</xsl:text>
102</xsl:template>
103<xsl:template match="@if" mode="end">
104 <xsl:text>#endif&#x0A;</xsl:text>
105</xsl:template>
106
107
108<!--
109 * libraries
110-->
111<xsl:template match="library">
112 <xsl:if test="$g_fGenProxy = 'yes'">
113 <!-- Declare everything outside the library and then reference these
114 from inside the library statement. See:
115 http://msdn.microsoft.com/en-us/library/windows/desktop/aa366841(v=vs.85).aspx -->
116 <xsl:text>&#x0A;</xsl:text>
117 <!-- forward declarations -->
118 <xsl:apply-templates select="if | interface" mode="forward"/>
119 <xsl:text>&#x0A;</xsl:text>
120 <!-- all enums go first -->
121 <xsl:apply-templates select="enum | if/enum"/>
122 <!-- declare the interfaces -->
123 <xsl:apply-templates select="if | interface"/>
124 </xsl:if>
125
126[
127 uuid(<xsl:value-of select="@uuid"/>),
128 version(<xsl:value-of select="@version"/>),
129 helpstring("<xsl:value-of select="@desc"/>")
130]
131<xsl:text>library </xsl:text>
132 <xsl:value-of select="@name"/>
133 <xsl:text>&#x0A;{&#x0A;</xsl:text>
134 <xsl:text>&#x0A;importlib("stdole2.tlb");&#x0A;&#x0A;</xsl:text>
135 <!-- result codes -->
136 <xsl:for-each select="result">
137 <xsl:apply-templates select="."/>
138 </xsl:for-each>
139 <xsl:text>&#x0A;</xsl:text>
140 <xsl:text>&#x0A;</xsl:text>
141 <xsl:choose>
142 <xsl:when test="$g_fGenProxy = 'yes'">
143 <!-- reference enums and interfaces -->
144 <xsl:apply-templates select="if | interface" mode="forward"/>
145 <xsl:apply-templates select="enum | if/enum" mode="forward"/>
146 <!-- the modules (i.e. everything else) -->
147 <xsl:apply-templates select="module | if/module"/>
148 </xsl:when>
149 <xsl:otherwise>
150 <!-- forward declarations -->
151 <xsl:apply-templates select="if | interface" mode="forward"/>
152 <!-- all enums go first -->
153 <xsl:apply-templates select="enum | if/enum"/>
154 <!-- everything else but result codes and enums -->
155 <xsl:apply-templates select="*[not(self::result or self::enum) and
156 not(self::if[result] or self::if[enum])]"/>
157 </xsl:otherwise>
158 </xsl:choose>
159 <!-- -->
160 <xsl:text>}; /* library </xsl:text>
161 <xsl:value-of select="@name"/>
162 <xsl:text> */&#x0A;&#x0A;</xsl:text>
163</xsl:template>
164
165
166<!--
167 * result codes
168-->
169<xsl:template match="result">
170 <xsl:text>cpp_quote("</xsl:text>
171 <xsl:value-of select="concat('#define ',@name,' ((HRESULT)',@value, ')')"/>
172 <xsl:text>")&#x0A;</xsl:text>
173</xsl:template>
174
175
176<!--
177 * forward declarations
178-->
179<xsl:template match="interface" mode="forward">
180 <xsl:text>interface </xsl:text>
181 <xsl:value-of select="@name"/>
182 <xsl:text>;&#x0A;</xsl:text>
183</xsl:template>
184
185
186<xsl:template match="enum" mode="forward">
187 <xsl:text>enum </xsl:text>
188 <xsl:value-of select="@name"/>
189 <xsl:text>;&#x0A;&#x0A;</xsl:text>
190</xsl:template>
191
192
193<!--
194 * interfaces
195-->
196<xsl:template match="interface">[
197 uuid(<xsl:value-of select="@uuid"/>),
198 object,
199 dual,
200 oleautomation
201<xsl:if test="$g_fGenProxy = 'yes'">
202 <!-- Indicates to the typelib that we are using a proxy stub DLL and that interfaces
203 should have any ProxyStubClsid32 or TypeLib keys in the registry. -->
204 <xsl:text> , proxy</xsl:text>
205</xsl:if>
206]
207<xsl:text>interface </xsl:text>
208 <xsl:variable name="name" select="@name"/>
209 <xsl:value-of select="$name"/>
210 <xsl:text> : </xsl:text>
211 <xsl:choose>
212 <xsl:when test="@extends='$unknown'">IDispatch</xsl:when>
213 <xsl:when test="@extends='$errorinfo'">IErrorInfo</xsl:when>
214 <!-- TODO/FIXME/BUGBUG: The above $errorinfo value causes the following warning (/W4):
215warning MIDL2460 : dual interface should be derived from IDispatch : IVirtualBoxErrorInfo [ Interface 'IVirtualBoxErrorInfo' ]
216 -->
217 <xsl:otherwise><xsl:value-of select="@extends"/></xsl:otherwise>
218 </xsl:choose>
219 <xsl:call-template name="xsltprocNewlineOutputHack"/>
220 <xsl:text>{&#x0A;</xsl:text>
221 <!-- attributes (properties) -->
222 <xsl:apply-templates select="attribute"/>
223 <xsl:variable name="reservedAttributes" select="@reservedAttributes"/>
224 <xsl:if test="$reservedAttributes > 0">
225 <!-- tricky way to do a "for" loop without recursion -->
226 <xsl:for-each select="(//*)[position() &lt;= $reservedAttributes]">
227 <xsl:text> [propget] HRESULT InternalAndReservedAttribute</xsl:text>
228 <xsl:value-of select="concat(position(), $name)"/>
229 <xsl:text> ([out, retval] ULONG *aReserved);&#x0A;&#x0A;</xsl:text>
230 </xsl:for-each>
231 </xsl:if>
232 <!-- methods -->
233 <xsl:apply-templates select="method"/>
234 <xsl:variable name="reservedMethods" select="@reservedMethods"/>
235 <xsl:if test="$reservedMethods > 0">
236 <!-- tricky way to do a "for" loop without recursion -->
237 <xsl:for-each select="(//*)[position() &lt;= $reservedMethods]">
238 <xsl:text> HRESULT InternalAndReservedMethod</xsl:text>
239 <xsl:value-of select="concat(position(), $name)"/>
240 <xsl:text>();&#x0A;&#x0A;</xsl:text>
241 </xsl:for-each>
242 </xsl:if>
243 <!-- 'if' enclosed elements, unsorted -->
244 <xsl:apply-templates select="if"/>
245 <!-- -->
246 <xsl:text>}; /* interface </xsl:text>
247 <xsl:value-of select="$name"/>
248 <xsl:text> */&#x0A;&#x0A;</xsl:text>
249 <!-- Interface implementation forwarder macro -->
250 <xsl:text>/* Interface implementation forwarder macro */&#x0A;</xsl:text>
251 <!-- 1) individual methods -->
252 <xsl:apply-templates select="attribute" mode="forwarder"/>
253 <xsl:apply-templates select="method" mode="forwarder"/>
254 <xsl:apply-templates select="if" mode="forwarder"/>
255 <!-- 2) COM_FORWARD_Interface_TO(smth) -->
256 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
257 <xsl:value-of select="$name"/>
258 <xsl:text>_TO(smth) </xsl:text>
259 <xsl:apply-templates select="attribute" mode="forwarder">
260 <xsl:with-param name="nameOnly" select="'yes'"/>
261 </xsl:apply-templates>
262 <xsl:apply-templates select="method" mode="forwarder">
263 <xsl:with-param name="nameOnly" select="'yes'"/>
264 </xsl:apply-templates>
265 <xsl:apply-templates select="if" mode="forwarder">
266 <xsl:with-param name="nameOnly" select="'yes'"/>
267 </xsl:apply-templates>
268 <xsl:text>")&#x0A;</xsl:text>
269 <!-- 3) COM_FORWARD_Interface_TO_OBJ(obj) -->
270 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
271 <xsl:value-of select="$name"/>
272 <xsl:text>_TO_OBJ(obj) COM_FORWARD_</xsl:text>
273 <xsl:value-of select="$name"/>
274 <xsl:text>_TO ((obj)->)")&#x0A;</xsl:text>
275 <!-- 4) COM_FORWARD_Interface_TO_BASE(base) -->
276 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
277 <xsl:value-of select="$name"/>
278 <xsl:text>_TO_BASE(base) COM_FORWARD_</xsl:text>
279 <xsl:value-of select="$name"/>
280 <xsl:text>_TO (base::)")&#x0A;</xsl:text>
281 <!-- end -->
282 <xsl:text>&#x0A;</xsl:text>
283</xsl:template>
284
285
286<!--
287 * attributes
288-->
289<xsl:template match="interface//attribute">
290 <xsl:apply-templates select="@if" mode="begin"/>
291 <!-- getter -->
292 <xsl:text> [propget] HRESULT </xsl:text>
293 <xsl:call-template name="capitalize">
294 <xsl:with-param name="str" select="@name"/>
295 </xsl:call-template>
296 <xsl:text> ([out, retval] </xsl:text>
297 <xsl:if test="@safearray='yes'">
298 <xsl:text>SAFEARRAY(</xsl:text>
299 </xsl:if>
300 <xsl:apply-templates select="@type"/>
301 <xsl:if test="@safearray='yes'">
302 <xsl:text>)</xsl:text>
303 </xsl:if>
304 <xsl:text> * a</xsl:text>
305 <xsl:call-template name="capitalize">
306 <xsl:with-param name="str" select="@name"/>
307 </xsl:call-template>
308 <xsl:text>);&#x0A;</xsl:text>
309 <!-- setter -->
310 <xsl:if test="not(@readonly='yes')">
311 <xsl:text> [propput] HRESULT </xsl:text>
312 <xsl:call-template name="capitalize">
313 <xsl:with-param name="str" select="@name"/>
314 </xsl:call-template>
315 <xsl:text> ([in] </xsl:text>
316 <xsl:if test="@safearray='yes'">
317 <xsl:text>SAFEARRAY(</xsl:text>
318 </xsl:if>
319 <xsl:apply-templates select="@type"/>
320 <xsl:if test="@safearray='yes'">
321 <xsl:text>)</xsl:text>
322 </xsl:if>
323 <xsl:text> a</xsl:text>
324 <xsl:call-template name="capitalize">
325 <xsl:with-param name="str" select="@name"/>
326 </xsl:call-template>
327 <xsl:text>);&#x0A;</xsl:text>
328 </xsl:if>
329 <xsl:apply-templates select="@if" mode="end"/>
330 <xsl:text>&#x0A;</xsl:text>
331</xsl:template>
332
333<xsl:template match="interface//attribute" mode="forwarder">
334
335 <!-- if nameOnly='yes' then only the macro name is composed
336 followed by a space -->
337 <xsl:param name="nameOnly"/>
338
339 <xsl:variable name="parent" select="ancestor::interface"/>
340
341 <xsl:apply-templates select="@if" mode="begin"/>
342
343 <xsl:choose>
344 <xsl:when test="$nameOnly='yes'">
345 <!-- getter: COM_FORWARD_Interface_GETTER_Name_TO(smth) -->
346 <xsl:text>COM_FORWARD_</xsl:text>
347 <xsl:value-of select="$parent/@name"/>
348 <xsl:text>_GETTER_</xsl:text>
349 <xsl:call-template name="capitalize">
350 <xsl:with-param name="str" select="@name"/>
351 </xsl:call-template>
352 <xsl:text>_TO (smth) </xsl:text>
353 <!-- setter: COM_FORWARD_Interface_SETTER_Name_TO(smth) -->
354 <xsl:if test="not(@readonly='yes')">
355 <xsl:text>COM_FORWARD_</xsl:text>
356 <xsl:value-of select="$parent/@name"/>
357 <xsl:text>_SETTER_</xsl:text>
358 <xsl:call-template name="capitalize">
359 <xsl:with-param name="str" select="@name"/>
360 </xsl:call-template>
361 <xsl:text>_TO (smth) </xsl:text>
362 </xsl:if>
363 </xsl:when>
364 <xsl:otherwise>
365 <!-- getter: COM_FORWARD_Interface_GETTER_Name_TO(smth) -->
366 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
367 <xsl:value-of select="$parent/@name"/>
368 <xsl:text>_GETTER_</xsl:text>
369 <xsl:call-template name="capitalize">
370 <xsl:with-param name="str" select="@name"/>
371 </xsl:call-template>
372 <xsl:text>_TO(smth) HRESULT STDMETHODCALLTYPE get_</xsl:text>
373 <xsl:call-template name="capitalize">
374 <xsl:with-param name="str" select="@name"/>
375 </xsl:call-template>
376 <xsl:text> (</xsl:text>
377 <xsl:choose>
378 <xsl:when test="@safearray='yes'">
379 <xsl:text>SAFEARRAY *</xsl:text>
380 </xsl:when>
381 <xsl:otherwise>
382 <xsl:apply-templates select="@type"/>
383 </xsl:otherwise>
384 </xsl:choose>
385 <xsl:text> * a</xsl:text>
386 <xsl:call-template name="capitalize">
387 <xsl:with-param name="str" select="@name"/>
388 </xsl:call-template>
389 <xsl:text>) { return smth get_</xsl:text>
390 <xsl:call-template name="capitalize">
391 <xsl:with-param name="str" select="@name"/>
392 </xsl:call-template>
393 <xsl:text> (a</xsl:text>
394 <xsl:call-template name="capitalize">
395 <xsl:with-param name="str" select="@name"/>
396 </xsl:call-template>
397 <xsl:text>); }")&#x0A;</xsl:text>
398 <!-- getter: COM_FORWARD_Interface_GETTER_Name_TO_OBJ(obj) -->
399 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
400 <xsl:value-of select="$parent/@name"/>
401 <xsl:text>_GETTER_</xsl:text>
402 <xsl:call-template name="capitalize">
403 <xsl:with-param name="str" select="@name"/>
404 </xsl:call-template>
405 <xsl:text>_TO_OBJ(obj) COM_FORWARD_</xsl:text>
406 <xsl:value-of select="$parent/@name"/>
407 <xsl:text>_GETTER_</xsl:text>
408 <xsl:call-template name="capitalize">
409 <xsl:with-param name="str" select="@name"/>
410 </xsl:call-template>
411 <xsl:text>_TO ((obj)->)")&#x0A;</xsl:text>
412 <!-- getter: COM_FORWARD_Interface_GETTER_Name_TO_BASE(base) -->
413 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
414 <xsl:value-of select="$parent/@name"/>
415 <xsl:text>_GETTER_</xsl:text>
416 <xsl:call-template name="capitalize">
417 <xsl:with-param name="str" select="@name"/>
418 </xsl:call-template>
419 <xsl:text>_TO_BASE(base) COM_FORWARD_</xsl:text>
420 <xsl:value-of select="$parent/@name"/>
421 <xsl:text>_GETTER_</xsl:text>
422 <xsl:call-template name="capitalize">
423 <xsl:with-param name="str" select="@name"/>
424 </xsl:call-template>
425 <xsl:text>_TO (base::)")&#x0A;</xsl:text>
426 <!-- -->
427 <xsl:if test="not(@readonly='yes')">
428 <!-- setter: COM_FORWARD_Interface_SETTER_Name_TO(smth) -->
429 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
430 <xsl:value-of select="$parent/@name"/>
431 <xsl:text>_SETTER_</xsl:text>
432 <xsl:call-template name="capitalize">
433 <xsl:with-param name="str" select="@name"/>
434 </xsl:call-template>
435 <xsl:text>_TO(smth) HRESULT STDMETHODCALLTYPE put_</xsl:text>
436 <xsl:call-template name="capitalize">
437 <xsl:with-param name="str" select="@name"/>
438 </xsl:call-template>
439 <xsl:text> (</xsl:text>
440 <xsl:choose>
441 <xsl:when test="@safearray='yes'">
442 <xsl:text>SAFEARRAY *</xsl:text>
443 </xsl:when>
444 <xsl:otherwise>
445 <xsl:apply-templates select="@type"/>
446 </xsl:otherwise>
447 </xsl:choose>
448 <xsl:text> a</xsl:text>
449 <xsl:call-template name="capitalize">
450 <xsl:with-param name="str" select="@name"/>
451 </xsl:call-template>
452 <xsl:text>) { return smth put_</xsl:text>
453 <xsl:call-template name="capitalize">
454 <xsl:with-param name="str" select="@name"/>
455 </xsl:call-template>
456 <xsl:text> (a</xsl:text>
457 <xsl:call-template name="capitalize">
458 <xsl:with-param name="str" select="@name"/>
459 </xsl:call-template>
460 <xsl:text>); }")&#x0A;</xsl:text>
461 <!-- setter: COM_FORWARD_Interface_SETTER_Name_TO_OBJ(obj) -->
462 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
463 <xsl:value-of select="$parent/@name"/>
464 <xsl:text>_SETTER_</xsl:text>
465 <xsl:call-template name="capitalize">
466 <xsl:with-param name="str" select="@name"/>
467 </xsl:call-template>
468 <xsl:text>_TO_OBJ(obj) COM_FORWARD_</xsl:text>
469 <xsl:value-of select="$parent/@name"/>
470 <xsl:text>_SETTER_</xsl:text>
471 <xsl:call-template name="capitalize">
472 <xsl:with-param name="str" select="@name"/>
473 </xsl:call-template>
474 <xsl:text>_TO ((obj)->)")&#x0A;</xsl:text>
475 <!-- setter: COM_FORWARD_Interface_SETTER_Name_TO_BASE(base) -->
476 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
477 <xsl:value-of select="$parent/@name"/>
478 <xsl:text>_SETTER_</xsl:text>
479 <xsl:call-template name="capitalize">
480 <xsl:with-param name="str" select="@name"/>
481 </xsl:call-template>
482 <xsl:text>_TO_BASE(base) COM_FORWARD_</xsl:text>
483 <xsl:value-of select="$parent/@name"/>
484 <xsl:text>_SETTER_</xsl:text>
485 <xsl:call-template name="capitalize">
486 <xsl:with-param name="str" select="@name"/>
487 </xsl:call-template>
488 <xsl:text>_TO (base::)")&#x0A;</xsl:text>
489 </xsl:if>
490 </xsl:otherwise>
491 </xsl:choose>
492
493 <xsl:apply-templates select="@if" mode="end"/>
494
495</xsl:template>
496
497
498<!--
499 * methods
500-->
501<xsl:template match="interface//method">
502 <xsl:apply-templates select="@if" mode="begin"/>
503 <xsl:text> HRESULT </xsl:text>
504 <xsl:call-template name="capitalize">
505 <xsl:with-param name="str" select="@name"/>
506 </xsl:call-template>
507 <xsl:choose>
508 <xsl:when test="param">
509 <xsl:text> (&#x0A;</xsl:text>
510 <xsl:for-each select="param [position() != last()]">
511 <xsl:text> </xsl:text>
512 <xsl:apply-templates select="."/>
513 <xsl:text>,&#x0A;</xsl:text>
514 </xsl:for-each>
515 <xsl:text> </xsl:text>
516 <xsl:apply-templates select="param [last()]"/>
517 <xsl:text>&#x0A; );&#x0A;</xsl:text>
518 </xsl:when>
519 <xsl:otherwise test="not(param)">
520 <xsl:text>();&#x0A;</xsl:text>
521 </xsl:otherwise>
522 </xsl:choose>
523 <xsl:apply-templates select="@if" mode="end"/>
524 <xsl:text>&#x0A;</xsl:text>
525</xsl:template>
526
527<xsl:template match="interface//method" mode="forwarder">
528
529 <!-- if nameOnly='yes' then only the macro name is composed followed by \ -->
530 <xsl:param name="nameOnly"/>
531
532 <xsl:variable name="parent" select="ancestor::interface"/>
533
534 <xsl:apply-templates select="@if" mode="begin"/>
535
536 <xsl:choose>
537 <xsl:when test="$nameOnly='yes'">
538 <!-- COM_FORWARD_Interface_Method_TO(smth) -->
539 <xsl:text>COM_FORWARD_</xsl:text>
540 <xsl:value-of select="$parent/@name"/>
541 <xsl:text>_</xsl:text>
542 <xsl:call-template name="capitalize">
543 <xsl:with-param name="str" select="@name"/>
544 </xsl:call-template>
545 <xsl:text>_TO (smth) </xsl:text>
546 </xsl:when>
547 <xsl:otherwise>
548 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
549 <xsl:value-of select="$parent/@name"/>
550 <xsl:text>_</xsl:text>
551 <xsl:call-template name="capitalize">
552 <xsl:with-param name="str" select="@name"/>
553 </xsl:call-template>
554 <xsl:text>_TO(smth) HRESULT STDMETHODCALLTYPE </xsl:text>
555 <xsl:call-template name="capitalize">
556 <xsl:with-param name="str" select="@name"/>
557 </xsl:call-template>
558 <xsl:choose>
559 <xsl:when test="param">
560 <xsl:text> (</xsl:text>
561 <xsl:for-each select="param [position() != last()]">
562 <xsl:apply-templates select="." mode="forwarder"/>
563 <xsl:text>, </xsl:text>
564 </xsl:for-each>
565 <xsl:apply-templates select="param [last()]" mode="forwarder"/>
566 <xsl:text>) { return smth </xsl:text>
567 <xsl:call-template name="capitalize">
568 <xsl:with-param name="str" select="@name"/>
569 </xsl:call-template>
570 <xsl:text> (</xsl:text>
571 <xsl:for-each select="param [position() != last()]">
572 <xsl:text>a</xsl:text>
573 <xsl:call-template name="capitalize">
574 <xsl:with-param name="str" select="@name"/>
575 </xsl:call-template>
576 <xsl:text>, </xsl:text>
577 </xsl:for-each>
578 <xsl:text>a</xsl:text>
579 <xsl:call-template name="capitalize">
580 <xsl:with-param name="str" select="param [last()]/@name"/>
581 </xsl:call-template>
582 <xsl:text>); }</xsl:text>
583 </xsl:when>
584 <xsl:otherwise test="not(param)">
585 <xsl:text>() { return smth </xsl:text>
586 <xsl:call-template name="capitalize">
587 <xsl:with-param name="str" select="@name"/>
588 </xsl:call-template>
589 <xsl:text>(); }</xsl:text>
590 </xsl:otherwise>
591 </xsl:choose>
592 <xsl:text>")&#x0A;</xsl:text>
593 <!-- COM_FORWARD_Interface_Method_TO_OBJ(obj) -->
594 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
595 <xsl:value-of select="$parent/@name"/>
596 <xsl:text>_</xsl:text>
597 <xsl:call-template name="capitalize">
598 <xsl:with-param name="str" select="@name"/>
599 </xsl:call-template>
600 <xsl:text>_TO_OBJ(obj) COM_FORWARD_</xsl:text>
601 <xsl:value-of select="$parent/@name"/>
602 <xsl:text>_</xsl:text>
603 <xsl:call-template name="capitalize">
604 <xsl:with-param name="str" select="@name"/>
605 </xsl:call-template>
606 <xsl:text>_TO ((obj)->)")&#x0A;</xsl:text>
607 <!-- COM_FORWARD_Interface_Method_TO_BASE(base) -->
608 <xsl:text>cpp_quote("#define COM_FORWARD_</xsl:text>
609 <xsl:value-of select="$parent/@name"/>
610 <xsl:text>_</xsl:text>
611 <xsl:call-template name="capitalize">
612 <xsl:with-param name="str" select="@name"/>
613 </xsl:call-template>
614 <xsl:text>_TO_BASE(base) COM_FORWARD_</xsl:text>
615 <xsl:value-of select="$parent/@name"/>
616 <xsl:text>_</xsl:text>
617 <xsl:call-template name="capitalize">
618 <xsl:with-param name="str" select="@name"/>
619 </xsl:call-template>
620 <xsl:text>_TO (base::)")&#x0A;</xsl:text>
621 </xsl:otherwise>
622 </xsl:choose>
623
624 <xsl:apply-templates select="@if" mode="end"/>
625
626</xsl:template>
627
628
629<!--
630 * modules
631-->
632<xsl:template match="module">
633 <xsl:apply-templates select="class"/>
634</xsl:template>
635
636
637<!--
638 * co-classes
639-->
640<xsl:template match="module/class">[
641 uuid(<xsl:value-of select="@uuid"/>)
642]
643<xsl:text>coclass </xsl:text>
644 <xsl:value-of select="@name"/>
645 <xsl:text>&#x0A;{&#x0A;</xsl:text>
646 <xsl:for-each select="interface">
647 <xsl:text> </xsl:text>
648 <xsl:if test="@default='yes'">
649 <xsl:text>[default] </xsl:text>
650 </xsl:if>
651 <xsl:text>interface </xsl:text>
652 <xsl:value-of select="@name"/>
653 <xsl:text>;&#x0A;</xsl:text>
654 </xsl:for-each>
655 <xsl:for-each select="eventsink">
656 <xsl:text> </xsl:text>
657 <xsl:choose>
658 <xsl:when test="@default='yes'"><xsl:text>[default,source]</xsl:text></xsl:when>
659 <xsl:otherwise><xsl:text>[source]</xsl:text></xsl:otherwise>
660 </xsl:choose>
661 <xsl:text> interface </xsl:text>
662 <xsl:value-of select="@name"/>
663 <xsl:text>;&#x0A;</xsl:text>
664 </xsl:for-each>
665 <xsl:text>&#x0A;}; /* coclass </xsl:text>
666 <xsl:value-of select="@name"/>
667 <xsl:text> */&#x0A;&#x0A;</xsl:text>
668</xsl:template>
669
670
671<!--
672 * enums
673-->
674<xsl:template match="enum">[
675 uuid(<xsl:value-of select="@uuid"/>),
676 v1_enum
677]
678<xsl:text>typedef enum &#x0A;{&#x0A;</xsl:text>
679 <xsl:for-each select="const">
680 <xsl:text> </xsl:text>
681 <xsl:value-of select="concat(../@name,'_',@name)"/> = <xsl:value-of select="@value"/>
682 <xsl:choose>
683 <xsl:when test="position()!=last()"><xsl:text>,&#x0A;</xsl:text></xsl:when>
684 <xsl:otherwise><xsl:text>&#x0A;</xsl:text></xsl:otherwise>
685 </xsl:choose>
686 </xsl:for-each>
687 <xsl:text>} </xsl:text>
688 <xsl:value-of select="@name"/>
689 <xsl:text>;&#x0A;&#x0A;</xsl:text>
690 <!-- -->
691 <xsl:value-of select="concat('/* cross-platform type name for ', @name, ' */&#x0A;')"/>
692 <xsl:value-of select="concat('cpp_quote(&quot;#define ', @name, '_T', ' ',
693 @name, '&quot;)&#x0A;&#x0A;')"/>
694 <xsl:text>&#x0A;&#x0A;</xsl:text>
695</xsl:template>
696
697
698<!--
699 * method parameters
700-->
701<xsl:template match="method/param">
702 <xsl:text>[</xsl:text>
703 <xsl:choose>
704 <xsl:when test="@dir='in'">in</xsl:when>
705 <xsl:when test="@dir='out'">out</xsl:when>
706 <xsl:when test="@dir='return'">out, retval</xsl:when>
707 <xsl:otherwise>in</xsl:otherwise>
708 </xsl:choose>
709 <xsl:text>] </xsl:text>
710 <xsl:if test="@safearray='yes'">
711 <xsl:text>SAFEARRAY(</xsl:text>
712 </xsl:if>
713 <xsl:apply-templates select="@type"/>
714 <xsl:if test="@safearray='yes'">
715 <xsl:text>)</xsl:text>
716 </xsl:if>
717 <xsl:if test="@dir='out' or @dir='return'">
718 <xsl:text> *</xsl:text>
719 </xsl:if>
720 <xsl:text> a</xsl:text>
721 <xsl:call-template name="capitalize">
722 <xsl:with-param name="str" select="@name"/>
723 </xsl:call-template>
724</xsl:template>
725
726<xsl:template match="method/param" mode="forwarder">
727 <xsl:choose>
728 <xsl:when test="@safearray='yes'">
729 <xsl:text>SAFEARRAY *</xsl:text>
730 </xsl:when>
731 <xsl:otherwise>
732 <xsl:apply-templates select="@type"/>
733 </xsl:otherwise>
734 </xsl:choose>
735 <xsl:if test="@dir='out' or @dir='return' or @safearray='yes'">
736 <xsl:text> *</xsl:text>
737 </xsl:if>
738 <xsl:text> a</xsl:text>
739 <xsl:call-template name="capitalize">
740 <xsl:with-param name="str" select="@name"/>
741 </xsl:call-template>
742</xsl:template>
743
744
745<!--
746 * attribute/parameter type conversion
747-->
748<xsl:template match="attribute/@type | param/@type">
749 <xsl:variable name="self_target" select="current()/ancestor::if/@target"/>
750
751 <xsl:choose>
752 <!-- modifiers -->
753 <xsl:when test="name(current())='type' and ../@mod">
754 <xsl:choose>
755 <xsl:when test="../@mod='ptr'">
756 <xsl:choose>
757 <!-- standard types -->
758 <!--xsl:when test=".='result'">??</xsl:when-->
759 <xsl:when test=".='boolean'">BOOL *</xsl:when>
760 <xsl:when test=".='octet'">BYTE *</xsl:when>
761 <xsl:when test=".='short'">SHORT *</xsl:when>
762 <xsl:when test=".='unsigned short'">USHORT *</xsl:when>
763 <xsl:when test=".='long'">LONG *</xsl:when>
764 <xsl:when test=".='long long'">LONG64 *</xsl:when>
765 <xsl:when test=".='unsigned long'">ULONG *</xsl:when>
766 <xsl:when test=".='unsigned long long'">
767 <xsl:message terminate="yes">
768 <xsl:value-of select="'&quot;unsigned long long&quot; no longer supported'" />
769 </xsl:message>
770 </xsl:when>
771 <xsl:otherwise>
772 <xsl:message terminate="yes">
773 <xsl:value-of select="concat(../../../@name,'::',../../@name,'::',../@name,': ')"/>
774 <xsl:text>attribute 'mod=</xsl:text>
775 <xsl:value-of select="concat('&quot;',../@mod,'&quot;')"/>
776 <xsl:text>' cannot be used with type </xsl:text>
777 <xsl:value-of select="concat('&quot;',current(),'&quot;!')"/>
778 </xsl:message>
779 </xsl:otherwise>
780 </xsl:choose>
781 </xsl:when>
782 <xsl:when test="../@mod='string'">
783 <xsl:choose>
784 <!-- standard types -->
785 <!--xsl:when test=".='result'">??</xsl:when-->
786 <xsl:when test=".='uuid'">BSTR</xsl:when>
787 <xsl:otherwise>
788 <xsl:message terminate="yes">
789 <xsl:value-of select="concat(../../../@name,'::',../../@name,'::',../@name,': ')"/>
790 <xsl:text>attribute 'mod=</xsl:text>
791 <xsl:value-of select="concat('&quot;',../@mod,'&quot;')"/>
792 <xsl:text>' cannot be used with type </xsl:text>
793 <xsl:value-of select="concat('&quot;',current(),'&quot;!')"/>
794 </xsl:message>
795 </xsl:otherwise>
796 </xsl:choose>
797 </xsl:when>
798 <xsl:otherwise>
799 <xsl:message terminate="yes">
800 <xsl:value-of select="concat(../../../@name,'::',../../@name,'::',../@name,': ')"/>
801 <xsl:value-of select="concat('value &quot;',../@mod,'&quot; ')"/>
802 <xsl:text>of attribute 'mod' is invalid!</xsl:text>
803 </xsl:message>
804 </xsl:otherwise>
805 </xsl:choose>
806 </xsl:when>
807 <!-- no modifiers -->
808 <xsl:otherwise>
809 <xsl:choose>
810 <!-- standard types -->
811 <xsl:when test=".='result'">HRESULT</xsl:when>
812 <xsl:when test=".='boolean'">BOOL</xsl:when>
813 <xsl:when test=".='octet'">BYTE</xsl:when>
814 <xsl:when test=".='short'">SHORT</xsl:when>
815 <xsl:when test=".='unsigned short'">USHORT</xsl:when>
816 <xsl:when test=".='long'">LONG</xsl:when>
817 <xsl:when test=".='long long'">LONG64</xsl:when>
818 <xsl:when test=".='unsigned long'">ULONG</xsl:when>
819 <xsl:when test=".='char'">CHAR</xsl:when>
820 <xsl:when test=".='string'">CHAR *</xsl:when>
821 <xsl:when test=".='wchar'">OLECHAR</xsl:when>
822 <xsl:when test=".='wstring'">BSTR</xsl:when>
823 <!-- UUID type -->
824 <xsl:when test=".='uuid'">GUID</xsl:when>
825 <!-- system interface types -->
826 <xsl:when test=".='$unknown'">IUnknown *</xsl:when>
827 <xsl:when test=".='unsigned long long'">
828 <xsl:message terminate="yes">
829 <xsl:value-of select="'&quot;unsigned long long&quot; no longer supported'" />
830 </xsl:message>
831 </xsl:when>
832 <xsl:otherwise>
833 <xsl:choose>
834 <!-- enum types -->
835 <xsl:when test="
836 (ancestor::library/enum[@name=current()]) or
837 (ancestor::library/if[@target=$self_target]/enum[@name=current()])
838 ">
839 <xsl:value-of select="."/>
840 </xsl:when>
841 <!-- custom interface types -->
842 <xsl:when test="
843 ((ancestor::library/interface[@name=current()]) or
844 (ancestor::library/if[@target=$self_target]/interface[@name=current()])
845 )
846 ">
847 <xsl:value-of select="."/><xsl:text> *</xsl:text>
848 </xsl:when>
849 <!-- other types -->
850 <xsl:otherwise>
851 <xsl:message terminate="yes">
852 <xsl:text>Unknown parameter type: </xsl:text>
853 <xsl:value-of select="."/>
854 </xsl:message>
855 </xsl:otherwise>
856 </xsl:choose>
857 </xsl:otherwise>
858 </xsl:choose>
859 </xsl:otherwise>
860 </xsl:choose>
861</xsl:template>
862
863</xsl:stylesheet>
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette