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 GtkWidget *new_name_entry;
343 GtkWidget *new_label_entry;
344 GtkWidget *change_button;
346 GtkWidget *string_button;
347 GtkWidget *width_entry;
349 /* A hash table of struct nlp's indexed by variable */
354 static void run_old_and_new_dialog (struct recode_dialog *rd);
357 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
360 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
362 gtk_list_store_clear (GTK_LIST_STORE (vars));
364 gtk_widget_set_sensitive (rd->change_button, FALSE);
365 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
366 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
369 g_hash_table_remove_all (rd->varmap);
371 gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
374 static char * generate_syntax (const struct recode_dialog *rd);
382 /* Dialog is valid iff at least one variable has been selected,
383 AND the list of mappings is not empty.
386 dialog_state_valid (gpointer data)
388 GtkTreeIter not_used;
389 struct recode_dialog *rd = data;
391 if ( ! rd->value_map )
394 if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
400 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd->variable_treeview)->list);
402 if (g_hash_table_size (rd->varmap) != gtk_tree_model_iter_n_children (model, NULL) )
408 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
410 if ( !gtk_tree_model_get_iter_first (vars, ¬_used))
418 on_old_new_show (struct recode_dialog *rd)
420 gtk_toggle_button_set_active
421 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_OLD_VALUE]), TRUE);
423 g_signal_emit_by_name (rd->toggle[BUTTON_OLD_VALUE], "toggled");
425 gtk_toggle_button_set_active
426 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
428 g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
430 g_object_set (rd->toggle[BUTTON_NEW_COPY],
431 "visible", rd->different, NULL);
433 g_object_set (rd->new_copy_label,
434 "visible", rd->different, NULL);
436 g_object_set (rd->strings_box,
437 "visible", rd->different, NULL);
440 /* Sets the sensitivity of TARGET dependent upon the active status
443 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
445 gboolean state = gtk_toggle_button_get_active (button);
447 /* g_print ("%s Setting %p (%s) to %d because of %p\n",
448 __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
450 gtk_widget_set_sensitive (target, state);
453 static void recode_dialog (PsppireDataWindow *de, gboolean diff);
456 /* Pops up the Recode Same version of the dialog box */
458 recode_same_dialog (GObject *o, gpointer data)
460 PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
462 recode_dialog (de, FALSE);
465 /* Pops up the Recode Different version of the dialog box */
467 recode_different_dialog (GObject *o, gpointer data)
469 PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
471 recode_dialog (de, TRUE);
475 /* This might need to be changed to something less naive.
476 In particular, what happends with dates, etc?
479 num_to_string (gdouble x)
481 return g_strdup_printf ("%g", x);
484 /* Callback which gets called when a new row is selected
485 in the acr's variable treeview.
486 We use if to set the togglebuttons and entries to correspond to the
490 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
492 struct recode_dialog *rd = data;
493 GtkTreeModel *model = NULL;
496 GValue ov_value = {0};
497 GValue nv_value = {0};
498 struct old_value *ov = NULL;
499 struct new_value *nv = NULL;
501 if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
505 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
506 COL_VALUE_OLD, &ov_value);
508 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
509 COL_VALUE_NEW, &nv_value);
511 ov = g_value_get_boxed (&ov_value);
512 nv = g_value_get_boxed (&nv_value);
520 gchar *str = num_to_string (nv->v.v);
522 gtk_toggle_button_set_active
523 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
525 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
530 gtk_toggle_button_set_active
531 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
533 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
536 gtk_toggle_button_set_active
537 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
541 gtk_toggle_button_set_active
542 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
546 g_warning ("Invalid new value type");
550 g_value_unset (&nv_value);
558 gtk_toggle_button_set_active
559 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
561 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), ov->v.s);
568 gtk_toggle_button_set_active
569 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
571 str = num_to_string (ov->v.v);
573 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), str);
580 gtk_toggle_button_set_active
581 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_SYSMIS]), TRUE);
585 gtk_toggle_button_set_active
586 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_MISSING]), TRUE);
593 gtk_toggle_button_set_active
594 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_RANGE]), TRUE);
596 str = num_to_string (ov->v.range[0]);
598 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_lower_entry), str);
603 str = num_to_string (ov->v.range[1]);
605 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_upper_entry), str);
613 gchar *str = num_to_string (ov->v.range[1]);
615 gtk_toggle_button_set_active
616 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_LOW_UP]), TRUE);
618 gtk_entry_set_text (GTK_ENTRY (rd->ov_low_up_entry), str);
626 gchar *str = num_to_string (ov->v.range[0]);
628 gtk_toggle_button_set_active
629 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_HIGH_DOWN]), TRUE);
631 gtk_entry_set_text (GTK_ENTRY (rd->ov_high_down_entry), str);
638 gtk_toggle_button_set_active
639 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_ELSE]), TRUE);
643 g_warning ("Unknown old value type");
646 g_value_unset (&ov_value);
650 /* Name-Label pair */
658 nlp_create (const char *name, const char *label)
660 struct nlp *nlp = xmalloc (sizeof *nlp);
662 nlp->name = g_strdup (name);
666 if ( 0 != strcmp ("", label))
667 nlp->label = g_strdup (label);
673 nlp_destroy (gpointer data)
675 struct nlp *nlp = data ;
685 /* Callback which gets called when a new row is selected
686 in the variable treeview.
687 It sets the name and label entry widgets to reflect the
688 currently selected row.
691 on_selection_change (GtkTreeSelection *selection, gpointer data)
693 struct recode_dialog *rd = data;
695 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd->variable_treeview)->list);
697 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
699 if ( rows && !rows->next)
701 /* Exactly one row is selected */
703 struct variable *var;
707 gtk_widget_set_sensitive (rd->change_button, TRUE);
708 gtk_widget_set_sensitive (rd->new_name_entry, TRUE);
709 gtk_widget_set_sensitive (rd->new_label_entry, TRUE);
711 ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
713 gtk_tree_model_get (model, &iter,
717 nlp = g_hash_table_lookup (rd->varmap, var);
721 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), nlp->name ? nlp->name : "");
722 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), nlp->label ? nlp->label : "");
726 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
727 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
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), "");
741 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
746 on_string_toggled (GtkToggleButton *b, struct recode_dialog *rd)
749 if (! rd->input_var_is_string )
752 active = gtk_toggle_button_get_active (b);
753 gtk_widget_set_sensitive (rd->convert_button, !active);
758 on_convert_toggled (GtkToggleButton *b, struct recode_dialog *rd)
762 g_return_if_fail (rd->input_var_is_string);
764 active = gtk_toggle_button_get_active (b);
765 gtk_widget_set_sensitive (rd->string_button, !active);
769 on_change_clicked (GObject *obj, gpointer data)
771 struct recode_dialog *rd = data;
772 struct variable *var = NULL;
774 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd->variable_treeview)->list);
776 GtkTreeSelection *selection =
777 gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
779 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
781 const gchar *dest_var_name =
782 gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
784 const gchar *dest_var_label =
785 gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
787 if ( NULL == rows || rows->next != NULL)
790 gtk_tree_model_get_iter (model, &iter, rows->data);
792 gtk_tree_model_get (model, &iter, 0, &var, -1);
794 g_hash_table_remove (rd->varmap, var);
796 nlp = nlp_create (dest_var_name, dest_var_label);
798 g_hash_table_insert (rd->varmap, var, nlp);
800 gtk_tree_model_row_changed (model, rows->data, &iter);
803 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
808 /* If there's nothing selected in the variable treeview,
809 then automatically select the first item */
811 select_something (GtkTreeModel *treemodel,
816 struct recode_dialog *rd = data;
817 GtkTreeSelection *sel;
819 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
821 if ( gtk_tree_selection_count_selected_rows (sel) < 1)
825 gtk_tree_model_get_iter_first (treemodel, &iter);
827 gtk_tree_selection_select_iter (sel, &iter);
832 /* Callback for the new_value_entry and new_value_togglebutton widgets.
833 It's used to enable/disable the acr. */
835 set_acr (struct recode_dialog *rd)
839 if ( !gtk_toggle_button_get_active
840 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
842 psppire_acr_set_enabled (rd->acr, TRUE);
846 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
848 psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
852 render_new_var_name (GtkTreeViewColumn *tree_column,
853 GtkCellRenderer *cell,
854 GtkTreeModel *tree_model,
858 struct nlp *nlp = NULL;
859 struct recode_dialog *rd = data;
861 struct variable *var = NULL;
863 gtk_tree_model_get (tree_model, iter,
867 nlp = g_hash_table_lookup (rd->varmap, var);
870 g_object_set (cell, "text", nlp->name, NULL);
872 g_object_set (cell, "text", "", NULL);
878 recode_dialog (PsppireDataWindow *de, gboolean diff)
882 struct recode_dialog rd;
884 GtkBuilder *builder = builder_new ("recode.ui");
886 GtkWidget *selector = get_widget_assert (builder, "psppire-selector1");
888 GtkWidget *oldandnew = get_widget_assert (builder, "button1");
891 GtkWidget *output_variable_box = get_widget_assert (builder,"frame4");
893 PsppireVarStore *vs = NULL;
894 g_object_get (de->data_editor, "var-store", &vs, NULL);
896 rd.change_button = get_widget_assert (builder, "change-button");
898 rd.dialog = get_widget_assert (builder, "recode-dialog");
899 rd.dict_treeview = get_widget_assert (builder, "treeview1");
900 rd.variable_treeview = get_widget_assert (builder, "treeview2");
901 rd.new_name_entry = get_widget_assert (builder, "dest-name-entry");
902 rd.new_label_entry = get_widget_assert (builder, "dest-label-entry");
904 g_object_get (vs, "dictionary", &rd.dict, NULL);
906 rd.value_map = gtk_list_store_new (2,
907 old_value_get_type (),
908 new_value_get_type ()
911 g_object_set (output_variable_box, "visible", diff, NULL);
914 gtk_window_set_title (GTK_WINDOW (rd.dialog),
915 _("Recode into Different Variables"));
917 gtk_window_set_title (GTK_WINDOW (rd.dialog),
918 _("Recode into Same Variables"));
922 gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
924 g_object_set (rd.dict_treeview, "model", rd.dict, NULL);
928 GtkTreeModel *model = GTK_TREE_MODEL (PSPPIRE_VAR_VIEW (rd.variable_treeview)->list);
929 GtkTreeSelection *sel;
931 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
933 GtkTreeViewColumn *col = gtk_tree_view_column_new_with_attributes (_("New"),
938 gtk_tree_view_column_set_cell_data_func (col, renderer,
943 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
946 col = gtk_tree_view_get_column (GTK_TREE_VIEW (rd.variable_treeview), 0);
948 g_object_set (col, "title", _("Old"), NULL);
950 g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
952 rd.varmap = g_hash_table_new_full (g_direct_hash, g_direct_equal, NULL, nlp_destroy);
954 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
956 g_signal_connect (sel, "changed",
957 G_CALLBACK (on_selection_change), &rd);
959 g_signal_connect (rd.change_button, "clicked",
960 G_CALLBACK (on_change_clicked), &rd);
963 g_signal_connect (model, "row-inserted",
964 G_CALLBACK (select_something), &rd);
968 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
970 /* Set up the Old & New Values subdialog */
972 rd.string_button = get_widget_assert (builder, "checkbutton1");
973 rd.width_entry = get_widget_assert (builder, "spinbutton1");
975 rd.convert_button = get_widget_assert (builder, "checkbutton2");
977 rd.ov_range_lower_entry = get_widget_assert (builder, "entry5");
978 rd.ov_range_upper_entry = get_widget_assert (builder, "entry3");
979 rd.ov_low_up_entry = get_widget_assert (builder, "entry6");
980 rd.ov_high_down_entry = get_widget_assert (builder, "entry7");
982 rd.new_value_entry = get_widget_assert (builder, "entry1");
983 rd.ov_value_entry = get_widget_assert (builder, "entry2");
985 rd.toggle[BUTTON_NEW_VALUE] = get_widget_assert (builder, "radiobutton1");
986 rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (builder, "radiobutton2");
987 rd.toggle[BUTTON_NEW_COPY] = get_widget_assert (builder, "radiobutton3");
988 rd.toggle[BUTTON_OLD_VALUE] = get_widget_assert (builder, "radiobutton4");
989 rd.toggle[BUTTON_OLD_SYSMIS] = get_widget_assert (builder, "radiobutton6");
990 rd.toggle[BUTTON_OLD_MISSING]= get_widget_assert (builder, "radiobutton7");
991 rd.toggle[BUTTON_OLD_RANGE] = get_widget_assert (builder, "radiobutton8");
992 rd.toggle[BUTTON_OLD_LOW_UP] = get_widget_assert (builder, "radiobutton10");
993 rd.toggle[BUTTON_OLD_HIGH_DOWN] = get_widget_assert (builder, "radiobutton5");
994 rd.toggle[BUTTON_OLD_ELSE] = get_widget_assert (builder, "radiobutton11");
996 rd.new_copy_label = get_widget_assert (builder, "label3");
997 rd.strings_box = get_widget_assert (builder, "table3");
999 rd.old_and_new_dialog =
1000 PSPPIRE_DIALOG (get_widget_assert (builder, "old-new-values-dialog"));
1002 gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
1005 rd.acr = PSPPIRE_ACR (get_widget_assert (builder, "psppire-acr1"));
1007 g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1008 G_CALLBACK (set_acr), &rd);
1010 g_signal_connect_swapped (rd.new_value_entry, "changed",
1011 G_CALLBACK (set_acr), &rd);
1014 GtkTreeSelection *sel;
1015 /* Remove the ACR's default column. We don't like it */
1016 GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
1017 gtk_tree_view_remove_column (rd.acr->tv, column);
1021 gtk_tree_view_column_new_with_attributes (_("Old"),
1022 gtk_cell_renderer_text_new (),
1026 gtk_tree_view_append_column (rd.acr->tv, column);
1029 gtk_tree_view_column_new_with_attributes (_("New"),
1030 gtk_cell_renderer_text_new (),
1034 gtk_tree_view_append_column (rd.acr->tv, column);
1035 g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
1038 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
1039 g_signal_connect (sel, "changed",
1040 G_CALLBACK (on_acr_selection_change), &rd);
1044 g_signal_connect_swapped (oldandnew, "clicked",
1045 G_CALLBACK (run_old_and_new_dialog), &rd);
1048 g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1049 G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
1051 g_signal_connect (rd.toggle[BUTTON_OLD_VALUE], "toggled",
1052 G_CALLBACK (toggle_sensitivity), rd.ov_value_entry);
1054 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1055 G_CALLBACK (toggle_sensitivity),
1056 get_widget_assert (builder, "entry3"));
1058 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1059 G_CALLBACK (toggle_sensitivity),
1060 get_widget_assert (builder, "entry5"));
1062 g_signal_connect (rd.toggle[BUTTON_OLD_LOW_UP], "toggled",
1063 G_CALLBACK (toggle_sensitivity), rd.ov_low_up_entry);
1065 g_signal_connect (rd.toggle[BUTTON_OLD_HIGH_DOWN], "toggled",
1066 G_CALLBACK (toggle_sensitivity), rd.ov_high_down_entry);
1068 g_signal_connect (rd.string_button, "toggled",
1069 G_CALLBACK (toggle_sensitivity), rd.width_entry);
1071 g_signal_connect (rd.string_button, "toggled",
1072 G_CALLBACK (on_string_toggled), &rd);
1074 g_signal_connect (rd.convert_button, "toggled",
1075 G_CALLBACK (on_convert_toggled), &rd);
1077 g_signal_connect_swapped (rd.old_and_new_dialog, "show",
1078 G_CALLBACK (on_old_new_show), &rd);
1081 g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh), &rd);
1084 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
1085 dialog_state_valid, &rd);
1087 response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
1091 case GTK_RESPONSE_OK:
1093 gchar *syntax = generate_syntax (&rd);
1095 struct getl_interface *sss = create_syntax_string_source (syntax);
1096 execute_syntax (sss);
1101 case PSPPIRE_RESPONSE_PASTE:
1103 gchar *syntax = generate_syntax (&rd);
1104 paste_syntax_in_new_window (syntax);
1113 g_hash_table_destroy (rd.varmap);
1115 gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
1116 g_object_unref (rd.value_map);
1118 g_object_unref (builder);
1121 /* Initialise VAL to reflect the current status of RD */
1123 set_old_value (GValue *val, const struct recode_dialog *rd)
1125 const gchar *text = NULL;
1126 struct old_value ov;
1127 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1128 (rd->toggle [BUTTON_OLD_VALUE])))
1130 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_value_entry));
1131 if ( rd->input_var_is_string )
1133 ov.type = OV_STRING;
1134 ov.v.s = g_strdup (text);
1138 ov.type = OV_NUMERIC;
1139 ov.v.v = g_strtod (text, 0);
1142 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1143 (rd->toggle [BUTTON_OLD_MISSING])))
1145 ov.type = OV_MISSING;
1147 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1148 (rd->toggle [BUTTON_OLD_SYSMIS])))
1150 ov.type = OV_SYSMIS;
1152 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1153 (rd->toggle [BUTTON_OLD_ELSE])))
1157 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1158 (rd->toggle [BUTTON_OLD_RANGE])))
1161 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_lower_entry));
1164 ov.v.range[0] = g_strtod (text, 0);
1166 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_upper_entry));
1167 ov.v.range[1] = g_strtod (text, 0);
1169 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1170 (rd->toggle [BUTTON_OLD_LOW_UP])))
1173 gtk_entry_get_text (GTK_ENTRY (rd->ov_low_up_entry));
1175 ov.type = OV_LOW_UP;
1176 ov.v.range[1] = g_strtod (text, 0);
1178 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1179 (rd->toggle [BUTTON_OLD_HIGH_DOWN])))
1182 gtk_entry_get_text (GTK_ENTRY (rd->ov_high_down_entry));
1184 ov.type = OV_HIGH_DOWN;
1185 ov.v.range[0] = g_strtod (text, 0);
1190 g_value_init (val, old_value_get_type ());
1191 g_value_set_boxed (val, &ov);
1197 /* Initialse VAL to reflect the current status of RD */
1199 set_new_value (GValue *val, const struct recode_dialog *rd)
1201 const gchar *text = NULL;
1202 struct new_value nv;
1204 if ( gtk_toggle_button_get_active
1205 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
1207 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
1209 nv.type = NV_NUMERIC;
1211 (! rd->different && rd->input_var_is_string) ||
1213 gtk_toggle_button_get_active
1214 (GTK_TOGGLE_BUTTON (rd->string_button)))
1217 nv.type = NV_STRING;
1220 if ( nv.type == NV_STRING )
1221 nv.v.s = g_strdup (text);
1223 nv.v.v = g_strtod (text, 0);
1225 else if ( gtk_toggle_button_get_active
1226 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
1231 else if ( gtk_toggle_button_get_active
1232 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
1234 nv.type = NV_SYSMIS;
1239 g_value_init (val, new_value_get_type ());
1240 g_value_set_boxed (val, &nv);
1246 /* A function to set a value in a column in the ACR */
1248 set_value (gint col, GValue *val, gpointer data)
1250 struct recode_dialog *rd = data;
1255 set_old_value (val, rd);
1258 set_new_value (val, rd);
1268 run_old_and_new_dialog (struct recode_dialog *rd)
1271 GtkListStore *local_store = clone_list_store (rd->value_map);
1273 psppire_acr_set_model (rd->acr, local_store);
1274 psppire_acr_set_get_value_func (rd->acr, set_value, rd);
1276 gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
1278 ? _("Recode into Different Variables: Old and New Values ")
1279 : _("Recode into Same Variables: Old and New Values")
1284 /* Find the type of the first variable (it's invariant that
1285 all variables are of the same type) */
1286 const struct variable *v;
1288 GtkTreeModel *model =
1289 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
1291 gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
1293 g_return_if_fail (not_empty);
1295 gtk_tree_model_get (model, &iter, 0, &v, -1);
1297 rd->input_var_is_string = var_is_alpha (v);
1299 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_SYSMIS],
1300 var_is_numeric (v));
1301 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_RANGE],
1302 var_is_numeric (v));
1303 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_LOW_UP],
1304 var_is_numeric (v));
1305 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_HIGH_DOWN],
1306 var_is_numeric (v));
1307 gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
1308 var_is_numeric (v));
1310 gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
1314 response = psppire_dialog_run (rd->old_and_new_dialog);
1315 psppire_acr_set_model (rd->acr, NULL);
1318 if ( response == PSPPIRE_RESPONSE_CONTINUE )
1320 g_object_unref (rd->value_map);
1321 rd->value_map = clone_list_store (local_store);
1324 g_object_unref (local_store);
1327 psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
1331 /* Generate a syntax fragment for NV and append it to STR */
1333 new_value_append_syntax (GString *str, const struct new_value *nv)
1338 g_string_append_printf (str, "%g", nv->v.v);
1342 struct string ds = DS_EMPTY_INITIALIZER;
1343 syntax_gen_string (&ds, ss_cstr (nv->v.s));
1344 g_string_append (str, ds_cstr (&ds));
1349 g_string_append (str, "COPY");
1352 g_string_append (str, "SYSMIS");
1355 /* Shouldn't ever happen */
1356 g_warning ("Invalid type in new recode value");
1357 g_string_append (str, "???");
1363 /* Generate a syntax fragment for NV and append it to STR */
1365 old_value_append_syntax (GString *str, const struct old_value *ov)
1370 g_string_append_printf (str, "%g", ov->v.v);
1374 struct string ds = DS_EMPTY_INITIALIZER;
1375 syntax_gen_string (&ds, ss_cstr (ov->v.s));
1376 g_string_append (str, ds_cstr (&ds));
1381 g_string_append (str, "MISSING");
1384 g_string_append (str, "SYSMIS");
1387 g_string_append (str, "ELSE");
1390 g_string_append_printf (str, "%g THRU %g",
1395 g_string_append_printf (str, "LOWEST THRU %g",
1399 g_string_append_printf (str, "%g THRU HIGHEST",
1403 g_warning ("Invalid type in old recode value");
1404 g_string_append (str, "???");
1412 generate_syntax (const struct recode_dialog *rd)
1418 GString *str = g_string_sized_new (100);
1420 /* Declare new string variables if applicable */
1421 if ( rd->different &&
1422 gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
1424 GHashTableIter iter;
1426 struct variable *var = NULL;
1427 struct nlp *nlp = NULL;
1429 g_hash_table_iter_init (&iter, rd->varmap);
1430 while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1432 g_string_append (str, "\nSTRING ");
1433 g_string_append (str, nlp->name);
1434 g_string_append_printf (str, " (A%d).",
1436 gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1441 g_string_append (str, "\nRECODE ");
1443 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, str);
1445 g_string_append (str, "\n\t");
1447 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1449 g_string_append (str, "(CONVERT) ");
1452 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1455 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1457 GValue ov_value = {0};
1458 GValue nv_value = {0};
1459 struct old_value *ov;
1460 struct new_value *nv;
1461 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1462 COL_VALUE_OLD, &ov_value);
1464 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1465 COL_VALUE_NEW, &nv_value);
1467 ov = g_value_get_boxed (&ov_value);
1468 nv = g_value_get_boxed (&nv_value);
1470 g_string_append (str, "(");
1472 old_value_append_syntax (str, ov);
1473 g_string_append (str, " = ");
1474 new_value_append_syntax (str, nv);
1476 g_string_append (str, ") ");
1477 g_value_unset (&ov_value);
1478 g_value_unset (&nv_value);
1482 if ( rd->different )
1486 g_string_append (str, "\n\tINTO ");
1488 for (ok = psppire_var_view_get_iter_first (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter);
1490 ok = psppire_var_view_get_iter_next (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter))
1492 struct nlp *nlp = NULL;
1493 const struct variable *var = psppire_var_view_get_variable (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, &iter);
1495 nlp = g_hash_table_lookup (rd->varmap, var);
1497 g_string_append (str, nlp->name);
1498 g_string_append (str, " ");
1502 g_string_append (str, ".");
1504 /* If applicable, set labels for the new variables. */
1505 if ( rd->different )
1507 GHashTableIter iter;
1509 struct variable *var = NULL;
1510 struct nlp *nlp = NULL;
1512 g_hash_table_iter_init (&iter, rd->varmap);
1513 while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1516 g_string_append_printf (str, "\nVARIABLE LABELS %s %s.",
1517 nlp->name, nlp->label);
1521 g_string_append (str, "\nEXECUTE.\n");
1526 g_string_free (str, FALSE);