1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007, 2009 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/>. */
17 /* This module implements the RECODE dialog.
19 It has two forms. One for recoding values into the same variable.
20 The second for recoding into different variables.
25 #include "recode-dialog.h"
29 #include "psppire-var-view.h"
34 #include <language/syntax-string-source.h>
35 #include <ui/gui/psppire-data-window.h>
36 #include <ui/gui/dialog-common.h>
37 #include <ui/gui/dict-display.h>
38 #include <ui/gui/helper.h>
39 #include <ui/gui/psppire-dialog.h>
40 #include <ui/gui/psppire-var-store.h>
42 #include <ui/syntax-gen.h>
44 #include "psppire-acr.h"
47 #define _(msgid) gettext (msgid)
48 #define N_(msgid) msgid
51 /* Define a boxed type to represent a value which is a candidate
52 to replace an existing value */
65 enum new_value_type type;
73 static struct new_value *
74 new_value_copy (struct new_value *nv)
76 struct new_value *copy = g_memdup (nv, sizeof (*copy));
78 if ( nv->type == NV_STRING )
79 copy->v.s = xstrdup (nv->v.s);
86 new_value_free (struct new_value *nv)
88 if ( nv->type == NV_STRING )
96 new_value_to_string (const GValue *src, GValue *dest)
98 const struct new_value *nv = g_value_get_boxed (src);
106 gchar *text = g_strdup_printf ("%g", nv->v.v);
107 g_value_set_string (dest, text);
112 g_value_set_string (dest, nv->v.s);
115 g_value_set_string (dest, "COPY");
118 g_value_set_string (dest, "SYSMIS");
121 /* Shouldn't ever happen */
122 g_warning ("Invalid type in new recode value");
123 g_value_set_string (dest, "???");
129 new_value_get_type (void)
135 t = g_boxed_type_register_static ("psppire-recode-new-values",
136 (GBoxedCopyFunc) new_value_copy,
137 (GBoxedFreeFunc) new_value_free);
139 g_value_register_transform_func (t, G_TYPE_STRING,
140 new_value_to_string);
150 /* A boxed type representing a value, or a range of values which may
151 potentially be replaced by something */
167 enum old_value_type type;
176 static struct old_value *
177 old_value_copy (struct old_value *ov)
179 struct old_value *copy = g_memdup (ov, sizeof (*copy));
181 if ( ov->type == OV_STRING )
182 copy->v.s = g_strdup (ov->v.s);
189 old_value_free (struct old_value *ov)
191 if (ov->type == OV_STRING)
197 old_value_to_string (const GValue *src, GValue *dest)
199 const struct old_value *ov = g_value_get_boxed (src);
205 gchar *text = g_strdup_printf ("%g", ov->v.v);
206 g_value_set_string (dest, text);
211 g_value_set_string (dest, ov->v.s);
214 g_value_set_string (dest, "MISSING");
217 g_value_set_string (dest, "SYSMIS");
220 g_value_set_string (dest, "ELSE");
225 char en_dash[6] = {0,0,0,0,0,0};
227 g_unichar_to_utf8 (0x2013, en_dash);
229 text = g_strdup_printf ("%g %s %g",
233 g_value_set_string (dest, text);
240 char en_dash[6] = {0,0,0,0,0,0};
242 g_unichar_to_utf8 (0x2013, en_dash);
244 text = g_strdup_printf ("LOWEST %s %g",
248 g_value_set_string (dest, text);
255 char en_dash[6] = {0,0,0,0,0,0};
257 g_unichar_to_utf8 (0x2013, en_dash);
259 text = g_strdup_printf ("%g %s HIGHEST",
263 g_value_set_string (dest, text);
268 g_warning ("Invalid type in old recode value");
269 g_value_set_string (dest, "???");
275 old_value_get_type (void)
281 t = g_boxed_type_register_static ("psppire-recode-old-values",
282 (GBoxedCopyFunc) old_value_copy,
283 (GBoxedFreeFunc) old_value_free);
285 g_value_register_transform_func (t, G_TYPE_STRING,
286 old_value_to_string);
304 BUTTON_OLD_HIGH_DOWN,
314 PsppireDialog *old_and_new_dialog;
316 GtkWidget *dict_treeview;
317 GtkWidget *variable_treeview;
318 GtkWidget *toggle[n_BUTTONS];
320 GtkWidget *strings_box;
321 GtkWidget *convert_button;
322 GtkWidget *new_copy_label;
324 GtkWidget *ov_value_entry;
325 GtkWidget *new_value_entry;
327 GtkWidget *ov_range_lower_entry;
328 GtkWidget *ov_range_upper_entry;
329 GtkWidget *ov_low_up_entry;
330 GtkWidget *ov_high_down_entry;
332 GtkListStore *value_map;
334 /* Indicates that the INTO {new variables} form of the dialog
340 gboolean input_var_is_string;
342 GtkListStore *var_map;
343 GtkWidget *new_name_entry;
344 GtkWidget *new_label_entry;
345 GtkWidget *change_button;
347 GtkWidget *string_button;
348 GtkWidget *width_entry;
352 static void run_old_and_new_dialog (struct recode_dialog *rd);
355 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
357 gtk_widget_set_sensitive (rd->change_button, FALSE);
358 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
359 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
363 gtk_list_store_clear (GTK_LIST_STORE (rd->var_map));
367 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
369 gtk_list_store_clear (GTK_LIST_STORE (vars));
372 gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
375 static char * generate_syntax (const struct recode_dialog *rd);
390 /* Dialog is valid iff at least one variable has been selected,
391 AND the list of mappings is not empty.
394 dialog_state_valid (gpointer data)
396 GtkTreeIter not_used;
397 struct recode_dialog *rd = data;
399 if ( ! rd->value_map )
402 if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
412 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
415 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map),
420 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
421 COL_NEW_NAME, &name, -1);
432 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
434 if ( !gtk_tree_model_get_iter_first (vars, ¬_used))
443 on_old_new_show (struct recode_dialog *rd)
445 gtk_toggle_button_set_active
446 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_OLD_VALUE]), TRUE);
448 g_signal_emit_by_name (rd->toggle[BUTTON_OLD_VALUE], "toggled");
450 gtk_toggle_button_set_active
451 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
453 g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
455 g_object_set (rd->toggle[BUTTON_NEW_COPY],
456 "visible", rd->different, NULL);
458 g_object_set (rd->new_copy_label,
459 "visible", rd->different, NULL);
461 g_object_set (rd->strings_box,
462 "visible", rd->different, NULL);
465 /* Sets the sensitivity of TARGET dependent upon the active status
468 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
470 gboolean state = gtk_toggle_button_get_active (button);
472 /* g_print ("%s Setting %p (%s) to %d because of %p\n",
473 __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
475 gtk_widget_set_sensitive (target, state);
478 static void recode_dialog (PsppireDataWindow *de, gboolean diff);
481 /* Pops up the Recode Same version of the dialog box */
483 recode_same_dialog (GObject *o, gpointer data)
485 PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
487 recode_dialog (de, FALSE);
490 /* Pops up the Recode Different version of the dialog box */
492 recode_different_dialog (GObject *o, gpointer data)
494 PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
496 recode_dialog (de, TRUE);
500 render_new_var_name (GtkTreeViewColumn *tree_column,
501 GtkCellRenderer *cell,
502 GtkTreeModel *tree_model,
506 gchar *new_var_name = NULL;
508 gtk_tree_model_get (tree_model, iter, COL_NEW_NAME, &new_var_name, -1);
510 g_object_set (cell, "text", new_var_name, NULL);
512 g_free (new_var_name);
516 /* This might need to be changed to something less naive.
517 In particular, what happends with dates, etc?
520 num_to_string (gdouble x)
522 return g_strdup_printf ("%g", x);
525 /* Callback which gets called when a new row is selected
526 in the acr's variable treeview.
527 We use if to set the togglebuttons and entries to correspond to the
531 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
533 struct recode_dialog *rd = data;
534 GtkTreeModel *model = NULL;
537 GValue ov_value = {0};
538 GValue nv_value = {0};
539 struct old_value *ov = NULL;
540 struct new_value *nv = NULL;
542 if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
546 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
547 COL_VALUE_OLD, &ov_value);
549 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
550 COL_VALUE_NEW, &nv_value);
552 ov = g_value_get_boxed (&ov_value);
553 nv = g_value_get_boxed (&nv_value);
561 gchar *str = num_to_string (nv->v.v);
563 gtk_toggle_button_set_active
564 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
566 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
571 gtk_toggle_button_set_active
572 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
574 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
577 gtk_toggle_button_set_active
578 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
582 gtk_toggle_button_set_active
583 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
587 g_warning ("Invalid new value type");
591 g_value_unset (&nv_value);
599 gtk_toggle_button_set_active
600 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
602 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), ov->v.s);
609 gtk_toggle_button_set_active
610 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
612 str = num_to_string (ov->v.v);
614 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), str);
621 gtk_toggle_button_set_active
622 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_SYSMIS]), TRUE);
626 gtk_toggle_button_set_active
627 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_MISSING]), TRUE);
634 gtk_toggle_button_set_active
635 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_RANGE]), TRUE);
637 str = num_to_string (ov->v.range[0]);
639 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_lower_entry), str);
644 str = num_to_string (ov->v.range[1]);
646 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_upper_entry), str);
654 gchar *str = num_to_string (ov->v.range[1]);
656 gtk_toggle_button_set_active
657 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_LOW_UP]), TRUE);
659 gtk_entry_set_text (GTK_ENTRY (rd->ov_low_up_entry), str);
667 gchar *str = num_to_string (ov->v.range[0]);
669 gtk_toggle_button_set_active
670 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_HIGH_DOWN]), TRUE);
672 gtk_entry_set_text (GTK_ENTRY (rd->ov_high_down_entry), str);
679 gtk_toggle_button_set_active
680 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_ELSE]), TRUE);
684 g_warning ("Unknown old value type");
687 g_value_unset (&ov_value);
691 /* Callback which gets called when a new row is selected
692 in the variable treeview.
693 It sets the name and label entry widgets to reflect the
694 currently selected row.
697 on_selection_change (GtkTreeSelection *selection, gpointer data)
699 struct recode_dialog *rd = data;
700 GtkTreeModel *model = GTK_TREE_MODEL (rd->var_map);
702 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
704 if ( rows && !rows->next)
706 /* Exactly one row is selected */
713 gtk_widget_set_sensitive (rd->change_button, TRUE);
714 gtk_widget_set_sensitive (rd->new_name_entry, TRUE);
715 gtk_widget_set_sensitive (rd->new_label_entry, TRUE);
717 ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
719 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
721 COL_NEW_LABEL, &label,
724 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), name ? name : "");
725 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), label ? label : "");
732 gtk_widget_set_sensitive (rd->change_button, FALSE);
733 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
734 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
736 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
737 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
740 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
745 on_string_toggled (GtkToggleButton *b, struct recode_dialog *rd)
748 if (! rd->input_var_is_string )
751 active = gtk_toggle_button_get_active (b);
752 gtk_widget_set_sensitive (rd->convert_button, !active);
757 on_convert_toggled (GtkToggleButton *b, struct recode_dialog *rd)
761 g_return_if_fail (rd->input_var_is_string);
763 active = gtk_toggle_button_get_active (b);
764 gtk_widget_set_sensitive (rd->string_button, !active);
769 on_change_clicked (GObject *obj, gpointer data)
771 struct recode_dialog *rd = data;
772 GtkTreeModel *model = GTK_TREE_MODEL (rd->var_map);
774 GtkTreeSelection *selection =
775 gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
777 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
779 const gchar *dest_var_name =
780 gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
782 const gchar *dest_var_label =
783 gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
788 gtk_tree_model_get_iter (model, &iter, rows->data);
790 gtk_list_store_set (rd->var_map, &iter,
791 COL_NEW_NAME, dest_var_name,
792 COL_NEW_LABEL, dest_var_label,
795 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
800 /* If there's nothing selected in the variable treeview,
801 then automatically select the first item */
803 select_something (GtkTreeModel *treemodel,
808 struct recode_dialog *rd = data;
809 GtkTreeSelection *sel;
811 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
813 if ( gtk_tree_selection_count_selected_rows (sel) < 1)
817 gtk_tree_model_get_iter_first (treemodel, &iter);
819 gtk_tree_selection_select_iter (sel, &iter);
824 /* Callback for the new_value_entry and new_value_togglebutton widgets.
825 It's used to enable/disable the acr. */
827 set_acr (struct recode_dialog *rd)
831 if ( !gtk_toggle_button_get_active
832 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
834 psppire_acr_set_enabled (rd->acr, TRUE);
838 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
840 psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
844 recode_dialog (PsppireDataWindow *de, gboolean diff)
848 struct recode_dialog rd;
850 GtkBuilder *builder = builder_new ("recode.ui");
852 GtkWidget *selector = get_widget_assert (builder, "psppire-selector1");
854 GtkWidget *oldandnew = get_widget_assert (builder, "button1");
857 GtkWidget *output_variable_box = get_widget_assert (builder,"frame4");
860 PsppireVarStore *vs = NULL;
862 g_object_get (de->data_editor, "var-store", &vs, NULL);
864 rd.change_button = get_widget_assert (builder, "change-button");
866 rd.dialog = get_widget_assert (builder, "recode-dialog");
867 rd.dict_treeview = get_widget_assert (builder, "treeview1");
868 rd.variable_treeview = get_widget_assert (builder, "treeview2");
869 rd.new_name_entry = get_widget_assert (builder, "dest-name-entry");
870 rd.new_label_entry = get_widget_assert (builder, "dest-label-entry");
872 g_object_get (vs, "dictionary", &rd.dict, NULL);
874 rd.value_map = gtk_list_store_new (2,
875 old_value_get_type (),
876 new_value_get_type ()
879 g_object_set (output_variable_box, "visible", diff, NULL);
882 gtk_window_set_title (GTK_WINDOW (rd.dialog),
883 _("Recode into Different Variables"));
885 gtk_window_set_title (GTK_WINDOW (rd.dialog),
886 _("Recode into Same Variables"));
890 gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
892 g_object_set (rd.dict_treeview, "model", rd.dict, NULL);
896 GtkTreeSelection *sel;
897 GtkTreeViewColumn *col;
898 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
900 rd.var_map = gtk_list_store_new (n_COL_VARS, G_TYPE_INT,
905 gtk_tree_view_set_model (GTK_TREE_VIEW (rd.variable_treeview),
906 GTK_TREE_MODEL (rd.var_map));
908 col = gtk_tree_view_column_new_with_attributes (_("Old"),
913 gtk_tree_view_column_set_cell_data_func (col, renderer,
918 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
921 renderer = gtk_cell_renderer_text_new ();
923 col = gtk_tree_view_column_new_with_attributes (_("New"),
928 gtk_tree_view_column_set_cell_data_func (col, renderer,
933 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
935 g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
937 g_signal_connect (rd.change_button, "clicked",
938 G_CALLBACK (on_change_clicked), &rd);
940 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
941 g_signal_connect (sel, "changed",
942 G_CALLBACK (on_selection_change), &rd);
944 g_signal_connect (rd.var_map, "row-inserted",
945 G_CALLBACK (select_something), &rd);
948 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
950 /* Set up the Old & New Values subdialog */
952 rd.string_button = get_widget_assert (builder, "checkbutton1");
953 rd.width_entry = get_widget_assert (builder, "spinbutton1");
955 rd.convert_button = get_widget_assert (builder, "checkbutton2");
957 rd.ov_range_lower_entry = get_widget_assert (builder, "entry5");
958 rd.ov_range_upper_entry = get_widget_assert (builder, "entry3");
959 rd.ov_low_up_entry = get_widget_assert (builder, "entry6");
960 rd.ov_high_down_entry = get_widget_assert (builder, "entry7");
962 rd.new_value_entry = get_widget_assert (builder, "entry1");
963 rd.ov_value_entry = get_widget_assert (builder, "entry2");
965 rd.toggle[BUTTON_NEW_VALUE] = get_widget_assert (builder, "radiobutton1");
966 rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (builder, "radiobutton2");
967 rd.toggle[BUTTON_NEW_COPY] = get_widget_assert (builder, "radiobutton3");
968 rd.toggle[BUTTON_OLD_VALUE] = get_widget_assert (builder, "radiobutton4");
969 rd.toggle[BUTTON_OLD_SYSMIS] = get_widget_assert (builder, "radiobutton6");
970 rd.toggle[BUTTON_OLD_MISSING]= get_widget_assert (builder, "radiobutton7");
971 rd.toggle[BUTTON_OLD_RANGE] = get_widget_assert (builder, "radiobutton8");
972 rd.toggle[BUTTON_OLD_LOW_UP] = get_widget_assert (builder, "radiobutton10");
973 rd.toggle[BUTTON_OLD_HIGH_DOWN] = get_widget_assert (builder, "radiobutton5");
974 rd.toggle[BUTTON_OLD_ELSE] = get_widget_assert (builder, "radiobutton11");
976 rd.new_copy_label = get_widget_assert (builder, "label3");
977 rd.strings_box = get_widget_assert (builder, "table3");
979 rd.old_and_new_dialog =
980 PSPPIRE_DIALOG (get_widget_assert (builder, "old-new-values-dialog"));
982 gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
985 rd.acr = PSPPIRE_ACR (get_widget_assert (builder, "psppire-acr1"));
987 g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
988 G_CALLBACK (set_acr), &rd);
990 g_signal_connect_swapped (rd.new_value_entry, "changed",
991 G_CALLBACK (set_acr), &rd);
994 GtkTreeSelection *sel;
995 /* Remove the ACR's default column. We don't like it */
996 GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
997 gtk_tree_view_remove_column (rd.acr->tv, column);
1001 gtk_tree_view_column_new_with_attributes (_("Old"),
1002 gtk_cell_renderer_text_new (),
1006 gtk_tree_view_append_column (rd.acr->tv, column);
1009 gtk_tree_view_column_new_with_attributes (_("New"),
1010 gtk_cell_renderer_text_new (),
1014 gtk_tree_view_append_column (rd.acr->tv, column);
1015 g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
1018 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
1019 g_signal_connect (sel, "changed",
1020 G_CALLBACK (on_acr_selection_change), &rd);
1024 g_signal_connect_swapped (oldandnew, "clicked",
1025 G_CALLBACK (run_old_and_new_dialog), &rd);
1028 g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1029 G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
1031 g_signal_connect (rd.toggle[BUTTON_OLD_VALUE], "toggled",
1032 G_CALLBACK (toggle_sensitivity), rd.ov_value_entry);
1034 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1035 G_CALLBACK (toggle_sensitivity),
1036 get_widget_assert (builder, "entry3"));
1038 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1039 G_CALLBACK (toggle_sensitivity),
1040 get_widget_assert (builder, "entry5"));
1042 g_signal_connect (rd.toggle[BUTTON_OLD_LOW_UP], "toggled",
1043 G_CALLBACK (toggle_sensitivity), rd.ov_low_up_entry);
1045 g_signal_connect (rd.toggle[BUTTON_OLD_HIGH_DOWN], "toggled",
1046 G_CALLBACK (toggle_sensitivity), rd.ov_high_down_entry);
1048 g_signal_connect (rd.string_button, "toggled",
1049 G_CALLBACK (toggle_sensitivity), rd.width_entry);
1051 g_signal_connect (rd.string_button, "toggled",
1052 G_CALLBACK (on_string_toggled), &rd);
1054 g_signal_connect (rd.convert_button, "toggled",
1055 G_CALLBACK (on_convert_toggled), &rd);
1057 g_signal_connect_swapped (rd.old_and_new_dialog, "show",
1058 G_CALLBACK (on_old_new_show), &rd);
1061 g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh), &rd);
1064 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
1065 dialog_state_valid, &rd);
1067 response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
1071 case GTK_RESPONSE_OK:
1073 gchar *syntax = generate_syntax (&rd);
1075 struct getl_interface *sss = create_syntax_string_source (syntax);
1076 execute_syntax (sss);
1081 case PSPPIRE_RESPONSE_PASTE:
1083 gchar *syntax = generate_syntax (&rd);
1084 paste_syntax_in_new_window (syntax);
1094 gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
1095 g_object_unref (rd.value_map);
1097 g_object_unref (builder);
1100 /* Initialise VAL to reflect the current status of RD */
1102 set_old_value (GValue *val, const struct recode_dialog *rd)
1104 const gchar *text = NULL;
1105 struct old_value ov;
1106 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1107 (rd->toggle [BUTTON_OLD_VALUE])))
1109 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_value_entry));
1110 if ( rd->input_var_is_string )
1112 ov.type = OV_STRING;
1113 ov.v.s = g_strdup (text);
1117 ov.type = OV_NUMERIC;
1118 ov.v.v = g_strtod (text, 0);
1121 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1122 (rd->toggle [BUTTON_OLD_MISSING])))
1124 ov.type = OV_MISSING;
1126 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1127 (rd->toggle [BUTTON_OLD_SYSMIS])))
1129 ov.type = OV_SYSMIS;
1131 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1132 (rd->toggle [BUTTON_OLD_ELSE])))
1136 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1137 (rd->toggle [BUTTON_OLD_RANGE])))
1140 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_lower_entry));
1143 ov.v.range[0] = g_strtod (text, 0);
1145 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_upper_entry));
1146 ov.v.range[1] = g_strtod (text, 0);
1148 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1149 (rd->toggle [BUTTON_OLD_LOW_UP])))
1152 gtk_entry_get_text (GTK_ENTRY (rd->ov_low_up_entry));
1154 ov.type = OV_LOW_UP;
1155 ov.v.range[1] = g_strtod (text, 0);
1157 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1158 (rd->toggle [BUTTON_OLD_HIGH_DOWN])))
1161 gtk_entry_get_text (GTK_ENTRY (rd->ov_high_down_entry));
1163 ov.type = OV_HIGH_DOWN;
1164 ov.v.range[0] = g_strtod (text, 0);
1169 g_value_init (val, old_value_get_type ());
1170 g_value_set_boxed (val, &ov);
1176 /* Initialse VAL to reflect the current status of RD */
1178 set_new_value (GValue *val, const struct recode_dialog *rd)
1180 const gchar *text = NULL;
1181 struct new_value nv;
1183 if ( gtk_toggle_button_get_active
1184 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
1186 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
1188 nv.type = NV_NUMERIC;
1190 (! rd->different && rd->input_var_is_string) ||
1192 gtk_toggle_button_get_active
1193 (GTK_TOGGLE_BUTTON (rd->string_button)))
1196 nv.type = NV_STRING;
1199 if ( nv.type == NV_STRING )
1200 nv.v.s = g_strdup (text);
1202 nv.v.v = g_strtod (text, 0);
1204 else if ( gtk_toggle_button_get_active
1205 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
1210 else if ( gtk_toggle_button_get_active
1211 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
1213 nv.type = NV_SYSMIS;
1218 g_value_init (val, new_value_get_type ());
1219 g_value_set_boxed (val, &nv);
1225 /* A function to set a value in a column in the ACR */
1227 set_value (gint col, GValue *val, gpointer data)
1229 struct recode_dialog *rd = data;
1234 set_old_value (val, rd);
1237 set_new_value (val, rd);
1247 run_old_and_new_dialog (struct recode_dialog *rd)
1250 GtkListStore *local_store = clone_list_store (rd->value_map);
1252 psppire_acr_set_model (rd->acr, local_store);
1253 psppire_acr_set_get_value_func (rd->acr, set_value, rd);
1255 gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
1257 ? _("Recode into Different Variables: Old and New Values ")
1258 : _("Recode into Same Variables: Old and New Values")
1263 /* Find the type of the first variable (it's invariant that
1264 all variables are of the same type) */
1265 const struct variable *v;
1267 GtkTreeModel *model =
1268 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
1270 gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
1272 g_return_if_fail (not_empty);
1274 gtk_tree_model_get (model, &iter, 0, &v, -1);
1276 rd->input_var_is_string = var_is_alpha (v);
1278 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_SYSMIS],
1279 var_is_numeric (v));
1280 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_RANGE],
1281 var_is_numeric (v));
1282 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_LOW_UP],
1283 var_is_numeric (v));
1284 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_HIGH_DOWN],
1285 var_is_numeric (v));
1286 gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
1287 var_is_numeric (v));
1289 gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
1293 response = psppire_dialog_run (rd->old_and_new_dialog);
1294 psppire_acr_set_model (rd->acr, NULL);
1297 if ( response == PSPPIRE_RESPONSE_CONTINUE )
1299 g_object_unref (rd->value_map);
1300 rd->value_map = clone_list_store (local_store);
1303 g_object_unref (local_store);
1306 psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
1310 /* Generate a syntax fragment for NV and append it to STR */
1312 new_value_append_syntax (GString *str, const struct new_value *nv)
1317 g_string_append_printf (str, "%g", nv->v.v);
1321 struct string ds = DS_EMPTY_INITIALIZER;
1322 syntax_gen_string (&ds, ss_cstr (nv->v.s));
1323 g_string_append (str, ds_cstr (&ds));
1328 g_string_append (str, "COPY");
1331 g_string_append (str, "SYSMIS");
1334 /* Shouldn't ever happen */
1335 g_warning ("Invalid type in new recode value");
1336 g_string_append (str, "???");
1342 /* Generate a syntax fragment for NV and append it to STR */
1344 old_value_append_syntax (GString *str, const struct old_value *ov)
1349 g_string_append_printf (str, "%g", ov->v.v);
1353 struct string ds = DS_EMPTY_INITIALIZER;
1354 syntax_gen_string (&ds, ss_cstr (ov->v.s));
1355 g_string_append (str, ds_cstr (&ds));
1360 g_string_append (str, "MISSING");
1363 g_string_append (str, "SYSMIS");
1366 g_string_append (str, "ELSE");
1369 g_string_append_printf (str, "%g THRU %g",
1374 g_string_append_printf (str, "LOWEST THRU %g",
1378 g_string_append_printf (str, "%g THRU HIGHEST",
1382 g_warning ("Invalid type in old recode value");
1383 g_string_append (str, "???");
1391 generate_syntax (const struct recode_dialog *rd)
1397 GString *str = g_string_sized_new (100);
1399 /* Declare new string variables if applicable */
1400 if ( rd->different &&
1401 gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
1406 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1409 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1413 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1414 COL_NEW_NAME, &name, -1);
1416 g_string_append (str, "\nSTRING ");
1417 g_string_append (str, name);
1418 g_string_append_printf (str, " (A%d).",
1420 gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1427 g_string_append (str, "\nRECODE ");
1429 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, str);
1431 g_string_append (str, "\n\t");
1433 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1435 g_string_append (str, "(CONVERT) ");
1438 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1441 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1443 GValue ov_value = {0};
1444 GValue nv_value = {0};
1445 struct old_value *ov;
1446 struct new_value *nv;
1447 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1448 COL_VALUE_OLD, &ov_value);
1450 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1451 COL_VALUE_NEW, &nv_value);
1453 ov = g_value_get_boxed (&ov_value);
1454 nv = g_value_get_boxed (&nv_value);
1456 g_string_append (str, "(");
1458 old_value_append_syntax (str, ov);
1459 g_string_append (str, " = ");
1460 new_value_append_syntax (str, nv);
1462 g_string_append (str, ") ");
1463 g_value_unset (&ov_value);
1464 g_value_unset (&nv_value);
1468 if ( rd->different )
1471 g_string_append (str, "\n\tINTO ");
1473 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1476 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1480 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1481 COL_NEW_NAME, &name, -1);
1483 g_string_append (str, name);
1484 g_string_append (str, " ");
1490 g_string_append (str, ".");
1493 /* If applicable, set labels for the new variables. */
1494 if ( rd->different )
1498 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1501 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1504 gchar *label = NULL;
1507 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1508 COL_NEW_NAME, &name,
1509 COL_NEW_LABEL, &label, -1);
1511 if ( 0 == strcmp (label, "") )
1518 ds_init_empty (&ls);
1519 syntax_gen_string (&ls, ss_cstr (label));
1522 g_string_append_printf (str, "\nVARIABLE LABELS %s %s.",
1523 name, ds_cstr (&ls));
1531 g_string_append (str, "\nEXECUTE.\n");
1536 g_string_free (str, FALSE);