X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fpsppire-syntax-window.c;h=c1f9e4631e63a19442353a2129acf8a8aaeb386c;hb=e7913c62251710319b06c50702c5db9afb612be5;hp=13101f9394da34ab08bad3eed75398951d87cc87;hpb=0155c3a841f6b78263d2d1f308aeafc51bdf7ca9;p=pspp diff --git a/src/ui/gui/psppire-syntax-window.c b/src/ui/gui/psppire-syntax-window.c index 13101f9394..c1f9e4631e 100644 --- a/src/ui/gui/psppire-syntax-window.c +++ b/src/ui/gui/psppire-syntax-window.c @@ -1,5 +1,6 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2008, 2009, 2010, 2011, 2012, 2014, 2016 Free Software Foundation + Copyright (C) 2008, 2009, 2010, 2011, 2012, 2014, 2016, + 2020 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 @@ -19,10 +20,7 @@ #include #include -#include -#include -#include -#include +#include #include "language/lexer/lexer.h" #include "libpspp/encoding-guesser.h" @@ -47,8 +45,6 @@ #define _(msgid) gettext (msgid) #define N_(msgid) msgid -static void psppire_syntax_window_base_finalize (PsppireSyntaxWindowClass *, gpointer); -static void psppire_syntax_window_base_init (PsppireSyntaxWindowClass *class); static void psppire_syntax_window_class_init (PsppireSyntaxWindowClass *class); static void psppire_syntax_window_init (PsppireSyntaxWindow *syntax_editor); @@ -103,44 +99,8 @@ psppire_syntax_window_get_property (GObject *object, }; } -GType -psppire_syntax_window_get_type (void) -{ - static GType psppire_syntax_window_type = 0; - - if (!psppire_syntax_window_type) - { - static const GTypeInfo psppire_syntax_window_info = - { - sizeof (PsppireSyntaxWindowClass), - (GBaseInitFunc) psppire_syntax_window_base_init, - (GBaseFinalizeFunc) psppire_syntax_window_base_finalize, - (GClassInitFunc)psppire_syntax_window_class_init, - (GClassFinalizeFunc) NULL, - NULL, - sizeof (PsppireSyntaxWindow), - 0, - (GInstanceInitFunc) psppire_syntax_window_init, - }; - - static const GInterfaceInfo window_interface_info = - { - (GInterfaceInitFunc) psppire_syntax_window_iface_init, - NULL, - NULL - }; - - psppire_syntax_window_type = - g_type_register_static (PSPPIRE_TYPE_WINDOW, "PsppireSyntaxWindow", - &psppire_syntax_window_info, 0); - - g_type_add_interface_static (psppire_syntax_window_type, - PSPPIRE_TYPE_WINDOW_MODEL, - &window_interface_info); - } - - return psppire_syntax_window_type; -} +G_DEFINE_TYPE_WITH_CODE (PsppireSyntaxWindow, psppire_syntax_window, PSPPIRE_TYPE_WINDOW, + G_IMPLEMENT_INTERFACE (PSPPIRE_TYPE_WINDOW_MODEL, psppire_syntax_window_iface_init)) static GObjectClass *parent_class ; @@ -155,7 +115,7 @@ psppire_syntax_window_finalize (GObject *object) static void psppire_syntax_window_dispose (GObject *obj) { - PsppireSyntaxWindow *sw = (PsppireSyntaxWindow *)obj; + PsppireSyntaxWindow *sw = PSPPIRE_SYNTAX_WINDOW (obj); GtkClipboard *clip_selection; GtkClipboard *clip_primary; @@ -163,6 +123,8 @@ psppire_syntax_window_dispose (GObject *obj) if (sw->dispose_has_run) return; + g_object_unref (sw->search_text_buffer); + g_free (sw->encoding); sw->encoding = NULL; @@ -187,6 +149,7 @@ psppire_syntax_window_class_init (PsppireSyntaxWindowClass *class) { GParamSpec *encoding_spec; GObjectClass *gobject_class = G_OBJECT_CLASS (class); + gobject_class->finalize = psppire_syntax_window_finalize; GtkSourceLanguageManager *lm = gtk_source_language_manager_get_default (); @@ -229,30 +192,19 @@ psppire_syntax_window_class_init (PsppireSyntaxWindowClass *class) } -static void -psppire_syntax_window_base_init (PsppireSyntaxWindowClass *class) -{ - GObjectClass *object_class = G_OBJECT_CLASS (class); - object_class->finalize = psppire_syntax_window_finalize; -} - - - -static void -psppire_syntax_window_base_finalize (PsppireSyntaxWindowClass *class, - gpointer class_data) -{ -} - - static void editor_execute_syntax (const PsppireSyntaxWindow *sw, GtkTextIter start, GtkTextIter stop) { PsppireWindow *win = PSPPIRE_WINDOW (sw); - struct lex_reader *reader = lex_reader_for_gtk_text_buffer (GTK_TEXT_BUFFER (sw->buffer), start, stop); + struct lex_reader *reader = lex_reader_for_gtk_text_buffer ( + GTK_TEXT_BUFFER (sw->buffer), start, stop, sw->syntax_mode); - lex_reader_set_file_name (reader, psppire_window_get_filename (win)); + const gchar *filename = psppire_window_get_filename (win); + /* TRANSLATORS: This is part of a filename. Please avoid whitespace. */ + gchar *untitled = xasprintf ("%s.sps", _("Untitled")); + lex_reader_set_file_name (reader, filename ? filename : untitled); + free (untitled); execute_syntax (psppire_default_data_window (), reader); } @@ -263,11 +215,91 @@ on_edit_delete (PsppireSyntaxWindow *sw) { GtkTextIter begin, end; GtkTextBuffer *buffer = GTK_TEXT_BUFFER (sw->buffer); - - if ( gtk_text_buffer_get_selection_bounds (buffer, &begin, &end) ) + + if (gtk_text_buffer_get_selection_bounds (buffer, &begin, &end)) gtk_text_buffer_delete (buffer, &begin, &end); } +/* Create and run a dialog to collect the search string. + In future this might be expanded to include options, for example + backward searching, case sensitivity etc. */ +static const char * +get_search_text (PsppireSyntaxWindow *parent) +{ + const char *search_text = NULL; + GtkDialogFlags flags = GTK_DIALOG_DESTROY_WITH_PARENT | GTK_DIALOG_MODAL; + GtkWidget *dialog = gtk_dialog_new_with_buttons (_("Text Search"), + GTK_WINDOW (parent), + flags, + _("_OK"), + GTK_RESPONSE_OK, + _("_Cancel"), + GTK_RESPONSE_CANCEL, + NULL); + + GtkWidget *content_area = + gtk_dialog_get_content_area (GTK_DIALOG (dialog)); + + GtkWidget *box = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 5); + GtkWidget *label = gtk_label_new (_("Text to search for:")); + GtkWidget *entry = gtk_entry_new_with_buffer (parent->search_text_buffer); + + /* Add the label, and show everything we have added. */ + gtk_container_add (GTK_CONTAINER (content_area), box); + gtk_container_add (GTK_CONTAINER (box), label); + gtk_container_add (GTK_CONTAINER (box), entry); + gtk_widget_show_all (content_area); + + int result = gtk_dialog_run (GTK_DIALOG (dialog)); + switch (result) + { + case GTK_RESPONSE_OK: + search_text = gtk_entry_get_text (GTK_ENTRY (entry)); + break; + default: + search_text = NULL; + }; + + gtk_widget_destroy (dialog); + return search_text; +} + + +/* What to do when the Find menuitem is called. */ +static void +on_edit_find (PsppireSyntaxWindow *sw) +{ + GtkTextBuffer *buffer = GTK_TEXT_BUFFER (sw->buffer); + GtkTextIter begin; + GtkTextIter loc; + const char *target = get_search_text (sw); + + if (target == NULL) + return; + + /* This is a wrap-around search. So start searching one + character after the current char. */ + GtkTextMark *mark = gtk_text_buffer_get_insert (buffer); + gtk_text_buffer_get_iter_at_mark (buffer, &begin, mark); + gtk_text_iter_forward_char (&begin); + if (gtk_text_iter_forward_search (&begin, target, 0, + &loc, 0, 0)) + { + gtk_text_buffer_place_cursor (buffer, &loc); + } + else + { + /* If not found, then continue the search from the top + of the buffer. */ + gtk_text_buffer_get_start_iter (buffer, &begin); + if (gtk_text_iter_forward_search (&begin, target, 0, + &loc, 0, 0)) + { + gtk_text_buffer_place_cursor (buffer, &loc); + } + } +} + /* The syntax editor's clipboard deals only with text */ enum { @@ -311,17 +343,22 @@ clipboard_clear_cb (GtkClipboard *clipboard, sw->cliptext = NULL; } +static gchar tn1[] = "UTF8_STRING"; +static gchar tn2[] = "STRING"; +static gchar tn3[] = "TEXT"; +static gchar tn4[] = "COMPOUND_TEXT"; +static gchar tn5[] = "text/plain;charset=utf-8"; +static gchar tn6[] = "text/plain"; static const GtkTargetEntry targets[] = { - { "UTF8_STRING", 0, SELECT_FMT_TEXT }, - { "STRING", 0, SELECT_FMT_TEXT }, - { "TEXT", 0, SELECT_FMT_TEXT }, - { "COMPOUND_TEXT", 0, SELECT_FMT_TEXT }, - { "text/plain;charset=utf-8", 0, SELECT_FMT_TEXT }, - { "text/plain", 0, SELECT_FMT_TEXT }, + { tn1, 0, SELECT_FMT_TEXT }, + { tn2, 0, SELECT_FMT_TEXT }, + { tn3, 0, SELECT_FMT_TEXT }, + { tn4, 0, SELECT_FMT_TEXT }, + { tn5, 0, SELECT_FMT_TEXT }, + { tn6, 0, SELECT_FMT_TEXT } }; - /* Store a clip containing the currently selected text. Returns true iff something was set. @@ -334,7 +371,7 @@ set_clip (PsppireSyntaxWindow *sw, GtkTextIter *begin, GtkTextIter *end) GtkClipboard *clipboard ; GtkTextBuffer *buffer = GTK_TEXT_BUFFER (sw->buffer); - if ( ! gtk_text_buffer_get_selection_bounds (buffer, begin, end) ) + if (! gtk_text_buffer_get_selection_bounds (buffer, begin, end)) return FALSE; g_free (sw->cliptext); @@ -356,8 +393,8 @@ static void on_edit_cut (PsppireSyntaxWindow *sw) { GtkTextIter begin, end; - - if ( set_clip (sw, &begin, &end)) + + if (set_clip (sw, &begin, &end)) gtk_text_buffer_delete (GTK_TEXT_BUFFER (sw->buffer), &begin, &end); } @@ -393,7 +430,7 @@ set_paste_sensitivity (GtkClipboard *clip, GdkEventOwnerChange *event, gpointer for (i = 0 ; i < sizeof (targets) / sizeof (targets[0]) ; ++i) { GdkAtom atom = gdk_atom_intern (targets[i].target, TRUE); - if ( gtk_clipboard_wait_is_target_available (clip, atom)) + if (gtk_clipboard_wait_is_target_available (clip, atom)) { compatible_target = TRUE; break; @@ -424,7 +461,7 @@ on_run_selection (PsppireSyntaxWindow *se) { GtkTextIter begin, end; - if ( gtk_text_buffer_get_selection_bounds (GTK_TEXT_BUFFER (se->buffer), &begin, &end) ) + if (gtk_text_buffer_get_selection_bounds (GTK_TEXT_BUFFER (se->buffer), &begin, &end)) editor_execute_syntax (se, begin, end); } @@ -442,7 +479,7 @@ on_run_to_end (PsppireSyntaxWindow *se) gtk_text_buffer_get_iter_at_mark (GTK_TEXT_BUFFER (se->buffer), &here, gtk_text_buffer_get_insert (GTK_TEXT_BUFFER (se->buffer)) - ); + ); line = gtk_text_iter_get_line (&here) ; @@ -468,7 +505,7 @@ on_run_current_line (PsppireSyntaxWindow *se) gtk_text_buffer_get_iter_at_mark (GTK_TEXT_BUFFER (se->buffer), &here, gtk_text_buffer_get_insert (GTK_TEXT_BUFFER (se->buffer)) - ); + ); line = gtk_text_iter_get_line (&here) ; @@ -482,14 +519,32 @@ on_run_current_line (PsppireSyntaxWindow *se) +static void +on_syntax (GAction *action, GVariant *param, PsppireSyntaxWindow *sw) +{ + g_action_change_state (action, param); + GVariant *new_state = g_action_get_state (action); + + const gchar *what = g_variant_get_string (new_state, NULL); + if (0 == g_strcmp0 (what, "auto")) + sw->syntax_mode = SEG_MODE_AUTO; + else if (0 == g_strcmp0 (what, "interactive")) + sw->syntax_mode = SEG_MODE_INTERACTIVE; + else if (0 == g_strcmp0 (what, "batch")) + sw->syntax_mode = SEG_MODE_BATCH; + else + g_warn_if_reached (); +} + + /* Append ".sps" to FILENAME if necessary. The returned result must be freed when no longer required. */ static gchar * append_suffix (const gchar *filename) { - if ( ! g_str_has_suffix (filename, ".sps" ) && - ! g_str_has_suffix (filename, ".SPS" ) ) + if (! g_str_has_suffix (filename, ".sps") && + ! g_str_has_suffix (filename, ".SPS")) { return g_strdup_printf ("%s.sps", filename); } @@ -532,7 +587,7 @@ save_editor_to_file (PsppireSyntaxWindow *se, ss_dealloc (&text_locale); g_free (suffixedname); - if ( result ) + if (result) { char *fn = g_filename_display_name (filename); gchar *msg = g_strdup_printf (_("Saved file `%s'"), fn); @@ -586,12 +641,12 @@ syntax_pick_filename (PsppireWindow *window) response = gtk_dialog_run (GTK_DIALOG (dialog)); - if ( response == GTK_RESPONSE_ACCEPT ) + if (response == GTK_RESPONSE_ACCEPT) { gchar *encoding; char *filename; - filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog) ); + filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); psppire_window_set_filename (window, filename); free (filename); @@ -615,7 +670,7 @@ syntax_save (PsppireWindow *se) const gchar *filename = psppire_window_get_filename (se); GError *err = NULL; save_editor_to_file (PSPPIRE_SYNTAX_WINDOW (se), filename, &err); - if ( err ) + if (err) { msg (ME, "%s", err->message); g_error_free (err); @@ -633,7 +688,7 @@ load_and_show_syntax_window (GtkWidget *se, const gchar *filename, ok = psppire_window_load (PSPPIRE_WINDOW (se), filename, encoding, NULL); gtk_source_buffer_end_not_undoable_action (PSPPIRE_SYNTAX_WINDOW (se)->buffer); - if (ok ) + if (ok) gtk_widget_show (se); else gtk_widget_destroy (se); @@ -647,13 +702,15 @@ create_syntax_window (void) gtk_widget_show (w); } -void +GtkWindow * open_syntax_window (const char *file_name, const gchar *encoding) { GtkWidget *se = psppire_syntax_window_new (NULL); - if ( file_name) + if (file_name) load_and_show_syntax_window (se, file_name, encoding); + + return GTK_WINDOW (se); } @@ -705,7 +762,7 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (window->undo_menuitem)); g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (window->redo_menuitem)); - + if (class->lan) window->buffer = gtk_source_buffer_new_with_language (class->lan); else @@ -726,10 +783,12 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) NULL); window->encoding = NULL; + window->syntax_mode = SEG_MODE_AUTO; window->cliptext = NULL; window->dispose_has_run = FALSE; + window->search_text_buffer = gtk_entry_buffer_new (NULL, -1); window->edit_delete = g_simple_action_new ("delete", NULL); g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (window->edit_delete)); @@ -743,25 +802,27 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) window->edit_paste = g_simple_action_new ("paste", NULL); g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (window->edit_paste)); + window->edit_find = g_simple_action_new ("find", NULL); + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (window->edit_find)); window->buffer = GTK_SOURCE_BUFFER (gtk_text_view_get_buffer (GTK_TEXT_VIEW (text_view))); window->sb = get_widget_assert (xml, "statusbar2"); window->text_context = gtk_statusbar_get_context_id (GTK_STATUSBAR (window->sb), "Text Context"); - g_signal_connect (window->buffer, "changed", + g_signal_connect (window->buffer, "changed", G_CALLBACK (on_text_changed), window); - g_signal_connect (window->buffer, "modified-changed", + g_signal_connect (window->buffer, "modified-changed", G_CALLBACK (on_modified_changed), window); { GSimpleAction *print = g_simple_action_new ("print", NULL); - + g_signal_connect_swapped (print, "activate", G_CALLBACK (psppire_syntax_window_print), window); - + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (print)); } @@ -778,14 +839,12 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) undo_redo_update (window); - window->sel_handler = g_signal_connect_swapped (clip_primary, "owner-change", + window->sel_handler = g_signal_connect_swapped (clip_primary, "owner-change", G_CALLBACK (selection_changed), window); - window->ps_handler = g_signal_connect (clip_selection, "owner-change", + window->ps_handler = g_signal_connect (clip_selection, "owner-change", G_CALLBACK (set_paste_sensitivity), window); - connect_help (xml); - gtk_container_add (GTK_CONTAINER (window), box); g_object_ref (sw); @@ -802,7 +861,7 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) { GSimpleAction *open = g_simple_action_new ("open", NULL); - + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (open)); g_signal_connect_swapped (open, @@ -813,38 +872,38 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) { GSimpleAction *save = g_simple_action_new ("save", NULL); - + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (save)); - + g_signal_connect_swapped (save, "activate", G_CALLBACK (psppire_window_save), window); - const gchar *accels[2] = { "S", NULL}; + const gchar *accels[2] = { "S", NULL}; gtk_application_set_accels_for_action (app, "win.save", accels); - + } { GSimpleAction *save_as = g_simple_action_new ("save_as", NULL); - + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (save_as)); - + g_signal_connect_swapped (save_as, "activate", G_CALLBACK (psppire_window_save_as), window); - const gchar *accels[2] = { "S", NULL}; + const gchar *accels[2] = { "S", NULL}; gtk_application_set_accels_for_action (app, "win.save_as", accels); - - + + } @@ -868,6 +927,11 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) G_CALLBACK (on_edit_paste), window); + g_signal_connect_swapped (window->edit_find, + "activate", + G_CALLBACK (on_edit_find), + window); + { GSimpleAction *run_all = g_simple_action_new ("run-all", NULL); @@ -886,7 +950,7 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (run_current_line)); GtkApplication *app = GTK_APPLICATION (g_application_get_default ()); - const gchar *accels[2] = { "R", NULL}; + const gchar *accels[2] = { "R", NULL}; gtk_application_set_accels_for_action (app, "win.run-current-line", accels); @@ -894,7 +958,7 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) { GSimpleAction *run_selection = g_simple_action_new ("run-selection", NULL); - + g_signal_connect_swapped (run_selection, "activate", G_CALLBACK (on_run_selection), window); @@ -903,13 +967,20 @@ psppire_syntax_window_init (PsppireSyntaxWindow *window) { GSimpleAction *run_to_end = g_simple_action_new ("run-to-end", NULL); - + g_signal_connect_swapped (run_to_end, "activate", G_CALLBACK (on_run_to_end), window); - + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (run_to_end)); } + { + GSimpleAction *act_syntax = g_simple_action_new_stateful ("syntax", G_VARIANT_TYPE_STRING, + g_variant_new_string ("auto")); + g_signal_connect (act_syntax, "activate", G_CALLBACK (on_syntax), window); + g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (act_syntax)); + } + gtk_menu_shell_append (GTK_MENU_SHELL (menubar), create_windows_menu (GTK_WINDOW (window))); @@ -930,7 +1001,7 @@ psppire_syntax_window_new (const char *encoding) "description", _("Syntax Editor"), "encoding", encoding, NULL); - + GApplication *app = g_application_get_default (); gtk_application_add_window (GTK_APPLICATION (app), GTK_WINDOW (sw)); @@ -965,7 +1036,7 @@ error_dialog (GtkWindow *w, const gchar *filename, GError *err) /* Loads the buffer from the file called FILENAME */ -gboolean +static gboolean syntax_load (PsppireWindow *window, const gchar *filename, const gchar *encoding, gpointer not_used) { @@ -979,7 +1050,7 @@ syntax_load (PsppireWindow *window, const gchar *filename, GtkTextBuffer *buffer = GTK_TEXT_BUFFER (sw->buffer); /* FIXME: What if it's a very big file ? */ - if ( ! g_file_get_contents (filename, &text_locale, &len_locale, &err) ) + if (! g_file_get_contents (filename, &text_locale, &len_locale, &err)) { error_dialog (GTK_WINDOW (window), filename, err); g_clear_error (&err); @@ -1010,7 +1081,7 @@ syntax_load (PsppireWindow *window, const gchar *filename, NULL).string; free (text_locale); - if ( text_utf8 == NULL ) + if (text_utf8 == NULL) { error_dialog (GTK_WINDOW (window), filename, err); g_clear_error (&err); @@ -1102,7 +1173,7 @@ paginate (GtkPrintOperation *operation, { gint n_pages = gtk_source_print_compositor_get_n_pages (window->compositor); gtk_print_operation_set_n_pages (operation, n_pages); - + return TRUE; } @@ -1115,7 +1186,7 @@ draw_page (GtkPrintOperation *operation, gint page_nr, PsppireSyntaxWindow *window) { - gtk_source_print_compositor_draw_page (window->compositor, + gtk_source_print_compositor_draw_page (window->compositor, context, page_nr); } @@ -1129,7 +1200,7 @@ psppire_syntax_window_print (PsppireSyntaxWindow *window) GtkPrintOperation *print = gtk_print_operation_new (); - if (window->print_settings != NULL) + if (window->print_settings != NULL) gtk_print_operation_set_print_settings (print, window->print_settings);