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