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"
31 #include "gl/xalloc.h"
43 GtkListStore * list_store = gtk_list_store_new (2, G_TYPE_INT, G_TYPE_STRING);
45 for (i = 0; i < N; ++i)
47 gtk_list_store_append (list_store, &iter);
48 gtk_list_store_set (list_store, &iter,
60 struct spreadsheet *sp;
67 on_clicked (GtkButton *button, struct xxx *stuff)
69 const struct caseproto *proto;
72 gint x = gtk_combo_box_get_active (GTK_COMBO_BOX (stuff->combo_box));
73 struct casereader *reader ;
74 struct spreadsheet_read_options opts;
76 opts.sheet_index = -1;
77 opts.cell_range = spreadsheet_get_sheet_range (stuff->sp, x);
78 opts.sheet_name = spreadsheet_get_sheet_name (stuff->sp, x);
79 opts.read_names = TRUE;
82 reader = spreadsheet_make_reader (stuff->sp, &opts);
83 proto = casereader_get_proto (reader);
85 nvals = caseproto_get_n_widths (proto);
87 for (; (c = casereader_read (reader)) != NULL; case_unref (c))
91 for (i = 0; i < nvals ; ++i)
93 const int width = caseproto_get_width (proto, i);
94 const union value *val = case_data_idx (c, i);
96 printf ("%g ", val->f);
99 char *ss = xzalloc (width + 1);
100 strncpy (ss, value_str (val, width), width);
109 casereader_destroy (reader);
114 main (int argc, char *argv[] )
125 gtk_init (&argc, &argv);
128 g_error ("Usage: prog file\n");
132 if (stuff.sp == NULL)
133 stuff.sp = gnumeric_probe (argv[1], false);
135 if (stuff.sp == NULL)
136 stuff.sp = ods_probe (argv[1], false);
138 if (stuff.sp == NULL)
140 g_error ("%s is neither a gnumeric nor a ods file\n", argv[1]);
144 tm = psppire_spreadsheet_model_new (stuff.sp);
145 window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
146 hbox = gtk_hbox_new (FALSE, 5);
147 vbox = gtk_vbox_new (FALSE, 5);
149 button = gtk_button_new_with_label ("Test reader");
150 g_signal_connect (button, "clicked", G_CALLBACK (on_clicked), &stuff);
152 gtk_container_set_border_width (GTK_CONTAINER (window), 10);
154 stuff.combo_box = gtk_combo_box_new();
157 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
158 gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (stuff.combo_box), renderer, TRUE);
159 gtk_cell_layout_set_attributes (GTK_CELL_LAYOUT (stuff.combo_box), renderer,
164 gtk_combo_box_set_model (GTK_COMBO_BOX (stuff.combo_box), tm);
166 gtk_combo_box_set_active (GTK_COMBO_BOX (stuff.combo_box), 0);
168 treeview = gtk_tree_view_new_with_model (tm);
170 gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (treeview),
172 gtk_cell_renderer_text_new (),
177 gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (treeview),
179 gtk_cell_renderer_text_new (),
184 gtk_box_pack_start (GTK_BOX (hbox), treeview, TRUE, TRUE, 5);
186 gtk_box_pack_start (GTK_BOX (vbox), stuff.combo_box, FALSE, FALSE, 5);
187 gtk_box_pack_start (GTK_BOX (vbox), button, FALSE, FALSE, 5);
188 gtk_box_pack_start (GTK_BOX (hbox), vbox, TRUE, TRUE, 5);
190 gtk_container_add (GTK_CONTAINER (window), hbox);
192 g_signal_connect (window, "destroy", gtk_main_quit, 0);
194 gtk_widget_show_all (window);
198 spreadsheet_destroy (stuff.sp);