src/corba-workbook.c

   1 /*
   2  * corba-workbook.c: CORBA Workbook exporting.
   3  *
   4  * Author:
   5  *   Miguel de Icaza (miguel@gnu.org)
   6  */
   7 #include <config.h>
   8 #include <libgnorba/gnome-factory.h>
   9 #include <gnome.h>
  10 #include <bonobo/bonobo-object.h>
  11 #include "sheet.h"
  12 #include "gnumeric.h"
  13 #include "workbook.h"
  14 #include "idl/Gnumeric.h"
  15 #include "xml-io.h"
  16 #include "corba.h"
  17 #include "commands.h"
  18 #include "command-context-corba.h"
  19 #include "workbook-private.h"
  20 #include "sheet-private.h"
  21
  22 typedef struct {
  23         POA_GNOME_Gnumeric_Workbook servant;
  24         Workbook *workbook;
  25 } WorkbookServant;
  26
  27 static POA_GNOME_Gnumeric_Workbook__vepv gnome_gnumeric_workbook_vepv;
  28 static POA_GNOME_Gnumeric_Workbook__epv gnome_gnumeric_workbook_epv;
  29
  30 static Workbook *
  31 workbook_from_servant (PortableServer_Servant servant)
  32 {
  33         WorkbookServant *ws = (WorkbookServant *) servant;
  34
  35         return ws->workbook;
  36 }
  37
  38 static inline GNOME_Gnumeric_Sheet
  39 corba_sheet (Sheet *sheet, CORBA_Environment *ev)
  40 {
  41         return CORBA_Object_duplicate (sheet->private->corba_server, ev);
  42 }
  43
  44 static GNOME_Gnumeric_Sheet
  45 Workbook_sheet_new (PortableServer_Servant servant, const CORBA_char * name, CORBA_Environment * ev)
  46 {
  47         Workbook *workbook = workbook_from_servant (servant);
  48         Sheet *sheet;
  49
  50         if (workbook_sheet_lookup (workbook, name)){
  51                 CORBA_exception_set (ev, CORBA_USER_EXCEPTION, ex_GNOME_Gnumeric_Workbook_NameExists, NULL);
  52                 return CORBA_OBJECT_NIL;
  53         }
  54
  55         sheet = sheet_new (workbook, name);
  56
  57         workbook_attach_sheet (workbook, sheet);
  58
  59         return corba_sheet (sheet, ev);
  60 }
  61
  62 static GNOME_Gnumeric_Sheet
  63 Workbook_sheet_lookup (PortableServer_Servant servant, const CORBA_char * name, CORBA_Environment * ev)
  64 {
  65         Workbook *workbook = workbook_from_servant (servant);
  66         Sheet *sheet;
  67
  68         sheet = workbook_sheet_lookup (workbook, name);
  69         if (sheet == NULL)
  70                 return CORBA_OBJECT_NIL;
  71
  72         return corba_sheet (sheet, ev);
  73 }
  74
  75 /*
  76  * FIXME: This breaks the link between name, saver and level.
  77  */
  78 static void
  79 Workbook_set_filename (PortableServer_Servant servant, const CORBA_char * name, CORBA_Environment * ev)
  80 {
  81         Workbook *workbook = workbook_from_servant (servant);
  82
  83         workbook_set_filename (workbook, name);
  84 }
  85
  86 static void
  87 Workbook_save_to (PortableServer_Servant servant, const CORBA_char * filename, CORBA_Environment * ev)
  88 {
  89         Workbook *wb = workbook_from_servant (servant);
  90
  91         /* <FIXME> */
  92
  93         g_warning ("Failure to save will not be noticed");
  94
  95         if (gnumeric_xml_write_workbook (command_context_corba (wb),
  96                                          wb, filename) == 0)
  97                 workbook_mark_clean (wb);
  98         else
  99                 g_error ("Could not save to file %s", wb->filename);
 100
 101         /* </FIXME> */
 102 }
 103
 104 static GNOME_Gnumeric_Sheet
 105 Workbook_sheet_current (PortableServer_Servant servant, CORBA_Environment * ev)
 106 {
 107         Workbook *wb = workbook_from_servant (servant);
 108         Sheet *sheet = wb->current_sheet;
 109
 110         return corba_sheet (sheet, ev);
 111 }
 112
 113 static GNOME_Gnumeric_Sheet
 114 Workbook_sheet_nth (PortableServer_Servant servant, const CORBA_long n, CORBA_Environment * ev)
 115 {
 116         g_error ("Same stuff!");
 117
 118         return CORBA_OBJECT_NIL;
 119 }
 120
 121 static CORBA_long
 122 Workbook_sheet_count (PortableServer_Servant servant, CORBA_Environment * ev)
 123 {
 124         Workbook *workbook = workbook_from_servant (servant);
 125
 126         return workbook_sheet_count (workbook);
 127 }
 128
 129 static void
 130 Workbook_set_dirty (PortableServer_Servant servant, const CORBA_boolean is_dirty, CORBA_Environment * ev)
 131 {
 132         Workbook *workbook = workbook_from_servant (servant);
 133
 134         workbook_set_dirty (workbook, is_dirty);
 135 }
 136
 137 static CORBA_boolean
 138 Workbook_sheet_rename (PortableServer_Servant servant,
 139                        const CORBA_char * old_name,
 140                        const CORBA_char * new_name, CORBA_Environment * ev)
 141 {
 142         Workbook *workbook = workbook_from_servant (servant);
 143
 144         return cmd_rename_sheet (command_context_corba (workbook),
 145                                  workbook, old_name, new_name);
 146 }
 147
 148 static void
 149 Workbook_recalc (PortableServer_Servant servant, CORBA_Environment * ev)
 150 {
 151         Workbook *workbook = workbook_from_servant (servant);
 152
 153         workbook_recalc (workbook);
 154 }
 155
 156 static void
 157 Workbook_recalc_all (PortableServer_Servant servant, CORBA_Environment * ev)
 158 {
 159         Workbook *workbook = workbook_from_servant (servant);
 160
 161         workbook_recalc_all (workbook);
 162 }
 163
 164 static void
 165 Workbook_parse (PortableServer_Servant servant,
 166                 const CORBA_char * cellref,
 167                 GNOME_Gnumeric_Sheet * sheet,
 168                 CORBA_long * col,
 169                 CORBA_long * row, CORBA_Environment * ev)
 170 {
 171 }
 172
 173 static void
 174 Workbook_show (PortableServer_Servant servant, CORBA_boolean show_toplevel, CORBA_Environment *ev)
 175 {
 176         Workbook *workbook = workbook_from_servant (servant);
 177
 178         if (show_toplevel)
 179                 gtk_widget_show (workbook->toplevel);
 180         else
 181                 gtk_widget_hide (workbook->toplevel);
 182 }
 183
 184 static void
 185 Workbook_corba_class_init ()
 186 {
 187         static int inited;
 188
 189         if (inited)
 190                 return;
 191         inited = TRUE;
 192
 193         gnome_gnumeric_workbook_vepv.GNOME_Gnumeric_Workbook_epv =
 194                 &gnome_gnumeric_workbook_epv;
 195         gnome_gnumeric_workbook_vepv.Bonobo_Unknown_epv =
 196                 bonobo_object_get_epv ();
 197
 198         gnome_gnumeric_workbook_epv.sheet_new = Workbook_sheet_new;
 199         gnome_gnumeric_workbook_epv.sheet_lookup = Workbook_sheet_lookup;
 200         gnome_gnumeric_workbook_epv.set_filename = Workbook_set_filename;
 201         gnome_gnumeric_workbook_epv.save_to = Workbook_save_to;
 202         gnome_gnumeric_workbook_epv.sheet_current = Workbook_sheet_current;
 203         gnome_gnumeric_workbook_epv.sheet_nth = Workbook_sheet_nth;
 204         gnome_gnumeric_workbook_epv.sheet_count = Workbook_sheet_count;
 205         gnome_gnumeric_workbook_epv.set_dirty = Workbook_set_dirty;
 206         gnome_gnumeric_workbook_epv.sheet_rename = Workbook_sheet_rename;
 207         gnome_gnumeric_workbook_epv.recalc = Workbook_recalc;
 208         gnome_gnumeric_workbook_epv.recalc_all = Workbook_recalc_all;
 209         gnome_gnumeric_workbook_epv.parse = Workbook_parse;
 210         gnome_gnumeric_workbook_epv.show = Workbook_show;
 211 }
 212
 213 /**
 214  * Initializes the CORBA side of a Workbook structure.
 215  *
 216  * Creates the POA servant to handle requests for this Workbook and makes
 217  * the Workbook a GNOME object server.
 218  */
 219 void
 220 workbook_corba_setup (Workbook *workbook)
 221 {
 222         WorkbookServant *ws;
 223         CORBA_Environment ev;
 224         PortableServer_ObjectId *objid;
 225
 226         Workbook_corba_class_init ();
 227
 228         ws = g_new0 (WorkbookServant, 1);
 229         ws->servant.vepv = &gnome_gnumeric_workbook_vepv;
 230         ws->workbook = workbook;
 231
 232         CORBA_exception_init (&ev);
 233         POA_GNOME_Gnumeric_Workbook__init ((PortableServer_Servant) ws, &ev);
 234         objid = PortableServer_POA_activate_object (gnumeric_poa, ws, &ev);
 235         CORBA_free (objid);
 236         workbook->corba_server = PortableServer_POA_servant_to_reference (gnumeric_poa, ws, &ev);
 237
 238         workbook->priv->corba_context = command_context_corba_new ();
 239         CORBA_exception_free (&ev);
 240 }
 241
 242 void
 243 workbook_corba_shutdown (Workbook *wb)
 244 {
 245         CORBA_Environment ev;
 246
 247         g_return_if_fail (wb != NULL);
 248         g_return_if_fail (wb->corba_server != NULL);
 249
 250         g_warning ("Should release all the corba resources here");
 251
 252         gtk_object_destroy (GTK_OBJECT (wb->priv->corba_context));
 253
 254         CORBA_exception_init (&ev);
 255         PortableServer_POA_deactivate_object (gnumeric_poa, wb->corba_server, &ev);
 256         CORBA_exception_free (&ev);
 257 }
 258
 259 CommandContext *
 260 command_context_corba (Workbook *wb)
 261 {
 262         /* When we are operating before a workbook is created
 263          * wb can be NULL
 264          */
 265         if (!wb)
 266                 return command_context_corba_new ();
 267
 268         g_return_val_if_fail (wb->priv && wb->priv->corba_context, NULL);
 269
 270         return wb->priv->corba_context;
 271 }