1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2010, 2011, 2012, 2013, 2014 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/>. */
19 #include "dialog-common.h"
22 #include <gl/c-xvasprintf.h>
23 #include <language/stats/aggregate.h>
25 #include <ui/syntax-gen.h>
26 #include <libpspp/str.h>
28 #include "aggregate-dialog.h"
29 #include "psppire-selector.h"
30 #include "psppire-dictview.h"
31 #include "psppire-dialog.h"
33 #include "psppire-data-window.h"
34 #include "psppire-var-view.h"
35 #include "psppire-acr.h"
37 #include "dict-display.h"
40 #include "builder-wrapper.h"
46 #define _(msgid) gettext (msgid)
47 #define N_(msgid) msgid
52 COMBO_MODEL_COL_DESC = 0,
53 COMBO_MODEL_COL_SYNTAX,
54 COMBO_MODEL_COL_SRC_VARS,
62 PsppireDataWindow *de ;
64 GtkWidget *break_variables;
66 GtkWidget *replace_radiobutton;
67 GtkWidget *add_radiobutton;
68 GtkWidget *filename_radiobutton;
69 GtkWidget *filename_button;
70 GtkWidget *filename_box;
71 GtkWidget *filename_label;
73 GtkWidget *function_combo;
75 GtkWidget *summary_acr;
76 GtkWidget *summary_var_name_entry;
77 GtkWidget *summary_var_label_entry;
79 GtkWidget *summary_sv;
80 GtkWidget *summary_sv_entry;
82 GtkWidget *summary_arg1;
83 GtkWidget *summary_arg2;
85 GtkWidget *summary_arg1_entry;
86 GtkWidget *summary_arg2_entry;
88 GtkWidget *sorted_button;
89 GtkWidget *needs_sort_button;
95 static char * generate_syntax (const struct aggregate *rd);
98 static void update_arguments (struct aggregate *agg);
102 refresh (struct aggregate *agg)
104 GtkTreeModel *liststore =
105 gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
106 gtk_list_store_clear (GTK_LIST_STORE (liststore));
108 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->add_radiobutton), TRUE);
109 gtk_label_set_text (GTK_LABEL (agg->filename_label), "");
112 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->needs_sort_button), TRUE);
114 gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), "");
115 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), "");
116 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), "");
117 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), "");
118 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), "N_BREAK");
119 gtk_editable_select_region (GTK_EDITABLE (agg->summary_var_name_entry), 0, -1);
121 gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), N);
123 gtk_list_store_clear (PSPPIRE_ACR (agg->summary_acr)->list_store);
125 update_arguments (agg);
130 dialog_state_valid (gpointer data)
133 const struct aggregate *agg = data;
135 GtkTreeModel *liststore =
136 gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
138 if ( ! gtk_tree_model_get_iter_first (liststore, &iter))
141 liststore = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
143 if ( ! gtk_tree_model_get_iter_first (liststore, &iter))
151 choose_filename (struct aggregate *fd)
153 GtkFileFilter *filter;
155 GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Aggregate destination file"),
157 GTK_FILE_CHOOSER_ACTION_SAVE,
158 GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
159 GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
161 g_object_set (dialog, "local-only", FALSE, NULL);
163 gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE);
166 filter = gtk_file_filter_new ();
167 gtk_file_filter_set_name (filter, _("System Files (*.sav)"));
168 gtk_file_filter_add_mime_type (filter, "application/x-spss-sav");
169 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
171 filter = gtk_file_filter_new ();
172 gtk_file_filter_set_name (filter, _("Compressed System Files (*.zsav)"));
173 gtk_file_filter_add_pattern (filter, "*.zsav");
174 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
176 filter = gtk_file_filter_new ();
177 gtk_file_filter_set_name (filter, _("Portable Files (*.por) "));
178 gtk_file_filter_add_mime_type (filter, "application/x-spss-por");
179 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
182 if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT)
186 filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog));
188 gtk_label_set_text (GTK_LABEL (fd->filename_label), filename);
194 gtk_widget_destroy (dialog);
199 populate_combo_model (GtkComboBox *cb)
201 GtkListStore *list = gtk_list_store_new (4, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT, G_TYPE_INT);
203 const struct agr_func *af = agr_func_tab;
204 GtkCellRenderer *renderer ;
206 for (af = agr_func_tab; af->name; ++af)
208 const gchar *s = af->description;
212 gtk_list_store_append (list, &iter);
213 gtk_list_store_set (list, &iter,
214 COMBO_MODEL_COL_DESC, gettext (s),
215 COMBO_MODEL_COL_SYNTAX, af->name,
216 COMBO_MODEL_COL_SRC_VARS, af->src_vars,
217 COMBO_MODEL_COL_ARITY, af->n_args,
221 renderer = gtk_cell_renderer_text_new ();
222 gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (cb), renderer, FALSE);
224 gtk_cell_layout_add_attribute (GTK_CELL_LAYOUT (cb), renderer, "text", 0);
226 gtk_combo_box_set_model (GTK_COMBO_BOX (cb), GTK_TREE_MODEL (list));
227 g_object_unref (list);
232 /* Returns TRUE iff all the necessary controls have been set to
233 completely specify a summary function */
235 summary_complete (const struct aggregate *agg)
239 enum agr_src_vars src_vars;
241 GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
243 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry))))
246 ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
253 gtk_tree_model_get (model,
255 COMBO_MODEL_COL_ARITY, &n_args,
256 COMBO_MODEL_COL_SRC_VARS, &src_vars,
259 if ( src_vars == AGR_SV_YES )
261 if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry))))
267 if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry))))
273 if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry))))
283 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string);
287 render_summary (GtkTreeViewColumn *tree_column,
288 GtkCellRenderer *cell,
289 GtkTreeModel *tree_model,
293 struct aggregate *agg = data;
295 GString *string = g_string_new ("");
297 append_summary_spec (agg, iter, string);
300 g_object_set (cell, "text", string->str, NULL);
302 g_string_free (string, TRUE);
306 /* Enable/Disable the summary variable ACR */
308 update_acr (struct aggregate *agg)
310 gboolean ready = summary_complete (agg);
312 psppire_acr_set_enabled (PSPPIRE_ACR (agg->summary_acr), ready);
316 /* Update the sensitivity of the summary variable argument fields */
318 update_arguments (struct aggregate *agg)
322 gboolean ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
326 GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
328 enum agr_src_vars src_vars;
329 gtk_tree_model_get (model,
331 COMBO_MODEL_COL_ARITY, &n_args,
332 COMBO_MODEL_COL_SRC_VARS, &src_vars,
335 gtk_widget_set_sensitive (agg->summary_sv, src_vars != AGR_SV_NO);
336 gtk_widget_set_sensitive (agg->summary_arg2, n_args >= 2);
337 gtk_widget_set_sensitive (agg->summary_arg1, n_args >= 1);
341 gtk_widget_set_sensitive (agg->summary_sv, FALSE);
342 gtk_widget_set_sensitive (agg->summary_arg2, FALSE);
343 gtk_widget_set_sensitive (agg->summary_arg1, FALSE);
349 SUMMARY_COL_VARNAME = 0,
350 SUMMARY_COL_VARLABEL,
357 /* Set VAL to the value appropriate for COL according to the
358 current state of the dialog */
360 get_summary_spec (gint col, GValue *val, gpointer data)
362 const struct aggregate *agg = data;
365 case SUMMARY_COL_VARNAME:
366 g_value_init (val, G_TYPE_STRING);
367 g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry)));
369 case SUMMARY_COL_VARLABEL:
370 g_value_init (val, G_TYPE_STRING);
371 g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_label_entry)));
373 case SUMMARY_COL_SRCVAR:
374 g_value_init (val, G_TYPE_STRING);
375 g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry)));
377 case SUMMARY_COL_FUNCIDX:
378 g_value_init (val, G_TYPE_INT);
379 g_value_set_int (val, gtk_combo_box_get_active (GTK_COMBO_BOX (agg->function_combo)));
381 case SUMMARY_COL_ARG1:
383 const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry));
384 g_value_init (val, G_TYPE_DOUBLE);
385 g_value_set_double (val, g_strtod (text, 0));
388 case SUMMARY_COL_ARG2:
390 const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry));
391 g_value_init (val, G_TYPE_DOUBLE);
392 g_value_set_double (val, g_strtod (text, 0));
396 g_assert_not_reached ();
404 /* Update the status of the dialog box according to what row of the ACR's treeview
407 on_acr_change (const struct aggregate *agg, GtkTreeView *tv)
409 const gchar *varname;
417 GtkTreePath *path = NULL;
418 GtkTreeModel *model = gtk_tree_view_get_model (tv);
419 gtk_tree_view_get_cursor (tv, &path, NULL);
421 gtk_tree_model_get_iter (model, &iter, path);
423 gtk_tree_model_get (model, &iter,
424 SUMMARY_COL_VARNAME, &varname,
425 SUMMARY_COL_VARLABEL, &label,
426 SUMMARY_COL_FUNCIDX, &f_idx,
427 SUMMARY_COL_SRCVAR, &srcvar,
428 SUMMARY_COL_ARG1, &arg1,
429 SUMMARY_COL_ARG2, &arg2,
432 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), varname);
433 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), label);
434 gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), srcvar);
436 text = c_xasprintf ("%.*g", DBL_DIG + 1, arg1);
437 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), text);
440 text = c_xasprintf ("%.*g", DBL_DIG + 1, arg2);
441 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), text);
444 gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), f_idx);
448 /* Set the pane to 50% of its maximum size */
450 set_initial_pos (GtkPaned *pane)
454 "max-position", &max_pos,
457 gtk_paned_set_position (pane, max_pos);
462 /* Pops up the Aggregate dialog box */
464 aggregate_dialog (PsppireDataWindow *dw)
472 GtkWidget *break_selector ;
474 fd.xml = builder_new ("aggregate.ui");
478 dialog = get_widget_assert (fd.xml, "psppire-dialog1");
479 source = get_widget_assert (fd.xml, "dict-view");
480 break_selector = get_widget_assert (fd.xml, "break-selector");
482 fd.pane = get_widget_assert (fd.xml, "hbox1");
484 fd.break_variables = get_widget_assert (fd.xml, "psppire-var-view1");
485 fd.filename_radiobutton = get_widget_assert (fd.xml, "filename-radiobutton");
486 fd.filename_button = get_widget_assert (fd.xml, "filename-button");
487 fd.filename_box = get_widget_assert (fd.xml, "filename-box");
488 fd.filename_label = get_widget_assert (fd.xml, "filename-label");
489 fd.replace_radiobutton = get_widget_assert (fd.xml, "replace-radiobutton");
490 fd.add_radiobutton = get_widget_assert (fd.xml, "add-radiobutton");
491 fd.function_combo = get_widget_assert (fd.xml, "function-combo");
493 fd.summary_acr = get_widget_assert (fd.xml, "psppire-acr1");
494 fd.summary_var_name_entry = get_widget_assert (fd.xml, "summary-var-name-entry");
496 fd.summary_arg1 = get_widget_assert (fd.xml, "summary-arg1");
497 fd.summary_arg2 = get_widget_assert (fd.xml, "summary-arg2");
499 fd.summary_arg1_entry = get_widget_assert (fd.xml, "summary-arg-entry1");
500 fd.summary_arg2_entry = get_widget_assert (fd.xml, "summary-arg-entry2");
502 fd.summary_var_label_entry = get_widget_assert (fd.xml, "summary-var-label-entry");
504 fd.summary_sv = get_widget_assert (fd.xml, "source-var");
505 fd.summary_sv_entry = get_widget_assert (fd.xml, "source-var-entry");
507 fd.sorted_button = get_widget_assert (fd.xml, "sorted-radiobutton");
508 fd.needs_sort_button = get_widget_assert (fd.xml, "needs-sort-radiobutton");
511 GtkTreeViewColumn *column ;
515 GtkCellRenderer *cell_renderer ;
517 GtkListStore *list = gtk_list_store_new (6,
525 psppire_acr_set_model (PSPPIRE_ACR (fd.summary_acr), list);
526 g_object_unref (list);
528 psppire_acr_set_get_value_func (PSPPIRE_ACR (fd.summary_acr),
529 get_summary_spec, &fd);
531 column = gtk_tree_view_get_column (PSPPIRE_ACR (fd.summary_acr)->tv, 0);
533 l = gtk_cell_layout_get_cells (GTK_CELL_LAYOUT (column));
535 cell_renderer = l->data;
537 gtk_tree_view_column_set_cell_data_func (column,
543 g_signal_connect_swapped (PSPPIRE_ACR (fd.summary_acr)->tv,
544 "cursor-changed", G_CALLBACK (on_acr_change), &fd);
547 g_signal_connect_swapped (fd.summary_var_name_entry, "changed", G_CALLBACK (update_acr), &fd);
548 g_signal_connect_swapped (fd.function_combo, "changed", G_CALLBACK (update_acr), &fd);
549 g_signal_connect_swapped (fd.summary_sv_entry, "changed", G_CALLBACK (update_acr), &fd);
550 g_signal_connect_swapped (fd.summary_arg1_entry, "changed", G_CALLBACK (update_acr), &fd);
551 g_signal_connect_swapped (fd.summary_arg2_entry, "changed", G_CALLBACK (update_acr), &fd);
554 g_signal_connect (fd.pane, "realize", G_CALLBACK (set_initial_pos), &fd);
557 g_signal_connect_swapped (fd.function_combo, "changed",
558 G_CALLBACK (update_arguments), &fd);
560 populate_combo_model (GTK_COMBO_BOX (fd.function_combo));
562 g_signal_connect_swapped (dialog, "refresh", G_CALLBACK (refresh), &fd);
564 gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (fd.de));
566 g_object_get (fd.de->data_editor, "dictionary", &fd.dict, NULL);
567 g_object_set (source, "model", fd.dict, NULL);
570 psppire_selector_set_filter_func (PSPPIRE_SELECTOR (break_selector), NULL);
573 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
574 dialog_state_valid, &fd);
576 g_signal_connect (fd.filename_radiobutton, "toggled",
577 G_CALLBACK (set_sensitivity_from_toggle), fd.filename_box );
579 g_signal_connect_swapped (fd.filename_button, "clicked",
580 G_CALLBACK (choose_filename), &fd);
583 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
587 case GTK_RESPONSE_OK:
588 g_free (execute_syntax_string (dw, generate_syntax (&fd)));
590 case PSPPIRE_RESPONSE_PASTE:
591 g_free (paste_syntax_to_window (generate_syntax (&fd)));
597 g_object_unref (fd.xml);
604 append_destination_filename (const struct aggregate *agg, GString *gs)
606 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->filename_radiobutton)))
609 const gchar *s = gtk_label_get_text (GTK_LABEL (agg->filename_label));
611 syntax_gen_string (&ss, ss_cstr (s));
612 g_string_append (gs, ds_cstr (&ss));
617 g_string_append (gs, "* ");
619 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->replace_radiobutton)))
620 g_string_append (gs, "MODE=REPLACE");
622 g_string_append (gs, "MODE=ADDVARIABLES");
626 /* Append the syntax of the summary function pointed to by ITER to STRING */
628 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string)
630 GtkTreeIter combo_iter;
631 char *varname = NULL;
632 char *funcname = NULL;
634 GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
635 GtkTreeModel *combo_model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
638 /* This is an index into the combo_model. Its used to get the function name */
642 enum agr_src_vars has_src_vars;
644 gchar *srcvar = NULL;
646 gtk_tree_model_get (acr_model, iter,
647 SUMMARY_COL_VARNAME, &varname,
648 SUMMARY_COL_VARLABEL, &label,
649 SUMMARY_COL_FUNCIDX, &f_idx,
650 SUMMARY_COL_SRCVAR, &srcvar,
651 SUMMARY_COL_ARG1, &arg1,
652 SUMMARY_COL_ARG2, &arg2,
655 gtk_tree_model_iter_nth_child (combo_model, &combo_iter, NULL, f_idx);
657 gtk_tree_model_get (combo_model, &combo_iter,
658 COMBO_MODEL_COL_SYNTAX, &funcname,
659 COMBO_MODEL_COL_ARITY, &arity,
660 COMBO_MODEL_COL_SRC_VARS, &has_src_vars,
663 g_string_append (string, varname);
665 if (0 != strcmp ("", label))
669 syntax_gen_string (&ss, ss_cstr (label));
670 g_string_append (string, " ");
671 g_string_append (string, ds_cstr (&ss));
675 g_string_append_printf (string, " = %s", funcname);
677 if ( has_src_vars != AGR_SV_NO)
680 ds_init_cstr (&dss, " (");
682 ds_put_cstr (&dss, srcvar);
685 ds_put_c_format (&dss, ", %.*g", DBL_DIG + 1, arg1);
688 ds_put_c_format (&dss, ", %.*g", DBL_DIG + 1, arg2);
690 ds_put_cstr (&dss, ")");
692 g_string_append (string, ds_cstr (&dss));
706 append_summary_variable_syntax (const struct aggregate *agg, GString *string)
709 GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
714 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (acr_model), &iter);
716 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (acr_model), &iter)
719 g_string_append (string, "\n\t/");
721 append_summary_spec (agg, &iter, string);
727 generate_syntax (const struct aggregate *agg)
731 GString *string = g_string_new ("AGGREGATE OUTFILE=");
733 append_destination_filename (agg, string);
735 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->sorted_button)))
736 g_string_append (string, "\n\t/PRESORTED");
738 g_string_append (string, "\n\t/BREAK=");
740 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (agg->break_variables), 0, string);
742 append_summary_variable_syntax (agg, string);
744 g_string_append (string, ".\n");
748 g_string_free (string, FALSE);