projects / reactos.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Revert latest update due to unexpected bug in compiled files.
[reactos.git] / reactos / tools / widl / header.c
1 /*
2 * IDL Compiler
3 *
4 * Copyright 2002 Ove Kaaven
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #include "config.h"
22
23 #include <stdio.h>
24 #include <stdlib.h>
25 #ifdef HAVE_UNISTD_H
26 # include <unistd.h>
27 #endif
28 #include <string.h>
29 #include <assert.h>
30 #include <ctype.h>
31 #include <signal.h>
32
33 #include "windef.h"
34 #include "widl.h"
35 #include "utils.h"
36 #include "parser.h"
37 #include "header.h"
38
39 static int indentation = 0;
40
41 static void indent(FILE *h, int delta)
42 {
43 int c;
44 if (delta < 0) indentation += delta;
45 for (c=0; c<indentation; c++) fprintf(h, " ");
46 if (delta > 0) indentation += delta;
47 }
48
49 int is_attr(const attr_t *a, enum attr_type t)
50 {
51 while (a) {
52 if (a->type == t) return 1;
53 a = NEXT_LINK(a);
54 }
55 return 0;
56 }
57
58 void *get_attrp(const attr_t *a, enum attr_type t)
59 {
60 while (a) {
61 if (a->type == t) return a->u.pval;
62 a = NEXT_LINK(a);
63 }
64 return NULL;
65 }
66
67 unsigned long get_attrv(const attr_t *a, enum attr_type t)
68 {
69 while (a) {
70 if (a->type == t) return a->u.ival;
71 a = NEXT_LINK(a);
72 }
73 return 0;
74 }
75
76 int is_void(const type_t *t, const var_t *v)
77 {
78 if (v && v->ptr_level) return 0;
79 if (!t->type && !t->ref) return 1;
80 return 0;
81 }
82
83 static void write_guid(const char *guid_prefix, const char *name, const UUID *uuid)
84 {
85 if (!uuid) return;
86 fprintf(header, "DEFINE_GUID(%s_%s, 0x%08lx, 0x%04x, 0x%04x, 0x%02x,0x%02x, 0x%02x,"
87 "0x%02x,0x%02x,0x%02x,0x%02x,0x%02x);\n",
88 guid_prefix, name, uuid->Data1, uuid->Data2, uuid->Data3, uuid->Data4[0],
89 uuid->Data4[1], uuid->Data4[2], uuid->Data4[3], uuid->Data4[4], uuid->Data4[5],
90 uuid->Data4[6], uuid->Data4[7]);
91 }
92
93 static void write_pident(FILE *h, const var_t *v)
94 {
95 int c;
96 for (c=0; c<v->ptr_level; c++) {
97 fprintf(h, "*");
98 }
99 if (v->name) fprintf(h, "%s", v->name);
100 }
101
102 void write_name(FILE *h, const var_t *v)
103 {
104 if (is_attr( v->attrs, ATTR_PROPGET ))
105 fprintf(h, "get_" );
106 else if (is_attr( v->attrs, ATTR_PROPPUT ))
107 fprintf(h, "put_" );
108 else if (is_attr( v->attrs, ATTR_PROPPUTREF ))
109 fprintf(h, "putref_" );
110 fprintf(h, "%s", v->name);
111 }
112
113 const char* get_name(const var_t *v)
114 {
115 return v->name;
116 }
117
118 void write_array(FILE *h, const expr_t *v, int field)
119 {
120 if (!v) return;
121 while (NEXT_LINK(v)) v = NEXT_LINK(v);
122 fprintf(h, "[");
123 while (v) {
124 if (v->is_const)
125 fprintf(h, "%ld", v->cval); /* statically sized array */
126 else
127 if (field) fprintf(h, "1"); /* dynamically sized array */
128 if (PREV_LINK(v))
129 fprintf(h, ", ");
130 v = PREV_LINK(v);
131 }
132 fprintf(h, "]");
133 }
134
135 static void write_field(FILE *h, var_t *v)
136 {
137 if (!v) return;
138 if (v->type) {
139 indent(h, 0);
140 write_type(h, v->type, NULL, v->tname);
141 if (get_name(v)) {
142 fprintf(h, " ");
143 write_pident(h, v);
144 }
145 else {
146 /* not all C/C++ compilers support anonymous structs and unions */
147 switch (v->type->type) {
148 case RPC_FC_STRUCT:
149 case RPC_FC_CVSTRUCT:
150 case RPC_FC_CPSTRUCT:
151 case RPC_FC_CSTRUCT:
152 case RPC_FC_PSTRUCT:
153 case RPC_FC_BOGUS_STRUCT:
154 case RPC_FC_ENCAPSULATED_UNION:
155 fprintf(h, " DUMMYSTRUCTNAME");
156 break;
157 case RPC_FC_NON_ENCAPSULATED_UNION:
158 fprintf(h, " DUMMYUNIONNAME");
159 break;
160 default:
161 /* ? */
162 break;
163 }
164 }
165 write_array(h, v->array, 1);
166 fprintf(h, ";\n");
167 }
168 }
169
170 static void write_fields(FILE *h, var_t *v)
171 {
172 var_t *first = v;
173 if (!v) return;
174 while (NEXT_LINK(v)) v = NEXT_LINK(v);
175 while (v) {
176 write_field(h, v);
177 if (v == first) break;
178 v = PREV_LINK(v);
179 }
180 }
181
182 static void write_enums(FILE *h, var_t *v)
183 {
184 if (!v) return;
185 while (NEXT_LINK(v)) v = NEXT_LINK(v);
186 while (v) {
187 if (get_name(v)) {
188 indent(h, 0);
189 write_name(h, v);
190 if (v->eval) {
191 fprintf(h, " = ");
192 write_expr(h, v->eval, 0);
193 }
194 }
195 if (PREV_LINK(v))
196 fprintf(h, ",\n");
197 v = PREV_LINK(v);
198 }
199 fprintf(h, "\n");
200 }
201
202 void write_type(FILE *h, type_t *t, const var_t *v, const char *n)
203 {
204 int c;
205
206 if (n) fprintf(h, "%s", n);
207 else {
208 if (t->is_const) fprintf(h, "const ");
209 if (t->type) {
210 if (t->sign > 0) fprintf(h, "signed ");
211 else if (t->sign < 0) fprintf(h, "unsigned ");
212 switch (t->type) {
213 case RPC_FC_BYTE:
214 if (t->ref) fprintf(h, t->ref->name);
215 else fprintf(h, "byte");
216 break;
217 case RPC_FC_CHAR:
218 if (t->ref) fprintf(h, t->ref->name);
219 else fprintf(h, "char");
220 break;
221 case RPC_FC_WCHAR:
222 fprintf(h, "WCHAR");
223 break;
224 case RPC_FC_USMALL:
225 case RPC_FC_SMALL:
226 if (t->ref) fprintf(h, t->ref->name);
227 else fprintf(h, "small");
228 break;
229 case RPC_FC_USHORT:
230 case RPC_FC_SHORT:
231 if (t->ref) fprintf(h, t->ref->name);
232 else fprintf(h, "short");
233 break;
234 case RPC_FC_ULONG:
235 case RPC_FC_LONG:
236 if (t->ref) fprintf(h, t->ref->name);
237 else fprintf(h, "long");
238 break;
239 case RPC_FC_HYPER:
240 if (t->ref) fprintf(h, t->ref->name);
241 else fprintf(h, "hyper");
242 break;
243 case RPC_FC_FLOAT:
244 fprintf(h, "float");
245 break;
246 case RPC_FC_DOUBLE:
247 fprintf(h, "double");
248 break;
249 case RPC_FC_ENUM16:
250 case RPC_FC_ENUM32:
251 if (t->defined && !t->written && !t->ignore) {
252 if (t->name) fprintf(h, "enum %s {\n", t->name);
253 else fprintf(h, "enum {\n");
254 t->written = TRUE;
255 indentation++;
256 write_enums(h, t->fields);
257 indent(h, -1);
258 fprintf(h, "}");
259 }
260 else fprintf(h, "enum %s", t->name);
261 break;
262 case RPC_FC_ERROR_STATUS_T:
263 if (t->ref) fprintf(h, t->ref->name);
264 else fprintf(h, "error_status_t");
265 break;
266 case RPC_FC_BIND_PRIMITIVE:
267 if (t->ref) fprintf(h, t->ref->name);
268 else fprintf(h, "handle_t");
269 break;
270 case RPC_FC_STRUCT:
271 case RPC_FC_CVSTRUCT:
272 case RPC_FC_CPSTRUCT:
273 case RPC_FC_CSTRUCT:
274 case RPC_FC_PSTRUCT:
275 case RPC_FC_BOGUS_STRUCT:
276 case RPC_FC_ENCAPSULATED_UNION:
277 if (t->defined && !t->written && !t->ignore) {
278 if (t->name) fprintf(h, "struct %s {\n", t->name);
279 else fprintf(h, "struct {\n");
280 t->written = TRUE;
281 indentation++;
282 write_fields(h, t->fields);
283 indent(h, -1);
284 fprintf(h, "}");
285 }
286 else fprintf(h, "struct %s", t->name);
287 break;
288 case RPC_FC_NON_ENCAPSULATED_UNION:
289 if (t->defined && !t->written && !t->ignore) {
290 if (t->name) fprintf(h, "union %s {\n", t->name);
291 else fprintf(h, "union {\n");
292 t->written = TRUE;
293 indentation++;
294 write_fields(h, t->fields);
295 indent(h, -1);
296 fprintf(h, "}");
297 }
298 else fprintf(h, "union %s", t->name);
299 break;
300 case RPC_FC_FP:
301 if (t->ref) write_type(h, t->ref, NULL, t->name);
302 fprintf(h, "*");
303 break;
304 default:
305 fprintf(h, "(unknown-type:%d)", t->type);
306 }
307 }
308 else {
309 if (t->ref) {
310 write_type(h, t->ref, NULL, t->name);
311 }
312 else fprintf(h, "void");
313 }
314 }
315 if (v) {
316 for (c=0; c<v->ptr_level; c++) {
317 fprintf(h, "*");
318 }
319 }
320 }
321
322
323 struct user_type
324 {
325 struct user_type *next;
326 char name[1];
327 };
328
329 static struct user_type *user_type_list;
330
331 static int user_type_registered(const char *name)
332 {
333 struct user_type *ut;
334 for (ut = user_type_list; ut; ut = ut->next)
335 if (!strcmp(name, ut->name))
336 return 1;
337 return 0;
338 }
339
340 static void check_for_user_types(const var_t *v)
341 {
342 while (v) {
343 type_t *type = v->type;
344 const char *name = v->tname;
345 for (type = v->type; type; type = type->ref) {
346 if (type->user_types_registered) continue;
347 type->user_types_registered = 1;
348 if (is_attr(type->attrs, ATTR_WIREMARSHAL)) {
349 if (!user_type_registered(name))
350 {
351 struct user_type *ut = xmalloc(sizeof(struct user_type) + strlen(name));
352 strcpy(ut->name, name);
353 ut->next = user_type_list;
354 user_type_list = ut;
355 }
356 /* don't carry on parsing fields within this type as we are already
357 * using a wire marshaled type */
358 break;
359 }
360 else if (type->fields)
361 {
362 const var_t *fields = type->fields;
363 while (NEXT_LINK(fields)) fields = NEXT_LINK(fields);
364 check_for_user_types(fields);
365 }
366 /* the wire_marshal attribute is always at least one reference away
367 * from the name of the type, so update it after the rest of the
368 * processing above */
369 if (type->name) name = type->name;
370 }
371 v = PREV_LINK(v);
372 }
373 }
374
375 void write_user_types(void)
376 {
377 struct user_type *ut;
378 for (ut = user_type_list; ut; ut = ut->next)
379 {
380 const char *name = ut->name;
381 fprintf(header, "unsigned long __RPC_USER %s_UserSize (unsigned long *, unsigned long, %s *);\n", name, name);
382 fprintf(header, "unsigned char * __RPC_USER %s_UserMarshal (unsigned long *, unsigned char *, %s *);\n", name, name);
383 fprintf(header, "unsigned char * __RPC_USER %s_UserUnmarshal(unsigned long *, unsigned char *, %s *);\n", name, name);
384 fprintf(header, "void __RPC_USER %s_UserFree (unsigned long *, %s *);\n", name, name);
385 }
386 }
387
388 void write_typedef(type_t *type, const var_t *names)
389 {
390 const char *tname = names->tname;
391 const var_t *lname;
392 while (NEXT_LINK(names)) names = NEXT_LINK(names);
393 lname = names;
394 fprintf(header, "typedef ");
395 write_type(header, type, NULL, tname);
396 fprintf(header, " ");
397 while (names) {
398 write_pident(header, names);
399 if (PREV_LINK(names))
400 fprintf(header, ", ");
401 names = PREV_LINK(names);
402 }
403 fprintf(header, ";\n");
404 }
405
406 void write_expr(FILE *h, const expr_t *e, int brackets)
407 {
408 switch (e->type) {
409 case EXPR_VOID:
410 break;
411 case EXPR_NUM:
412 fprintf(h, "%ld", e->u.lval);
413 break;
414 case EXPR_HEXNUM:
415 fprintf(h, "0x%lx", e->u.lval);
416 break;
417 case EXPR_TRUEFALSE:
418 if (e->u.lval == 0)
419 fprintf(h, "FALSE");
420 else
421 fprintf(h, "TRUE");
422 break;
423 case EXPR_IDENTIFIER:
424 fprintf(h, "%s", e->u.sval);
425 break;
426 case EXPR_NEG:
427 fprintf(h, "-");
428 write_expr(h, e->ref, 1);
429 break;
430 case EXPR_NOT:
431 fprintf(h, "~");
432 write_expr(h, e->ref, 1);
433 break;
434 case EXPR_PPTR:
435 fprintf(h, "*");
436 write_expr(h, e->ref, 1);
437 break;
438 case EXPR_CAST:
439 fprintf(h, "(");
440 write_type(h, e->u.tref->ref, NULL, e->u.tref->name);
441 fprintf(h, ")");
442 write_expr(h, e->ref, 1);
443 break;
444 case EXPR_SIZEOF:
445 fprintf(h, "sizeof(");
446 write_type(h, e->u.tref->ref, NULL, e->u.tref->name);
447 fprintf(h, ")");
448 break;
449 case EXPR_SHL:
450 case EXPR_SHR:
451 case EXPR_MUL:
452 case EXPR_DIV:
453 case EXPR_ADD:
454 case EXPR_SUB:
455 case EXPR_AND:
456 case EXPR_OR:
457 if (brackets) fprintf(h, "(");
458 write_expr(h, e->ref, 1);
459 switch (e->type) {
460 case EXPR_SHL: fprintf(h, " << "); break;
461 case EXPR_SHR: fprintf(h, " >> "); break;
462 case EXPR_MUL: fprintf(h, " * "); break;
463 case EXPR_DIV: fprintf(h, " / "); break;
464 case EXPR_ADD: fprintf(h, " + "); break;
465 case EXPR_SUB: fprintf(h, " - "); break;
466 case EXPR_AND: fprintf(h, " & "); break;
467 case EXPR_OR: fprintf(h, " | "); break;
468 default: break;
469 }
470 write_expr(h, e->u.ext, 1);
471 if (brackets) fprintf(h, ")");
472 break;
473 case EXPR_COND:
474 if (brackets) fprintf(h, "(");
475 write_expr(h, e->ref, 1);
476 fprintf(h, " ? ");
477 write_expr(h, e->u.ext, 1);
478 fprintf(h, " : ");
479 write_expr(h, e->ext2, 1);
480 if (brackets) fprintf(h, ")");
481 break;
482 }
483 }
484
485 void write_constdef(const var_t *v)
486 {
487 fprintf(header, "#define %s (", get_name(v));
488 write_expr(header, v->eval, 0);
489 fprintf(header, ")\n\n");
490 }
491
492 void write_externdef(const var_t *v)
493 {
494 fprintf(header, "extern const ");
495 write_type(header, v->type, NULL, v->tname);
496 if (get_name(v)) {
497 fprintf(header, " ");
498 write_pident(header, v);
499 }
500 fprintf(header, ";\n\n");
501 }
502
503 void write_library(const char *name, const attr_t *attr) {
504 const UUID *uuid = get_attrp(attr, ATTR_UUID);
505 fprintf(header, "\n");
506 write_guid("LIBID", name, uuid);
507 fprintf(header, "\n");
508 }
509
510
511 const var_t* get_explicit_handle_var(const func_t* func)
512 {
513 const var_t* var;
514
515 if (!func->args)
516 return NULL;
517
518 var = func->args;
519 while (NEXT_LINK(var)) var = NEXT_LINK(var);
520 while (var)
521 {
522 if (var->type->type == RPC_FC_BIND_PRIMITIVE)
523 return var;
524
525 var = PREV_LINK(var);
526 }
527
528 return NULL;
529 }
530
531 int has_out_arg_or_return(const func_t *func)
532 {
533 var_t *var;
534
535 if (!is_void(func->def->type, NULL))
536 return 1;
537
538 if (!func->args)
539 return 0;
540
541 var = func->args;
542 while (NEXT_LINK(var)) var = NEXT_LINK(var);
543 while (var)
544 {
545 if (is_attr(var->attrs, ATTR_OUT))
546 return 1;
547
548 var = PREV_LINK(var);
549 }
550 return 0;
551 }
552
553
554 /********** INTERFACES **********/
555
556 int is_object(const attr_t *a)
557 {
558 while (a) {
559 if (a->type == ATTR_OBJECT || a->type == ATTR_ODL) return 1;
560 a = NEXT_LINK(a);
561 }
562 return 0;
563 }
564
565 int is_local(const attr_t *a)
566 {
567 return is_attr(a, ATTR_LOCAL);
568 }
569
570 const var_t *is_callas(const attr_t *a)
571 {
572 return get_attrp(a, ATTR_CALLAS);
573 }
574
575 static int write_method_macro(const type_t *iface, const char *name)
576 {
577 int idx;
578 func_t *cur = iface->funcs;
579
580 if (iface->ref) idx = write_method_macro(iface->ref, name);
581 else idx = 0;
582
583 if (!cur) return idx;
584 while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
585
586 fprintf(header, "/*** %s methods ***/\n", iface->name);
587 while (cur) {
588 var_t *def = cur->def;
589 if (!is_callas(def->attrs)) {
590 var_t *arg = cur->args;
591 int argc = 0;
592 int c;
593 while (arg) {
594 arg = NEXT_LINK(arg);
595 argc++;
596 }
597
598 fprintf(header, "#define %s_", name);
599 write_name(header,def);
600 fprintf(header, "(p");
601 for (c=0; c<argc; c++)
602 fprintf(header, ",%c", c+'a');
603 fprintf(header, ") ");
604
605 fprintf(header, "(p)->lpVtbl->");
606 write_name(header, def);
607 fprintf(header, "(p");
608 for (c=0; c<argc; c++)
609 fprintf(header, ",%c", c+'a');
610 fprintf(header, ")\n");
611 if (cur->idx == -1) cur->idx = idx;
612 else if (cur->idx != idx) yyerror("BUG: method index mismatch in write_method_macro");
613 idx++;
614 }
615 cur = PREV_LINK(cur);
616 }
617 return idx;
618 }
619
620 void write_args(FILE *h, var_t *arg, const char *name, int method, int do_indent)
621 {
622 int count = 0;
623 if (arg) {
624 while (NEXT_LINK(arg))
625 arg = NEXT_LINK(arg);
626 }
627 if (do_indent)
628 {
629 indentation++;
630 indent(h, 0);
631 }
632 if (method == 1) {
633 fprintf(h, "%s* This", name);
634 count++;
635 }
636 while (arg) {
637 if (count) {
638 if (do_indent)
639 {
640 fprintf(h, ",\n");
641 indent(h, 0);
642 }
643 else fprintf(h, ",");
644 }
645 write_type(h, arg->type, arg, arg->tname);
646 if (arg->args)
647 {
648 fprintf(h, " (STDMETHODCALLTYPE *");
649 write_name(h,arg);
650 fprintf(h, ")(");
651 write_args(h, arg->args, NULL, 0, FALSE);
652 fprintf(h, ")");
653 }
654 else
655 {
656 fprintf(h, " ");
657 write_name(h, arg);
658 }
659 write_array(h, arg->array, 0);
660 arg = PREV_LINK(arg);
661 count++;
662 }
663 if (do_indent) indentation--;
664 }
665
666 static void write_cpp_method_def(const type_t *iface)
667 {
668 func_t *cur = iface->funcs;
669
670 if (!cur) return;
671 while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
672 while (cur) {
673 var_t *def = cur->def;
674 if (!is_callas(def->attrs)) {
675 indent(header, 0);
676 fprintf(header, "virtual ");
677 write_type(header, def->type, def, def->tname);
678 fprintf(header, " STDMETHODCALLTYPE ");
679 write_name(header, def);
680 fprintf(header, "(\n");
681 write_args(header, cur->args, iface->name, 2, TRUE);
682 fprintf(header, ") = 0;\n");
683 fprintf(header, "\n");
684 }
685 cur = PREV_LINK(cur);
686 }
687 }
688
689 static void do_write_c_method_def(const type_t *iface, const char *name)
690 {
691 const func_t *cur = iface->funcs;
692
693 if (iface->ref) do_write_c_method_def(iface->ref, name);
694
695 if (!cur) return;
696 while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
697 indent(header, 0);
698 fprintf(header, "/*** %s methods ***/\n", iface->name);
699 while (cur) {
700 const var_t *def = cur->def;
701 if (!is_callas(def->attrs)) {
702 indent(header, 0);
703 write_type(header, def->type, def, def->tname);
704 fprintf(header, " (STDMETHODCALLTYPE *");
705 write_name(header, def);
706 fprintf(header, ")(\n");
707 write_args(header, cur->args, name, 1, TRUE);
708 fprintf(header, ");\n");
709 fprintf(header, "\n");
710 }
711 cur = PREV_LINK(cur);
712 }
713 }
714
715 static void write_c_method_def(const type_t *iface)
716 {
717 do_write_c_method_def(iface, iface->name);
718 }
719
720 static void write_c_disp_method_def(const type_t *iface)
721 {
722 do_write_c_method_def(iface->ref, iface->name);
723 }
724
725 static void write_method_proto(const type_t *iface)
726 {
727 const func_t *cur = iface->funcs;
728
729 if (!cur) return;
730 while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
731 while (cur) {
732 const var_t *def = cur->def;
733 const var_t *cas = is_callas(def->attrs);
734 const var_t *args;
735 if (!is_local(def->attrs)) {
736 /* proxy prototype */
737 write_type(header, def->type, def, def->tname);
738 fprintf(header, " CALLBACK %s_", iface->name);
739 write_name(header, def);
740 fprintf(header, "_Proxy(\n");
741 write_args(header, cur->args, iface->name, 1, TRUE);
742 fprintf(header, ");\n");
743 /* stub prototype */
744 fprintf(header, "void __RPC_STUB %s_", iface->name);
745 write_name(header,def);
746 fprintf(header, "_Stub(\n");
747 fprintf(header, " IRpcStubBuffer* This,\n");
748 fprintf(header, " IRpcChannelBuffer* pRpcChannelBuffer,\n");
749 fprintf(header, " PRPC_MESSAGE pRpcMessage,\n");
750 fprintf(header, " DWORD* pdwStubPhase);\n");
751
752 args = cur->args;
753 if (args) {
754 while (NEXT_LINK(args))
755 args = NEXT_LINK(args);
756 }
757 check_for_user_types(args);
758 }
759 if (cas) {
760 const func_t *m = iface->funcs;
761 while (m && strcmp(get_name(m->def), cas->name))
762 m = NEXT_LINK(m);
763 if (m) {
764 const var_t *mdef = m->def;
765 /* proxy prototype - use local prototype */
766 write_type(header, mdef->type, mdef, mdef->tname);
767 fprintf(header, " CALLBACK %s_", iface->name);
768 write_name(header, mdef);
769 fprintf(header, "_Proxy(\n");
770 write_args(header, m->args, iface->name, 1, TRUE);
771 fprintf(header, ");\n");
772 /* stub prototype - use remotable prototype */
773 write_type(header, def->type, def, def->tname);
774 fprintf(header, " __RPC_STUB %s_", iface->name);
775 write_name(header, mdef);
776 fprintf(header, "_Stub(\n");
777 write_args(header, cur->args, iface->name, 1, TRUE);
778 fprintf(header, ");\n");
779 }
780 else {
781 yywarning("invalid call_as attribute (%s -> %s)\n", get_name(def), cas->name);
782 }
783 }
784
785 cur = PREV_LINK(cur);
786 }
787 }
788
789 static void write_function_proto(const type_t *iface)
790 {
791 const char *implicit_handle = get_attrp(iface->attrs, ATTR_IMPLICIT_HANDLE);
792 int explicit_handle = is_attr(iface->attrs, ATTR_EXPLICIT_HANDLE);
793 const var_t* explicit_handle_var;
794
795 func_t *cur = iface->funcs;
796 while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
797 while (cur) {
798 var_t *def = cur->def;
799
800 /* check for a defined binding handle */
801 explicit_handle_var = get_explicit_handle_var(cur);
802 if (explicit_handle) {
803 if (!explicit_handle_var) {
804 error("%s() does not define an explicit binding handle!\n", def->name);
805 return;
806 }
807 } else if (implicit_handle) {
808 if (explicit_handle_var) {
809 error("%s() must not define a binding handle!\n", def->name);
810 return;
811 }
812 }
813
814 /* FIXME: do we need to handle call_as? */
815 write_type(header, def->type, def, def->tname);
816 fprintf(header, " ");
817 write_name(header, def);
818 fprintf(header, "(\n");
819 if (cur->args)
820 write_args(header, cur->args, iface->name, 0, TRUE);
821 else
822 fprintf(header, " void");
823 fprintf(header, ");\n");
824
825 cur = PREV_LINK(cur);
826 }
827 }
828
829 void write_forward(type_t *iface)
830 {
831 /* C/C++ forwards should only be written for object interfaces, so if we
832 * have a full definition we only write one if we find [object] among the
833 * attributes - however, if we don't have a full definition at this point
834 * (i.e. this is an IDL forward), then we also assume that it is an object
835 * interface, since non-object interfaces shouldn't need forwards */
836 if ((!iface->defined || is_object(iface->attrs) || is_attr(iface->attrs, ATTR_DISPINTERFACE))
837 && !iface->written) {
838 fprintf(header, "#ifndef __%s_FWD_DEFINED__\n", iface->name);
839 fprintf(header, "#define __%s_FWD_DEFINED__\n", iface->name);
840 fprintf(header, "typedef interface %s %s;\n", iface->name, iface->name);
841 fprintf(header, "#endif\n\n" );
842 iface->written = TRUE;
843 }
844 }
845
846 static void write_iface_guid(const type_t *iface)
847 {
848 const UUID *uuid = get_attrp(iface->attrs, ATTR_UUID);
849 write_guid("IID", iface->name, uuid);
850 }
851
852 static void write_dispiface_guid(const type_t *iface)
853 {
854 const UUID *uuid = get_attrp(iface->attrs, ATTR_UUID);
855 write_guid("DIID", iface->name, uuid);
856 }
857
858 static void write_coclass_guid(type_t *cocl)
859 {
860 const UUID *uuid = get_attrp(cocl->attrs, ATTR_UUID);
861 write_guid("CLSID", cocl->name, uuid);
862 }
863
864 static void write_com_interface(type_t *iface)
865 {
866 if (!iface->funcs && !iface->ref) {
867 yywarning("%s has no methods", iface->name);
868 return;
869 }
870
871 fprintf(header, "/*****************************************************************************\n");
872 fprintf(header, " * %s interface\n", iface->name);
873 fprintf(header, " */\n");
874 fprintf(header,"#ifndef __%s_INTERFACE_DEFINED__\n", iface->name);
875 fprintf(header,"#define __%s_INTERFACE_DEFINED__\n\n", iface->name);
876 write_iface_guid(iface);
877 write_forward(iface);
878 /* C++ interface */
879 fprintf(header, "#if defined(__cplusplus) && !defined(CINTERFACE)\n");
880 if (iface->ref)
881 {
882 fprintf(header, "interface %s : public %s\n", iface->name, iface->ref->name);
883 fprintf(header, "{\n");
884 indentation++;
885 write_cpp_method_def(iface);
886 indentation--;
887 fprintf(header, "};\n");
888 }
889 else
890 {
891 fprintf(header, "interface %s\n", iface->name);
892 fprintf(header, "{\n");
893 fprintf(header, " BEGIN_INTERFACE\n");
894 fprintf(header, "\n");
895 indentation++;
896 write_cpp_method_def(iface);
897 indentation--;
898 fprintf(header, " END_INTERFACE\n");
899 fprintf(header, "};\n");
900 }
901 fprintf(header, "#else\n");
902 /* C interface */
903 fprintf(header, "typedef struct %sVtbl {\n", iface->name);
904 indentation++;
905 fprintf(header, " BEGIN_INTERFACE\n");
906 fprintf(header, "\n");
907 write_c_method_def(iface);
908 indentation--;
909 fprintf(header, " END_INTERFACE\n");
910 fprintf(header, "} %sVtbl;\n", iface->name);
911 fprintf(header, "interface %s {\n", iface->name);
912 fprintf(header, " const %sVtbl* lpVtbl;\n", iface->name);
913 fprintf(header, "};\n");
914 fprintf(header, "\n");
915 fprintf(header, "#ifdef COBJMACROS\n");
916 write_method_macro(iface, iface->name);
917 fprintf(header, "#endif\n");
918 fprintf(header, "\n");
919 fprintf(header, "#endif\n");
920 fprintf(header, "\n");
921 write_method_proto(iface);
922 fprintf(header,"\n#endif /* __%s_INTERFACE_DEFINED__ */\n\n", iface->name);
923 }
924
925 static void write_rpc_interface(const type_t *iface)
926 {
927 unsigned long ver = get_attrv(iface->attrs, ATTR_VERSION);
928 const char *var = get_attrp(iface->attrs, ATTR_IMPLICIT_HANDLE);
929 static int allocate_written = 0;
930
931 if (!allocate_written)
932 {
933 allocate_written = 1;
934 fprintf(header, "void * __RPC_USER MIDL_user_allocate(size_t);\n");
935 fprintf(header, "void __RPC_USER MIDL_user_free(void *);\n\n");
936 }
937
938 fprintf(header, "/*****************************************************************************\n");
939 fprintf(header, " * %s interface (v%d.%d)\n", iface->name, LOWORD(ver), HIWORD(ver));
940 fprintf(header, " */\n");
941 fprintf(header,"#ifndef __%s_INTERFACE_DEFINED__\n", iface->name);
942 fprintf(header,"#define __%s_INTERFACE_DEFINED__\n\n", iface->name);
943 if (iface->funcs)
944 {
945 write_iface_guid(iface);
946 if (var) fprintf(header, "extern handle_t %s;\n", var);
947 if (old_names)
948 {
949 fprintf(header, "extern RPC_IF_HANDLE %s_ClientIfHandle;\n", iface->name);
950 fprintf(header, "extern RPC_IF_HANDLE %s_ServerIfHandle;\n", iface->name);
951 }
952 else
953 {
954 fprintf(header, "extern RPC_IF_HANDLE %s_v%d_%d_c_ifspec;\n", iface->name, LOWORD(ver), HIWORD(ver));
955 fprintf(header, "extern RPC_IF_HANDLE %s_v%d_%d_s_ifspec;\n", iface->name, LOWORD(ver), HIWORD(ver));
956 }
957 write_function_proto(iface);
958 }
959 fprintf(header,"\n#endif /* __%s_INTERFACE_DEFINED__ */\n\n", iface->name);
960
961 /* FIXME: server/client code */
962 }
963
964 void write_interface(type_t *iface)
965 {
966 if (is_object(iface->attrs))
967 write_com_interface(iface);
968 else
969 write_rpc_interface(iface);
970 }
971
972 void write_dispinterface(type_t *iface)
973 {
974 fprintf(header, "/*****************************************************************************\n");
975 fprintf(header, " * %s dispinterface\n", iface->name);
976 fprintf(header, " */\n");
977 fprintf(header,"#ifndef __%s_DISPINTERFACE_DEFINED__\n", iface->name);
978 fprintf(header,"#define __%s_DISPINTERFACE_DEFINED__\n\n", iface->name);
979 write_dispiface_guid(iface);
980 write_forward(iface);
981 /* C++ interface */
982 fprintf(header, "#if defined(__cplusplus) && !defined(CINTERFACE)\n");
983 fprintf(header, "interface %s : public %s\n", iface->name, iface->ref->name);
984 fprintf(header, "{\n");
985 fprintf(header, "};\n");
986 fprintf(header, "#else\n");
987 /* C interface */
988 fprintf(header, "typedef struct %sVtbl {\n", iface->name);
989 indentation++;
990 fprintf(header, " BEGIN_INTERFACE\n");
991 fprintf(header, "\n");
992 write_c_disp_method_def(iface);
993 indentation--;
994 fprintf(header, " END_INTERFACE\n");
995 fprintf(header, "} %sVtbl;\n", iface->name);
996 fprintf(header, "interface %s {\n", iface->name);
997 fprintf(header, " const %sVtbl* lpVtbl;\n", iface->name);
998 fprintf(header, "};\n");
999 fprintf(header, "\n");
1000 fprintf(header, "#ifdef COBJMACROS\n");
1001 write_method_macro(iface->ref, iface->name);
1002 fprintf(header, "#endif\n");
1003 fprintf(header, "\n");
1004 fprintf(header, "#endif\n");
1005 fprintf(header, "\n");
1006 fprintf(header,"#endif /* __%s_DISPINTERFACE_DEFINED__ */\n\n", iface->name);
1007 }
1008
1009 void write_coclass(type_t *cocl)
1010 {
1011 fprintf(header, "/*****************************************************************************\n");
1012 fprintf(header, " * %s coclass\n", cocl->name);
1013 fprintf(header, " */\n\n");
1014 write_coclass_guid(cocl);
1015 fprintf(header, "\n");
1016 }
1017
1018 void write_coclass_forward(type_t *cocl)
1019 {
1020 fprintf(header, "#ifndef __%s_FWD_DEFINED__\n", cocl->name);
1021 fprintf(header, "#define __%s_FWD_DEFINED__\n", cocl->name);
1022 fprintf(header, "typedef struct %s %s;\n", cocl->name, cocl->name);
1023 fprintf(header, "#endif /* defined __%s_FWD_DEFINED__ */\n\n", cocl->name );
1024 }
A free Windows-compatible Operating System