Cleaned up GUI, by objectifying the data editor. Removed a number of global variables.

[pspp-builds.git] / src / ui / gui / psppire.c

diff --git a/src/ui/gui/psppire.c b/src/ui/gui/psppire.c
index e814219952e70b0b3e00715dc64dde4d4b495225..59dde1b082f44fe96191361a16bb01db33cd6c3d 100644 (file)
--- a/src/ui/gui/psppire.c
+++ b/src/ui/gui/psppire.c
@@ -1,7 +1,6 @@
 /* 
    PSPPIRE --- A Graphical User Interface for PSPP
    Copyright (C) 2004, 2005, 2006  Free Software Foundation
-   Written by John Darrington
 
    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
@@ -23,17 +22,22 @@
 #include <assert.h>
 #include <libintl.h>
 
+
+#include "data-editor.h"
 #include <libpspp/version.h>
 #include <libpspp/copyleft.h>
+#include <data/file-handle-def.h>
 #include <data/format.h>
 #include <data/settings.h>
+#include <data/file-name.h>
+#include <data/procedure.h>
 #include <libpspp/getl.h>
+#include <language/lexer/lexer.h>
 
 #include <getopt.h>
 #include <gtk/gtk.h>
 #include <gtk/gtk.h>
 #include <glade/glade.h>
-#include "menu-actions.h"
 #include "psppire-dict.h"
 #include "psppire-var-store.h"
 #include "psppire-data-store.h"
@@ -41,13 +45,9 @@
 #include "data-sheet.h"
 #include "var-sheet.h"
 #include "message-dialog.h"
+#include "flexifile-factory.h"
 
-GladeXML *xml;
-
-
-PsppireDict *the_dictionary = 0;
-
-PsppireDataStore *data_store = 0;
+PsppireDataStore *the_data_store = 0;
 
 
 static bool parse_command_line (int *argc, char ***argv, 
@@ -73,15 +73,21 @@ give_help(void)
   popup_message(&m);
 }
 
-PsppireVarStore *var_store = 0;
+PsppireVarStore *the_var_store = 0;
 
 void create_icon_factory (void);
 
-static struct source_stream *the_source_stream ;
+struct source_stream *the_source_stream ;
+struct lexer *the_lexer;
+struct dataset * the_dataset = NULL;
+
 
 int 
 main(int argc, char *argv[]) 
 {
+  struct casefile_factory *factory;
+  PsppireDict *dictionary = 0;
+
 
   GtkWidget *data_editor ;
   GtkSheet *var_sheet ; 
@@ -118,54 +124,64 @@ main(int argc, char *argv[])
 
   fmt_init();
   settings_init();
-  the_source_stream = create_source_stream ();
+  fh_init ();
+  factory = flexifile_factory_create ();
+  the_source_stream = create_source_stream (
+                         fn_getenv_default ("STAT_INCLUDE_PATH", include_path)
+                         );
+
+  the_lexer = lex_create (the_source_stream);
+
+  the_dataset = create_dataset (factory);
+
   message_dialog_init (the_source_stream);
 
-  the_dictionary = psppire_dict_new();
+  dictionary =
+    psppire_dict_new_from_dict (
+                               dataset_dict (the_dataset)
+                               );
 
   bind_textdomain_codeset(PACKAGE, "UTF-8");
 
   /* Create the model for the var_sheet */
-  var_store = psppire_var_store_new(the_dictionary);
+  the_var_store = psppire_var_store_new(dictionary);
 
-  data_store = psppire_data_store_new(the_dictionary);
+
+  the_data_store = psppire_data_store_new (dictionary);
 
   create_icon_factory();
 
+#if 0
   /* load the interface */
-  xml = glade_xml_new(PKGDATADIR "/psppire.glade", NULL, NULL);
+  data_editor_xml = glade_xml_new(PKGDATADIR "/data-editor.glade", NULL, NULL);
 
-  if ( !xml ) return 1;
+  if ( !data_editor_xml ) return 1;
 
-  data_editor = get_widget_assert(xml, "data_editor");
-  gtk_window_set_icon_from_file(GTK_WINDOW(data_editor), 
-                               PKGDATADIR "/psppicon.png",0);
+  data_editor = get_widget_assert(data_editor_xml, "data_editor");
 
   /* connect the signals in the interface */
-  glade_xml_signal_autoconnect(xml);
+  glade_xml_signal_autoconnect(data_editor_xml);
 
-  var_sheet  = GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
-  data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+  var_sheet  = GTK_SHEET(get_widget_assert(data_editor_xml, "variable_sheet"));
+  data_sheet = GTK_SHEET(get_widget_assert(data_editor_xml, "data_sheet"));
 
-  gtk_sheet_set_model(var_sheet, G_SHEET_MODEL(var_store));
-  
-  gtk_sheet_set_model(data_sheet, G_SHEET_MODEL(data_store));
+  gtk_sheet_set_model(var_sheet, G_SHEET_MODEL(the_var_store));
 
-  if (filename)
-    gtk_init_add((GtkFunction)load_system_file, filename);
-  else
-    gtk_init_add((GtkFunction)clear_file, 0);
+  gtk_sheet_set_model(data_sheet, G_SHEET_MODEL(the_data_store));
 
   var_data_selection_init();
 
   {
-  GList *helps = glade_xml_get_widget_prefix(xml, "help_button_");
+  GList *helps = glade_xml_get_widget_prefix(data_editor_xml, "help_button_");
 
   GList *i;
   for ( i = g_list_first(helps); i ; i = g_list_next(i))
       g_signal_connect(GTK_WIDGET(i->data), "clicked", give_help, 0);
   }
 
+#endif
+
+  new_data_window (NULL, NULL);
 
   /* start the event loop */
   gtk_main();