2002-07-16 05:20:45 +02:00
|
|
|
/*
|
|
|
|
* IDL Compiler
|
|
|
|
*
|
|
|
|
* Copyright 2002 Ove Kaaven
|
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
|
|
* License as published by the Free Software Foundation; either
|
|
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This library is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
* Lesser General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
|
|
* License along with this library; if not, write to the Free Software
|
|
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
2002-08-17 20:28:43 +02:00
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
# include <unistd.h>
|
|
|
|
#endif
|
2002-07-16 05:20:45 +02:00
|
|
|
#include <string.h>
|
|
|
|
#include <assert.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
#include <signal.h>
|
|
|
|
|
|
|
|
#include "widl.h"
|
|
|
|
#include "utils.h"
|
|
|
|
#include "parser.h"
|
|
|
|
#include "header.h"
|
|
|
|
#include "proxy.h"
|
|
|
|
|
|
|
|
static int indentation = 0;
|
|
|
|
|
|
|
|
static void indent(int delta)
|
|
|
|
{
|
|
|
|
int c;
|
|
|
|
if (delta < 0) indentation += delta;
|
|
|
|
for (c=0; c<indentation; c++) fprintf(header, " ");
|
|
|
|
if (delta > 0) indentation += delta;
|
|
|
|
}
|
|
|
|
|
2003-01-09 02:05:54 +01:00
|
|
|
int is_attr(attr_t *a, enum attr_type t)
|
|
|
|
{
|
|
|
|
while (a) {
|
|
|
|
if (a->type == t) return 1;
|
|
|
|
a = NEXT_LINK(a);
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void *get_attrp(attr_t *a, enum attr_type t)
|
|
|
|
{
|
|
|
|
while (a) {
|
|
|
|
if (a->type == t) return a->u.pval;
|
|
|
|
a = NEXT_LINK(a);
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
DWORD get_attrv(attr_t *a, enum attr_type t)
|
|
|
|
{
|
|
|
|
while (a) {
|
|
|
|
if (a->type == t) return a->u.ival;
|
|
|
|
a = NEXT_LINK(a);
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
int is_void(type_t *t, var_t *v)
|
|
|
|
{
|
|
|
|
if (v && v->ptr_level) return 0;
|
|
|
|
if (!t->type && !t->ref) return 1;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2002-11-12 03:12:35 +01:00
|
|
|
static void write_pident(FILE *h, var_t *v)
|
2002-07-16 05:20:45 +02:00
|
|
|
{
|
|
|
|
int c;
|
|
|
|
for (c=0; c<v->ptr_level; c++) {
|
2002-11-12 03:12:35 +01:00
|
|
|
fprintf(h, "*");
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
2002-11-12 03:12:35 +01:00
|
|
|
if (v->name) fprintf(h, "%s", v->name);
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
void write_name(FILE *h, var_t *v)
|
|
|
|
{
|
|
|
|
fprintf(h, "%s", v->name);
|
|
|
|
}
|
|
|
|
|
|
|
|
char* get_name(var_t *v)
|
|
|
|
{
|
|
|
|
return v->name;
|
|
|
|
}
|
|
|
|
|
2002-12-15 04:01:20 +01:00
|
|
|
static void write_array(FILE *h, expr_t *v, int field)
|
2002-11-12 03:12:35 +01:00
|
|
|
{
|
|
|
|
if (!v) return;
|
|
|
|
while (NEXT_LINK(v)) v = NEXT_LINK(v);
|
|
|
|
fprintf(h, "[");
|
|
|
|
while (v) {
|
2002-11-30 02:49:46 +01:00
|
|
|
if (v->is_const)
|
|
|
|
fprintf(h, "%ld", v->cval); /* statically sized array */
|
2002-11-12 03:12:35 +01:00
|
|
|
else
|
2002-12-15 04:01:20 +01:00
|
|
|
if (field) fprintf(h, "1"); /* dynamically sized array */
|
2002-11-12 03:12:35 +01:00
|
|
|
if (PREV_LINK(v))
|
|
|
|
fprintf(h, ", ");
|
|
|
|
v = PREV_LINK(v);
|
|
|
|
}
|
|
|
|
fprintf(h, "]");
|
|
|
|
}
|
|
|
|
|
|
|
|
static void write_field(FILE *h, var_t *v)
|
|
|
|
{
|
|
|
|
if (!v) return;
|
|
|
|
if (v->type) {
|
|
|
|
indent(0);
|
|
|
|
write_type(h, v->type, NULL, v->tname);
|
|
|
|
if (get_name(v)) {
|
|
|
|
fprintf(h, " ");
|
|
|
|
write_pident(h, v);
|
|
|
|
}
|
2002-11-30 02:49:46 +01:00
|
|
|
else {
|
|
|
|
/* not all C/C++ compilers support anonymous structs and unions */
|
|
|
|
switch (v->type->type) {
|
|
|
|
case RPC_FC_STRUCT:
|
|
|
|
case RPC_FC_ENCAPSULATED_UNION:
|
|
|
|
fprintf(h, " DUMMYSTRUCTNAME");
|
|
|
|
break;
|
|
|
|
case RPC_FC_NON_ENCAPSULATED_UNION:
|
|
|
|
fprintf(h, " DUMMYUNIONNAME");
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
/* ? */
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2002-12-15 04:01:20 +01:00
|
|
|
write_array(h, v->array, 1);
|
2002-11-12 03:12:35 +01:00
|
|
|
fprintf(h, ";\n");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
static void write_fields(FILE *h, var_t *v)
|
2002-11-12 03:12:35 +01:00
|
|
|
{
|
|
|
|
var_t *first = v;
|
|
|
|
if (!v) return;
|
|
|
|
while (NEXT_LINK(v)) v = NEXT_LINK(v);
|
|
|
|
while (v) {
|
|
|
|
write_field(h, v);
|
|
|
|
if (v == first) break;
|
|
|
|
v = PREV_LINK(v);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void write_enums(FILE *h, var_t *v)
|
2002-07-16 05:20:45 +02:00
|
|
|
{
|
|
|
|
if (!v) return;
|
|
|
|
while (NEXT_LINK(v)) v = NEXT_LINK(v);
|
|
|
|
while (v) {
|
2002-11-12 03:12:35 +01:00
|
|
|
if (get_name(v)) {
|
2002-07-16 05:20:45 +02:00
|
|
|
indent(0);
|
2002-11-12 03:12:35 +01:00
|
|
|
write_name(h, v);
|
2002-11-30 02:49:46 +01:00
|
|
|
if (v->eval) {
|
|
|
|
fprintf(h, " = ");
|
|
|
|
write_expr(h, v->eval);
|
|
|
|
}
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
2002-11-12 03:12:35 +01:00
|
|
|
if (PREV_LINK(v))
|
|
|
|
fprintf(h, ",\n");
|
2002-07-16 05:20:45 +02:00
|
|
|
v = PREV_LINK(v);
|
|
|
|
}
|
2002-11-12 03:12:35 +01:00
|
|
|
fprintf(h, "\n");
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
void write_type(FILE *h, type_t *t, var_t *v, char *n)
|
|
|
|
{
|
|
|
|
int c;
|
|
|
|
|
|
|
|
if (n) fprintf(h, "%s", n);
|
|
|
|
else {
|
|
|
|
if (t->is_const) fprintf(h, "const ");
|
|
|
|
if (t->type) {
|
2002-11-12 03:12:35 +01:00
|
|
|
if (t->sign > 0) fprintf(h, "signed ");
|
|
|
|
else if (t->sign < 0) fprintf(h, "unsigned ");
|
2002-07-16 05:20:45 +02:00
|
|
|
switch (t->type) {
|
|
|
|
case RPC_FC_BYTE:
|
2002-11-12 03:12:35 +01:00
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
|
|
|
else fprintf(h, "byte");
|
2002-07-16 05:20:45 +02:00
|
|
|
break;
|
|
|
|
case RPC_FC_CHAR:
|
2002-11-12 03:12:35 +01:00
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
|
|
|
else fprintf(h, "char");
|
|
|
|
break;
|
|
|
|
case RPC_FC_WCHAR:
|
|
|
|
fprintf(h, "wchar_t");
|
2002-07-16 05:20:45 +02:00
|
|
|
break;
|
|
|
|
case RPC_FC_USHORT:
|
|
|
|
case RPC_FC_SHORT:
|
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
2002-11-12 03:12:35 +01:00
|
|
|
else fprintf(h, "short");
|
2002-07-16 05:20:45 +02:00
|
|
|
break;
|
|
|
|
case RPC_FC_ULONG:
|
|
|
|
case RPC_FC_LONG:
|
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
|
|
|
else fprintf(h, "long");
|
|
|
|
break;
|
2002-11-12 03:12:35 +01:00
|
|
|
case RPC_FC_HYPER:
|
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
2002-12-03 20:12:07 +01:00
|
|
|
else fprintf(h, "hyper");
|
2002-11-12 03:12:35 +01:00
|
|
|
break;
|
|
|
|
case RPC_FC_FLOAT:
|
|
|
|
fprintf(h, "float");
|
|
|
|
break;
|
|
|
|
case RPC_FC_DOUBLE:
|
|
|
|
fprintf(h, "double");
|
|
|
|
break;
|
|
|
|
case RPC_FC_ENUM16:
|
|
|
|
case RPC_FC_ENUM32:
|
|
|
|
if (t->defined && !t->written) {
|
|
|
|
if (t->name) fprintf(h, "enum %s {\n", t->name);
|
|
|
|
else fprintf(h, "enum {\n");
|
2002-11-30 02:49:46 +01:00
|
|
|
t->written = TRUE;
|
2002-11-12 03:12:35 +01:00
|
|
|
indentation++;
|
|
|
|
write_enums(h, t->fields);
|
|
|
|
indent(-1);
|
|
|
|
fprintf(h, "}");
|
|
|
|
}
|
|
|
|
else fprintf(h, "enum %s", t->name);
|
|
|
|
break;
|
2002-12-03 20:12:07 +01:00
|
|
|
case RPC_FC_ERROR_STATUS_T:
|
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
|
|
|
else fprintf(h, "error_status_t");
|
|
|
|
break;
|
|
|
|
case RPC_FC_BIND_PRIMITIVE:
|
|
|
|
if (t->ref) fprintf(h, t->ref->name);
|
|
|
|
else fprintf(h, "handle_t");
|
|
|
|
break;
|
2002-07-16 05:20:45 +02:00
|
|
|
case RPC_FC_STRUCT:
|
2002-11-12 03:12:35 +01:00
|
|
|
case RPC_FC_ENCAPSULATED_UNION:
|
|
|
|
if (t->defined && !t->written) {
|
|
|
|
if (t->name) fprintf(h, "struct %s {\n", t->name);
|
|
|
|
else fprintf(h, "struct {\n");
|
2002-11-30 02:49:46 +01:00
|
|
|
t->written = TRUE;
|
2002-11-12 03:12:35 +01:00
|
|
|
indentation++;
|
2002-11-30 02:49:46 +01:00
|
|
|
write_fields(h, t->fields);
|
2002-11-12 03:12:35 +01:00
|
|
|
indent(-1);
|
|
|
|
fprintf(h, "}");
|
|
|
|
}
|
|
|
|
else fprintf(h, "struct %s", t->name);
|
|
|
|
break;
|
2002-07-16 05:20:45 +02:00
|
|
|
case RPC_FC_NON_ENCAPSULATED_UNION:
|
|
|
|
if (t->defined && !t->written) {
|
|
|
|
if (t->name) fprintf(h, "union %s {\n", t->name);
|
|
|
|
else fprintf(h, "union {\n");
|
2002-11-30 02:49:46 +01:00
|
|
|
t->written = TRUE;
|
2002-07-16 05:20:45 +02:00
|
|
|
indentation++;
|
|
|
|
write_fields(h, t->fields);
|
|
|
|
indent(-1);
|
|
|
|
fprintf(h, "}");
|
|
|
|
}
|
|
|
|
else fprintf(h, "union %s", t->name);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
fprintf(h, "(unknown-type:%d)", t->type);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if (t->ref) {
|
|
|
|
write_type(h, t->ref, NULL, t->name);
|
|
|
|
}
|
|
|
|
else fprintf(h, "void");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (v) {
|
|
|
|
for (c=0; c<v->ptr_level; c++) {
|
|
|
|
fprintf(h, "*");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void write_typedef(type_t *type, var_t *names)
|
|
|
|
{
|
|
|
|
char *tname = names->tname;
|
2003-01-09 02:05:54 +01:00
|
|
|
var_t *lname;
|
2002-07-16 05:20:45 +02:00
|
|
|
while (NEXT_LINK(names)) names = NEXT_LINK(names);
|
2003-01-09 02:05:54 +01:00
|
|
|
lname = names;
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, "typedef ");
|
|
|
|
write_type(header, type, NULL, tname);
|
|
|
|
fprintf(header, " ");
|
|
|
|
while (names) {
|
2002-11-12 03:12:35 +01:00
|
|
|
write_pident(header, names);
|
2002-07-16 05:20:45 +02:00
|
|
|
if (PREV_LINK(names))
|
|
|
|
fprintf(header, ", ");
|
|
|
|
names = PREV_LINK(names);
|
|
|
|
}
|
2003-01-09 02:05:54 +01:00
|
|
|
fprintf(header, ";\n");
|
|
|
|
|
|
|
|
if (get_attrp(type->attrs, ATTR_WIREMARSHAL)) {
|
|
|
|
names = lname;
|
|
|
|
while (names) {
|
|
|
|
char *name = get_name(names);
|
|
|
|
fprintf(header, "unsigned long __RPC_USER %s_UserSize (unsigned long *, unsigned long, %s *);\n", name, name);
|
|
|
|
fprintf(header, "unsigned char * __RPC_USER %s_UserMarshal (unsigned long *, unsigned char *, %s *);\n", name, name);
|
|
|
|
fprintf(header, "unsigned char * __RPC_USER %s_UserUnmarshal(unsigned long *, unsigned char *, %s *);\n", name, name);
|
|
|
|
fprintf(header, "void __RPC_USER %s_UserFree (unsigned long *, %s *);\n", name, name);
|
|
|
|
if (PREV_LINK(names))
|
|
|
|
fprintf(header, ", ");
|
|
|
|
names = PREV_LINK(names);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
fprintf(header, "\n");
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
|
|
|
|
2002-11-30 02:49:46 +01:00
|
|
|
static void do_write_expr(FILE *h, expr_t *e, int p)
|
|
|
|
{
|
|
|
|
switch (e->type) {
|
|
|
|
case EXPR_VOID:
|
|
|
|
break;
|
|
|
|
case EXPR_NUM:
|
|
|
|
fprintf(h, "%ld", e->u.lval);
|
|
|
|
break;
|
|
|
|
case EXPR_HEXNUM:
|
|
|
|
fprintf(h, "0x%lx", e->u.lval);
|
|
|
|
break;
|
|
|
|
case EXPR_IDENTIFIER:
|
|
|
|
fprintf(h, "%s", e->u.sval);
|
|
|
|
break;
|
|
|
|
case EXPR_NEG:
|
|
|
|
fprintf(h, "-");
|
|
|
|
do_write_expr(h, e->ref, 1);
|
|
|
|
break;
|
2002-12-03 20:12:07 +01:00
|
|
|
case EXPR_NOT:
|
|
|
|
fprintf(h, "~");
|
|
|
|
do_write_expr(h, e->ref, 1);
|
|
|
|
break;
|
2002-11-30 02:49:46 +01:00
|
|
|
case EXPR_PPTR:
|
|
|
|
fprintf(h, "*");
|
|
|
|
do_write_expr(h, e->ref, 1);
|
|
|
|
break;
|
|
|
|
case EXPR_CAST:
|
|
|
|
fprintf(h, "(");
|
|
|
|
write_type(h, e->u.tref->ref, NULL, e->u.tref->name);
|
|
|
|
fprintf(h, ")");
|
|
|
|
do_write_expr(h, e->ref, 1);
|
|
|
|
break;
|
|
|
|
case EXPR_SIZEOF:
|
|
|
|
fprintf(h, "sizeof(");
|
|
|
|
write_type(h, e->u.tref->ref, NULL, e->u.tref->name);
|
|
|
|
fprintf(h, ")");
|
|
|
|
break;
|
|
|
|
case EXPR_SHL:
|
|
|
|
case EXPR_SHR:
|
|
|
|
case EXPR_MUL:
|
|
|
|
case EXPR_DIV:
|
|
|
|
case EXPR_ADD:
|
|
|
|
case EXPR_SUB:
|
|
|
|
case EXPR_AND:
|
|
|
|
case EXPR_OR:
|
|
|
|
if (p) fprintf(h, "(");
|
|
|
|
do_write_expr(h, e->ref, 1);
|
|
|
|
switch (e->type) {
|
|
|
|
case EXPR_SHL: fprintf(h, " << "); break;
|
|
|
|
case EXPR_SHR: fprintf(h, " >> "); break;
|
|
|
|
case EXPR_MUL: fprintf(h, " * "); break;
|
|
|
|
case EXPR_DIV: fprintf(h, " / "); break;
|
|
|
|
case EXPR_ADD: fprintf(h, " + "); break;
|
|
|
|
case EXPR_SUB: fprintf(h, " - "); break;
|
|
|
|
case EXPR_AND: fprintf(h, " & "); break;
|
|
|
|
case EXPR_OR: fprintf(h, " | "); break;
|
|
|
|
default: break;
|
|
|
|
}
|
|
|
|
do_write_expr(h, e->u.ext, 1);
|
|
|
|
if (p) fprintf(h, ")");
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void write_expr(FILE *h, expr_t *e)
|
|
|
|
{
|
|
|
|
do_write_expr(h, e, 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
void write_constdef(var_t *v)
|
|
|
|
{
|
|
|
|
fprintf(header, "#define %s (", get_name(v));
|
|
|
|
write_expr(header, v->eval);
|
|
|
|
fprintf(header, ")\n\n");
|
|
|
|
}
|
|
|
|
|
|
|
|
void write_externdef(var_t *v)
|
|
|
|
{
|
|
|
|
fprintf(header, "extern const ");
|
|
|
|
write_type(header, v->type, NULL, v->tname);
|
|
|
|
if (get_name(v)) {
|
|
|
|
fprintf(header, " ");
|
|
|
|
write_pident(header, v);
|
|
|
|
}
|
|
|
|
fprintf(header, ";\n\n");
|
|
|
|
}
|
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
/********** INTERFACES **********/
|
|
|
|
|
2002-12-03 20:12:07 +01:00
|
|
|
int is_object(attr_t *a)
|
|
|
|
{
|
|
|
|
return is_attr(a, ATTR_OBJECT);
|
|
|
|
}
|
|
|
|
|
|
|
|
int is_local(attr_t *a)
|
|
|
|
{
|
|
|
|
return is_attr(a, ATTR_LOCAL);
|
|
|
|
}
|
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
var_t *is_callas(attr_t *a)
|
|
|
|
{
|
2002-12-03 20:12:07 +01:00
|
|
|
return get_attrp(a, ATTR_CALLAS);
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
|
|
|
|
2002-12-15 04:01:20 +01:00
|
|
|
static void write_icom_method_def(type_t *iface)
|
2002-07-16 05:20:45 +02:00
|
|
|
{
|
|
|
|
func_t *cur = iface->funcs;
|
2003-04-10 02:19:24 +02:00
|
|
|
if (iface->ref) write_icom_method_def( iface->ref );
|
2002-07-16 05:20:45 +02:00
|
|
|
while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
|
2003-04-10 02:19:24 +02:00
|
|
|
if (cur) fprintf( header, " \\\n /*** %s methods ***/", iface->name );
|
2002-07-16 05:20:45 +02:00
|
|
|
while (cur) {
|
|
|
|
var_t *def = cur->def;
|
|
|
|
if (!is_callas(def->attrs)) {
|
|
|
|
var_t *arg = cur->args;
|
2003-04-10 02:19:24 +02:00
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
if (arg) {
|
|
|
|
while (NEXT_LINK(arg)) {
|
|
|
|
arg = NEXT_LINK(arg);
|
|
|
|
}
|
|
|
|
}
|
2003-04-11 02:31:02 +02:00
|
|
|
fprintf(header, " \\\n STDMETHOD_(");
|
2003-04-10 02:19:24 +02:00
|
|
|
write_type(header, def->type, def, def->tname);
|
2003-04-11 02:31:02 +02:00
|
|
|
fprintf(header, ",");
|
2002-07-16 05:20:45 +02:00
|
|
|
write_name(header, def);
|
2003-04-11 02:31:02 +02:00
|
|
|
fprintf(header, ")(%s", arg ? "THIS_ " : "THIS" );
|
2002-07-16 05:20:45 +02:00
|
|
|
while (arg) {
|
|
|
|
write_type(header, arg->type, arg, arg->tname);
|
2003-04-10 02:19:24 +02:00
|
|
|
fprintf(header, " ");
|
2002-07-16 05:20:45 +02:00
|
|
|
write_name(header,arg);
|
2003-04-10 02:19:24 +02:00
|
|
|
write_array(header, arg->array, 0);
|
2002-07-16 05:20:45 +02:00
|
|
|
arg = PREV_LINK(arg);
|
2003-04-11 02:31:02 +02:00
|
|
|
if (arg) fprintf(header, ", ");
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
2003-04-11 02:31:02 +02:00
|
|
|
fprintf(header, ") PURE;");
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
|
|
|
cur = PREV_LINK(cur);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static int write_method_macro(type_t *iface, char *name)
|
|
|
|
{
|
|
|
|
int idx;
|
|
|
|
func_t *cur = iface->funcs;
|
|
|
|
while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
|
|
|
|
|
|
|
|
if (iface->ref) idx = write_method_macro(iface->ref, name);
|
|
|
|
else idx = 0;
|
|
|
|
fprintf(header, "/*** %s methods ***/\n", iface->name);
|
|
|
|
while (cur) {
|
|
|
|
var_t *def = cur->def;
|
|
|
|
if (!is_callas(def->attrs)) {
|
|
|
|
var_t *arg = cur->args;
|
|
|
|
int argc = 0;
|
|
|
|
int c;
|
|
|
|
while (arg) {
|
|
|
|
arg = NEXT_LINK(arg);
|
|
|
|
argc++;
|
|
|
|
}
|
|
|
|
|
|
|
|
fprintf(header, "#define %s_", name);
|
|
|
|
write_name(header,def);
|
|
|
|
fprintf(header, "(p");
|
|
|
|
for (c=0; c<argc; c++)
|
|
|
|
fprintf(header, ",%c", c+'a');
|
|
|
|
fprintf(header, ") ");
|
|
|
|
|
2003-04-10 23:13:58 +02:00
|
|
|
fprintf(header, "(p)->lpVtbl->");
|
|
|
|
write_name(header, def);
|
|
|
|
fprintf(header, "(p");
|
2002-07-16 05:20:45 +02:00
|
|
|
for (c=0; c<argc; c++)
|
|
|
|
fprintf(header, ",%c", c+'a');
|
|
|
|
fprintf(header, ")\n");
|
|
|
|
if (cur->idx == -1) cur->idx = idx;
|
|
|
|
else if (cur->idx != idx) yyerror("BUG: method index mismatch in write_method_macro");
|
|
|
|
idx++;
|
|
|
|
}
|
|
|
|
cur = PREV_LINK(cur);
|
|
|
|
}
|
|
|
|
return idx;
|
|
|
|
}
|
|
|
|
|
2002-12-03 20:12:07 +01:00
|
|
|
void write_args(FILE *h, var_t *arg, char *name, int method)
|
2002-07-16 05:20:45 +02:00
|
|
|
{
|
2002-12-03 20:12:07 +01:00
|
|
|
int count = 0;
|
2002-07-16 05:20:45 +02:00
|
|
|
if (arg) {
|
|
|
|
while (NEXT_LINK(arg))
|
|
|
|
arg = NEXT_LINK(arg);
|
|
|
|
}
|
2002-12-15 04:01:20 +01:00
|
|
|
if (h == header) {
|
|
|
|
indentation++;
|
|
|
|
indent(0);
|
|
|
|
} else fprintf(h, " ");
|
|
|
|
if (method == 1) {
|
|
|
|
fprintf(h, "%s* This", name);
|
2002-12-03 20:12:07 +01:00
|
|
|
count++;
|
|
|
|
}
|
2002-07-16 05:20:45 +02:00
|
|
|
while (arg) {
|
2002-12-15 04:01:20 +01:00
|
|
|
if (count) {
|
|
|
|
fprintf(h, ",\n");
|
|
|
|
if (h == header) indent(0);
|
|
|
|
else fprintf(h, " ");
|
|
|
|
}
|
2002-07-16 05:20:45 +02:00
|
|
|
write_type(h, arg->type, arg, arg->tname);
|
|
|
|
fprintf(h, " ");
|
2002-12-15 04:01:20 +01:00
|
|
|
write_name(h, arg);
|
2003-04-10 02:19:24 +02:00
|
|
|
write_array(h, arg->array, 0);
|
2002-07-16 05:20:45 +02:00
|
|
|
arg = PREV_LINK(arg);
|
2002-12-03 20:12:07 +01:00
|
|
|
count++;
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
2002-12-15 04:01:20 +01:00
|
|
|
if (h == header) indentation--;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void write_cpp_method_def(type_t *iface)
|
|
|
|
{
|
|
|
|
func_t *cur = iface->funcs;
|
|
|
|
while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
|
|
|
|
while (cur) {
|
|
|
|
var_t *def = cur->def;
|
|
|
|
if (!is_callas(def->attrs)) {
|
|
|
|
indent(0);
|
|
|
|
fprintf(header, "virtual ");
|
|
|
|
write_type(header, def->type, def, def->tname);
|
2003-04-10 02:19:24 +02:00
|
|
|
fprintf(header, " STDMETHODCALLTYPE ");
|
2002-12-15 04:01:20 +01:00
|
|
|
write_name(header, def);
|
|
|
|
fprintf(header, "(\n");
|
|
|
|
write_args(header, cur->args, iface->name, 2);
|
|
|
|
fprintf(header, ") = 0;\n");
|
|
|
|
fprintf(header, "\n");
|
|
|
|
}
|
|
|
|
cur = PREV_LINK(cur);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2003-01-09 02:05:54 +01:00
|
|
|
static void do_write_c_method_def(type_t *iface, char *name)
|
2002-12-15 04:01:20 +01:00
|
|
|
{
|
|
|
|
func_t *cur = iface->funcs;
|
|
|
|
while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
|
|
|
|
|
2003-01-09 02:05:54 +01:00
|
|
|
if (iface->ref) do_write_c_method_def(iface->ref, name);
|
2002-12-15 04:01:20 +01:00
|
|
|
indent(0);
|
|
|
|
fprintf(header, "/*** %s methods ***/\n", iface->name);
|
|
|
|
while (cur) {
|
|
|
|
var_t *def = cur->def;
|
|
|
|
if (!is_callas(def->attrs)) {
|
|
|
|
indent(0);
|
|
|
|
write_type(header, def->type, def, def->tname);
|
2003-04-10 02:19:24 +02:00
|
|
|
fprintf(header, " (STDMETHODCALLTYPE *");
|
2002-12-15 04:01:20 +01:00
|
|
|
write_name(header, def);
|
|
|
|
fprintf(header, ")(\n");
|
2002-12-17 22:05:16 +01:00
|
|
|
write_args(header, cur->args, name, 1);
|
2002-12-15 04:01:20 +01:00
|
|
|
fprintf(header, ");\n");
|
|
|
|
fprintf(header, "\n");
|
|
|
|
}
|
|
|
|
cur = PREV_LINK(cur);
|
|
|
|
}
|
2002-07-16 05:20:45 +02:00
|
|
|
}
|
|
|
|
|
2003-01-09 02:05:54 +01:00
|
|
|
static void write_c_method_def(type_t *iface)
|
|
|
|
{
|
|
|
|
do_write_c_method_def(iface, iface->name);
|
|
|
|
}
|
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
static void write_method_proto(type_t *iface)
|
|
|
|
{
|
|
|
|
func_t *cur = iface->funcs;
|
|
|
|
while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
|
|
|
|
while (cur) {
|
|
|
|
var_t *def = cur->def;
|
|
|
|
var_t *cas = is_callas(def->attrs);
|
|
|
|
if (!is_local(def->attrs)) {
|
|
|
|
/* proxy prototype */
|
|
|
|
write_type(header, def->type, def, def->tname);
|
|
|
|
fprintf(header, " CALLBACK %s_", iface->name);
|
2002-12-03 20:12:07 +01:00
|
|
|
write_name(header, def);
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, "_Proxy(\n");
|
2002-12-03 20:12:07 +01:00
|
|
|
write_args(header, cur->args, iface->name, 1);
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, ");\n");
|
|
|
|
/* stub prototype */
|
|
|
|
fprintf(header, "void __RPC_STUB %s_", iface->name);
|
|
|
|
write_name(header,def);
|
|
|
|
fprintf(header, "_Stub(\n");
|
2002-11-21 01:02:38 +01:00
|
|
|
fprintf(header, " struct IRpcStubBuffer* This,\n");
|
|
|
|
fprintf(header, " struct IRpcChannelBuffer* pRpcChannelBuffer,\n");
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, " PRPC_MESSAGE pRpcMessage,\n");
|
|
|
|
fprintf(header, " DWORD* pdwStubPhase);\n");
|
|
|
|
}
|
|
|
|
if (cas) {
|
|
|
|
func_t *m = iface->funcs;
|
|
|
|
while (m && strcmp(get_name(m->def), cas->name))
|
|
|
|
m = NEXT_LINK(m);
|
|
|
|
if (m) {
|
|
|
|
var_t *mdef = m->def;
|
|
|
|
/* proxy prototype - use local prototype */
|
|
|
|
write_type(header, mdef->type, mdef, mdef->tname);
|
|
|
|
fprintf(header, " CALLBACK %s_", iface->name);
|
|
|
|
write_name(header, mdef);
|
|
|
|
fprintf(header, "_Proxy(\n");
|
2002-12-03 20:12:07 +01:00
|
|
|
write_args(header, m->args, iface->name, 1);
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, ");\n");
|
|
|
|
/* stub prototype - use remotable prototype */
|
|
|
|
write_type(header, def->type, def, def->tname);
|
|
|
|
fprintf(header, " __RPC_STUB %s_", iface->name);
|
|
|
|
write_name(header, mdef);
|
|
|
|
fprintf(header, "_Stub(\n");
|
2002-12-03 20:12:07 +01:00
|
|
|
write_args(header, cur->args, iface->name, 1);
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, ");\n");
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
yywarning("invalid call_as attribute (%s -> %s)\n", get_name(def), cas->name);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
cur = PREV_LINK(cur);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-12-03 20:12:07 +01:00
|
|
|
static void write_function_proto(type_t *iface)
|
|
|
|
{
|
|
|
|
func_t *cur = iface->funcs;
|
|
|
|
while (NEXT_LINK(cur)) cur = NEXT_LINK(cur);
|
|
|
|
while (cur) {
|
|
|
|
var_t *def = cur->def;
|
|
|
|
/* FIXME: do we need to handle call_as? */
|
|
|
|
write_type(header, def->type, def, def->tname);
|
|
|
|
fprintf(header, " ");
|
|
|
|
write_name(header, def);
|
|
|
|
fprintf(header, "(\n");
|
|
|
|
write_args(header, cur->args, iface->name, 0);
|
|
|
|
fprintf(header, ");\n");
|
|
|
|
|
|
|
|
cur = PREV_LINK(cur);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-07-16 05:20:45 +02:00
|
|
|
void write_forward(type_t *iface)
|
|
|
|
{
|
2002-11-21 01:02:38 +01:00
|
|
|
/* C/C++ forwards should only be written for object interfaces, so if we
|
|
|
|
* have a full definition we only write one if we find [object] among the
|
|
|
|
* attributes - however, if we don't have a full definition at this point
|
|
|
|
* (i.e. this is an IDL forward), then we also assume that it is an object
|
|
|
|
* interface, since non-object interfaces shouldn't need forwards */
|
|
|
|
if ((!iface->defined || is_object(iface->attrs)) && !iface->written) {
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, "typedef struct %s %s;\n", iface->name, iface->name);
|
|
|
|
iface->written = TRUE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-11-12 03:12:35 +01:00
|
|
|
void write_guid(type_t *iface)
|
|
|
|
{
|
2002-12-15 02:13:18 +01:00
|
|
|
UUID *uuid = get_attrp(iface->attrs, ATTR_UUID);
|
2002-11-12 03:12:35 +01:00
|
|
|
if (!uuid) return;
|
|
|
|
fprintf(header, "DEFINE_GUID(IID_%s, 0x%08lx, 0x%04x, 0x%04x, 0x%02x,0x%02x, 0x%02x,0x%02x,0x%02x,0x%02x,0x%02x,0x%02x);\n",
|
|
|
|
iface->name, uuid->Data1, uuid->Data2, uuid->Data3, uuid->Data4[0], uuid->Data4[1],
|
|
|
|
uuid->Data4[2], uuid->Data4[3], uuid->Data4[4], uuid->Data4[5], uuid->Data4[6], uuid->Data4[7]);
|
|
|
|
}
|
|
|
|
|
2002-12-03 20:12:07 +01:00
|
|
|
void write_com_interface(type_t *iface)
|
2002-07-16 05:20:45 +02:00
|
|
|
{
|
|
|
|
if (!iface->funcs) {
|
|
|
|
yywarning("%s has no methods", iface->name);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
fprintf(header, "/*****************************************************************************\n");
|
|
|
|
fprintf(header, " * %s interface\n", iface->name);
|
|
|
|
fprintf(header, " */\n");
|
2002-11-12 03:12:35 +01:00
|
|
|
write_guid(iface);
|
2002-07-16 05:20:45 +02:00
|
|
|
write_forward(iface);
|
2003-04-10 02:19:24 +02:00
|
|
|
/* C++ interface */
|
|
|
|
fprintf(header, "#if defined(__cplusplus) && !defined(CINTERFACE)\n");
|
|
|
|
if (iface->ref)
|
2003-04-12 02:09:14 +02:00
|
|
|
fprintf(header, "struct %s : public %s\n", iface->name, iface->ref->name);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fprintf(header, "#ifdef ICOM_USE_COM_INTERFACE_ATTRIBUTE\n");
|
|
|
|
fprintf(header, "struct __attribute__((com_interface)) %s\n", iface->name);
|
|
|
|
fprintf(header, "#else\n");
|
|
|
|
fprintf(header, "struct %s\n", iface->name);
|
|
|
|
fprintf(header, "#endif\n");
|
|
|
|
}
|
|
|
|
fprintf(header, "{\n");
|
2003-04-10 02:19:24 +02:00
|
|
|
indentation++;
|
|
|
|
write_cpp_method_def(iface);
|
|
|
|
indentation--;
|
2003-04-12 02:09:14 +02:00
|
|
|
fprintf(header, "};\n");
|
2003-04-10 02:19:24 +02:00
|
|
|
fprintf(header, "#else\n");
|
|
|
|
/* C interface */
|
|
|
|
fprintf(header, "typedef struct %sVtbl %sVtbl;\n", iface->name, iface->name);
|
|
|
|
fprintf(header, "struct %s {\n", iface->name);
|
|
|
|
fprintf(header, " const %sVtbl* lpVtbl;\n", iface->name);
|
|
|
|
fprintf(header, "};\n");
|
|
|
|
fprintf(header, "struct %sVtbl {\n", iface->name);
|
|
|
|
indentation++;
|
|
|
|
fprintf(header, " ICOM_MSVTABLE_COMPAT_FIELDS\n");
|
|
|
|
fprintf(header, "\n");
|
|
|
|
write_c_method_def(iface);
|
|
|
|
indentation--;
|
|
|
|
fprintf(header, "};\n");
|
|
|
|
fprintf(header, "\n");
|
|
|
|
write_method_macro(iface, iface->name);
|
|
|
|
fprintf(header, "\n");
|
|
|
|
fprintf(header, "#endif\n");
|
2002-07-16 05:20:45 +02:00
|
|
|
fprintf(header, "\n");
|
2003-04-11 02:31:02 +02:00
|
|
|
if (compat_icom) {
|
|
|
|
fprintf(header, "#define %s_METHODS \\\n", iface->name);
|
|
|
|
fprintf(header, " ICOM_MSVTABLE_COMPAT_FIELDS");
|
|
|
|
write_icom_method_def(iface);
|
|
|
|
fprintf(header, "\n\n");
|
|
|
|
}
|
2002-07-16 05:20:45 +02:00
|
|
|
write_method_proto(iface);
|
|
|
|
fprintf(header, "\n");
|
|
|
|
|
|
|
|
if (!is_local(iface->attrs))
|
|
|
|
write_proxy(iface);
|
|
|
|
}
|
2002-12-03 20:12:07 +01:00
|
|
|
|
|
|
|
void write_rpc_interface(type_t *iface)
|
|
|
|
{
|
|
|
|
DWORD ver = get_attrv(iface->attrs, ATTR_VERSION);
|
|
|
|
|
|
|
|
if (!iface->funcs) return;
|
|
|
|
|
|
|
|
fprintf(header, "/*****************************************************************************\n");
|
|
|
|
fprintf(header, " * %s interface (v%d.%d)\n", iface->name, LOWORD(ver), HIWORD(ver));
|
|
|
|
fprintf(header, " */\n");
|
|
|
|
write_guid(iface);
|
|
|
|
fprintf(header, "extern RPC_IF_HANDLE %s_v%d_%d_c_ifspec;\n", iface->name, LOWORD(ver), HIWORD(ver));
|
|
|
|
fprintf(header, "extern RPC_IF_HANDLE %s_v%d_%d_s_ifspec;\n", iface->name, LOWORD(ver), HIWORD(ver));
|
|
|
|
write_function_proto(iface);
|
|
|
|
fprintf(header, "\n");
|
|
|
|
|
|
|
|
/* FIXME: server/client code */
|
|
|
|
}
|
|
|
|
|
|
|
|
void write_interface(type_t *iface)
|
|
|
|
{
|
|
|
|
if (is_object(iface->attrs))
|
|
|
|
write_com_interface(iface);
|
|
|
|
else
|
|
|
|
write_rpc_interface(iface);
|
|
|
|
}
|