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/>. */
18 /* This program is useful for testing the spreadsheet readers */
24 #include "psppire-spreadsheet-model.h"
26 #include "data/gnumeric-reader.h"
27 #include "data/ods-reader.h"
28 #include "data/spreadsheet-reader.h"
29 #include "data/casereader.h"
30 #include "data/case.h"
42 GtkListStore * list_store = gtk_list_store_new (2, G_TYPE_INT, G_TYPE_STRING);
44 for (i = 0; i < N; ++i)
46 gtk_list_store_append (list_store, &iter);
47 gtk_list_store_set (list_store, &iter,
59 struct spreadsheet *sp;
66 on_clicked (GtkButton *button, struct xxx *stuff)
68 const struct caseproto *proto;
71 gint x = gtk_combo_box_get_active (GTK_COMBO_BOX (stuff->combo_box));
72 struct casereader *reader ;
73 struct spreadsheet_read_options opts;
75 g_print( "%s %d\n", __FUNCTION__, x);
77 opts.sheet_index = x + 1;
78 opts.cell_range = NULL;
79 opts.sheet_name = NULL;
80 opts.read_names = TRUE;
83 reader = ods_make_reader (stuff->sp, &opts);
84 proto = casereader_get_proto (reader);
86 nvals = caseproto_get_n_widths (proto);
89 (c = casereader_read (reader)) != NULL; case_unref (c))
93 for (i = 0; i < nvals ; ++i)
95 const double val = case_data_idx (c, i)->f;
101 casereader_destroy (reader);
106 main (int argc, char *argv[] )
117 gtk_init (&argc, &argv);
120 g_error ("Usage: prog file\n");
126 sp = gnumeric_probe (argv[1], false);
129 if (stuff.sp == NULL)
130 stuff.sp = ods_probe (argv[1], false);
132 if (stuff.sp == NULL)
134 g_error ("%s is neither a gnumeric nor a ods file\n", argv[1]);
138 tm = psppire_spreadsheet_model_new (stuff.sp);
139 window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
140 hbox = gtk_hbox_new (FALSE, 5);
141 vbox = gtk_vbox_new (FALSE, 5);
143 button = gtk_button_new_with_label ("Test reader");
144 g_signal_connect (button, "clicked", G_CALLBACK (on_clicked), &stuff);
146 gtk_container_set_border_width (GTK_CONTAINER (window), 10);
148 stuff.combo_box = gtk_combo_box_new();
151 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
152 gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (stuff.combo_box), renderer, TRUE);
153 gtk_cell_layout_set_attributes (GTK_CELL_LAYOUT (stuff.combo_box), renderer,
158 gtk_combo_box_set_model (GTK_COMBO_BOX (stuff.combo_box), tm);
160 gtk_combo_box_set_active (GTK_COMBO_BOX (stuff.combo_box), 0);
162 treeview = gtk_tree_view_new_with_model (tm);
164 gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (treeview),
166 gtk_cell_renderer_text_new (),
171 gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (treeview),
173 gtk_cell_renderer_text_new (),
178 gtk_box_pack_start (GTK_BOX (hbox), treeview, TRUE, TRUE, 5);
180 gtk_box_pack_start (GTK_BOX (vbox), stuff.combo_box, FALSE, FALSE, 5);
181 gtk_box_pack_start (GTK_BOX (vbox), button, FALSE, FALSE, 5);
182 gtk_box_pack_start (GTK_BOX (hbox), vbox, TRUE, TRUE, 5);
184 gtk_container_add (GTK_CONTAINER (window), hbox);
186 g_signal_connect (window, "destroy", gtk_main_quit, 0);
188 gtk_widget_show_all (window);
192 // gnumeric_destroy (sp);