1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2013 Free Software Foundation
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21 #include "psppire-spreadsheet-model.h"
23 #include "data/spreadsheet-reader.h"
25 #include "data/gnumeric-reader.h"
26 #include "data/ods-reader.h"
28 static void psppire_spreadsheet_model_init (PsppireSpreadsheetModel *
30 static void psppire_spreadsheet_model_class_init (PsppireSpreadsheetModelClass
33 static void psppire_spreadsheet_model_finalize (GObject * object);
34 static void psppire_spreadsheet_model_dispose (GObject * object);
36 static GObjectClass *parent_class = NULL;
39 static void spreadsheet_tree_model_init (GtkTreeModelIface * iface);
43 psppire_spreadsheet_model_get_type (void)
45 static GType object_type = 0;
49 static const GTypeInfo spreadsheet_model_info = {
50 sizeof (PsppireSpreadsheetModelClass),
52 NULL, /* base_finalize */
53 (GClassInitFunc) psppire_spreadsheet_model_class_init,
54 NULL, /* class_finalize */
55 NULL, /* class_data */
56 sizeof (PsppireSpreadsheetModel),
58 (GInstanceInitFunc) psppire_spreadsheet_model_init,
61 static const GInterfaceInfo tree_model_info = {
62 (GInterfaceInitFunc) spreadsheet_tree_model_init,
67 object_type = g_type_register_static (G_TYPE_OBJECT,
68 "PsppireSpreadsheetModel",
69 &spreadsheet_model_info, 0);
71 g_type_add_interface_static (object_type, GTK_TYPE_TREE_MODEL,
88 psppire_spreadsheet_model_set_property (GObject * object,
93 PsppireSpreadsheetModel *spreadsheetModel =
94 PSPPIRE_SPREADSHEET_MODEL (object);
98 case PROP_SPREADSHEET:
99 spreadsheetModel->spreadsheet = g_value_get_pointer (value);
102 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
109 psppire_spreadsheet_model_dispose (GObject * object)
114 psppire_spreadsheet_model_finalize (GObject * object)
116 // PsppireSpreadsheetModel *spreadsheetModel = PSPPIRE_SPREADSHEET_MODEL (object);
120 psppire_spreadsheet_model_class_init (PsppireSpreadsheetModelClass * class)
122 GObjectClass *object_class;
124 GParamSpec *spreadsheet_spec = g_param_spec_pointer ("spreadsheet",
126 "The spreadsheet that this model represents",
127 G_PARAM_CONSTRUCT_ONLY
130 parent_class = g_type_class_peek_parent (class);
131 object_class = (GObjectClass *) class;
133 object_class->set_property = psppire_spreadsheet_model_set_property;
135 g_object_class_install_property (object_class,
136 PROP_SPREADSHEET, spreadsheet_spec);
138 object_class->finalize = psppire_spreadsheet_model_finalize;
139 object_class->dispose = psppire_spreadsheet_model_dispose;
144 psppire_spreadsheet_model_init (PsppireSpreadsheetModel * spreadsheetModel)
146 spreadsheetModel->dispose_has_run = FALSE;
147 spreadsheetModel->stamp = g_random_int ();
152 psppire_spreadsheet_model_new (struct spreadsheet *sp)
154 return g_object_new (psppire_spreadsheet_model_get_type (),
155 "spreadsheet", sp, NULL);
162 tree_model_n_columns (GtkTreeModel * model)
164 return PSPPIRE_SPREADSHEET_MODEL_N_COLS;
167 static GtkTreeModelFlags
168 tree_model_get_flags (GtkTreeModel * model)
170 g_return_val_if_fail (PSPPIRE_IS_SPREADSHEET_MODEL (model),
171 (GtkTreeModelFlags) 0);
173 return GTK_TREE_MODEL_LIST_ONLY;
177 tree_model_column_type (GtkTreeModel * model, gint index)
179 g_return_val_if_fail (PSPPIRE_IS_SPREADSHEET_MODEL (model), (GType) 0);
180 g_return_val_if_fail (index < PSPPIRE_SPREADSHEET_MODEL_N_COLS, (GType) 0);
182 return G_TYPE_STRING;
187 tree_model_get_iter (GtkTreeModel * model, GtkTreeIter * iter,
190 PsppireSpreadsheetModel *spreadsheetModel =
191 PSPPIRE_SPREADSHEET_MODEL (model);
192 gint *indices, depth;
195 g_return_val_if_fail (path, FALSE);
197 depth = gtk_tree_path_get_depth (path);
199 g_return_val_if_fail (depth == 1, FALSE);
201 indices = gtk_tree_path_get_indices (path);
205 iter->stamp = spreadsheetModel->stamp;
206 iter->user_data = (gpointer) n;
212 tree_model_iter_next (GtkTreeModel *model, GtkTreeIter *iter)
214 PsppireSpreadsheetModel *spreadsheetModel =
215 PSPPIRE_SPREADSHEET_MODEL (model);
216 g_return_val_if_fail (iter->stamp == spreadsheetModel->stamp, FALSE);
221 if ((gint) iter->user_data >= spreadsheetModel->spreadsheet->n_sheets - 1)
223 iter->user_data = NULL;
235 tree_model_get_value (GtkTreeModel * model, GtkTreeIter * iter,
236 gint column, GValue * value)
238 PsppireSpreadsheetModel *spreadsheetModel =
239 PSPPIRE_SPREADSHEET_MODEL (model);
240 g_return_if_fail (column < PSPPIRE_SPREADSHEET_MODEL_N_COLS);
241 g_return_if_fail (iter->stamp == spreadsheetModel->stamp);
243 g_value_init (value, G_TYPE_STRING);
246 case PSPPIRE_SPREADSHEET_MODEL_COL_NAME:
249 ods_get_sheet_name (spreadsheetModel->spreadsheet,
250 (gint) iter->user_data);
252 g_value_set_string (value, x);
255 case PSPPIRE_SPREADSHEET_MODEL_COL_RANGE:
258 ods_get_sheet_range (spreadsheetModel->spreadsheet,
259 (gint) iter->user_data);
261 g_value_set_string (value, x ? x : "(empty)");
266 g_error ("%s:%d Invalid column in spreadsheet model",
273 tree_model_nth_child (GtkTreeModel * model, GtkTreeIter * iter,
274 GtkTreeIter * parent, gint n)
276 PsppireSpreadsheetModel *spreadsheetModel =
277 PSPPIRE_SPREADSHEET_MODEL (model);
282 if (n >= spreadsheetModel->spreadsheet->n_sheets)
285 iter->stamp = spreadsheetModel->stamp;
286 iter->user_data = (gpointer) n;
292 tree_model_n_children (GtkTreeModel * model, GtkTreeIter * iter)
294 PsppireSpreadsheetModel *spreadsheetModel =
295 PSPPIRE_SPREADSHEET_MODEL (model);
298 return spreadsheetModel->spreadsheet->n_sheets;
304 tree_model_iter_has_child (GtkTreeModel *tree_model, GtkTreeIter *iter)
310 tree_model_get_path (GtkTreeModel * model, GtkTreeIter * iter)
312 PsppireSpreadsheetModel *spreadsheetModel =
313 PSPPIRE_SPREADSHEET_MODEL (model);
315 gint index = (gint) iter->user_data;
317 g_return_val_if_fail (iter->stamp == spreadsheetModel->stamp, NULL);
319 path = gtk_tree_path_new ();
321 gtk_tree_path_append_index (path, index);
328 tree_model_children (GtkTreeModel *model, GtkTreeIter *iter, GtkTreeIter *parent)
330 PsppireSpreadsheetModel *spreadsheetModel = PSPPIRE_SPREADSHEET_MODEL (model);
335 iter->stamp = spreadsheetModel->stamp;
344 spreadsheet_tree_model_init (GtkTreeModelIface * iface)
346 iface->get_flags = tree_model_get_flags;
347 iface->get_n_columns = tree_model_n_columns;
348 iface->get_column_type = tree_model_column_type;
349 iface->get_iter = tree_model_get_iter;
350 iface->iter_next = tree_model_iter_next;
351 iface->get_value = tree_model_get_value;
353 iface->iter_children = tree_model_children;
354 iface->iter_parent = NULL;
356 iface->get_path = tree_model_get_path;
357 iface->iter_has_child = tree_model_iter_has_child;
358 iface->iter_n_children = tree_model_n_children;
359 iface->iter_nth_child = tree_model_nth_child;