1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2010 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"
20 #include <language/syntax-string-source.h>
22 #include <language/stats/aggregate.h>
24 #include <ui/syntax-gen.h>
25 #include <libpspp/str.h>
27 #include "aggregate-dialog.h"
28 #include "psppire-selector.h"
29 #include "psppire-dictview.h"
30 #include "psppire-dialog.h"
32 #include "psppire-data-window.h"
33 #include "psppire-var-view.h"
34 #include "psppire-acr.h"
36 #include "dict-display.h"
44 #define _(msgid) gettext (msgid)
45 #define N_(msgid) msgid
50 COMBO_MODEL_COL_DESC = 0,
51 COMBO_MODEL_COL_SYNTAX,
52 COMBO_MODEL_COL_SRC_VARS,
60 PsppireDataWindow *de ;
62 GtkWidget *break_variables;
64 GtkWidget *replace_radiobutton;
65 GtkWidget *add_radiobutton;
66 GtkWidget *filename_radiobutton;
67 GtkWidget *filename_button;
68 GtkWidget *filename_box;
69 GtkWidget *filename_label;
71 GtkWidget *function_combo;
73 GtkWidget *summary_acr;
74 GtkWidget *summary_var_name_entry;
75 GtkWidget *summary_var_label_entry;
77 GtkWidget *summary_sv;
78 GtkWidget *summary_sv_entry;
80 GtkWidget *summary_arg1;
81 GtkWidget *summary_arg2;
83 GtkWidget *summary_arg1_entry;
84 GtkWidget *summary_arg2_entry;
86 GtkWidget *sorted_button;
87 GtkWidget *needs_sort_button;
91 static char * generate_syntax (const struct aggregate *rd);
94 /* Makes widget W's sensitivity follow the active state of TOGGLE */
96 sensitive_if_active (GtkToggleButton *toggle, GtkWidget *w)
98 gboolean active = gtk_toggle_button_get_active (toggle);
100 gtk_widget_set_sensitive (w, active);
103 static void update_arguments (struct aggregate *agg);
107 refresh (struct aggregate *agg)
109 GtkTreeModel *liststore =
110 gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
111 gtk_list_store_clear (GTK_LIST_STORE (liststore));
113 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->add_radiobutton), TRUE);
114 gtk_label_set_text (GTK_LABEL (agg->filename_label), "");
117 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->needs_sort_button), TRUE);
119 gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), "");
120 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), "");
121 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), "");
122 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), "");
123 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), "");
125 gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), -1);
127 gtk_list_store_clear (PSPPIRE_ACR (agg->summary_acr)->list_store);
129 update_arguments (agg);
134 dialog_state_valid (gpointer data)
137 const struct aggregate *agg = data;
139 GtkTreeModel *liststore =
140 gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
142 if ( ! gtk_tree_model_get_iter_first (liststore, &iter))
145 liststore = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
147 if ( ! gtk_tree_model_get_iter_first (liststore, &iter))
155 choose_filename (struct aggregate *fd)
157 GtkFileFilter *filter;
159 GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Aggregate destination file"),
161 GTK_FILE_CHOOSER_ACTION_SAVE,
162 GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
163 GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
166 gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE);
169 filter = gtk_file_filter_new ();
170 gtk_file_filter_set_name (filter, _("System Files (*.sav)"));
171 gtk_file_filter_add_pattern (filter, "*.sav");
172 gtk_file_filter_add_pattern (filter, "*.SAV");
173 gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
175 filter = gtk_file_filter_new ();
176 gtk_file_filter_set_name (filter, _("Portable Files (*.por) "));
177 gtk_file_filter_add_pattern (filter, "*.por");
178 gtk_file_filter_add_pattern (filter, "*.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, 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));
231 /* Returns TRUE iff all the necessary controls have been set to
232 completely specify a summary function */
234 summary_complete (const struct aggregate *agg)
238 enum agr_src_vars src_vars;
240 GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
242 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry))))
245 ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
252 gtk_tree_model_get (model,
254 COMBO_MODEL_COL_ARITY, &n_args,
255 COMBO_MODEL_COL_SRC_VARS, &src_vars,
258 if ( src_vars == AGR_SV_YES )
260 if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry))))
266 if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry))))
272 if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry))))
282 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string);
286 render_summary (GtkTreeViewColumn *tree_column,
287 GtkCellRenderer *cell,
288 GtkTreeModel *tree_model,
292 struct aggregate *agg = data;
294 GString *string = g_string_new ("");
296 append_summary_spec (agg, iter, string);
299 g_object_set (cell, "text", string->str, NULL);
301 g_string_free (string, TRUE);
305 /* Enable/Disable the summary variable ACR */
307 update_acr (struct aggregate *agg)
309 gboolean ready = summary_complete (agg);
311 psppire_acr_set_enabled (PSPPIRE_ACR (agg->summary_acr), ready);
315 /* Update the sensitivity of the summary variable argument fields */
317 update_arguments (struct aggregate *agg)
321 gboolean ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
325 GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
327 enum agr_src_vars src_vars;
328 gtk_tree_model_get (model,
330 COMBO_MODEL_COL_ARITY, &n_args,
331 COMBO_MODEL_COL_SRC_VARS, &src_vars,
334 gtk_widget_set_sensitive (agg->summary_sv, src_vars != AGR_SV_NO);
335 gtk_widget_set_sensitive (agg->summary_arg2, n_args >= 2);
336 gtk_widget_set_sensitive (agg->summary_arg1, n_args >= 1);
340 gtk_widget_set_sensitive (agg->summary_sv, FALSE);
341 gtk_widget_set_sensitive (agg->summary_arg2, FALSE);
342 gtk_widget_set_sensitive (agg->summary_arg1, FALSE);
348 SUMMARY_COL_VARNAME = 0,
349 SUMMARY_COL_VARLABEL,
356 /* Set VAL to the value appropriate for COL according to the
357 current state of the dialog */
359 get_summary_spec (gint col, GValue *val,
360 const struct aggregate *agg)
364 case SUMMARY_COL_VARNAME:
365 g_value_init (val, G_TYPE_STRING);
366 g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry)));
368 case SUMMARY_COL_VARLABEL:
369 g_value_init (val, G_TYPE_STRING);
370 g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_label_entry)));
372 case SUMMARY_COL_SRCVAR:
373 g_value_init (val, G_TYPE_STRING);
374 g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry)));
376 case SUMMARY_COL_FUNCIDX:
377 g_value_init (val, G_TYPE_INT);
378 g_value_set_int (val, gtk_combo_box_get_active (GTK_COMBO_BOX (agg->function_combo)));
380 case SUMMARY_COL_ARG1:
382 const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry));
383 g_value_init (val, G_TYPE_DOUBLE);
384 g_value_set_double (val, g_strtod (text, 0));
387 case SUMMARY_COL_ARG2:
389 const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry));
390 g_value_init (val, G_TYPE_DOUBLE);
391 g_value_set_double (val, g_strtod (text, 0));
395 g_assert_not_reached ();
403 /* Update the status of the dialog box according to what row of the ACR's treeview
406 on_acr_change (const struct aggregate *agg, GtkTreeView *tv)
408 const gchar *varname;
416 GtkTreePath *path = NULL;
417 GtkTreeModel *model = gtk_tree_view_get_model (tv);
418 gtk_tree_view_get_cursor (tv, &path, NULL);
420 gtk_tree_model_get_iter (model, &iter, path);
422 gtk_tree_model_get (model, &iter,
423 SUMMARY_COL_VARNAME, &varname,
424 SUMMARY_COL_VARLABEL, &label,
425 SUMMARY_COL_FUNCIDX, &f_idx,
426 SUMMARY_COL_SRCVAR, &srcvar,
427 SUMMARY_COL_ARG1, &arg1,
428 SUMMARY_COL_ARG2, &arg2,
431 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), varname);
432 gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), label);
433 gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), srcvar);
435 text = g_strdup_printf ("%g", arg1);
436 gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), text);
439 text = g_strdup_printf ("%g", arg2);
440 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 /* Pops up the Aggregate dialog box */
450 aggregate_dialog (PsppireDataWindow *dw)
460 GtkWidget *break_selector ;
462 fd.xml = builder_new ("aggregate.ui");
466 dialog = get_widget_assert (fd.xml, "psppire-dialog1");
467 source = get_widget_assert (fd.xml, "dict-view");
468 break_selector = get_widget_assert (fd.xml, "break-selector");
470 fd.break_variables = get_widget_assert (fd.xml, "psppire-var-view1");
471 fd.filename_radiobutton = get_widget_assert (fd.xml, "filename-radiobutton");
472 fd.filename_button = get_widget_assert (fd.xml, "filename-button");
473 fd.filename_box = get_widget_assert (fd.xml, "filename-box");
474 fd.filename_label = get_widget_assert (fd.xml, "filename-label");
475 fd.replace_radiobutton = get_widget_assert (fd.xml, "replace-radiobutton");
476 fd.add_radiobutton = get_widget_assert (fd.xml, "add-radiobutton");
477 fd.function_combo = get_widget_assert (fd.xml, "function-combo");
479 fd.summary_acr = get_widget_assert (fd.xml, "psppire-acr1");
480 fd.summary_var_name_entry = get_widget_assert (fd.xml, "summary-var-name-entry");
482 fd.summary_arg1 = get_widget_assert (fd.xml, "summary-arg1");
483 fd.summary_arg2 = get_widget_assert (fd.xml, "summary-arg2");
485 fd.summary_arg1_entry = get_widget_assert (fd.xml, "summary-arg-entry1");
486 fd.summary_arg2_entry = get_widget_assert (fd.xml, "summary-arg-entry2");
488 fd.summary_var_label_entry = get_widget_assert (fd.xml, "summary-var-label-entry");
490 fd.summary_sv = get_widget_assert (fd.xml, "source-var");
491 fd.summary_sv_entry = get_widget_assert (fd.xml, "source-var-entry");
493 fd.sorted_button = get_widget_assert (fd.xml, "sorted-radiobutton");
494 fd.needs_sort_button = get_widget_assert (fd.xml, "needs-sort-radiobutton");
497 GtkTreeViewColumn *column ;
501 GtkCellRenderer *cell_renderer ;
503 GtkListStore *list = gtk_list_store_new (6,
511 psppire_acr_set_model (PSPPIRE_ACR (fd.summary_acr), list);
513 psppire_acr_set_get_value_func (PSPPIRE_ACR (fd.summary_acr),
514 get_summary_spec, &fd);
516 column = gtk_tree_view_get_column (PSPPIRE_ACR (fd.summary_acr)->tv, 0);
518 l = gtk_tree_view_column_get_cell_renderers (column);
520 cell_renderer = l->data;
522 gtk_tree_view_column_set_cell_data_func (column,
528 g_signal_connect_swapped (PSPPIRE_ACR (fd.summary_acr)->tv,
529 "cursor-changed", G_CALLBACK (on_acr_change), &fd);
532 g_signal_connect_swapped (fd.summary_var_name_entry, "changed", G_CALLBACK (update_acr), &fd);
533 g_signal_connect_swapped (fd.function_combo, "changed", G_CALLBACK (update_acr), &fd);
534 g_signal_connect_swapped (fd.summary_sv_entry, "changed", G_CALLBACK (update_acr), &fd);
535 g_signal_connect_swapped (fd.summary_arg1_entry, "changed", G_CALLBACK (update_acr), &fd);
536 g_signal_connect_swapped (fd.summary_arg2_entry, "changed", G_CALLBACK (update_acr), &fd);
538 g_signal_connect_swapped (fd.function_combo, "changed",
539 G_CALLBACK (update_arguments), &fd);
541 populate_combo_model (GTK_COMBO_BOX (fd.function_combo));
543 g_signal_connect_swapped (dialog, "refresh", G_CALLBACK (refresh), &fd);
545 g_object_get (fd.de->data_editor, "var-store", &vs, NULL);
547 gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (fd.de));
549 g_object_get (vs, "dictionary", &fd.dict, NULL);
550 g_object_set (source, "model", fd.dict, NULL);
553 psppire_selector_set_filter_func (PSPPIRE_SELECTOR (break_selector), NULL);
556 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
557 dialog_state_valid, &fd);
559 g_signal_connect (fd.filename_radiobutton, "toggled",
560 G_CALLBACK (sensitive_if_active), fd.filename_box );
562 g_signal_connect_swapped (fd.filename_button, "clicked",
563 G_CALLBACK (choose_filename), &fd);
566 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
570 case GTK_RESPONSE_OK:
572 gchar *syntax = generate_syntax (&fd);
574 struct getl_interface *sss = create_syntax_string_source (syntax);
575 execute_syntax (sss);
580 case PSPPIRE_RESPONSE_PASTE:
582 gchar *syntax = generate_syntax (&fd);
583 paste_syntax_to_window (syntax);
592 g_object_unref (fd.xml);
599 append_destination_filename (const struct aggregate *agg, GString *gs)
601 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->filename_radiobutton)))
604 const gchar *s = gtk_label_get_text (GTK_LABEL (agg->filename_label));
606 syntax_gen_string (&ss, ss_cstr (s));
607 g_string_append (gs, ds_cstr (&ss));
612 g_string_append (gs, "* ");
614 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->replace_radiobutton)))
615 g_string_append (gs, "MODE=REPLACE");
617 g_string_append (gs, "MODE=ADDVARIABLES");
621 /* Append the syntax of the summary function pointed to by ITER to STRING */
623 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string)
625 GtkTreeIter combo_iter;
627 const char *funcname;
629 GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
630 GtkTreeModel *combo_model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
633 /* This is an index into the combo_model. Its used to get the function name */
637 enum agr_src_vars has_src_vars;
639 const gchar *srcvar ;
641 gtk_tree_model_get (acr_model, iter,
642 SUMMARY_COL_VARNAME, &varname,
643 SUMMARY_COL_VARLABEL, &label,
644 SUMMARY_COL_FUNCIDX, &f_idx,
645 SUMMARY_COL_SRCVAR, &srcvar,
646 SUMMARY_COL_ARG1, &arg1,
647 SUMMARY_COL_ARG2, &arg2,
650 gtk_tree_model_iter_nth_child (combo_model, &combo_iter, NULL, f_idx);
652 gtk_tree_model_get (combo_model, &combo_iter,
653 COMBO_MODEL_COL_SYNTAX, &funcname,
654 COMBO_MODEL_COL_ARITY, &arity,
655 COMBO_MODEL_COL_SRC_VARS, &has_src_vars,
658 g_string_append (string, varname);
660 if (0 != strcmp ("", label))
664 syntax_gen_string (&ss, ss_cstr (label));
665 g_string_append (string, " ");
666 g_string_append (string, ds_cstr (&ss));
670 g_string_append_printf (string, " = %s", funcname);
672 if ( has_src_vars != AGR_SV_NO)
674 g_string_append (string, " (");
676 g_string_append (string, srcvar);
679 g_string_append_printf (string, ", %g", arg1);
682 g_string_append_printf (string, ", %g", arg2);
684 g_string_append (string, ")");
691 append_summary_variable_syntax (const struct aggregate *agg, GString *string)
694 GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
699 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (acr_model), &iter);
701 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (acr_model), &iter)
704 g_string_append (string, "\n\t/");
706 append_summary_spec (agg, &iter, string);
712 generate_syntax (const struct aggregate *agg)
716 GString *string = g_string_new ("AGGREGATE OUTFILE=");
718 append_destination_filename (agg, string);
720 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->sorted_button)))
721 g_string_append (string, "\n\t/PRESORTED");
723 g_string_append (string, "\n\t/BREAK=");
725 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (agg->break_variables), 0, string);
727 append_summary_variable_syntax (agg, string);
729 g_string_append (string, ".\n");
733 g_string_free (string, FALSE);