|
Link Here
|
| 351 |
{ |
351 |
{ |
| 352 |
char *fullname; |
352 |
char *fullname; |
| 353 |
fullname = orbit_cbe_get_typespec_str(tree); |
353 |
fullname = orbit_cbe_get_typespec_str(tree); |
| 354 |
fprintf(ci->fh, "#if !defined(ORBIT_DECL_%s) && !defined(_%s_defined)\n#define ORBIT_DECL_%s 1\n#define _%s_defined 1\n", fullname, fullname, fullname, fullname); |
354 |
//fprintf(ci->fh, "#if !defined(ORBIT_DECL_%s) && !defined(_%s_defined)\n#define ORBIT_DECL_%s 1\n#define _%s_defined 1\n", fullname, fullname, fullname, fullname); |
|
|
355 |
fprintf(ci->fh, "#if !defined(ORBIT_DECL_%s)", fullname); |
| 356 |
fprintf(ci->fh, " && !defined(_%s_defined)\n", fullname); |
| 357 |
fprintf(ci->fh, "#define ORBIT_DECL_%s 1\n", fullname); |
| 358 |
fprintf(ci->fh, "#define _%s_defined 1\n", fullname); |
| 355 |
|
359 |
|
| 356 |
if ( tree->declspec & IDLF_DECLSPEC_PIDL ) { |
360 |
if ( tree->declspec & IDLF_DECLSPEC_PIDL ) { |
| 357 |
/* PIDL interfaces are not normal CORBA Objects */ |
361 |
/* PIDL interfaces are not normal CORBA Objects */ |
| 358 |
fprintf(ci->fh, "typedef struct %s_type *%s;\n", fullname, fullname); |
362 |
//fprintf(ci->fh, "typedef struct %s_type *%s;\n", fullname, fullname); |
| 359 |
fprintf(ci->fh, "#ifndef TC_%s\n", fullname); |
363 |
fprintf(ci->fh, "typedef struct %s_type", fullname); |
| 360 |
fprintf(ci->fh, "# define TC_%s TC_CORBA_Object\n", fullname); |
364 |
fprintf(ci->fh, " *%s;\n", fullname); |
| 361 |
fprintf(ci->fh, "#endif\n"); |
365 |
fprintf(ci->fh, "#ifndef TC_%s\n", fullname); |
|
|
366 |
fprintf(ci->fh, "# define TC_%s TC_CORBA_Object\n", fullname); |
| 367 |
fprintf(ci->fh, "#endif\n"); |
| 362 |
} else { |
368 |
} else { |
| 363 |
fprintf(ci->fh, "#define %s__freekids CORBA_Object__freekids\n", fullname); |
369 |
fprintf(ci->fh, "#define %s__freekids CORBA_Object__freekids\n", fullname); |
| 364 |
fprintf(ci->fh, "typedef CORBA_Object %s;\n", fullname); |
370 |
fprintf(ci->fh, "typedef CORBA_Object %s;\n", fullname); |
