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

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