GNOME ����

// The factory interface.

module GNOME {
typedef sequence<string> stringlist;
  interface GenericFactory {
    exception CannotActivate { };
    boolean supports(in string obj_goad_id);

    Object create_object(in string goad_id, in stringlist params)
           raises(CannotActivate);
  };
};

// idl interface
#include <gnome-factory.idl>
module FruitsBasket {

  interface AppleFactory : GNOME::GenericFactory {};

  interface Apple {
    void EatMe ();
  };
};

/********** C Factory skeleton implementation ***********/
#include "apple.h"

/*** App-specific servant structures ***/

typedef struct {
   POA_FruitsBasket_AppleFactory servant;
   PortableServer_POA poa;
} impl_POA_FruitsBasket_AppleFactory;

typedef struct {
   POA_FruitsBasket_Apple servant;
   PortableServer_POA poa;

} impl_POA_FruitsBasket_Apple;

/*** Implementation stub prototypes ***/

static void    
impl_FruitsBasket_AppleFactory__destroy(impl_POA_FruitsBasket_AppleFactory
                                        * servant,
					CORBA_Environment * ev);
static CORBA_boolean
impl_FruitsBasket_AppleFactory_supports(impl_POA_FruitsBasket_AppleFactory
                                        * servant,
                                        CORBA_char * obj_goad_id,
                                        CORBA_Environment * ev);
static CORBA_Object
impl_FruitsBasket_AppleFactory_create_object(impl_POA_FruitsBasket_AppleFactory
                                             * servant,
                                             CORBA_char * goad_id,
                                             GNOME_stringlist * params,
                                             CORBA_Environment * ev);

static void impl_FruitsBasket_Apple__destroy(impl_POA_FruitsBasket_Apple * servant,
                                             CORBA_Environment * ev);
static void impl_FruitsBasket_Apple_EatMe(impl_POA_FruitsBasket_Apple * servant,
                                          CORBA_Environment * ev);

/*** epv structures ***/

static PortableServer_ServantBase__epv
impl_FruitsBasket_AppleFactory_base_epv =
{
   NULL,			/* _private data */
   NULL,			/* finalize routine */
   NULL,			/* default_POA routine */
};
static POA_FruitsBasket_AppleFactory__epv 
       impl_FruitsBasket_AppleFactory_epv =
{
   NULL,			/* _private */
};
static POA_GNOME_GenericFactory__epv
       impl_FruitsBasket_AppleFactory_GNOME_GenericFactory_epv =
{
   NULL,			/* _private */
   (gpointer) & impl_FruitsBasket_AppleFactory_supports,
   (gpointer) & impl_FruitsBasket_AppleFactory_create_object,
};
static PortableServer_ServantBase__epv 
       impl_FruitsBasket_Apple_base_epv =
{
   NULL,			/* _private data */
   NULL,			/* finalize routine */
   NULL,			/* default_POA routine */
};
static POA_FruitsBasket_Apple__epv 
       impl_FruitsBasket_Apple_epv =
{
   NULL,			/* _private */
   (gpointer) & impl_FruitsBasket_Apple_EatMe,

};

/*** vepv structures ***/

static POA_FruitsBasket_AppleFactory__vepv
impl_FruitsBasket_AppleFactory_vepv =
{
   &impl_FruitsBasket_AppleFactory_base_epv,
   &impl_FruitsBasket_AppleFactory_GNOME_GenericFactory_epv,
   &impl_FruitsBasket_AppleFactory_epv,
};
static POA_FruitsBasket_Apple__vepv 
       impl_FruitsBasket_Apple_vepv =
{
   &impl_FruitsBasket_Apple_base_epv,
   &impl_FruitsBasket_Apple_epv,
};
/*** Stub implementations ***/


/* This is the Factory constructor.
 * It must be called from the main function so that
 * factory  can create new Apple objects
 */
static FruitsBasket_AppleFactory
       impl_FruitsBasket_AppleFactory__create(PortableServer_POA poa,
                                              CORBA_Environment * ev)
{
   FruitsBasket_AppleFactory retval;
   impl_POA_FruitsBasket_AppleFactory *newservant;
   PortableServer_ObjectId *objid;

   newservant = g_new0(impl_POA_FruitsBasket_AppleFactory, 1);
   newservant->servant.vepv = &impl_FruitsBasket_AppleFactory_vepv;
   newservant->poa = poa;
   POA_FruitsBasket_AppleFactory__init((PortableServer_Servant) newservant, ev);
   objid = PortableServer_POA_activate_object(poa, newservant, ev);
   CORBA_free(objid);
   retval = PortableServer_POA_servant_to_reference(poa, newservant, ev);

   return retval;
}

static void
impl_FruitsBasket_AppleFactory__destroy(impl_POA_FruitsBasket_AppleFactory *
                                        servant, CORBA_Environment * ev)
{
   PortableServer_ObjectId *objid;

   objid = PortableServer_POA_servant_to_id(servant->poa, servant, ev);
   PortableServer_POA_deactivate_object(servant->poa, objid, ev);
   CORBA_free(objid);

   POA_FruitsBasket_AppleFactory__fini((PortableServer_Servant) servant, ev);
   g_free(servant);
}

static CORBA_boolean
impl_FruitsBasket_AppleFactory_supports(impl_POA_FruitsBasket_AppleFactory * servant,
                                        CORBA_char * obj_goad_id,
                                        CORBA_Environment * ev)
{
   CORBA_boolean retval;

   return retval;
}

