find-dialog.c: Replace exp10 with our own integer version
[pspp] / src / ui / gui / spreadsheet-test.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2013, 2014  Free Software Foundation
3
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.
8
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.
13
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/>. */
16
17
18 /* This program is useful for testing the spreadsheet readers */
19
20 #include <config.h>
21
22 #include <float.h>
23 #include <gtk/gtk.h>
24
25 #include "psppire-spreadsheet-model.h"
26
27 #include "data/gnumeric-reader.h"
28 #include "data/ods-reader.h"
29 #include "data/spreadsheet-reader.h"
30 #include "data/casereader.h"
31 #include "data/case.h"
32 #include "data/settings.h"
33 #include "libpspp/message.h"
34 #include "libpspp/i18n.h"
35
36 #include "gl/xalloc.h"
37
38
39 struct xxx
40 {
41   struct spreadsheet *sp;
42   GtkWidget *combo_box;
43 };
44
45
46
47 static void
48 on_clicked (GtkButton *button, struct xxx *stuff)
49 {
50   const struct caseproto *proto;
51   int nvals;
52   struct ccase *c;
53   gint x = gtk_combo_box_get_active (GTK_COMBO_BOX (stuff->combo_box));
54   struct casereader *reader ;
55   struct spreadsheet_read_options opts;
56
57   opts.sheet_index = -1;
58   opts.cell_range = spreadsheet_get_sheet_range (stuff->sp, x);
59   opts.sheet_name = CONST_CAST (char *,
60                                 spreadsheet_get_sheet_name (stuff->sp, x));
61   opts.read_names = TRUE;
62   opts.asw = -1;
63
64   reader = spreadsheet_make_reader (stuff->sp, &opts);
65
66   if (reader == NULL)
67     return;
68
69   proto = casereader_get_proto (reader);
70
71   nvals = caseproto_get_n_widths (proto);
72
73   for (; (c = casereader_read (reader)) != NULL; case_unref (c))
74     {
75       int i;
76
77       for (i = 0; i < nvals ; ++i)
78       {
79         const int width = caseproto_get_width (proto, i);
80         const union value *val = case_data_idx (c, i);
81         if (0 == width)
82           printf ("%.*g ", DBL_DIG + 1, val->f);
83         else
84           {
85             char *ss = xzalloc (width + 1);
86             memcpy (ss, val->s, width);
87
88             printf ("%s ", ss);
89             free (ss);
90           }
91       }
92       printf ("\n");
93     }
94
95   casereader_destroy (reader);
96 }
97
98 static void
99 print_msg (const struct msg *m, void *aux UNUSED)
100 {
101   fprintf (stderr, "%s\n", m->text);
102 }
103
104
105 int
106 main (int argc, char *argv[])
107 {
108   GtkWidget *window;
109   GtkWidget *hbox;
110   GtkWidget *vbox;
111   GtkWidget *treeview;
112
113   GtkTreeModel *tm;
114   GtkWidget *button;
115   struct xxx stuff;
116
117   i18n_init ();
118   settings_init ();
119
120   gtk_init (&argc, &argv);
121
122   if (argc < 2)
123     g_error ("Usage: prog file\n");
124
125   msg_set_handler (print_msg, 0);
126
127   stuff.sp = NULL;
128
129   if (stuff.sp == NULL)
130     stuff.sp = gnumeric_probe (argv[1], false);
131
132   if (stuff.sp == NULL)
133     stuff.sp = ods_probe (argv[1], false);
134
135   if (stuff.sp == NULL)
136     {
137       g_error ("%s is neither a gnumeric nor a ods file\n", argv[1]);
138       return 0;
139     }
140
141   tm = psppire_spreadsheet_model_new (stuff.sp);
142   window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
143   hbox = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 5);
144   vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 5);
145
146   button = gtk_button_new_with_label ("Test reader");
147   g_signal_connect (button, "clicked", G_CALLBACK (on_clicked), &stuff);
148
149   gtk_container_set_border_width (GTK_CONTAINER (window), 10);
150
151   stuff.combo_box = gtk_combo_box_new();
152
153   {
154     GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
155     gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (stuff.combo_box), renderer, TRUE);
156     gtk_cell_layout_set_attributes (GTK_CELL_LAYOUT (stuff.combo_box), renderer,
157                                     "text", 0,
158                                     NULL);
159   }
160
161   gtk_combo_box_set_model (GTK_COMBO_BOX (stuff.combo_box), tm);
162
163   gtk_combo_box_set_active (GTK_COMBO_BOX (stuff.combo_box), 0);
164
165   treeview = gtk_tree_view_new_with_model (tm);
166
167   gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (treeview),
168                                                0, "sheet name",
169                                                gtk_cell_renderer_text_new (),
170                                                "text", 0,
171                                                NULL);
172
173
174   gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (treeview),
175                                                1, "range",
176                                                gtk_cell_renderer_text_new (),
177                                                "text", 1,
178                                                NULL);
179
180
181   gtk_box_pack_start (GTK_BOX (hbox), treeview, TRUE, TRUE, 5);
182
183   gtk_box_pack_start (GTK_BOX (vbox), stuff.combo_box, FALSE, FALSE, 5);
184   gtk_box_pack_start (GTK_BOX (vbox), button, FALSE, FALSE, 5);
185   gtk_box_pack_start (GTK_BOX (hbox), vbox, TRUE, TRUE, 5);
186
187   gtk_container_add (GTK_CONTAINER (window), hbox);
188
189   g_signal_connect (window, "destroy", gtk_main_quit, 0);
190
191   gtk_widget_show_all (window);
192
193   gtk_main ();
194
195   spreadsheet_unref (stuff.sp);
196
197   return 0;
198 }