$(call to_forb_subdir, forb-internal.h) \
$(call to_forb_subdir, basic_types.h) \
$(call to_forb_subdir, cdr.h) \
+ $(call to_forb_subdir, cdr_codec.h) \
$(call to_forb_subdir, iop.h) \
$(call to_forb_subdir, uuid.h) \
$(call to_forb_subdir, syncobj.h) \
#define _ORTE_CDR_H_
#include "basic_types.h"
+#include "cdr_codec.h"
/*
* Alignment of CORBA types mapped to C.
*
* Struct @CDR_Codec is used by serialization and deserialization functions.
*/
-typedef struct CDR_Codec {
+struct CDR_Codec {
CDR_Endianness host_endian;
CDR_Endianness data_endian;
CORBA_octet *buffer;
unsigned int rptr;
CORBA_boolean readonly;
CORBA_boolean release_buffer;
-} CDR_Codec;
+};
#define HEXDIGIT(c) (isdigit((guchar)(c))?(c)-'0':tolower((guchar)(c))-'a'+10)
#define HEXOCTET(a,b) ((HEXDIGIT((a)) << 4) | HEXDIGIT((b)))
cc_output_ser_seqence(OIDL_C_Info *ci,
IDL_tree s)
{
- IDL_tree cur, curmem;
+ //IDL_tree cur, curmem;
char *id, *type;
IDL_tree tts;
gboolean fake_if;
/* fprintf (ci->fh, "#define FORB2_STUBS_API\n"); */
/* fprintf (ci->fh, "#define FORB_IDL_C_COMMON\n"); */
/* fprintf (ci->fh, "#define %s_COMMON\n", ci->c_base_name); */
- fprintf (ci->fh, "#include \"%s.h\"\n\n", ci->base_name);
+ fprintf (ci->fh, "#include \"%s.h\"\n", ci->base_name);
+ fprintf (ci->fh, "#include \"forb/cdr.h\"\n\n");
/* fprintf (ci->fh, "static const CORBA_unsigned_long Forb_zero_int = 0;\n"); */
/* FIXME: this is slightly nasty, but we need these in common,
fprintf(ci->fh, "#define FORB_IDL_SERIAL %d\n", FORB_CONFIG_SERIAL);
- if (rinfo->is_pidl) {
- /* Include only serialization stuff */
- fprintf(ci->fh, "#include <forb/cdr.h>\n"
- "#include <forb/basic_types.h>\n"
- "\n");
- } else {
- fprintf(ci->fh, "#include <forb/forb-internal.h>\n");
- fprintf(ci->fh, "#include <forb/object.h>\n\n");
+ fprintf(ci->fh, "#include <forb/cdr_codec.h>\n");
+ if (!rinfo->is_pidl) {
+ fprintf(ci->fh, "#include <forb/forb.h>\n");
}
+ fprintf(ci->fh, "#include <forb/basic_types.h>\n");
+ fprintf(ci->fh, "\n");
fprintf(ci->fh, "#ifdef __cplusplus\n");
fprintf(ci->fh, "extern \"C\" {\n");
ch_output_impl_struct(tree, rinfo, ci);
- fprintf(ci->fh, "void forb_register_%s_interface(void);\n", fullname);
+/* fprintf(ci->fh, "void forb_register_%s_interface(void);\n", fullname); */
fprintf(ci->fh, "%s forb_%s_new(void *instance_data,\n"
" const struct forb_%s_impl *impl, forb_orb orb);\n\n",
fullname, fullname, fullname);
/* fprintf (ci->fh, "#include <string.h>\n"); */
/* fprintf (ci->fh, "#define FORB2_STUBS_API\n"); */
fprintf (ci->fh, "#include \"%s.h\"\n\n", ci->base_name);
+ fprintf(ci->fh, "#include <forb/cdr.h>\n");
+ fprintf(ci->fh, "#include <forb/forb-internal.h>\n");
+ fprintf(ci->fh, "#include <forb/object.h>\n\n");
ck_output_poastuff (tree, rinfo, ci);
}
fprintf (ci->fh, "#include <forb/forb-internal.h>\n");
fprintf (ci->fh, "#include <forb/request.h>\n");
fprintf (ci->fh, "#include <forb/iop.h>\n");
+ fprintf (ci->fh, "#include <forb/cdr.h>\n");
+ fprintf (ci->fh, "#include <forb/object.h>\n\n");
fprintf (ci->fh, "#include \"%s.h\"\n\n", ci->base_name);
fprintf (ci->fh, "#define ex_on_fail(command, ex) if (!(command)) do { ev->major = (ex); goto exception; } while(0)\n");
gavl_cust_root_field_t peers;
};
+typedef void (*forb_skel_func)(CDR_Codec *cin,
+ CDR_Codec *cout,
+ struct forb_object *obj,
+ struct forb_env *env);
+
+
void
forb_server_id_init(forb_server_id *serer);
#define FORB_H
#include <forb/basic_types.h>
-#include <forb/cdr.h>
-#include <forb/types.h>
#include <fosa.h>
+#include <forb/types.h>
+
/**
* FORB exception types. Inspired by CORBA's standard system
typedef forb_object forb_orb;
-typedef void (*forb_skel_func)(CDR_Codec *cin,
- CDR_Codec *cout,
- struct forb_object *obj,
- struct forb_env *env);
-
/* Incomplete types - declared in forb-internal.h */
struct forb_interface;
typedef struct forb_interface forb_interface_t;
#include <stdio.h>
#include "interface.h"
#include <error.h>
+#include <string.h>
struct forb_i_impl i_impl = { NULL };