static CORBA_Object
impl_FruitsBasket_AppleFactory_create_object(impl_POA_FruitsBasket_AppleFactory * servant,
                                             CORBA_char * goad_id,
                                             GNOME_stringlist * params,
                                             CORBA_Environment * ev)
{
   CORBA_Object retval;
     /* here, the only things to do are to create or reuse 
      * a poa and a poamanager and register with them 
      * the Apple thanks to the 
      * impl_FruitsBasket_Apple__create
      */
   retval = impl_FruitsBasket_Apple__create (servant->poa, ev);

   return retval;
}

/* This is the Apple constructor which just needs to be 
 * called by the create_object function of the factory 
 * instead of being directly called by the main function
 */

static FruitsBasket_Apple
impl_FruitsBasket_Apple__create(PortableServer_POA poa, 
                                CORBA_Environment * ev)
{
   FruitsBasket_Apple retval;
   impl_POA_FruitsBasket_Apple *newservant;
   PortableServer_ObjectId *objid;

   newservant = g_new0(impl_POA_FruitsBasket_Apple, 1);
   newservant->servant.vepv = &impl_FruitsBasket_Apple_vepv;
   newservant->poa = poa;
   POA_FruitsBasket_Apple__init((PortableServer_Servant) newservant, ev);
   objid = PortableServer_POA_activate_object(poa, newservant, ev);
   CORBA_free(objid);
   retval = PortableServer_POA_servant_to_reference(poa, newservant, ev);

   return retval;
}

static void
impl_FruitsBasket_Apple__destroy(impl_POA_FruitsBasket_Apple * servant,
                                 CORBA_Environment * ev)
{
   PortableServer_ObjectId *objid;

   objid = PortableServer_POA_servant_to_id(servant->poa, servant, ev);
   PortableServer_POA_deactivate_object(servant->poa, objid, ev);
   CORBA_free(objid);

   POA_FruitsBasket_Apple__fini((PortableServer_Servant) servant, ev);
   g_free(servant);
}

static void
impl_FruitsBasket_Apple_EatMe(impl_POA_FruitsBasket_Apple * servant,
                              CORBA_Environment * ev)
{
}

void main (int argc, char **argv)
{
  CORBA_Environment ev;
  CORBA_ORB orb;
  CORBA_Object root_poa;
  PortableServer_POAManager root_poa_manager;
  CosNaming_NamingContext name_server;
  CORBA_Object obj;

  CORBA_exception_init (&ev);
  orb = gnome_CORBA_init ("An Apple", 
                          "1.0", 
                          &argc, 
                          argv, 
                          GNORBA_INIT_SERVER_FUNC, 
                          &ev);

  root_poa = CORBA_ORB_resolve_initial_references (orb, 
                                                   "RootPOA", 
                                                   &ev);

  root_poa_manager = PortableServer_POA__get_the_POAManager (
                     (PortableServer_POA) root_poa, &ev);
  PortableServer_POAManager_activate (root_poa_manager, &ev);

  /* this function will create all the other 
   * needed interfaces
   */
  obj = impl_FruitsBasket_AppleFactory__create ((PortableServer_POA) root_poa, 
                                                &ev);
  /* register against the GOAD */
  name_server = gnome_name_service_get ();
  /* This is really important: make sure you use these
     2 functions when registering */
  goad_server_register (name_server, obj, 
                        goad_server_activation_id(), 
                        "server", 
                        &ev);
  /* finished !! */
  CORBA_exception_free (&ev);
  gtk_main ();
  return 0;
}

# old .gnorba file
[Apple]
type=exe
repo_id=IDL:GNOME/Apple:1.0
description=A nice Apple
location_info=apple

#new .gnorba file
[Apple_factory]
type=exe
repo_id=IDL:GNOME/GenericFactory:1.0
description=internal
location_info=apple

[Apple]
type=factory
repo_id=IDL:GNOME/Apple:1.0
description=A nice Apple
location_info=Apple_factory

module GNOME {
  struct Color {
    unsigned short red, green, blue;
  };
  typedef short AppletId;
  typedef short PanelId;

  interface Panel {
    enum OrientType {
      ORIENT_UP,
      ORIENT_DOWN,
      ORIENT_LEFT,
      ORIENT_RIGHT	
    };
    enum BackType {
      BACK_NONE,
      BACK_COLOR,
      BACK_PIXMAP
    };
    union BackInfoType switch(BackType) {
      case BACK_COLOR: Color c;
      case BACK_PIXMAP: string pmap;
    };
    enum SizeType {
      SIZE_TINY,
      SIZE_STANDARD,
      SIZE_LARGE,
      SIZE_HUGE	
    };

    PanelSpot add_applet(in Applet panel_applet,
                         in string goad_id,
                         out string cfgpath,
                         out string globcfgpath,
                         out unsigned long winid);
    
    oneway void quit ();

    readonly attribute boolean in_drag;
  };
};

module GNOME {
  interface PanelSpot {
    // gosh !! i removed many things from here !!
    oneway void add_callback (in string callback_name,
    in string stock_item,
    in string menuitem_text);
    oneway void remove_callback (in string callback_name);
  };

  interface Applet {
    // gosh !! i removed many things from here !!
    oneway void do_callback (in string callback_name);
  };
};