1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007, 2009, 2010, 2011 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 <ui/gui/psppire-data-window.h>
35 #include <ui/gui/dialog-common.h>
36 #include <ui/gui/dict-display.h>
37 #include <ui/gui/helper.h>
38 #include <ui/gui/psppire-dialog.h>
39 #include <ui/gui/psppire-var-store.h>
41 #include <ui/syntax-gen.h>
43 #include "psppire-acr.h"
46 #define _(msgid) gettext (msgid)
47 #define N_(msgid) msgid
50 /* Define a boxed type to represent a value which is a candidate
51 to replace an existing value */
64 enum new_value_type type;
72 static struct new_value *
73 new_value_copy (struct new_value *nv)
75 struct new_value *copy = g_memdup (nv, sizeof (*copy));
77 if ( nv->type == NV_STRING )
78 copy->v.s = xstrdup (nv->v.s);
85 new_value_free (struct new_value *nv)
87 if ( nv->type == NV_STRING )
95 new_value_to_string (const GValue *src, GValue *dest)
97 const struct new_value *nv = g_value_get_boxed (src);
105 gchar *text = g_strdup_printf ("%g", nv->v.v);
106 g_value_set_string (dest, text);
111 g_value_set_string (dest, nv->v.s);
114 g_value_set_string (dest, "COPY");
117 g_value_set_string (dest, "SYSMIS");
120 /* Shouldn't ever happen */
121 g_warning ("Invalid type in new recode value");
122 g_value_set_string (dest, "???");
128 new_value_get_type (void)
134 t = g_boxed_type_register_static ("psppire-recode-new-values",
135 (GBoxedCopyFunc) new_value_copy,
136 (GBoxedFreeFunc) new_value_free);
138 g_value_register_transform_func (t, G_TYPE_STRING,
139 new_value_to_string);
149 /* A boxed type representing a value, or a range of values which may
150 potentially be replaced by something */
166 enum old_value_type type;
175 static struct old_value *
176 old_value_copy (struct old_value *ov)
178 struct old_value *copy = g_memdup (ov, sizeof (*copy));
180 if ( ov->type == OV_STRING )
181 copy->v.s = g_strdup (ov->v.s);
188 old_value_free (struct old_value *ov)
190 if (ov->type == OV_STRING)
196 old_value_to_string (const GValue *src, GValue *dest)
198 const struct old_value *ov = g_value_get_boxed (src);
204 gchar *text = g_strdup_printf ("%g", ov->v.v);
205 g_value_set_string (dest, text);
210 g_value_set_string (dest, ov->v.s);
213 g_value_set_string (dest, "MISSING");
216 g_value_set_string (dest, "SYSMIS");
219 g_value_set_string (dest, "ELSE");
224 char en_dash[6] = {0,0,0,0,0,0};
226 g_unichar_to_utf8 (0x2013, en_dash);
228 text = g_strdup_printf ("%g %s %g",
232 g_value_set_string (dest, text);
239 char en_dash[6] = {0,0,0,0,0,0};
241 g_unichar_to_utf8 (0x2013, en_dash);
243 text = g_strdup_printf ("LOWEST %s %g",
247 g_value_set_string (dest, text);
254 char en_dash[6] = {0,0,0,0,0,0};
256 g_unichar_to_utf8 (0x2013, en_dash);
258 text = g_strdup_printf ("%g %s HIGHEST",
262 g_value_set_string (dest, text);
267 g_warning ("Invalid type in old recode value");
268 g_value_set_string (dest, "???");
274 old_value_get_type (void)
280 t = g_boxed_type_register_static ("psppire-recode-old-values",
281 (GBoxedCopyFunc) old_value_copy,
282 (GBoxedFreeFunc) old_value_free);
284 g_value_register_transform_func (t, G_TYPE_STRING,
285 old_value_to_string);
303 BUTTON_OLD_HIGH_DOWN,
313 PsppireDialog *old_and_new_dialog;
315 GtkWidget *dict_treeview;
316 GtkWidget *variable_treeview;
317 GtkWidget *toggle[n_BUTTONS];
319 GtkWidget *strings_box;
320 GtkWidget *convert_button;
321 GtkWidget *new_copy_label;
323 GtkWidget *ov_value_entry;
324 GtkWidget *new_value_entry;
326 GtkWidget *ov_range_lower_entry;
327 GtkWidget *ov_range_upper_entry;
328 GtkWidget *ov_low_up_entry;
329 GtkWidget *ov_high_down_entry;
331 GtkListStore *value_map;
333 /* Indicates that the INTO {new variables} form of the dialog
339 gboolean input_var_is_string;
341 GtkWidget *new_name_entry;
342 GtkWidget *new_label_entry;
343 GtkWidget *change_button;
345 GtkWidget *string_button;
346 GtkWidget *width_entry;
348 /* A hash table of struct nlp's indexed by variable */
353 static void run_old_and_new_dialog (struct recode_dialog *rd);
356 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
359 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
361 gtk_list_store_clear (GTK_LIST_STORE (vars));
363 gtk_widget_set_sensitive (rd->change_button, FALSE);
364 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
365 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
368 g_hash_table_remove_all (rd->varmap);
370 gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
373 static char * generate_syntax (const struct recode_dialog *rd);
381 /* Dialog is valid iff at least one variable has been selected,
382 AND the list of mappings is not empty.
385 dialog_state_valid (gpointer data)
387 GtkTreeIter not_used;
388 struct recode_dialog *rd = data;
390 if ( ! rd->value_map )
393 if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
399 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd->variable_treeview)->list);
401 if (g_hash_table_size (rd->varmap) != gtk_tree_model_iter_n_children (model, NULL) )
407 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
409 if ( !gtk_tree_model_get_iter_first (vars, ¬_used))
417 on_old_new_show (struct recode_dialog *rd)
419 gtk_toggle_button_set_active
420 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_OLD_VALUE]), TRUE);
422 g_signal_emit_by_name (rd->toggle[BUTTON_OLD_VALUE], "toggled");
424 gtk_toggle_button_set_active
425 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
427 g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
429 g_object_set (rd->toggle[BUTTON_NEW_COPY],
430 "visible", rd->different, NULL);
432 g_object_set (rd->new_copy_label,
433 "visible", rd->different, NULL);
435 g_object_set (rd->strings_box,
436 "visible", rd->different, NULL);
439 /* Sets the sensitivity of TARGET dependent upon the active status
442 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
444 gboolean state = gtk_toggle_button_get_active (button);
446 /* g_print ("%s Setting %p (%s) to %d because of %p\n",
447 __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
449 gtk_widget_set_sensitive (target, state);
452 static void recode_dialog (PsppireDataWindow *de, gboolean diff);
455 /* Pops up the Recode Same version of the dialog box */
457 recode_same_dialog (PsppireDataWindow *de)
459 recode_dialog (de, FALSE);
462 /* Pops up the Recode Different version of the dialog box */
464 recode_different_dialog (PsppireDataWindow *de)
466 recode_dialog (de, TRUE);
470 /* This might need to be changed to something less naive.
471 In particular, what happends with dates, etc?
474 num_to_string (gdouble x)
476 return g_strdup_printf ("%g", x);
479 /* Callback which gets called when a new row is selected
480 in the acr's variable treeview.
481 We use if to set the togglebuttons and entries to correspond to the
485 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
487 struct recode_dialog *rd = data;
488 GtkTreeModel *model = NULL;
491 GValue ov_value = {0};
492 GValue nv_value = {0};
493 struct old_value *ov = NULL;
494 struct new_value *nv = NULL;
496 if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
500 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
501 COL_VALUE_OLD, &ov_value);
503 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
504 COL_VALUE_NEW, &nv_value);
506 ov = g_value_get_boxed (&ov_value);
507 nv = g_value_get_boxed (&nv_value);
515 gchar *str = num_to_string (nv->v.v);
517 gtk_toggle_button_set_active
518 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
520 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
525 gtk_toggle_button_set_active
526 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
528 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
531 gtk_toggle_button_set_active
532 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
536 gtk_toggle_button_set_active
537 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
541 g_warning ("Invalid new value type");
545 g_value_unset (&nv_value);
553 gtk_toggle_button_set_active
554 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
556 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), ov->v.s);
563 gtk_toggle_button_set_active
564 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
566 str = num_to_string (ov->v.v);
568 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), str);
575 gtk_toggle_button_set_active
576 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_SYSMIS]), TRUE);
580 gtk_toggle_button_set_active
581 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_MISSING]), TRUE);
588 gtk_toggle_button_set_active
589 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_RANGE]), TRUE);
591 str = num_to_string (ov->v.range[0]);
593 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_lower_entry), str);
598 str = num_to_string (ov->v.range[1]);
600 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_upper_entry), str);
608 gchar *str = num_to_string (ov->v.range[1]);
610 gtk_toggle_button_set_active
611 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_LOW_UP]), TRUE);
613 gtk_entry_set_text (GTK_ENTRY (rd->ov_low_up_entry), str);
621 gchar *str = num_to_string (ov->v.range[0]);
623 gtk_toggle_button_set_active
624 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_HIGH_DOWN]), TRUE);
626 gtk_entry_set_text (GTK_ENTRY (rd->ov_high_down_entry), str);
633 gtk_toggle_button_set_active
634 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_ELSE]), TRUE);
638 g_warning ("Unknown old value type");
641 g_value_unset (&ov_value);
645 /* Name-Label pair */
653 nlp_create (const char *name, const char *label)
655 struct nlp *nlp = xmalloc (sizeof *nlp);
657 nlp->name = g_strdup (name);
661 if ( 0 != strcmp ("", label))
662 nlp->label = g_strdup (label);
668 nlp_destroy (gpointer data)
670 struct nlp *nlp = data ;
680 /* Callback which gets called when a new row is selected
681 in the variable treeview.
682 It sets the name and label entry widgets to reflect the
683 currently selected row.
686 on_selection_change (GtkTreeSelection *selection, gpointer data)
688 struct recode_dialog *rd = data;
690 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd->variable_treeview)->list);
692 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
694 if ( rows && !rows->next)
696 /* Exactly one row is selected */
698 struct variable *var;
702 gtk_widget_set_sensitive (rd->change_button, TRUE);
703 gtk_widget_set_sensitive (rd->new_name_entry, TRUE);
704 gtk_widget_set_sensitive (rd->new_label_entry, TRUE);
706 ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
708 gtk_tree_model_get (model, &iter,
712 nlp = g_hash_table_lookup (rd->varmap, var);
716 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), nlp->name ? nlp->name : "");
717 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), nlp->label ? nlp->label : "");
721 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
722 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
727 gtk_widget_set_sensitive (rd->change_button, FALSE);
728 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
729 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
731 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
732 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
736 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
741 on_string_toggled (GtkToggleButton *b, struct recode_dialog *rd)
744 if (! rd->input_var_is_string )
747 active = gtk_toggle_button_get_active (b);
748 gtk_widget_set_sensitive (rd->convert_button, !active);
753 on_convert_toggled (GtkToggleButton *b, struct recode_dialog *rd)
757 g_return_if_fail (rd->input_var_is_string);
759 active = gtk_toggle_button_get_active (b);
760 gtk_widget_set_sensitive (rd->string_button, !active);
764 on_change_clicked (GObject *obj, gpointer data)
766 struct recode_dialog *rd = data;
767 struct variable *var = NULL;
769 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd->variable_treeview)->list);
771 GtkTreeSelection *selection =
772 gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
774 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
776 const gchar *dest_var_name =
777 gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
779 const gchar *dest_var_label =
780 gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
782 if ( NULL == rows || rows->next != NULL)
785 gtk_tree_model_get_iter (model, &iter, rows->data);
787 gtk_tree_model_get (model, &iter, 0, &var, -1);
789 g_hash_table_remove (rd->varmap, var);
791 nlp = nlp_create (dest_var_name, dest_var_label);
793 g_hash_table_insert (rd->varmap, var, nlp);
795 gtk_tree_model_row_changed (model, rows->data, &iter);
798 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
803 /* Callback for the new_value_entry and new_value_togglebutton widgets.
804 It's used to enable/disable the acr. */
806 set_acr (struct recode_dialog *rd)
810 if ( !gtk_toggle_button_get_active
811 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
813 psppire_acr_set_enabled (rd->acr, TRUE);
817 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
819 psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
823 render_new_var_name (GtkTreeViewColumn *tree_column,
824 GtkCellRenderer *cell,
825 GtkTreeModel *tree_model,
829 struct nlp *nlp = NULL;
830 struct recode_dialog *rd = data;
832 struct variable *var = NULL;
834 gtk_tree_model_get (tree_model, iter,
838 nlp = g_hash_table_lookup (rd->varmap, var);
841 g_object_set (cell, "text", nlp->name, NULL);
843 g_object_set (cell, "text", "", NULL);
849 recode_dialog (PsppireDataWindow *de, gboolean diff)
853 struct recode_dialog rd;
855 GtkBuilder *builder = builder_new ("recode.ui");
857 GtkWidget *selector = get_widget_assert (builder, "psppire-selector1");
859 GtkWidget *oldandnew = get_widget_assert (builder, "button1");
862 GtkWidget *output_variable_box = get_widget_assert (builder,"frame4");
864 PsppireVarStore *vs = NULL;
865 g_object_get (de->data_editor, "var-store", &vs, NULL);
867 rd.change_button = get_widget_assert (builder, "change-button");
869 rd.dialog = get_widget_assert (builder, "recode-dialog");
870 rd.dict_treeview = get_widget_assert (builder, "treeview1");
871 rd.variable_treeview = get_widget_assert (builder, "treeview2");
872 rd.new_name_entry = get_widget_assert (builder, "dest-name-entry");
873 rd.new_label_entry = get_widget_assert (builder, "dest-label-entry");
875 g_object_get (vs, "dictionary", &rd.dict, NULL);
877 rd.value_map = gtk_list_store_new (2,
878 old_value_get_type (),
879 new_value_get_type ()
882 g_object_set (output_variable_box, "visible", diff, NULL);
885 gtk_window_set_title (GTK_WINDOW (rd.dialog),
886 _("Recode into Different Variables"));
888 gtk_window_set_title (GTK_WINDOW (rd.dialog),
889 _("Recode into Same Variables"));
893 gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
895 g_object_set (rd.dict_treeview, "model", rd.dict, NULL);
899 GtkTreeSelection *sel;
901 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
903 GtkTreeViewColumn *col = gtk_tree_view_column_new_with_attributes (_("New"),
908 gtk_tree_view_column_set_cell_data_func (col, renderer,
913 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
916 col = gtk_tree_view_get_column (GTK_TREE_VIEW (rd.variable_treeview), 0);
918 g_object_set (col, "title", _("Old"), NULL);
920 g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
922 rd.varmap = g_hash_table_new_full (g_direct_hash, g_direct_equal, NULL, nlp_destroy);
924 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
926 g_signal_connect (sel, "changed",
927 G_CALLBACK (on_selection_change), &rd);
929 g_signal_connect (rd.change_button, "clicked",
930 G_CALLBACK (on_change_clicked), &rd);
933 g_signal_connect (model, "row-inserted",
934 G_CALLBACK (select_something), &rd);
938 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
940 /* Set up the Old & New Values subdialog */
942 rd.string_button = get_widget_assert (builder, "checkbutton1");
943 rd.width_entry = get_widget_assert (builder, "spinbutton1");
945 rd.convert_button = get_widget_assert (builder, "checkbutton2");
947 rd.ov_range_lower_entry = get_widget_assert (builder, "entry5");
948 rd.ov_range_upper_entry = get_widget_assert (builder, "entry3");
949 rd.ov_low_up_entry = get_widget_assert (builder, "entry6");
950 rd.ov_high_down_entry = get_widget_assert (builder, "entry7");
952 rd.new_value_entry = get_widget_assert (builder, "entry1");
953 rd.ov_value_entry = get_widget_assert (builder, "entry2");
955 rd.toggle[BUTTON_NEW_VALUE] = get_widget_assert (builder, "radiobutton1");
956 rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (builder, "radiobutton2");
957 rd.toggle[BUTTON_NEW_COPY] = get_widget_assert (builder, "radiobutton3");
958 rd.toggle[BUTTON_OLD_VALUE] = get_widget_assert (builder, "radiobutton4");
959 rd.toggle[BUTTON_OLD_SYSMIS] = get_widget_assert (builder, "radiobutton6");
960 rd.toggle[BUTTON_OLD_MISSING]= get_widget_assert (builder, "radiobutton7");
961 rd.toggle[BUTTON_OLD_RANGE] = get_widget_assert (builder, "radiobutton8");
962 rd.toggle[BUTTON_OLD_LOW_UP] = get_widget_assert (builder, "radiobutton10");
963 rd.toggle[BUTTON_OLD_HIGH_DOWN] = get_widget_assert (builder, "radiobutton5");
964 rd.toggle[BUTTON_OLD_ELSE] = get_widget_assert (builder, "radiobutton11");
966 rd.new_copy_label = get_widget_assert (builder, "label3");
967 rd.strings_box = get_widget_assert (builder, "table3");
969 rd.old_and_new_dialog =
970 PSPPIRE_DIALOG (get_widget_assert (builder, "old-new-values-dialog"));
972 gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
975 rd.acr = PSPPIRE_ACR (get_widget_assert (builder, "psppire-acr1"));
977 g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
978 G_CALLBACK (set_acr), &rd);
980 g_signal_connect_swapped (rd.new_value_entry, "changed",
981 G_CALLBACK (set_acr), &rd);
984 GtkTreeSelection *sel;
985 /* Remove the ACR's default column. We don't like it */
986 GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
987 gtk_tree_view_remove_column (rd.acr->tv, column);
991 gtk_tree_view_column_new_with_attributes (_("Old"),
992 gtk_cell_renderer_text_new (),
996 gtk_tree_view_append_column (rd.acr->tv, column);
999 gtk_tree_view_column_new_with_attributes (_("New"),
1000 gtk_cell_renderer_text_new (),
1004 gtk_tree_view_append_column (rd.acr->tv, column);
1005 g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
1008 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
1009 g_signal_connect (sel, "changed",
1010 G_CALLBACK (on_acr_selection_change), &rd);
1014 g_signal_connect_swapped (oldandnew, "clicked",
1015 G_CALLBACK (run_old_and_new_dialog), &rd);
1018 g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1019 G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
1021 g_signal_connect (rd.toggle[BUTTON_OLD_VALUE], "toggled",
1022 G_CALLBACK (toggle_sensitivity), rd.ov_value_entry);
1024 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1025 G_CALLBACK (toggle_sensitivity),
1026 get_widget_assert (builder, "entry3"));
1028 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1029 G_CALLBACK (toggle_sensitivity),
1030 get_widget_assert (builder, "entry5"));
1032 g_signal_connect (rd.toggle[BUTTON_OLD_LOW_UP], "toggled",
1033 G_CALLBACK (toggle_sensitivity), rd.ov_low_up_entry);
1035 g_signal_connect (rd.toggle[BUTTON_OLD_HIGH_DOWN], "toggled",
1036 G_CALLBACK (toggle_sensitivity), rd.ov_high_down_entry);
1038 g_signal_connect (rd.string_button, "toggled",
1039 G_CALLBACK (toggle_sensitivity), rd.width_entry);
1041 g_signal_connect (rd.string_button, "toggled",
1042 G_CALLBACK (on_string_toggled), &rd);
1044 g_signal_connect (rd.convert_button, "toggled",
1045 G_CALLBACK (on_convert_toggled), &rd);
1047 g_signal_connect_swapped (rd.old_and_new_dialog, "show",
1048 G_CALLBACK (on_old_new_show), &rd);
1051 g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh), &rd);
1054 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
1055 dialog_state_valid, &rd);
1057 response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
1061 case GTK_RESPONSE_OK:
1062 g_free (execute_syntax_string (de, generate_syntax (&rd)));
1064 case PSPPIRE_RESPONSE_PASTE:
1065 g_free (paste_syntax_to_window (generate_syntax (&rd)));
1071 g_hash_table_destroy (rd.varmap);
1073 gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
1074 g_object_unref (rd.value_map);
1076 g_object_unref (builder);
1079 /* Initialise VAL to reflect the current status of RD */
1081 set_old_value (GValue *val, const struct recode_dialog *rd)
1083 const gchar *text = NULL;
1084 struct old_value ov;
1085 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1086 (rd->toggle [BUTTON_OLD_VALUE])))
1088 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_value_entry));
1089 if ( rd->input_var_is_string )
1091 ov.type = OV_STRING;
1092 ov.v.s = g_strdup (text);
1096 ov.type = OV_NUMERIC;
1097 ov.v.v = g_strtod (text, 0);
1100 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1101 (rd->toggle [BUTTON_OLD_MISSING])))
1103 ov.type = OV_MISSING;
1105 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1106 (rd->toggle [BUTTON_OLD_SYSMIS])))
1108 ov.type = OV_SYSMIS;
1110 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1111 (rd->toggle [BUTTON_OLD_ELSE])))
1115 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1116 (rd->toggle [BUTTON_OLD_RANGE])))
1119 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_lower_entry));
1122 ov.v.range[0] = g_strtod (text, 0);
1124 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_upper_entry));
1125 ov.v.range[1] = g_strtod (text, 0);
1127 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1128 (rd->toggle [BUTTON_OLD_LOW_UP])))
1131 gtk_entry_get_text (GTK_ENTRY (rd->ov_low_up_entry));
1133 ov.type = OV_LOW_UP;
1134 ov.v.range[1] = g_strtod (text, 0);
1136 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1137 (rd->toggle [BUTTON_OLD_HIGH_DOWN])))
1140 gtk_entry_get_text (GTK_ENTRY (rd->ov_high_down_entry));
1142 ov.type = OV_HIGH_DOWN;
1143 ov.v.range[0] = g_strtod (text, 0);
1148 g_value_init (val, old_value_get_type ());
1149 g_value_set_boxed (val, &ov);
1155 /* Initialse VAL to reflect the current status of RD */
1157 set_new_value (GValue *val, const struct recode_dialog *rd)
1159 const gchar *text = NULL;
1160 struct new_value nv;
1162 if ( gtk_toggle_button_get_active
1163 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
1165 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
1167 nv.type = NV_NUMERIC;
1169 (! rd->different && rd->input_var_is_string) ||
1171 gtk_toggle_button_get_active
1172 (GTK_TOGGLE_BUTTON (rd->string_button)))
1175 nv.type = NV_STRING;
1178 if ( nv.type == NV_STRING )
1179 nv.v.s = g_strdup (text);
1181 nv.v.v = g_strtod (text, 0);
1183 else if ( gtk_toggle_button_get_active
1184 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
1189 else if ( gtk_toggle_button_get_active
1190 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
1192 nv.type = NV_SYSMIS;
1197 g_value_init (val, new_value_get_type ());
1198 g_value_set_boxed (val, &nv);
1204 /* A function to set a value in a column in the ACR */
1206 set_value (gint col, GValue *val, gpointer data)
1208 struct recode_dialog *rd = data;
1213 set_old_value (val, rd);
1216 set_new_value (val, rd);
1226 run_old_and_new_dialog (struct recode_dialog *rd)
1229 GtkListStore *local_store = clone_list_store (rd->value_map);
1231 psppire_acr_set_model (rd->acr, local_store);
1232 psppire_acr_set_get_value_func (rd->acr, set_value, rd);
1234 gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
1236 ? _("Recode into Different Variables: Old and New Values ")
1237 : _("Recode into Same Variables: Old and New Values")
1242 /* Find the type of the first variable (it's invariant that
1243 all variables are of the same type) */
1244 const struct variable *v;
1246 GtkTreeModel *model =
1247 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
1249 gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
1251 g_return_if_fail (not_empty);
1253 gtk_tree_model_get (model, &iter, 0, &v, -1);
1255 rd->input_var_is_string = var_is_alpha (v);
1257 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_SYSMIS],
1258 var_is_numeric (v));
1259 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_RANGE],
1260 var_is_numeric (v));
1261 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_LOW_UP],
1262 var_is_numeric (v));
1263 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_HIGH_DOWN],
1264 var_is_numeric (v));
1265 gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
1266 var_is_numeric (v));
1268 gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
1272 response = psppire_dialog_run (rd->old_and_new_dialog);
1273 psppire_acr_set_model (rd->acr, NULL);
1276 if ( response == PSPPIRE_RESPONSE_CONTINUE )
1278 g_object_unref (rd->value_map);
1279 rd->value_map = clone_list_store (local_store);
1282 g_object_unref (local_store);
1285 psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
1289 /* Generate a syntax fragment for NV and append it to STR */
1291 new_value_append_syntax (GString *str, const struct new_value *nv)
1296 g_string_append_printf (str, "%g", nv->v.v);
1300 struct string ds = DS_EMPTY_INITIALIZER;
1301 syntax_gen_string (&ds, ss_cstr (nv->v.s));
1302 g_string_append (str, ds_cstr (&ds));
1307 g_string_append (str, "COPY");
1310 g_string_append (str, "SYSMIS");
1313 /* Shouldn't ever happen */
1314 g_warning ("Invalid type in new recode value");
1315 g_string_append (str, "???");
1321 /* Generate a syntax fragment for NV and append it to STR */
1323 old_value_append_syntax (GString *str, const struct old_value *ov)
1328 g_string_append_printf (str, "%g", ov->v.v);
1332 struct string ds = DS_EMPTY_INITIALIZER;
1333 syntax_gen_string (&ds, ss_cstr (ov->v.s));
1334 g_string_append (str, ds_cstr (&ds));
1339 g_string_append (str, "MISSING");
1342 g_string_append (str, "SYSMIS");
1345 g_string_append (str, "ELSE");
1348 g_string_append_printf (str, "%g THRU %g",
1353 g_string_append_printf (str, "LOWEST THRU %g",
1357 g_string_append_printf (str, "%g THRU HIGHEST",
1361 g_warning ("Invalid type in old recode value");
1362 g_string_append (str, "???");
1370 generate_syntax (const struct recode_dialog *rd)
1376 GString *str = g_string_sized_new (100);
1378 /* Declare new string variables if applicable */
1379 if ( rd->different &&
1380 gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
1382 GHashTableIter iter;
1384 struct variable *var = NULL;
1385 struct nlp *nlp = NULL;
1387 g_hash_table_iter_init (&iter, rd->varmap);
1388 while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1390 g_string_append (str, "\nSTRING ");
1391 g_string_append (str, nlp->name);
1392 g_string_append_printf (str, " (A%d).",
1394 gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1399 g_string_append (str, "\nRECODE ");
1401 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, str);
1403 g_string_append (str, "\n\t");
1405 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1407 g_string_append (str, "(CONVERT) ");
1410 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1413 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1415 GValue ov_value = {0};
1416 GValue nv_value = {0};
1417 struct old_value *ov;
1418 struct new_value *nv;
1419 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1420 COL_VALUE_OLD, &ov_value);
1422 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1423 COL_VALUE_NEW, &nv_value);
1425 ov = g_value_get_boxed (&ov_value);
1426 nv = g_value_get_boxed (&nv_value);
1428 g_string_append (str, "(");
1430 old_value_append_syntax (str, ov);
1431 g_string_append (str, " = ");
1432 new_value_append_syntax (str, nv);
1434 g_string_append (str, ") ");
1435 g_value_unset (&ov_value);
1436 g_value_unset (&nv_value);
1440 if ( rd->different )
1444 g_string_append (str, "\n\tINTO ");
1446 for (ok = psppire_var_view_get_iter_first (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter);
1448 ok = psppire_var_view_get_iter_next (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter))
1450 struct nlp *nlp = NULL;
1451 const struct variable *var = psppire_var_view_get_variable (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, &iter);
1453 nlp = g_hash_table_lookup (rd->varmap, var);
1455 g_string_append (str, nlp->name);
1456 g_string_append (str, " ");
1460 g_string_append (str, ".");
1462 /* If applicable, set labels for the new variables. */
1463 if ( rd->different )
1465 GHashTableIter iter;
1467 struct variable *var = NULL;
1468 struct nlp *nlp = NULL;
1470 g_hash_table_iter_init (&iter, rd->varmap);
1471 while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1474 g_string_append_printf (str, "\nVARIABLE LABELS %s %s.",
1475 nlp->name, nlp->label);
1479 g_string_append (str, "\nEXECUTE.\n");
1484 g_string_free (str, FALSE);