2 PSPPIRE --- A Graphical User Interface for PSPP
3 Copyright (C) 2007 Free Software Foundation
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 #include "compute-dialog.h"
24 #include "psppire-dialog.h"
25 #include "psppire-keypad.h"
26 #include "data-editor.h"
27 #include <gtksheet/gtksheet.h>
28 #include "psppire-var-store.h"
29 #include "dialog-common.h"
30 #include "dict-display.h"
32 #include <language/syntax-string-source.h>
33 #include "syntax-editor.h"
36 #include <language/expressions/private.h>
39 static void function_list_populate (GtkTreeView *tv);
41 static void insert_function_into_syntax_area (GtkTreeIter iter,
46 static void insert_source_row_into_text_view (GtkTreeIter iter,
55 GladeXML *xml; /* The xml that generated the widgets */
60 on_target_change (GObject *obj, const struct compute_dialog *cd)
62 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
63 GtkWidget *type_and_label = get_widget_assert (cd->xml, "compute-button1");
65 const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (target));
66 gboolean valid = var_name && strcmp ("", var_name);
68 gtk_widget_set_sensitive (type_and_label, valid);
72 refresh (GObject *obj, const struct compute_dialog *cd)
74 GtkTextIter start, end;
75 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
76 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
77 GtkWidget *varlist = get_widget_assert (cd->xml, "compute-treeview1");
78 GtkWidget *funclist = get_widget_assert (cd->xml, "compute-treeview2");
80 GtkTextBuffer *buffer =
81 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
83 GtkTreeSelection *selection;
86 /* Clear the target variable entry box */
87 gtk_entry_set_text (GTK_ENTRY (target), "");
88 g_signal_emit_by_name (target, "changed");
91 /* Clear the syntax area textbuffer */
92 gtk_text_buffer_get_start_iter (buffer, &start);
93 gtk_text_buffer_get_end_iter (buffer, &end);
94 gtk_text_buffer_delete (buffer, &start, &end);
97 /* Unselect all items in the treeview */
98 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (varlist));
99 gtk_tree_selection_unselect_all (selection);
101 /* And the other one */
102 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (funclist));
103 gtk_tree_selection_unselect_all (selection);
108 erase_selection (GtkTextBuffer *buffer)
110 GtkTextIter start, end;
112 gtk_text_buffer_get_selection_bounds (buffer, &start, &end);
114 gtk_text_buffer_delete (buffer, &start, &end);
120 on_keypad_button (PsppireKeypad *kp, const gchar *syntax, gpointer data)
122 GladeXML *xml = data;
124 GtkWidget *rhs = get_widget_assert (xml, "compute-textview1");
126 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (rhs));
128 erase_selection (buffer);
130 gtk_text_buffer_insert_at_cursor (buffer, syntax, strlen (syntax));
132 if (0 == strcmp (syntax, "()"))
135 GtkTextMark *cursor = gtk_text_buffer_get_insert (buffer);
136 gtk_text_buffer_get_iter_at_mark (buffer, &iter, cursor);
137 gtk_text_iter_backward_cursor_position (&iter);
138 gtk_text_buffer_move_mark (buffer, cursor, &iter);
144 erase (PsppireKeypad *kp, gpointer data)
146 GladeXML *xml = data;
148 GtkWidget *rhs = get_widget_assert (xml, "compute-textview1");
150 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (rhs));
152 erase_selection (buffer);
156 generate_syntax (const struct compute_dialog *cd)
160 GtkTextIter start, end;
161 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
162 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
164 GtkTextBuffer *buffer =
165 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
167 gtk_text_buffer_get_start_iter (buffer, &start);
168 gtk_text_buffer_get_end_iter (buffer, &end);
171 string = g_string_new ("COMPUTE ");
173 g_string_append (string, gtk_entry_get_text (GTK_ENTRY (target)));
175 g_string_append (string, " = ");
177 g_string_append (string,
178 gtk_text_buffer_get_text (buffer, &start, &end, FALSE));
180 g_string_append (string, ".");
184 g_string_free (string, FALSE);
190 /* Pops up the Compute dialog box */
192 compute_dialog (GObject *o, gpointer data)
195 struct data_editor *de = data;
198 struct compute_dialog scd;
200 GladeXML *xml = XML_NEW ("psppire.glade");
202 GtkWidget *dialog = get_widget_assert (xml, "compute-variable-dialog");
204 GtkWidget *dict_view = get_widget_assert (xml, "compute-treeview1");
205 GtkWidget *functions = get_widget_assert (xml, "compute-treeview2");
206 GtkWidget *keypad = get_widget_assert (xml, "psppire-keypad1");
207 GtkWidget *target = get_widget_assert (xml, "compute-entry1");
208 GtkWidget *syntax_area = get_widget_assert (xml, "compute-textview1");
209 GtkWidget *var_selector = get_widget_assert (xml, "compute-selector1");
210 GtkWidget *func_selector = get_widget_assert (xml, "compute-selector2");
212 GtkSheet *var_sheet =
213 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
215 vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
218 gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
221 attach_dictionary_to_treeview (GTK_TREE_VIEW (dict_view),
223 GTK_SELECTION_SINGLE, NULL);
226 psppire_selector_set_subjects (PSPPIRE_SELECTOR (var_selector),
227 dict_view, syntax_area,
228 insert_source_row_into_text_view,
232 function_list_populate (GTK_TREE_VIEW (functions));
234 psppire_selector_set_subjects (PSPPIRE_SELECTOR (func_selector),
235 functions, syntax_area,
236 insert_function_into_syntax_area,
242 g_signal_connect (target, "changed", G_CALLBACK (on_target_change), &scd);
244 g_signal_connect (dialog, "refresh", G_CALLBACK (refresh), &scd);
246 g_signal_connect (keypad, "insert-syntax",
247 G_CALLBACK (on_keypad_button), xml);
249 g_signal_connect (keypad, "erase",
250 G_CALLBACK (erase), xml);
253 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
258 case GTK_RESPONSE_OK:
260 gchar *syntax = generate_syntax (&scd);
261 struct getl_interface *sss = create_syntax_string_source (syntax);
262 execute_syntax (sss);
267 case PSPPIRE_RESPONSE_PASTE:
269 gchar *syntax = generate_syntax (&scd);
271 struct syntax_editor *se =
272 (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
274 gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
283 g_object_unref (xml);
294 static const struct operation fs[] =
296 #include <language/expressions/parse.inc>
301 function_list_populate (GtkTreeView *tv)
303 GtkListStore *liststore;
307 const gint n_funcs = sizeof (fs) / sizeof fs[0] ;
309 liststore = gtk_list_store_new (3, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT);
311 for (i = 0 ; i < n_funcs ; ++i)
313 if ( fs[i].prototype == NULL)
316 /* All the real ones seem to begin with an upper case letter */
317 if ( !c_isupper(*fs[i].prototype))
320 gtk_list_store_append (liststore, &iter);
322 gtk_list_store_set (liststore, &iter,
323 COL_NAME, fs[i].name,
324 COL_USAGE,fs[i].prototype,
325 COL_ARITY, fs[i].arg_cnt,
331 /* Set the cell rendering */
334 GtkTreeViewColumn *col;
335 GtkCellRenderer *renderer;
338 col = gtk_tree_view_column_new ();
340 gtk_tree_view_append_column (tv, col);
342 renderer = gtk_cell_renderer_text_new ();
344 gtk_tree_view_column_pack_start (col, renderer, TRUE);
346 gtk_tree_view_column_add_attribute (col, renderer, "text", COL_USAGE);
349 gtk_tree_view_set_model (tv, GTK_TREE_MODEL (liststore));
356 insert_function_into_syntax_area (GtkTreeIter iter,
357 GtkWidget *text_view,
362 GValue name_value = {0};
363 GValue arity_value = {0};
367 GtkTextBuffer *buffer ;
369 g_return_if_fail (GTK_IS_TEXT_VIEW (text_view));
371 buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (text_view));
373 gtk_tree_model_get_value (model, &iter, COL_NAME, &name_value);
374 gtk_tree_model_get_value (model, &iter, COL_ARITY, &arity_value);
376 arity = g_value_get_int (&arity_value);
378 string = g_string_new (g_value_get_string (&name_value));
380 g_string_append (string, "(");
381 for ( i = 0 ; i < arity -1 ; ++i )
383 g_string_append (string, "?,");
385 g_string_append (string, "?)");
388 erase_selection (buffer);
390 gtk_text_buffer_insert_at_cursor (buffer, string->str, string->len);
392 g_value_unset (&name_value);
393 g_value_unset (&arity_value);
394 g_string_free (string, TRUE);
396 /* Now position the cursor over the first '?' */
399 GtkTextIter selectbound;
400 GtkTextMark *cursor = gtk_text_buffer_get_insert (buffer);
401 gtk_text_buffer_get_iter_at_mark (buffer, &insert, cursor);
402 for ( i = 0 ; i < arity ; ++i )
404 gtk_text_iter_backward_cursor_position (&insert);
405 gtk_text_iter_backward_cursor_position (&insert);
407 selectbound = insert;
408 gtk_text_iter_forward_cursor_position (&selectbound);
410 gtk_text_buffer_select_range (buffer, &insert, &selectbound);
415 /* Inserts the name of the selected variable into the destination widget.
416 The destination widget must be a GtkTextView
419 insert_source_row_into_text_view (GtkTreeIter iter,
427 struct variable *var;
428 GtkTreeIter dict_iter;
430 GtkTextBuffer *buffer;
432 g_return_if_fail (GTK_IS_TEXT_VIEW (dest));
434 if ( GTK_IS_TREE_MODEL_FILTER (model))
436 dict = PSPPIRE_DICT (gtk_tree_model_filter_get_model
437 (GTK_TREE_MODEL_FILTER(model)));
439 gtk_tree_model_filter_convert_iter_to_child_iter (GTK_TREE_MODEL_FILTER
445 dict = PSPPIRE_DICT (model);
449 path = gtk_tree_model_get_path (GTK_TREE_MODEL (dict), &dict_iter);
451 idx = gtk_tree_path_get_indices (path);
453 var = psppire_dict_get_variable (dict, *idx);
455 gtk_tree_path_free (path);
457 name = pspp_locale_to_utf8 (var_get_name (var), -1, NULL);
459 buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (dest));
461 erase_selection (buffer);
463 gtk_text_buffer_insert_at_cursor (buffer, name, -1);