X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fcompute-dialog.c;h=6a3b0aaa75cdccb1d380539b86a3893c36db7147;hb=3af9bac9f7828e3a98bb6a76bd6cf63e8d834a70;hp=7e14f40607448cfa6ef45de859a4f91dac357acd;hpb=44c9d804c74705b555ee144ba916ee110e7d5c56;p=pspp-builds.git diff --git a/src/ui/gui/compute-dialog.c b/src/ui/gui/compute-dialog.c index 7e14f406..6a3b0aaa 100644 --- a/src/ui/gui/compute-dialog.c +++ b/src/ui/gui/compute-dialog.c @@ -1,21 +1,18 @@ -/* - PSPPIRE --- A Graphical User Interface for PSPP - Copyright (C) 2007 Free Software Foundation +/* PSPPIRE - a graphical user interface for PSPP. + Copyright (C) 2007 Free Software Foundation - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - 02110-1301, USA. */ + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ #include @@ -29,13 +26,10 @@ #include "dialog-common.h" #include "dict-display.h" +#include #include #include "syntax-editor.h" - -#include -#include "c-ctype.h" - static void function_list_populate (GtkTreeView *tv); static void insert_function_into_syntax_area (GtkTreeIter iter, @@ -53,11 +47,13 @@ static void insert_source_row_into_text_view (GtkTreeIter iter, struct compute_dialog { GladeXML *xml; /* The xml that generated the widgets */ + PsppireDict *dict; + gboolean use_type; }; static void -on_target_change (GObject *obj, const struct compute_dialog *cd) +on_target_change (GObject *obj, struct compute_dialog *cd) { GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1"); GtkWidget *type_and_label = get_widget_assert (cd->xml, "compute-button1"); @@ -82,18 +78,15 @@ refresh (GObject *obj, const struct compute_dialog *cd) GtkTreeSelection *selection; - /* Clear the target variable entry box */ gtk_entry_set_text (GTK_ENTRY (target), ""); g_signal_emit_by_name (target, "changed"); - /* Clear the syntax area textbuffer */ gtk_text_buffer_get_start_iter (buffer, &start); gtk_text_buffer_get_end_iter (buffer, &end); gtk_text_buffer_delete (buffer, &start, &end); - /* Unselect all items in the treeview */ selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (varlist)); gtk_tree_selection_unselect_all (selection); @@ -157,9 +150,19 @@ generate_syntax (const struct compute_dialog *cd) { gchar *text; GString *string ; + const gchar *target_name ; + const gchar *expression; + const gchar *label; GtkTextIter start, end; - GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1"); + GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1"); GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1"); + GtkWidget *string_toggle = get_widget_assert (cd->xml, "radio-button-string"); + GtkWidget *user_label_toggle = + get_widget_assert (cd->xml, "radio-button-user-label"); + GtkWidget *width_entry = get_widget_assert (cd->xml, "type-and-label-width"); + GtkWidget *label_entry = get_widget_assert (cd->xml, + "type-and-label-label-entry"); + GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area)); @@ -167,17 +170,39 @@ generate_syntax (const struct compute_dialog *cd) gtk_text_buffer_get_start_iter (buffer, &start); gtk_text_buffer_get_end_iter (buffer, &end); + target_name = gtk_entry_get_text (GTK_ENTRY (target)); - string = g_string_new ("COMPUTE "); + expression = gtk_text_buffer_get_text (buffer, &start, &end, FALSE); - g_string_append (string, gtk_entry_get_text (GTK_ENTRY (target))); + string = g_string_sized_new (64); + + if ( cd-> use_type && + NULL == psppire_dict_lookup_var (cd->dict, target_name )) + { + if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (string_toggle))) + { + const char *w = gtk_entry_get_text (GTK_ENTRY(width_entry)); + g_string_append_printf (string, + "STRING %s (a%s).\n", target_name, w); + } + else + g_string_append_printf (string, "NUMERIC %s.\n", target_name); + } - g_string_append (string, " = "); + if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (user_label_toggle))) + label = gtk_entry_get_text (GTK_ENTRY (label_entry)); + else + label = expression; - g_string_append (string, - gtk_text_buffer_get_text (buffer, &start, &end, FALSE)); + if ( strlen (label) > 0 ) + g_string_append_printf (string, "VARIABLE LABEL %s '%s'.\n", + target_name, + label); - g_string_append (string, "."); + g_string_append_printf (string, "COMPUTE %s = %s.", + target_name, + expression + ); text = string->str; @@ -186,6 +211,121 @@ generate_syntax (const struct compute_dialog *cd) return text; } +static void +reset_type_label_dialog (struct compute_dialog *cd) +{ + const gchar *target_name; + struct variable *target_var; + + GtkWidget *width_entry = + get_widget_assert (cd->xml, "type-and-label-width"); + + GtkWidget *label_entry = + get_widget_assert (cd->xml, "type-and-label-label-entry"); + + GtkWidget *numeric_target = + get_widget_assert (cd->xml, "radio-button-numeric"); + + GtkWidget *string_target = + get_widget_assert (cd->xml, "radio-button-string"); + + + target_name = gtk_entry_get_text + (GTK_ENTRY (get_widget_assert (cd->xml, "compute-entry1"))); + + + if ( (target_var = psppire_dict_lookup_var (cd->dict, target_name)) ) + { + /* Existing Variable */ + const gchar *label ; + GtkWidget *user_label = + get_widget_assert (cd->xml, "radio-button-user-label"); + + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (user_label), TRUE); + + label = var_get_label (target_var); + + if ( label ) + { + gtk_entry_set_text (GTK_ENTRY (label_entry), label); + } + + gtk_widget_set_sensitive (width_entry, FALSE); + + if ( var_is_numeric (target_var)) + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (numeric_target), + TRUE); + else + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (string_target), + TRUE); + + gtk_widget_set_sensitive (numeric_target, FALSE); + gtk_widget_set_sensitive (string_target, FALSE); + } + else + { + GtkWidget *expression = + get_widget_assert (cd->xml, "radio-button-expression-label"); + + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (expression), TRUE); + + gtk_widget_set_sensitive (width_entry, TRUE); + gtk_widget_set_sensitive (numeric_target, TRUE); + gtk_widget_set_sensitive (string_target, TRUE); + + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (numeric_target), + TRUE); + } + +} + +static void +run_type_label_dialog (GtkButton *b, gpointer data) +{ + struct compute_dialog *cd = data; + gint response; + + GtkWidget *subdialog = get_widget_assert (cd->xml, "type-and-label-dialog"); + GtkWidget *dialog = get_widget_assert (cd->xml, "compute-variable-dialog"); + + gtk_window_set_transient_for (GTK_WINDOW (subdialog), GTK_WINDOW (dialog)); + + reset_type_label_dialog (cd); + response = psppire_dialog_run (PSPPIRE_DIALOG (subdialog)); + if ( response == PSPPIRE_RESPONSE_CONTINUE) + cd->use_type = TRUE; +} + + +static void +on_expression_toggle (GtkToggleButton *button, gpointer data) +{ + struct compute_dialog *cd = data; + + GtkWidget *entry = + get_widget_assert (cd->xml, "type-and-label-label-entry"); + + if ( gtk_toggle_button_get_active (button)) + { + gtk_entry_set_text (GTK_ENTRY (entry), ""); + gtk_widget_set_sensitive (entry, FALSE); + } + else + { + const char *label; + struct variable *target_var; + const gchar *target_name = gtk_entry_get_text + (GTK_ENTRY (get_widget_assert (cd->xml, "compute-entry1"))); + + target_var = psppire_dict_lookup_var (cd->dict, target_name); + label = var_get_label (target_var); + + if ( label ) + gtk_entry_set_text (GTK_ENTRY (entry), label); + + gtk_widget_set_sensitive (entry, TRUE); + } +} /* Pops up the Compute dialog box */ void @@ -201,19 +341,29 @@ compute_dialog (GObject *o, gpointer data) GtkWidget *dialog = get_widget_assert (xml, "compute-variable-dialog"); - GtkWidget *dict_view = get_widget_assert (xml, "compute-treeview1"); - GtkWidget *functions = get_widget_assert (xml, "compute-treeview2"); - GtkWidget *keypad = get_widget_assert (xml, "psppire-keypad1"); - GtkWidget *target = get_widget_assert (xml, "compute-entry1"); + GtkWidget *dict_view = get_widget_assert (xml, "compute-treeview1"); + GtkWidget *functions = get_widget_assert (xml, "compute-treeview2"); + GtkWidget *keypad = get_widget_assert (xml, "psppire-keypad1"); + GtkWidget *target = get_widget_assert (xml, "compute-entry1"); GtkWidget *syntax_area = get_widget_assert (xml, "compute-textview1"); GtkWidget *var_selector = get_widget_assert (xml, "compute-selector1"); GtkWidget *func_selector = get_widget_assert (xml, "compute-selector2"); + GtkWidget *type_and_label = get_widget_assert (xml, "compute-button1"); + + GtkWidget *expression = + get_widget_assert (xml, "radio-button-expression-label"); + GtkSheet *var_sheet = GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet)); + scd.dict = vs->dict; + scd.use_type = FALSE; + + g_signal_connect (expression, "toggled", + G_CALLBACK(on_expression_toggle), &scd); gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window); @@ -250,6 +400,11 @@ compute_dialog (GObject *o, gpointer data) G_CALLBACK (erase), xml); + g_signal_connect (type_and_label, "clicked", + G_CALLBACK (run_type_label_dialog), &scd); + + + response = psppire_dialog_run (PSPPIRE_DIALOG (dialog)); @@ -291,12 +446,6 @@ enum { }; -static const struct operation fs[] = - { -#include "parse.inc" - }; - - static void function_list_populate (GtkTreeView *tv) { @@ -304,25 +453,20 @@ function_list_populate (GtkTreeView *tv) GtkTreeIter iter; gint i; - const gint n_funcs = sizeof (fs) / sizeof fs[0] ; + const gint n_funcs = expr_get_function_cnt (); liststore = gtk_list_store_new (3, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT); for (i = 0 ; i < n_funcs ; ++i) { - if ( fs[i].prototype == NULL) - continue; - - /* All the real ones seem to begin with an upper case letter */ - if ( !c_isupper(*fs[i].prototype)) - continue; + const struct operation *op = expr_get_function (i); gtk_list_store_append (liststore, &iter); gtk_list_store_set (liststore, &iter, - COL_NAME, fs[i].name, - COL_USAGE,fs[i].prototype, - COL_ARITY, fs[i].arg_cnt, + COL_NAME, expr_operation_get_name (op), + COL_USAGE, expr_operation_get_prototype (op), + COL_ARITY, expr_operation_get_arg_cnt (op), -1); }