path: root/shell/evolution-service-repository.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */

/*
 * Author:
 *   Bertrand Guiheneuf (bg@aful.org)
 * 
 * Dumped from bonobo/bonobo-persist-stream.c
 * 
 * (C) 2000 Helix Code, Inc.
 */

/* 
 * This program is free software; you can redistribute it and/or 
 * modify it under the terms of the GNU General Public License as 
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 * USA
 */

#include <config.h>
#include <gtk/gtksignal.h>
#include <gtk/gtkmarshal.h>
#include "evolution-service-repository.h"

/* Parent class */
static BonoboObjectClass *evolution_service_repository_parent_class;


/* CORBA implementation Entry Point Vector */
POA_Evolution_ServiceRepository__vepv evolution_service_repository_vepv;





/* 
 *function assigned to the 
 * Evolution::ServiceRepository::set_shell
 * method. 
 * This function calls the set_shell_fn in 
 * the EvolutionServiceRepository
 */
static void
impl_set_shell (PortableServer_Servant servant,
        Evolution_Shell shell,
        CORBA_Environment *ev)
{
    BonoboObject *object = bonobo_object_from_servant (servant);
    EvolutionServiceRepository *sr = EVOLUTION_SERVICE_REPOSITORY (object);
    
    if (sr->set_shell_fn != NULL) {
        (*sr->set_shell_fn)(sr, shell, sr->closure);
    } else {
        GtkObjectClass *oc = GTK_OBJECT (sr)->klass;
        EvolutionServiceRepositoryClass *class = EVOLUTION_SERVICE_REPOSITORY_CLASS (oc);
        (*class->set_shell)(sr, shell);
    }
    
}

/**
 * evolution_service_repository_get_epv:
 * create and initialize the ServiceRepository
 * epv.
 */
POA_Evolution_ServiceRepository__epv *
evolution_service_repository_get_epv (void)
{
    POA_Evolution_ServiceRepository__epv *epv;

    epv = g_new0 (POA_Evolution_ServiceRepository__epv, 1);

    epv->set_shell        = impl_set_shell;

    return epv;
}


/* create the Evolution_ServiceRepository vepv */
static void
init_service_repository_corba_class (void)
{
    /* create the Bonobo interface epv */
    evolution_service_repository_vepv.Bonobo_Unknown_epv = 
        bonobo_object_get_epv ();
    
    /* create the ServiceRepository interface epv.
     * Defined above */
    evolution_service_repository_vepv.Evolution_ServiceRepository_epv = 
        evolution_service_repository_get_epv ();
}


/* default implementation for the ::set_shell method */
static void
evolution_service_repository_set_shell_default (EvolutionServiceRepository *service_repository,
                        Evolution_Shell shell)
{
    /* do nothing */
}



static void
evolution_service_repository_destroy (GtkObject *object)
{
    GTK_OBJECT_CLASS (evolution_service_repository_parent_class)->destroy (object);
}


/* initialize the Gtk object class */
static void
evolution_service_repository_class_init (EvolutionServiceRepositoryClass *klass)
{
    GtkObjectClass *object_class = (GtkObjectClass *) klass;

    evolution_service_repository_parent_class = gtk_type_class (bonobo_object_get_type ());

    /*
     * Override and initialize methods
     */
    object_class->destroy = evolution_service_repository_destroy;
    klass->set_shell = evolution_service_repository_set_shell_default;

    /* create the corba class */
    init_service_repository_corba_class ();
}

static void
evolution_service_repository_init (EvolutionServiceRepository *service_repository)
{
}


/**
 * evolution_service_repository_get_type:
 *
 * Returns: the GtkType for the EvolutionServiceRepository class.
 */
