pintos-os.org Git - pspp/blob - src/ui/gui/aggregate-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2010  Free Software Foundation
   3
   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.
   8
   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.
  13
  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/>. */
  16
  17 #include <config.h>
  18
  19 #include "dialog-common.h"
  20 #include <language/syntax-string-source.h>
  21
  22 #include <language/stats/aggregate.h>
  23
  24 #include <ui/syntax-gen.h>
  25 #include <libpspp/str.h>
  26
  27 #include "aggregate-dialog.h"
  28 #include "psppire-selector.h"
  29 #include "psppire-dictview.h"
  30 #include "psppire-dialog.h"
  31
  32 #include "psppire-data-window.h"
  33 #include "psppire-var-view.h"
  34 #include "psppire-acr.h"
  35
  36 #include "dict-display.h"
  37
  38 #include "executor.h"
  39 #include "helper.h"
  40
  41 #include <gtk/gtk.h>
  42
  43 #include "gettext.h"
  44 #define _(msgid) gettext (msgid)
  45 #define N_(msgid) msgid
  46
  47
  48 enum
  49   {
  50     COMBO_MODEL_COL_DESC = 0,
  51     COMBO_MODEL_COL_SYNTAX,
  52     COMBO_MODEL_COL_SRC_VARS,
  53     COMBO_MODEL_COL_ARITY
  54   };
  55
  56
  57 struct aggregate
  58 {
  59   GtkBuilder *xml;
  60   PsppireDataWindow *de ;
  61   PsppireDict *dict;
  62   GtkWidget *break_variables;
  63
  64   GtkWidget *replace_radiobutton;
  65   GtkWidget *add_radiobutton;
  66   GtkWidget *filename_radiobutton;
  67   GtkWidget *filename_button;
  68   GtkWidget *filename_box;
  69   GtkWidget *filename_label;
  70
  71   GtkWidget *function_combo;
  72
  73   GtkWidget *summary_acr;
  74   GtkWidget *summary_var_name_entry;
  75   GtkWidget *summary_var_label_entry;
  76
  77   GtkWidget *summary_sv;
  78   GtkWidget *summary_sv_entry;
  79
  80   GtkWidget *summary_arg1;
  81   GtkWidget *summary_arg2;
  82
  83   GtkWidget *summary_arg1_entry;
  84   GtkWidget *summary_arg2_entry;
  85
  86   GtkWidget *sorted_button;
  87   GtkWidget *needs_sort_button;
  88
  89   GtkWidget *pane;
  90 };
  91
  92
  93 static char * generate_syntax (const struct aggregate *rd);
  94
  95
  96 /* Makes widget W's sensitivity follow the active state of TOGGLE */
  97 static void
  98 sensitive_if_active (GtkToggleButton *toggle, GtkWidget *w)
  99 {
 100   gboolean active = gtk_toggle_button_get_active (toggle);
 101
 102   gtk_widget_set_sensitive (w, active);
 103 }
 104
 105 static void update_arguments (struct aggregate *agg);
 106
 107
 108 static void
 109 refresh (struct aggregate *agg)
 110 {
 111   GtkTreeModel *liststore =
 112     gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
 113   gtk_list_store_clear (GTK_LIST_STORE (liststore));
 114
 115   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->add_radiobutton), TRUE);
 116   gtk_label_set_text (GTK_LABEL (agg->filename_label), "");
 117
 118
 119   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->needs_sort_button), TRUE);
 120
 121   gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), "");
 122   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), "");
 123   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), "");
 124   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), "");
 125   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), "N_BREAK");
 126   gtk_editable_select_region (GTK_EDITABLE (agg->summary_var_name_entry), 0, -1);
 127
 128   gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), N);
 129
 130   gtk_list_store_clear (PSPPIRE_ACR (agg->summary_acr)->list_store);
 131
 132   update_arguments (agg);
 133 }
 134
 135
 136 static gboolean
 137 dialog_state_valid (gpointer data)
 138 {
 139   GtkTreeIter iter;
 140   const struct aggregate *agg = data;
 141
 142   GtkTreeModel *liststore =
 143     gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
 144
 145   if ( ! gtk_tree_model_get_iter_first  (liststore, &iter))
 146     return FALSE;
 147
 148   liststore = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
 149
 150   if ( ! gtk_tree_model_get_iter_first (liststore, &iter))
 151     return FALSE;
 152
 153   return TRUE;
 154 }
 155
 156
 157 static void
 158 choose_filename (struct aggregate *fd)
 159 {
 160   GtkFileFilter *filter;
 161
 162   GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Aggregate destination file"),
 163                                                            GTK_WINDOW (fd->de),
 164                                                            GTK_FILE_CHOOSER_ACTION_SAVE,
 165                                                            GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
 166                                                            GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
 167                                                            NULL);
 168
 169   gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE);
 170
 171
 172   filter = gtk_file_filter_new ();
 173   gtk_file_filter_set_name (filter, _("System Files (*.sav)"));
 174   gtk_file_filter_add_pattern (filter, "*.sav");
 175   gtk_file_filter_add_pattern (filter, "*.SAV");
 176   gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
 177
 178   filter = gtk_file_filter_new ();
 179   gtk_file_filter_set_name (filter, _("Portable Files (*.por) "));
 180   gtk_file_filter_add_pattern (filter, "*.por");
 181   gtk_file_filter_add_pattern (filter, "*.POR");
 182   gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
 183
 184
 185   if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT)
 186     {
 187       char *filename;
 188
 189       filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog));
 190
 191       gtk_label_set_text (GTK_LABEL (fd->filename_label), filename);
 192
 193       g_free (filename);
 194     }
 195
 196
 197   gtk_widget_destroy (dialog);
 198 }
 199
 200
 201 static void
 202 populate_combo_model (GtkComboBox *cb)
 203 {
 204   GtkListStore *list =  gtk_list_store_new (4, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT, G_TYPE_INT);
 205   GtkTreeIter iter;
 206   const struct agr_func *af = agr_func_tab;
 207   GtkCellRenderer *renderer ;
 208
 209   for (af = agr_func_tab; af->name; ++af)
 210     {
 211       const gchar *s = af->description;
 212       if (s == NULL)
 213         continue;
 214
 215       gtk_list_store_append (list, &iter);
 216       gtk_list_store_set (list, &iter,
 217                           COMBO_MODEL_COL_DESC, s,
 218                           COMBO_MODEL_COL_SYNTAX, af->name,
 219                           COMBO_MODEL_COL_SRC_VARS, af->src_vars,
 220                           COMBO_MODEL_COL_ARITY, af->n_args,
 221                           -1);
 222     }
 223
 224   renderer = gtk_cell_renderer_text_new ();
 225   gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (cb), renderer, FALSE);
 226
 227   gtk_cell_layout_add_attribute (GTK_CELL_LAYOUT (cb), renderer, "text", 0);
 228
 229   gtk_combo_box_set_model (GTK_COMBO_BOX (cb), GTK_TREE_MODEL (list));
 230 }
 231
 232
 233
 234 /* Returns TRUE iff all the necessary controls have been set to
 235    completely specify a summary function */
 236 static gboolean
 237 summary_complete (const struct aggregate *agg)
 238 {
 239   GtkTreeIter iter;
 240   int n_args;
 241   enum agr_src_vars src_vars;
 242   gboolean ok;
 243   GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
 244
 245   if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry))))
 246     return FALSE;
 247
 248   ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
 249
 250   if (! ok)
 251     return FALSE;
 252
 253
 254
 255   gtk_tree_model_get  (model,
 256                        &iter,
 257                        COMBO_MODEL_COL_ARITY,   &n_args,
 258                        COMBO_MODEL_COL_SRC_VARS, &src_vars,
 259                        -1);
 260
 261   if ( src_vars == AGR_SV_YES )
 262     {
 263       if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry))))
 264         return FALSE;
 265     }
 266
 267   if ( n_args >= 2)
 268     {
 269       if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry))))
 270         return FALSE;
 271     }
 272
 273   if ( n_args >= 1)
 274     {
 275       if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry))))
 276         return FALSE;
 277     }
 278
 279
 280   return TRUE;
 281 }
 282
 283
 284 static void
 285 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string);
 286
 287
 288 static void
 289 render_summary   (GtkTreeViewColumn *tree_column,
 290                   GtkCellRenderer *cell,
 291                   GtkTreeModel *tree_model,
 292                   GtkTreeIter *iter,
 293                   gpointer data)
 294 {
 295   struct aggregate *agg = data;
 296
 297   GString *string = g_string_new ("");
 298
 299   append_summary_spec (agg, iter, string);
 300
 301
 302   g_object_set (cell, "text", string->str, NULL);
 303
 304   g_string_free (string, TRUE);
 305 }
 306
 307
 308 /* Enable/Disable the summary variable ACR */
 309 static void
 310 update_acr (struct aggregate *agg)
 311 {
 312   gboolean ready = summary_complete (agg);
 313
 314   psppire_acr_set_enabled (PSPPIRE_ACR (agg->summary_acr), ready);
 315 }
 316
 317
 318 /* Update the sensitivity of the summary variable argument fields */
 319 static void
 320 update_arguments (struct aggregate *agg)
 321 {
 322   GtkTreeIter iter;
 323
 324   gboolean ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
 325
 326   if ( ok)
 327     {
 328       GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
 329       int n_args;
 330       enum agr_src_vars src_vars;
 331       gtk_tree_model_get  (model,
 332                            &iter,
 333                            COMBO_MODEL_COL_ARITY,   &n_args,
 334                            COMBO_MODEL_COL_SRC_VARS, &src_vars,
 335                            -1);
 336
 337       gtk_widget_set_sensitive (agg->summary_sv, src_vars != AGR_SV_NO);
 338       gtk_widget_set_sensitive (agg->summary_arg2, n_args >= 2);
 339       gtk_widget_set_sensitive (agg->summary_arg1, n_args >= 1);
 340     }
 341   else
 342     {
 343       gtk_widget_set_sensitive (agg->summary_sv,   FALSE);
 344       gtk_widget_set_sensitive (agg->summary_arg2, FALSE);
 345       gtk_widget_set_sensitive (agg->summary_arg1, FALSE);
 346     }
 347 }
 348
 349 enum
 350   {
 351     SUMMARY_COL_VARNAME = 0,
 352     SUMMARY_COL_VARLABEL,
 353     SUMMARY_COL_FUNCIDX,
 354     SUMMARY_COL_SRCVAR,
 355     SUMMARY_COL_ARG1,
 356     SUMMARY_COL_ARG2
 357   };
 358
 359 /* Set VAL to the value appropriate for COL according to the
 360    current state of the dialog */
 361 static gboolean
 362 get_summary_spec (gint col, GValue *val, gpointer data)
 363 {
 364   const struct aggregate *agg = data;
 365   switch (col)
 366     {
 367     case SUMMARY_COL_VARNAME:
 368       g_value_init (val, G_TYPE_STRING);
 369       g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry)));
 370       break;
 371     case SUMMARY_COL_VARLABEL:
 372       g_value_init (val, G_TYPE_STRING);
 373       g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_label_entry)));
 374       break;
 375     case SUMMARY_COL_SRCVAR:
 376       g_value_init (val, G_TYPE_STRING);
 377       g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry)));
 378       break;
 379     case SUMMARY_COL_FUNCIDX:
 380       g_value_init (val, G_TYPE_INT);
 381       g_value_set_int (val, gtk_combo_box_get_active (GTK_COMBO_BOX (agg->function_combo)));
 382       break;
 383     case SUMMARY_COL_ARG1:
 384       {
 385         const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry));
 386         g_value_init (val, G_TYPE_DOUBLE);
 387         g_value_set_double (val, g_strtod (text, 0));
 388       }
 389       break;
 390     case SUMMARY_COL_ARG2:
 391       {
 392         const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry));
 393         g_value_init (val, G_TYPE_DOUBLE);
 394         g_value_set_double (val, g_strtod (text, 0));
 395       }
 396       break;
 397     default:
 398       g_assert_not_reached ();
 399       break;
 400     }
 401
 402   return TRUE;
 403 }
 404
 405
 406 /* Update the status of the dialog box according to what row of the ACR's treeview
 407    is selected */
 408 static  void
 409 on_acr_change (const struct aggregate *agg, GtkTreeView *tv)
 410 {
 411   const gchar *varname;
 412   const gchar *label;
 413   const gchar *srcvar;
 414   gint f_idx;
 415   double arg1, arg2;
 416   gchar *text = NULL;
 417
 418   GtkTreeIter iter;
 419   GtkTreePath *path = NULL;
 420   GtkTreeModel *model = gtk_tree_view_get_model (tv);
 421   gtk_tree_view_get_cursor (tv, &path, NULL);
 422
 423   gtk_tree_model_get_iter (model, &iter, path);
 424
 425   gtk_tree_model_get (model, &iter,
 426                       SUMMARY_COL_VARNAME, &varname,
 427                       SUMMARY_COL_VARLABEL, &label,
 428                       SUMMARY_COL_FUNCIDX, &f_idx,
 429                       SUMMARY_COL_SRCVAR, &srcvar,
 430                       SUMMARY_COL_ARG1, &arg1,
 431                       SUMMARY_COL_ARG2, &arg2,
 432                       -1);
 433
 434   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), varname);
 435   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), label);
 436   gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), srcvar);
 437
 438   text = g_strdup_printf ("%g", arg1);
 439   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), text);
 440   g_free (text);
 441
 442   text = g_strdup_printf ("%g", arg2);
 443   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), text);
 444   g_free (text);
 445
 446
 447   gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), f_idx);
 448 }
 449
 450
 451 /* Set the pane to 50% of its maximum size */
 452 static void
 453 set_initial_pos (GtkPaned *pane)
 454 {
 455   int max_pos;
 456   g_object_get (pane,
 457                 "max-position", &max_pos,
 458                 NULL);
 459
 460   gtk_paned_set_position (pane, max_pos / 2);
 461 }
 462
 463
 464
 465 /* Pops up the Aggregate dialog box */
 466 void
 467 aggregate_dialog (PsppireDataWindow *dw)
 468 {
 469   struct aggregate fd;
 470   gint response;
 471
 472   PsppireVarStore *vs;
 473
 474   GtkWidget *dialog ;
 475   GtkWidget *source ;
 476
 477   GtkWidget *break_selector ;
 478
 479   fd.xml = builder_new ("aggregate.ui");
 480
 481   fd.de = dw;
 482
 483   dialog = get_widget_assert (fd.xml, "psppire-dialog1");
 484   source = get_widget_assert   (fd.xml, "dict-view");
 485   break_selector = get_widget_assert   (fd.xml, "break-selector");
 486
 487   fd.pane = get_widget_assert (fd.xml, "hbox1");
 488
 489   fd.break_variables = get_widget_assert (fd.xml, "psppire-var-view1");
 490   fd.filename_radiobutton = get_widget_assert (fd.xml, "filename-radiobutton");
 491   fd.filename_button = get_widget_assert (fd.xml, "filename-button");
 492   fd.filename_box = get_widget_assert (fd.xml, "filename-box");
 493   fd.filename_label = get_widget_assert (fd.xml, "filename-label");
 494   fd.replace_radiobutton = get_widget_assert (fd.xml, "replace-radiobutton");
 495   fd.add_radiobutton = get_widget_assert (fd.xml, "add-radiobutton");
 496   fd.function_combo = get_widget_assert (fd.xml, "function-combo");
 497
 498   fd.summary_acr = get_widget_assert (fd.xml, "psppire-acr1");
 499   fd.summary_var_name_entry = get_widget_assert (fd.xml, "summary-var-name-entry");
 500
 501   fd.summary_arg1 = get_widget_assert (fd.xml, "summary-arg1");
 502   fd.summary_arg2 = get_widget_assert (fd.xml, "summary-arg2");
 503
 504   fd.summary_arg1_entry = get_widget_assert (fd.xml, "summary-arg-entry1");
 505   fd.summary_arg2_entry = get_widget_assert (fd.xml, "summary-arg-entry2");
 506
 507   fd.summary_var_label_entry = get_widget_assert (fd.xml, "summary-var-label-entry");
 508
 509   fd.summary_sv = get_widget_assert (fd.xml, "source-var");
 510   fd.summary_sv_entry = get_widget_assert (fd.xml, "source-var-entry");
 511
 512   fd.sorted_button = get_widget_assert (fd.xml, "sorted-radiobutton");
 513   fd.needs_sort_button = get_widget_assert (fd.xml, "needs-sort-radiobutton");
 514
 515   {
 516     GtkTreeViewColumn *column ;
 517
 518     GList *l ;
 519
 520     GtkCellRenderer *cell_renderer ;
 521
 522     GtkListStore *list = gtk_list_store_new (6,
 523                                              G_TYPE_STRING,
 524                                              G_TYPE_STRING,
 525                                              G_TYPE_INT,
 526                                              G_TYPE_STRING,
 527                                              G_TYPE_DOUBLE,
 528                                              G_TYPE_DOUBLE);
 529
 530     psppire_acr_set_model (PSPPIRE_ACR (fd.summary_acr), list);
 531
 532     psppire_acr_set_get_value_func (PSPPIRE_ACR (fd.summary_acr),
 533                                                  get_summary_spec, &fd);
 534
 535     column = gtk_tree_view_get_column (PSPPIRE_ACR (fd.summary_acr)->tv, 0);
 536
 537     l = gtk_tree_view_column_get_cell_renderers (column);
 538
 539     cell_renderer = l->data;
 540
 541     gtk_tree_view_column_set_cell_data_func (column,
 542                                              cell_renderer,
 543                                              render_summary,
 544                                              &fd,
 545                                              NULL);
 546
 547     g_signal_connect_swapped (PSPPIRE_ACR (fd.summary_acr)->tv,
 548                               "cursor-changed", G_CALLBACK (on_acr_change), &fd);
 549   }
 550
 551   g_signal_connect_swapped (fd.summary_var_name_entry, "changed", G_CALLBACK (update_acr),  &fd);
 552   g_signal_connect_swapped (fd.function_combo, "changed", G_CALLBACK (update_acr),  &fd);
 553   g_signal_connect_swapped (fd.summary_sv_entry, "changed", G_CALLBACK (update_acr),  &fd);
 554   g_signal_connect_swapped (fd.summary_arg1_entry, "changed", G_CALLBACK (update_acr),  &fd);
 555   g_signal_connect_swapped (fd.summary_arg2_entry, "changed", G_CALLBACK (update_acr),  &fd);
 556
 557
 558   g_signal_connect (fd.pane, "realize", G_CALLBACK (set_initial_pos),  &fd);
 559
 560
 561   g_signal_connect_swapped (fd.function_combo, "changed",
 562                             G_CALLBACK (update_arguments),  &fd);
 563
 564   populate_combo_model (GTK_COMBO_BOX (fd.function_combo));
 565
 566   g_signal_connect_swapped (dialog, "refresh", G_CALLBACK (refresh),  &fd);
 567
 568   g_object_get (fd.de->data_editor, "var-store", &vs, NULL);
 569
 570   gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (fd.de));
 571
 572   g_object_get (vs, "dictionary", &fd.dict, NULL);
 573   g_object_set (source, "model", fd.dict, NULL);
 574
 575
 576   psppire_selector_set_filter_func (PSPPIRE_SELECTOR (break_selector), NULL);
 577
 578
 579   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
 580                                       dialog_state_valid, &fd);
 581
 582   g_signal_connect (fd.filename_radiobutton, "toggled",
 583                     G_CALLBACK (sensitive_if_active), fd.filename_box );
 584
 585   g_signal_connect_swapped (fd.filename_button, "clicked",
 586                     G_CALLBACK (choose_filename), &fd);
 587
 588
 589   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
 590
 591   switch (response)
 592     {
 593     case GTK_RESPONSE_OK:
 594       {
 595         gchar *syntax = generate_syntax (&fd);
 596
 597         struct getl_interface *sss = create_syntax_string_source (syntax);
 598         execute_syntax (sss);
 599
 600         g_free (syntax);
 601       }
 602       break;
 603     case PSPPIRE_RESPONSE_PASTE:
 604       {
 605         gchar *syntax = generate_syntax (&fd);
 606         paste_syntax_to_window (syntax);
 607
 608         g_free (syntax);
 609       }
 610       break;
 611     default:
 612       break;
 613     }
 614
 615   g_object_unref (fd.xml);
 616 }
 617
 618
 619 \f
 620
 621 static void
 622 append_destination_filename (const struct aggregate *agg, GString *gs)
 623 {
 624   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->filename_radiobutton)))
 625     {
 626       struct string ss;
 627       const gchar *s = gtk_label_get_text (GTK_LABEL (agg->filename_label));
 628       ds_init_empty (&ss);
 629       syntax_gen_string (&ss, ss_cstr (s));
 630       g_string_append (gs, ds_cstr (&ss));
 631       ds_destroy (&ss);
 632     }
 633   else
 634     {
 635       g_string_append (gs, "* ");
 636
 637       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->replace_radiobutton)))
 638         g_string_append (gs, "MODE=REPLACE");
 639       else
 640         g_string_append (gs, "MODE=ADDVARIABLES");
 641     }
 642 }
 643
 644 /* Append the syntax of the summary function pointed to by ITER to STRING */
 645 static void
 646 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string)
 647 {
 648   GtkTreeIter combo_iter;
 649   const char *varname;
 650   const char *funcname;
 651
 652   GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
 653   GtkTreeModel *combo_model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
 654
 655
 656   /* This is an index into the combo_model.  Its used to get the function name */
 657   int f_idx;
 658   double arg1, arg2;
 659   int arity;
 660   enum agr_src_vars has_src_vars;
 661     const gchar *label ;
 662   const gchar *srcvar ;
 663
 664   gtk_tree_model_get (acr_model, iter,
 665                       SUMMARY_COL_VARNAME, &varname,
 666                       SUMMARY_COL_VARLABEL, &label,
 667                       SUMMARY_COL_FUNCIDX, &f_idx,
 668                       SUMMARY_COL_SRCVAR, &srcvar,
 669                       SUMMARY_COL_ARG1, &arg1,
 670                       SUMMARY_COL_ARG2, &arg2,
 671                       -1);
 672
 673   gtk_tree_model_iter_nth_child (combo_model, &combo_iter, NULL, f_idx);
 674
 675   gtk_tree_model_get (combo_model, &combo_iter,
 676                       COMBO_MODEL_COL_SYNTAX, &funcname,
 677                       COMBO_MODEL_COL_ARITY, &arity,
 678                       COMBO_MODEL_COL_SRC_VARS, &has_src_vars,
 679                       -1);
 680
 681   g_string_append (string, varname);
 682
 683   if (0 != strcmp ("", label))
 684     {
 685       struct string ss;
 686       ds_init_empty (&ss);
 687       syntax_gen_string (&ss, ss_cstr (label));
 688       g_string_append (string, " ");
 689       g_string_append (string, ds_cstr (&ss));
 690       ds_destroy (&ss);
 691     }
 692
 693   g_string_append_printf (string, " = %s", funcname);
 694
 695   if ( has_src_vars != AGR_SV_NO)
 696     {
 697       g_string_append (string, " (");
 698
 699       g_string_append (string, srcvar);
 700
 701       if ( arity > 0)
 702         g_string_append_printf (string, ", %g", arg1);
 703
 704       if ( arity > 1)
 705         g_string_append_printf (string, ", %g", arg2);
 706
 707       g_string_append (string, ")");
 708     }
 709 }
 710
 711
 712
 713 static void
 714 append_summary_variable_syntax (const struct aggregate *agg,  GString *string)
 715 {
 716   GtkTreeIter iter;
 717   GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
 718
 719
 720   gboolean ok;
 721
 722   for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (acr_model), &iter);
 723        ok ;
 724        ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (acr_model), &iter)
 725        )
 726     {
 727       g_string_append (string, "\n\t/");
 728
 729       append_summary_spec (agg, &iter, string);
 730     }
 731 }
 732
 733
 734 static char *
 735 generate_syntax (const struct aggregate *agg)
 736 {
 737   gchar *text;
 738
 739   GString *string = g_string_new ("AGGREGATE OUTFILE=");
 740
 741   append_destination_filename (agg, string);
 742
 743   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->sorted_button)))
 744     g_string_append (string, "\n\t/PRESORTED");
 745
 746   g_string_append (string, "\n\t/BREAK=");
 747
 748   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (agg->break_variables), 0, string);
 749
 750   append_summary_variable_syntax (agg, string);
 751
 752   g_string_append (string, ".\n");
 753
 754   text = string->str;
 755
 756   g_string_free (string, FALSE);
 757
 758   return text;
 759 }