1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007, 2009, 2010, 2011, 2012 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/builder-wrapper.h>
39 #include <ui/gui/psppire-dialog.h>
40 #include <ui/gui/psppire-var-store.h>
42 #include "psppire-val-chooser.h"
44 #include <ui/syntax-gen.h>
46 #include "psppire-acr.h"
49 #define _(msgid) gettext (msgid)
50 #define N_(msgid) msgid
53 /* Define a boxed type to represent a value which is a candidate
54 to replace an existing value */
67 enum new_value_type type;
75 static struct new_value *
76 new_value_copy (struct new_value *nv)
78 struct new_value *copy = g_memdup (nv, sizeof (*copy));
80 if ( nv->type == NV_STRING )
81 copy->v.s = xstrdup (nv->v.s);
88 new_value_free (struct new_value *nv)
90 if ( nv->type == NV_STRING )
98 new_value_to_string (const GValue *src, GValue *dest)
100 const struct new_value *nv = g_value_get_boxed (src);
108 gchar *text = g_strdup_printf ("%g", nv->v.v);
109 g_value_set_string (dest, text);
114 g_value_set_string (dest, nv->v.s);
117 g_value_set_string (dest, "COPY");
120 g_value_set_string (dest, "SYSMIS");
123 /* Shouldn't ever happen */
124 g_warning ("Invalid type in new recode value");
125 g_value_set_string (dest, "???");
131 new_value_get_type (void)
137 t = g_boxed_type_register_static ("psppire-recode-new-values",
138 (GBoxedCopyFunc) new_value_copy,
139 (GBoxedFreeFunc) new_value_free);
141 g_value_register_transform_func (t, G_TYPE_STRING,
142 new_value_to_string);
164 PsppireDialog *old_and_new_dialog;
166 GtkWidget *dict_treeview;
167 GtkWidget *variable_treeview;
168 GtkWidget *toggle[n_BUTTONS];
170 GtkWidget *strings_box;
171 GtkWidget *convert_button;
172 GtkWidget *new_copy_label;
174 GtkWidget *new_value_entry;
176 GtkWidget *old_value_chooser;
178 GtkListStore *value_map;
180 /* Indicates that the INTO {new variables} form of the dialog
186 gboolean input_var_is_string;
188 GtkWidget *new_name_entry;
189 GtkWidget *new_label_entry;
190 GtkWidget *change_button;
192 GtkWidget *string_button;
193 GtkWidget *width_entry;
195 /* A hash table of struct nlp's indexed by variable */
200 static void run_old_and_new_dialog (struct recode_dialog *rd);
203 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
206 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
208 gtk_list_store_clear (GTK_LIST_STORE (vars));
210 gtk_widget_set_sensitive (rd->change_button, FALSE);
211 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
212 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
214 if ( rd->different && rd->varmap )
215 g_hash_table_remove_all (rd->varmap);
217 gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
220 static char * generate_syntax (const struct recode_dialog *rd);
228 /* Dialog is valid iff at least one variable has been selected,
229 AND the list of mappings is not empty.
232 dialog_state_valid (gpointer data)
234 GtkTreeIter not_used;
235 struct recode_dialog *rd = data;
237 if ( ! rd->value_map )
240 if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
246 GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
248 if (g_hash_table_size (rd->varmap) != gtk_tree_model_iter_n_children (model, NULL) )
254 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
256 if ( !gtk_tree_model_get_iter_first (vars, ¬_used))
264 on_old_new_show (struct recode_dialog *rd)
266 gtk_toggle_button_set_active
267 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
269 g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
271 g_object_set (rd->toggle[BUTTON_NEW_COPY],
272 "visible", rd->different, NULL);
274 g_object_set (rd->new_copy_label,
275 "visible", rd->different, NULL);
277 g_object_set (rd->strings_box,
278 "visible", rd->different, NULL);
281 /* Sets the sensitivity of TARGET dependent upon the active status
284 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
286 gboolean state = gtk_toggle_button_get_active (button);
288 /* g_print ("%s Setting %p (%s) to %d because of %p\n",
289 __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
291 gtk_widget_set_sensitive (target, state);
294 static void recode_dialog (PsppireDataWindow *de, gboolean diff);
297 /* Pops up the Recode Same version of the dialog box */
299 recode_same_dialog (PsppireDataWindow *de)
301 recode_dialog (de, FALSE);
304 /* Pops up the Recode Different version of the dialog box */
306 recode_different_dialog (PsppireDataWindow *de)
308 recode_dialog (de, TRUE);
312 /* This might need to be changed to something less naive.
313 In particular, what happends with dates, etc?
316 num_to_string (gdouble x)
318 return g_strdup_printf ("%g", x);
321 /* Callback which gets called when a new row is selected
322 in the acr's variable treeview.
323 We use if to set the togglebuttons and entries to correspond to the
327 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
329 struct recode_dialog *rd = data;
330 GtkTreeModel *model = NULL;
333 GValue ov_value = {0};
334 GValue nv_value = {0};
335 struct old_value *ov = NULL;
336 struct new_value *nv = NULL;
338 if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
342 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
343 COL_VALUE_OLD, &ov_value);
345 gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
346 COL_VALUE_NEW, &nv_value);
348 ov = g_value_get_boxed (&ov_value);
349 nv = g_value_get_boxed (&nv_value);
357 gchar *str = num_to_string (nv->v.v);
359 gtk_toggle_button_set_active
360 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
362 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
367 gtk_toggle_button_set_active
368 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
370 gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
373 gtk_toggle_button_set_active
374 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
378 gtk_toggle_button_set_active
379 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
383 g_warning ("Invalid new value type");
387 g_value_unset (&nv_value);
390 psppire_val_chooser_set_status (PSPPIRE_VAL_CHOOSER (rd->old_value_chooser), ov);
393 /* Name-Label pair */
401 nlp_create (const char *name, const char *label)
403 struct nlp *nlp = xmalloc (sizeof *nlp);
405 nlp->name = g_strdup (name);
409 if ( 0 != strcmp ("", label))
410 nlp->label = g_strdup (label);
416 nlp_destroy (gpointer data)
418 struct nlp *nlp = data ;
428 /* Callback which gets called when a new row is selected
429 in the variable treeview.
430 It sets the name and label entry widgets to reflect the
431 currently selected row.
434 on_selection_change (GtkTreeSelection *selection, gpointer data)
436 struct recode_dialog *rd = data;
438 GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
440 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
442 if ( rows && !rows->next)
444 /* Exactly one row is selected */
446 struct variable *var;
450 gtk_widget_set_sensitive (rd->change_button, TRUE);
451 gtk_widget_set_sensitive (rd->new_name_entry, TRUE);
452 gtk_widget_set_sensitive (rd->new_label_entry, TRUE);
454 ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
455 g_return_if_fail (ok);
457 gtk_tree_model_get (model, &iter,
461 nlp = g_hash_table_lookup (rd->varmap, var);
465 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), nlp->name ? nlp->name : "");
466 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), nlp->label ? nlp->label : "");
470 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
471 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
476 gtk_widget_set_sensitive (rd->change_button, FALSE);
477 gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
478 gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
480 gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
481 gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
485 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
490 on_string_toggled (GtkToggleButton *b, struct recode_dialog *rd)
493 if (! rd->input_var_is_string )
496 active = gtk_toggle_button_get_active (b);
497 gtk_widget_set_sensitive (rd->convert_button, !active);
502 on_convert_toggled (GtkToggleButton *b, struct recode_dialog *rd)
506 g_return_if_fail (rd->input_var_is_string);
508 active = gtk_toggle_button_get_active (b);
509 gtk_widget_set_sensitive (rd->string_button, !active);
513 on_change_clicked (GObject *obj, gpointer data)
515 struct recode_dialog *rd = data;
516 struct variable *var = NULL;
519 GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
522 GtkTreeSelection *selection =
523 gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
525 GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
527 const gchar *dest_var_name =
528 gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
530 const gchar *dest_var_label =
531 gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
533 if ( NULL == rows || rows->next != NULL)
536 gtk_tree_model_get_iter (model, &iter, rows->data);
538 gtk_tree_model_get (model, &iter, 0, &var, -1);
540 g_hash_table_remove (rd->varmap, var);
542 nlp = nlp_create (dest_var_name, dest_var_label);
544 g_hash_table_insert (rd->varmap, var, nlp);
546 gtk_tree_model_row_changed (model, rows->data, &iter);
549 g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
555 focus_value_entry (GtkWidget *w, struct recode_dialog *rd)
557 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (w)))
558 gtk_widget_grab_focus (rd->new_value_entry);
562 /* Callback for the new_value_entry and new_value_togglebutton widgets.
563 It's used to enable/disable the acr. */
565 set_acr (struct recode_dialog *rd)
569 if ( !gtk_toggle_button_get_active
570 (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
572 psppire_acr_set_enabled (rd->acr, TRUE);
576 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
578 psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
582 render_new_var_name (GtkTreeViewColumn *tree_column,
583 GtkCellRenderer *cell,
584 GtkTreeModel *tree_model,
588 struct nlp *nlp = NULL;
589 struct recode_dialog *rd = data;
591 struct variable *var = NULL;
593 gtk_tree_model_get (tree_model, iter,
597 nlp = g_hash_table_lookup (rd->varmap, var);
600 g_object_set (cell, "text", nlp->name, NULL);
602 g_object_set (cell, "text", "", NULL);
608 recode_dialog (PsppireDataWindow *de, gboolean diff)
612 struct recode_dialog rd;
614 GtkBuilder *builder = builder_new ("recode.ui");
616 GtkWidget *selector = get_widget_assert (builder, "psppire-selector1");
618 GtkWidget *oldandnew = get_widget_assert (builder, "button1");
621 GtkWidget *output_variable_box = get_widget_assert (builder,"frame4");
623 PsppireVarStore *vs = NULL;
624 g_object_get (de->data_editor, "var-store", &vs, NULL);
626 rd.change_button = get_widget_assert (builder, "change-button");
628 rd.dialog = get_widget_assert (builder, "recode-dialog");
629 rd.dict_treeview = get_widget_assert (builder, "treeview1");
630 rd.variable_treeview = get_widget_assert (builder, "treeview2");
631 rd.new_name_entry = get_widget_assert (builder, "dest-name-entry");
632 rd.new_label_entry = get_widget_assert (builder, "dest-label-entry");
634 g_object_get (vs, "dictionary", &rd.dict, NULL);
636 rd.value_map = gtk_list_store_new (2,
637 old_value_get_type (),
638 new_value_get_type ()
641 g_object_set (output_variable_box, "visible", diff, NULL);
644 gtk_window_set_title (GTK_WINDOW (rd.dialog),
645 _("Recode into Different Variables"));
647 gtk_window_set_title (GTK_WINDOW (rd.dialog),
648 _("Recode into Same Variables"));
652 gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
654 g_object_set (rd.dict_treeview, "model", rd.dict, NULL);
658 GtkTreeSelection *sel;
660 GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
662 GtkTreeViewColumn *col = gtk_tree_view_column_new_with_attributes (_("New"),
667 gtk_tree_view_column_set_cell_data_func (col, renderer,
672 gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
675 col = gtk_tree_view_get_column (GTK_TREE_VIEW (rd.variable_treeview), 0);
677 g_object_set (col, "title", _("Old"), NULL);
679 g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
681 rd.varmap = g_hash_table_new_full (g_direct_hash, g_direct_equal, NULL, nlp_destroy);
683 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
685 g_signal_connect (sel, "changed",
686 G_CALLBACK (on_selection_change), &rd);
688 g_signal_connect (rd.change_button, "clicked",
689 G_CALLBACK (on_change_clicked), &rd);
693 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
695 /* Set up the Old & New Values subdialog */
697 rd.string_button = get_widget_assert (builder, "checkbutton1");
698 rd.width_entry = get_widget_assert (builder, "spinbutton1");
700 rd.convert_button = get_widget_assert (builder, "checkbutton2");
702 rd.old_value_chooser = get_widget_assert (builder, "val-chooser");
704 rd.new_value_entry = get_widget_assert (builder, "entry1");
707 rd.toggle[BUTTON_NEW_VALUE] = get_widget_assert (builder, "radiobutton1");
708 rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (builder, "radiobutton2");
709 rd.toggle[BUTTON_NEW_COPY] = get_widget_assert (builder, "radiobutton3");
711 rd.new_copy_label = get_widget_assert (builder, "label3");
712 rd.strings_box = get_widget_assert (builder, "table3");
714 rd.old_and_new_dialog =
715 PSPPIRE_DIALOG (get_widget_assert (builder, "old-new-values-dialog"));
717 gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
720 rd.acr = PSPPIRE_ACR (get_widget_assert (builder, "psppire-acr1"));
722 g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
723 G_CALLBACK (set_acr), &rd);
725 g_signal_connect_after (rd.toggle[BUTTON_NEW_VALUE], "toggled",
726 G_CALLBACK (focus_value_entry), &rd);
728 g_signal_connect_swapped (rd.new_value_entry, "changed",
729 G_CALLBACK (set_acr), &rd);
732 GtkTreeSelection *sel;
733 /* Remove the ACR's default column. We don't like it */
734 GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
735 gtk_tree_view_remove_column (rd.acr->tv, column);
739 gtk_tree_view_column_new_with_attributes (_("Old"),
740 gtk_cell_renderer_text_new (),
744 gtk_tree_view_append_column (rd.acr->tv, column);
747 gtk_tree_view_column_new_with_attributes (_("New"),
748 gtk_cell_renderer_text_new (),
752 gtk_tree_view_append_column (rd.acr->tv, column);
753 g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
756 sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
757 g_signal_connect (sel, "changed",
758 G_CALLBACK (on_acr_selection_change), &rd);
762 g_signal_connect_swapped (oldandnew, "clicked",
763 G_CALLBACK (run_old_and_new_dialog), &rd);
766 g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
767 G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
769 g_signal_connect (rd.string_button, "toggled",
770 G_CALLBACK (toggle_sensitivity), rd.width_entry);
772 g_signal_connect (rd.string_button, "toggled",
773 G_CALLBACK (on_string_toggled), &rd);
775 g_signal_connect (rd.convert_button, "toggled",
776 G_CALLBACK (on_convert_toggled), &rd);
778 g_signal_connect_swapped (rd.old_and_new_dialog, "show",
779 G_CALLBACK (on_old_new_show), &rd);
782 g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh), &rd);
785 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
786 dialog_state_valid, &rd);
788 response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
792 case GTK_RESPONSE_OK:
793 g_free (execute_syntax_string (de, generate_syntax (&rd)));
795 case PSPPIRE_RESPONSE_PASTE:
796 g_free (paste_syntax_to_window (generate_syntax (&rd)));
803 g_hash_table_destroy (rd.varmap);
805 gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
806 g_object_unref (rd.value_map);
808 g_object_unref (builder);
811 /* Initialise VAL to reflect the current status of RD */
813 set_old_value (GValue *val, const struct recode_dialog *rd)
815 PsppireValChooser *vc = PSPPIRE_VAL_CHOOSER (rd->old_value_chooser);
819 psppire_val_chooser_get_status (vc, &ov);
821 g_value_init (val, old_value_get_type ());
822 g_value_set_boxed (val, &ov);
828 /* Initialse VAL to reflect the current status of RD */
830 set_new_value (GValue *val, const struct recode_dialog *rd)
832 const gchar *text = NULL;
835 if ( gtk_toggle_button_get_active
836 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
838 text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
840 nv.type = NV_NUMERIC;
842 (! rd->different && rd->input_var_is_string) ||
844 gtk_toggle_button_get_active
845 (GTK_TOGGLE_BUTTON (rd->string_button)))
851 if ( nv.type == NV_STRING )
852 nv.v.s = g_strdup (text);
854 nv.v.v = g_strtod (text, 0);
856 else if ( gtk_toggle_button_get_active
857 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
862 else if ( gtk_toggle_button_get_active
863 (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
870 g_value_init (val, new_value_get_type ());
871 g_value_set_boxed (val, &nv);
877 /* A function to set a value in a column in the ACR */
879 set_value (gint col, GValue *val, gpointer data)
881 struct recode_dialog *rd = data;
886 set_old_value (val, rd);
889 set_new_value (val, rd);
899 run_old_and_new_dialog (struct recode_dialog *rd)
902 GtkListStore *local_store = clone_list_store (rd->value_map);
904 psppire_acr_set_model (rd->acr, local_store);
905 psppire_acr_set_get_value_func (rd->acr, set_value, rd);
907 gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
909 ? _("Recode into Different Variables: Old and New Values ")
910 : _("Recode into Same Variables: Old and New Values")
915 /* Find the type of the first variable (it's invariant that
916 all variables are of the same type) */
917 const struct variable *v;
919 GtkTreeModel *model =
920 gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
922 gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
924 g_return_if_fail (not_empty);
926 gtk_tree_model_get (model, &iter, 0, &v, -1);
928 rd->input_var_is_string = var_is_alpha (v);
930 g_object_set (rd->old_value_chooser, "is-string", rd->input_var_is_string, NULL);
932 gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
935 gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
939 response = psppire_dialog_run (rd->old_and_new_dialog);
940 psppire_acr_set_model (rd->acr, NULL);
943 if ( response == PSPPIRE_RESPONSE_CONTINUE )
945 g_object_unref (rd->value_map);
946 rd->value_map = clone_list_store (local_store);
949 g_object_unref (local_store);
952 psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
956 /* Generate a syntax fragment for NV and append it to STR */
958 new_value_append_syntax (struct string *dds, const struct new_value *nv)
963 ds_put_c_format (dds, "%g", nv->v.v);
966 syntax_gen_string (dds, ss_cstr (nv->v.s));
969 ds_put_cstr (dds, "COPY");
972 ds_put_cstr (dds, "SYSMIS");
975 /* Shouldn't ever happen */
976 g_warning ("Invalid type in new recode value");
977 ds_put_cstr (dds, "???");
984 generate_syntax (const struct recode_dialog *rd)
991 ds_init_empty (&dds);
994 /* Declare new string variables if applicable */
995 if ( rd->different &&
996 gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
1000 struct variable *var = NULL;
1001 struct nlp *nlp = NULL;
1003 g_hash_table_iter_init (&iter, rd->varmap);
1004 while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1006 ds_put_cstr (&dds, "\nSTRING ");
1007 ds_put_cstr (&dds, nlp->name);
1008 ds_put_c_format (&dds, " (A%d).",
1010 gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1015 ds_put_cstr (&dds, "\nRECODE ");
1017 psppire_var_view_append_names_str (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, &dds);
1019 ds_put_cstr (&dds, "\n\t");
1021 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1023 ds_put_cstr (&dds, "(CONVERT) ");
1026 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1029 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1031 GValue ov_value = {0};
1032 GValue nv_value = {0};
1033 struct old_value *ov;
1034 struct new_value *nv;
1035 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1036 COL_VALUE_OLD, &ov_value);
1038 gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1039 COL_VALUE_NEW, &nv_value);
1041 ov = g_value_get_boxed (&ov_value);
1042 nv = g_value_get_boxed (&nv_value);
1044 ds_put_cstr (&dds, "(");
1046 old_value_append_syntax (&dds, ov);
1047 ds_put_cstr (&dds, " = ");
1048 new_value_append_syntax (&dds, nv);
1050 ds_put_cstr (&dds, ") ");
1051 g_value_unset (&ov_value);
1052 g_value_unset (&nv_value);
1056 if ( rd->different )
1060 ds_put_cstr (&dds, "\n\tINTO ");
1062 for (ok = psppire_var_view_get_iter_first (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter);
1064 ok = psppire_var_view_get_iter_next (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter))
1066 struct nlp *nlp = NULL;
1067 const struct variable *var = psppire_var_view_get_variable (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, &iter);
1069 nlp = g_hash_table_lookup (rd->varmap, var);
1071 ds_put_cstr (&dds, nlp->name);
1072 ds_put_cstr (&dds, " ");
1076 ds_put_cstr (&dds, ".");
1078 /* If applicable, set labels for the new variables. */
1079 if ( rd->different )
1081 GHashTableIter iter;
1083 struct variable *var = NULL;
1084 struct nlp *nlp = NULL;
1086 g_hash_table_iter_init (&iter, rd->varmap);
1087 while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1092 ds_init_empty (&sl);
1093 syntax_gen_string (&sl, ss_cstr (nlp->label));
1094 ds_put_c_format (&dds, "\nVARIABLE LABELS %s %s.",
1095 nlp->name, ds_cstr (&sl));
1102 ds_put_cstr (&dds, "\nEXECUTE.\n");
1105 text = ds_steal_cstr (&dds);