GtkType
evolution_service_repository_get_type (void)
{
    static GtkType type = 0;

    if (!type){
        GtkTypeInfo info = {
            "EvolutionServiceRepository",
            sizeof (EvolutionServiceRepository),
            sizeof (EvolutionServiceRepositoryClass),
            (GtkClassInitFunc) evolution_service_repository_class_init,
            (GtkObjectInitFunc) evolution_service_repository_init,
            NULL, /* reserved 1 */
            NULL, /* reserved 2 */
            (GtkClassInitFunc) NULL
        };

        type = gtk_type_unique (bonobo_object_get_type (), &info);
    }

    return type;
}




/**
 * evolution_service_repository_construct: construct the object
 * @sr: the gtk service repository object to construct
 * @corba_service_repository: the corresponding corba object
 * @set_shell_fn: the ::set_shell implementation for this object 
 * @closure: data to pass to the set_shell operation
 * 
 * This construct an EvolutionServiceRepository object. 
 * The caller can give the function that will implement
 * the Corba interface. If those methods are %NULL then the
 * default class method will be called instead. 
 * 
 * Return value: The constructed service repository.
 **/
EvolutionServiceRepository *
evolution_service_repository_construct (EvolutionServiceRepository *sr,
                    Evolution_ServiceRepository corba_service_repository,
                    EvolutionServiceRepositorySetShellFn set_shell_fn,
                    void *closure)
{
    g_return_val_if_fail (sr != NULL, NULL);
    g_return_val_if_fail (EVOLUTION_IS_SERVICE_REPOSITORY (sr), NULL);
    g_return_val_if_fail (corba_service_repository != CORBA_OBJECT_NIL, NULL);
    
    bonobo_object_construct (BONOBO_OBJECT (sr), 
                 corba_service_repository);
    
    sr->closure            = closure;
    sr->set_shell_fn       = set_shell_fn;

    return sr;
}


/* 
 * construct the corba 
 * Evolution_ServiceRepository object 
 */
static Evolution_ServiceRepository
create_evolution_service_repository (BonoboObject *object)
{
    POA_Evolution_ServiceRepository *servant;
    CORBA_Environment ev;

    /* create a servant */
    servant = (POA_Evolution_ServiceRepository *) g_new0 (BonoboObjectServant, 1);

    /* initialize its virtual entry point vector */
    servant->vepv = &evolution_service_repository_vepv;

    CORBA_exception_init (&ev);

    /* initialise the servant */
    POA_Evolution_ServiceRepository__init ((PortableServer_Servant) servant, &ev);
    if (ev._major != CORBA_NO_EXCEPTION){
        g_free (servant);
        CORBA_exception_free (&ev);
        return CORBA_OBJECT_NIL;
    }
    CORBA_exception_free (&ev);

    /* activate it and return */
    return (Evolution_ServiceRepository) bonobo_object_activate_servant (object, servant);
}





/**
 * evolution_service_repository_new: create a new EvolutionServiceRepository object
 * @set_shell_fn: The ::set_shell method 
 * @closure: The data passed to the ::set_shell method
 * 
 * Create a full EvolutionServiceRepository. Also create the correspoding
 * servant. The ::set_shell method calls set_shell_fn unless set_shell_fn
 * is %NULL, in which case, the class default method is called.
 * 
 * Return value: The newly created EvolutionServiceRepository object
 **/
EvolutionServiceRepository *
evolution_service_repository_new (EvolutionServiceRepositorySetShellFn set_shell_fn,
                  void *closure)
{
    Evolution_ServiceRepository corba_sr;
    EvolutionServiceRepository *sr;
    
    /* create the gtk object */
    sr = gtk_type_new (evolution_service_repository_get_type ());

    /* create the Corba object */
    corba_sr = create_evolution_service_repository (
        BONOBO_OBJECT (sr));

    /* check for an error in the creation of the corba object */
    if (corba_sr == CORBA_OBJECT_NIL){
        gtk_object_destroy (GTK_OBJECT (sr));
        return NULL;
    }

    /* construct the object */
    evolution_service_repository_construct (sr, corba_sr, set_shell_fn, closure);

    return sr;
}