#include <glade/glade.h>
#include <gtk/gtk.h>
#include <libpspp/message.h>
-
+#include <libpspp/getl.h>
#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 <language/lexer/lexer.h>
+#include <language/command.h>
+#include <data/procedure.h>
+#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,
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),
{
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);
return ;
}
- gtk_widget_destroy (se->window);
+ gtk_widget_destroy (e->window);
}
/* Callback for the File->SaveAs 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,
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
{
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);
}
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);
+}
-static void open_syntax_window (GtkMenuItem *menuitem,
- gpointer user_data);
+/* 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)
+ );
-/* Create a new syntax editor with NAME.
- If NAME is NULL, a name will be automatically assigned
+ 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) ;
+
+ /* 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
*/
-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");
+ 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));
- if ( name )
- se->name = g_strdup (name);
- else
- se->name = NULL;
+ 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,
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);
}
}
-/* 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,
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;
/* Callback for the File->Open->Syntax menuitem */
-static void
+void
open_syntax_window (GtkMenuItem *menuitem, gpointer parent)
{
GtkFileFilter *filter;
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
-