X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fsyntax-editor.c;h=d8bf15b9cd8477ba73211c87e857a36326aa1602;hb=75fe94ea24fd7b12a0d99b8f36a79d8423e668d4;hp=fe880cbeec34471dffd93929bb80322cdca00f6e;hpb=164d1274fcb70c54897f2a03fc7c27152ed4821a;p=pspp-builds.git diff --git a/src/ui/gui/syntax-editor.c b/src/ui/gui/syntax-editor.c index fe880cbe..d8bf15b9 100644 --- a/src/ui/gui/syntax-editor.c +++ b/src/ui/gui/syntax-editor.c @@ -26,17 +26,21 @@ #include #include #include - +#include #include "helper.h" +#include "data-editor.h" +#include "about.h" -extern GladeXML *xml; +#include "window-manager.h" -struct syntax_editor -{ - GtkWidget *window; /* The top level window of the editor */ - GtkTextBuffer *buffer; /* The buffer which contains the text */ - gchar *name; /* The name of this syntax buffer/editor */ -}; +#include +#include +#include +#include "syntax-editor.h" +#include "syntax-editor-source.h" + +extern struct source_stream *the_source_stream ; +extern struct dataset *the_dataset; static gboolean save_editor_to_file (struct syntax_editor *se, const gchar *filename, @@ -48,30 +52,31 @@ static gboolean save_editor_to_file (struct syntax_editor *se, static void save_if_modified (struct syntax_editor *se) { + struct editor_window *e = (struct editor_window *) se; if ( TRUE == gtk_text_buffer_get_modified (se->buffer)) { gint response; GtkWidget *dialog = - gtk_message_dialog_new (GTK_WINDOW(se->window), + gtk_message_dialog_new (GTK_WINDOW (e->window), GTK_DIALOG_MODAL, GTK_MESSAGE_QUESTION, GTK_BUTTONS_NONE, _("Save contents of syntax editor to %s?"), - se->name ? se->name : _("Untitled") + e->name ? e->name : _("Untitled") ); - gtk_dialog_add_button (GTK_DIALOG(dialog), + gtk_dialog_add_button (GTK_DIALOG (dialog), GTK_STOCK_YES, GTK_RESPONSE_ACCEPT); - gtk_dialog_add_button (GTK_DIALOG(dialog), + gtk_dialog_add_button (GTK_DIALOG (dialog), GTK_STOCK_NO, GTK_RESPONSE_REJECT); - gtk_dialog_add_button (GTK_DIALOG(dialog), + gtk_dialog_add_button (GTK_DIALOG (dialog), GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL); - response = gtk_dialog_run (GTK_DIALOG(dialog)); + response = gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); @@ -79,7 +84,7 @@ save_if_modified (struct syntax_editor *se) { GError *err = NULL; - if ( ! save_editor_to_file (se, se->name ? se->name : _("Untitled"), + if ( ! save_editor_to_file (se, e->name ? e->name : _("Untitled"), &err) ) { msg (ME, err->message); @@ -91,7 +96,7 @@ save_if_modified (struct syntax_editor *se) return ; } - gtk_widget_destroy (se->window); + gtk_widget_destroy (e->window); } /* Callback for the File->SaveAs menuitem */ @@ -102,10 +107,11 @@ on_syntax_save_as (GtkMenuItem *menuitem, GtkFileFilter *filter; gint response; struct syntax_editor *se = user_data; + struct editor_window *e = user_data; GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Save Syntax"), - GTK_WINDOW(se->window), + GTK_WINDOW (e->window), GTK_FILE_CHOOSER_ACTION_SAVE, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT, @@ -115,14 +121,14 @@ on_syntax_save_as (GtkMenuItem *menuitem, gtk_file_filter_set_name (filter, _("Syntax Files (*.sps) ")); gtk_file_filter_add_pattern (filter, "*.sps"); gtk_file_filter_add_pattern (filter, "*.SPS"); - gtk_file_chooser_add_filter (GTK_FILE_CHOOSER(dialog), filter); + gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter); filter = gtk_file_filter_new (); gtk_file_filter_set_name (filter, _("All Files")); gtk_file_filter_add_pattern (filter, "*"); gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter); - gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER(dialog), + gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE); response = gtk_dialog_run (GTK_DIALOG (dialog)); @@ -134,8 +140,8 @@ on_syntax_save_as (GtkMenuItem *menuitem, if ( save_editor_to_file (se, filename, &err) ) { - g_free (se->name); - se->name = g_strdup (filename); + g_free (e->name); + e->name = g_strdup (filename); } else { @@ -155,13 +161,14 @@ on_syntax_save (GtkMenuItem *menuitem, gpointer user_data) { struct syntax_editor *se = user_data; + struct editor_window *e = user_data; - if ( se->name == NULL ) + if ( e->name == NULL ) on_syntax_save_as (menuitem, user_data); else { GError *err; - save_editor_to_file (se, se->name, &err); + save_editor_to_file (se, e->name, &err); msg (ME, err->message); g_error_free (err); } @@ -188,100 +195,225 @@ on_quit (GtkMenuItem *menuitem, gpointer user_data) return FALSE; } -void -new_syntax_window (GtkMenuItem *menuitem, - gpointer user_data); +static void +execute_syntax (const struct syntax_editor *se, GtkTextIter start, + GtkTextIter stop) +{ + getl_append_source (the_source_stream, + create_syntax_editor_source (se, start, stop)); + for (;;) + { + int result = cmd_parse (se->lexer, the_dataset, + proc_has_source (the_dataset) + ? CMD_STATE_DATA : CMD_STATE_INITIAL); + + if (result == CMD_EOF || result == CMD_FINISH) + break; + } +} + +/* Parse and execute all the text in the buffer */ +static void +on_run_all (GtkMenuItem *menuitem, gpointer user_data) +{ + GtkTextIter begin, end; + struct syntax_editor *se = user_data; + + gtk_text_buffer_get_iter_at_line (se->buffer, &begin, 0); + gtk_text_buffer_get_iter_at_line (se->buffer, &end, -1); + + + execute_syntax (se, begin, end); +} + +/* Parse and execute the currently selected text */ +static void +on_run_selection (GtkMenuItem *menuitem, gpointer user_data) +{ + GtkTextIter begin, end; + struct syntax_editor *se = user_data; + + if ( gtk_text_buffer_get_selection_bounds (se->buffer, &begin, &end) ) + execute_syntax (se, begin, end); +} + + +/* Parse and execute the current line */ +static void +on_run_current_line (GtkMenuItem *menuitem, gpointer user_data) +{ + GtkTextIter begin, end; + GtkTextIter here; + gint line; + + struct syntax_editor *se = user_data; + + /* Get the current line */ + gtk_text_buffer_get_iter_at_mark (se->buffer, + &here, + gtk_text_buffer_get_insert (se->buffer) + ); + + line = gtk_text_iter_get_line (&here) ; + + /* Now set begin and end to the start of this line, and start of + following line respectively */ + gtk_text_buffer_get_iter_at_line (se->buffer, &begin, line); + gtk_text_buffer_get_iter_at_line (se->buffer, &end, line + 1); + + execute_syntax (se, begin, end); +} + + + +/* Parse and execute the from the current line, to the end of the + buffer */ +static void +on_run_to_end (GtkMenuItem *menuitem, gpointer user_data) +{ + GtkTextIter begin, end; + GtkTextIter here; + gint line; + struct syntax_editor *se = user_data; + + /* Get the current line */ + gtk_text_buffer_get_iter_at_mark (se->buffer, + &here, + gtk_text_buffer_get_insert (se->buffer) + ); + line = gtk_text_iter_get_line (&here) ; -static void open_syntax_window (GtkMenuItem *menuitem, - gpointer user_data); + /* Now set begin and end to the start of this line, and end of buffer + respectively */ + gtk_text_buffer_get_iter_at_line (se->buffer, &begin, line); + gtk_text_buffer_get_iter_at_line (se->buffer, &end, -1); + + execute_syntax (se, begin, end); +} -/* Create a new syntax editor with NAME. - If NAME is NULL, a name will be automatically assigned + + +/* + Create a new syntax editor with NAME. + If NAME is NULL, a name will be automatically assigned */ -static struct syntax_editor * -new_syntax_editor (const gchar *name) +struct syntax_editor * +new_syntax_editor (void) { - GladeXML *new_xml ; + GladeXML *xml = + glade_xml_new (PKGDATADIR "/syntax-editor.glade", NULL, NULL); + GtkWidget *text_view; struct syntax_editor *se ; - - new_xml = glade_xml_new (xml->filename, "syntax_editor", NULL); + struct editor_window *e; se = g_malloc (sizeof (*se)); - se->window = get_widget_assert (new_xml, "syntax_editor"); - text_view = get_widget_assert (new_xml, "syntax_text_view"); - se->buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW(text_view)); - if ( name ) - se->name = g_strdup (name); - else - se->name = NULL; + e = (struct editor_window *)se; + + e->window = get_widget_assert (xml, "syntax_editor"); + text_view = get_widget_assert (xml, "syntax_text_view"); + se->buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (text_view)); + se->lexer = lex_create (the_source_stream); + + g_signal_connect (get_widget_assert (xml,"file_new_syntax"), + "activate", + G_CALLBACK (new_syntax_window), + e->window); + + g_signal_connect (get_widget_assert (xml,"file_open_syntax"), + "activate", + G_CALLBACK (open_syntax_window), + e->window); + + g_signal_connect (get_widget_assert (xml,"file_new_data"), + "activate", + G_CALLBACK (new_data_window), + e->window); + + g_signal_connect (get_widget_assert (xml,"file_open_data"), + "activate", + G_CALLBACK (open_data_window), + e->window); + + + g_signal_connect (get_widget_assert (xml,"help_about"), + "activate", + G_CALLBACK (about_new), + e->window); + + +#if 0 + + g_signal_connect (get_widget_assert (xml,"file_save"), + "activate", + G_CALLBACK (on_syntax_save), + se); + + g_signal_connect (get_widget_assert (xml,"file_save_as"), + "activate", + G_CALLBACK (on_syntax_save_as), + se); + +#endif - g_signal_connect (get_widget_assert (new_xml,"file_new_syntax"), + g_signal_connect (get_widget_assert (xml,"file_quit"), "activate", - G_CALLBACK(new_syntax_window), - se->window); + G_CALLBACK (on_quit), + se); + - g_signal_connect (get_widget_assert (new_xml,"file_open_syntax"), + g_signal_connect (get_widget_assert (xml,"run_all"), "activate", - G_CALLBACK(open_syntax_window), - se->window); + G_CALLBACK (on_run_all), + se); - g_signal_connect (get_widget_assert (new_xml,"file_quit"), + + g_signal_connect (get_widget_assert (xml,"run_selection"), "activate", - G_CALLBACK(on_quit), + G_CALLBACK (on_run_selection), se); - g_signal_connect (get_widget_assert (new_xml,"file_save"), + g_signal_connect (get_widget_assert (xml,"run_current_line"), "activate", - G_CALLBACK(on_syntax_save), + G_CALLBACK (on_run_current_line), se); - g_signal_connect (get_widget_assert (new_xml,"file_save_as"), + + g_signal_connect (get_widget_assert (xml,"run_to_end"), "activate", - G_CALLBACK(on_syntax_save_as), + G_CALLBACK (on_run_to_end), se); - g_object_unref (new_xml); - g_signal_connect (se->window, "delete-event", - G_CALLBACK(on_delete), se); + g_object_unref (xml); + + g_signal_connect (e->window, "delete-event", + G_CALLBACK (on_delete), se); + + return se; } -/* Callback for the File->New->Syntax menuitem */ +/* + Callback for the File->New->Syntax menuitem +*/ void new_syntax_window (GtkMenuItem *menuitem, gpointer user_data) { - struct syntax_editor *se = new_syntax_editor (NULL); - gtk_widget_show (se->window); + window_create (WINDOW_SYNTAX, NULL); } -static void -set_window_title_from_filename (struct syntax_editor *se, - const gchar *filename) -{ - gchar *title; - gchar *basename ; - g_free (se->name); - se->name = strdup (filename); - basename = g_path_get_basename (filename); - title = - g_strdup_printf (_("%s --- PSPP Syntax Editor"), basename); - g_free (basename); - gtk_window_set_title (GTK_WINDOW(se->window), title); - g_free (title); -} - - -/* Save BUFFER to the file called FILENAME. - If successful, clears the buffer's modified flag */ +/* + Save BUFFER to the file called FILENAME. + If successful, clears the buffer's modified flag +*/ static gboolean save_editor_to_file (struct syntax_editor *se, const gchar *filename, @@ -309,7 +441,7 @@ save_editor_to_file (struct syntax_editor *se, if ( result ) { - set_window_title_from_filename (se, filename); + window_set_name_from_filename ((struct editor_window *) se, filename); gtk_text_buffer_set_modified (buffer, FALSE); } @@ -317,7 +449,8 @@ save_editor_to_file (struct syntax_editor *se, } -/* Loads the buffer from the file called FILENAME +/* + Loads the buffer from the file called FILENAME */ static gboolean load_editor_from_file (struct syntax_editor *se, @@ -345,7 +478,7 @@ load_editor_from_file (struct syntax_editor *se, gtk_text_buffer_insert (buffer, &iter, text, -1); - set_window_title_from_filename (se, filename); + window_set_name_from_filename ((struct editor_window *)se, filename); gtk_text_buffer_set_modified (buffer, FALSE); return TRUE; @@ -353,7 +486,7 @@ load_editor_from_file (struct syntax_editor *se, /* Callback for the File->Open->Syntax menuitem */ -static void +void open_syntax_window (GtkMenuItem *menuitem, gpointer parent) { GtkFileFilter *filter; @@ -361,7 +494,7 @@ open_syntax_window (GtkMenuItem *menuitem, gpointer parent) GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Open Syntax"), - GTK_WINDOW(parent), + GTK_WINDOW (parent), GTK_FILE_CHOOSER_ACTION_OPEN, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, @@ -371,7 +504,7 @@ open_syntax_window (GtkMenuItem *menuitem, gpointer parent) gtk_file_filter_set_name (filter, _("Syntax Files (*.sps) ")); gtk_file_filter_add_pattern (filter, "*.sps"); gtk_file_filter_add_pattern (filter, "*.SPS"); - gtk_file_chooser_add_filter (GTK_FILE_CHOOSER(dialog), filter); + gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter); filter = gtk_file_filter_new (); gtk_file_filter_set_name (filter, _("All Files")); @@ -385,41 +518,12 @@ open_syntax_window (GtkMenuItem *menuitem, gpointer parent) const char *file_name = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); - struct syntax_editor *se = new_syntax_editor (file_name); + struct syntax_editor *se = (struct syntax_editor *) + window_create (WINDOW_SYNTAX, file_name); load_editor_from_file (se, file_name, NULL); - - gtk_widget_show (se->window); } gtk_widget_destroy (dialog); } - -#if 1 -/* FIXME: get rid of these functions */ -void -on_syntax4_activate (GtkMenuItem *menuitem, - gpointer user_data) -{ - g_print ("%s\n", __FUNCTION__); -} - - - -void -on_syntax2_activate (GtkMenuItem *menuitem, - gpointer user_data) -{ - g_print ("%s\n", __FUNCTION__); -} - -void -on_syntax1_activate (GtkMenuItem *menuitem, - gpointer user_data) -{ - g_print ("%s\n", __FUNCTION__); - new_syntax_window (menuitem, user_data); -} -#endif -