1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007 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"
28 #include <gtksheet/gtksheet.h>
30 #include <language/syntax-string-source.h>
31 #include <ui/gui/data-editor.h>
32 #include <ui/gui/dialog-common.h>
33 #include <ui/gui/dict-display.h>
34 #include <ui/gui/helper.h>
35 #include <ui/gui/psppire-dialog.h>
36 #include <ui/gui/psppire-var-store.h>
37 #include <ui/gui/syntax-editor.h>
38 #include <libpspp/syntax-gen.h>
40 #include "psppire-acr.h"
43 #define _(msgid) gettext (msgid)
44 #define N_(msgid) msgid
47 /* Define a boxed type to represent a value which is a candidate
48 to replace an existing value */
61 enum new_value_type type;
69 static struct new_value *
70 new_value_copy (struct new_value *nv)
72 struct new_value *copy = g_memdup (nv, sizeof (*copy));
74 if ( nv->type == NV_STRING )
75 copy->v.s = strdup (nv->v.s);
82 new_value_free (struct new_value *nv)
84 if ( nv->type == NV_STRING )
92 new_value_to_string (const GValue *src, GValue *dest)
94 const struct new_value *nv = g_value_get_boxed (src);
102 gchar *text = g_strdup_printf ("%g", nv->v.v);
103 g_value_set_string (dest, text);
108 g_value_set_string (dest, nv->v.s);
111 g_value_set_string (dest, "COPY");
114 g_value_set_string (dest, "SYSMIS");
117 /* Shouldn't ever happen */
118 g_warning ("Invalid type in new recode value");
119 g_value_set_string (dest, "???");
125 new_value_get_type (void)
131 t = g_boxed_type_register_static ("psppire-recode-new-values",
132 (GBoxedCopyFunc) new_value_copy,
133 (GBoxedFreeFunc) new_value_free);
135 g_value_register_transform_func (t, G_TYPE_STRING,
136 new_value_to_string);
146 /* A boxed type representing a value, or a range of values which may
147 potentially be replaced by something */
163 enum old_value_type type;
172 static struct old_value *
173 old_value_copy (struct old_value *ov)
175 struct old_value *copy = g_memdup (ov, sizeof (*copy));
177 if ( ov->type == OV_STRING )
178 copy->v.s = g_strdup (ov->v.s);
185 old_value_free (struct old_value *ov)
187 if (ov->type == OV_STRING)
193 old_value_to_string (const GValue *src, GValue *dest)
195 const struct old_value *ov = g_value_get_boxed (src);
201 gchar *text = g_strdup_printf ("%g", ov->v.v);
202 g_value_set_string (dest, text);
207 g_value_set_string (dest, ov->v.s);
210 g_value_set_string (dest, "MISSING");
213 g_value_set_string (dest, "SYSMIS");
216 g_value_set_string (dest, "ELSE");
221 char en_dash[6] = {0,0,0,0,0,0};
223 g_unichar_to_utf8 (0x2013, en_dash);
225 text = g_strdup_printf ("%g %s %g",
229 g_value_set_string (dest, text);
236 char en_dash[6] = {0,0,0,0,0,0};
238 g_unichar_to_utf8 (0x2013, en_dash);
240 text = g_strdup_printf ("LOWEST %s %g",
244 g_value_set_string (dest, text);
251 char en_dash[6] = {0,0,0,0,0,0};
253 g_unichar_to_utf8 (0x2013, en_dash);
255 text = g_strdup_printf ("%g %s HIGHEST",
259 g_value_set_string (dest, text);
264 g_warning ("Invalid type in old recode value");
265 g_value_set_string (dest, "???");
271 old_value_get_type (void)
277 t = g_boxed_type_register_static ("psppire-recode-old-values",
278 (GBoxedCopyFunc) old_value_copy,
279 (GBoxedFreeFunc) old_value_free);
281 g_value_register_transform_func (t, G_TYPE_STRING,
282 old_value_to_string);
300 BUTTON_OLD_HIGH_DOWN,
310 PsppireDialog *old_and_new_dialog;
312 GtkWidget *dict_treeview;
313 GtkWidget *variable_treeview;
314 GtkWidget *toggle[n_BUTTONS];
316 GtkWidget *strings_box;
317 GtkWidget *convert_button;
318 GtkWidget *new_copy_label;
320 GtkWidget *ov_value_entry;
321 GtkWidget *new_value_entry;
323 GtkWidget *ov_range_lower_entry;
324 GtkWidget *ov_range_upper_entry;
325 GtkWidget *ov_low_up_entry;
326 GtkWidget *ov_high_down_entry;
328 GtkListStore *value_map;
330 /* Indicates that the INTO {new variables} form of the dialog
336 gboolean input_var_is_string;
338 GtkListStore *var_map;
339 GtkWidget *new_name_entry;
340 GtkWidget *new_label_entry;
341 GtkWidget *change_button;
343 GtkWidget *string_button;
344 GtkWidget *width_entry;
348 static void run_old_and_new_dialog (struct recode_dialog *rd);
351 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
353 gtk_widget_set_sensitive (rd->change_button, FALSE);
354 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
355 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
359 gtk_list_store_clear (GTK_LIST_STORE (rd->var_map));
363 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
365 gtk_list_store_clear (GTK_LIST_STORE (vars));
368 gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
371 static char * generate_syntax (const struct recode_dialog *rd);
386 /* Dialog is valid iff at least one variable has been selected,
387 AND the list of mappings is not empty.
390 dialog_state_valid (gpointer data)
392 GtkTreeIter not_used;
393 struct recode_dialog *rd = data;
395 if ( ! rd->value_map )
398 if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
408 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
411 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map),
416 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
417 COL_NEW_NAME, &name, -1);
428 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
430 if ( !gtk_tree_model_get_iter_first (vars, ¬_used))
439 on_old_new_show (struct recode_dialog *rd)
441 gtk_toggle_button_set_active
442 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_OLD_VALUE]), TRUE);
444 g_signal_emit_by_name (rd->toggle[BUTTON_OLD_VALUE], "toggled");
446 gtk_toggle_button_set_active
447 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
449 g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
451 g_object_set (rd->toggle[BUTTON_NEW_COPY],
452 "visible", rd->different, NULL);
454 g_object_set (rd->new_copy_label,
455 "visible", rd->different, NULL);
457 g_object_set (rd->strings_box,
458 "visible", rd->different, NULL);
461 /* Sets the sensitivity of TARGET dependent upon the active status
464 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
466 gboolean state = gtk_toggle_button_get_active (button);
468 /* g_print ("%s Setting %p (%s) to %d because of %p\n",
469 __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
471 gtk_widget_set_sensitive (target, state);
474 static void recode_dialog (struct data_editor *de, gboolean diff);
477 /* Pops up the Recode Same version of the dialog box */
479 recode_same_dialog (GObject *o, gpointer data)
481 struct data_editor *de = data;
483 recode_dialog (de, FALSE);
486 /* Pops up the Recode Different version of the dialog box */
488 recode_different_dialog (GObject *o, gpointer data)
490 struct data_editor *de = data;
492 recode_dialog (de, TRUE);
496 render_new_var_name (GtkTreeViewColumn *tree_column,
497 GtkCellRenderer *cell,
498 GtkTreeModel *tree_model,
502 gchar *new_var_name = NULL;
504 gtk_tree_model_get (tree_model, iter, COL_NEW_NAME, &new_var_name, -1);
506 g_object_set (cell, "text", new_var_name, NULL);
508 g_free (new_var_name);
512 /* This might need to be changed to something less naive.
513 In particular, what happends with dates, etc?
516 num_to_string (gdouble x)
518 return g_strdup_printf ("%g", x);
521 /* Callback which gets called when a new row is selected
522 in the acr's variable treeview.
523 We use if to set the togglebuttons and entries to correspond to the
527 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
529 struct recode_dialog *rd = data;
530 GtkTreeModel *model = NULL;
533 GValue ov_value = {0};
534 GValue nv_value = {0};
535 struct old_value *ov = NULL;
536 struct new_value *nv = NULL;
538 if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
542 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
543 COL_VALUE_OLD, &ov_value);
545 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
546 COL_VALUE_NEW, &nv_value);
548 ov = g_value_get_boxed (&ov_value);
549 nv = g_value_get_boxed (&nv_value);
557 gchar *str = num_to_string (nv->v.v);
559 gtk_toggle_button_set_active
560 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
562 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
567 gtk_toggle_button_set_active
568 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
570 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
573 gtk_toggle_button_set_active
574 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
578 gtk_toggle_button_set_active
579 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
583 g_warning ("Invalid new value type");
587 g_value_unset (&nv_value);
595 gtk_toggle_button_set_active
596 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
598 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), ov->v.s);
605 gtk_toggle_button_set_active
606 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
608 str = num_to_string (ov->v.v);
610 gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), str);
617 gtk_toggle_button_set_active
618 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_SYSMIS]), TRUE);
622 gtk_toggle_button_set_active
623 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_MISSING]), TRUE);
630 gtk_toggle_button_set_active
631 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_RANGE]), TRUE);
633 str = num_to_string (ov->v.range[0]);
635 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_lower_entry), str);
640 str = num_to_string (ov->v.range[1]);
642 gtk_entry_set_text (GTK_ENTRY (rd->ov_range_upper_entry), str);
650 gchar *str = num_to_string (ov->v.range[1]);
652 gtk_toggle_button_set_active
653 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_LOW_UP]), TRUE);
655 gtk_entry_set_text (GTK_ENTRY (rd->ov_low_up_entry), str);
663 gchar *str = num_to_string (ov->v.range[0]);
665 gtk_toggle_button_set_active
666 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_HIGH_DOWN]), TRUE);
668 gtk_entry_set_text (GTK_ENTRY (rd->ov_high_down_entry), str);
675 gtk_toggle_button_set_active
676 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_ELSE]), TRUE);
680 g_warning ("Unknown old value type");
683 g_value_unset (&ov_value);
687 /* Callback which gets called when a new row is selected
688 in the variable treeview.
689 It sets the name and label entry widgets to reflect the
690 currently selected row.
693 on_selection_change (GtkTreeSelection *selection, gpointer data)
695 struct recode_dialog *rd = data;
696 GtkTreeModel *model = GTK_TREE_MODEL (rd->var_map);
698 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
700 if ( rows && !rows->next)
702 /* Exactly one row is selected */
709 gtk_widget_set_sensitive (rd->change_button, TRUE);
710 gtk_widget_set_sensitive (rd->new_name_entry, TRUE);
711 gtk_widget_set_sensitive (rd->new_label_entry, TRUE);
713 ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
715 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
717 COL_NEW_LABEL, &label,
720 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), name ? name : "");
721 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), label ? label : "");
728 gtk_widget_set_sensitive (rd->change_button, FALSE);
729 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
730 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
732 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
733 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);
765 on_change_clicked (GObject *obj, gpointer data)
767 struct recode_dialog *rd = data;
768 GtkTreeModel *model = GTK_TREE_MODEL (rd->var_map);
770 GtkTreeSelection *selection =
771 gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
773 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
775 const gchar *dest_var_name =
776 gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
778 const gchar *dest_var_label =
779 gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
784 gtk_tree_model_get_iter (model, &iter, rows->data);
786 gtk_list_store_set (rd->var_map, &iter,
787 COL_NEW_NAME, dest_var_name,
788 COL_NEW_LABEL, dest_var_label,
791 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
796 /* If there's nothing selected in the variable treeview,
797 then automatically select the first item */
799 select_something (GtkTreeModel *treemodel,
804 struct recode_dialog *rd = data;
805 GtkTreeSelection *sel;
807 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
809 if ( gtk_tree_selection_count_selected_rows (sel) < 1)
813 gtk_tree_model_get_iter_first (treemodel, &iter);
815 gtk_tree_selection_select_iter (sel, &iter);
820 /* Callback for the new_value_entry and new_value_togglebutton widgets.
821 It's used to enable/disable the acr. */
823 set_acr (struct recode_dialog *rd)
827 if ( !gtk_toggle_button_get_active
828 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
830 psppire_acr_set_enabled (rd->acr, TRUE);
834 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
836 psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
840 recode_dialog (struct data_editor *de, gboolean diff)
844 struct recode_dialog rd;
846 GladeXML *xml = XML_NEW ("recode.glade");
849 GtkWidget *selector = get_widget_assert (xml, "psppire-selector1");
851 GtkWidget *oldandnew = get_widget_assert (xml, "button1");
854 GtkWidget *output_variable_box = get_widget_assert (xml,"frame4");
856 GtkSheet *var_sheet =
857 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
860 PsppireVarStore *vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
862 rd.change_button = get_widget_assert (xml, "change-button");
864 rd.dialog = get_widget_assert (xml, "recode-dialog");
865 rd.dict_treeview = get_widget_assert (xml, "treeview1");
866 rd.variable_treeview = get_widget_assert (xml, "treeview2");
867 rd.new_name_entry = get_widget_assert (xml, "dest-name-entry");
868 rd.new_label_entry = get_widget_assert (xml, "dest-label-entry");
872 rd.value_map = gtk_list_store_new (2,
873 old_value_get_type (),
874 new_value_get_type ()
877 g_object_set (output_variable_box, "visible", diff, NULL);
880 gtk_window_set_title (GTK_WINDOW (rd.dialog),
881 _("Recode into Different Variables"));
883 gtk_window_set_title (GTK_WINDOW (rd.dialog),
884 _("Recode into Same Variables"));
888 gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), de->parent.window);
891 attach_dictionary_to_treeview (GTK_TREE_VIEW (rd.dict_treeview),
893 GTK_SELECTION_MULTIPLE, NULL);
896 if ( ! rd.different )
898 set_dest_model (GTK_TREE_VIEW (rd.variable_treeview), vs->dict);
902 GtkTreeSelection *sel;
903 GtkTreeViewColumn *col;
904 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
906 rd.var_map = gtk_list_store_new (n_COLS, G_TYPE_INT,
912 gtk_tree_view_set_model (GTK_TREE_VIEW (rd.variable_treeview),
913 GTK_TREE_MODEL (rd.var_map));
915 col = gtk_tree_view_column_new_with_attributes (_("Old"),
920 gtk_tree_view_column_set_cell_data_func (col, renderer,
925 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
928 renderer = gtk_cell_renderer_text_new ();
930 col = gtk_tree_view_column_new_with_attributes (_("New"),
935 gtk_tree_view_column_set_cell_data_func (col, renderer,
940 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
942 g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
944 g_signal_connect (rd.change_button, "clicked",
945 G_CALLBACK (on_change_clicked), &rd);
947 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
948 g_signal_connect (sel, "changed",
949 G_CALLBACK (on_selection_change), &rd);
951 g_signal_connect (rd.var_map, "row-inserted",
952 G_CALLBACK (select_something), &rd);
957 psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector),
959 rd.variable_treeview,
960 insert_source_row_into_tree_view,
964 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
966 /* Set up the Old & New Values subdialog */
968 rd.string_button = get_widget_assert (xml, "checkbutton1");
969 rd.width_entry = get_widget_assert (xml, "spinbutton1");
971 rd.convert_button = get_widget_assert (xml, "checkbutton2");
973 rd.ov_range_lower_entry = get_widget_assert (xml, "entry5");
974 rd.ov_range_upper_entry = get_widget_assert (xml, "entry3");
975 rd.ov_low_up_entry = get_widget_assert (xml, "entry6");
976 rd.ov_high_down_entry = get_widget_assert (xml, "entry7");
978 rd.new_value_entry = get_widget_assert (xml, "entry1");
979 rd.ov_value_entry = get_widget_assert (xml, "entry2");
981 rd.toggle[BUTTON_NEW_VALUE] = get_widget_assert (xml, "radiobutton1");
982 rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (xml, "radiobutton2");
983 rd.toggle[BUTTON_NEW_COPY] = get_widget_assert (xml, "radiobutton3");
984 rd.toggle[BUTTON_OLD_VALUE] = get_widget_assert (xml, "radiobutton4");
985 rd.toggle[BUTTON_OLD_SYSMIS] = get_widget_assert (xml, "radiobutton6");
986 rd.toggle[BUTTON_OLD_MISSING]= get_widget_assert (xml, "radiobutton7");
987 rd.toggle[BUTTON_OLD_RANGE] = get_widget_assert (xml, "radiobutton8");
988 rd.toggle[BUTTON_OLD_LOW_UP] = get_widget_assert (xml, "radiobutton10");
989 rd.toggle[BUTTON_OLD_HIGH_DOWN] = get_widget_assert (xml, "radiobutton5");
990 rd.toggle[BUTTON_OLD_ELSE] = get_widget_assert (xml, "radiobutton11");
992 rd.new_copy_label = get_widget_assert (xml, "label3");
993 rd.strings_box = get_widget_assert (xml, "table3");
995 rd.old_and_new_dialog =
996 PSPPIRE_DIALOG (get_widget_assert (xml, "old-new-values-dialog"));
998 gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
1001 rd.acr = PSPPIRE_ACR (get_widget_assert (xml, "psppire-acr1"));
1003 g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1004 G_CALLBACK (set_acr), &rd);
1006 g_signal_connect_swapped (rd.new_value_entry, "changed",
1007 G_CALLBACK (set_acr), &rd);
1010 GtkTreeSelection *sel;
1011 /* Remove the ACR's default column. We don't like it */
1012 GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
1013 gtk_tree_view_remove_column (rd.acr->tv, column);
1017 gtk_tree_view_column_new_with_attributes (_("Old"),
1018 gtk_cell_renderer_text_new (),
1022 gtk_tree_view_append_column (rd.acr->tv, column);
1025 gtk_tree_view_column_new_with_attributes (_("New"),
1026 gtk_cell_renderer_text_new (),
1030 gtk_tree_view_append_column (rd.acr->tv, column);
1031 g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
1034 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
1035 g_signal_connect (sel, "changed",
1036 G_CALLBACK (on_acr_selection_change), &rd);
1040 g_signal_connect_swapped (oldandnew, "clicked",
1041 G_CALLBACK (run_old_and_new_dialog), &rd);
1044 g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1045 G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
1047 g_signal_connect (rd.toggle[BUTTON_OLD_VALUE], "toggled",
1048 G_CALLBACK (toggle_sensitivity), rd.ov_value_entry);
1050 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1051 G_CALLBACK (toggle_sensitivity),
1052 get_widget_assert (xml, "entry3"));
1054 g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1055 G_CALLBACK (toggle_sensitivity),
1056 get_widget_assert (xml, "entry5"));
1058 g_signal_connect (rd.toggle[BUTTON_OLD_LOW_UP], "toggled",
1059 G_CALLBACK (toggle_sensitivity), rd.ov_low_up_entry);
1061 g_signal_connect (rd.toggle[BUTTON_OLD_HIGH_DOWN], "toggled",
1062 G_CALLBACK (toggle_sensitivity), rd.ov_high_down_entry);
1064 g_signal_connect (rd.string_button, "toggled",
1065 G_CALLBACK (toggle_sensitivity), rd.width_entry);
1067 g_signal_connect (rd.string_button, "toggled",
1068 G_CALLBACK (on_string_toggled), &rd);
1070 g_signal_connect (rd.convert_button, "toggled",
1071 G_CALLBACK (on_convert_toggled), &rd);
1073 g_signal_connect_swapped (rd.old_and_new_dialog, "show",
1074 G_CALLBACK (on_old_new_show), &rd);
1077 g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh), &rd);
1080 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
1081 dialog_state_valid, &rd);
1083 response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
1087 case GTK_RESPONSE_OK:
1089 gchar *syntax = generate_syntax (&rd);
1090 struct getl_interface *sss = create_syntax_string_source (syntax);
1091 execute_syntax (sss);
1096 case PSPPIRE_RESPONSE_PASTE:
1098 gchar *syntax = generate_syntax (&rd);
1100 struct syntax_editor *se =
1101 (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
1103 gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
1113 gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
1114 g_object_unref (rd.value_map);
1116 g_object_unref (xml);
1119 /* Initialise VAL to reflect the current status of RD */
1121 set_old_value (GValue *val, const struct recode_dialog *rd)
1123 const gchar *text = NULL;
1124 struct old_value ov;
1125 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1126 (rd->toggle [BUTTON_OLD_VALUE])))
1128 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_value_entry));
1129 if ( rd->input_var_is_string )
1131 ov.type = OV_STRING;
1132 ov.v.s = g_strdup (text);
1136 ov.type = OV_NUMERIC;
1137 ov.v.v = g_strtod (text, 0);
1140 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1141 (rd->toggle [BUTTON_OLD_MISSING])))
1143 ov.type = OV_MISSING;
1145 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1146 (rd->toggle [BUTTON_OLD_SYSMIS])))
1148 ov.type = OV_SYSMIS;
1150 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1151 (rd->toggle [BUTTON_OLD_ELSE])))
1155 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1156 (rd->toggle [BUTTON_OLD_RANGE])))
1159 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_lower_entry));
1162 ov.v.range[0] = g_strtod (text, 0);
1164 text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_upper_entry));
1165 ov.v.range[1] = g_strtod (text, 0);
1167 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1168 (rd->toggle [BUTTON_OLD_LOW_UP])))
1171 gtk_entry_get_text (GTK_ENTRY (rd->ov_low_up_entry));
1173 ov.type = OV_LOW_UP;
1174 ov.v.range[1] = g_strtod (text, 0);
1176 else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1177 (rd->toggle [BUTTON_OLD_HIGH_DOWN])))
1180 gtk_entry_get_text (GTK_ENTRY (rd->ov_high_down_entry));
1182 ov.type = OV_HIGH_DOWN;
1183 ov.v.range[0] = g_strtod (text, 0);
1188 g_value_init (val, old_value_get_type ());
1189 g_value_set_boxed (val, &ov);
1195 /* Initialse VAL to reflect the current status of RD */
1197 set_new_value (GValue *val, const struct recode_dialog *rd)
1199 const gchar *text = NULL;
1200 struct new_value nv;
1202 if ( gtk_toggle_button_get_active
1203 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
1205 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
1207 nv.type = NV_NUMERIC;
1209 (! rd->different && rd->input_var_is_string) ||
1211 gtk_toggle_button_get_active
1212 (GTK_TOGGLE_BUTTON (rd->string_button)))
1215 nv.type = NV_STRING;
1218 if ( nv.type == NV_STRING )
1219 nv.v.s = g_strdup (text);
1221 nv.v.v = g_strtod (text, 0);
1223 else if ( gtk_toggle_button_get_active
1224 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
1229 else if ( gtk_toggle_button_get_active
1230 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
1232 nv.type = NV_SYSMIS;
1237 g_value_init (val, new_value_get_type ());
1238 g_value_set_boxed (val, &nv);
1244 /* A function to set a value in a column in the ACR */
1246 set_value (gint col, GValue *val, gpointer data)
1248 struct recode_dialog *rd = data;
1253 set_old_value (val, rd);
1256 set_new_value (val, rd);
1266 run_old_and_new_dialog (struct recode_dialog *rd)
1269 GtkListStore *local_store = clone_list_store (rd->value_map);
1271 psppire_acr_set_model (rd->acr, local_store);
1272 psppire_acr_set_get_value_func (rd->acr, set_value, rd);
1274 gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
1276 ? _("Recode into Different Variables: Old and New Values ")
1277 : _("Recode into Same Variables: Old and New Values")
1282 /* Find the type of the first variable (it's invariant that
1283 all variables are of the same type) */
1284 const struct variable *v;
1287 GtkTreeModel *model =
1288 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
1290 gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
1292 g_return_if_fail (not_empty);
1294 gtk_tree_model_get (model, &iter, 0, &idx, -1);
1296 v = psppire_dict_get_variable (rd->dict, idx);
1298 rd->input_var_is_string = var_is_alpha (v);
1300 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_SYSMIS],
1301 var_is_numeric (v));
1302 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_RANGE],
1303 var_is_numeric (v));
1304 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_LOW_UP],
1305 var_is_numeric (v));
1306 gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_HIGH_DOWN],
1307 var_is_numeric (v));
1308 gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
1309 var_is_numeric (v));
1311 gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
1315 response = psppire_dialog_run (rd->old_and_new_dialog);
1316 psppire_acr_set_model (rd->acr, NULL);
1319 if ( response == PSPPIRE_RESPONSE_CONTINUE )
1321 g_object_unref (rd->value_map);
1322 rd->value_map = clone_list_store (local_store);
1325 g_object_unref (local_store);
1328 psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
1332 /* Generate a syntax fragment for NV and append it to STR */
1334 new_value_append_syntax (GString *str, const struct new_value *nv)
1339 g_string_append_printf (str, "%g", nv->v.v);
1344 ds_init_cstr (&ds, nv->v.s);
1345 gen_quoted_string (&ds);
1346 g_string_append (str, ds_cstr (&ds));
1351 g_string_append (str, "COPY");
1354 g_string_append (str, "SYSMIS");
1357 /* Shouldn't ever happen */
1358 g_warning ("Invalid type in new recode value");
1359 g_string_append (str, "???");
1365 /* Generate a syntax fragment for NV and append it to STR */
1367 old_value_append_syntax (GString *str, const struct old_value *ov)
1372 g_string_append_printf (str, "%g", ov->v.v);
1377 ds_init_cstr (&ds, ov->v.s);
1378 gen_quoted_string (&ds);
1379 g_string_append (str, ds_cstr (&ds));
1384 g_string_append (str, "MISSING");
1387 g_string_append (str, "SYSMIS");
1390 g_string_append (str, "ELSE");
1393 g_string_append_printf (str, "%g THRU %g",
1398 g_string_append_printf (str, "LOWEST THRU %g",
1402 g_string_append_printf (str, "%g THRU HIGHEST",
1406 g_warning ("Invalid type in old recode value");
1407 g_string_append (str, "???");
1415 generate_syntax (const struct recode_dialog *rd)
1421 GString *str = g_string_sized_new (100);
1423 /* Declare new string variables if applicable */
1424 if ( rd->different &&
1425 gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
1430 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1433 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1437 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1438 COL_NEW_NAME, &name, -1);
1440 g_string_append (str, "\nSTRING ");
1441 g_string_append (str, name);
1442 g_string_append_printf (str, " (A%d).",
1444 gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1451 g_string_append (str, "\nRECODE ");
1453 append_variable_names (str, rd->dict, GTK_TREE_VIEW (rd->variable_treeview), 0);
1455 g_string_append (str, "\n\t");
1457 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1459 g_string_append (str, "(CONVERT) ");
1462 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1465 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1467 GValue ov_value = {0};
1468 GValue nv_value = {0};
1469 struct old_value *ov;
1470 struct new_value *nv;
1471 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1472 COL_VALUE_OLD, &ov_value);
1474 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1475 COL_VALUE_NEW, &nv_value);
1477 ov = g_value_get_boxed (&ov_value);
1478 nv = g_value_get_boxed (&nv_value);
1480 g_string_append (str, "(");
1482 old_value_append_syntax (str, ov);
1483 g_string_append (str, " = ");
1484 new_value_append_syntax (str, nv);
1486 g_string_append (str, ") ");
1487 g_value_unset (&ov_value);
1488 g_value_unset (&nv_value);
1492 if ( rd->different )
1495 g_string_append (str, "\n\tINTO ");
1497 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1500 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1504 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1505 COL_NEW_NAME, &name, -1);
1507 g_string_append (str, name);
1508 g_string_append (str, " ");
1514 g_string_append (str, ".");
1517 /* If applicable, set labels for the new variables. */
1518 if ( rd->different )
1522 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1525 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1528 gchar *label = NULL;
1531 gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1532 COL_NEW_NAME, &name,
1533 COL_NEW_LABEL, &label, -1);
1535 if ( 0 == strcmp (label, "") )
1542 ds_init_cstr (&ls, label);
1544 gen_quoted_string (&ls);
1546 g_string_append_printf (str, "\nVARIABLE LABELS %s %s.",
1547 name, ds_cstr (&ls));
1555 g_string_append (str, "\nEXECUTE.\n");
1560 g_string_free (str, FALSE);