src/server-interface-check.c

   1 /* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
   2 /* server-interface-check.c
   3  *
   4  * Copyright (C) 2002  Ximian, Inc.
   5  *
   6  * This program is free software; you can redistribute it and/or
   7  * modify it under the terms of version 2 of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this program; if not, write to the
  17  * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  18  * Boston, MA 02110-1301, USA.
  19  *
  20  * Author: Ettore Perazzoli <ettore@ximian.com>
  21  */
  22
  23 #ifdef HAVE_CONFIG_H
  24 #include <config.h>
  25 #endif
  26
  27 #include "server-interface-check.h"
  28
  29 \f
  30 #define PARENT_TYPE bonobo_object_get_type ()
  31 static BonoboObjectClass *parent_class = NULL;
  32
  33 \f
  34 static CORBA_char *
  35 impl__get_interfaceVersion (PortableServer_Servant servant,
  36                             CORBA_Environment *ev)
  37 {
  38         return CORBA_string_dup (VERSION);
  39 }
  40
  41 \f
  42 static void
  43 server_interface_check_class_init (ServerInterfaceCheckClass *class)
  44 {
  45         parent_class = g_type_class_ref (PARENT_TYPE);
  46
  47         class->epv._get_interfaceVersion = impl__get_interfaceVersion;
  48 }
  49
  50 static void
  51 server_interface_check_init (ServerInterfaceCheck *interface_check)
  52 {
  53         /* (Nothing to initialize here.)  */
  54 }
  55
  56 \f
  57 ServerInterfaceCheck *
  58 server_interface_check_new (void)
  59 {
  60         return g_object_new (SERVER_TYPE_INTERFACE_CHECK, NULL);
  61 }
  62
  63 \f
  64 BONOBO_TYPE_FUNC_FULL (ServerInterfaceCheck,
  65                        GNOME_Evolution_DataServer_InterfaceCheck,
  66                        PARENT_TYPE,
  67                        server_interface_check)