#ifndef __PORBIT_SERVER_H__
#define __PORBIT_SERVER_H__
#include "porbit-perl.h"
#include <orb/orbit.h>
typedef
struct
_PORBitServant PORBitServant;
typedef
struct
_PORBitInstVars PORBitInstVars;
struct
_PORBitServant {
void
*_private;
PortableServer_ServantBase__vepv *vepv;
SV *perlobj;
CORBA_InterfaceDef_FullInterfaceDescription *desc;
};
struct
_PORBitInstVars
{
U32 magic;
PortableServer_Servant servant;
};
PORBitInstVars * porbit_instvars_add (SV *perl_obj);
PORBitInstVars * porbit_instvars_get (SV *perl_obj);
void
porbit_instvars_destroy (PORBitInstVars *instvars);
SV * porbit_servant_to_sv (PortableServer_Servant servant);
PortableServer_Servant porbit_sv_to_servant (SV *perl_obj);
void
porbit_servant_ref (PortableServer_Servant servant);
void
porbit_servant_unref (PortableServer_Servant servant);
PORBitServant *porbit_servant_create (SV *perlobj,
CORBA_Environment *ev);
void
porbit_servant_destroy (PORBitServant *servant,
CORBA_Environment *ev);
gboolean porbit_servant_is_a (SV *perlobj,
const
char
*repo_id);
PortableServer_ObjectId *porbit_sv_to_objectid (SV *sv);
SV *porbit_objectid_to_sv (PortableServer_ObjectId *oid);
#endif /* __PORBIT_SERVER_H__ */